|
|
@ -118,22 +118,22 @@ formatEvent({Type, From, _, {'$gen_call', {From, Ref}, Msg}, To}, State) -> |
|
|
|
NumCalls = get(num_calls) + 1, |
|
|
|
put(num_calls, NumCalls), |
|
|
|
put(Ref, NumCalls), |
|
|
|
eFmt:formatBin(<<" \"~w~s\" ~s \"~w~s\" [label=\"gen:call #~w ~9999P\"];~n">>, [From, label(From, State), case Type of send -> |
|
|
|
"->"; _ -> "-->" end, To, label(To, State), NumCalls, Msg, 8]); |
|
|
|
eFmt:formatBin(<<" \"~w~s\" ~s \"~w~s\" [label=\"gen:call #~w ~9999P\"];~n">>, [From, label(From, State), |
|
|
|
case Type of send -> "->"; _ -> "-->" end, To, label(To, State), NumCalls, Msg, 8]); |
|
|
|
formatEvent(Event = {Type, From, _, {Ref, Msg}, To}, State) -> |
|
|
|
case get(Ref) of |
|
|
|
undefined -> |
|
|
|
defFormatEvent(Event, State); |
|
|
|
NumCall -> |
|
|
|
eFmt:formatBin(<<" \"~w~s\" ~s \"~w~s\" [label=\"#~w ~9999P\"];~n">>, [From, label(From, State), case Type of send -> |
|
|
|
"->"; _ -> "-->" end, To, label(To, State), NumCall, Msg, 8]) |
|
|
|
eFmt:formatBin(<<" \"~w~s\" ~s \"~w~s\" [label=\"#~w ~9999P\"];~n">>, [From, label(From, State), |
|
|
|
case Type of send -> "->"; _ -> "-->" end, To, label(To, State), NumCall, Msg, 8]) |
|
|
|
end; |
|
|
|
formatEvent(Event, State) -> |
|
|
|
defFormatEvent(Event, State). |
|
|
|
|
|
|
|
defFormatEvent({Type, From, _, Msg, To}, State) -> |
|
|
|
eFmt:formatBin(<<" \"~w~s\" ~s \"~w~s\" [label=\"~9999P\"];~n">>, [From, label(From, State), case Type of send -> |
|
|
|
"->"; _ -> "-->" end, To, label(To, State), Msg, 8]). |
|
|
|
eFmt:formatBin(<<" \"~w~s\" ~s \"~w~s\" [label=\"~9999P\"];~n">>, [From, label(From, State), |
|
|
|
case Type of send -> "->"; _ -> "-->" end, To, label(To, State), Msg, 8]). |
|
|
|
|
|
|
|
label(P, #state{meta = Meta}) -> |
|
|
|
case maps:get(P, Meta, #{}) of |
|
|
|