anchor.diff:      Acc.
   
   
  -scan_set(Files,Options) ->
  -    %% The files in Files already have their relative path and extension
  -    lists:map(
  -      fun(F)->
  -	      case scan(F,Options) of
  -		  {false,{error,Reason}} ->
  -		      throw({error,{'scan error in file:',F,Reason}});
  -		  {TrueOrFalse,Res} ->
  -		      {TrueOrFalse,Res,F}
  -	      end
  -      end,
  -      Files).
  -
  -parse_set(ScanRes,Options) ->
  -    lists:map(
  -      fun({TorF,Toks,F})->
  -	      case parse({TorF,Toks},F,Options) of
  -		  {false,{error,Reason}} ->
  -		      throw({error,{'parse error in file:',F,Reason}});
  -		  {TrueOrFalse,Res} ->
  -		      {TrueOrFalse,Res,F}
  -	      end
  -      end,
  -      ScanRes).
  -
  -
   %%***********************************
   
  -
  -scan(File,Options) ->
  -    case asn1ct_tok:file(File) of
  -	{error,Reason} ->
  -	    error("~p~n",[Reason],Options),
  -	    {false,{error,Reason}};
  -        Tokens ->
  -	    case lists:member(ss,Options) of
  -		true -> % we terminate after scan
  -		    {false,Tokens};
  -		false -> % continue with next pass
  -		    {true,Tokens}
  -	    end
  -    end.
  -
  -
  -parse({true,Tokens},File,Options) ->
  -    %Presult = asn1ct_parser2:parse(Tokens),
  -    %%case lists:member(p1,Options) of
  -    %%		  true ->
  -    %%		      asn1ct_parser:parse(Tokens);
  -    %%		  _ ->
  -    %%		      asn1ct_parser2:parse(Tokens)
  -    %%	      end,
  -    case catch asn1ct_parser2:parse(Tokens) of
  -	{error,{{Line,_Mod,Message},_TokTup}} ->
  -	    if 
  -		is_integer(Line) ->
  -		    BaseName = filename:basename(File),
  -		    error("syntax error at line ~p in module ~s:~n",
  -			  [Line,BaseName],Options);
  -		true ->
  -		    error("syntax error in module ~p:~n",
  -			  [File],Options)
  -	    end,
  -	    print_error_message(Message),
  -	    {false,{error,Message}};
  -	{error,{Line,_Mod,[Message,Token]}} ->
  -	    error("syntax error: ~p ~p at line ~p~n",
  -		  [Message,Token,Line],Options),
  -	    {false,{error,{Line,[Message,Token]}}};
  -	{ok,M} ->
  -	    case lists:member(sp,Options) of
  -		true -> % terminate after parse
  -		    {false,M};
  -		false -> % continue with next pass
  -		    {true,M}
  -	    end;
  -	OtherError ->
  -	    error("~p~n",[OtherError],Options)
  -    end;
  -parse({false,Tokens},_,_) ->
  -    {false,Tokens}.
  -
  -check({true,M},File,OutFile,Includes,EncodingRule,DbFile,Options,InputMods) ->
  -
  -    start(Includes),
  -    case asn1ct_check:storeindb(#state{erule=EncodingRule},M) of 
  -	ok   ->
  -	    Module = asn1_db:dbget(M#module.name,'MODULE'),
  -	    State = #state{mname=Module#module.name,
  -			   module=Module#module{typeorval=[]},
  -			   erule=EncodingRule,
  -			   inputmodules=InputMods,
  -			   options=Options,
  -			   sourcedir=filename:dirname(File)},
  -	    Check = asn1ct_check:check(State,Module#module.typeorval),
  -	    case {Check,lists:member(abs,Options)} of
  -		{{error,Reason},_} ->
  -		    {false,{error,Reason}};
  -		{{ok,NewTypeOrVal,_},true} ->
  -		    NewM = Module#module{typeorval=NewTypeOrVal},
  -		    asn1_db:dbput(NewM#module.name,'MODULE',NewM),
  -		    pretty2(M#module.name,lists:concat([OutFile,".abs"])),
  -		    {false,ok};
  -		{{ok,NewTypeOrVal,GenTypeOrVal},_} ->
  -		    NewM = Module#module{typeorval=NewTypeOrVal},
  -		    asn1_db:dbput(NewM#module.name,'MODULE',NewM),
  -		    asn1_db:dbsave(DbFile,M#module.name),
  -		    verbose("--~p--~n",[{generated,DbFile}],Options),
  -		    {true,{M,NewM,GenTypeOrVal}}
  -	    end;
  -	ErrorList = {error,_} ->
  -	    {false,ErrorList}
  -    end;
  -check({false,M},_,_,_,_,_,_,_) ->
  -    {false,M}.
  -
  -generate({true,{M,_Module,GenTOrV}}, OutFile, EncodingRule, Options) ->
  +generate({M,GenTOrV}, OutFile, EncodingRule, Options) ->
       debug_on(Options),
       setup_bit_string_format(Options),
       put(encoding_options,Options),
  
positive.code: %% 
  %% 
  
  
  compile(File) ->
      compile(File,[]).
  
  
negative.code: 	    end
      end.
  
  
  input_file_type(Name,I) ->
     case input_file_type(Name) of
  