456
456
handle_msg(Msg, Parent, Name, StateName, StateData,
457
457
Mod, Time, Limits, Queue, QueueLen);
459
Debug1 = sys:handle_debug(Debug, {?MODULE, print_event},
459
Debug1 = sys:handle_debug(Debug, fun print_event/3,
460
460
{Name, StateName}, {in, Msg}),
461
461
handle_msg(Msg, Parent, Name, StateName, StateData,
462
462
Mod, Time, Debug1, Limits, Queue, QueueLen)
470
470
loop(Parent, Name, StateName, StateData, Mod, Time, Debug,
471
471
Limits, Queue, QueueLen).
473
-spec system_terminate(term(), _, _, [term(),...]) -> no_return().
473
475
system_terminate(Reason, _Parent, Debug,
474
476
[Name, StateName, StateData, Mod, _Time, _Limits]) ->
475
477
terminate(Reason, Name, [], Mod, StateName, StateData, Debug).
590
592
From = from(Msg),
591
593
case catch dispatch(Msg, Mod, StateName, StateData) of
592
594
{next_state, NStateName, NStateData} ->
593
Debug1 = sys:handle_debug(Debug, {?MODULE, print_event},
595
Debug1 = sys:handle_debug(Debug, fun print_event/3,
594
596
{Name, NStateName}, return),
595
597
loop(Parent, Name, NStateName, NStateData,
596
598
Mod, infinity, Debug1, Limits, Queue, QueueLen);
597
599
{next_state, NStateName, NStateData, Time1} ->
598
Debug1 = sys:handle_debug(Debug, {?MODULE, print_event},
600
Debug1 = sys:handle_debug(Debug, fun print_event/3,
599
601
{Name, NStateName}, return),
600
602
loop(Parent, Name, NStateName, NStateData,
601
603
Mod, Time1, Debug1, Limits, Queue, QueueLen);
665
667
reply(Name, {To, Tag}, Reply, Debug, StateName) ->
666
668
reply({To, Tag}, Reply),
667
sys:handle_debug(Debug, {?MODULE, print_event}, Name,
669
sys:handle_debug(Debug, fun print_event/3, Name,
668
670
{out, Reply, To, StateName}).
670
672
%%% ---------------------------------------------------
671
673
%%% Terminate the server.
672
674
%%% ---------------------------------------------------
676
-spec terminate(term(), _, _, atom(), _, _, _) -> no_return().
674
678
terminate(Reason, Name, Msg, Mod, StateName, StateData, Debug) ->
675
679
case catch Mod:terminate(Reason, StateName, StateData) of