anchor.diff:  -include("dbus.hrl").
   
   
  --compile([export_all]).
  -
   %% api
  --export([]).
  +-export([
  +	 marshal_message/1,
  +	 marshal_message/2,
  +	 marshal_list/2,
  +	 unmarshal_data/1,
  +	 unmarshal_signature/1
  +	]).
  +
  +-export([test/0]).
   
   test() ->
       Data = read_test(),
  -    marshaller:unmarshal_list([byte, byte, byte, byte, uint32, uint32, {array, {struct, [byte, variant]}}], Data).
  +    unmarshal_list([byte, byte, byte, byte, uint32, uint32, {array, {struct, [byte, variant]}}], Data).
   
   read_test() ->
       {ok, File} = file:open("/tmp/bytes", [binary, read]),
  
positive.code:     {ok, Header, Body, Data1}.
  
  header_fetch(Code, Header) ->
      {ok, Field} = header_find(Code, Header).
  
  header_find(Code, Header) ->
      Headers = Header#header.headers,
  
negative.code:     Length = Pos2 - Pos1,
      {ok, Value1, Pos1} = marshal(uint32, Length, Pos0),
      {ok, [<<0:Pad>>, Value1, Value2], Pos2};
  marshal({struct, _SubTypes}=Type, Value, Pos) when is_tuple(Value) ->
      marshal(Type, tuple_to_list(Value), Pos);
  marshal({struct, SubTypes}, Value, Pos) when is_list(Value) ->
      marshal_struct(SubTypes, Value, Pos);
  