anchor.diff:      emit({"%% SEQUENCE and SET, and macro definitions for each value",nl}),
       emit({"%% definition,in module ",Mod,nl,nl}),
       emit({nl,nl}).
  -
  -gen_record2(Name,SeqOrSet,Comps) ->
  -    gen_record2(Name,SeqOrSet,Comps,"",noext).
  -
  -gen_record2(_Name,_SeqOrSet,[],_Com,_Extension) ->
  -    true;
  -gen_record2(_Name,_SeqOrSet,[H = #'ComponentType'{name=Cname}],Com,Extension) ->
  -    emit(Com),
  -    emit({asis,Cname}),
  -    gen_record_default(H, Extension);
  -gen_record2(Name,SeqOrSet,[H = #'ComponentType'{name=Cname}|T],Com, Extension) ->
  -    emit(Com),
  -    emit({asis,Cname}),
  -    gen_record_default(H, Extension),
  -    gen_record2(Name,SeqOrSet,T,", ", Extension);
  -gen_record2(Name,SeqOrSet,[_|T],Com,Extension) ->
  -    %% skip EXTENSIONMARK, ExtensionAdditionGroup and other markers
  -    gen_record2(Name,SeqOrSet,T,Com,Extension).
  -
  -gen_record_default(#'ComponentType'{prop='OPTIONAL'}, _)->
  -    emit(" = asn1_NOVALUE"); 
  -gen_record_default(#'ComponentType'{prop={'DEFAULT',_}}, _)->
  -    emit(" = asn1_DEFAULT"); 
  -gen_record_default(_, _) ->
  -    true.
   
   %% May only be a list or a two-tuple.
   to_textual_order({Root,Ext}) ->
  
positive.code:     end;
  gen_record(_, _, _, _, NumRecords) ->        % skip CLASS etc for now.
       NumRecords.
  
  gen_head(#gen{options=Options}=Gen, Mod, Hrl) ->
      Name = case Gen of
  
negative.code: 		0 -> open_hrl(get(outfile),get(currmod));
  		_ -> true
  	    end,
              do_gen_record(Gen, Name, CompList),
  	    NewCompList =
  		case CompList of
  		    {CompList1,[]} ->
  			CompList1;
  		    {Tr,ExtensionList2} ->
  			Tr ++ ExtensionList2;
  		    {Rootl1,Extl,Rootl2} ->
  			Rootl1++Extl++Rootl2;
  		    _ ->
  			CompList
  		end,
  	    gen_record(Gen, TorPtype, Name, NewCompList, Num+1);
  