arvo: adds |trim, triggering memory reclamation

This commit is contained in:
Joe Bryan 2020-09-09 22:49:37 -07:00
parent f9665c0cbd
commit 7f0b500778
4 changed files with 23 additions and 1 deletions

View File

@ -0,0 +1,13 @@
:: Helm: trim kernel state
::
:::: /hoon/trim/hood/gen
::
/? 310
::
::::
::
:- %say
|= $: [now=@da eny=@uvJ bec=beak]
[arg=?(~ [pri=@ud ~]) ~]
==
[%helm-trim ?~(arg 1 pri.arg)]

View File

@ -187,6 +187,10 @@
(module-ova:pill top)
|=([=wire =flog:dill] [%pass wire %arvo %d %flog flog])
::
++ poke-trim
|= pri=@ud =< abet
(emit %pass /pack %arvo %d %flog %crop pri)
::
++ poke-verb :: toggle verbose
|= ~ =< abet
(flog %verb ~)
@ -232,6 +236,7 @@
%helm-reset =;(f (f !<(_+<.f vase)) poke-reset)
%helm-send-hi =;(f (f !<(_+<.f vase)) poke-send-hi)
%helm-serve =;(f (f !<(_+<.f vase)) poke-serve)
%helm-trim =;(f (f !<(_+<.f vase)) poke-trim)
%helm-verb =;(f (f !<(_+<.f vase)) poke-verb)
%helm-write-sec-atom =;(f (f !<(_+<.f vase)) poke-sec-atom)
==

View File

@ -118,6 +118,7 @@
$heft (dump %whey ~)
$lyra (dump kyz)
$pack (dump kyz)
$crop (dump trim+p.kyz)
$veer (dump kyz)
$verb (dump kyz)
==

View File

@ -1111,6 +1111,7 @@
{$logo ~} :: logout
[%lyra hoon=(unit @t) arvo=@t] :: upgrade kernel
{$pack ~} :: compact memory
{$trim p/@ud} :: trim kernel state
{$veer p/@ta q/path r/@t} :: install vane
{$verb ~} :: verbose mode
[%whey ~] :: memory report
@ -1120,6 +1121,7 @@
$% {$belt p/belt} :: terminal input
{$blew p/blew} :: terminal config
{$boot lit/? p/*} :: weird %dill boot
{$crop p/@ud} :: trim kernel state
$>(%crud vane-task) :: error with trace
{$flog p/flog} :: wrapped error
{$flow p/@tas q/(list gill:gall)} :: terminal config
@ -1192,7 +1194,8 @@
{$url p/@t} :: activate url
== ::
++ flog :: sent to %dill
$% {$crud p/@tas q/(list tank)} ::
$% {$crop p/@ud} :: trim kernel state
{$crud p/@tas q/(list tank)} ::
{$heft ~} ::
[%lyra hoon=(unit @t) arvo=@t] :: upgrade kernel
{$pack ~} :: compact memory