gistfile1.hrl

parse_iso8601(Time) when is_list(Time) ->
    parse_iso8601(list_to_binary(Time));

parse_iso8601(Time) when is_binary(Time) ->
    parse_date(Time,{},parse_year).

parse_date(<<Year:32/bitstring, Rest/bitstring>>, Acc, parse_year) ->
    parse_date(Rest, {Acc, Year}, parse_month);

parse_date(<<"-", Rest/bitstring>>, Acc, State) ->
    parse_date(Rest, Acc, State);

parse_date(<<Month:16/bitstring, Rest/bitstring>>, Acc, parse_month) ->
    parse_date(Rest, {Acc, Month}, parse_day);

parse_date(<<Day:16/bitstring, _Rest/bitstring>>, Acc, parse_day) ->
    {Acc,Day}.