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

added %wipe to wipe app state

Browse Source
This commit is contained in:
pcmonk 2014-07-29 15:44:41 -07:00
parent 20da6ef2f1
commit c5fe282e75
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
arvo/batz.hoon
View File

@ -73,6 +73,7 @@
[%mess p=hasp q=ship r=cage] :: [%mess p=hasp q=ship r=cage] ::
[%nuke p=hasp q=ship] :: [%nuke p=hasp q=ship] ::
[%show p=hasp q=ship r=path] :: [%show p=hasp q=ship r=path] ::
[%wipe p=hasp] ::
== == == :: == == == ::
++ rave :: see %clay ++ rave :: see %clay
$% [& p=mood] :: single request $% [& p=mood] :: single request

6
arvo/gall.hoon
View File

@ -27,6 +27,7 @@
[%nuke p=hasp q=ship] :: clear duct [%nuke p=hasp q=ship] :: clear duct
[%rote p=sack q=term r=*] :: remote request [%rote p=sack q=term r=*] :: remote request
[%roth p=sack q=term r=*] :: remote response [%roth p=sack q=term r=*] :: remote response
[%wipe p=hasp] :: forget app
== :: == ::
++ knob :: pending action ++ knob :: pending action
$% [%boot ~] :: begin boot $% [%boot ~] :: begin boot
@ -204,6 +205,11 @@
(gawk hen p.q.hic q.q.hic ((hard ,[@ud rook]) r.q.hic)) (gawk hen p.q.hic q.q.hic ((hard ,[@ud rook]) r.q.hic))
?: ?=(%roth -.q.hic) ?: ?=(%roth -.q.hic)
(gawd hen p.q.hic q.q.hic ((hard ,[@ud roon]) r.q.hic)) (gawd hen p.q.hic q.q.hic ((hard ,[@ud roon]) r.q.hic))
?: ?=(%wipe -.q.hic)
=+ mat=(~(got by pol.all) p.p.q.hic)
=. bum.mat (~(del by bum.mat) q.p.q.hic)
=. pol.all (~(put by pol.all) p.p.q.hic mat)
[p=~ q=..^$]
|- ^- [p=(list move) q=_..^^$] |- ^- [p=(list move) q=_..^^$]
=+ =| law=(unit cuff) =+ =| law=(unit cuff)
|- ^- $: law=(unit cuff) |- ^- $: law=(unit cuff)