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

2
arvo/zuse.hoon
View File

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

8
ren/urb.hoon
View File

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