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

specify /# per path, rename it to /,

Browse Source
This commit is contained in:
Anton Dyudin 2015-12-22 17:11:05 -08:00
parent 4efa26c2d9
commit b98e0279fb
3 changed files with 41 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
arvo/ford.hoon
View File

@ -696,18 +696,17 @@
=| tol=? =| tol=?
|% |%
++ apex ++ apex
~! -:*^horn
%+ knee *^horn |. ~+ %+ knee *^horn |. ~+
;~ pfix fas ;~ pfix fas
;~ pose ;~ pose
(stag %toy ;~(sfix sym fas)) (stag %toy ;~(sfix sym fas))
(stag %ape ;~(pfix sig ape:read)) (stag %ape ;~(pfix sig ape:read))
(stag %arg ;~(pfix buc ape:read)) (stag %arg ;~(pfix buc ape:read))
(stag %alt ;~(pfix hax fan:read)) (stag %alt ;~(pfix com alt:read))
(stag %day ;~(pfix bar day:read)) (stag %day ;~(pfix bar day:read))
(stag %dub ;~(pfix tis dub:read)) (stag %dub ;~(pfix tis dub:read))
(stag %fan ;~(pfix dot fan:read)) (stag %fan ;~(pfix dot fan:read))
(stag %for ;~(pfix com for:read)) :: (stag %for ;~(pfix com for:read))
(stag %hel ;~(pfix cen day:read)) (stag %hel ;~(pfix cen day:read))
(stag %hub ;~(pfix pat day:read)) (stag %hub ;~(pfix pat day:read))
(stag %man ;~(pfix tar man:read)) (stag %man ;~(pfix tar man:read))
@ -729,6 +728,10 @@
%+ rail %+ rail
(ifix [sel ser] (stag %cltr (most ace wide:vez))) (ifix [sel ser] (stag %cltr (most ace wide:vez)))
;~(pfix gap tall:vez) ;~(pfix gap tall:vez)
::
++ alt
%+ rail fail
;~(sfix (star for) gap duz)
:: ::
++ day ++ day
%+ rail %+ rail
@ -737,43 +740,39 @@
:: ::
++ dub ++ dub
%+ rail %+ rail
;~(plug sym ;~(pfix tis apex(tol |))) ;~(plug sym ;~(pfix tis day))
;~(pfix gap ;~(plug sym ;~(pfix gap apex))) ;~(pfix gap ;~(plug sym day))
:: ::
++ fan ++ fan
%+ rail fail %+ rail fail
;~(sfix (star ;~(pfix gap apex)) ;~(plug gap duz)) ;~(sfix (star day) gap duz)
:: ::
++ for ++ for
%+ rail %+ rail
;~(plug (ifix [sel ser] hath) apex(tol |)) ;~(plug (ifix [sel ser] hath) day)
;~(pfix gap ;~(plug hath ;~(pfix gap apex))) ;~(pfix gap fas ;~(plug hath day))
:: ::
++ man ++ man
%+ rail fail %+ rail fail
%- sear %+ cook ~(gas by *(map term ^horn))
:_ ;~(sfix (star ;~(pfix gap apex)) ;~(plug gap duz)) =< ;~(sfix (star (sear . day)) gap duz)
|= fan=(list ^horn) |= a=^horn ^- (unit ,[term ^horn])
=| naf=(list (pair term ^horn)) ?+(-.a ~ %dub `[p.a q.a])
|- ^- (unit (map term ^horn))
?~ fan (some (~(gas by *(map term ^horn)) naf))
?. ?=(%dub -.i.fan) ~
$(fan t.fan, naf [[p.i.fan q.i.fan] naf])
:: ::
++ saw ++ saw
%+ rail %+ rail
;~(plug ;~(sfix wide:vez sem) apex(tol |)) ;~(plug ;~(sfix wide:vez sem) day)
;~(pfix gap ;~(plug tall:vez ;~(pfix gap apex))) ;~(pfix gap ;~(plug tall:vez day))
:: ::
++ see ++ see
%+ rail %+ rail
;~(plug ;~(sfix have col) apex(tol |)) ;~(plug ;~(sfix have col) day)
;~(pfix gap ;~(plug have ;~(pfix gap apex))) ;~(pfix gap ;~(plug have day))
:: ::
++ sic ++ sic
%+ rail %+ rail
;~(plug ;~(sfix toil:vez ket) apex(tol |)) ;~(plug ;~(sfix toil:vez ket) day)
;~(pfix gap ;~(plug howl:vez ;~(pfix gap apex))) ;~(pfix gap ;~(plug howl:vez day))
-- --
:: ::
-- --
@ -1566,10 +1565,12 @@
(maul cof gat !>([how arg])) (maul cof gat !>([how arg]))
:: ::
%alt %alt
%. cof =+ opt=|.(>(turn p.hon |=([a=path ^] a))<)
|= cof=cafe ^- (bolt vase) |- ^- (bolt vase)
?~ p.hon (flaw cof leaf/"ford: out of options" ~) ?~ p.hon (flaw cof leaf/"ford: out of options" *opt ~)
(coop ^$(cof cof, hon i.p.hon) ..$(p.hon t.p.hon)) ?: =(p.i.p.hon (scag (lent p.i.p.hon) (flop s.how)))
^$(hon q.i.p.hon)
$(p.hon t.p.hon)
:: ::
%day (chad cof bax %dr p.hon) %day (chad cof bax %dr p.hon)
%dub %dub
@ -1646,10 +1647,17 @@
=. r.p.hon ?:(?=([%ud 0] r.p.hon) r.how r.p.hon) =. r.p.hon ?:(?=([%ud 0] r.p.hon) r.how r.p.hon)
$(hon q.hon, how p.hon) $(hon q.hon, how p.hon)
:: ::
?(%fan %alt) %fan
|- ^+ acc |- ^+ acc
?~ p.hon acc ?~ p.hon acc
^$(hon i.p.hon, acc $(p.hon t.p.hon)) ^$(hon i.p.hon, acc $(p.hon t.p.hon))
::
%alt
|- ^+ acc
?~ p.hon acc
?: =(p.i.p.hon (scag (lent p.i.p.hon) (flop s.how)))
^$(hon q.i.p.hon)
$(p.hon t.p.hon)
:: ::
%man %man
|- ^+ acc |- ^+ acc
@ -1888,6 +1896,7 @@
~ ~
:: ::
++ load :: highly forgiving ++ load :: highly forgiving
=- => + |=(old=axle ..^$(+>- old))
=< |= old=?(axle [%1 pol=(map ship baby-1)]) =< |= old=?(axle [%1 pol=(map ship baby-1)])
?- -.old ?- -.old
%2 ..^$(+>- old) %2 ..^$(+>- old)

2
arvo/zuse.hoon
View File

@ -2512,7 +2512,7 @@
++ horn :: resource tree ++ horn :: resource tree
$% [%ape p=twig] :: /~ twig by hand $% [%ape p=twig] :: /~ twig by hand
[%arg p=twig] :: /$ argument [%arg p=twig] :: /$ argument
[%alt p=(list horn)] :: /# options [%alt p=(list (pair path:spur horn))] :: /# options
[%day p=horn] :: /| list by @dr [%day p=horn] :: /| list by @dr
[%dub p=term q=horn] :: /= apply face [%dub p=term q=horn] :: /= apply face
[%fan p=(list horn)] :: /. list [%fan p=(list horn)] :: /. list

8
ren/urb.hoon
View File

@ -1,5 +1,5 @@
/% /# /% /#
/talklog-hymn/ /talk /talklog-hymn/
/tree-hymn/ / /tree-hymn/
== ==
`manx`-< `manx`-<