与此同时,我想出了如何做到这一点,实际上并不太难。要让进程处理跟踪消息输出,您只需使用dbg:trace/2,3
并编写一个进行格式化的函数。
我们编写一个包含要传递给的函数的小模块dbg:trace
:
-module(trtool).
-export([nested/2]).
nested({trace, _Pid, call, {Mod, Fun, Param}}, Level) ->
io:format("~s~p:~p ~p\n",
[lists:duplicate(Level, "| "), Mod, Fun, Param]),
Level + 1;
nested({trace, _Pid, return_from, {Mod, Fun, Arity}, Rval}, Level) ->
L = Level - 1,
io:format("~s~p:~p/~b -> ~p\n",
[lists:duplicate(L, "| "), Mod, Fun, Arity, Rval]),
L;
nested(Any, Level) ->
io:format("trace_msg: ~p\n", [Any]),
Level.
该函数有两个参数,第一个参数传递跟踪消息,该消息是一个带有方便字段的元组。要了解要格式化的消息的结构,只需从一个简单的函数开始,该函数会打印所有内容,如示例函数的最后一个子句。
第二种格式是一种可以包含任何数据的状态。我们在调用时传递初始值dbg:trace
并从我们的函数返回下一个值。
In the nested
例如,我们只传递缩进级别,该级别将在call
and return_from
条款。
现在让我们尝试一下,首先调用dbg:tracer/2
,第一个参数必须是原子process
,第二个参数是一个元组,包含我们新编写的 fun 和状态参数的初始值。
1> dbg:tracer(process, {fun trtool:nested/2, 0}).
{ok,<0.70.0>}
然后我们像以前一样设置跟踪:
2> dbg:p(all, c), dbg:tpl(user_default,hop,x),dbg:tpl(user_default,rec,x).
{ok,[{matched,nonode@nohost,2},{saved,x}]}
然后我们开始调用跟踪函数,并且可以轻松跟踪嵌套:
3> rec(3).
user_default:rec [3]
| user_default:rec [3,1,3]
| | user_default:rec [3,1,2]
| | | user_default:rec [3,1,1]
| | | | user_default:rec [3,1,0]
| | | | | user_default:hop [3,1,0]
| | | | | user_default:hop/3 -> {3,21}
| | | | user_default:rec/3 -> {3,21,1}
| | | | user_default:rec [6,2,-1]
| | | | | user_default:hop [6,2,1]
| | | | | user_default:hop/3 -> {2,46}
| | | | user_default:rec/3 -> {2,46,1}
| | | user_default:rec/3 -> {5,67,2}
| | | user_default:rec [8,3,0]
| | | | user_default:hop [8,3,0]
| | | | user_default:hop/3 -> {3,144}
| | | user_default:rec/3 -> {3,144,1}
| | user_default:rec/3 -> {8,211,3}
| | user_default:rec [11,4,1]
| | | user_default:rec [11,4,0]
| | | | user_default:hop [11,4,0]
| | | | user_default:hop/3 -> {3,258}
| | | user_default:rec/3 -> {3,258,1}
| | | user_default:rec [14,5,-1]
| | | | user_default:hop [14,5,1]
| | | | user_default:hop/3 -> {2,260}
| | | user_default:rec/3 -> {2,260,1}
| | user_default:rec/3 -> {5,518,2}
| user_default:rec/3 -> {13,729,5}
user_default:rec/1 -> {15,729}
{15,729}
4>