|
@@ -78,8 +78,6 @@ html_events(#pickle{source=Source, pickled=Pickled, args=Linked}, State=#cx{toke
|
|
|
|
|
|
% calling user code in exception-safe manner
|
|
|
|
|
|
--ifdef(OTP_RELEASE).
|
|
|
-
|
|
|
render_ev(#ev{module=M, name=F, msg=P, trigger=T}, _Source, Linked, State) ->
|
|
|
try
|
|
|
case F of
|
|
@@ -116,25 +114,6 @@ io(Data) ->
|
|
|
{io, [], {stack, S}}
|
|
|
end.
|
|
|
|
|
|
--else.
|
|
|
-
|
|
|
-render_ev(#ev{module=M,name=F,msg=P,trigger=T},_Source,Linked,State) ->
|
|
|
- try case F of
|
|
|
- api_event -> M:F(P,Linked,State);
|
|
|
- event -> [erlang:put(K,V) || {K,V} <- Linked], M:F(P);
|
|
|
- _ -> M:F(P,T,State) end
|
|
|
- catch E:R -> S = erlang:get_stacktrace(), ?LOG_EXCEPTION(E, R, S), {stack, S} end.
|
|
|
-
|
|
|
-io(Event, #cx{module=Module}) ->
|
|
|
- try X = Module:event(Event), {io,render_actions(erlang:get(actions)),X}
|
|
|
- catch E:R -> S = erlang:get_stacktrace(), ?LOG_EXCEPTION(E, R, S), {io, <<>>, {stack, S}} end.
|
|
|
-
|
|
|
-io(Data) ->
|
|
|
- try {io,render_actions(erlang:get(actions)),Data}
|
|
|
- catch E:R -> S = erlang:get_stacktrace(), ?LOG_EXCEPTION(E, R, S), {io, <<>>, {stack, S}} end.
|
|
|
-
|
|
|
--endif.
|
|
|
-
|
|
|
|
|
|
% event Nitrogen Web Framework protocol
|
|
|
|