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>>.