← Back to branch summary

~ubuntu-branches/ubuntu/utopic/ejabberd/utopic

« back to all changes in this revision

Viewing changes to src/p1_fsm.erl

  • Committer: Bazaar Package Importer
  • Author(s): Konstantin Khomoutov, Konstantin Khomoutov
  • Date: 2011-10-03 20:27:12 UTC
  • mfrom: (1.1.19 upstream)
  • Revision ID: james.westby@ubuntu.com-20111003202712-w9071rc7vleldxwx
Tags: 2.1.9-1
[ Konstantin Khomoutov ]
* New upstream release.
* Remove obsoleted version.patch.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/p1_fsm.erl
456
456
            handle_msg(Msg, Parent, Name, StateName, StateData,
457
457
                       Mod, Time, Limits, Queue, QueueLen);
458
458
        _Msg ->
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).
472
472
 
 
473
-spec system_terminate(term(), _, _, [term(),...]) -> no_return().
 
474
 
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);
664
666
 
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}).
669
671
 
670
672
%%% ---------------------------------------------------
671
673
%%% Terminate the server.
672
674
%%% ---------------------------------------------------
673
675
 
 
676
-spec terminate(term(), _, _, atom(), _, _, _) -> no_return().
 
677
 
674
678
terminate(Reason, Name, Msg, Mod, StateName, StateData, Debug) ->
675
679
    case catch Mod:terminate(Reason, StateName, StateData) of
676
680
        {'EXIT', R} ->