1%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2%%% ktn_binary: functions useful for handling binaries
3%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4-module(ktn_binary).
5
6-export([
7         join/2
8        ]).
9
10%% @doc Joins and returns a list of binaries
11-spec join([binary()], binary()) -> binary().
12join([], _) ->
13    <<>>;
14join([S], _) when is_binary(S) ->
15    S;
16join([H | T], Sep) ->
17    B = << <<Sep/binary, X/binary>> || X <- T >>,
18    <<H/binary, B/binary>>.