|
|
@@ -307,26 +307,11 @@ stringfy(Term) when is_atom(Term) ->
|
|
|
stringfy(Term) ->
|
|
|
unicode:characters_to_binary((io_lib:format("~0p", [Term]))).
|
|
|
|
|
|
-hexstr(<<>>) -> [];
|
|
|
-hexstr(<<H:4, L:4, B/binary>>) ->
|
|
|
- iolist_to_binary([hexchar(H), hexchar(L)] ++ hexstr(B)).
|
|
|
-
|
|
|
-hexchar(0) -> $0;
|
|
|
-hexchar(1) -> $1;
|
|
|
-hexchar(2) -> $2;
|
|
|
-hexchar(3) -> $3;
|
|
|
-hexchar(4) -> $4;
|
|
|
-hexchar(5) -> $5;
|
|
|
-hexchar(6) -> $6;
|
|
|
-hexchar(7) -> $7;
|
|
|
-hexchar(8) -> $8;
|
|
|
-hexchar(9) -> $9;
|
|
|
-hexchar(10) -> $A;
|
|
|
-hexchar(11) -> $B;
|
|
|
-hexchar(12) -> $C;
|
|
|
-hexchar(13) -> $D;
|
|
|
-hexchar(14) -> $E;
|
|
|
-hexchar(15) -> $F.
|
|
|
+hexstr(B) ->
|
|
|
+ << <<(hexchar(H)), (hexchar(L))>> || <<H:4, L:4>> <= B>>.
|
|
|
+
|
|
|
+hexchar(I) when I >= 0 andalso I < 10 -> I + $0;
|
|
|
+hexchar(I) -> I - 10 + $A.
|
|
|
|
|
|
%%--------------------------------------------------------------------
|
|
|
%% Acc funcs
|