erlang开发环境时beam 自动加载。提高开发效率

dreamxyp

erlang开发  要手动去c:l() 改动的模块。  弄个自动加载的mod 提高开发效率

1. -module('_reload_beam').
   
2. 
   
3. %% --------------------------------------------------------------------
   
4. %% Include files
   
5. %% --------------------------------------------------------------------
   
6. -include("comm.lib.hrl").
   
7. -include("mod.db.hrl").
   
8. -include_lib("kernel/include/file.hrl").
   
9. 
   
10. %% ====================================================================
    
11. %% API functions
    
12. %% ====================================================================
    
13. -export([do/0]).
    
14.         
    
15. %% @author [email protected]
    
16. %% @用法:   每秒调用 _reload_beam:do() 一次，自动检查是否有文件更新并加载
    
17. %%            1.生产环境 每239秒检查一次
    
18. %%            2.开发环境 每秒检查一次 (默认)
    
19. do() ->
    
20.         case filelib:is_file("/data/game_server/release.txt") of
    
21.                 ?true -> %% 生产环境（条件可以自己定义）
    
22.                         NKEY  = {?MODULE,'_reload_do_'},
    
23.                         NTime = util_time:seconds(),
    
24.                         case ets:lookup(?ETS_S_CONFIG,NKEY) of
    
25.                                 [{_,OTime}|_] ->
    
26.                                         ?IF(NTime - OTime > 239,  begin do2(), ets:insert(?ETS_S_CONFIG, {NKEY, NTime}) end, ?skip);
    
27.                                 []            ->
    
28.                                         ets:insert(?ETS_S_CONFIG, {NKEY, NTime});
    
29.                                 _             ->
    
30.                                         ?skip
    
31.                         end;
    
32.                 ?false -> %% 开发环境
    
33.                         do2()
    
34.         end.
    
35.                                                                
    
36. do2() ->
    
37.     [case file:read_file_info(Filename) of
    
38.          {ok, #file_info{mtime = Mtime}} ->
    
39.                          case ets:lookup(?ETS_S_CONFIG,{?MODULE,Module}) of
    
40.                                  [{_,OTime}|_] ->
    
41.                                          ?IF(Mtime > OTime,        reload(Module,Mtime), ?skip);
    
42.                                  [] ->
    
43.                                          ets:insert(?ETS_S_CONFIG, {{?MODULE,Module},     Mtime});
    
44.                                  _  -> ?skip
    
45.                          end;
    
46.          {?ok, _ }        -> ?skip;
    
47.          {?error, enoent} -> ?skip;
    
48.          {?error, Reason} ->
    
49.              ?MSG_ERROR("Error reading ~s's file info: ~p~n",[Filename, Reason]),
    
50.              ?error
    
51.      end || {Module, Filename} <- code:all_loaded(), is_list(Filename)].
    
52. 
    
53. reload(Module,Mtime)->
    
54.         c:l(Module),
    
55.         ets:insert(?ETS_S_CONFIG, {{?MODULE,Module},Mtime}),
    
56.         ?MSG_ECHO("Reloading ~p reload ok[code] test ok!",[Module]).

复制代码

茶叶feng

试了一下，感觉还不错，改代码就不用总是编译后再手动加载了