mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-09-20 23:18:00 +03:00
verb: add +verb %bowl to print bowl on every event
This commit is contained in:
parent
65b7f2f552
commit
702dd2c07a
@ -1,4 +1,3 @@
|
||||
:- %say
|
||||
|= [* ~ ~]
|
||||
[%verb ~]
|
||||
|
||||
|= [* arg=?(~ [%bowl ~]) ~]
|
||||
[%verb ?~(arg %loud %bowl)]
|
||||
|
@ -1,98 +1,92 @@
|
||||
:: Print what your agent is doing.
|
||||
::
|
||||
|= [loud=? =agent:gall]
|
||||
=| bowl-print=_|
|
||||
^- agent:gall
|
||||
|^
|
||||
|_ =bowl:gall
|
||||
+* this .
|
||||
ag ~(. agent bowl)
|
||||
::
|
||||
++ on-init
|
||||
^- (quip card:agent:gall agent:gall)
|
||||
=> ?. loud .
|
||||
%- (slog leaf+"{<dap.bowl>}: on-init" ~)
|
||||
.
|
||||
%- (print bowl "{<dap.bowl>}: on-init")
|
||||
=^ cards agent on-init:ag
|
||||
[cards this]
|
||||
::
|
||||
++ on-save
|
||||
^- vase
|
||||
=> ?. loud .
|
||||
%- (slog leaf+"{<dap.bowl>}: on-save" ~)
|
||||
.
|
||||
%- (print bowl "{<dap.bowl>}: on-save")
|
||||
on-save:ag
|
||||
::
|
||||
++ on-load
|
||||
|= old-state=vase
|
||||
^- (quip card:agent:gall agent:gall)
|
||||
=> ?. loud .
|
||||
%- (slog leaf+"{<dap.bowl>}: on-load" ~)
|
||||
.
|
||||
%- (print bowl "{<dap.bowl>}: on-load")
|
||||
=^ cards agent (on-load:ag old-state)
|
||||
[cards this]
|
||||
::
|
||||
++ on-poke
|
||||
|= [=mark =vase]
|
||||
^- (quip card:agent:gall agent:gall)
|
||||
=> ?. loud .
|
||||
%- (slog leaf+"{<dap.bowl>}: on-poke with mark {<mark>}" ~)
|
||||
.
|
||||
%- (print bowl "{<dap.bowl>}: on-poke with mark {<mark>}")
|
||||
?: ?=(%verb mark)
|
||||
`this(loud !loud)
|
||||
?- !<(?(%loud %bowl) vase)
|
||||
%loud `this(loud !loud)
|
||||
%bowl `this(bowl-print !bowl-print)
|
||||
==
|
||||
=^ cards agent (on-poke:ag mark vase)
|
||||
[cards this]
|
||||
::
|
||||
++ on-watch
|
||||
|= =path
|
||||
^- (quip card:agent:gall agent:gall)
|
||||
=> ?. loud .
|
||||
%- (slog leaf+"{<dap.bowl>}: on-watch on path {<path>}" ~)
|
||||
.
|
||||
%- (print bowl "{<dap.bowl>}: on-watch on path {<path>}")
|
||||
=^ cards agent (on-watch:ag path)
|
||||
[cards this]
|
||||
::
|
||||
++ on-leave
|
||||
|= =path
|
||||
^- (quip card:agent:gall agent:gall)
|
||||
=> ?. loud .
|
||||
%- (slog leaf+"{<dap.bowl>}: on-leave on path {<path>}" ~)
|
||||
.
|
||||
%- (print bowl "{<dap.bowl>}: on-leave on path {<path>}")
|
||||
=^ cards agent (on-leave:ag path)
|
||||
[cards this]
|
||||
::
|
||||
++ on-peek
|
||||
|= =path
|
||||
^- (unit (unit cage))
|
||||
=> ?. loud .
|
||||
%- (slog leaf+"{<dap.bowl>}: on-peek on path {<path>}" ~)
|
||||
.
|
||||
%- (print bowl "{<dap.bowl>}: on-peek on path {<path>}")
|
||||
(on-peek:ag path)
|
||||
::
|
||||
++ on-agent
|
||||
|= [=wire =sign:agent:gall]
|
||||
^- (quip card:agent:gall agent:gall)
|
||||
=> ?. loud .
|
||||
%- (slog leaf+"{<dap.bowl>}: on-agent on wire {<wire>}, {<-.sign>}" ~)
|
||||
.
|
||||
%- (print bowl "{<dap.bowl>}: on-agent on wire {<wire>}, {<-.sign>}")
|
||||
=^ cards agent (on-agent:ag wire sign)
|
||||
[cards this]
|
||||
::
|
||||
++ on-arvo
|
||||
|= [=wire =sign-arvo]
|
||||
^- (quip card:agent:gall agent:gall)
|
||||
=> ?. loud .
|
||||
%- %+ slog
|
||||
leaf+"{<dap.bowl>}: on-arvo on wire {<wire>}, {<[- +<]:sign-arvo>}"
|
||||
~
|
||||
.
|
||||
%- (print bowl "{<dap.bowl>}: on-arvo on wire {<wire>}, {<[- +<]:sign-arvo>}")
|
||||
=^ cards agent (on-arvo:ag wire sign-arvo)
|
||||
[cards this]
|
||||
::
|
||||
++ on-fail
|
||||
|= [=term =tang]
|
||||
^- (quip card:agent:gall agent:gall)
|
||||
=> ?. loud .
|
||||
%- (slog leaf+"{<dap.bowl>}: on-fail with term {<term>}" ~)
|
||||
.
|
||||
%- (print bowl "{<dap.bowl>}: on-fail with term {<term>}")
|
||||
=^ cards agent (on-fail:ag term tang)
|
||||
[cards this]
|
||||
--
|
||||
::
|
||||
++ print
|
||||
|= [=bowl:gall =tape]
|
||||
^+ same
|
||||
=? . bowl-print
|
||||
%- (slog >bowl< ~)
|
||||
.
|
||||
?. loud same
|
||||
%- (slog leaf+tape ~)
|
||||
same
|
||||
--
|
||||
|
@ -1481,8 +1481,6 @@
|
||||
==
|
||||
^+ event-core
|
||||
::
|
||||
~> %slog.0^leaf/"ames: rekey {<our^ship^life>}"
|
||||
::
|
||||
=/ ship-state (~(get by peers.ames-state) ship)
|
||||
?. ?=([~ %known *] ship-state)
|
||||
=| =point
|
||||
|
Loading…
Reference in New Issue
Block a user