Packages

altworx_utils

0.0.2
0.0.5 0.0.4 0.0.2 0.0.1

A collection of common utility functions for various situations.

Current section

Files

Jump to
Readme
4 Versions
0 Dependencies
Dependants
Files
Activity
altworx_utils src aw_misc_utils.erl
Raw

src/aw_misc_utils.erl 

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

%%% @author Adam Kovari <adam.kovari@altworx.com>

%%% @copyright (C) 2016, Altworx s.r.o.

%%% @doc

%%%

%%% @end

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

-module(aw_misc_utils).



-export([to_binary/1, to_list/1, binary_join/2, tuple_index_of/2, remove_common_prefix/2]).



-ifdef(TEST).

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

-endif.



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

%% @doc Convert item to binary

%% @end

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

-spec to_binary(binary() | number() | atom() | iolist()) -> binary().

to_binary(B) when is_binary(B) ->

	B;

to_binary(I) when is_integer(I) ->

    integer_to_binary(I);

to_binary(A) when is_atom(A) ->

    atom_to_binary(A, latin1);

to_binary(F) when is_float(F) ->

    float_to_binary(F);

to_binary(L) ->

    iolist_to_binary(L).



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

%% @doc Convert item to list

%% @end

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

-spec to_list(list() | binary() | number() | atom() | iolist()) -> list().

to_list(L) when is_list(L) ->

    L;

to_list(B) when is_binary(B) ->

    binary_to_list(B);

to_list(I) when is_integer(I) ->

    integer_to_list(I);

to_list(A) when is_atom(A) ->

    atom_to_list(A);

to_list(F) when is_float(F) ->

    float_to_list(F).



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

%% @doc Join binaries with a separator

%% @end

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

-spec binary_join([binary()], binary()) -> binary().

binary_join([], _Sep) ->

  <<>>;

binary_join([Part], _Sep) ->

  Part;

binary_join([Head|Tail], Sep) when is_binary(Sep) ->

    lists:foldl(fun (Value, Acc) -> <<Acc/binary, Sep/binary, Value/binary>> end, Head, Tail);

binary_join(L, Sep) when is_list(L) ->

    binary_join(L, to_binary(Sep)).





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

%% @doc Index of an item in a tuple

%% @end

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

-spec tuple_index_of(term(), tuple() | list()) -> non_neg_integer().

tuple_index_of(Item, Tuple) when is_tuple(Tuple) -> tuple_index_of(Item, tuple_to_list(Tuple));

tuple_index_of(Item, List) -> tuple_index_of(Item, List, 1).



tuple_index_of(_, [], _)  -> not_found;

tuple_index_of(Item, [Item|_], Index) -> Index;

tuple_index_of(Item, [_|Tl], Index) -> tuple_index_of(Item, Tl, Index+1).





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

%% @doc Remove common prefix from two lists

%% @end

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

-spec remove_common_prefix([], []) -> [].

remove_common_prefix(L1, L2) ->

    lists:reverse(remove_common_prefix(L1, L2, [])).



remove_common_prefix([_H | T1], [_H | T2], Acc) ->

    remove_common_prefix(T1, T2, Acc);

remove_common_prefix([], L2, Acc) ->

    lists:reverse(L2) ++ Acc;

remove_common_prefix(L1, _L2, Acc) ->

    Acc ++ lists:reverse(L1).



-ifdef(TEST).



remove_common_prefix_1_test() ->

    ?assertEqual("m ko", remove_common_prefix("ada", "adam ko")).



remove_common_prefix_2_test() ->

    ?assertEqual("m ko", remove_common_prefix("adam ko", "ada")).



-endif.