ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-28 11:40:11 +03:00
Code Issues Packages Projects Releases Wiki Activity

added functionality to call |mass on a timer

Browse Source
This commit is contained in:
Isaac Visintainer 2019-01-29 15:06:28 -08:00
parent 21ec2a8138
commit ed13767292
3 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/hood.hoon
View File

@ -141,6 +141,7 @@
++ mere-kiln (wrap take-mere):from-kiln ++ mere-kiln (wrap take-mere):from-kiln
++ mere-kiln-sync (wrap take-mere-sync):from-kiln ++ mere-kiln-sync (wrap take-mere-sync):from-kiln
++ wake-kiln-overload (wrap take-wake-overload):from-kiln ++ wake-kiln-overload (wrap take-wake-overload):from-kiln
++ wake-helm-automass (wrap take-wake-automass):from-helm
++ onto-drum (wrap take-onto):from-drum ++ onto-drum (wrap take-onto):from-drum
++ peer-drum (wrap peer):from-drum ++ peer-drum (wrap peer):from-drum
++ poke-atom (wrap poke-atom):from-helm ++ poke-atom (wrap poke-atom):from-helm
@ -166,6 +167,7 @@
++ poke-helm-tlon-add-fora (wrap poke-tlon-add-fora):from-helm ++ poke-helm-tlon-add-fora (wrap poke-tlon-add-fora):from-helm
++ poke-helm-tlon-add-stream (wrap poke-tlon-add-stream):from-helm ++ poke-helm-tlon-add-stream (wrap poke-tlon-add-stream):from-helm
++ poke-helm-tlon-init-stream (wrap poke-tlon-init-stream):from-helm ++ poke-helm-tlon-init-stream (wrap poke-tlon-init-stream):from-helm
++ poke-helm-automass (wrap poke-automass):from-helm
++ poke-hood-sync (wrap poke-sync):from-kiln ++ poke-hood-sync (wrap poke-sync):from-kiln
++ poke-kiln-commit (wrap poke-commit):from-kiln ++ poke-kiln-commit (wrap poke-commit):from-kiln
++ poke-kiln-info (wrap poke-info):from-kiln ++ poke-kiln-info (wrap poke-info):from-kiln

14
gen/hood/automass.hoon Normal file
View File

@ -0,0 +1,14 @@
:: Helm: show memory usage by vane, on a recurring timer
::
:::: /hoon/automass/hood/gen
::
/? 309
::
::::
::
:- %say
|= $: [now=@da eny=@uvJ bec=beak]
[recur=@dr ~]
~
==
[%helm-automass recur]

14
lib/hood/helm.hoon
View File

@ -42,6 +42,7 @@
{$nuke wire ship} :: {$nuke wire ship} ::
{$serv wire ?(desk beam)} :: {$serv wire ?(desk beam)} ::
{$poke wire dock pear} :: {$poke wire dock pear} ::
{$wait wire @da} ::
== :: == ::
++ move (pair bone card) :: user-level move ++ move (pair bone card) :: user-level move
++ pear :: poke fruit ++ pear :: poke fruit
@ -93,6 +94,19 @@
|= ~ =< abet |= ~ =< abet
(emit %flog /heft %crud %hax-heft ~) (emit %flog /heft %crud %hax-heft ~)
:: ::
++ poke-automass
|= recur=@dr
abet:(emit %wait /helm/automass/(scot %dr recur) (add now recur))
::
++ take-wake-automass
|= [way=wire ~]
?> ?=([@ ~] way)
=< abet
%- emil
:~ [%flog /heft %crud %hax-heft ~]
[%wait /helm/automass/[-.way] (add now (slav %dr -.way))]
==
::
++ poke-send-hi ++ poke-send-hi
|= {her/ship mes/(unit tape)} =< abet |= {her/ship mes/(unit tape)} =< abet
%^ emit %poke /helm/hi/(scot %p her) %^ emit %poke /helm/hi/(scot %p her)