urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-11-24 13:06:09 +03:00
Code Issues Packages Projects Releases Wiki Activity

arvo: interface

Browse Source
This commit is contained in:
Joe Bryan 2020-12-06 23:06:20 -08:00
parent fe7c37c324
commit 71ecdc60fc
2 changed files with 13 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
pkg/arvo/lib/vere.hoon
View File

@ -304,11 +304,10 @@
::
=/ pit !>(.)
=> |%
++ come _[~ ..come]
++ load _[~ ..come]
++ peek _~ :: +46
++ poke _[~ ..poke] :: +47
++ wish :: +22
++ load _[~ ..load] :: +4
++ peek _~ :: +22
++ poke _[~ ..poke] :: +23
++ wish :: +10
|= txt=*
q:(slap pit (ream ;;(@t txt)))
--

26
pkg/arvo/sys/arvo.hoon
View File

@ -1666,14 +1666,9 @@
=| [_arvo soul]
=* sol ->
|%
:: +load: upgrade from previous state
::
:: +come: load incompatible
::
++ come |=(* !!) :: +4
::
:: +load: load compatible, notifying vanes
::
++ load :: +10
++ load :: +4
|= hir=$<(%grub heir)
^- ^
~| %load
@ -1705,7 +1700,7 @@
::
:: +peek: external inspect
::
++ peek :: +46
++ peek :: +22
|= $: lyc=gang
$= nom
%+ each path
@ -1734,7 +1729,7 @@
::
:: +poke: external apply
::
++ poke :: +47
++ poke :: +23
|= [now=@da ovo=ovum]
^- ^
=: eny.sol (shaz (cat 3 eny now)) :: XX review
@ -1751,7 +1746,7 @@
::
:: +wish: external compute
::
++ wish :: +22
++ wish :: +10
|= txt=@
q:(slap zus.mod (ream txt))
--
@ -1839,17 +1834,14 @@
=* gub ->+
::
|%
++ come ^come :: +4
::
++ load :: +10
++ load :: +4
|= hir=heir
?: ?=(%grub -.hir)
~>(%mean.'arvo: larval reboot' !!) :: XX support
(^load hir)
::
++ peek _~ :: +46
::
++ poke :: +47
++ peek _~ :: +22
++ poke :: +23
|= [now=@da ovo=ovum]
^- ^
~| poke/p.card.ovo
@ -1885,7 +1877,7 @@
~> %slog.[0 leaf+"arvo: metamorphosis"]
(load u.hir)
::
++ wish :: +22
++ wish :: +10
|= txt=*
q:(slap ?~(zus pit $:u.zus) (ream ;;(@t txt)))
--