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

nupump ready to call, in theory.

Browse Source
This commit is contained in:
C. Guy Yarvin 2016-07-29 19:08:34 -07:00
parent 339feb8ba6
commit ad8d3f2498
1 changed files with 56 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
arvo/ames.hoon
View File

@ -1332,23 +1332,37 @@
?~ caz [~ fox]
=^ lef fox $(caz l.caz)
=^ ryt fox $(caz r.caz)
:: =^ bun fox zork:(wake:(um p.n.caz) hen) :: XX oldpump
:: oldpump
:: =^ bun fox zork:(wake:(um p.n.caz) hen)
::
:: newpump
=^ bun fox zork:(walk:(um p.n.caz) hen)
::
:: nupump
:: =^ bun fox zork:(walq:(um p.n.caz) hen)
:_(fox :(weld p.lef p.ryt p.bun))
::
++ wise :: wise:am
|= {soq/sock hen/duct cha/path val/*} :: send request
^- {p/(list boon) q/fort}
:: XX oldpump
:: oldpump
:: zork:abet:(we-wool:(wend:(ho:(um p.soq) q.soq) hen) cha val)
::
:: newpump
zork:abet:(we-woof:(wend:(ho:(um p.soq) q.soq) hen) cha val)
::
:: nupump
:: zork:abet:(ve-wood:(vend:(ho:(um p.soq) q.soq) hen) cha val)
::
++ wish :: wise:am
|= {soq/sock kos/bole cha/path val/*} :: return response
^- {p/(list boon) q/fort}
:: XX oldpump
:: oldpump
:: zork:abet:(we-wool:(wand:(ho:(um p.soq) q.soq) kos) cha val)
:: newpump
zork:abet:(we-woof:(wand:(ho:(um p.soq) q.soq) kos) cha val)
:: nupump
:: zork:abet:(ve-wood:(vand:(ho:(um p.soq) q.soq) kos) cha val)
::
++ um :: per server
|= our/ship
@ -1364,7 +1378,7 @@
:(hunt $(wab.weg l.wab.weg) $(wab.weg r.wab.weg) doze:(ho p.n.wab.weg))
::
++ wake :: wake:um:am
|= hen/duct :: activate
|= hen/duct :: activate (oldpump)
=. +> (kick hen)
=+ baw=wab.weg
|- ^+ +>.^$
@ -1374,12 +1388,19 @@
abet:thaw:(ho p.n.baw)
::
++ walk :: walk:um:am
|= hen/duct :: activate
|= hen/duct :: activate (newpump)
=^ gup pod.weg (~(top se pod.weg) now)
|- ^+ +>.^$
?~ gup +>.^$
$(gup t.gup, +>.^$ abet:(balk:(ho p.i.gup) q.i.gup))
::
++ walq :: walk:um:am
|= hen/duct :: activate (nupump)
=^ gup pod.weg (~(top se pod.weg) now)
|- ^+ +>.^$
?~ gup +>.^$
$(gup t.gup, +>.^$ abet:(balq:(ho p.i.gup) q.i.gup))
::
++ ho :: ho:um:am
|= her/ship :: per friend
=+ diz=(myx:gus her)
@ -1399,13 +1420,18 @@
?. (~(has by sal.bah) ost)
~& [%back-lost ost (flam dam)]
+>
:: XX oldpump
:: oldpump
:: ~& [%back-took ost (flam dam)]
:: (~(we-tock we ost (~(got by sal.bah) ost)) dam cop lag)
::
:: newpump
abet:(back:(cave ost) dam cop lag)
::
:: nupump
:: ve-abet:(ve-tock:(vand ost) dam cop lag)
::
++ balk :: balk:ho:um:am
|= kos/bole :: wakeup
|= kos/bole :: wakeup (newpump)
^+ +>
:: XX pumpstuff
=+ vac=(cave kos)
@ -1413,6 +1439,11 @@
=. +>.$ abet:vac
(busk xong:diz pex)
::
++ balq
|= kos/bole :: wakeup (nupump)
^+ +>
ve-abet:ve-wake:(vand ost)
::
++ busk :: busk:ho:um:am
|= {waz/(list ship) pex/(list rock)} :: send packets
%_ +>
@ -1828,11 +1859,24 @@
::
++ doze :: doze:ho:um:am
^- (unit @da) :: wait until
:: oldpump
:: rtn.sop.bah :: XX oldpump
::
:: newpump
=+ doe=~(til se pod.weg)
?: ?=($~ doe)
~
doe
::
:: nupump
::
:: =| wun/(unit @da)
:: |- ^- (unit @da)
:: ?~ sal.bah ~
:: =. wun $(sal.bah l.sal.bah)
:: =. wun $(sal.bah r.sal.bah)
:: =+ nuw=ve-wait:(vond p.n.sal.bah q.n.sal.bah)
:: ?~(wun nuw ?~(nuw wun `(min u.nuw u.wun)))
::
++ fore :: fore:ho:um:am
|= {ryn/lane who/ship via/(unit lane) msg/@} :: forward packet
@ -2009,7 +2053,7 @@
::
++ thaw :: thaw:ho:um:am
^+ . :: wakeup
.
::
++ ve :: outbound core
|_ $: kos/bole ::
@ -2115,6 +2159,10 @@
^- (unit @da)
wait:mup
:: ::
++ ve-wake :: timeout
^+ .
.(mup (flay:mup now))
:: ::
++ ve-wood :: send
|= {cha/path val/*}
^+ +>