gistfile1.hrl

% Contrary to the BIF, this splits on a character, not a position
% split_binary(<<1,2,3,4,5>>, 3) returns {<<1,2>>, <<4,5>>}
split_binary(Bin, C) when is_integer(C) -> split_binary(<<>>, Bin, C).
split_binary(Bin, <<>>, _) -> {Bin, <<>>};
split_binary(Head, <<T, Tail/binary>>, C) ->
    case T of
        C -> {Head, Tail};
        _ -> split_binary(<<Head/binary, T>>, Tail, C)
    end.