Ви не можете вибрати більше 25 тем
Теми мають розпочинатися з літери або цифри, можуть містити дефіси (-) і не повинні перевищувати 35 символів.
42 рядки
869 B
42 рядки
869 B
-module(tpTracerShell).
|
|
|
|
-export([
|
|
start_link/1
|
|
, init/1
|
|
, loop/1
|
|
]).
|
|
|
|
-export([
|
|
system_continue/3
|
|
, system_terminate/4
|
|
, system_code_change/4
|
|
]).
|
|
|
|
start_link(_TracerOpts) ->
|
|
Pid = proc_lib:spawn_link(?MODULE, init, [self()]),
|
|
{ok, Pid}.
|
|
|
|
init(Parent) ->
|
|
process_flag(message_queue_data, off_heap),
|
|
process_flag(trap_exit, true),
|
|
?MODULE:loop(Parent).
|
|
|
|
loop(Parent) ->
|
|
receive
|
|
{system, From, Request} ->
|
|
sys:handle_system_msg(Request, From, Parent, ?MODULE, [], Parent);
|
|
RMsg ->
|
|
io:format("~10000p\n", [RMsg]),
|
|
%erlang:display(RMsg),
|
|
?MODULE:loop(Parent)
|
|
end.
|
|
|
|
system_continue(_, _, Parent) ->
|
|
?MODULE:loop(Parent).
|
|
|
|
-spec system_terminate(any(), _, _, _) -> no_return().
|
|
system_terminate(Reason, _, _, _) ->
|
|
exit(Reason).
|
|
|
|
system_code_change(Misc, _, _, _) ->
|
|
{ok, Misc}.
|