mirror of
https://github.com/urbit/shrub.git
synced 2024-12-28 22:54:15 +03:00
mall: make boot
This commit is contained in:
Philip Monk
parent
fc682fc585
commit
1ca4c72aa5
@ -1,3 +1,3 @@
|
||||
version https://git-lfs.github.com/spec/v1
|
||||
oid sha256:89e9469aa6e5d9da7cfb62aeed0424c7f2ba0364b8fb7a84b1366219406038d0
|
||||
size 16997852
|
||||
oid sha256:7b8a1701002c00861ac55afcf4596f43d6daac82c0d5dca5e25274720a2cdd10
|
||||
size 17162691
|
||||
|
||||
@ -322,6 +322,7 @@
|
||||
=+ foo=*monkey
|
||||
=| house :: program state
|
||||
=* state -
|
||||
=> |%
|
||||
++ he :: per session
|
||||
|_ {hid/bowl:mall moz/(list move:agent:mall) session}
|
||||
::
|
||||
@ -361,7 +362,7 @@
|
||||
=. poy ~
|
||||
?~ pux +>
|
||||
%. [%txt "! cancel {<u.pux>}"]
|
||||
he-diff:(he-card [%pass u.pux %meta %f !>([%kill ~]))
|
||||
he-diff:(he-card [%pass u.pux %meta %f !>([%kill ~])])
|
||||
::
|
||||
++ dy-slam :: call by ford
|
||||
|= {way/wire gat/vase sam/vase}
|
||||
@ -559,7 +560,6 @@
|
||||
:* %pass
|
||||
/poke
|
||||
%send
|
||||
our.hid
|
||||
p.p.p.mad
|
||||
q.p.p.mad
|
||||
%poke
|
||||
@ -836,16 +836,16 @@
|
||||
==
|
||||
::
|
||||
++ he-abet :: resolve
|
||||
[(flop moz) %_(state hoc (~(put by hoc) ost.hid +<+))]
|
||||
[(flop moz) %_(state hoc (~(put by hoc) ost.hid +<+>))]
|
||||
::
|
||||
++ he-abut :: discard
|
||||
=> he-stop
|
||||
[(flop moz) %_(state hoc (~(del by hoc) ost.hid))]
|
||||
::
|
||||
++ he-card :: emit gift
|
||||
|= cad/card:agent:mall
|
||||
|= =card:agent:mall
|
||||
^+ +>
|
||||
%_(+> moz [[ost.hid cad] moz])
|
||||
%_(+> moz [[ost.hid card] moz])
|
||||
::
|
||||
++ he-diff :: emit update
|
||||
|= fec/sole-effect
|
||||
@ -857,7 +857,8 @@
|
||||
?~(poy . ~(dy-stop dy u.poy))
|
||||
::
|
||||
++ he-peer :: subscribe to
|
||||
|=(pax/path ?>(=(~ pax) he-prom))
|
||||
|= pax/path
|
||||
?>(=(~ pax) he-prom)
|
||||
::
|
||||
++ he-pine :: restore prompt
|
||||
^+ .
|
||||
@ -1130,14 +1131,14 @@
|
||||
::
|
||||
++ handle-poke
|
||||
|= [=mark =vase]
|
||||
^- (quip move _..handle-init)
|
||||
=/ =session (~(got by hoc) ost.hid)
|
||||
=/ he-full ~(. he hid ~ session)
|
||||
^- (quip move:agent:mall _..handle-init)
|
||||
=/ a-session=session (~(got by hoc) ost.hid)
|
||||
=/ he-full ~(. he hid ~ a-session)
|
||||
=^ moves state
|
||||
=< he-abet
|
||||
^- (quip move:agent:mall house)
|
||||
?+ mark ~|([%dojo-poke-bad-mark mark] !!)
|
||||
%sole-action (he-type:he-full (need !<(sole-action vase)))
|
||||
%lens-command (he-lens:he-full (need !<(command:lens vase)))
|
||||
%sole-action he-abet:(he-type:he-full (need !<(sole-action vase)))
|
||||
%lens-command he-abet:(he-lens:he-full (need !<(command:lens vase)))
|
||||
%json ~& jon=(need !<(json vase)) `state
|
||||
%wipe
|
||||
~& %dojo-wipe
|
||||
@ -1157,7 +1158,7 @@
|
||||
::
|
||||
++ handle-peer
|
||||
|= =path
|
||||
^- (quip move _..handle-init)
|
||||
^- (quip move:agent:mall _..handle-init)
|
||||
~? !=(our.hid src.hid) [%dojo-peer-stranger ost.hid src.hid]
|
||||
?> (team:title our.hid src.hid)
|
||||
=^ moves-1 state
|
||||
@ -1166,7 +1167,8 @@
|
||||
~(he-abut he hid ~ (~(got by hoc) ost.hid))
|
||||
=^ moves-2 state
|
||||
=/ =session %*(. *session -.dir [our.hid %home ud+0])
|
||||
he-abet:(~(he-peer hid moves-1 session) path)
|
||||
?> ?=([%sole *] path)
|
||||
he-abet:(~(he-peer he hid moves-1 session) t.path)
|
||||
[moves-2 ..handle-init]
|
||||
::
|
||||
++ handle-pull
|
||||
@ -1184,28 +1186,29 @@
|
||||
|= [=wire =internal-gift:mall]
|
||||
=/ =session (~(got by hoc) ost.hid)
|
||||
=^ moves state
|
||||
he-abet:(~(he-unto hid ~ session) wire internal-gift)
|
||||
he-abet:(~(he-unto he hid ~ session) wire internal-gift)
|
||||
[moves ..handle-init]
|
||||
::
|
||||
++ handle-take
|
||||
|= [=wire =vase]
|
||||
=/ sesssion (~(got by hoc) ost.hid)
|
||||
=/ =session (~(got by hoc) ost.hid)
|
||||
=/ he-full ~(. he hid ~ session)
|
||||
=^ moves state
|
||||
=< he-abet
|
||||
?+ -.q.vase ~|([%dojo-bad-take -.q.vase] !!)
|
||||
%made
|
||||
(he-made:he-full wire (need !<([@da made-result:ford] vase)))
|
||||
(he-made:he-full wire +:(need !<([%made @da made-result:ford] vase)))
|
||||
::
|
||||
%http-response
|
||||
(he-http-response:he-full wire (need !<(client-response:iris vase)))
|
||||
(he-http-response:he-full wire +:(need !<([%made client-response:iris] vase)))
|
||||
==
|
||||
[moves ..handle-init]
|
||||
::
|
||||
++ handle-lame
|
||||
|= [=term =tang]
|
||||
=/ =session (~(got by hoc) ost.hid)
|
||||
=^ moves state
|
||||
he-abet:(~(he-lame hid ~ session) term tang)
|
||||
he-abet:(~(he-lame he hid ~ session) term tang)
|
||||
[moves ..handle-init]
|
||||
::
|
||||
++ handle-stay
|
||||
|
||||
@ -80,51 +80,52 @@
|
||||
:: :: ::
|
||||
^- agent:mall
|
||||
=| hood-1 :: module states
|
||||
=/ help
|
||||
=> |%
|
||||
++ help
|
||||
|= hid/bowl:mall
|
||||
|%
|
||||
++ able :: find+make part
|
||||
|= hid=bowl:mall
|
||||
=+ hed=$:hood-head
|
||||
|@ ++ $
|
||||
=+ rep=(~(get by lac) hed)
|
||||
=+ par=?^(rep u.rep `hood-part`(hood-make our.hid hed))
|
||||
((hood-good hed) par)
|
||||
--
|
||||
::
|
||||
++ ably :: save part
|
||||
=+ $:{(list) hood-part}
|
||||
|@ ++ $
|
||||
[(flop +<-) (~(put by lac) +<+< +<+)]
|
||||
--
|
||||
:: :: ::
|
||||
:::: :: :: generic handling
|
||||
|%
|
||||
++ able :: find+make part
|
||||
=+ hed=$:hood-head
|
||||
|@ ++ $
|
||||
=+ rep=(~(get by lac) hed)
|
||||
=+ par=?^(rep u.rep `hood-part`(hood-make our.hid hed))
|
||||
((hood-good hed) par)
|
||||
--
|
||||
::
|
||||
++ ably :: save part
|
||||
=+ $:{(list) hood-part}
|
||||
|@ ++ $
|
||||
[+<- (~(put by lac) +<+< +<+)]
|
||||
--
|
||||
:: :: ::
|
||||
++ prep
|
||||
|= old/(unit hood-old) ^- (quip _!! _+>)
|
||||
:- ~
|
||||
?~ old +>
|
||||
+>(lac (~(run by lac.u.old) hood-port))
|
||||
::
|
||||
++ poke-hood-load :: recover lost brain
|
||||
|= dat/hood-part
|
||||
?> =(our.hid src.hid)
|
||||
~& loaded+-.dat
|
||||
[~ (~(put by lac) -.dat dat)]
|
||||
::
|
||||
::
|
||||
++ from-module :: create wrapper
|
||||
|* _[identity=%module start=..$ finish=_abet]:(hood-module)
|
||||
=- [wrap=- *start] :: usage (wrap handle-arm):from-foo
|
||||
|* handle/_finish
|
||||
|= a=_+<.handle
|
||||
=. +>.handle (start hid ((able hid) identity))
|
||||
(ably (handle a))
|
||||
:: per-module interface wrappers
|
||||
++ from-drum (from-module %drum [..$ _se-abet]:(hood-drum-mall))
|
||||
++ from-helm (from-module %helm [..$ _abet]:(hood-helm-mall))
|
||||
++ from-kiln (from-module %kiln [..$ _abet]:(hood-kiln-mall))
|
||||
++ from-write (from-module %write [..$ _abet]:(hood-write-mall))
|
||||
:::: :: :: generic handling
|
||||
:: :: ::
|
||||
++ prep
|
||||
|= old/(unit hood-old) ^- (quip _!! _+>)
|
||||
:- ~
|
||||
?~ old +>
|
||||
+>(lac (~(run by lac.u.old) hood-port))
|
||||
::
|
||||
++ poke-hood-load :: recover lost brain
|
||||
|= dat/hood-part
|
||||
?> =(our.hid src.hid)
|
||||
~& loaded+-.dat
|
||||
[~ (~(put by lac) -.dat dat)]
|
||||
::
|
||||
::
|
||||
++ from-module :: create wrapper
|
||||
|* _[identity=%module start=..$ finish=_abet]:(hood-module)
|
||||
=- [wrap=- *start] :: usage (wrap handle-arm):from-foo
|
||||
|* handle/_finish
|
||||
|= a=_+<.handle
|
||||
=. +>.handle (start hid (able identity))
|
||||
(ably (handle a))
|
||||
:: per-module interface wrappers
|
||||
++ from-drum (from-module %drum [..$ _se-abet]:(hood-drum-mall))
|
||||
++ from-helm (from-module %helm [..$ _abet]:(hood-helm-mall))
|
||||
++ from-kiln (from-module %kiln [..$ _abet]:(hood-kiln-mall))
|
||||
++ from-write (from-module %write [..$ _abet]:(hood-write-mall))
|
||||
--
|
||||
--
|
||||
|_ hid/bowl:mall :: gall environment
|
||||
++ handle-init
|
||||
@ -267,7 +268,6 @@
|
||||
::
|
||||
++ handle-mall
|
||||
|= [=wire =internal-gift:mall]
|
||||
~& [%handling-mall wire]
|
||||
=/ h (help hid)
|
||||
=^ moves lac
|
||||
?+ wire ~|([%hood-bad-wire wire] !!)
|
||||
|
||||
@ -378,8 +378,8 @@
|
||||
::
|
||||
[%swap-files ~]
|
||||
=. userspace-ova.pil
|
||||
=/ slim-dirs
|
||||
`(list path)`~[/app /gen /lib /mar /sur /hoon/sys /arvo/sys /zuse/sys]
|
||||
=/ slim-dirs=(list path)
|
||||
~[/app /gen /lib /mar /sur /hoon/sys /arvo/sys /zuse/sys /age]
|
||||
:_ ~
|
||||
%- unix-event
|
||||
%- %*(. file-ovum:pill-lib directories slim-dirs)
|
||||
|
||||
@ -44,7 +44,7 @@
|
||||
off/@ud :: window offset
|
||||
kil/kill :: kill buffer
|
||||
inx/@ud :: ring index
|
||||
fug/(map gill:gall (unit target)) :: connections
|
||||
fug/(map gill:gall (unit target)) :: connections
|
||||
mir/(pair @ud stub) :: mirrored terminal
|
||||
== ::
|
||||
++ history :: past input
|
||||
@ -78,7 +78,7 @@
|
||||
^- (list well:gall)
|
||||
?: lit
|
||||
:~ [%home %dojo]
|
||||
[%home %azimuth-tracker]
|
||||
:: [%home %azimuth-tracker]
|
||||
==
|
||||
=+ myr=(clan:title our)
|
||||
::
|
||||
@ -113,7 +113,8 @@
|
||||
|= our/ship
|
||||
%- ~(gas in *(set gill:gall))
|
||||
^- (list gill:gall)
|
||||
[[our %talk] [our %dojo] ~]
|
||||
:: [[our %talk] [our %dojo] ~]
|
||||
[[our %dojo] ~]
|
||||
::
|
||||
++ make :: initial part
|
||||
|= our/ship
|
||||
|
||||
@ -416,7 +416,7 @@
|
||||
::
|
||||
++ warp
|
||||
|= [=bone =wire =ship =riff]
|
||||
(blab [bone %pass wire %meta %c !>([ship riff])] ~)
|
||||
(blab [bone %pass wire %meta %c !>([%warp ship riff])] ~)
|
||||
::
|
||||
++ spam |*(* %_(+> ..auto (^spam +<)))
|
||||
++ stop
|
||||
|
||||
@ -45,7 +45,7 @@
|
||||
[%f /vane/ford]
|
||||
:: sys/vane/gall: applications
|
||||
::
|
||||
[%g /vane/gall]
|
||||
[%m /vane/mall]
|
||||
:: sys/vane/iris: http client
|
||||
::
|
||||
[%i /vane/iris]
|
||||
@ -63,7 +63,7 @@
|
||||
::
|
||||
++ file-ovum
|
||||
=/ directories
|
||||
`(list path)`~[/app /gen /lib /mar /ren /sec /sur /sys /tests /web]
|
||||
`(list path)`~[/app /age /gen /lib /mar /ren /sec /sur /sys /tests /web]
|
||||
|= bas=path
|
||||
^- unix-event
|
||||
::
|
||||
|
||||
@ -691,26 +691,49 @@
|
||||
=^ rey +>+ (^load +<)
|
||||
[rey +>.$]
|
||||
::
|
||||
++ peek |=(* (^peek ;;([@da path] +<))) :: 46
|
||||
++ peek |= * :: 46
|
||||
=/ rob (^peek ;;([@da path] +<))
|
||||
?~ rob ~
|
||||
?~ u.rob ~
|
||||
[~ u.u.rob]
|
||||
::
|
||||
++ poke |= * :: 47
|
||||
^- [(list ovum) *]
|
||||
=> .(+< ;;([now=@da ovo=ovum] +<))
|
||||
=^ ova +>+.$ (^poke now ovo)
|
||||
=; taq=_^?(|.(**))
|
||||
=/ res
|
||||
%+ mock
|
||||
[taq 9 2 0 1]
|
||||
|= [ref=* raw=*]
|
||||
(^peek now ;;(path raw))
|
||||
|-
|
||||
?- -.res
|
||||
%0 p.res
|
||||
%1 $(res [%2 leaf+"blocked" >p.res< ~])
|
||||
%2
|
||||
~_ leaf+"deterministic error"
|
||||
|-
|
||||
?~ p.res
|
||||
!!
|
||||
~_ i.p.res
|
||||
$(p.res t.p.res)
|
||||
==
|
||||
|.
|
||||
^- [(list ovum) *]
|
||||
=^ ova +>+.^$ (^poke now ovo)
|
||||
=| out=(list ovum)
|
||||
|- ^- [(list ovum) *]
|
||||
?~ ova
|
||||
[(flop out) +>.^$]
|
||||
[(flop out) +>.^^$]
|
||||
:: upgrade the kernel
|
||||
::
|
||||
?: ?=(%lyra -.q.i.ova)
|
||||
%+ fall
|
||||
(vega now t.ova ;;([@ @] +.q.i.ova))
|
||||
[~ +>.^$]
|
||||
[~ +>.^^$]
|
||||
:: iterate over effects, handling those on arvo proper
|
||||
:: and passing the rest through as output
|
||||
::
|
||||
=^ vov +>+.^$ (feck now i.ova)
|
||||
=^ vov +>+.^^$ (feck now i.ova)
|
||||
=? out ?=(^ vov) [+.vov out]
|
||||
$(ova t.ova)
|
||||
::
|
||||
@ -758,12 +781,9 @@
|
||||
::
|
||||
++ peek :: external inspect
|
||||
|= {now/@da hap/path}
|
||||
^- (unit)
|
||||
?~ hap [~ hoon-version]
|
||||
=+ rob=((sloy ~(beck (is our vil eny bud vanes) now)) [151 %noun] hap)
|
||||
?~ rob ~
|
||||
?~ u.rob ~
|
||||
[~ u.u.rob]
|
||||
^- (unit (unit))
|
||||
?~ hap [~ ~ hoon-version]
|
||||
((sloy ~(beck (is our vil eny bud vanes) now)) [151 %noun] hap)
|
||||
::
|
||||
++ poke :: external apply
|
||||
|= [now=@da ovo=ovum]
|
||||
|
||||
@ -3075,7 +3075,7 @@
|
||||
|= err=(pair term tang)
|
||||
^+ +>
|
||||
=. +>.$
|
||||
(emit [hen %give %mere %| err])
|
||||
(emit [hen %slip %b %drip !>([%mere %| err])])
|
||||
finish-write
|
||||
::
|
||||
:: Release effects and apply state changes
|
||||
@ -3083,7 +3083,7 @@
|
||||
++ done-merge
|
||||
|= [conflicts=(set path) =dome =rang]
|
||||
^+ +>
|
||||
=. +>.$ (emit [hen %give %mere %& conflicts])
|
||||
=. +>.$ (emit [hen %slip %b %drip !>([%mere %& conflicts])])
|
||||
=: dom dome
|
||||
hut.ran (~(uni by hut.rang) hut.ran)
|
||||
lat.ran (~(uni by lat.rang) lat.ran)
|
||||
|
||||
@ -70,12 +70,12 @@
|
||||
$: %f ::
|
||||
$>(%wegh task:able:ford) ::
|
||||
== ::
|
||||
$: %g ::
|
||||
$: %m ::
|
||||
$> $? %conf ::
|
||||
%deal ::
|
||||
%wegh ::
|
||||
== ::
|
||||
task:able:gall ::
|
||||
task:able:mall ::
|
||||
== ::
|
||||
$: %i ::
|
||||
$>(%wegh task:able:iris) ::
|
||||
@ -99,6 +99,7 @@
|
||||
$: %b ::
|
||||
$% $>(%mass gift:able:behn) ::
|
||||
$>(%writ gift:able:clay) :: XX %slip
|
||||
$>(%mere gift:able:clay) :: XX %slip
|
||||
== == ::
|
||||
$: %c ::
|
||||
$> $? %mack :: XX strange
|
||||
@ -118,12 +119,12 @@
|
||||
$: %f ::
|
||||
$>(%mass gift:able:ford) ::
|
||||
== ::
|
||||
$: %g ::
|
||||
$: %m ::
|
||||
$> $? %mass ::
|
||||
%onto ::
|
||||
%unto ::
|
||||
== ::
|
||||
gift:able:gall ::
|
||||
gift:able:mall ::
|
||||
== ::
|
||||
$: %i ::
|
||||
$>(%mass gift:able:iris) ::
|
||||
@ -282,7 +283,7 @@
|
||||
[hen %pass /heft/clay %c %wegh ~]
|
||||
[hen %pass /heft/eyre %e %wegh ~]
|
||||
[hen %pass /heft/ford %f %wegh ~]
|
||||
[hen %pass /heft/gall %g %wegh ~]
|
||||
[hen %pass /heft/gall %m %wegh ~]
|
||||
[hen %pass /heft/iris %i %wegh ~]
|
||||
[hen %pass /heft/jael %j %wegh ~]
|
||||
moz
|
||||
@ -309,7 +310,7 @@
|
||||
=/ myt (flop (fall tem ~))
|
||||
=/ can (clan:title our)
|
||||
=. tem ~
|
||||
=. moz :_(moz [hen %pass ~ %g %conf [[our ram] our %home]])
|
||||
=. moz :_(moz [hen %pass ~ %m %conf [[our ram] our %home]])
|
||||
=. +> (sync %home our %base)
|
||||
=. +> ?: ?=(?($czar $pawn) can) +>
|
||||
(sync %base (sein our) %kids)
|
||||
@ -341,14 +342,14 @@
|
||||
%_ +>
|
||||
moz
|
||||
:_ moz
|
||||
[hen %pass ~ %g %deal [our our] ram %poke [%dill-belt -:!>(bet) bet]]
|
||||
[hen %pass ~ %m %deal [our our] ram %poke [%dill-belt -:!>(bet) bet]]
|
||||
==
|
||||
::
|
||||
++ hood-set-boot-apps
|
||||
%_ .
|
||||
moz
|
||||
:_ moz
|
||||
:* hen %pass ~ %g %deal [our our]
|
||||
:* hen %pass ~ %m %deal [our our]
|
||||
ram %poke %drum-set-boot-apps !>(lit.all)
|
||||
==
|
||||
==
|
||||
@ -356,7 +357,7 @@
|
||||
++ peer
|
||||
%_ .
|
||||
moz
|
||||
:_(moz [hen %pass ~ %g %deal [our our] ram %peer /drum])
|
||||
:_(moz [hen %pass ~ %m %deal [our our] ram %peer /drum])
|
||||
==
|
||||
::
|
||||
++ show :: permit reads on desk
|
||||
@ -372,7 +373,7 @@
|
||||
%_ +>.$
|
||||
moz
|
||||
:_ moz
|
||||
:* hen %pass /sync %g %deal [our our]
|
||||
:* hen %pass /sync %m %deal [our our]
|
||||
ram %poke %hood-sync -:!>(syn) syn
|
||||
==
|
||||
==
|
||||
@ -381,7 +382,7 @@
|
||||
%_ .
|
||||
moz
|
||||
:_ moz
|
||||
:* hen %pass /autoload %g %deal [our our]
|
||||
:* hen %pass /autoload %m %deal [our our]
|
||||
ram %poke %kiln-start-autoload [%atom %n `~] ~
|
||||
==
|
||||
==
|
||||
@ -389,14 +390,14 @@
|
||||
++ pump :: send diff ack
|
||||
%_ .
|
||||
moz
|
||||
:_(moz [hen %pass ~ %g %deal [our our] ram %pump ~])
|
||||
:_(moz [hen %pass ~ %m %deal [our our] ram %pump ~])
|
||||
==
|
||||
::
|
||||
++ take :: receive
|
||||
|= sih/sign
|
||||
^+ +>
|
||||
?- sih
|
||||
{?($a $b $c $e $f $g $i $j) $mass *}
|
||||
{?($a $b $c $e $f $m $i $j) $mass *}
|
||||
(wegh -.sih p.sih)
|
||||
::
|
||||
{$a $nice *}
|
||||
@ -411,14 +412,14 @@
|
||||
{$a $send *}
|
||||
+>(moz :_(moz [hen %give +.sih]))
|
||||
::
|
||||
{$g $onto *}
|
||||
{$m $onto *}
|
||||
:: ~& [%take-gall-onto +>.sih]
|
||||
?- -.+>.sih
|
||||
%| (crud %onto p.p.+>.sih)
|
||||
%& (done %blit [%lin (tuba "{<p.p.sih>}")]~)
|
||||
==
|
||||
::
|
||||
{$g $unto *}
|
||||
{$m $unto *}
|
||||
:: ~& [%take-gall-unto +>.sih]
|
||||
?- -.+>.sih
|
||||
$coup ?~(p.p.+>.sih +>.$ (crud %coup u.p.p.+>.sih))
|
||||
@ -436,7 +437,7 @@
|
||||
{?($b $c) $writ *}
|
||||
init
|
||||
::
|
||||
{$c $mere *}
|
||||
{?($b %c) $mere *}
|
||||
?: ?=(%& -.p.sih)
|
||||
mere
|
||||
(mean >%dill-mere-fail< >p.p.p.sih< q.p.p.sih)
|
||||
@ -451,7 +452,7 @@
|
||||
:: +wegh: receive a memory report from a vane and maybe emit full report
|
||||
::
|
||||
++ wegh
|
||||
|= [lal=?(%a %b %c %e %f %g %i %j) mas=mass]
|
||||
|= [lal=?(%a %b %c %e %f %m %i %j) mas=mass]
|
||||
^+ +>
|
||||
:: update our listing of vane responses with this new one
|
||||
::
|
||||
@ -462,7 +463,7 @@
|
||||
%c ~?(?=(^ c.hef.all) %double-mass-c hef.all(c `mas))
|
||||
%e ~?(?=(^ e.hef.all) %double-mass-e hef.all(e `mas))
|
||||
%f ~?(?=(^ f.hef.all) %double-mass-f hef.all(f `mas))
|
||||
%g ~?(?=(^ g.hef.all) %double-mass-g hef.all(g `mas))
|
||||
%m ~?(?=(^ g.hef.all) %double-mass-g hef.all(g `mas))
|
||||
%i ~?(?=(^ i.hef.all) %double-mass-i hef.all(i `mas))
|
||||
%j ~?(?=(^ j.hef.all) %double-mass-j hef.all(j `mas))
|
||||
==
|
||||
|
||||
@ -326,7 +326,7 @@
|
||||
:~ [hen %give %init our]
|
||||
[hen %slip %e %init our]
|
||||
[hen %slip %d %init our]
|
||||
[hen %slip %g %init our]
|
||||
[hen %slip %m %init our]
|
||||
[hen %slip %c %init our]
|
||||
[hen %slip %a %init our]
|
||||
==
|
||||
@ -368,7 +368,7 @@
|
||||
:~ [hen %give %init our]
|
||||
[hen %slip %e %init our]
|
||||
[hen %slip %d %init our]
|
||||
[hen %slip %g %init our]
|
||||
[hen %slip %m %init our]
|
||||
[hen %slip %c %init our]
|
||||
[hen %slip %a %init our]
|
||||
==
|
||||
|
||||
@ -712,12 +712,10 @@
|
||||
=/ =sign-arvo q.hin
|
||||
?. ?=([%m %unto *] sign-arvo)
|
||||
=/ =vase (slot 3 hin)
|
||||
~& [%handling-use path]
|
||||
=. app (ap-generic-take:app t.t.path vase)
|
||||
ap-abet:app
|
||||
=. app
|
||||
=/ =internal-gift +>.sign-arvo
|
||||
~& [%handling-use path]
|
||||
(ap-specific-take:app t.t.path internal-gift)
|
||||
ap-abet:app
|
||||
:: +mo-clear-queue: clear blocked tasks from the specified running agent.
|
||||
@ -1473,9 +1471,7 @@
|
||||
~& [%mall-not-ours ship]
|
||||
[~ mall-payload]
|
||||
::
|
||||
~& [%mall-ours ship]
|
||||
=> (mo-boot:initialised q.dock q.task)
|
||||
~& [%mall-initialized ship]
|
||||
mo-abet
|
||||
::
|
||||
?(%deal %deal-mall)
|
||||
@ -1546,14 +1542,14 @@
|
||||
:: +load: recreate vane
|
||||
::
|
||||
++ load
|
||||
|= *
|
||||
mall-payload
|
||||
:: |= =state-old
|
||||
:: ^+ mall-payload
|
||||
:: ::
|
||||
:: ?- -.state-old
|
||||
:: %0 mall-payload(state state-old)
|
||||
:: ==
|
||||
:: |= *
|
||||
:: mall-payload
|
||||
|= =state-old
|
||||
^+ mall-payload
|
||||
::
|
||||
?- -.state-old
|
||||
%0 mall-payload(state state-old)
|
||||
==
|
||||
:: +scry: standard scry
|
||||
::
|
||||
++ scry
|
||||
|
||||
@ -7585,6 +7585,7 @@
|
||||
$: $b
|
||||
$% gift:able:behn
|
||||
[%writ riot:clay]
|
||||
$>(%mere gift:able:clay)
|
||||
==
|
||||
==
|
||||
{$c gift:able:clay}
|
||||
|
||||
Loading…
Reference in New Issue
Block a user