erlang shell下rr使用

1. rr/1是erlang shell下加载record的定义;
2. rr只能在erlang shell下调用;
3. 项目中有N多record定义, 需要快速加载所有的定义;

rr() ->
    HrlList = get_hrl_list(),
    A = <<"复制下面的代码执行:">>,
    io:format("~ts~n", [A]),
    io:format("rp([rr(X) || X <- [\"~s\"] ]).~n", [string:join(HrlList, "\",\"")]).

get_hrl_list() ->
    {ok, [{DirList, OptList}]} = file:consult("./Emakefile"),
    F = fun(Dir, L) ->
                WildCard = io_lib:format("~s.hrl", [Dir]),
                L ++ filelib:wildcard(WildCard)
        end,
    F_1 = fun(Opt, L) ->
                  case Opt of
                      {i, Include} ->
                          WildCard = io_lib:format("~s/*.hrl", [Include]),
                          L ++ filelib:wildcard(WildCard);
                      _ -> L
                  end
          end,
    FileList = lists:foldl(F, [], DirList) ++ lists:foldl(F_1, [], OptList),
    FileList.