Packages

mmath

0.2.21
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 

%%%-------------------------------------------------------------------

%%% @author Heinz Nikolaus Gies <heinz@licenser.net>

%%% @copyright (C) 2014, Heinz Nikolaus Gies

%%% @doc

%%% Binary manipulation functions.

%%% @end

%%% Created :  8 Jun 2014 by Heinz Nikolaus Gies <heinz@licenser.net>

%%%-------------------------------------------------------------------

-module(mmath_bin).



-ifdef(TEST).

-include_lib("eunit/include/eunit.hrl").

-endif.



-include("mmath.hrl").



-export([from_list/1, to_list/1, empty/1, length/1, length_r/1,

         clean/1,

         realize/1, derealize/1, rdatasize/0, merge/2, replicate/2]).



-define(APPNAME, mmath).

-define(LIBNAME, bin_nif).

-on_load(load_nif/0).

load_nif() ->

    SoName = case code:priv_dir(?APPNAME) of

                 {error, bad_name} ->

                     case filelib:is_dir(filename:join(["..", priv])) of

                         true ->

                             filename:join(["..", priv, ?LIBNAME]);

                         _ ->

                             filename:join([priv, ?LIBNAME])

                     end;

                 Dir ->

                     filename:join(Dir, ?LIBNAME)

             end,

    erlang:load_nif(SoName, 0).



%%--------------------------------------------------------------------

%% @doc

%% Converts a list of values to it's binary representation.

%% @end

%%--------------------------------------------------------------------

-spec from_list([number()]) -> binary().

from_list(_) ->

    erlang:nif_error(nif_library_not_loaded).



%%--------------------------------------------------------------------

%% @doc

%% Converts a the binary repesentation back to a list of values.

%% @end

%%--------------------------------------------------------------------

-spec to_list(binary()) -> [number()].

to_list(_) ->

    erlang:nif_error(nif_library_not_loaded).





%%--------------------------------------------------------------------

%% @doc

%% Calculates the number of values in a binary representation.

%% @end

%%--------------------------------------------------------------------

length(B) ->

    trunc(byte_size(B)/?DATA_SIZE).



%%--------------------------------------------------------------------

%% @doc

%% Calculates the number of values in a binary realized

%% representation.

%% @end

%%--------------------------------------------------------------------

length_r(B) ->

    trunc(byte_size(B)/?RDATA_SIZE).



%%--------------------------------------------------------------------

%% @doc

%% Creates an empty binary representaton if a given list

%% representation.

%% @end

%%--------------------------------------------------------------------

empty(Length) ->

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



%%--------------------------------------------------------------------

%% @doc

%% Converts a none realized to the realized data representation.

%% @end

%%--------------------------------------------------------------------

realize(_Data) ->

    erlang:nif_error(nif_library_not_loaded).



%%--------------------------------------------------------------------

%% @doc

%% Converts a none realized to the realized data representation.

%% @end

%%--------------------------------------------------------------------

derealize(_Data) ->

    erlang:nif_error(nif_library_not_loaded).



%%--------------------------------------------------------------------

%% @doc

%% Utility function that replicates each element in `Data' by `Count'

%% times.  For example, replicate([1,2], 3) results in [1,1,1,2,2,2].

%% @end

%%--------------------------------------------------------------------

replicate(_Data, _Count) ->

    erlang:nif_error(nif_library_not_loaded).





%%--------------------------------------------------------------------

%% @doc

%% Utility function to ensure that the ?RDATA_SIZE macro is set

%% correctly.

%% @end

%%--------------------------------------------------------------------

rdatasize() ->

    erlang:nif_error(nif_library_not_loaded).



clean(_Data) ->

    erlang:nif_error(nif_library_not_loaded).



%%--------------------------------------------------------------------

%% @doc

%% Merges two metric lists, filling holes in one with the data of the

%% other.

%% @end

%%--------------------------------------------------------------------

merge(A, B) ->

    merge(A, B, <<>>).



merge(<<?NONE:?TYPE_SIZE, _:?BITS/?INT_TYPE, R1/binary>>,

      <<D:?DATA_SIZE/binary, R2/binary>>,

      Acc) ->

    merge(R1, R2, <<Acc/binary, D/binary>>);

merge(<<D:?DATA_SIZE/binary, R1/binary>>,

      <<_:?DATA_SIZE/binary, R2/binary>>,

      Acc) ->

    merge(R1, R2, <<Acc/binary, D/binary>>);

merge(<<>>, <<>>, Acc) ->

    Acc;



merge(<<>>, D, Acc) ->

    <<Acc/binary, D/binary>>;

merge(D, <<>>, Acc) ->

    <<Acc/binary, D/binary>>.



-ifdef(TEST).

clean_test() ->

    ?assertEqual(<<1:64, 3:64>>, clean(<<0:64, 1:64, 2:64, 3:64>>)).



size_test() ->

    ?assertEqual(?RDATA_SIZE, rdatasize()).



one_test() ->

    ?assertEqual([1], to_list(from_list([1]))),

    ?assertEqual([1.0], to_list(from_list([1.0]))),

    ?assertEqual([1, 1.0, 1], to_list(from_list([1, 1.0, 1]))).

-endif.