decode_string.erl

gistfile1.erl

-module(decode_string).
-compile(export_all).

%% decode a single null-terminated string
new_decode_string(Bin) ->
    Idx = first(Bin, 0),
    <<H:Idx/binary, _, T/binary>> = Bin,
    {H, T}.

first(<<X, T/binary>>, Idx) ->
    case X of
    0 -> Idx;
    _ -> first(T, Idx+1)
    end.

old_decode_string(Bin) ->
    decode_string(Bin, <<>>).

decode_string(<<0, Rest/binary>>, Str) ->
    {Str, Rest};
decode_string(<<C, Rest/binary>>, Str) ->
    decode_string(Rest, <<Str/binary, C>>).