Packages

bucs

0.1.0
1.1.0 1.0.16 1.0.15 1.0.14 1.0.13 1.0.12 1.0.11 1.0.10 1.0.9 1.0.8 1.0.7 1.0.6 1.0.5 1.0.4 1.0.3 1.0.2 1.0.1 1.0.0 0.1.9 0.1.8 0.1.7 0.1.6 0.1.5 0.1.4 0.1.3 0.1.2 0.1.1 0.1.0

Bots Unit Commons

Current section

Files

Jump to
Readme
28 Versions
0 Dependencies
Dependants
Files
Activity
bucs include bucs.hrl
Raw

include/bucs.hrl 

-define(record_to_list(Record, Val),

        begin

            Fields = record_info(fields, Record),

            [_Tag| Values] = tuple_to_list(Val),

            lists:zip(Fields, Values)

        end).



-define(record_to_map(Record, Val),

        maps:from_list(?record_to_list(Record, Val))).



-define(list_to_record(Record, List),

        begin

            Fields = record_info(fields, Record),

            [Tag| Values] = tuple_to_list(#Record{}),

            Defaults = lists:zip(Fields, Values),

            L = lists:map(fun ({K,V}) -> proplists:get_value(K, List, V) end, Defaults),

            list_to_tuple([Tag|L])

        end).



-define(map_to_record(Record, Map),

        ?list_to_record(Record, maps:to_list(Map))).