mirror of
https://github.com/ilyakooo0/urbit.git
synced 2025-01-02 20:15:27 +03:00
|keep and associated machinery
This commit is contained in:
parent
a6a78cea65
commit
ddef8079a3
@ -182,6 +182,7 @@
|
||||
++ poke-kiln-syncs (wrap poke-syncs):from-kiln
|
||||
++ poke-kiln-start-autoload (wrap poke-start-autoload):from-kiln
|
||||
++ poke-kiln-wipe-ford (wrap poke-wipe-ford):from-kiln
|
||||
++ poke-kiln-keep-ford (wrap poke-keep-ford):from-kiln
|
||||
++ poke-kiln-autoload (wrap poke-autoload):from-kiln
|
||||
++ poke-kiln-overload (wrap poke-overload):from-kiln
|
||||
++ poke-kiln-unmount (wrap poke-unmount):from-kiln
|
||||
|
13
gen/hood/keep-ford.hoon
Normal file
13
gen/hood/keep-ford.hoon
Normal file
@ -0,0 +1,13 @@
|
||||
:: Kiln: resize Ford cache
|
||||
::
|
||||
::::
|
||||
::
|
||||
/? 310
|
||||
::
|
||||
::::
|
||||
!:
|
||||
:- %say
|
||||
|= $: {now/@da eny/@uvJ bec/beak}
|
||||
[[max-cache-size=@ud ~] ~]
|
||||
==
|
||||
[%kiln-keep-ford max-cache-size]
|
@ -71,6 +71,7 @@
|
||||
{$perm wire ship desk path rite} ::
|
||||
{$poke wire dock pear} ::
|
||||
{$wipe wire @p $~} ::
|
||||
[%keep wire max-cache-size=@ud]
|
||||
{$wait wire @da} ::
|
||||
{$warp wire sock riff} ::
|
||||
== ::
|
||||
@ -275,7 +276,11 @@
|
||||
?> (gte start now)
|
||||
abet:(emit %wait /kiln/overload/(scot %dr recur) start)
|
||||
::
|
||||
++ poke-wipe-ford |=($~ abet:(emit %wipe /kiln our ~))
|
||||
++ poke-wipe-ford
|
||||
|=($~ abet:(emit %wipe /kiln our ~))
|
||||
::
|
||||
++ poke-keep-ford
|
||||
|=(max-cache-size=@ud abet:(emit %keep /kiln max-cache-size))
|
||||
::
|
||||
++ mack
|
||||
|= {way/wire saw/(unit tang)}
|
||||
|
@ -1214,17 +1214,18 @@
|
||||
^- (unit @tas)
|
||||
?+ sep ~& [%ap-vain sep]
|
||||
~
|
||||
$build `%f
|
||||
$cash `%a
|
||||
$conf `%g
|
||||
$cred `%c
|
||||
$crew `%c
|
||||
$crow `%c
|
||||
$deal `%g
|
||||
$build `%f
|
||||
$kill `%f
|
||||
$flog `%d
|
||||
$drop `%c
|
||||
$flog `%d
|
||||
$info `%c
|
||||
$keep `%f
|
||||
$kill `%f
|
||||
$merg `%c
|
||||
$mont `%c
|
||||
$nuke `%a
|
||||
@ -1238,7 +1239,7 @@
|
||||
$want `%a
|
||||
$warp `%c
|
||||
$well `%e
|
||||
:: $wipe `%f :: XX cache clear
|
||||
$wipe `%f
|
||||
==
|
||||
--
|
||||
--
|
||||
|
Loading…
Reference in New Issue
Block a user