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

About to activate nupump.

Browse Source
This commit is contained in:
C. Guy Yarvin 2016-07-30 15:20:12 -07:00
parent ad8d3f2498
commit 604c1a1e02
2 changed files with 32 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
arvo/ames.hoon
View File

@ -1332,6 +1332,7 @@
?~ caz [~ fox]
=^ lef fox $(caz l.caz)
=^ ryt fox $(caz r.caz)
::
:: oldpump
:: =^ bun fox zork:(wake:(um p.n.caz) hen)
::
@ -1339,7 +1340,8 @@
=^ bun fox zork:(walk:(um p.n.caz) hen)
::
:: nupump
:: =^ bun fox zork:(walq:(um p.n.caz) hen)
:: =^ bun fox zork:(wake:(um p.n.caz) hen)
::
:_(fox :(weld p.lef p.ryt p.bun))
::
++ wise :: wise:am
@ -1359,10 +1361,13 @@
^- {p/(list boon) q/fort}
:: 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
@ -1379,6 +1384,7 @@
::
++ wake :: wake:um:am
|= hen/duct :: activate (oldpump)
:: activate (nupump)
=. +> (kick hen)
=+ baw=wab.weg
|- ^+ +>.^$
@ -1394,13 +1400,6 @@
?~ 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)
@ -1429,6 +1428,7 @@
::
:: nupump
:: ve-abet:(ve-tock:(vand ost) dam cop lag)
::
::
++ balk :: balk:ho:um:am
|= kos/bole :: wakeup (newpump)
@ -1439,11 +1439,6 @@
=. +>.$ 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
%_ +>
@ -2050,27 +2045,36 @@
|= hen/duct :: test connection
^+ +>
(conk 0 `@`0 ~)
::
++ thaw :: thaw:ho:um:am
^+ . :: wakeup
:: ::
++ thaw :: activate by time
^+ .
=+ lah=sal.bah
=^ sal +
|- ^+ [lah +>.$]
?~ lah [~ +>.$]
=^ lef +>.$ $(lah l.lah)
=^ ryt +>.$ $(lah r.lah)
=^ nod +>.$ ve-abed:ve-wake:(vond n.lah)
[[nod lef ryt] +>.$]
+>(sal.bah sal)
::
++ ve :: outbound core
|_ $: kos/bole ::
mup/_pume ::
colt ::
== ::
++ ve-abed [[kos +<+>] +>] :: raw resolve
++ ve-abet :: resolve core
=. . ve-able
=. . ve-feed
=. . ve-able
=. . ve-tire
=> ve-able
%= +>
sal.bah
(~(put by sal.bah) kos +<+>)
==
:: ::
++ ve-able :: converge machine
ve-tire:ve-ably:ve-feed:ve-ably
:: ::
++ ve-able :: apply pump effects
++ ve-ably :: apply pump effects
^+ .
=^ fex myn abet:mup
=. mup ~(. pume ~ myn)

6
arvo/hoon.hoon
View File

@ -2786,6 +2786,12 @@
?~ a a
[n=[p=p.n.a q=(b q.n.a)] l=$(a l.a) r=$(a r.a)]
::
+- rut :: apply gate to nodes
|* b/gate
|-
?~ a a
[n=[p=p.n.a q=(b p.n.a q.n.a)] l=$(a l.a) r=$(a r.a)]
::
+- tap :: listify pairs
~/ %tap
|= b/(list _?>(?=(^ a) n.a))