urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-07 05:26:56 +03:00
Code Issues Packages Projects Releases Wiki Activity

Report some data to |mass

Browse Source
This commit is contained in:
Elliot Glaysher 2018-06-04 15:26:24 -07:00
parent dd20225625
commit 11911b16c1
2 changed files with 32 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
sys/vane/dill.hoon
View File

@ -20,6 +20,7 @@
e/(unit mass) :: e/(unit mass) ::
f/(unit mass) :: f/(unit mass) ::
g/(unit mass) :: g/(unit mass) ::
t/(unit mass) ::
== :: == ::
== :: == ::
++ axon :: dill per duct ++ axon :: dill per duct
@ -59,7 +60,7 @@
{$deal p/sock q/cush:gall} :: {$deal p/sock q/cush:gall} ::
== :: == ::
++ note :: out request $-> ++ note :: out request $->
$? {?($a $b $c $e $f $g) $wegh $~} :: $? {?($a $b $c $e $f $g $t) $wegh $~} ::
$% {$a note-ames} :: $% {$a note-ames} ::
{$c note-clay} :: {$c note-clay} ::
{$d note-dill} :: {$d note-dill} ::
@ -84,7 +85,7 @@
{$unto p/cuft:gall} :: {$unto p/cuft:gall} ::
== :: == ::
++ sign :: in result $<- ++ sign :: in result $<-
$? {?($a $b $c $e $f $g) $mass p/mass} :: $? {?($a $b $c $e $f $g $t) $mass p/mass} ::
$% {$a sign-ames} :: $% {$a sign-ames} ::
{$c sign-clay} :: {$c sign-clay} ::
{$d sign-dill} :: {$d sign-dill} ::
@ -259,6 +260,7 @@
[hen %pass /heft/eyre %e %wegh ~] [hen %pass /heft/eyre %e %wegh ~]
[hen %pass /heft/ford %f %wegh ~] [hen %pass /heft/ford %f %wegh ~]
[hen %pass /heft/gall %g %wegh ~] [hen %pass /heft/gall %g %wegh ~]
[hen %pass /heft/turbo %t %wegh ~]
moz moz
== ==
== ==
@ -362,7 +364,7 @@
|= sih/sign |= sih/sign
^+ +> ^+ +>
?- sih ?- sih
{?($a $b $c $e $f $g) $mass *} {?($a $b $c $e $f $g $t) $mass *}
(wegt -.sih p.sih) (wegt -.sih p.sih)
:: ::
{$a $nice *} {$a $nice *}
@ -420,7 +422,7 @@
== ==
:: ::
++ wegt ++ wegt
|= {lal/?($a $b $c $e $f $g) mas/mass} |= {lal/?($a $b $c $e $f $g $t) mas/mass}
^+ +> ^+ +>
=. hef.all =. hef.all
?- lal ?- lal
@ -430,6 +432,7 @@
$e ~?(?=(^ e.hef.all) %double-mass-e hef.all(e `mas)) $e ~?(?=(^ e.hef.all) %double-mass-e hef.all(e `mas))
$f ~?(?=(^ f.hef.all) %double-mass-f hef.all(f `mas)) $f ~?(?=(^ f.hef.all) %double-mass-f hef.all(f `mas))
$g ~?(?=(^ g.hef.all) %double-mass-g hef.all(g `mas)) $g ~?(?=(^ g.hef.all) %double-mass-g hef.all(g `mas))
$t ~?(?=(^ t.hef.all) %double-mass-t hef.all(t `mas))
== ==
?. ?& ?=(^ a.hef.all) ?. ?& ?=(^ a.hef.all)
?=(^ b.hef.all) ?=(^ b.hef.all)
@ -437,12 +440,13 @@
?=(^ e.hef.all) ?=(^ e.hef.all)
?=(^ f.hef.all) ?=(^ f.hef.all)
?=(^ g.hef.all) ?=(^ g.hef.all)
?=(^ t.hef.all)
== ==
+>.$ +>.$
%+ done(hef.all [~ ~ ~ ~ ~ ~]) %+ done(hef.all [~ ~ ~ ~ ~ ~ ~])
%mass %mass
=> [hef.all d=wegh] => [hef.all d=wegh]
[%vanes %| ~[u.a u.c d u.e u.f u.g u.b]] [%vanes %| ~[u.a u.c d u.e u.f u.g u.b u.t]]
-- --
:: ::
++ ax :: make ++as ++ ax :: make ++as

23
sys/vane/turbo.hoon
View File

@ -1,3 +1,4 @@
!:
:: pit: a +vase of the hoon+zuse kernel, which is a deeply nested core :: pit: a +vase of the hoon+zuse kernel, which is a deeply nested core
:: ::
|= pit=vase |= pit=vase
@ -5060,7 +5061,27 @@
:: ::
[~ ford-gate] [~ ford-gate]
:: ::
%wegh !! %wegh
:_ ford-gate
:_ ~
:^ duct %give %mass
^- mass
:- %turbo
:- %|
%+ turn ~(tap by state-by-ship.ax) :: XX single-home
|= {our/@ ford-state} ^- mass
:+ (scot %p our) %|
:: TODO: Other vanes don't reveal everything. Which parts should we report?
:~ [%results [%& results]]
[%builds [%& builds]]
:+ %components %|
:~ [%normal [%& components]]
[%provisional [%& provisional-components]]
==
[%rebuilds [%& rebuilds]]
[%blocks [%& blocks]]
[%builds-by-listener [%& builds-by-listener]]
==
== ==
:: +wipe: wipe half a +ford-state's cache, in LRU (least recently used) order :: +wipe: wipe half a +ford-state's cache, in LRU (least recently used) order
:: ::