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

makes reload, reset crash resistant through mule

Browse Source 
nb:  needs pill
This commit is contained in:
Philip C Monk 2016-01-08 18:46:32 -05:00
parent 97ff338d1c
commit 47563de502
1 changed files with 18 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
arvo/hoon.hoon
View File

@ -10332,12 +10332,14 @@
++ ruck :: update vase ++ ruck :: update vase
|= [pax=path txt=@ta] |= [pax=path txt=@ta]
^+ +> ^+ +>
=- ?:(?=(%| -.res) ((slog p.res) +>.$) p.res)
^= res %- mule |.
=+ arg=[~2000.1.1 0 =>(~ |+(* ~))] =+ arg=[~2000.1.1 0 =>(~ |+(* ~))]
=+ rig=(slym q.sew arg) =+ rig=(slym q.sew arg)
=+ rev=(slym (slap bud (rain pax txt)) bud) =+ rev=(slym (slap bud (rain pax txt)) bud)
=+ syg=(slym rev arg) =+ syg=(slym rev arg)
~| %load-lost ~| %load-lost
+>.$(q.sew (slam (slap syg [%cnzy %load]) (slap rig [%cnzy %stay]))) +>.^$(q.sew (slam (slap syg [%cnzy %load]) (slap rig [%cnzy %stay])))
:: ::
++ wink :: deploy ++ wink :: deploy
|= [now=@da eny=@ ski=slad] |= [now=@da eny=@ ski=slad]
@ -10546,6 +10548,8 @@
:: ::
++ vint :: create vane ++ vint :: create vane
|= [lal=@tas vil=vile bud=vase pax=path txt=@ta] :: |= [lal=@tas vil=vile bud=vase pax=path txt=@ta] ::
=- ?:(?=(%| -.res) ((slog p.res) ~) (some p.res))
^= res %- mule |.
(vent lal vil bud *worm (slym (slap bud (rain pax txt)) bud)) (vent lal vil bud *worm (slym (slap bud (rain pax txt)) bud))
:: ::
++ viol :: vane tools ++ viol :: vane tools
@ -10680,6 +10684,7 @@
:::::: :::::: Postface :::::: :::::: :::::: Postface ::::::
:::::: :::::::::::::::::::::::::::::::::::::::::::::::::::::: :::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
=+ pit=`vase`!>(.) :: =+ pit=`vase`!>(.) ::
!:
=+ bud=pit :: becomes tang =+ bud=pit :: becomes tang
=+ vil=(viol p.bud) :: cached reflexives =+ vil=(viol p.bud) :: cached reflexives
=| $: lac=? :: laconic bit =| $: lac=? :: laconic bit
@ -10715,7 +10720,7 @@
?: ?=(%veer -.q.i.ova) ?: ?=(%veer -.q.i.ova)
$(ova t.ova, +>+.^$ (veer now q.i.ova)) $(ova t.ova, +>+.^$ (veer now q.i.ova))
?: ?=(%vega -.q.i.ova) ?: ?=(%vega -.q.i.ova)
(vega now t.ova (path +.q.i.ova)) (fall (vega now t.ova (path +.q.i.ova)) [~ +>.^$])
?: ?=(%mass -.q.i.ova) ?: ?=(%mass -.q.i.ova)
=+ avo=$(ova t.ova) =+ avo=$(ova t.ova)
:_ +.avo :_ +.avo
@ -10780,7 +10785,9 @@
:: ::
++ vega :: reboot kernel ++ vega :: reboot kernel
|= [now=@da ova=(list ovum) hap=path] |= [now=@da ova=(list ovum) hap=path]
^- [p=(list ovum) q=*] ^- (unit ,[p=(list ovum) q=*])
=- ?:(?=(%| -.res) ((slog p.res) ~) `p.res)
^= res %- mule |.
=+ pax=(weld hap `path`[%hoon ~]) =+ pax=(weld hap `path`[%hoon ~])
~& [%vega-start hap] ~& [%vega-start hap]
=+ src=((hard ,@t) (need (peek now cx/pax))) =+ src=((hard ,@t) (need (peek now cx/pax)))
@ -10801,17 +10808,22 @@
++ veer :: install vane/tang ++ veer :: install vane/tang
|= [now=@da fav=curd] |= [now=@da fav=curd]
=> .(fav ((hard ,[%veer lal=@ta pax=path txt=@t]) fav)) => .(fav ((hard ,[%veer lal=@ta pax=path txt=@t]) fav))
=- ?:(?=(%| -.res) ((slog p.res) +>.$) p.res)
^= res %- mule |.
?: =(%$ lal.fav) ?: =(%$ lal.fav)
~& [%tang pax.fav `@p`(mug txt.fav)] ~& [%tang pax.fav `@p`(mug txt.fav)]
=+ gen=(rain pax.fav txt.fav) =+ gen=(rain pax.fav txt.fav)
=+ vax=(slap pit gen) =+ vax=(slap pit gen)
+>.$(bud vax) +>.^$(bud vax)
%_ +> %_ +>.^$
q.niz q.niz
|- ^+ q.niz |- ^+ q.niz
?~ q.niz ?~ q.niz
~& [%vane `@tas`lal.fav pax.fav `@p`(mug txt.fav)] ~& [%vane `@tas`lal.fav pax.fav `@p`(mug txt.fav)]
[[lal.fav q.sew:(vint lal.fav vil bud pax.fav txt.fav)] q.niz] =+ vin=(vint lal.fav vil bud pax.fav txt.fav)
?~ vin
q.niz
[[lal.fav q.sew:u.vin] q.niz]
?. =(lal.fav p.i.q.niz) ?. =(lal.fav p.i.q.niz)
[i.q.niz $(q.niz t.q.niz)] [i.q.niz $(q.niz t.q.niz)]
~& [%vane `@tas`lal.fav pax.fav `@p`(mug txt.fav)] ~& [%vane `@tas`lal.fav pax.fav `@p`(mug txt.fav)]