Parsing the empeg's "/empeg/var/database3" file:

Code:
dump_database(_Tags, <<>>) ->
    % end of database
    ok;
dump_database(Tags, <<Index:8, Rest/binary>>) when Index =:= 16#FF ->
    % end of record
    io:format("-------\n"),
    dump_database(Tags, Rest);
dump_database(Tags, <<Index:8, Length:8, Data:Length/binary, Rest/binary>>) ->
    Tag = array:get(Index, Tags),
    io:format("~B (~s) = ~p (~B)\n", [Index, Tag, Data, Length]),
    dump_database(Tags, Rest).
_________________________
-- roger