ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-07 07:30:23 +03:00
Code Issues Packages Projects Releases Wiki Activity

Stashing.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-09-24 14:29:19 -07:00
parent a4bec78419
commit 55e1f24999
1 changed files with 20 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
arvo/hoon.hoon
View File

@ -28,8 +28,7 @@
++ axis ,@ :: tree address ++ axis ,@ :: tree address
++ also ,[p=term q=wing r=type] :: alias ++ also ,[p=term q=wing r=type] :: alias
++ base ?([%atom p=odor] %noun %cell %bean %null) :: axils, @ * ^ ? ~ ++ base ?([%atom p=odor] %noun %cell %bean %null) :: axils, @ * ^ ? ~
++ bean ,? :: default to yes ++ bean ,? :: 0=&=yes, 1=|=no
++ bane $?(%| %&) :: default to no
++ beer $|(@ [~ p=twig]) :: simple embed ++ beer $|(@ [~ p=twig]) :: simple embed
++ beet $| @ :: advanced embed ++ beet $| @ :: advanced embed
$% [%a p=twig] :: $% [%a p=twig] ::
@ -2503,7 +2502,9 @@
[zac [~ i.q.tub [zac t.q.tub]]] [zac [~ i.q.tub [zac t.q.tub]]]
:: ::
++ sear :: conditional cook ++ sear :: conditional cook
~/ %sear
|* [pyq=_|=(* *(unit)) sef=_rule] |* [pyq=_|=(* *(unit)) sef=_rule]
~/ %fun
|= tub=nail |= tub=nail
=+ vex=(sef tub) =+ vex=(sef tub)
?~ q.vex ?~ q.vex
@ -2600,7 +2601,9 @@
[(last p.vex p.wag) [~ (raq p.u.q.vex p.u.q.wag) q.u.q.wag]] [(last p.vex p.wag) [~ (raq p.u.q.vex p.u.q.wag) q.u.q.wag]]
:: ::
++ stun :: parse several times ++ stun :: parse several times
~/ %stun
|* [[les=@ mos=@] fel=_rule] |* [[les=@ mos=@] fel=_rule]
~/ %fun
|= tub=nail |= tub=nail
^- (like (list ,_(wonk (fel)))) ^- (like (list ,_(wonk (fel))))
?: =(0 mos) ?: =(0 mos)
@ -2943,7 +2946,8 @@
?: =(inx len) & ?: =(inx len) &
=+ cur=(cut 3 [inx 1] b) =+ cur=(cut 3 [inx 1] b)
?& ?| &((gte cur 'a') (lte cur 'z')) ?& ?| &((gte cur 'a') (lte cur 'z'))
&((gte cur '0') (lte cur '9')) &((gte cur 'A') (lte cur 'Z'))
&(&((gte cur '0') (lte cur '9')) !=(0 inx))
|(=('-' cur) =('~' cur) =('_' cur) =('.' cur)) |(=('-' cur) =('~' cur) =('_' cur) =('.' cur))
== ==
$(inx +(inx)) $(inx +(inx))
@ -8464,36 +8468,28 @@
;~(plug (star low) (star hig)) ;~(plug (star low) (star hig))
:: ::
++ plex ++ plex
|= gen=twig ^- (unit path) |= gen=twig ~| [%plex gen] ^- path
?: ?=([%zpcb *] gen) ?: ?=([%zpcb *] gen)
$(gen q.gen) $(gen q.gen)
?. ?=([%clsg *] gen) ~ ?> ?=([%clsg *] gen)
%+ reel p.gen (turn p.gen |=(a=twig ?>(?=(%dtzy -.a) q.a)))
|= [a=twig b=_`(unit path)`[~ u=/]]
?~ b ~
?. ?=(%dtzy -.a) ~
`[q.a u.b]
:: ::
++ pray ++ pray
|= gen=twig ~| %pray ^- (unit twig) |= gen=twig ~| %pray ^- twig
=+ rev=(plex gen) =+ rev=(plex gen)
?~ rev ~ ?: (~(has in was) rev)
:- ~
?: (~(has in was) u.rev)
~|(%pray-loop !!) ~|(%pray-loop !!)
=+ ruv=`path`(weld u.rev `path`[%hoon ~]) =+ ruv=`path`(weld rev `path`[%hoon ~])
=+ txt=(,@ta .^(%cx ruv)) =+ txt=(,@ta .^(%cx ruv))
~| ruv ~| ruv
%+ rash txt %+ rash txt
(ifix [gay gay] tall(was (~(put in was) u.rev), wer u.rev)) (ifix [gay gay] tall(was (~(put in was) rev), wer rev))
:: ::
++ prey ++ prey
|= gun=(list twig) ^- (unit twig) |= gun=(list twig) ^- twig
?~ gun `[~ 1] ?~ gun [~ 1]
=+ gup=(pray i.gun) ?~ t.gun (pray i.gun)
?~ gup ~ [%tsgr (pray i.gun) $(gun t.gun)]
?~ t.gun gup
(bind $(gun t.gun) |=(a=twig [%tsgr u.gup a]))
:: ::
++ phax ++ phax
|= ruw=(list (list beer)) |= ruw=(list (list beer))
@ -8915,7 +8911,7 @@
[%dtkt %dtzz %$ %cx rev] [%dtkt %dtzz %$ %cx rev]
;~(plug hill rood) ;~(plug hill rood)
== ==
(sear prey (most ket rood)) (cook prey (most ket rood))
== ==
== ==
(stag %cnzz rope) (stag %cnzz rope)
@ -9207,7 +9203,7 @@
:~ [':' ;~(pfix col (toad expz))] :~ [':' ;~(pfix col (toad expz))]
[',' (rune com %zpcm expb)] [',' (rune com %zpcm expb)]
[';' (rune sem %zpsm expb)] [';' (rune sem %zpsm expb)]
['^' ;~(pfix ket (sear prey (toad exps)))] ['^' ;~(pfix ket (cook prey (toad exps)))]
['>' (rune gar %zpgr expa)] ['>' (rune gar %zpgr expa)]
['=' (rune tis %zpts expa)] ['=' (rune tis %zpts expa)]
['?' (rune wut %zpwt hinh)] ['?' (rune wut %zpwt hinh)]