|keep and associated machinery

This commit is contained in:
Ted Blackman 2018-06-21 21:00:07 -07:00 committed by Elliot Glaysher
parent a6a78cea65
commit ddef8079a3
4 changed files with 25 additions and 5 deletions

View File

@ -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
View 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]

View File

@ -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)}

View File

@ -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
==
--
--