mirror of
https://github.com/urbit/shrub.git
synced 2024-12-13 16:03:36 +03:00
Cleanup printfs.
This commit is contained in:
C. Guy Yarvin
parent
bf8cc5789b
commit
3bfa8dec5e
@ -325,8 +325,7 @@
|
|||||||
++ back :: process raw ack
|
++ back :: process raw ack
|
||||||
|= {dam/flap cop/coop lag/@dr}
|
|= {dam/flap cop/coop lag/@dr}
|
||||||
^+ +>
|
^+ +>
|
||||||
=- ~& [%lose (flam dam) cop lag]
|
=- (done:(lose(liv lov) ded) ack dam cop lag)
|
||||||
(done:(lose(liv lov) ded) ack dam cop lag)
|
|
||||||
|- ^- $: ack/(unit coal)
|
|- ^- $: ack/(unit coal)
|
||||||
ded/(list coal)
|
ded/(list coal)
|
||||||
lov/(qeu coal)
|
lov/(qeu coal)
|
||||||
@ -398,13 +397,16 @@
|
|||||||
|= {lyd/(unit coal) dam/flap cop/coop lag/@dr}
|
|= {lyd/(unit coal) dam/flap cop/coop lag/@dr}
|
||||||
^+ +>
|
^+ +>
|
||||||
?~ lyd +>
|
?~ lyd +>
|
||||||
+>(fex [[%good dam tel.clu.u.lyd cop] fex])
|
%_ +>
|
||||||
|
cur.saw (dec cur.saw)
|
||||||
|
fex [[%good dam tel.clu.u.lyd cop] fex]
|
||||||
|
==
|
||||||
:: ::
|
:: ::
|
||||||
++ fire :: send a packet
|
++ fire :: send a packet
|
||||||
|= {now/@da clu/clue}
|
|= {now/@da clu/clue}
|
||||||
^+ +>
|
^+ +>
|
||||||
?> (lth cur.saw max.saw)
|
?> (lth cur.saw max.saw)
|
||||||
=+ out=?:(=(las.saw now) +(now) now)
|
=+ out=?:((lte now las.saw) +(las.saw) now)
|
||||||
=+ lod=(add now (mul 2 rtt.saw))
|
=+ lod=(add now (mul 2 rtt.saw))
|
||||||
=. lod ?:((gth lod lad.saw) lod +(lad.saw))
|
=. lod ?:((gth lod lad.saw) lod +(lad.saw))
|
||||||
~& [%fire (flam fap.clu) `@da`out `@da`lod]
|
~& [%fire (flam fap.clu) `@da`out `@da`lod]
|
||||||
@ -419,11 +421,7 @@
|
|||||||
++ flay :: time out packets
|
++ flay :: time out packets
|
||||||
|= now/@da
|
|= now/@da
|
||||||
^+ +>
|
^+ +>
|
||||||
=- ~& [%lose liv+(lent (~(tap to q.ole))) did+(lent p.ole)]
|
=- (lose(liv q.ole) p.ole)
|
||||||
~& [%cursaw cur.saw]
|
|
||||||
=. +>.$ (lose(liv q.ole) p.ole)
|
|
||||||
~& [%after-lose cur.saw (lent (~(tap to liv)))]
|
|
||||||
+>.$
|
|
||||||
^= ole
|
^= ole
|
||||||
=| ded/(list coal)
|
=| ded/(list coal)
|
||||||
|- ^+ [p=ded q=liv]
|
|- ^+ [p=ded q=liv]
|
||||||
@ -432,7 +430,8 @@
|
|||||||
::
|
::
|
||||||
:: everything in front of a dead packet is dead
|
:: everything in front of a dead packet is dead
|
||||||
::
|
::
|
||||||
$(liv l.liv, ded (~(tap to r.liv) [n.liv ~]))
|
=+ foo=(~(tap to r.liv) [n.liv ~])
|
||||||
|
$(liv l.liv, ded (~(tap to r.liv) [n.liv ded]))
|
||||||
=+ ryt=$(liv r.liv)
|
=+ ryt=$(liv r.liv)
|
||||||
[p.ryt [n.liv l.liv q.ryt]]
|
[p.ryt [n.liv l.liv q.ryt]]
|
||||||
:: ::
|
:: ::
|
||||||
@ -440,9 +439,6 @@
|
|||||||
|= cud/(list coal)
|
|= cud/(list coal)
|
||||||
^+ +>
|
^+ +>
|
||||||
?~ cud +>
|
?~ cud +>
|
||||||
~& :~ %pump-drop
|
|
||||||
[%clue vig.clu.i.cud tel.clu.i.cud (flam fap.clu.i.cud)]
|
|
||||||
==
|
|
||||||
=. +> (clap clu.i.cud)
|
=. +> (clap clu.i.cud)
|
||||||
%= $
|
%= $
|
||||||
cud t.cud
|
cud t.cud
|
||||||
@ -1302,8 +1298,8 @@
|
|||||||
[~ fox]
|
[~ fox]
|
||||||
=< zork
|
=< zork
|
||||||
=< abet
|
=< abet
|
||||||
~& [%in p.p.kec ryn `@p`(mug (shaf %flap pac))]
|
:: ~& [%in p.p.kec ryn `@p`(mug (shaf %flap pac))]
|
||||||
~& [%in p.p.kec (flam (shaf %flap pac))]
|
:: ~& [%in p.p.kec (flam (shaf %flap pac))]
|
||||||
%- chew:(ho:(um q.p.kec) p.p.kec)
|
%- chew:(ho:(um q.p.kec) p.p.kec)
|
||||||
[q.kec (shaf %flap pac) ryn r.kec]
|
[q.kec (shaf %flap pac) ryn r.kec]
|
||||||
::
|
::
|
||||||
@ -2073,11 +2069,7 @@
|
|||||||
mup/_pume ::
|
mup/_pume ::
|
||||||
colt ::
|
colt ::
|
||||||
== ::
|
== ::
|
||||||
++ ve-abed
|
++ ve-abed [[kos +<+>] +>]:ve-able :: raw resolve
|
||||||
=> ve-able
|
|
||||||
~& [%abed-live (lent (~(tap to liv.mup)))]
|
|
||||||
[[kos +<+>] +>] :: raw resolve
|
|
||||||
::
|
|
||||||
++ ve-abet :: resolve core
|
++ ve-abet :: resolve core
|
||||||
=> ve-able
|
=> ve-able
|
||||||
%= +>
|
%= +>
|
||||||
@ -2111,13 +2103,13 @@
|
|||||||
:: ::
|
:: ::
|
||||||
++ ve-back :: hear an ack
|
++ ve-back :: hear an ack
|
||||||
|= {dam/flap cop/coop lag/@dr}
|
|= {dam/flap cop/coop lag/@dr}
|
||||||
~& [%ve-back (flam dam) cop lag]
|
:: ~& [%ve-back (flam dam) cop lag]
|
||||||
+>(mup (back:mup dam cop lag))
|
+>(mup (back:mup dam cop lag))
|
||||||
:: ::
|
:: ::
|
||||||
++ ve-feed :: feed pump
|
++ ve-feed :: feed pump
|
||||||
^+ .
|
^+ .
|
||||||
=^ cly . (ve-find want.mup)
|
=^ cly . (ve-find want.mup)
|
||||||
~& [%ve-feed want.mup (lent cly)]
|
:: ~& [%ve-feed want.mup (lent cly)]
|
||||||
+(mup (ship:mup now cly))
|
+(mup (ship:mup now cly))
|
||||||
:: ::
|
:: ::
|
||||||
++ ve-find :: collect packets
|
++ ve-find :: collect packets
|
||||||
@ -2147,7 +2139,7 @@
|
|||||||
^+ +>
|
^+ +>
|
||||||
=+ bum=(~(get by cob) q.paz)
|
=+ bum=(~(get by cob) q.paz)
|
||||||
?: |(?=($~ bum) =(~ cly.u.bum))
|
?: |(?=($~ bum) =(~ cly.u.bum))
|
||||||
~& [%ve-good-ignore paz ?=($~ cop)]
|
:: ~& [%ve-good-ignore paz ?=($~ cop)]
|
||||||
+>.$
|
+>.$
|
||||||
?^ cop
|
?^ cop
|
||||||
::
|
::
|
||||||
@ -2180,7 +2172,6 @@
|
|||||||
:: ::
|
:: ::
|
||||||
++ ve-wait :: next wakeup
|
++ ve-wait :: next wakeup
|
||||||
^- (unit @da)
|
^- (unit @da)
|
||||||
~& [%ve-wait wait:mup]
|
|
||||||
wait:mup
|
wait:mup
|
||||||
:: ::
|
:: ::
|
||||||
++ ve-wake :: timeout
|
++ ve-wake :: timeout
|
||||||
@ -2223,7 +2214,7 @@
|
|||||||
4 :: max/@ud
|
4 :: max/@ud
|
||||||
0 :: rey/@ud
|
0 :: rey/@ud
|
||||||
==
|
==
|
||||||
:* (div ~s1 3) :: rtt/@dr
|
:* ~s5 :: rtt/@dr
|
||||||
~2010.1.1 :: las/@da
|
~2010.1.1 :: las/@da
|
||||||
~2010.1.1 :: lad/@da
|
~2010.1.1 :: lad/@da
|
||||||
== ==
|
== ==
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user