mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-11-28 03:00:15 +03:00
arvo: adds |trim, triggering memory reclamation
This commit is contained in:
parent
f9665c0cbd
commit
7f0b500778
13
pkg/arvo/gen/hood/trim.hoon
Normal file
13
pkg/arvo/gen/hood/trim.hoon
Normal 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)]
|
@ -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)
|
||||
==
|
||||
|
@ -118,6 +118,7 @@
|
||||
$heft (dump %whey ~)
|
||||
$lyra (dump kyz)
|
||||
$pack (dump kyz)
|
||||
$crop (dump trim+p.kyz)
|
||||
$veer (dump kyz)
|
||||
$verb (dump kyz)
|
||||
==
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user