anchor.diff:      false.
   
   %%--------------------------------------------------------------------
  -%% Function:
  -%% Descrip.:
  -%% Returns :
  +%% Function: regexp_rewrite(Input, RegexpList)
  +%%           Input      = string()
  +%%           RegexpList = list() of {Regexp, Rewrite} tuple()
  +%%              Regexp  = string(), e.g. "foo(.+)"
  +%%              Rewrite = string(), e.g. "\\1@example.com"
  +%% Descrip.: Do regexp substitution. If Input is "foobar" and the
  +%%           regexp tuple is {"foo(.+)", "\\1@example.com"} this
  +%%           function will return "bar@example.com".
  +%% Returns : Res = string() |
  +%%           nomatch
   %%--------------------------------------------------------------------
   regexp_rewrite(_Input, []) ->
       nomatch;
  
positive.code: regexp_rewrite(Input, [{Regexp, Rewrite} | Rest]) ->
      case group_regexp:groups(Input, Regexp) of
  	{match, List} ->
  	    apply_rewrite(Rewrite, List);
  	nomatch ->
  	    regexp_rewrite(Input, Rest)
      end.
  
  %% Function:
  %% Descrip.: ???
  %% Returns :
  apply_rewrite([], _List) ->
      [];
  apply_rewrite([$\\, $\\ | Rest], List) ->
      [$\\ | apply_rewrite(Rest, List)];
  apply_rewrite([$\\, C | Rest], List) ->
      case digit(C) of
  	error ->
  	    [C | apply_rewrite(Rest, List)];
  	0 ->
  	    [C | apply_rewrite(Rest, List)];
  	Number ->
  	    lists:nth(Number, List) ++ apply_rewrite(Rest, List)
      end;
  apply_rewrite([C | Rest], List) ->
      [C | apply_rewrite(Rest, List)].
  
  %% return integer value (0-9) of the chars $0-$9
  %% return error if Digit is a non-numerical char (or other type)
  digit(Digit) when is_integer(Digit), Digit >= $0, Digit =< $9 ->
      Digit - $0;
  digit(_Digit) ->
      error.
  
  
  %%--------------------------------------------------------------------
  %% Function: casecompare(Str1, Str2)
  
negative.code: %%--------------------------------------------------------------------
  %% Function: isnumeric(Number)
  %%           Number = string()
  %% Descrip.: Determine if Number is a string containing only numbers.
  %%           Length of Number must be >= 1.
  %% Returns : true | false
  %% Note    : Using the BIF list_to_integer() is probably cheaper.
  %%--------------------------------------------------------------------
  