QPQ-AG/gmbytecode
10
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases 9 Wiki Activity

Formatting differently

Browse Source
This commit is contained in:
Thomas Arts 2019-02-28 13:33:47 +01:00
parent 899bff9111
commit a51a864059
1 changed files with 11 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
src/aeb_fate_data.erl
View File

@ -135,28 +135,23 @@ format(?FATE_NIL) -> "[]";
format(L) when ?IS_FATE_LIST(L) -> format_list(?FATE_LIST_VALUE(L)); format(L) when ?IS_FATE_LIST(L) -> format_list(?FATE_LIST_VALUE(L));
format(?FATE_UNIT) -> "()"; format(?FATE_UNIT) -> "()";
format(?FATE_TUPLE(T)) -> format(?FATE_TUPLE(T)) ->
"{ " ++ [format(E) ++ " " || E <- erlang:tuple_to_list(T)] ++ "}"; ["( ", lists:join(", ", [ format(E) || E <- erlang:tuple_to_list(T)]), " )"];
format(S) when ?IS_FATE_STRING(S) -> [S]; format(S) when ?IS_FATE_STRING(S) -> [S];
format(?FATE_VARIANT(Size, Tag, T)) -> format(?FATE_VARIANT(Size, Tag, T)) ->
"( " ++ integer_to_list(Size) ++ ", " ["(| ",
++ integer_to_list(Tag) ++ ", " lists:join("| ", [integer_to_list(Size), integer_to_list(Tag) |
++ [format(E) ++ " " || E <- erlang:tuple_to_list(T)] [format(E) || E <- erlang:tuple_to_list(T)]]),
++ " )"; " |)"];
format(M) when ?IS_FATE_MAP(M) -> format(M) when ?IS_FATE_MAP(M) ->
"#{ " ["{ ", format_kvs(maps:to_list(?FATE_MAP_VALUE(M))), " }"];
++ format_kvs(maps:to_list(?FATE_MAP_VALUE(M))) format(?FATE_ADDRESS(Address)) -> ["#", address_to_base58(Address)];
++" }";
format(?FATE_ADDRESS(Address)) -> address_to_base58(Address);
format(V) -> exit({not_a_fate_type, V}). format(V) -> exit({not_a_fate_type, V}).
format_list([]) -> " ]"; format_list(List) ->
format_list([E]) -> format(E) ++ " ]"; ["[ ", lists:join(", ", [format(E) || E <- List]), " ]"].
format_list([H|T]) -> format(H) ++ ", " ++ format_list(T).
format_kvs([]) -> ""; format_kvs(List) ->
format_kvs([{K,V}]) -> "( " ++ format(K) ++ " => " ++ format(V) ++ " )"; lists:join(", ", [ [format(K), " => ", format(V)] || {K, V} <- List]).
format_kvs([{K,V} | Rest]) ->
"( " ++ format(K) ++ " => " ++ format(V) ++ " ), " ++ format_kvs(Rest).
%% -- Local base 58 library %% -- Local base 58 library