mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-11-28 11:40:11 +03:00
dbug: support app state printing
:your-app +dbug %state
This commit is contained in:
parent
da6f27c55c
commit
a7f07866f9
@ -19,11 +19,14 @@
|
||||
*
|
||||
:: inline arguments
|
||||
::
|
||||
args=?(~ [=what =about ~])
|
||||
args=?(~ [what=?(%bowl %state) ~] [=what =about ~])
|
||||
:: named arguments
|
||||
::
|
||||
~
|
||||
==
|
||||
:- %dbug
|
||||
?~ args [%bowl *about]
|
||||
[what.args about.args]
|
||||
?- args
|
||||
~ [%bowl *about]
|
||||
[@ ~] [what.args *about]
|
||||
[@ * ~] [what about]:args
|
||||
==
|
||||
|
@ -5,6 +5,7 @@
|
||||
|%
|
||||
+$ what
|
||||
$? %bowl
|
||||
%state
|
||||
%incoming
|
||||
%outgoing
|
||||
==
|
||||
@ -31,12 +32,14 @@
|
||||
[cards this]
|
||||
=/ dbug
|
||||
!<([=what =about] vase)
|
||||
=; out
|
||||
((slog >out< ~) [~ this])
|
||||
=; out=^vase
|
||||
((slog (sell out) ~) [~ this])
|
||||
?- what.dbug
|
||||
%bowl bowl
|
||||
%bowl !>(bowl)
|
||||
%state on-save:ag
|
||||
::
|
||||
%incoming
|
||||
!>
|
||||
%+ murn ~(tap by sup.bowl)
|
||||
|= sub=[=duct [=ship =path]]
|
||||
^- (unit _sub)
|
||||
@ -51,6 +54,7 @@
|
||||
==
|
||||
::
|
||||
%outgoing
|
||||
!>
|
||||
%+ murn ~(tap by wex.bowl)
|
||||
|= sub=[[=wire =ship =term] [acked=? =path]]
|
||||
^- (unit _sub)
|
||||
|
Loading…
Reference in New Issue
Block a user