浅谈游戏配置数据在erlang使用-2

前生

一年前,我写了篇浅谈游戏配置数据在erlang使用,一年后,我在同事的提示下,我又简化实现,甚至可以无限扩展了,原先拼字符串会有种种局限性。

原理

本质上,配置数据转代码而已,然后可以将数据用erl_syntax的接口表示成代码的AST,接着用format接口转化成具体的代码。这中间使用到了erlang的AST,理论上,你想生成什么样的erlang代码都可以,毕竟erl_syntax是一个erlang完备的语法树。

example

这里只是实验性代码,具体完备功能就按照各位具体项目需求去各自实现吧,有疑问可以发email找我探讨下。

-module(erl_syntax_try).
-compile(export_all).
test() ->
    RecordName = erl_syntax:atom(base_dungeon),
    erl_syntax:record_expr(RecordName, [
                                        erl_syntax:record_field(erl_syntax:atom(key0), erl_syntax:abstract(1)),
                                        erl_syntax:record_field(erl_syntax:atom(key1), erl_syntax:abstract(atom)),
                                        erl_syntax:record_field(erl_syntax:atom(key2), erl_syntax:abstract("xxx")),
                                        erl_syntax:record_field(erl_syntax:atom(key3), erl_syntax:abstract(<<"hello中文"/utf8>>)),
                                        erl_syntax:record_field(erl_syntax:atom(key3), 
                                                                erl_syntax:binary([erl_syntax:binary_field(
                                                                                     erl_syntax:string("hello中文"),
                                                                                     [erl_syntax:atom(utf8)]
                                                                                    )])
                                                               )
                                      ]).
 
write() ->
    file:write_file("/tmp/1.erl", [unicode:characters_to_binary(erl_prettypr:format(test()))]).
 
format() ->
    io:format("~w~n", [erl_prettypr:format(test())]).

生成的代码长这样

#base_dungeon{key0 = 1, key1 = atom, key2 = "xxx",
                  key3 =
                      <<104, 101, 108, 108, 111, 228, 184, 173, 230, 150,
                        135>>,
                        key3 = <<"hello中文"/utf8>>}

最后,加个函数什么就可以了。

我们项目的生成的代码例子如下

%% version : 002a4bbf4625aa6234ae8c8cdc170417
%% Warning:本文件由data_generate自动生成,请不要手动修改
 
-module(data_base_treasure_award).
 
-export([get/1]).
 
-include("db_base_treasure_award.hrl").
 
get(1) ->
    #base_treasure_award{id = 1, item_id = 20001,
			 award_count = 1};
get(2) ->
    #base_treasure_award{id = 2, item_id = 20002,
			 award_count = 1};
get(3) ->
    #base_treasure_award{id = 3, item_id = 20003,
			 award_count = 1};
get(4) ->
    #base_treasure_award{id = 4, item_id = 20004,
			 award_count = 1};
get(5) ->
    #base_treasure_award{id = 5, item_id = 0,
			 award_count = 1};
get(6) ->
    #base_treasure_award{id = 6, item_id = 3,
			 award_count = 1};
get(7) ->
    #base_treasure_award{id = 7, item_id = 1,
			 award_count = 1};
get(8) ->
    #base_treasure_award{id = 8, item_id = 1,
			 award_count = 2};
get(9) ->
    #base_treasure_award{id = 9, item_id = 1,
			 award_count = 3};
get(10) ->
    #base_treasure_award{id = 10, item_id = 2,
			 award_count = 100};
get(11) ->
    #base_treasure_award{id = 11, item_id = 2,
			 award_count = 500};
get(12) ->
    #base_treasure_award{id = 12, item_id = 2,
			 award_count = 1000};
get(13) ->
    #base_treasure_award{id = 13, item_id = 25009,
			 award_count = 1};
get(Val) -> lager:warning("get not find ~p", [Val]), [].

最后

这仅仅是个data2code的一个思路,欢迎交流。

发表评论

电子邮件地址不会被公开。 必填项已用*标注