urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-12 18:48:14 +03:00
Code Issues Packages Projects Releases Wiki Activity

dbg wip

Browse Source
This commit is contained in:
Anton Dyudin 2015-02-19 21:27:23 -08:00
parent 0928494416
commit bdf3f1400a
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
arvo/ford.hoon
View File

@ -474,7 +474,12 @@
|= [cof=cafe for=mark bem=beam] |= [cof=cafe for=mark bem=beam]
^- (bolt hood) ^- (bolt hood)
%+ cool |.(leaf/"ford: fade {<[(tope bem)]>}") %+ cool |.(leaf/"ford: fade {<[(tope bem)]>}")
%+ cope (make cof [%bake for bem ~]) %+ cope ~& fade/bem
%- ~& %wat make
~& %wut
=- ~& %wut-done -
[cof [%bake for bem ~]]
~& %fade-clef
|= [cof=cafe cay=cage] |= [cof=cafe cay=cage]
%+ (clef %hood) (fine cof bem cay) %+ (clef %hood) (fine cof bem cay)
^- (burg (pair beam cage) hood) ^- (burg (pair beam cage) hood)
@ -493,7 +498,8 @@
=+ pax=/door/[for]/mar =+ pax=/door/[for]/mar
=+ ^= bem ^- beam =+ ^= bem ^- beam
:_ pax :_ pax
?: &(=(p.bek our) =(q.bek %main)) bek ?: &(=(p.bek our) =(q.bek %main) !=(r.bek [%da now]))
bek
=+ ren=(ska %cw (tope [our %main %da now] ~)) :: XX at requested one =+ ren=(ska %cw (tope [our %main %da now] ~)) :: XX at requested one
?. ?=([~ ~ @u] ren) ?. ?=([~ ~ @u] ren)
bek bek
@ -503,6 +509,7 @@
bek bek
=^ deh r.cof (daze(deh.bay r.cof) dep) :: XX sanity =^ deh r.cof (daze(deh.bay r.cof) dep) :: XX sanity
=+ arg=`spur`[%dep (scot %uv deh) ~] =+ arg=`spur`[%dep (scot %uv deh) ~]
~& [%fang for]
(cope (fade cof %hook bem) abut:(meow bem arg)) (cope (fade cof %hook bem) abut:(meow bem arg))
:: ::
++ fair :: hood parsing rule ++ fair :: hood parsing rule
@ -905,9 +912,12 @@
|=(val=* `vase`[typ val]) |=(val=* `vase`[typ val])
:: ::
++ make :: reduce silk ++ make :: reduce silk
|= [cof=cafe kas=silk] ~& %make-wha-bunt
=| [cof=cafe kas=silk]
~& %make-wha-trap
|.
^- (bolt cage) ^- (bolt cage)
:: ~& [%make -.kas] ~& [%make -.kas]
?- -.kas ?- -.kas
^ ^
%. [cof p.kas q.kas] %. [cof p.kas q.kas]
@ -922,6 +932,7 @@
== ==
:: ::
%bake %bake
~& > (tope q.kas)
%+ cool |.(leaf/"ford: bake {<p.kas>} {<(tope q.kas)>}") %+ cool |.(leaf/"ford: bake {<p.kas>} {<(tope q.kas)>}")
%+ cope (lima cof p.kas q.kas r.kas) %+ cope (lima cof p.kas q.kas r.kas)
|= [cof=cafe vux=(unit vase)] |= [cof=cafe vux=(unit vase)]