Home > Erlang探索, 源码分析 > ms()用途浅析

ms()用途浅析

原创文章,转载请注明: 转载自系统技术非业余研究

本文链接地址: ms()用途浅析

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是个考虑非常到位和成熟的系统。

祝玩得开心!

Post Footer automatically generated by wp-posturl plugin for wordpress.

Categories: Erlang探索, 源码分析 Tags: ,
  1. goofansu
    July 27th, 2013 at 19:23 | #1

    棒,霸爷最近开始慢慢揭示自己的系统了嘛

    [Reply]

  1. No trackbacks yet.