Various fixes and improvements.

This commit is contained in:
C. Guy Yarvin 2014-02-14 11:29:03 -08:00
parent 187f180d48
commit 012396a4b1
6 changed files with 56 additions and 6 deletions

View File

@ -165,6 +165,7 @@
[%brkt p=twig q=(map term foot)] :: [%brkt p=twig q=(map term foot)] ::
[%brhp p=twig] :: [%brhp p=twig] ::
[%brls p=tile q=twig] :: [%brls p=tile q=twig] ::
[%brpt p=tile q=tile r=twig] ::
[%brtr p=tile q=twig] :: [%brtr p=tile q=twig] ::
[%brts p=tile q=twig] :: [%brts p=tile q=twig] ::
[%brwt p=twig] :: [%brwt p=twig] ::
@ -232,13 +233,17 @@
:: :: :: ::
[%tsbr p=tile q=twig] :: [%tsbr p=tile q=twig] ::
[%tscl p=tram q=twig] :: [%tscl p=tram q=twig] ::
[%tscn p=twig q=twig] ::
[%tsdt p=wing q=twig r=twig] :: [%tsdt p=wing q=twig r=twig] ::
[%tsfs p=twig q=twig] ::
[%tsgl p=twig q=twig] :: [%tsgl p=twig q=twig] ::
[%tshp p=twig q=twig] ::
[%tsgr p=twig q=twig] :: [%tsgr p=twig q=twig] ::
[%tskt p=twig q=twig r=twig s=twig] :: [%tskt p=twig q=twig r=twig s=twig] ::
[%tsls p=twig q=twig] :: [%tsls p=twig q=twig] ::
[%tspm p=tile q=twig] ::
[%tspt p=tile q=twig] ::
[%tstr p=term q=wing r=twig] :: [%tstr p=term q=wing r=twig] ::
[%tshp p=twig q=twig] ::
[%tssg p=tusk] :: [%tssg p=tusk] ::
:: :: :: ::
[%wtbr p=tusk] :: [%wtbr p=tusk] ::

View File

@ -1755,7 +1755,7 @@
++ deed ,[p=@ q=step] :: signature, stage ++ deed ,[p=@ q=step] :: signature, stage
++ dome :: project state ++ dome :: project state
$: ang=agon :: pedigree $: ang=agon :: pedigree
ank=ankh :: new state ank=ankh :: state
let=@ :: (lent hit) let=@ :: (lent hit)
hit=(list frog) :: changes in reverse hit=(list frog) :: changes in reverse
lab=(map ,@tas ,@ud) :: labels lab=(map ,@tas ,@ud) :: labels

View File

@ -33,6 +33,8 @@
:_ ~ :_ ~
:- t.t.t.pax :- t.t.t.pax
^- miso ^- miso
=+ lon=((hard arch) .^(%cy pax))
?~ q.lon
=+ fil=(file pax) =+ fil=(file pax)
?~ fil ?~ fil
[%ins i.q.u.p.nut] [%ins i.q.u.p.nut]

View File

@ -33,6 +33,7 @@
[[[[%polo ~] [%up pim pro def]] ~] ..$] [[[[%polo ~] [%up pim pro def]] ~] ..$]
(woo now u.rey) (woo now u.rey)
:: ::
++ pome |=([git=(list gift) bol=bowl] [(weld git p.bol) q.bol])
++ pomo |=([gud=gift bol=bowl] [[gud p.bol] q.bol]) ++ pomo |=([gud=gift bol=bowl] [[gud p.bol] q.bol])
++ pomp |=([tix=tape bol=bowl] (pomo la/leaf/tix bol)) ++ pomp |=([tix=tape bol=bowl] (pomo la/leaf/tix bol))
++ pond :: text block ++ pond :: text block

View File

@ -1,5 +1,4 @@
|= * |= *
|= [planet=tape ~] |= [planet=tape ~]
^- bowl ^- bowl :_ ~ :_ ~ :- %$ !>
:_ ~ :_ ~ "hasta la vista, {planet}."
[%$ !>("hasta la vista, {planet}.")]

43
try/bin/write.hoon Normal file
View File

@ -0,0 +1,43 @@
!: :: /=try=/bin/env/hoon
!? 164
::::
=> .(- `[who=@p how=path]`-)
=> .(- [woh=(scot %p who) -])
=> .(+ =>(+ ^/=main=/lib/pony))
::::
|= [est=time eny=@]
|= [loc=[mih=span dez=span caz=span sup=path] ~]
::::
?. =(woh mih.loc)
~|("you are not {(trip mih.loc)}!" !!)
=+ yaz=(zu ((hard ankh) .^(%cz mih.loc dez.loc caz.loc ~)))
%+ pomp "appending to {(dart:ut loc)}..."
=< work
|%
++ pend
|= den=@t
^- [(list gift) _+>]
=+ nyp=`soba`[*cart (turn (plan den) |=(p=miso [sup.loc p]))]
:- [[%ok dez.loc `nori`[%& ~ nyp]] ~]
=. yaz (durn:yaz nyp)
+>.$
::
++ plan
|= den=@t
^- (list miso)
=+ cur=q:ank:(deny:yaz sup.loc)
?~ cur
[[%ins den] ~]
?^ q.u.cur
[[%del q.u.cur] [%ins den] ~]
[[%mut ((diff %c) q.u.cur (cat 3 q.u.cur den))] ~]
::
++ work
|- ^- bowl
%+ (polo %text "> " ~ ~)
(plus alp)
|= [now=@da txt=tape]
^- bowl
=^ giv +.^$ (pend (rap 3 (weld txt `tape`[`@`10 ~])))
(pome giv ^$)
--