mirror of
https://github.com/urbit/shrub.git
synced 2024-08-17 08:00:39 +03:00
Merge branch 'lf/dead' into dev-summit
This commit is contained in:
commit
589abf09a7
@ -817,6 +817,29 @@
|
||||
=. rav (fume-add rav care.hunt howl)
|
||||
=. riot (~(put of:neo riot) pith.hunt rav)
|
||||
run
|
||||
++ heal
|
||||
|= [dead=hunt:neo how=(set howl:neo)]
|
||||
^+ run
|
||||
=/ how ~(tap in how)
|
||||
|-
|
||||
?~ how
|
||||
run
|
||||
=/ =howl:neo i.how
|
||||
?. ?=(%rely -.howl) :: XX: handle %halt %sell
|
||||
$(how t.how)
|
||||
=/ [=term =pith:neo] +.howl
|
||||
=/ =move:neo
|
||||
[pith.dead [p/our.bowl pith] %poke %dead !>(term)]
|
||||
=. run
|
||||
abet:(arvo move)
|
||||
$(how t.how)
|
||||
|
||||
++ reap
|
||||
|= [change=pith:neo =loot:neo]
|
||||
=/ =rave:neo (~(gut of:neo riot) change *rave:neo)
|
||||
=. run (heal:rage:(heal:rage:(heal x/change exe.rave) y/change why.rave) z/change zed.rave)
|
||||
run(riot (~(del of:neo riot) change))
|
||||
::
|
||||
++ fury
|
||||
|= gis=(list gift:dirt:neo)
|
||||
%- gas-leaf
|
||||
@ -851,6 +874,7 @@
|
||||
::
|
||||
++ take
|
||||
|= gis=(list gift:dirt:neo)
|
||||
~& gis/gis
|
||||
=/ laf (fury gis)
|
||||
=* loop-gift $
|
||||
^+ run
|
||||
@ -858,6 +882,8 @@
|
||||
run
|
||||
=/ [=pith:neo =loot:neo] i.gis
|
||||
=. run (sweep i.gis)
|
||||
=? run =(%del mode.loot)
|
||||
(reap pith loot)
|
||||
$(gis t.gis)
|
||||
::
|
||||
++ fume-add
|
||||
@ -1918,7 +1944,7 @@
|
||||
::
|
||||
++ make
|
||||
|= [src=stud:neo init=(unit pail:neo) =crew:neo]
|
||||
=/ =wave:neo [src ~(dock husk src) crew]
|
||||
=/ =wave:neo [src ~(dock husk src) crew &]
|
||||
=. tide (~(put of:neo tide) here wave)
|
||||
=^ bad=(set term) arvo
|
||||
(jazz crew deps:~(kook husk src))
|
||||
@ -1958,6 +1984,9 @@
|
||||
=| cards=(list card:neo)
|
||||
=/ =kook:neo ~(kook husk code.wave)
|
||||
=. dock.wave ~(dock husk code.wave)
|
||||
?. live.wave
|
||||
~| dead-wave/here
|
||||
!!
|
||||
|%
|
||||
++ su-core .
|
||||
++ su-emil |=(caz=(list card:neo) su-core(cards (welp cards caz)))
|
||||
@ -2039,6 +2068,11 @@
|
||||
++ su-poke
|
||||
|= =pail:neo
|
||||
^+ su-core
|
||||
=? live.wave =(p.pail %dead)
|
||||
=+ !<(dead=term q.pail)
|
||||
?~ dep=(~(get by deps:kook) dead)
|
||||
&
|
||||
!required.u.dep
|
||||
?. (~(has in poke.dock.wave) p.pail)
|
||||
?: ?=(%ack p.pail)
|
||||
%. su-core
|
||||
@ -2046,8 +2080,8 @@
|
||||
?~ ack
|
||||
same
|
||||
(slog (print-quit:neo u.ack))
|
||||
?: ?=(%rely p.pail)
|
||||
su-core :: ((slog leaf/"no support for %rely" ~) su-core)
|
||||
?: |(=(%dead p.pail) =(%rely p.pail))
|
||||
su-core
|
||||
(mean leaf/"no support for {<p.pail>}" ~)
|
||||
=/ [caz=(list card:neo) new=pail:neo]
|
||||
(poke:su-form pail)
|
||||
|
@ -220,10 +220,14 @@
|
||||
`[pith key.u.lat]
|
||||
::
|
||||
++ grow
|
||||
|= [=pail:neo cas=(unit case:neo) =oath:neo]
|
||||
^- (quip loot:neo loam:dirt:neo)
|
||||
=/ =poem:neo [[(fall cas +(case)) oath] `pail]
|
||||
(make poem)
|
||||
|= [=pith:neo =pail:neo cas=(unit case:neo) =oath:neo]
|
||||
^- (quip dust:neo loam:dirt:neo)
|
||||
=/ l=loam:dirt:neo (~(dip of:neo loam) pith)
|
||||
=/ =poem:neo [[(fall cas +(~(case plow l))) oath] `pail]
|
||||
=^ loot=(list loot:neo) l
|
||||
(~(make plow l) poem)
|
||||
:- (turn loot (lead pith))
|
||||
(~(rep of:neo loam) pith l)
|
||||
++ make
|
||||
|= =poem:neo
|
||||
^- (quip loot:neo loam:dirt:neo)
|
||||
@ -252,22 +256,36 @@
|
||||
loam(fil `(put:on:soil:neo u.fil.loam [p.p .]:poem))
|
||||
::
|
||||
++ cull
|
||||
?~ fil.loam
|
||||
[~ loam]
|
||||
(make [[+(case) *oath:neo] ~])
|
||||
=| =grit:neo
|
||||
|= =pith:neo
|
||||
^+ [grit loam]
|
||||
=/ [loot=(list loot:neo) l=loam:dirt:neo]
|
||||
=/ lom (~(dip of:neo loam) pith)
|
||||
?: =(~ fil.lom)
|
||||
`lom
|
||||
(~(make plow lom) [[+(~(case plow lom)) *oath:neo] ~])
|
||||
=. grit (welp grit (turn loot (lead pith)))
|
||||
=/ kids ~(tap by kid.l)
|
||||
|-
|
||||
?~ kids
|
||||
=. loam (~(rep of:neo loam) pith l)
|
||||
[grit loam]
|
||||
=/ [iot=iota lo=loam:dirt:neo] i.kids
|
||||
=/ pit=pith:neo (snoc pith iot)
|
||||
=/ [loot=(list loot:neo) lom=loam:dirt:neo]
|
||||
(make(loam lo) [[+(case) *oath:neo] ~])
|
||||
=. grit (welp grit (turn loot (lead pit)))
|
||||
=. kid.l (~(put by kid.l) iot lom)
|
||||
$(kids t.kids) ::
|
||||
::
|
||||
++ call
|
||||
|= =card:dirt:neo
|
||||
^- (quip gift:dirt:neo _loam)
|
||||
=/ lom (~(dip of:neo loam) p.card)
|
||||
%- (trace "call" (print-card card))
|
||||
=^ gifts=(list loot:neo) lom
|
||||
?- -.q.card
|
||||
%grow (~(grow plow lom) +.q.card)
|
||||
%cull ~(cull plow lom)
|
||||
==
|
||||
:_ (~(rep of:neo loam) p.card lom)
|
||||
(turn gifts |=(loot:neo `gift:dirt:neo`[p.card +<]))
|
||||
?- -.q.card
|
||||
%grow (~(grow plow loam) p.card +.q.card)
|
||||
%cull (~(cull plow loam) p.card)
|
||||
==
|
||||
::
|
||||
++ look
|
||||
|= =pith:neo
|
||||
|
@ -29,7 +29,7 @@
|
||||
=/ =crew:neo (~(gas by *crew:neo) src/inner ~)
|
||||
=/ =made:neo [%hawk-eyre-handler `[stud vax] crew]
|
||||
:_ sig/!>(~)
|
||||
:~ [(welp here.bowl #/[uv/(end [3 4] eny.bowl)]) %make made]
|
||||
:~ [(welp here.bowl #/[uv/(end 3^4 eny.bowl)]) %make made]
|
||||
==
|
||||
==
|
||||
++ init
|
||||
|
@ -1324,6 +1324,7 @@
|
||||
[%rely =term =pith]
|
||||
[%halt ~]
|
||||
==
|
||||
+$ dead term
|
||||
+$ howl tone
|
||||
:: $wail: change result
|
||||
+$ wail (trel hunt howl mode)
|
||||
@ -2131,6 +2132,7 @@
|
||||
$: code=stud
|
||||
=dock
|
||||
=crew
|
||||
live=?
|
||||
==
|
||||
+$ tide (axal wave)
|
||||
::
|
||||
|
Loading…
Reference in New Issue
Block a user