/src/encoding.erl

https://gitlab.com/unq-sd2016-s1-alvarez-dubor/collabory · Erlang · 44 lines · 27 code · 8 blank · 9 comment · 0 complexity · 8682b5ac03b79ea846d374e67a2863ae MD5 · raw file 

    

  1. %%%-------------------------------------------------------------------
    2. 

  2. %%% @author logain
    3. 

  3. %%% @copyright (C) 2016, <COMPANY>
    4. 

  4. %%% @doc
    5. 

  5. %%%
    6. 

  6. %%% @end
    7. 

  7. %%% Created : 10. jul 2016 23:34
    8. 

  8. %%%-------------------------------------------------------------------
    9. 

  9. -module(encoding).
    10. 

  10. -author("logain").
    11. 

  11. 

  12. %% API
    13. 

  13. -export([tuple_to_token/1, token_to_tuple/1]).
    14. 

  14. 

  15. hex(N) when N < 10 ->
    16. 

  16.   $0+N;
    17. 

  17. hex(N) when N >= 10, N < 16 ->
    18. 

  18.   $a+(N-10).
    19. 

  19. 

  20. int(C) when $0 =< C, C =< $9 ->
    21. 

  21.   C - $0;
    22. 

  22. int(C) when $A =< C, C =< $F ->
    23. 

  23.   C - $A + 10;
    24. 

  24. int(C) when $a =< C, C =< $f ->
    25. 

  25.   C - $a + 10.
    26. 

  26. 

  27. to_hex(N) when N < 256 ->
    28. 

  28.   [hex(N div 16), hex(N rem 16)].
    29. 

  29. 

  30. list_to_hexstr([]) ->
    31. 

  31.   [];
    32. 

  32. list_to_hexstr([H|T]) ->
    33. 

  33.   to_hex(H) ++ list_to_hexstr(T).
    34. 

  34. 

  35. tuple_to_token(Touple) ->
    36. 

  36.   list_to_hexstr(binary_to_list(term_to_binary(Touple))).
    37. 

  37. 

  38. token_to_tuple(S) ->
    39. 

  39.   binary_to_term(list_to_binary(hexstr_to_list(S))).
    40. 

  40. 

  41. hexstr_to_list([X,Y|T]) ->
    42. 

  42.   [int(X)*16 + int(Y) | hexstr_to_list(T)];
    43. 

  43. hexstr_to_list([]) ->
    44. 

  44.   [].
    45.