睡觉前，贴一段有关热更新的核心代码欣赏一下，这是来源于code_server.erl

%% do_purge(Module)

%%  Kill all processes running code from *old* Module, and then purge the

%%  module. Return true if any processes killed, else false.

 

do_purge(Mod) ->

    do_purge(processes(), to_atom(Mod), false).

 

do_purge([P|Ps], Mod, Purged) ->

    case erlang:check_process_code(P, Mod) of

true ->

   Ref = erlang:monitor(process, P),

   exit(P, kill),

   receive

{'DOWN',Ref,process,_Pid,_} -> ok

   end,

   do_purge(Ps, Mod, true);

false ->

   do_purge(Ps, Mod, Purged)

    end;

do_purge([], Mod, Purged) ->

    catch erlang:purge_module(Mod),

    Purged.

 

%% do_soft_purge(Module)

%% Purge old code only if no procs remain that run old code

%% Return true in that case, false if procs remain (in this

%% case old code is not purged)

 

do_soft_purge(Mod) ->

    catch do_soft_purge(processes(), Mod).

 

do_soft_purge([P|Ps], Mod) ->

    case erlang:check_process_code(P, Mod) of

true -> throw(false);

false -> do_soft_purge(Ps, Mod)

    end;

do_soft_purge([], Mod) ->

    catch erlang:purge_module(Mod),

    true.