ft: gen_emm修改

src/gen_emm.erl

@@ -321,10 +321,10 @@ epmRequest(EpmSrv, Cmd) ->
 loopEntry(Parent, ServerName, HibernateAfterTimeout, EpmHers, Debug, true) ->
    proc_lib:hibernate(?MODULE, wakeupFromHib, [Parent, ServerName, HibernateAfterTimeout, EpmHers, Debug]);
 loopEntry(Parent, ServerName,  HibernateAfterTimeout, EpmHers, Debug, _) ->
-   receiveIng(Parent, ServerName,  HibernateAfterTimeout, EpmHers, Debug, false).
+   receiveIng(Parent, ServerName, HibernateAfterTimeout, EpmHers, Debug, false).
 
 wakeupFromHib(Parent, ServerName, HibernateAfterTimeout, EpmHers,  Debug) ->
-   receiveIng(Parent, ServerName,  HibernateAfterTimeout, EpmHers, Debug, true).
+   receiveIng(Parent, ServerName, HibernateAfterTimeout, EpmHers, Debug, true).
 
 receiveIng(Parent, ServerName, HibernateAfterTimeout, EpmHers, Debug, IsHib) ->
    receive
@@ -339,7 +339,7 @@ receiveIng(Parent, ServerName, HibernateAfterTimeout, EpmHers, Debug, IsHib) ->
       Msg ->
          handleMsg(Parent, ServerName,  HibernateAfterTimeout,EpmHers,  Debug, Msg)
    after HibernateAfterTimeout ->
-      proc_lib:hibernate(?MODULE, wakeupFromHib, [Parent, ServerName,  HibernateAfterTimeout, EpmHers, Debug])
+      proc_lib:hibernate(?MODULE, wakeupFromHib, [Parent, ServerName, HibernateAfterTimeout, EpmHers, Debug])
    end.
 
 epmCallMsg(Parent, ServerName, HibernateAfterTimeout, EpmHers, Debug, From, Request) ->
@@ -390,8 +390,22 @@ epmInfoMsg(Parent, ServerName, HibernateAfterTimeout, EpmHers, Debug, CmdOrEmpHa
 
 handleMsg(Parent, ServerName, HibernateAfterTimeout, EpmHers, Debug, Msg) ->
    NewDebug = ?SYS_DEBUG(Debug, ServerName, {in, Msg}),
-   {Hib, MSL1} = doNotify(EpmHers, handleInfo, Msg, false),
-   loopEntry(Parent, ServerName, MSL1, HibernateAfterTimeout, NewDebug, Hib).
+   case Msg of
+      {'EXIT', From, Reason} ->
+         MSL1 = handle_exit(From, Reason, MSL, ServerName),
+         loop(Parent, ServerName, MSL1, HibernateAfterTimeout, Debug, false);
+      {_From, Tag, stop} ->
+         catch terminate_server(normal, Parent, MSL, ServerName),
+         reply(Tag, ok);
+      {_From, Tag, get_modules} ->
+         reply(Tag, get_modules(MSL)),
+         loop(Parent, ServerName, MSL, HibernateAfterTimeout, Debug, false);
+      _ ->
+      {Hib, MSL1} = doNotify(EpmHers, handleInfo, Msg, false),
+      loopEntry(Parent, ServerName, MSL1, HibernateAfterTimeout, NewDebug, Hib)
+   end.
+
+
 
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %% EPM inner fun