anchor.diff:  
   %% Idx 0 must be 1-9.
   %% Finds the ascii encoded integer terminated by a space.
  +-spec find_int(binary(), non_neg_integer()) ->
  +                      'incomplete' |
  +                      {Length::non_neg_integer(),
  +                       MsgOffset::non_neg_integer()} |
  +                      'bad_int_or_missing_space'.
   find_int(Buf, Idx) when byte_size(Buf) =< Idx ->
       incomplete;
   find_int(Buf, Idx) ->
  
positive.code: -record(buf, {bytes = <<>> :: binary(),
                waiting_for = unknown :: 'unknown' | non_neg_integer()}).
  
  %% Syslog frames
  %% a) <Length as ascii integer><space><msg:Length>"
  %% b) <msg>\n.
  
negative.code: parse(Bytes) when is_binary(Bytes) ->
      push(Bytes, new()).
  
  -spec push(Bytes::binary(), parse_buffer()) ->
                    { ok | {error, term()},
                      syslog_messages(),
                      parse_buffer()}.
  
  push(Bytes, Buf = #buf{bytes=OldBuf, waiting_for=WF})
    when is_binary(Bytes) ->
      push(iolist_to_binary([OldBuf, Bytes]), WF, Buf).
  