urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-05 19:46:50 +03:00
Code Issues Packages Projects Releases Wiki Activity

Stash.

Browse Source
This commit is contained in:
C. Guy Yarvin 2017-02-17 18:10:32 -08:00
parent 08c316bae3
commit e08226c69f
1 changed files with 23 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
sys/parv.hoon
View File

@ -227,17 +227,36 @@
?~ bun ?~ bun
(va-create src) (va-create src)
(va-update(vax u.bun) src) (va-update(vax u.bun) src)
:: :: ++va-active:va:le
++ va-active :: make activated vane
|= {ski
:: :: ++va-create:va:le :: :: ++va-create:va:le
++ va-create :: compile new vase ++ va-create :: compile new vase
|= src/hoof |= src/hoof
^+ ^+ +>
::
:: no existing vase; compile new vase :: no existing vase; compile new vase
:: ::
~& [%vase-compile lay way `@p`(mug src)] ~& [%vase-compile lay way `@p`(mug src)]
=. vax (slam zus.mal (ream src)) =. vax (slam zus.mal (ream src))
:: ?: off
++ va-create :: not booted yet, wait to activate
+>
:: already booted; activate now
::
+>(vax (slam vax !>(orb.rep)))
:: :: ++va-settle:va:le
++ va-settle :: initialize ship
^+ +>
.(vax (slap vax !>(orb.rep)))
:: :: ++va-update
++ va-update :: replace existing
|= src/hoof
?: off
:: replacing unbooted, weird
::
(va-create src)
=+ nex=(slap (slam zus.mal (ream src)) !>(orb.rep))
-- --
:: :: ++vale:le :: :: ++vale:le
++ vale :: load existing vane ++ vale :: load existing vane