anchor.diff:  request({Method, URI}, Header, Body) ->
   %    io:format("Request:~p~n", [{Method, URI}]),
       URL = sipurl:parse(URI),
  -    {request, Method, URL, Header, Body}.
  +    #request{method=Method, uri=URL, header=Header, body=Body}.
   
   response({Status, Reason}, Header, Body) ->
   %    io:format("Response:~p~n", [Status]),
  -    {response, list_to_integer(Status), Reason, Header, Body}.
  +    #response{status=list_to_integer(Status), reason=Reason, header=Header, body=Body}.
  
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: 	0 ->
  	    {Packetfixed, ""};
  	Headerlen ->
  	    Header = string:substr(Packetfixed, 1, Headerlen),
  	    Body = string:substr(Packetfixed, Headerlen + 2),
  	    {Header, Body}
      end.
  
  