ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-09-21 15:38:59 +03:00
Code Issues Packages Projects Releases Wiki Activity

Proper ship dispatching of wake events.

Browse Source
This commit is contained in:
C. Guy Yarvin 2013-11-20 12:35:57 -08:00
parent db2e786e55
commit d1889a2333
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
arvo/batz.hoon
View File

@ -1171,7 +1171,7 @@
[[[wru [/d hen] [%flog fav]] ~] ..^$] [[[wru [/d hen] [%flog fav]] ~] ..^$]
?: ?=(%wake -.fav) ?: ?=(%wake -.fav)
=+ ^= fiy =+ ^= fiy
=| fiy=(list ,[p=duct q=[p=@ud q=@ud r=wire]]) =| fiy=(list ,[p=duct q=ship r=[p=@ud q=@ud r=wire]])
|- ^+ fiy |- ^+ fiy
?~ dez fiy ?~ dez fiy
=. fiy $(dez l.dez) =. fiy $(dez l.dez)
@ -1186,22 +1186,23 @@
=. fiy $(tem.q.i.q.n.dez l.tem.q.i.q.n.dez) =. fiy $(tem.q.i.q.n.dez l.tem.q.i.q.n.dez)
=. fiy $(tem.q.i.q.n.dez r.tem.q.i.q.n.dez) =. fiy $(tem.q.i.q.n.dez r.tem.q.i.q.n.dez)
?. (lte q.n.tem.q.i.q.n.dez now) fiy ?. (lte q.n.tem.q.i.q.n.dez now) fiy
[[p.n.dez p.n.tem.q.i.q.n.dez] fiy] [[p.n.dez p.i.q.n.dez p.n.tem.q.i.q.n.dez] fiy]
== ==
=| wam=(list move) =| wam=(list move)
|- ^- [p=(list move) q=vane] |- ^- [p=(list move) q=vane]
?~ fiy [wam ..^^$] ?~ fiy [wam ..^^$]
=+ dos=(need (~(get by dez) p.i.fiy)) =+ dos=(need (~(get by dez) p.i.fiy))
=+ geb=((be [[p.i.dos bred] q.i.dos]) now eny sky) =+ suy=|-(`brad`?~(dos !! ?.(=(q.i.fiy p.i.dos) $(dos t.dos) q.i.dos)))
=+ geb=((be [[q.i.fiy bred] suy]) now eny sky)
=+ ^= yub ^- [p=(list move) q=brat] =+ ^= yub ^- [p=(list move) q=brat]
?. (fang:geb q.i.fiy) ?. (fang:geb r.i.fiy)
~& [%time-lost q.i.fiy] ~& [%time-lost r.i.fiy]
[~ abet:(flub:geb q.i.fiy)] [~ abet:(flub:geb r.i.fiy)]
(lake:geb p.i.fiy q.i.fiy) (lake:geb p.i.fiy r.i.fiy)
%= $ %= $
fiy t.fiy fiy t.fiy
wam (weld p.yub wam) wam (weld p.yub wam)
dez.^^$ (~(put by dez.^^$) p.i.fiy [[p.i.dos +.q.yub] t.dos]) dez.^^$ (~(put by dez.^^$) p.i.fiy [[q.i.fiy +.q.yub] t.dos])
== ==
=+ dus=(~(get by dez) hen) =+ dus=(~(get by dez) hen)
?~ dus ?~ dus