valitydev/parse_trans
14
0
Fork 0
mirror of https://github.com/valitydev/parse_trans.git synced 2024-11-06 00:25:16 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Add support for maps in ct_expand

Browse Source
This commit is contained in:
Anton Belyaev 2017-04-24 22:04:30 +03:00 committed by Anton Belyaev
parent 6f3645afb4
commit 5ee45f5bfa
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/ct_expand.erl
View File

@ -206,7 +206,9 @@ abstract([C|T]) when is_integer(C), 0 =< C, C < 256 ->
abstract([H|T]) -> abstract([H|T]) ->
{cons,0,abstract(H),abstract(T)}; {cons,0,abstract(H),abstract(T)};
abstract(Tuple) when is_tuple(Tuple) -> abstract(Tuple) when is_tuple(Tuple) ->
{tuple,0,abstract_list(tuple_to_list(Tuple))}. {tuple,0,abstract_list(tuple_to_list(Tuple))};
abstract(Map) when is_map(Map)->
{map,0,abstract_map(Map)}.
abstract_string([C|T], String) when is_integer(C), 0 =< C, C < 256 -> abstract_string([C|T], String) when is_integer(C), 0 =< C, C < 256 ->
abstract_string(T, [C|String]); abstract_string(T, [C|String]);
@ -232,3 +234,7 @@ abstract_byte(Bits, Line) ->
<<Val:Sz>> = Bits, <<Val:Sz>> = Bits,
{bin_element, Line, {integer, Line, Val}, {integer, Line, Sz}, default}. {bin_element, Line, {integer, Line, Val}, {integer, Line, Sz}, default}.
abstract_map(Map) ->
maps:fold(fun(K, V, Acc) ->
[{map_field_assoc,0, abstract(K), abstract(V)} | Acc]
end, [], Map).