anchor.diff:  apply_rewrite([C | Rest], List) ->
       [C | apply_rewrite(Rest, List)].
   
  -regexp_rewrite(Input, []) ->
  -    nomatch;
  -
  -regexp_rewrite(Input, [{Regexp, Rewrite} | Rest]) ->
  -    case group_regexp:groups(Input, Regexp) of
  -	{match, List} ->
  -	    apply_rewrite(Rewrite, List);
  -	nomatch ->
  -	    regexp_rewrite(Input, Rest);
  -	{error, Error} ->
  -	    logger:log(normal, "Error in regexp ~p: ~p", [Regexp, Error]),
  -	    []
  -    end.
  +digit(Digit) when is_integer(Digit), Digit >= $0, Digit =< $9 ->
  +    Digit - $0;
  +digit(Digit) ->
  +    error.
   
   casecompare(none, none) ->
       true;
  
positive.code: 
  sec_to_date(never) ->
      "never";
  sec_to_date(Seconds) when integer(Seconds) ->
      Nowtime = {Seconds div 1000000, Seconds rem 1000000, 0},
      lists:flatten(localtime_to_string(calendar:now_to_local_time(Nowtime))).
  
  
negative.code:     io_lib:format("~4..0w-~2..0w-~2..0w ~2..0w:~2..0w:~2..0w",
  		  [Year, Month, Day, Hour, Minute, Second]).
  
  isnumeric(Number) when is_list(Number) ->
      case regexp:first_match(Number, "^[0-9]+$") of
  	{match, _, _} ->
  	    true;
  