urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-11-29 06:45:42 +03:00
Code Issues Packages Projects Releases Wiki Activity
e2034eca19
shrub/pkg/arvo/lib/dbug.hoon

139 lines
3.2 KiB
Plaintext
Raw Normal View History

dbug: add agent wrapper for debugging pokes Use :app +dbug to get the entire bowl, or specific subscriptions.
2020-01-21 23:34:50 +03:00
:: dbug: agent wrapper for generic debugging tools
::
:: usage: %-(agent:dbug your-agent)
::
|%
dbug: allow complex, hoon-based state queries +dbug [%state 'some-hoon'] now allows you to run some-hoon against the application's state. That hoon has access to the bowl and stdlib for more dbugging convenience.
2020-03-12 18:40:35 +03:00
+$ poke
$% [%bowl ~]
[%state grab=cord]
[%incoming =about]
[%outgoing =about]
dbug: add agent wrapper for debugging pokes Use :app +dbug to get the entire bowl, or specific subscriptions.
2020-01-21 23:34:50 +03:00
==
::
+$ about
dbug: allow easily printing all subs We had no easy way to print all %incoming or %outgoing subscriptions. Now, passing ~ instead of [%ship ~zod] or similar, will match all.
2020-03-21 20:32:39 +03:00
$@ ~
dbug: add agent wrapper for debugging pokes Use :app +dbug to get the entire bowl, or specific subscriptions.
2020-01-21 23:34:50 +03:00
$% [%ship =ship]
[%path =path]
[%wire =wire]
[%term =term]
==
::
++ agent
|= =agent:gall
^- agent:gall
lib: !. on dbug and verb wrapper agent cores Events always pass through these, adding to the stack trace on-crash. This information is practically never useful, however. Adding !. leaves these cores out of the traces.
2020-03-28 15:26:56 +03:00
!.
dbug: add agent wrapper for debugging pokes Use :app +dbug to get the entire bowl, or specific subscriptions.
2020-01-21 23:34:50 +03:00
|_ =bowl:gall
+* this .
ag ~(. agent bowl)
::
++ on-poke
|= [=mark =vase]
^- (quip card:agent:gall agent:gall)
?. ?=(%dbug mark)
=^ cards agent (on-poke:ag mark vase)
[cards this]
=/ dbug
dbug: allow complex, hoon-based state queries +dbug [%state 'some-hoon'] now allows you to run some-hoon against the application's state. That hoon has access to the bowl and stdlib for more dbugging convenience.
2020-03-12 18:40:35 +03:00
!<(poke vase)
dbug: cleaner subscription printing Previously, the pretty-printing for %incoming and %outgoing results was hanging on to and displaying irrelevant type information: "_list_ of subscriptions", "wire with _head and tail_", and so on. Here, we move to producing tangs, instead of vases, and print those. For the %incoming and %outgoing cases, we print a line for every subscription, sorting them by path and wire respectively, and giving clean, easily readable output.
2020-03-21 20:29:33 +03:00
=; =tang
((slog tang) [~ this])
dbug: allow complex, hoon-based state queries +dbug [%state 'some-hoon'] now allows you to run some-hoon against the application's state. That hoon has access to the bowl and stdlib for more dbugging convenience.
2020-03-12 18:40:35 +03:00
?- -.dbug
dbug: cleaner subscription printing Previously, the pretty-printing for %incoming and %outgoing results was hanging on to and displaying irrelevant type information: "_list_ of subscriptions", "wire with _head and tail_", and so on. Here, we move to producing tangs, instead of vases, and print those. For the %incoming and %outgoing cases, we print a line for every subscription, sorting them by path and wire respectively, and giving clean, easily readable output.
2020-03-21 20:29:33 +03:00
%bowl [(sell !>(bowl))]~
dbug: allow complex, hoon-based state queries +dbug [%state 'some-hoon'] now allows you to run some-hoon against the application's state. That hoon has access to the bowl and stdlib for more dbugging convenience.
2020-03-12 18:40:35 +03:00
::
%state
=? grab.dbug =('' grab.dbug) '-'
dbug: print %state's value, not whole vase
2020-03-25 00:12:28 +03:00
=- [(sell -)]~
dbug: allow complex, hoon-based state queries +dbug [%state 'some-hoon'] now allows you to run some-hoon against the application's state. That hoon has access to the bowl and stdlib for more dbugging convenience.
2020-03-12 18:40:35 +03:00
%+ slap
(slop on-save:ag !>([bowl=bowl ..zuse]))
(ream grab.dbug)
dbug: add agent wrapper for debugging pokes Use :app +dbug to get the entire bowl, or specific subscriptions.
2020-01-21 23:34:50 +03:00
::
%incoming
dbug: avoid printing nothing at all Previously, if filtering subscriptions turned up no results, nothing was printed. With this change, we explicitly print "no matching subscriptions" instead.
2020-04-15 23:28:59 +03:00
=; =tang
?^ tang tang
[%leaf "no matching subscriptions"]~
dbug: cleaner subscription printing Previously, the pretty-printing for %incoming and %outgoing results was hanging on to and displaying irrelevant type information: "_list_ of subscriptions", "wire with _head and tail_", and so on. Here, we move to producing tangs, instead of vases, and print those. For the %incoming and %outgoing cases, we print a line for every subscription, sorting them by path and wire respectively, and giving clean, easily readable output.
2020-03-21 20:29:33 +03:00
%+ murn
%+ sort ~(tap by sup.bowl)
|= [[* a=[=ship =path]] [* b=[=ship =path]]]
(aor [path ship]:a [path ship]:b)
|= [=duct [=ship =path]]
^- (unit tank)
dbug: add agent wrapper for debugging pokes Use :app +dbug to get the entire bowl, or specific subscriptions.
2020-01-21 23:34:50 +03:00
=; relevant=?
dbug: cleaner subscription printing Previously, the pretty-printing for %incoming and %outgoing results was hanging on to and displaying irrelevant type information: "_list_ of subscriptions", "wire with _head and tail_", and so on. Here, we move to producing tangs, instead of vases, and print those. For the %incoming and %outgoing cases, we print a line for every subscription, sorting them by path and wire respectively, and giving clean, easily readable output.
2020-03-21 20:29:33 +03:00
?. relevant ~
`>[path=path from=ship duct=duct]<
dbug: allow easily printing all subs We had no easy way to print all %incoming or %outgoing subscriptions. Now, passing ~ instead of [%ship ~zod] or similar, will match all.
2020-03-21 20:32:39 +03:00
?: ?=(~ about.dbug) &
dbug: add agent wrapper for debugging pokes Use :app +dbug to get the entire bowl, or specific subscriptions.
2020-01-21 23:34:50 +03:00
?- -.about.dbug
dbug: cleaner subscription printing Previously, the pretty-printing for %incoming and %outgoing results was hanging on to and displaying irrelevant type information: "_list_ of subscriptions", "wire with _head and tail_", and so on. Here, we move to producing tangs, instead of vases, and print those. For the %incoming and %outgoing cases, we print a line for every subscription, sorting them by path and wire respectively, and giving clean, easily readable output.
2020-03-21 20:29:33 +03:00
%ship =(ship ship.about.dbug)
%path ?=(^ (find path.about.dbug path))
%wire %+ lien duct
dbug: add agent wrapper for debugging pokes Use :app +dbug to get the entire bowl, or specific subscriptions.
2020-01-21 23:34:50 +03:00
|=(=wire ?=(^ (find wire.about.dbug wire)))
%term !!
==
::
%outgoing
dbug: avoid printing nothing at all Previously, if filtering subscriptions turned up no results, nothing was printed. With this change, we explicitly print "no matching subscriptions" instead.
2020-04-15 23:28:59 +03:00
=; =tang
?^ tang tang
[%leaf "no matching subscriptions"]~
dbug: cleaner subscription printing Previously, the pretty-printing for %incoming and %outgoing results was hanging on to and displaying irrelevant type information: "_list_ of subscriptions", "wire with _head and tail_", and so on. Here, we move to producing tangs, instead of vases, and print those. For the %incoming and %outgoing cases, we print a line for every subscription, sorting them by path and wire respectively, and giving clean, easily readable output.
2020-03-21 20:29:33 +03:00
%+ murn
%+ sort ~(tap by wex.bowl)
|= [[[a=wire *] *] [[b=wire *] *]]
(aor a b)
|= [[=wire =ship =term] [acked=? =path]]
^- (unit tank)
dbug: add agent wrapper for debugging pokes Use :app +dbug to get the entire bowl, or specific subscriptions.
2020-01-21 23:34:50 +03:00
=; relevant=?
dbug: cleaner subscription printing Previously, the pretty-printing for %incoming and %outgoing results was hanging on to and displaying irrelevant type information: "_list_ of subscriptions", "wire with _head and tail_", and so on. Here, we move to producing tangs, instead of vases, and print those. For the %incoming and %outgoing cases, we print a line for every subscription, sorting them by path and wire respectively, and giving clean, easily readable output.
2020-03-21 20:29:33 +03:00
?. relevant ~
`>[wire=wire agnt=[ship term] path=path ackd=acked]<
dbug: allow easily printing all subs We had no easy way to print all %incoming or %outgoing subscriptions. Now, passing ~ instead of [%ship ~zod] or similar, will match all.
2020-03-21 20:32:39 +03:00
?: ?=(~ about.dbug) &
dbug: add agent wrapper for debugging pokes Use :app +dbug to get the entire bowl, or specific subscriptions.
2020-01-21 23:34:50 +03:00
?- -.about.dbug
dbug: cleaner subscription printing Previously, the pretty-printing for %incoming and %outgoing results was hanging on to and displaying irrelevant type information: "_list_ of subscriptions", "wire with _head and tail_", and so on. Here, we move to producing tangs, instead of vases, and print those. For the %incoming and %outgoing cases, we print a line for every subscription, sorting them by path and wire respectively, and giving clean, easily readable output.
2020-03-21 20:29:33 +03:00
%ship =(ship ship.about.dbug)
%path ?=(^ (find path.about.dbug path))
%wire ?=(^ (find wire.about.dbug wire))
%term =(term term.about.dbug)
dbug: add agent wrapper for debugging pokes Use :app +dbug to get the entire bowl, or specific subscriptions.
2020-01-21 23:34:50 +03:00
==
==
::
++ on-init
^- (quip card:agent:gall agent:gall)
=^ cards agent on-init:ag
[cards this]
::
++ on-save on-save:ag
::
++ on-load
|= old-state=vase
^- (quip card:agent:gall agent:gall)
=^ cards agent (on-load:ag old-state)
[cards this]
::
++ on-watch
|= =path
^- (quip card:agent:gall agent:gall)
=^ cards agent (on-watch:ag path)
[cards this]
::
++ on-leave
|= =path
^- (quip card:agent:gall agent:gall)
=^ cards agent (on-leave:ag path)
[cards this]
::
++ on-peek on-peek:ag
::
++ on-agent
|= [=wire =sign:agent:gall]
^- (quip card:agent:gall agent:gall)
=^ cards agent (on-agent:ag wire sign)
[cards this]
::
++ on-arvo
|= [=wire =sign-arvo]
^- (quip card:agent:gall agent:gall)
=^ cards agent (on-arvo:ag wire sign-arvo)
[cards this]
::
++ on-fail
|= [=term =tang]
^- (quip card:agent:gall agent:gall)
=^ cards agent (on-fail:ag term tang)
[cards this]
--
--
Reference in New Issue Copy Permalink