因为学习erlang,下载了传说中的rabbitmq,这个是工业级,学习一下还是有必要的。看看大师们如何用erlang,下载地址:http://www.rabbitmq.com/server.html。
解压后工程很整齐:
先分析启动入口点,环境为win7,其实对程序入口点我一直不太了解,感觉erlang程序的入口点没有固定的,虽然可以通过文件中的一些东西来分析出来,感觉不方便。
打开ebin目录下发现了一个rabbit_app.in文件,这个就是rabbitmq的应用文件了。 {mod, {rabbit, []}},这句表明程序启动要从这个模块开始,打开rabbit.erl文件,寻找其start的方法:
start() ->
try
ok = prepare(),
ok = rabbit_misc:start_applications(?APPS)
after
%%give the error loggers some time to catch up
timer:sleep(100)
end.
prepare方法是干什么的,哦确保时间管理器都安装了必须的几个事件处理模块。
再看下rabbit_misc:start_applications(?APPS)展开宏为rabbit_misc:start_applications([os_mon, mnesia, rabbit]);
上代码:
manage_applications(Iterate, Do, Undo, SkipError, ErrorTag, Apps) ->
Iterate(fun (App, Acc) ->
case Do(App) of
ok -> [App | Acc];
{error, {SkipError, _}} -> Acc;
{error, Reason} ->
lists:foreach(Undo, Acc),
throw({error, {ErrorTag, App, Reason}})
end
end, [], Apps),
ok.
start_applications(Apps) ->
manage_applications(fun lists:foldl/3,
fun application:start/1,
fun application:stop/1,
already_started,
cannot_start_application,
Apps).
原来application:start在这等着呢。这样就启动了这三个模块。
启动rabbit时调用模块中的start/2方法,上代码:
start(normal, []) ->
case erts_version_check() of
ok ->
{ok, SupPid} = rabbit_sup:start_link(),
true = register(rabbit, self()),
print_banner(),
[ok = run_boot_step(Step) || Step <- boot_steps()],
io:format("~nbroker running~n"),
{ok, SupPid};
Error ->
Error
end.
首先检查erlang版本,这里面用到列表解析,充分发挥了erlang的模式匹配。如果版本不低于系统要求的则返回ok,此时调用监督树rabbit_sup:start_link/0方法启动监督树。打开监督树模块,
本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/yuanhailu01/archive/2011/04/06/6305261.aspx