mirror of
https://github.com/urbit/shrub.git
synced 2025-01-07 05:26:56 +03:00
dill: adds %goad automation
This commit is contained in:
Joe Bryan
parent
c930aceec6
commit
5ace479711
@ -8,10 +8,11 @@
|
|||||||
-- ::
|
-- ::
|
||||||
=> |% :: console protocol
|
=> |% :: console protocol
|
||||||
++ axle ::
|
++ axle ::
|
||||||
$: $1 ::
|
$: $2 ::
|
||||||
hey/(unit duct) :: default duct
|
hey/(unit duct) :: default duct
|
||||||
dug/(map duct axon) :: conversations
|
dug/(map duct axon) :: conversations
|
||||||
lit/? :: boot in lite mode
|
lit/? :: boot in lite mode
|
||||||
|
dog/_| :: auto-goad
|
||||||
$= hef :: other weights
|
$= hef :: other weights
|
||||||
$: a/(unit mass) ::
|
$: a/(unit mass) ::
|
||||||
b/(unit mass) ::
|
b/(unit mass) ::
|
||||||
@ -46,7 +47,10 @@
|
|||||||
$>(%wegh task:able:ames) ::
|
$>(%wegh task:able:ames) ::
|
||||||
== ::
|
== ::
|
||||||
$: %b ::
|
$: %b ::
|
||||||
$>(%wegh task:able:behn) ::
|
$> $? %wait ::
|
||||||
|
%wegh ::
|
||||||
|
== ::
|
||||||
|
task:able:behn ::
|
||||||
== ::
|
== ::
|
||||||
$: %c ::
|
$: %c ::
|
||||||
$> $? %merg :: merge desks
|
$> $? %merg :: merge desks
|
||||||
@ -76,6 +80,7 @@
|
|||||||
$: %g ::
|
$: %g ::
|
||||||
$> $? %conf ::
|
$> $? %conf ::
|
||||||
%deal ::
|
%deal ::
|
||||||
|
%goad ::
|
||||||
%wegh ::
|
%wegh ::
|
||||||
== ::
|
== ::
|
||||||
task:able:gall ::
|
task:able:gall ::
|
||||||
@ -100,7 +105,10 @@
|
|||||||
gift:able:ames ::
|
gift:able:ames ::
|
||||||
== == ::
|
== == ::
|
||||||
$: %b ::
|
$: %b ::
|
||||||
$% $>(%mass gift:able:behn) ::
|
$% $> $? %mass ::
|
||||||
|
%wake ::
|
||||||
|
== ::
|
||||||
|
gift:able:behn ::
|
||||||
$>(%writ gift:able:clay) :: XX %slip
|
$>(%writ gift:able:clay) :: XX %slip
|
||||||
== == ::
|
== == ::
|
||||||
$: %c ::
|
$: %c ::
|
||||||
@ -149,13 +157,46 @@
|
|||||||
^- {(list move) axle}
|
^- {(list move) axle}
|
||||||
[(flop moz) all(dug (~(put by dug.all) hen +<+))]
|
[(flop moz) all(dug (~(put by dug.all) hen +<+))]
|
||||||
::
|
::
|
||||||
|
++ auto :: stage automation
|
||||||
|
^+ .
|
||||||
|
?. dog.all .
|
||||||
|
=. dog.all |
|
||||||
|
(pass /auto/one [%b %wait +(now)])
|
||||||
|
::
|
||||||
|
++ auto-wake :: resume automation
|
||||||
|
|= [=wire error=(unit tang)]
|
||||||
|
?+ wire
|
||||||
|
?~ error
|
||||||
|
~|(behn-bad-wake+wire !!)
|
||||||
|
(crud %wake u.error)
|
||||||
|
::
|
||||||
|
[%auto %one ~]
|
||||||
|
?~ error
|
||||||
|
~& %behn-goad
|
||||||
|
(pass / [%g %goad force=| ~])
|
||||||
|
:: %goad crashed, wait again, then force
|
||||||
|
::
|
||||||
|
~& %behn-goad-retry
|
||||||
|
%. [/auto/two [%b %wait +(now)]]
|
||||||
|
pass:(crud %goad u.error)
|
||||||
|
::
|
||||||
|
[%auto %two ~]
|
||||||
|
?~ error
|
||||||
|
~& %behn-goad-again
|
||||||
|
(pass / [%g %goad force=& ~])
|
||||||
|
:: %goad crashed again, bail out
|
||||||
|
::
|
||||||
|
~& %behn-goad-fail
|
||||||
|
(crud %goad u.error)
|
||||||
|
==
|
||||||
|
::
|
||||||
++ call :: receive input
|
++ call :: receive input
|
||||||
|= kyz/task:able
|
|= kyz/task:able
|
||||||
^+ +>
|
^+ +>
|
||||||
?+ -.kyz ~& [%strange-kiss -.kyz] +>
|
?+ -.kyz ~& [%strange-kiss -.kyz] +>
|
||||||
$flow +>
|
$flow +>
|
||||||
$harm +>
|
$harm +>
|
||||||
$hail (send %hey ~)
|
$hail auto:(send %hey ~)
|
||||||
$belt (send `dill-belt`p.kyz)
|
$belt (send `dill-belt`p.kyz)
|
||||||
$text (from %out (tuba p.kyz))
|
$text (from %out (tuba p.kyz))
|
||||||
$crud :: (send `dill-belt`[%cru p.kyz q.kyz])
|
$crud :: (send `dill-belt`[%cru p.kyz q.kyz])
|
||||||
@ -371,7 +412,7 @@
|
|||||||
(deal / [%pump ~])
|
(deal / [%pump ~])
|
||||||
::
|
::
|
||||||
++ take :: receive
|
++ take :: receive
|
||||||
|= sih/sign
|
|= {tea/wire sih/sign}
|
||||||
^+ +>
|
^+ +>
|
||||||
?- sih
|
?- sih
|
||||||
{?($a $b $c $e $f $g $i $j) $mass *}
|
{?($a $b $c $e $f $g $i $j) $mass *}
|
||||||
@ -425,6 +466,9 @@
|
|||||||
::
|
::
|
||||||
{$d $blit *}
|
{$d $blit *}
|
||||||
(done +.sih)
|
(done +.sih)
|
||||||
|
::
|
||||||
|
{$b $wake *}
|
||||||
|
(auto-wake tea error.sih)
|
||||||
==
|
==
|
||||||
:: +wegh: receive a memory report from a vane and maybe emit full report
|
:: +wegh: receive a memory report from a vane and maybe emit full report
|
||||||
::
|
::
|
||||||
@ -554,8 +598,38 @@
|
|||||||
[moz ..^$]
|
[moz ..^$]
|
||||||
::
|
::
|
||||||
++ load :: import old state
|
++ load :: import old state
|
||||||
|= old/axle
|
=> |%
|
||||||
..^$(all old)
|
:: without .dog
|
||||||
|
::
|
||||||
|
++ axle-one
|
||||||
|
$: $1
|
||||||
|
hey/(unit duct)
|
||||||
|
dug/(map duct axon)
|
||||||
|
lit/?
|
||||||
|
$= hef
|
||||||
|
$: a/(unit mass)
|
||||||
|
b/(unit mass)
|
||||||
|
c/(unit mass)
|
||||||
|
e/(unit mass)
|
||||||
|
f/(unit mass)
|
||||||
|
g/(unit mass)
|
||||||
|
i/(unit mass)
|
||||||
|
j/(unit mass)
|
||||||
|
==
|
||||||
|
$= veb
|
||||||
|
$~ (~(put by *(map @tas log-level)) %hole %soft)
|
||||||
|
(map @tas log-level)
|
||||||
|
==
|
||||||
|
::
|
||||||
|
++ axle-both
|
||||||
|
$%(axle-one axle)
|
||||||
|
--
|
||||||
|
::
|
||||||
|
|= old=axle-both
|
||||||
|
?- -.old
|
||||||
|
%1 $(old [%2 [hey dug lit dog=& hef veb]:old])
|
||||||
|
%2 ..^$(all old)
|
||||||
|
==
|
||||||
::
|
::
|
||||||
++ scry
|
++ scry
|
||||||
|= {fur/(unit (set monk)) ren/@tas why/shop syd/desk lot/coin tyl/path}
|
|= {fur/(unit (set monk)) ren/@tas why/shop syd/desk lot/coin tyl/path}
|
||||||
@ -576,6 +650,6 @@
|
|||||||
::
|
::
|
||||||
~& [%dill-take-no-flow hen -.q.hin +<.q.hin]
|
~& [%dill-take-no-flow hen -.q.hin +<.q.hin]
|
||||||
[~ ..^$]
|
[~ ..^$]
|
||||||
=^ moz all abet:(take:u.nus q.hin)
|
=^ moz all abet:(take:u.nus tea q.hin)
|
||||||
[moz ..^$]
|
[moz ..^$]
|
||||||
--
|
--
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user