anchor.diff:  %%--------------------------------------------------------------------
   
   -module(sipparse_util).
  +%%-compile(export_all).
   
   %%--------------------------------------------------------------------
   %% External exports
  
positive.code: %% This module implements some of the parsing rules needed for
  %% the BNF defined in RFC 3261 (chapter 25 page 218)
  %%
  %% Note: The functions in this module are assumed to conform STRICTLY
  
negative.code: 	{Host, PortRest} ->
  	    %% a style "[...]:Port"
  	    [$: | Port] = PortRest,
  	    {Host, list_to_integer(Port)}
      end.
  
  
  parse_ipv4hostport(HostPort) ->
      case sipparse_util:split_fields(HostPort, $:) of
  	{Host, Port} ->
  	    %% throw if not a IPv4 address string, or not a numeric port
  	    {ok, is_IPv4address(Host), list_to_integer(Port)};
  	{Host} ->
  	    %% throw if not a IPv4 address string
  	    {ok, is_IPv4address(Host), none}
  