|
|
@ -41,9 +41,14 @@ |
|
|
|
, stop/1 |
|
|
|
]). |
|
|
|
|
|
|
|
-compile([export_all]). |
|
|
|
|
|
|
|
sts() -> |
|
|
|
trace([{app, eSync}, {scope, [whereis(esSyncSrv)]}]). |
|
|
|
|
|
|
|
sts1() -> |
|
|
|
trace([test, {scope, [self()]}]). |
|
|
|
|
|
|
|
stl() -> |
|
|
|
trace([{app, eSync}, {scope, [new_processes]}], tpTracerLog). |
|
|
|
|
|
|
@ -197,7 +202,7 @@ traceInput([{scope, Scope} | Tail], TracerState, TraceOpts) -> |
|
|
|
[ |
|
|
|
begin |
|
|
|
%erlang:trace(PidPortSpec, true, [call, procs, arity, return_to, set_on_spawn, {tracer, tpTracerNif, TracerState} | ExtraFlags]) |
|
|
|
erlang:trace(PidPortSpec, true, [call, arity, send, 'receive', set_on_spawn, {tracer, tpTracerNif, TracerState}]) |
|
|
|
erlang:trace(PidPortSpec, true, [call, {tracer, tpTracerNif, TracerState}]) |
|
|
|
end || PidPortSpec <- Scope |
|
|
|
], |
|
|
|
traceInput(Tail, TracerState, TraceOpts); |
|
|
@ -212,5 +217,5 @@ traceInput([Mod | Tail], TracerState, TraceOpts) when is_atom(Mod) -> |
|
|
|
%% The module must be loaded before we attempt to trace it. |
|
|
|
_ = code:ensure_loaded(Mod), |
|
|
|
io:format("IMY****************** ~p~n ", [Mod]), |
|
|
|
_ = erlang:trace_pattern({Mod, '_', '_'}, MatchSpec, [local]), |
|
|
|
_ = erlang:trace_pattern({Mod, '_', '_'}, [{'_', [], [{message, {process_dump}}]}], [local]), |
|
|
|
traceInput(Tail, TracerState, TraceOpts). |