anchor.diff:  	0 ->
   	    {Packetfixed, ""};
   	Headerlen ->
  -%	    io:format("Headerlen:~p~n", [Headerlen]),
   	    Header = string:substr(Packetfixed, 1, Headerlen),
   	    Body = string:substr(Packetfixed, Headerlen + 2),
  -%	    io:format("Header:~p ~p~n", [Header, Body]),
   	    {Header, Body}
       end.
   
  
positive.code: -export([parse/2, parse_packet/1, parse_packet/2, parseheader/1, parserequest/1]).
  
  -include("sipsocket.hrl").
  
  parse_packet(Packet) ->
      parse_packet(Packet, none).
  
negative.code: request({Method, URI}, Header, Body) ->
  %    io:format("Request:~p~n", [{Method, URI}]),
      URL = sipurl:parse(URI),
      #request{method=Method, uri=URL, header=Header, body=Body}.
  
  response({Status, Reason}, Header, Body) ->
  %    io:format("Response:~p~n", [Status]),
      #response{status=list_to_integer(Status), reason=Reason, header=Header, body=Body}.
  