gen: add comments on new generators

This commit is contained in:
Philip Monk 2019-12-03 16:41:29 -08:00
parent dc30f6df8c
commit 38197fc79d
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC
8 changed files with 19 additions and 4 deletions

View File

@ -1,3 +1,3 @@
version https://git-lfs.github.com/spec/v1
oid sha256:a31c322a1fef4ce52d8efbdc31d09bc4c72b9be772d807e5f2c6cbc288ee3666
size 10119668
oid sha256:1f92c13b76a82c05e8c390587e0b8e176244ef983705226f5d88bac1ba937686
size 9484832

View File

@ -54,7 +54,6 @@
::
?: =(our ship)
`state
~> %slog.0^leaf/"ping: {<our>} -> {<ship>}"
=/ s (~(get by ships.state) ship)
?~ s
`state

View File

@ -1,3 +1,8 @@
:: Print most recently seen ethereum block
::
:: Note we require 30 confirmation blocks, so we should expect to have
:: processed only those blocks which are this number minus 30.
::
:- %say
|= [[now=@da *] *]
:- %tang

View File

@ -1,5 +1,8 @@
:: Helm: Adjust Ames verbosity
::
:: List of diagnostic flags is in verb:ames in zuse.hoon, documented in
:: ames.hoon
::
/? 310
::
::::

View File

@ -1,3 +1,5 @@
:: Print keys for a ship
::
:- %say
|= [[now=time *] [=ship ~] ~]
:* %noun

View File

@ -1,3 +1,5 @@
:: Print useful diagnostic information
::
:- %say
|= [[now=time * bec=beak] ~ ~]
=* our p.bec

View File

@ -1,3 +1,7 @@
:: Tell app to print what it's doing
::
:: For apps that use lib/verb, :app +verb toggles verbosity.
::
:- %say
|= [* arg=?(~ [%bowl ~]) ~]
[%verb ?~(arg %loud %bowl)]

View File

@ -764,7 +764,7 @@
=/ deal [hen routes deal]
(~(put to deals) deal)
::
~& >> [%gall-not-running agent -.deal]
%- (slog leaf+"gall: not running {<agent>} yet, got {<-.deal>}" ~)
%_ mo-core
blocked.agents.state (~(put by blocked.agents.state) agent blocked)
==