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-claw, +mo-beak

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

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

@ -687,26 +687,40 @@
ap-abet:pouted ap-abet:pouted
== ==
:: ::
++ mo-claw :: clear queue :: +mo-claw: clear queue.
|= dap/dude
^+ +>
?. (~(has by bum.mas) dap) +>
=+ suf=(~(get by wub.mas) dap)
?~ suf +>.$
|- ^+ +>.^$
?: =(~ kys.u.suf)
+>.^$(wub.mas (~(del by wub.mas) dap))
=^ lep kys.u.suf [p q]:~(get to kys.u.suf)
$(moz :_(moz [p.lep %slip %g %deal [q.q.q.lep our] dap r.lep]))
:: $(+>.^$ (mo-clip(hen p.lep) dap q.lep r.lep))
:: ::
++ mo-beak :: build beak ++ mo-claw
|= dap/dude |= =dude
=- ?.(=(p our) - -(r [%da now])) :: soft dependencies ^+ mo-state
::
?. (~(has by bum.mas) dude)
mo-state
::
=/ suf (~(get by wub.mas) dude)
?~ suf
mo-state
::
|-
^+ mo-state
::
?: =(~ kys.u.suf)
%_ mo-state
wub.mas (~(del by wub.mas) dude)
==
::
=^ lep kys.u.suf [p q]:~(get to kys.u.suf)
::
=/ move [p.lep %slip %g %deal [q.q.q.lep our] dude r.lep]
$(moves [move moves])
::
:: +mo-beak: build beak.
::
++ mo-beak
|= =dude
^- beak ^- beak
?~ app-data=(~(get by bum.mas) dap) ?~ app-data=(~(get by bum.mas) dude)
:: ::
:: XX this fallback is necessary, as .dap could be either the source :: XX this fallback is necessary, as .dude could be either the source
:: or the destination app. ie, it might not exist locally ... :: or the destination app. ie, it might not exist locally ...
:: ::
[our %home %da now] [our %home %da now]