Packages

mmath

0.1.7
0.2.26 0.2.25 0.2.24 0.2.23 0.2.22 0.2.21 0.2.20 0.2.19 0.2.18 0.2.17 0.2.16 0.2.15 0.2.14 0.2.13 0.2.12 0.2.11 0.2.10 0.2.9 0.2.8 0.2.7 0.2.6 0.2.5 0.2.4 0.2.3 0.2.2 0.2.1 0.2.0 0.2.0-alpha9 0.2.0-alpha8 0.2.0-alpha7 0.2.0-alpha6 0.2.0-alpha5 0.2.0-alpha4 0.2.0-alpha3 0.2.0-alpha2 0.2.0-alpha10 0.2.0-alpha1 0.2.0-alpha 0.1.17-alpha 0.1.16 0.1.15 0.1.14 0.1.13 0.1.11 0.1.10 0.1.9 0.1.8 0.1.7 0.1.6

math library for metric sequences and binary arrays.

Current section

Files

Jump to
Readme
49 Versions
0 Dependencies
Dependants
Files
Activity
mmath src mmath_bin.erl
Raw

src/mmath_bin.erl 

-module(mmath_bin).



-include("mmath.hrl").



-export([convert/1, from_list/1, to_list/1, empty/1, length/1]).



from_list([]) ->

    <<>>;



from_list([_V0 | _] = L) when is_integer(_V0) ->

    << <<?INT:?TYPE_SIZE, V:?BITS/?INT_TYPE>> || V <- L >>.



to_list(Bin) ->

    to_list_int(Bin, 0, []).



to_list_int(<<?INT:?TYPE_SIZE, I:?BITS/?INT_TYPE, R/binary>>, _, Acc) ->

    to_list_int(R, I, [I | Acc]);

to_list_int(<<?NONE:?TYPE_SIZE, _:?BITS/?INT_TYPE, R/binary>>, Last, Acc) ->

    to_list_int(R, Last, [Last | Acc]);

to_list_int(<<>>, _, Acc) ->

    lists:reverse(Acc).



length(B) ->

    trunc(byte_size(B)/?DATA_SIZE).



empty(Length) ->

    <<0:((?TYPE_SIZE + ?BITS)*Length)/?INT_TYPE>>.



convert(Data) ->

    convert(Data, <<>>).



convert(<<>>, Acc) ->

    Acc;

convert(<<0, _:64/?INT_TYPE, R/binary>>, Acc) ->

    convert(R, <<Acc/binary, ?NONE:?TYPE_SIZE, 0:?BITS/?INT_TYPE>>);

convert(<<1, I:64/?INT_TYPE, R/binary>>, Acc) ->

    convert(R, <<Acc/binary, ?INT:?TYPE_SIZE, I:?BITS/?INT_TYPE>>).