ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-15 10:02:47 +03:00
Code Issues Packages Projects Releases Wiki Activity

gall: clean up +mo-cook

Browse Source
This commit is contained in:
Jared Tobin 2019-04-12 08:29:43 +12:00 committed by Jared Tobin
parent 8473697d19
commit a46234d60b
No known key found for this signature in database
GPG Key ID: 0E4647D58F8A69E4
1 changed files with 43 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

65
pkg/arvo/sys/vane/gall.hoon
View File

@ -640,30 +640,51 @@
%way (mo-cyst-way pax sih)
==
::
++ mo-cook :: take in /use
:: +mo-cook: take in /use.
::
++ mo-cook
~/ %mo-cook
|= {pax/path hin/(hypo sign-arvo)}
^+ +>
?. ?=({@ @ $?($inn $out $cay) *} pax)
~& [%mo-cook-bad-pax pax]
!!
=+ dap=`@tas`i.pax
=+ pry=`prey`[%high [~ (slav %p i.t.pax)]]
=+ pap=(ap-abed:ap dap pry)
=+ vax=(slot 3 `vase`hin)
?- i.t.t.pax
$inn ap-abet:(ap-pour:pap t.t.t.pax (slot 3 `vase`hin))
$cay ::?. ?=({$e $sigh *} q.hin)
~& [%mo-cook-weird q.hin]
~& [%mo-cook-weird-path pax]
+>.$
::ap-abet:(ap-purr:pap +<.q.hin t.t.t.pax +>.q.hin)
|= [=path hin=(hypo sign-arvo)]
^+ mo-state
::
$out ?. ?=({$g $unto *} q.hin)
~& [%mo-cook-weird q.hin]
~& [%mo-cook-weird-path pax]
+>.$
ap-abet:(ap-pout:pap t.t.t.pax +>.q.hin)
?. ?=([@ @ coke *] path)
~& [%mo-cook-bad-pax path]
!!
::
=/ pap
=/ =term i.path
=/ =ffuc [~ (slav %p i.t.path)]
=/ =prey [%high ffuc]
(ap-abed:ap term prey)
::
=/ vax
=/ =vase hin
(slot 3 vase)
::
?- i.t.t.path
::
%inn
::
=/ poured (ap-pour:pap t.t.t.path vax)
ap-abet:poured
::
%cay
::
?. ?=([%e %sigh *] q.hin)
~& [%mo-cook-weird q.hin]
~& [%mo-cook-weird-path path]
mo-state
=/ purred (ap-purr:pap +<.q.hin t.t.t.path +>.q.hin)
ap-abet:purred
::
%out
::
?. ?=([%g %unto *] q.hin)
~& [%mo-cook-weird q.hin]
~& [%mo-cook-weird-path path]
mo-state
=/ pouted (ap-pout:pap t.t.t.path +>.q.hin)
ap-abet:pouted
==
::
++ mo-claw :: clear queue