%%%-------------------------------------------------------------------
|
%%% @author bsk
|
%%% @copyright (C) 2018, <COMPANY>
|
%%% @doc
|
%%%
|
%%% @end
|
%%% Created : 13. 十二月 2018 下午1:43
|
%%%-------------------------------------------------------------------
|
|
%%%-------------------------------------------------------------------
|
%%% @author zhongwencool@gmail.com
|
%%% @doc 把对应的.config文件转为.beam文件并更新到内存
|
%%% configName:all() return all key_value
|
%%% configName:lookup(Key) return value or undefined
|
%%% 1.得到目录下文件集合
|
%%% 2.遍历对每个文件进行转换
|
%%% 2.1 把文件读入 检查格式
|
%%% 2.2 把config转化为erl文件
|
%%% 2.2 把erl文件编译成beam文件
|
%%% 3.加载beam文件到内存
|
%%% @end
|
%%% Created : 22. Aug 2014 4:08 PM
|
%%%-------------------------------------------------------------------
|
-module(configToBeam).
|
-author("bsk").
|
|
-compile(export_all).
|
%% API
|
-export([config_to_beam/0, config_to_beam/1, get_config_dir/0]).
|
|
%% @doc 把指定目录下全部的config文件都转为.beam文件并加载到内存
|
config_to_beam() ->
|
AllConfigName = get_all_config_name(),
|
io:format("~p ~n", [AllConfigName]),
|
[begin
|
config_to_beam(ConfigName)
|
end || ConfigName <- AllConfigName].
|
|
%% @doc 把指定目录下名为ConfigName的config文件转为.beam文件并加载到内存
|
config_to_beam(ConfigName) ->
|
case check_syntax(ConfigName) of
|
{ok, TermList} ->
|
term_to_beam(ConfigName -- ".config", TermList);
|
Reason ->
|
io:format("check Config syntax error~p:Reason:~p~n", [ConfigName, Reason]),
|
{Reason, ConfigName}
|
end.
|
|
%% @todo 改成你存放.config文件的目录
|
get_config_dir() ->
|
%% code:root_dir() ++ "/config".
|
"config".
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
%%% Internal Function
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
term_to_beam(ModuleName, TermList) ->
|
Erl = term_to_erl(ModuleName, TermList),
|
ModuleName2 = ModuleName ++ ".erl",
|
file:write_file(ModuleName2, Erl, [write, binary, {encoding, utf8}]),
|
compile:file(ModuleName2),
|
ModuleName3 = list_to_atom(ModuleName),
|
code:purge(ModuleName3),
|
code:load_file(ModuleName3),
|
{ok, ModuleName3}.
|
|
term_to_erl(ModuleName, TermList) ->
|
StrValue = lists:flatten(term_to_erl2(TermList, "")),
|
StrList = lists:flatten(io_lib:format(" ~w\n", [TermList])),
|
"
|
-module(" ++ ModuleName ++ ").
|
-export([all/0,lookup/1]).
|
|
all()->" ++ StrList ++ ".
|
|
lookup(Key) ->
|
case Key of
|
" ++ StrValue ++ "
|
_ -> undefined
|
end.
|
".
|
|
term_to_erl2([], Sum) ->
|
Sum;
|
term_to_erl2([{Key, Value} | Left], Acc) ->
|
term_to_erl2(Left,
|
io_lib:format(" ~w -> ~w;\n", [Key, Value]) ++ Acc).
|
|
get_all_config_name() ->
|
%% {ok, AllFileName} = file:list_dir(get_config_dir()),
|
{ok, AllFileName} = file:list_dir("config"),
|
io:format("~p~n", [AllFileName]),
|
lists:filter(fun(FileName) ->
|
A = lists:reverse(FileName),
|
case A of
|
"gifnoc." ++ _ ->
|
io:format("~p~n", [A]), true;
|
_ ->
|
io:format("~p~n", [A]), false
|
end
|
end, AllFileName).
|
|
check_syntax(ConfigName) ->
|
FilePath = joint_path(ConfigName),
|
io:format("FilePath ~p ~n", [FilePath]),
|
Res = file:consult(FilePath),
|
io:format("Res ~p ~n", [Res]),
|
case Res of
|
{ok, TermList = [_ | _]} ->
|
io:format("TermList ~p ~n", [TermList]),
|
check_fromat_duplicate(TermList, []);
|
Reason ->
|
io:format("Reason ~p ~n", [Reason]),
|
{error, Reason}
|
end.
|
|
joint_path(ConfigName) ->
|
get_config_dir() ++ "/" ++ ConfigName.
|
|
check_fromat_duplicate([], Acc) ->
|
{ok, Acc};
|
check_fromat_duplicate([{Key, _Value} = Term | Left], Acc) ->
|
case lists:keymember(Key, 1, Acc) of
|
true -> {error, key_duplicate, Key};
|
false -> check_fromat_duplicate(Left, [Term | Acc])
|
end;
|
check_fromat_duplicate([Term | _], _Acc) ->
|
{error, format_error, Term}.
|
