migadu/qrcode
3
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Remove unused hex encode (was typoed in any case)

Browse Source
This commit is contained in:
komone 2011-04-11 01:01:08 -05:00
parent 7b8b8f975b
commit 13aa9d63fd
1 changed files with 0 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/qrcode_demo.erl
View File

@ -119,18 +119,3 @@ hotp(Key, Count) when is_binary(Key), is_integer(Count) ->
unow() -> unow() ->
calendar:datetime_to_gregorian_seconds(calendar:universal_time()) - ?UNIX_TIME_ZERO. calendar:datetime_to_gregorian_seconds(calendar:universal_time()) - ?UNIX_TIME_ZERO.
hex(Bin) when is_binary(Bin) ->
hex(Bin, <<>>).
hex(<<A:4, B:4, Rest/binary>>, Acc) ->
U = hex_digit(A),
L = hex_digit(B),
hex(Rest, <<Acc/binary, U, L>>);
hex(<<>>, Acc) ->
Acc.
hex_digit(D) when D >= 0, D =< 9 ->
$0 + D;
hex_digit(D) when D >= 10, D =< 16 ->
$a + D - 10.