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

gall: preliminary +call cleanup

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

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

@ -878,7 +878,7 @@
=> ap-abut
%_ +>
bum.mas (~(put by bum.mas) dap +<+)
moz :(weld (turn zip ap-aver) (turn dub ap-avid) moz)
moves :(weld (turn zip ap-aver) (turn dub ap-avid) moves)
==
::
++ ap-abut :: track queue
@ -1660,29 +1660,55 @@
--
++ call :: request
~% %gall-call +> ~
|= {hen/duct hic/(hypo (hobo task:able))}
|= [hen=duct hic=(hypo (hobo task:able))]
^+ [*(list move) ..^$]
=> .(q.hic ?.(?=($soft -.q.hic) q.hic ;;(task:able p.q.hic)))
?- -.q.hic
$conf
?. =(our p.p.q.hic)
~& [%gall-not-ours p.p.q.hic]
[~ ..^$]
mo-abet:(mo-conf:(mo-abed:mo hen) q.p.q.hic q.q.hic)
::
$deal
=> .(q.hic ?.(?=($soft -.q.hic) q.hic ;;(task:able p.q.hic)))
::
?- -.q.hic
::
%conf
::
=/ doc=dock p.q.hic
=/ syp=ship p.doc
?. =(our syp)
~& [%gall-not-ours syp]
[~ ..^$]
::
=/ confed
=/ initialised (mo-abed:mo hen)
=/ dud=dude q.doc
:: =/ des=(pair ship desk) q.q.hic :: FIXME doesn't work?!
=| des=(pair ship desk)
(mo-conf:initialised dud des)
::
mo-abet:confed
::
::
%deal
::
=< mo-abet
?. =(our q.p.q.hic) :: either to us
?> =(our p.p.q.hic) :: or from us
(mo-away:(mo-abed:mo hen) q.p.q.hic q.q.hic)
(mo-come:(mo-abed:mo hen) p.p.q.hic q.q.hic)
::
$init
::
%init
::
[~ ..^$(sys.mast.all hen)]
::
$vega [~ ..^$]
::
%sunk [~ ..^$]
::
::
$west
::
%vega [~ ..^$]
::
::
::
%west
::
?> ?=({?($ge $gh) @ ~} q.q.hic)
=* dap i.t.q.q.hic
=* him p.q.hic