系统技术非业余研究

erlang系统的application，稍微复杂一点的都会提供一个ms/0的导出函数，而且这个导出函数通常在文档里面找不到描述，很奇怪不是吗？
比如mnesia就有这样的ms, 我们来看下：

$ erl
Erlang R17A (erts-5.11) [source-b7fbc28] [64-bit] [smp:16:16] [async-threads:10] [hipe] [kernel-poll:false]

Eshell V5.11  (abort with ^G)
1> mnesia:ms().
[mnesia,mnesia_backup,mnesia_bup,mnesia_checkpoint,
 mnesia_checkpoint_sup,mnesia_controller,mnesia_dumper,
 mnesia_loader,mnesia_frag,mnesia_frag_hash,
 mnesia_frag_old_hash,mnesia_index,mnesia_kernel_sup,
 mnesia_late_loader,mnesia_lib,mnesia_log,mnesia_registry,
 mnesia_schema,mnesia_snmp_hook,mnesia_snmp_sup,
 mnesia_subscr,mnesia_sup,mnesia_text,mnesia_tm,
 mnesia_recover,mnesia_locker,mnesia_monitor,mnesia_event]
2> 

看起来貌似只是返回组成mnesia的模块列表而已。
那么它的作用是什么呢？

复杂一点的程序都需要在运行期间来进行观察或者优化，比如说dbg跟踪一个函数或者模块运作的时候，是需要这个模块的名字的，如：

dbg:tp(Module,MatchSpec)

那么如果要跟踪整个application的运作，我们通常会写这样的代码：
[do_some_thing(M) || M<-myapp:ms()]. 所以这就是ms的意义所在。 现在的问题是mnesia的代码是把ms的模块硬编码的，这样会带来一个维护的问题，比如添加，改名或者减少一个模块都要记得去修改这个列表，很麻烦。 [erlang] %mnesia.erl ms() -> [ mnesia, mnesia_backup, mnesia_bup, ... ]. [/erlang] 程序员是个很懒的群体，必定不会这么挫的，于是rebar就专门花了点力气把这个事情做的漂亮。 rebar在编译application的时候，会把src/myapp.app.src的内容添加以下内容：

{modules,[mod_a, mod_b,…]}

形成ebin//myapp.app文件，这个文件是每个app必须的!

rebar处理这个事情的核心代码如下：

%%rebar_otp_app.erl
AppVars = load_app_vars(Config1) ++ [{modules, ebin_modules()}],
ebin_modules() ->
    lists:sort([rebar_utils:beam_to_mod("ebin", N) ||
                   N <- rebar_utils:beams("ebin")]).

简单的演示下效果：

$ cat *.src
{application,ump_proxy,
             [{description,"ump proxy"},
              {vsn,"2.3.4"},
              {registered,[]},
              {applications,[kernel,stdlib,sasl,observer,runtime_tools,os_mon, tools, webtool,appmon,
              ump_log,ump_zk,ump_mq]},
              {mod,{ump_proxy_app,[]}}]}.
$ cat ../ebin/*.app
{application,ump_proxy,
             [{description,"ump proxy"},
              {vsn,"2.3.4"},
              {registered,[]},
              {applications,[kernel,stdlib,sasl,observer,runtime_tools,os_mon,
                             tools,webtool,appmon,ump_log,ump_zk,ump_mq]},
              {mod,{ump_proxy_app,[]}},
              {modules,[test_ump_proxy_partitioner,ump_mysql_protocol,
                        ump_proxy_app,ump_proxy_backend,ump_proxy_connection,
                        ump_proxy_connection_manager,ump_proxy_connection_sup,
                        ump_proxy_global,ump_proxy_global_lib,
                        ump_proxy_handle,ump_proxy_keepalive_sup,ump_proxy_ms,
                        ump_proxy_partition_fsm,ump_proxy_partitioner,
                        ump_proxy_partitioner_nifs,ump_proxy_qps_manager,
                        ump_proxy_qps_user,ump_proxy_qps_user_sup,
                        ump_proxy_rpc,ump_proxy_rw_split_fsm,
                        ump_proxy_safe_counter,ump_proxy_safe_counter_server,
                        ump_proxy_service_stats,ump_proxy_session,
                        ump_proxy_session_manager,ump_proxy_session_sup,
                        ump_proxy_socket,ump_proxy_ssl,ump_proxy_stats,
                        ump_proxy_sup,ump_proxy_timer,ump_proxy_util]}]}.

所以有了rebar的帮忙后，这个事情就很简单了。
我们可以这样写：

ms() -> {ok, Mods} = application:get_key(modules), Mods.

顺手再展示下ms()的用途：

get_old_code_process_num(AppName) ->
   Processes = [Pid || Pid <- processes(),
              application:get_application(Pid) =:= {ok, AppName}],
   {ok, Mods} = application:get_key(AppName, modules),
   OldNum = length([Pid || Pid <- Processes, is_using_old_code(Pid, Mods)]),
   TotalNum = length(Processes),
   case TotalNum of
        0 -> {0, 0, 0};
        _ ->
           Ratio  =  round(OldNum / TotalNum * 10000),
           {OldNum, TotalNum, Ratio}
   end.
is_using_old_code(_, []) -> false;
is_using_old_code(Pid, [H|T]) ->
   erlang:check_process_code(Pid, H) orelse is_using_old_code(Pid, T).

小结： erlang是个考虑非常到位和成熟的系统。

祝玩得开心！