/*LINTLIBRARY*/ /* translation of file(s) "../abs.k" "../main.k" "../parse.k" "../error.k" "../defocc.k" "../extocc.k" "../useocc.k" "../util.k" "../gen.k" "../gutil.k" "../pat.k" */ /* generated by: * @(#)$Author: Kimwitu version: V4_6 (c) 1990-1996 University of Twente $ */ #define KC_REWRITE #define KIMW_REWRITE /* for backwards compatibility */ /* define our own macro if we have a 'standard' (ansi) C(++) compiler */ #ifndef KC_NO_STDC # if defined(__STDC__) || defined(__cplusplus) || defined(_WIN32) # define KC_STDC # endif #endif #include #include #ifdef KC_STDC # include #endif #include "k.h" #include "rk.h" char *kc_rview_names[] = { "base_rview" }; /* included stuff */ #line 2 "../main.k" /* * The Termprocessor Kimwitu * * Copyright (c) 1991 University of Twente, Dept TIOS. * All rights reserved. * */ #line 49 "rk.c" /* end included stuff */ /*ARGSUSED*/ nocasestring rewrite_nocasestring #ifdef KC_USE_PROTOTYPES (nocasestring kc_p, rview kc_current_view) #else (kc_p, kc_current_view) nocasestring kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_nocasestring( kc_p, "kc_p" ); return kc_p; } /*ARGSUSED*/ casestring rewrite_casestring #ifdef KC_USE_PROTOTYPES (casestring kc_p, rview kc_current_view) #else (kc_p, kc_current_view) casestring kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_casestring( kc_p, "kc_p" ); return kc_p; } /*ARGSUSED*/ float rewrite_float #ifdef KC_USE_PROTOTYPES (float kc_p, rview kc_current_view) #else (kc_p, kc_current_view) float kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_float( kc_p, "kc_p" ); return kc_p; } /*ARGSUSED*/ int rewrite_int #ifdef KC_USE_PROTOTYPES (int kc_p, rview kc_current_view) #else (kc_p, kc_current_view) int kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_int( kc_p, "kc_p" ); return kc_p; } /*ARGSUSED*/ voidptr rewrite_voidptr #ifdef KC_USE_PROTOTYPES (voidptr kc_p, rview kc_current_view) #else (kc_p, kc_current_view) voidptr kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_voidptr( kc_p, "kc_p" ); return kc_p; } /*ARGSUSED*/ uniqID rewrite_uniqID #ifdef KC_USE_PROTOTYPES (uniqID kc_p, rview kc_current_view) #else (kc_p, kc_current_view) uniqID kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_uniqID( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Str: { casestring casestring_1 = rewrite_casestring(kc_p->u.Str.casestring_1, kc_current_view); if ((casestring_1 == kc_p->u.Str.casestring_1)) return kc_p; else return Str(casestring_1); } default: return kc_p;} } } } /*ARGSUSED*/ ID rewrite_ID #ifdef KC_USE_PROTOTYPES (ID kc_p, rview kc_current_view) #else (kc_p, kc_current_view) ID kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_ID( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Id: { uniqID uniqID_1 = rewrite_uniqID(kc_p->u.Id.uniqID_1, kc_current_view); if ((uniqID_1 == kc_p->u.Id.uniqID_1)) return kc_p; else return Id(uniqID_1); } default: return kc_p;} } } } /*ARGSUSED*/ INT rewrite_INT #ifdef KC_USE_PROTOTYPES (INT kc_p, rview kc_current_view) #else (kc_p, kc_current_view) INT kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_INT( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Int: { int int_1 = rewrite_int(kc_p->u.Int.int_1, kc_current_view); if ((int_1 == kc_p->u.Int.int_1)) return kc_p; else return Int(int_1); } default: return kc_p;} } } } /*ARGSUSED*/ STRING rewrite_STRING #ifdef KC_USE_PROTOTYPES (STRING kc_p, rview kc_current_view) #else (kc_p, kc_current_view) STRING kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_STRING( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_String: { casestring casestring_1 = rewrite_casestring(kc_p->u.String.casestring_1, kc_current_view); if ((casestring_1 == kc_p->u.String.casestring_1)) return kc_p; else return String(casestring_1); } default: return kc_p;} } } } /*ARGSUSED*/ phylumdeclarationsroot rewrite_phylumdeclarationsroot #ifdef KC_USE_PROTOTYPES (phylumdeclarationsroot kc_p, rview kc_current_view) #else (kc_p, kc_current_view) phylumdeclarationsroot kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_phylumdeclarationsroot( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_PhylumDeclarations: { phylumdeclarations phylumdeclarations_1 = rewrite_phylumdeclarations(kc_p->u.PhylumDeclarations.phylumdeclarations_1, kc_current_view); if ((phylumdeclarations_1 == kc_p->u.PhylumDeclarations.phylumdeclarations_1)) return kc_p; else return PhylumDeclarations(phylumdeclarations_1); } default: return kc_p;} } } } /*ARGSUSED*/ phylumdeclarations rewrite_phylumdeclarations #ifdef KC_USE_PROTOTYPES (phylumdeclarations kc_p, rview kc_current_view) #else (kc_p, kc_current_view) phylumdeclarations kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_phylumdeclarations( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilphylumdeclarations: { return kc_p; } case (int)sel_Consphylumdeclarations: { phylumdeclaration phylumdeclaration_1 = rewrite_phylumdeclaration(kc_p->u.Consphylumdeclarations.phylumdeclaration_1, kc_current_view); phylumdeclarations phylumdeclarations_1 = rewrite_phylumdeclarations(kc_p->u.Consphylumdeclarations.phylumdeclarations_1, kc_current_view); if ((phylumdeclaration_1 == kc_p->u.Consphylumdeclarations.phylumdeclaration_1) && (phylumdeclarations_1 == kc_p->u.Consphylumdeclarations.phylumdeclarations_1)) return kc_p; else return Consphylumdeclarations(phylumdeclaration_1, phylumdeclarations_1); } default: return kc_p;} } } } /*ARGSUSED*/ phylumnames rewrite_phylumnames #ifdef KC_USE_PROTOTYPES (phylumnames kc_p, rview kc_current_view) #else (kc_p, kc_current_view) phylumnames kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_phylumnames( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilphylumnames: { return kc_p; } case (int)sel_Consphylumnames: { ID ID_1 = rewrite_ID(kc_p->u.Consphylumnames.ID_1, kc_current_view); phylumnames phylumnames_1 = rewrite_phylumnames(kc_p->u.Consphylumnames.phylumnames_1, kc_current_view); if ((ID_1 == kc_p->u.Consphylumnames.ID_1) && (phylumnames_1 == kc_p->u.Consphylumnames.phylumnames_1)) return kc_p; else return Consphylumnames(ID_1, phylumnames_1); } default: return kc_p;} } } } /*ARGSUSED*/ phylumdeclaration rewrite_phylumdeclaration #ifdef KC_USE_PROTOTYPES (phylumdeclaration kc_p, rview kc_current_view) #else (kc_p, kc_current_view) phylumdeclaration kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_phylumdeclaration( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_PhylumDeclaration: { ID ID_1 = rewrite_ID(kc_p->u.PhylumDeclaration.ID_1, kc_current_view); storageoption storageoption_1 = rewrite_storageoption(kc_p->u.PhylumDeclaration.storageoption_1, kc_current_view); productionblock productionblock_1 = rewrite_productionblock(kc_p->u.PhylumDeclaration.productionblock_1, kc_current_view); Ccode_option Ccode_option_1 = rewrite_Ccode_option(kc_p->u.PhylumDeclaration.Ccode_option_1, kc_current_view); if ((ID_1 == kc_p->u.PhylumDeclaration.ID_1) && (storageoption_1 == kc_p->u.PhylumDeclaration.storageoption_1) && (productionblock_1 == kc_p->u.PhylumDeclaration.productionblock_1) && (Ccode_option_1 == kc_p->u.PhylumDeclaration.Ccode_option_1)) return kc_p; else return PhylumDeclaration(ID_1, storageoption_1, productionblock_1, Ccode_option_1); } default: return kc_p;} } } } /*ARGSUSED*/ storageoption rewrite_storageoption #ifdef KC_USE_PROTOTYPES (storageoption kc_p, rview kc_current_view) #else (kc_p, kc_current_view) storageoption kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_storageoption( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_NoStorageOption: { return kc_p; } case (int)sel_NegativeStorageOption: { ID ID_1 = rewrite_ID(kc_p->u.NegativeStorageOption.ID_1, kc_current_view); if ((ID_1 == kc_p->u.NegativeStorageOption.ID_1)) return kc_p; else return NegativeStorageOption(ID_1); } case (int)sel_PositiveStorageOption: { ID ID_1 = rewrite_ID(kc_p->u.PositiveStorageOption.ID_1, kc_current_view); if ((ID_1 == kc_p->u.PositiveStorageOption.ID_1)) return kc_p; else return PositiveStorageOption(ID_1); } default: return kc_p;} } } } /*ARGSUSED*/ storageclasses rewrite_storageclasses #ifdef KC_USE_PROTOTYPES (storageclasses kc_p, rview kc_current_view) #else (kc_p, kc_current_view) storageclasses kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_storageclasses( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilstorageclasses: { return kc_p; } case (int)sel_Consstorageclasses: { ID ID_1 = rewrite_ID(kc_p->u.Consstorageclasses.ID_1, kc_current_view); storageclasses storageclasses_1 = rewrite_storageclasses(kc_p->u.Consstorageclasses.storageclasses_1, kc_current_view); if ((ID_1 == kc_p->u.Consstorageclasses.ID_1) && (storageclasses_1 == kc_p->u.Consstorageclasses.storageclasses_1)) return kc_p; else return Consstorageclasses(ID_1, storageclasses_1); } default: return kc_p;} } } } /*ARGSUSED*/ productionblock rewrite_productionblock #ifdef KC_USE_PROTOTYPES (productionblock kc_p, rview kc_current_view) #else (kc_p, kc_current_view) productionblock kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_productionblock( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Emptyproductionblock: { return kc_p; } case (int)sel_ListAlternatives: { alternatives alternatives_1 = rewrite_alternatives(kc_p->u.ListAlternatives.alternatives_1, kc_current_view); ID ID_1 = rewrite_ID(kc_p->u.ListAlternatives.ID_1, kc_current_view); if ((alternatives_1 == kc_p->u.ListAlternatives.alternatives_1) && (ID_1 == kc_p->u.ListAlternatives.ID_1)) return kc_p; else return ListAlternatives(alternatives_1, ID_1); } case (int)sel_NonlistAlternatives: { alternatives alternatives_1 = rewrite_alternatives(kc_p->u.NonlistAlternatives.alternatives_1, kc_current_view); if ((alternatives_1 == kc_p->u.NonlistAlternatives.alternatives_1)) return kc_p; else return NonlistAlternatives(alternatives_1); } case (int)sel_PredefinedAlternatives: { alternatives alternatives_1 = rewrite_alternatives(kc_p->u.PredefinedAlternatives.alternatives_1, kc_current_view); if ((alternatives_1 == kc_p->u.PredefinedAlternatives.alternatives_1)) return kc_p; else return PredefinedAlternatives(alternatives_1); } default: return kc_p;} } } } /*ARGSUSED*/ alternatives rewrite_alternatives #ifdef KC_USE_PROTOTYPES (alternatives kc_p, rview kc_current_view) #else (kc_p, kc_current_view) alternatives kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_alternatives( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilalternatives: { return kc_p; } case (int)sel_Consalternatives: { alternative alternative_1 = rewrite_alternative(kc_p->u.Consalternatives.alternative_1, kc_current_view); alternatives alternatives_1 = rewrite_alternatives(kc_p->u.Consalternatives.alternatives_1, kc_current_view); if ((alternative_1 == kc_p->u.Consalternatives.alternative_1) && (alternatives_1 == kc_p->u.Consalternatives.alternatives_1)) return kc_p; else return Consalternatives(alternative_1, alternatives_1); } default: return kc_p;} } } } /*ARGSUSED*/ alternative rewrite_alternative #ifdef KC_USE_PROTOTYPES (alternative kc_p, rview kc_current_view) #else (kc_p, kc_current_view) alternative kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_alternative( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Alternative: { ID ID_1 = rewrite_ID(kc_p->u.Alternative.ID_1, kc_current_view); arguments arguments_1 = rewrite_arguments(kc_p->u.Alternative.arguments_1, kc_current_view); if ((ID_1 == kc_p->u.Alternative.ID_1) && (arguments_1 == kc_p->u.Alternative.arguments_1)) return kc_p; else return Alternative(ID_1, arguments_1); } default: return kc_p;} } } } /*ARGSUSED*/ arguments rewrite_arguments #ifdef KC_USE_PROTOTYPES (arguments kc_p, rview kc_current_view) #else (kc_p, kc_current_view) arguments kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_arguments( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilarguments: { return kc_p; } case (int)sel_Consarguments: { ID ID_1 = rewrite_ID(kc_p->u.Consarguments.ID_1, kc_current_view); arguments arguments_1 = rewrite_arguments(kc_p->u.Consarguments.arguments_1, kc_current_view); if ((ID_1 == kc_p->u.Consarguments.ID_1) && (arguments_1 == kc_p->u.Consarguments.arguments_1)) return kc_p; else return Consarguments(ID_1, arguments_1); } default: return kc_p;} } } } /*ARGSUSED*/ argument rewrite_argument #ifdef KC_USE_PROTOTYPES (argument kc_p, rview kc_current_view) #else (kc_p, kc_current_view) argument kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_argument( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Argument: { ID ID_1 = rewrite_ID(kc_p->u.Argument.ID_1, kc_current_view); int int_1 = rewrite_int(kc_p->u.Argument.int_1, kc_current_view); if ((ID_1 == kc_p->u.Argument.ID_1) && (int_1 == kc_p->u.Argument.int_1)) return kc_p; else return Argument(ID_1, int_1); } default: return kc_p;} } } } /*ARGSUSED*/ Ccode_option rewrite_Ccode_option #ifdef KC_USE_PROTOTYPES (Ccode_option kc_p, rview kc_current_view) #else (kc_p, kc_current_view) Ccode_option kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_Ccode_option( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_CcodeOption: { attributes attributes_1 = rewrite_attributes(kc_p->u.CcodeOption.attributes_1, kc_current_view); Ctexts Ctexts_1 = rewrite_Ctexts(kc_p->u.CcodeOption.Ctexts_1, kc_current_view); if ((attributes_1 == kc_p->u.CcodeOption.attributes_1) && (Ctexts_1 == kc_p->u.CcodeOption.Ctexts_1)) return kc_p; else return CcodeOption(attributes_1, Ctexts_1); } default: return kc_p;} } } } /*ARGSUSED*/ attributes rewrite_attributes #ifdef KC_USE_PROTOTYPES (attributes kc_p, rview kc_current_view) #else (kc_p, kc_current_view) attributes kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_attributes( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilattributes: { return kc_p; } case (int)sel_Consattributes: { attribute attribute_1 = rewrite_attribute(kc_p->u.Consattributes.attribute_1, kc_current_view); attributes attributes_1 = rewrite_attributes(kc_p->u.Consattributes.attributes_1, kc_current_view); if ((attribute_1 == kc_p->u.Consattributes.attribute_1) && (attributes_1 == kc_p->u.Consattributes.attributes_1)) return kc_p; else return Consattributes(attribute_1, attributes_1); } default: return kc_p;} } } } /*ARGSUSED*/ attribute rewrite_attribute #ifdef KC_USE_PROTOTYPES (attribute kc_p, rview kc_current_view) #else (kc_p, kc_current_view) attribute kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_attribute( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Attribute: { ID ID_1 = rewrite_ID(kc_p->u.Attribute.ID_1, kc_current_view); ID ID_2 = rewrite_ID(kc_p->u.Attribute.ID_2, kc_current_view); attribute_initialisation_option attribute_initialisation_option_1 = rewrite_attribute_initialisation_option(kc_p->u.Attribute.attribute_initialisation_option_1, kc_current_view); if ((ID_1 == kc_p->u.Attribute.ID_1) && (ID_2 == kc_p->u.Attribute.ID_2) && (attribute_initialisation_option_1 == kc_p->u.Attribute.attribute_initialisation_option_1)) return kc_p; else return Attribute(ID_1, ID_2, attribute_initialisation_option_1); } default: return kc_p;} } } } /*ARGSUSED*/ attribute_initialisation_option rewrite_attribute_initialisation_option #ifdef KC_USE_PROTOTYPES (attribute_initialisation_option kc_p, rview kc_current_view) #else (kc_p, kc_current_view) attribute_initialisation_option kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_attribute_initialisation_option( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Noattribute_initialisation: { return kc_p; } case (int)sel_Yesattribute_initialisation: { Cexpression Cexpression_1 = rewrite_Cexpression(kc_p->u.Yesattribute_initialisation.Cexpression_1, kc_current_view); if ((Cexpression_1 == kc_p->u.Yesattribute_initialisation.Cexpression_1)) return kc_p; else return Yesattribute_initialisation(Cexpression_1); } default: return kc_p;} } } } /*ARGSUSED*/ Cexpression rewrite_Cexpression #ifdef KC_USE_PROTOTYPES (Cexpression kc_p, rview kc_current_view) #else (kc_p, kc_current_view) Cexpression kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_Cexpression( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_NilCexpression: { return kc_p; } case (int)sel_ConsCexpression: { Cexpression_elem Cexpression_elem_1 = rewrite_Cexpression_elem(kc_p->u.ConsCexpression.Cexpression_elem_1, kc_current_view); Cexpression Cexpression_1 = rewrite_Cexpression(kc_p->u.ConsCexpression.Cexpression_1, kc_current_view); if ((Cexpression_elem_1 == kc_p->u.ConsCexpression.Cexpression_elem_1) && (Cexpression_1 == kc_p->u.ConsCexpression.Cexpression_1)) return kc_p; else return ConsCexpression(Cexpression_elem_1, Cexpression_1); } default: return kc_p;} } } } /*ARGSUSED*/ Cexpression_elem rewrite_Cexpression_elem #ifdef KC_USE_PROTOTYPES (Cexpression_elem kc_p, rview kc_current_view) #else (kc_p, kc_current_view) Cexpression_elem kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_Cexpression_elem( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_CExpressionPart: { casestring casestring_1 = rewrite_casestring(kc_p->u.CExpressionPart.casestring_1, kc_current_view); if ((casestring_1 == kc_p->u.CExpressionPart.casestring_1)) return kc_p; else return CExpressionPart(casestring_1); } case (int)sel_CExpressionDollarvar: { INT INT_1 = rewrite_INT(kc_p->u.CExpressionDollarvar.INT_1, kc_current_view); if ((INT_1 == kc_p->u.CExpressionDollarvar.INT_1)) return kc_p; else return CExpressionDollarvar(INT_1); } case (int)sel_CExpressionNl: { int int_1 = rewrite_int(kc_p->u.CExpressionNl.int_1, kc_current_view); if ((int_1 == kc_p->u.CExpressionNl.int_1)) return kc_p; else return CExpressionNl(int_1); } case (int)sel_CExpressionDQ: { CexpressionDQ CexpressionDQ_1 = rewrite_CexpressionDQ(kc_p->u.CExpressionDQ.CexpressionDQ_1, kc_current_view); if ((CexpressionDQ_1 == kc_p->u.CExpressionDQ.CexpressionDQ_1)) return kc_p; else return CExpressionDQ(CexpressionDQ_1); } case (int)sel_CExpressionSQ: { CexpressionSQ CexpressionSQ_1 = rewrite_CexpressionSQ(kc_p->u.CExpressionSQ.CexpressionSQ_1, kc_current_view); if ((CexpressionSQ_1 == kc_p->u.CExpressionSQ.CexpressionSQ_1)) return kc_p; else return CExpressionSQ(CexpressionSQ_1); } case (int)sel_CExpressionPack: { Cexpression Cexpression_1 = rewrite_Cexpression(kc_p->u.CExpressionPack.Cexpression_1, kc_current_view); if ((Cexpression_1 == kc_p->u.CExpressionPack.Cexpression_1)) return kc_p; else return CExpressionPack(Cexpression_1); } case (int)sel_CExpressionArray: { Cexpression Cexpression_1 = rewrite_Cexpression(kc_p->u.CExpressionArray.Cexpression_1, kc_current_view); if ((Cexpression_1 == kc_p->u.CExpressionArray.Cexpression_1)) return kc_p; else return CExpressionArray(Cexpression_1); } default: return kc_p;} } } } /*ARGSUSED*/ CexpressionDQ rewrite_CexpressionDQ #ifdef KC_USE_PROTOTYPES (CexpressionDQ kc_p, rview kc_current_view) #else (kc_p, kc_current_view) CexpressionDQ kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_CexpressionDQ( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_NilCexpressionDQ: { return kc_p; } case (int)sel_ConsCexpressionDQ: { CexpressionDQ_elem CexpressionDQ_elem_1 = rewrite_CexpressionDQ_elem(kc_p->u.ConsCexpressionDQ.CexpressionDQ_elem_1, kc_current_view); CexpressionDQ CexpressionDQ_1 = rewrite_CexpressionDQ(kc_p->u.ConsCexpressionDQ.CexpressionDQ_1, kc_current_view); if ((CexpressionDQ_elem_1 == kc_p->u.ConsCexpressionDQ.CexpressionDQ_elem_1) && (CexpressionDQ_1 == kc_p->u.ConsCexpressionDQ.CexpressionDQ_1)) return kc_p; else return ConsCexpressionDQ(CexpressionDQ_elem_1, CexpressionDQ_1); } default: return kc_p;} } } } /*ARGSUSED*/ CexpressionDQ_elem rewrite_CexpressionDQ_elem #ifdef KC_USE_PROTOTYPES (CexpressionDQ_elem kc_p, rview kc_current_view) #else (kc_p, kc_current_view) CexpressionDQ_elem kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_CexpressionDQ_elem( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_CExpressionDQPart: { casestring casestring_1 = rewrite_casestring(kc_p->u.CExpressionDQPart.casestring_1, kc_current_view); if ((casestring_1 == kc_p->u.CExpressionDQPart.casestring_1)) return kc_p; else return CExpressionDQPart(casestring_1); } case (int)sel_CExpressionDQNl: { int int_1 = rewrite_int(kc_p->u.CExpressionDQNl.int_1, kc_current_view); if ((int_1 == kc_p->u.CExpressionDQNl.int_1)) return kc_p; else return CExpressionDQNl(int_1); } default: return kc_p;} } } } /*ARGSUSED*/ CexpressionSQ rewrite_CexpressionSQ #ifdef KC_USE_PROTOTYPES (CexpressionSQ kc_p, rview kc_current_view) #else (kc_p, kc_current_view) CexpressionSQ kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_CexpressionSQ( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_NilCexpressionSQ: { return kc_p; } case (int)sel_ConsCexpressionSQ: { CexpressionSQ_elem CexpressionSQ_elem_1 = rewrite_CexpressionSQ_elem(kc_p->u.ConsCexpressionSQ.CexpressionSQ_elem_1, kc_current_view); CexpressionSQ CexpressionSQ_1 = rewrite_CexpressionSQ(kc_p->u.ConsCexpressionSQ.CexpressionSQ_1, kc_current_view); if ((CexpressionSQ_elem_1 == kc_p->u.ConsCexpressionSQ.CexpressionSQ_elem_1) && (CexpressionSQ_1 == kc_p->u.ConsCexpressionSQ.CexpressionSQ_1)) return kc_p; else return ConsCexpressionSQ(CexpressionSQ_elem_1, CexpressionSQ_1); } default: return kc_p;} } } } /*ARGSUSED*/ CexpressionSQ_elem rewrite_CexpressionSQ_elem #ifdef KC_USE_PROTOTYPES (CexpressionSQ_elem kc_p, rview kc_current_view) #else (kc_p, kc_current_view) CexpressionSQ_elem kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_CexpressionSQ_elem( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_CExpressionSQPart: { casestring casestring_1 = rewrite_casestring(kc_p->u.CExpressionSQPart.casestring_1, kc_current_view); if ((casestring_1 == kc_p->u.CExpressionSQPart.casestring_1)) return kc_p; else return CExpressionSQPart(casestring_1); } case (int)sel_CExpressionSQNl: { int int_1 = rewrite_int(kc_p->u.CExpressionSQNl.int_1, kc_current_view); if ((int_1 == kc_p->u.CExpressionSQNl.int_1)) return kc_p; else return CExpressionSQNl(int_1); } default: return kc_p;} } } } /*ARGSUSED*/ idCexpressions rewrite_idCexpressions #ifdef KC_USE_PROTOTYPES (idCexpressions kc_p, rview kc_current_view) #else (kc_p, kc_current_view) idCexpressions kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_idCexpressions( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_NilidCexpressions: { return kc_p; } case (int)sel_ConsidCexpressions: { idCexpression idCexpression_1 = rewrite_idCexpression(kc_p->u.ConsidCexpressions.idCexpression_1, kc_current_view); idCexpressions idCexpressions_1 = rewrite_idCexpressions(kc_p->u.ConsidCexpressions.idCexpressions_1, kc_current_view); if ((idCexpression_1 == kc_p->u.ConsidCexpressions.idCexpression_1) && (idCexpressions_1 == kc_p->u.ConsidCexpressions.idCexpressions_1)) return kc_p; else return ConsidCexpressions(idCexpression_1, idCexpressions_1); } default: return kc_p;} } } } /*ARGSUSED*/ idCexpression rewrite_idCexpression #ifdef KC_USE_PROTOTYPES (idCexpression kc_p, rview kc_current_view) #else (kc_p, kc_current_view) idCexpression kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_idCexpression( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_IdCexpression: { ID ID_1 = rewrite_ID(kc_p->u.IdCexpression.ID_1, kc_current_view); Cexpression Cexpression_1 = rewrite_Cexpression(kc_p->u.IdCexpression.Cexpression_1, kc_current_view); if ((ID_1 == kc_p->u.IdCexpression.ID_1) && (Cexpression_1 == kc_p->u.IdCexpression.Cexpression_1)) return kc_p; else return IdCexpression(ID_1, Cexpression_1); } default: return kc_p;} } } } /*ARGSUSED*/ Ctexts rewrite_Ctexts #ifdef KC_USE_PROTOTYPES (Ctexts kc_p, rview kc_current_view) #else (kc_p, kc_current_view) Ctexts kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_Ctexts( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_NilCtexts: { return kc_p; } case (int)sel_ConsCtexts: { Ctext Ctext_1 = rewrite_Ctext(kc_p->u.ConsCtexts.Ctext_1, kc_current_view); Ctexts Ctexts_1 = rewrite_Ctexts(kc_p->u.ConsCtexts.Ctexts_1, kc_current_view); if ((Ctext_1 == kc_p->u.ConsCtexts.Ctext_1) && (Ctexts_1 == kc_p->u.ConsCtexts.Ctexts_1)) return kc_p; else return ConsCtexts(Ctext_1, Ctexts_1); } default: return kc_p;} } } } /*ARGSUSED*/ includefiles rewrite_includefiles #ifdef KC_USE_PROTOTYPES (includefiles kc_p, rview kc_current_view) #else (kc_p, kc_current_view) includefiles kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_includefiles( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilincludefiles: { return kc_p; } case (int)sel_Consincludefiles: { includefile includefile_1 = rewrite_includefile(kc_p->u.Consincludefiles.includefile_1, kc_current_view); includefiles includefiles_1 = rewrite_includefiles(kc_p->u.Consincludefiles.includefiles_1, kc_current_view); if ((includefile_1 == kc_p->u.Consincludefiles.includefile_1) && (includefiles_1 == kc_p->u.Consincludefiles.includefiles_1)) return kc_p; else return Consincludefiles(includefile_1, includefiles_1); } default: return kc_p;} } } } /*ARGSUSED*/ includefile rewrite_includefile #ifdef KC_USE_PROTOTYPES (includefile kc_p, rview kc_current_view) #else (kc_p, kc_current_view) includefile kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_includefile( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_IncludeFile: { casestring casestring_1 = rewrite_casestring(kc_p->u.IncludeFile.casestring_1, kc_current_view); if ((casestring_1 == kc_p->u.IncludeFile.casestring_1)) return kc_p; else return IncludeFile(casestring_1); } default: return kc_p;} } } } /*ARGSUSED*/ includedeclarations rewrite_includedeclarations #ifdef KC_USE_PROTOTYPES (includedeclarations kc_p, rview kc_current_view) #else (kc_p, kc_current_view) includedeclarations kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_includedeclarations( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilincludedeclarations: { return kc_p; } case (int)sel_Consincludedeclarations: { includedeclaration includedeclaration_1 = rewrite_includedeclaration(kc_p->u.Consincludedeclarations.includedeclaration_1, kc_current_view); includedeclarations includedeclarations_1 = rewrite_includedeclarations(kc_p->u.Consincludedeclarations.includedeclarations_1, kc_current_view); if ((includedeclaration_1 == kc_p->u.Consincludedeclarations.includedeclaration_1) && (includedeclarations_1 == kc_p->u.Consincludedeclarations.includedeclarations_1)) return kc_p; else return Consincludedeclarations(includedeclaration_1, includedeclarations_1); } default: return kc_p;} } } } /*ARGSUSED*/ includedeclaration rewrite_includedeclaration #ifdef KC_USE_PROTOTYPES (includedeclaration kc_p, rview kc_current_view) #else (kc_p, kc_current_view) includedeclaration kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_includedeclaration( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_IncludeDeclaration: { includes includes_1 = rewrite_includes(kc_p->u.IncludeDeclaration.includes_1, kc_current_view); if ((includes_1 == kc_p->u.IncludeDeclaration.includes_1)) return kc_p; else return IncludeDeclaration(includes_1); } default: return kc_p;} } } } /*ARGSUSED*/ includes rewrite_includes #ifdef KC_USE_PROTOTYPES (includes kc_p, rview kc_current_view) #else (kc_p, kc_current_view) includes kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_includes( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilincludes: { return kc_p; } case (int)sel_Consincludes: { include include_1 = rewrite_include(kc_p->u.Consincludes.include_1, kc_current_view); includes includes_1 = rewrite_includes(kc_p->u.Consincludes.includes_1, kc_current_view); if ((include_1 == kc_p->u.Consincludes.include_1) && (includes_1 == kc_p->u.Consincludes.includes_1)) return kc_p; else return Consincludes(include_1, includes_1); } default: return kc_p;} } } } /*ARGSUSED*/ include rewrite_include #ifdef KC_USE_PROTOTYPES (include kc_p, rview kc_current_view) #else (kc_p, kc_current_view) include kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_include( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Include: { casestring casestring_1 = rewrite_casestring(kc_p->u.Include.casestring_1, kc_current_view); if ((casestring_1 == kc_p->u.Include.casestring_1)) return kc_p; else return Include(casestring_1); } case (int)sel_IncludeNl: { int int_1 = rewrite_int(kc_p->u.IncludeNl.int_1, kc_current_view); if ((int_1 == kc_p->u.IncludeNl.int_1)) return kc_p; else return IncludeNl(int_1); } default: return kc_p;} } } } /*ARGSUSED*/ rwdeclarations rewrite_rwdeclarations #ifdef KC_USE_PROTOTYPES (rwdeclarations kc_p, rview kc_current_view) #else (kc_p, kc_current_view) rwdeclarations kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_rwdeclarations( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilrwdeclarations: { return kc_p; } case (int)sel_Consrwdeclarations: { rwdeclaration rwdeclaration_1 = rewrite_rwdeclaration(kc_p->u.Consrwdeclarations.rwdeclaration_1, kc_current_view); rwdeclarations rwdeclarations_1 = rewrite_rwdeclarations(kc_p->u.Consrwdeclarations.rwdeclarations_1, kc_current_view); if ((rwdeclaration_1 == kc_p->u.Consrwdeclarations.rwdeclaration_1) && (rwdeclarations_1 == kc_p->u.Consrwdeclarations.rwdeclarations_1)) return kc_p; else return Consrwdeclarations(rwdeclaration_1, rwdeclarations_1); } default: return kc_p;} } } } /*ARGSUSED*/ rwdeclaration rewrite_rwdeclaration #ifdef KC_USE_PROTOTYPES (rwdeclaration kc_p, rview kc_current_view) #else (kc_p, kc_current_view) rwdeclaration kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_rwdeclaration( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_RwDeclaration: { outmostpatterns outmostpatterns_1 = rewrite_outmostpatterns(kc_p->u.RwDeclaration.outmostpatterns_1, kc_current_view); rewriteclauses rewriteclauses_1 = rewrite_rewriteclauses(kc_p->u.RwDeclaration.rewriteclauses_1, kc_current_view); if ((outmostpatterns_1 == kc_p->u.RwDeclaration.outmostpatterns_1) && (rewriteclauses_1 == kc_p->u.RwDeclaration.rewriteclauses_1)) return kc_p; else return RwDeclaration(outmostpatterns_1, rewriteclauses_1); } default: return kc_p;} } } } /*ARGSUSED*/ rewriteclauses rewrite_rewriteclauses #ifdef KC_USE_PROTOTYPES (rewriteclauses kc_p, rview kc_current_view) #else (kc_p, kc_current_view) rewriteclauses kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_rewriteclauses( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilrewriteclauses: { return kc_p; } case (int)sel_Consrewriteclauses: { rewriteclause rewriteclause_1 = rewrite_rewriteclause(kc_p->u.Consrewriteclauses.rewriteclause_1, kc_current_view); rewriteclauses rewriteclauses_1 = rewrite_rewriteclauses(kc_p->u.Consrewriteclauses.rewriteclauses_1, kc_current_view); if ((rewriteclause_1 == kc_p->u.Consrewriteclauses.rewriteclause_1) && (rewriteclauses_1 == kc_p->u.Consrewriteclauses.rewriteclauses_1)) return kc_p; else return Consrewriteclauses(rewriteclause_1, rewriteclauses_1); } default: return kc_p;} } } } /*ARGSUSED*/ rewriteclause rewrite_rewriteclause #ifdef KC_USE_PROTOTYPES (rewriteclause kc_p, rview kc_current_view) #else (kc_p, kc_current_view) rewriteclause kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_rewriteclause( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_RewriteClause: { viewnames viewnames_1 = rewrite_viewnames(kc_p->u.RewriteClause.viewnames_1, kc_current_view); term term_1 = rewrite_term(kc_p->u.RewriteClause.term_1, kc_current_view); if ((viewnames_1 == kc_p->u.RewriteClause.viewnames_1) && (term_1 == kc_p->u.RewriteClause.term_1)) return kc_p; else return RewriteClause(viewnames_1, term_1); } default: return kc_p;} } } } /*ARGSUSED*/ patternchains rewrite_patternchains #ifdef KC_USE_PROTOTYPES (patternchains kc_p, rview kc_current_view) #else (kc_p, kc_current_view) patternchains kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_patternchains( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilpatternchains: { return kc_p; } case (int)sel_Conspatternchains: { patternchain patternchain_1 = rewrite_patternchain(kc_p->u.Conspatternchains.patternchain_1, kc_current_view); patternchains patternchains_1 = rewrite_patternchains(kc_p->u.Conspatternchains.patternchains_1, kc_current_view); if ((patternchain_1->prod_sel == sel_Conspatternchain) && (patternchain_1->u.Conspatternchain.patternchainitem_1->prod_sel == sel_PatternchainitemGroup) && (patternchain_1->u.Conspatternchain.patternchain_1->prod_sel == sel_Nilpatternchain) && (patternchains_1->prod_sel == sel_Nilpatternchains)) { #line 342 "../util.k" patternchains P_pcs = patternchain_1->u.Conspatternchain.patternchainitem_1->u.PatternchainitemGroup.patternchains_1; #line 1255 "rk.c" patternchains kc_result = P_pcs; return (kc_result == kc_p) ? kc_p : rewrite_patternchains( kc_result, kc_current_view ); } else if ((patternchain_1->prod_sel == sel_Conspatternchain) && (patternchain_1->u.Conspatternchain.patternchainitem_1->prod_sel == sel_PatternchainitemGroup) && (patternchain_1->u.Conspatternchain.patternchain_1->prod_sel == sel_Nilpatternchain) && (patternchains_1->prod_sel == sel_Conspatternchains)) { #line 353 "../util.k" patternchains P_pcs = patternchain_1->u.Conspatternchain.patternchainitem_1->u.PatternchainitemGroup.patternchains_1; #line 356 "../util.k" patternchains Q_pcs = patternchains_1; #line 1265 "rk.c" patternchains kc_result = concat_patternchains(P_pcs, Q_pcs); return (kc_result == kc_p) ? kc_p : rewrite_patternchains( kc_result, kc_current_view ); } else if ((patternchain_1 == kc_p->u.Conspatternchains.patternchain_1) && (patternchains_1 == kc_p->u.Conspatternchains.patternchains_1)) return kc_p; else return Conspatternchains(patternchain_1, patternchains_1); } default: return kc_p;} } } } /*ARGSUSED*/ patternchain rewrite_patternchain #ifdef KC_USE_PROTOTYPES (patternchain kc_p, rview kc_current_view) #else (kc_p, kc_current_view) patternchain kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_patternchain( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilpatternchain: { return kc_p; } case (int)sel_Conspatternchain: { patternchainitem patternchainitem_1 = rewrite_patternchainitem(kc_p->u.Conspatternchain.patternchainitem_1, kc_current_view); patternchain patternchain_1 = rewrite_patternchain(kc_p->u.Conspatternchain.patternchain_1, kc_current_view); if ((patternchainitem_1->prod_sel == sel_PatternchainitemGroup) && (patternchainitem_1->u.PatternchainitemGroup.patternchains_1->prod_sel == sel_Conspatternchains) && (patternchainitem_1->u.PatternchainitemGroup.patternchains_1->u.Conspatternchains.patternchains_1->prod_sel == sel_Conspatternchains) && (patternchain_1->prod_sel == sel_Conspatternchain)) { #line 289 "../util.k" patternchain h_pc = patternchainitem_1->u.PatternchainitemGroup.patternchains_1->u.Conspatternchains.patternchain_1; #line 289 "../util.k" patternchains T_pcs = patternchainitem_1->u.PatternchainitemGroup.patternchains_1->u.Conspatternchains.patternchains_1; #line 291 "../util.k" patternchain Y_pc = patternchain_1; #line 1306 "rk.c" patternchain kc_result = Conspatternchain(PatternchainitemGroup(Conspatternchains(concat_patternchain(h_pc, Y_pc), Conspatternchains(Conspatternchain(PatternchainitemGroup(T_pcs), Y_pc), Nilpatternchains()))), Nilpatternchain()); return (kc_result == kc_p) ? kc_p : rewrite_patternchain( kc_result, kc_current_view ); } else if ((patternchainitem_1->prod_sel == sel_PatternchainitemGroup) && (patternchainitem_1->u.PatternchainitemGroup.patternchains_1->prod_sel == sel_Conspatternchains) && (patternchainitem_1->u.PatternchainitemGroup.patternchains_1->u.Conspatternchains.patternchains_1->prod_sel == sel_Nilpatternchains) && (patternchain_1->prod_sel == sel_Conspatternchain)) { #line 379 "../util.k" patternchain P_pc = patternchainitem_1->u.PatternchainitemGroup.patternchains_1->u.Conspatternchains.patternchain_1; #line 382 "../util.k" patternchain Q_pc = patternchain_1; #line 1316 "rk.c" patternchain kc_result = concat_patternchain(P_pc, Q_pc); return (kc_result == kc_p) ? kc_p : rewrite_patternchain( kc_result, kc_current_view ); } else if ((patternchain_1->prod_sel == sel_Conspatternchain) && (patternchain_1->u.Conspatternchain.patternchainitem_1->prod_sel == sel_PatternchainitemGroup) && (patternchain_1->u.Conspatternchain.patternchainitem_1->u.PatternchainitemGroup.patternchains_1->prod_sel == sel_Conspatternchains) && (patternchain_1->u.Conspatternchain.patternchainitem_1->u.PatternchainitemGroup.patternchains_1->u.Conspatternchains.patternchains_1->prod_sel == sel_Conspatternchains) && (patternchain_1->u.Conspatternchain.patternchain_1->prod_sel == sel_Nilpatternchain)) { #line 307 "../util.k" patternchainitem p = patternchainitem_1; #line 310 "../util.k" patternchain h_pc = patternchain_1->u.Conspatternchain.patternchainitem_1->u.PatternchainitemGroup.patternchains_1->u.Conspatternchains.patternchain_1; #line 310 "../util.k" patternchains T_pcs = patternchain_1->u.Conspatternchain.patternchainitem_1->u.PatternchainitemGroup.patternchains_1->u.Conspatternchains.patternchains_1; #line 1328 "rk.c" patternchain kc_result = Conspatternchain(PatternchainitemGroup(Conspatternchains(Conspatternchain(p, h_pc), Conspatternchains(Conspatternchain(p, Conspatternchain(PatternchainitemGroup(T_pcs), Nilpatternchain())), Nilpatternchains()))), Nilpatternchain()); return (kc_result == kc_p) ? kc_p : rewrite_patternchain( kc_result, kc_current_view ); } else if ((patternchain_1->prod_sel == sel_Conspatternchain) && (patternchain_1->u.Conspatternchain.patternchainitem_1->prod_sel == sel_PatternchainitemGroup) && (patternchain_1->u.Conspatternchain.patternchainitem_1->u.PatternchainitemGroup.patternchains_1->prod_sel == sel_Conspatternchains) && (patternchain_1->u.Conspatternchain.patternchainitem_1->u.PatternchainitemGroup.patternchains_1->u.Conspatternchains.patternchains_1->prod_sel == sel_Nilpatternchains) && (patternchain_1->u.Conspatternchain.patternchain_1->prod_sel == sel_Nilpatternchain)) { #line 363 "../util.k" patternchainitem p = patternchainitem_1; #line 367 "../util.k" patternchain P_pc = patternchain_1->u.Conspatternchain.patternchainitem_1->u.PatternchainitemGroup.patternchains_1->u.Conspatternchains.patternchain_1; #line 1338 "rk.c" patternchain kc_result = Conspatternchain(p, P_pc); return (kc_result == kc_p) ? kc_p : rewrite_patternchain( kc_result, kc_current_view ); } else if ((patternchainitem_1 == kc_p->u.Conspatternchain.patternchainitem_1) && (patternchain_1 == kc_p->u.Conspatternchain.patternchain_1)) return kc_p; else return Conspatternchain(patternchainitem_1, patternchain_1); } default: return kc_p;} } } } /*ARGSUSED*/ outmostpatterns rewrite_outmostpatterns #ifdef KC_USE_PROTOTYPES (outmostpatterns kc_p, rview kc_current_view) #else (kc_p, kc_current_view) outmostpatterns kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_outmostpatterns( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Niloutmostpatterns: { return kc_p; } case (int)sel_Consoutmostpatterns: { outmostpattern outmostpattern_1 = rewrite_outmostpattern(kc_p->u.Consoutmostpatterns.outmostpattern_1, kc_current_view); outmostpatterns outmostpatterns_1 = rewrite_outmostpatterns(kc_p->u.Consoutmostpatterns.outmostpatterns_1, kc_current_view); if ((outmostpattern_1 == kc_p->u.Consoutmostpatterns.outmostpattern_1) && (outmostpatterns_1 == kc_p->u.Consoutmostpatterns.outmostpatterns_1)) return kc_p; else return Consoutmostpatterns(outmostpattern_1, outmostpatterns_1); } default: return kc_p;} } } } /*ARGSUSED*/ patternchainitem rewrite_patternchainitem #ifdef KC_USE_PROTOTYPES (patternchainitem kc_p, rview kc_current_view) #else (kc_p, kc_current_view) patternchainitem kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_patternchainitem( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_PatternchainitemOutmost: { outmostpattern outmostpattern_1 = rewrite_outmostpattern(kc_p->u.PatternchainitemOutmost.outmostpattern_1, kc_current_view); if ((outmostpattern_1 == kc_p->u.PatternchainitemOutmost.outmostpattern_1)) return kc_p; else return PatternchainitemOutmost(outmostpattern_1); } case (int)sel_PatternchainitemGroup: { patternchains patternchains_1 = rewrite_patternchains(kc_p->u.PatternchainitemGroup.patternchains_1, kc_current_view); if ((patternchains_1->prod_sel == sel_Conspatternchains) && (patternchains_1->u.Conspatternchains.patternchain_1->prod_sel == sel_Conspatternchain) && (patternchains_1->u.Conspatternchains.patternchain_1->u.Conspatternchain.patternchain_1->prod_sel == sel_Nilpatternchain) && (patternchains_1->u.Conspatternchains.patternchains_1->prod_sel == sel_Nilpatternchains)) { #line 333 "../util.k" patternchainitem h_p = patternchains_1->u.Conspatternchains.patternchain_1->u.Conspatternchain.patternchainitem_1; #line 1407 "rk.c" patternchainitem kc_result = h_p; return (kc_result == kc_p) ? kc_p : rewrite_patternchainitem( kc_result, kc_current_view ); } else if ((patternchains_1 == kc_p->u.PatternchainitemGroup.patternchains_1)) return kc_p; else return PatternchainitemGroup(patternchains_1); } case (int)sel_PatternchainitemDollarid: { ID ID_1 = rewrite_ID(kc_p->u.PatternchainitemDollarid.ID_1, kc_current_view); if ((ID_1 == kc_p->u.PatternchainitemDollarid.ID_1)) return kc_p; else return PatternchainitemDollarid(ID_1); } default: return kc_p;} } } } /*ARGSUSED*/ outmostpattern rewrite_outmostpattern #ifdef KC_USE_PROTOTYPES (outmostpattern kc_p, rview kc_current_view) #else (kc_p, kc_current_view) outmostpattern kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_outmostpattern( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_OPOperatorWildcard: { ID ID_1 = rewrite_ID(kc_p->u.OPOperatorWildcard.ID_1, kc_current_view); if ((ID_1 == kc_p->u.OPOperatorWildcard.ID_1)) return kc_p; else return OPOperatorWildcard(ID_1); } case (int)sel_OPOperator: { ID ID_1 = rewrite_ID(kc_p->u.OPOperator.ID_1, kc_current_view); patterns patterns_1 = rewrite_patterns(kc_p->u.OPOperator.patterns_1, kc_current_view); if ((ID_1 == kc_p->u.OPOperator.ID_1) && (patterns_1 == kc_p->u.OPOperator.patterns_1)) return kc_p; else return OPOperator(ID_1, patterns_1); } case (int)sel_OPNonLeafVariable: { ID ID_1 = rewrite_ID(kc_p->u.OPNonLeafVariable.ID_1, kc_current_view); outmostpattern outmostpattern_1 = rewrite_outmostpattern(kc_p->u.OPNonLeafVariable.outmostpattern_1, kc_current_view); if ((ID_1 == kc_p->u.OPNonLeafVariable.ID_1) && (outmostpattern_1 == kc_p->u.OPNonLeafVariable.outmostpattern_1)) return kc_p; else return OPNonLeafVariable(ID_1, outmostpattern_1); } case (int)sel_OPWildcard: { return kc_p; } case (int)sel_OPDefault: { return kc_p; } default: return kc_p;} } } } /*ARGSUSED*/ pattern rewrite_pattern #ifdef KC_USE_PROTOTYPES (pattern kc_p, rview kc_current_view) #else (kc_p, kc_current_view) pattern kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_pattern( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_PVariable: { ID ID_1 = rewrite_ID(kc_p->u.PVariable.ID_1, kc_current_view); if ((ID_1 == kc_p->u.PVariable.ID_1)) return kc_p; else return PVariable(ID_1); } case (int)sel_POperator: { ID ID_1 = rewrite_ID(kc_p->u.POperator.ID_1, kc_current_view); patterns patterns_1 = rewrite_patterns(kc_p->u.POperator.patterns_1, kc_current_view); if ((ID_1 == kc_p->u.POperator.ID_1) && (patterns_1 == kc_p->u.POperator.patterns_1)) return kc_p; else return POperator(ID_1, patterns_1); } case (int)sel_PNonLeafVariable: { ID ID_1 = rewrite_ID(kc_p->u.PNonLeafVariable.ID_1, kc_current_view); pattern pattern_1 = rewrite_pattern(kc_p->u.PNonLeafVariable.pattern_1, kc_current_view); if ((ID_1 == kc_p->u.PNonLeafVariable.ID_1) && (pattern_1 == kc_p->u.PNonLeafVariable.pattern_1)) return kc_p; else return PNonLeafVariable(ID_1, pattern_1); } case (int)sel_PWildcard: { return kc_p; } case (int)sel_PStringLiteral: { CexpressionDQ CexpressionDQ_1 = rewrite_CexpressionDQ(kc_p->u.PStringLiteral.CexpressionDQ_1, kc_current_view); if ((CexpressionDQ_1 == kc_p->u.PStringLiteral.CexpressionDQ_1)) return kc_p; else return PStringLiteral(CexpressionDQ_1); } case (int)sel_PIntLiteral: { INT INT_1 = rewrite_INT(kc_p->u.PIntLiteral.INT_1, kc_current_view); if ((INT_1 == kc_p->u.PIntLiteral.INT_1)) return kc_p; else return PIntLiteral(INT_1); } default: return kc_p;} } } } /*ARGSUSED*/ patterns rewrite_patterns #ifdef KC_USE_PROTOTYPES (patterns kc_p, rview kc_current_view) #else (kc_p, kc_current_view) patterns kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_patterns( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilpatterns: { return kc_p; } case (int)sel_Conspatterns: { pattern pattern_1 = rewrite_pattern(kc_p->u.Conspatterns.pattern_1, kc_current_view); patterns patterns_1 = rewrite_patterns(kc_p->u.Conspatterns.patterns_1, kc_current_view); if ((pattern_1 == kc_p->u.Conspatterns.pattern_1) && (patterns_1 == kc_p->u.Conspatterns.patterns_1)) return kc_p; else return Conspatterns(pattern_1, patterns_1); } default: return kc_p;} } } } /*ARGSUSED*/ term rewrite_term #ifdef KC_USE_PROTOTYPES (term kc_p, rview kc_current_view) #else (kc_p, kc_current_view) term kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_term( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_TVariable: { ID ID_1 = rewrite_ID(kc_p->u.TVariable.ID_1, kc_current_view); if ((ID_1 == kc_p->u.TVariable.ID_1)) return kc_p; else return TVariable(ID_1); } case (int)sel_TOperator: { ID ID_1 = rewrite_ID(kc_p->u.TOperator.ID_1, kc_current_view); terms terms_1 = rewrite_terms(kc_p->u.TOperator.terms_1, kc_current_view); if ((ID_1 == kc_p->u.TOperator.ID_1) && (terms_1 == kc_p->u.TOperator.terms_1)) return kc_p; else return TOperator(ID_1, terms_1); } case (int)sel_TStringLiteral: { CexpressionDQ CexpressionDQ_1 = rewrite_CexpressionDQ(kc_p->u.TStringLiteral.CexpressionDQ_1, kc_current_view); if ((CexpressionDQ_1 == kc_p->u.TStringLiteral.CexpressionDQ_1)) return kc_p; else return TStringLiteral(CexpressionDQ_1); } case (int)sel_TIntLiteral: { INT INT_1 = rewrite_INT(kc_p->u.TIntLiteral.INT_1, kc_current_view); if ((INT_1 == kc_p->u.TIntLiteral.INT_1)) return kc_p; else return TIntLiteral(INT_1); } default: return kc_p;} } } } /*ARGSUSED*/ terms rewrite_terms #ifdef KC_USE_PROTOTYPES (terms kc_p, rview kc_current_view) #else (kc_p, kc_current_view) terms kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_terms( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilterms: { return kc_p; } case (int)sel_Consterms: { term term_1 = rewrite_term(kc_p->u.Consterms.term_1, kc_current_view); terms terms_1 = rewrite_terms(kc_p->u.Consterms.terms_1, kc_current_view); if ((term_1 == kc_p->u.Consterms.term_1) && (terms_1 == kc_p->u.Consterms.terms_1)) return kc_p; else return Consterms(term_1, terms_1); } default: return kc_p;} } } } /*ARGSUSED*/ fnfiles rewrite_fnfiles #ifdef KC_USE_PROTOTYPES (fnfiles kc_p, rview kc_current_view) #else (kc_p, kc_current_view) fnfiles kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_fnfiles( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilfnfiles: { return kc_p; } case (int)sel_Consfnfiles: { fnfile fnfile_1 = rewrite_fnfile(kc_p->u.Consfnfiles.fnfile_1, kc_current_view); fnfiles fnfiles_1 = rewrite_fnfiles(kc_p->u.Consfnfiles.fnfiles_1, kc_current_view); if ((fnfile_1 == kc_p->u.Consfnfiles.fnfile_1) && (fnfiles_1 == kc_p->u.Consfnfiles.fnfiles_1)) return kc_p; else return Consfnfiles(fnfile_1, fnfiles_1); } default: return kc_p;} } } } /*ARGSUSED*/ fnfile rewrite_fnfile #ifdef KC_USE_PROTOTYPES (fnfile kc_p, rview kc_current_view) #else (kc_p, kc_current_view) fnfile kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_fnfile( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_FnFile: { casestring casestring_1 = rewrite_casestring(kc_p->u.FnFile.casestring_1, kc_current_view); if ((casestring_1 == kc_p->u.FnFile.casestring_1)) return kc_p; else return FnFile(casestring_1); } default: return kc_p;} } } } /*ARGSUSED*/ fndeclarations rewrite_fndeclarations #ifdef KC_USE_PROTOTYPES (fndeclarations kc_p, rview kc_current_view) #else (kc_p, kc_current_view) fndeclarations kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_fndeclarations( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilfndeclarations: { return kc_p; } case (int)sel_Consfndeclarations: { fndeclaration fndeclaration_1 = rewrite_fndeclaration(kc_p->u.Consfndeclarations.fndeclaration_1, kc_current_view); fndeclarations fndeclarations_1 = rewrite_fndeclarations(kc_p->u.Consfndeclarations.fndeclarations_1, kc_current_view); if ((fndeclaration_1 == kc_p->u.Consfndeclarations.fndeclaration_1) && (fndeclarations_1 == kc_p->u.Consfndeclarations.fndeclarations_1)) return kc_p; else return Consfndeclarations(fndeclaration_1, fndeclarations_1); } default: return kc_p;} } } } /*ARGSUSED*/ fndeclaration rewrite_fndeclaration #ifdef KC_USE_PROTOTYPES (fndeclaration kc_p, rview kc_current_view) #else (kc_p, kc_current_view) fndeclaration kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_fndeclaration( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_FnDeclaration: { ID ID_1 = rewrite_ID(kc_p->u.FnDeclaration.ID_1, kc_current_view); int int_1 = rewrite_int(kc_p->u.FnDeclaration.int_1, kc_current_view); ID ID_2 = rewrite_ID(kc_p->u.FnDeclaration.ID_2, kc_current_view); fnarguments fnarguments_1 = rewrite_fnarguments(kc_p->u.FnDeclaration.fnarguments_1, kc_current_view); Cvariabledeclarations Cvariabledeclarations_1 = rewrite_Cvariabledeclarations(kc_p->u.FnDeclaration.Cvariabledeclarations_1, kc_current_view); Ctext Ctext_1 = rewrite_Ctext(kc_p->u.FnDeclaration.Ctext_1, kc_current_view); fnclass fnclass_1 = rewrite_fnclass(kc_p->u.FnDeclaration.fnclass_1, kc_current_view); if ((ID_1 == kc_p->u.FnDeclaration.ID_1) && (int_1 == kc_p->u.FnDeclaration.int_1) && (ID_2 == kc_p->u.FnDeclaration.ID_2) && (fnarguments_1 == kc_p->u.FnDeclaration.fnarguments_1) && (Cvariabledeclarations_1 == kc_p->u.FnDeclaration.Cvariabledeclarations_1) && (Ctext_1 == kc_p->u.FnDeclaration.Ctext_1) && (fnclass_1 == kc_p->u.FnDeclaration.fnclass_1)) return kc_p; else return FnDeclaration(ID_1, int_1, ID_2, fnarguments_1, Cvariabledeclarations_1, Ctext_1, fnclass_1); } case (int)sel_FnAcDeclaration: { ac_declaration_specifiers ac_declaration_specifiers_1 = rewrite_ac_declaration_specifiers(kc_p->u.FnAcDeclaration.ac_declaration_specifiers_1, kc_current_view); ac_declarator ac_declarator_1 = rewrite_ac_declarator(kc_p->u.FnAcDeclaration.ac_declarator_1, kc_current_view); ac_declaration_list ac_declaration_list_1 = rewrite_ac_declaration_list(kc_p->u.FnAcDeclaration.ac_declaration_list_1, kc_current_view); Ctext Ctext_1 = rewrite_Ctext(kc_p->u.FnAcDeclaration.Ctext_1, kc_current_view); ID ID_1 = rewrite_ID(kc_p->u.FnAcDeclaration.ID_1, kc_current_view); fnclass fnclass_1 = rewrite_fnclass(kc_p->u.FnAcDeclaration.fnclass_1, kc_current_view); if ((ac_declaration_specifiers_1 == kc_p->u.FnAcDeclaration.ac_declaration_specifiers_1) && (ac_declarator_1 == kc_p->u.FnAcDeclaration.ac_declarator_1) && (ac_declaration_list_1 == kc_p->u.FnAcDeclaration.ac_declaration_list_1) && (Ctext_1 == kc_p->u.FnAcDeclaration.Ctext_1) && (ID_1 == kc_p->u.FnAcDeclaration.ID_1) && (fnclass_1 == kc_p->u.FnAcDeclaration.fnclass_1)) return kc_p; else return FnAcDeclaration(ac_declaration_specifiers_1, ac_declarator_1, ac_declaration_list_1, Ctext_1, ID_1, fnclass_1); } default: return kc_p;} } } } /*ARGSUSED*/ fnclass rewrite_fnclass #ifdef KC_USE_PROTOTYPES (fnclass kc_p, rview kc_current_view) #else (kc_p, kc_current_view) fnclass kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_fnclass( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_GlobalFn: { return kc_p; } case (int)sel_LocalFn: { casestring casestring_1 = rewrite_casestring(kc_p->u.LocalFn.casestring_1, kc_current_view); if ((casestring_1 == kc_p->u.LocalFn.casestring_1)) return kc_p; else return LocalFn(casestring_1); } default: return kc_p;} } } } /*ARGSUSED*/ fnarguments rewrite_fnarguments #ifdef KC_USE_PROTOTYPES (fnarguments kc_p, rview kc_current_view) #else (kc_p, kc_current_view) fnarguments kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_fnarguments( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilfnarguments: { return kc_p; } case (int)sel_Consfnarguments: { ID ID_1 = rewrite_ID(kc_p->u.Consfnarguments.ID_1, kc_current_view); fnarguments fnarguments_1 = rewrite_fnarguments(kc_p->u.Consfnarguments.fnarguments_1, kc_current_view); if ((ID_1 == kc_p->u.Consfnarguments.ID_1) && (fnarguments_1 == kc_p->u.Consfnarguments.fnarguments_1)) return kc_p; else return Consfnarguments(ID_1, fnarguments_1); } default: return kc_p;} } } } /*ARGSUSED*/ Cvariabledeclarations rewrite_Cvariabledeclarations #ifdef KC_USE_PROTOTYPES (Cvariabledeclarations kc_p, rview kc_current_view) #else (kc_p, kc_current_view) Cvariabledeclarations kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_Cvariabledeclarations( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_NilCvariabledeclarations: { return kc_p; } case (int)sel_ConsCvariabledeclarations: { Cvariabledeclaration Cvariabledeclaration_1 = rewrite_Cvariabledeclaration(kc_p->u.ConsCvariabledeclarations.Cvariabledeclaration_1, kc_current_view); Cvariabledeclarations Cvariabledeclarations_1 = rewrite_Cvariabledeclarations(kc_p->u.ConsCvariabledeclarations.Cvariabledeclarations_1, kc_current_view); if ((Cvariabledeclaration_1 == kc_p->u.ConsCvariabledeclarations.Cvariabledeclaration_1) && (Cvariabledeclarations_1 == kc_p->u.ConsCvariabledeclarations.Cvariabledeclarations_1)) return kc_p; else return ConsCvariabledeclarations(Cvariabledeclaration_1, Cvariabledeclarations_1); } default: return kc_p;} } } } /*ARGSUSED*/ Cvariabledeclaration rewrite_Cvariabledeclaration #ifdef KC_USE_PROTOTYPES (Cvariabledeclaration kc_p, rview kc_current_view) #else (kc_p, kc_current_view) Cvariabledeclaration kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_Cvariabledeclaration( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_CVariabledeclaration: { ID ID_1 = rewrite_ID(kc_p->u.CVariabledeclaration.ID_1, kc_current_view); Cvariables Cvariables_1 = rewrite_Cvariables(kc_p->u.CVariabledeclaration.Cvariables_1, kc_current_view); if ((ID_1 == kc_p->u.CVariabledeclaration.ID_1) && (Cvariables_1 == kc_p->u.CVariabledeclaration.Cvariables_1)) return kc_p; else return CVariabledeclaration(ID_1, Cvariables_1); } case (int)sel_Fnargfpdecl: { ID ID_1 = rewrite_ID(kc_p->u.Fnargfpdecl.ID_1, kc_current_view); Cvariables Cvariables_1 = rewrite_Cvariables(kc_p->u.Fnargfpdecl.Cvariables_1, kc_current_view); if ((ID_1 == kc_p->u.Fnargfpdecl.ID_1) && (Cvariables_1 == kc_p->u.Fnargfpdecl.Cvariables_1)) return kc_p; else return Fnargfpdecl(ID_1, Cvariables_1); } default: return kc_p;} } } } /*ARGSUSED*/ Cvariables rewrite_Cvariables #ifdef KC_USE_PROTOTYPES (Cvariables kc_p, rview kc_current_view) #else (kc_p, kc_current_view) Cvariables kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_Cvariables( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_NilCvariables: { return kc_p; } case (int)sel_ConsCvariables: { Cvariable Cvariable_1 = rewrite_Cvariable(kc_p->u.ConsCvariables.Cvariable_1, kc_current_view); Cvariables Cvariables_1 = rewrite_Cvariables(kc_p->u.ConsCvariables.Cvariables_1, kc_current_view); if ((Cvariable_1 == kc_p->u.ConsCvariables.Cvariable_1) && (Cvariables_1 == kc_p->u.ConsCvariables.Cvariables_1)) return kc_p; else return ConsCvariables(Cvariable_1, Cvariables_1); } default: return kc_p;} } } } /*ARGSUSED*/ Cvariable rewrite_Cvariable #ifdef KC_USE_PROTOTYPES (Cvariable kc_p, rview kc_current_view) #else (kc_p, kc_current_view) Cvariable kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_Cvariable( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_CVPointer: { int int_1 = rewrite_int(kc_p->u.CVPointer.int_1, kc_current_view); ID ID_1 = rewrite_ID(kc_p->u.CVPointer.ID_1, kc_current_view); if ((int_1 == kc_p->u.CVPointer.int_1) && (ID_1 == kc_p->u.CVPointer.ID_1)) return kc_p; else return CVPointer(int_1, ID_1); } case (int)sel_CVFunction: { int int_1 = rewrite_int(kc_p->u.CVFunction.int_1, kc_current_view); int int_2 = rewrite_int(kc_p->u.CVFunction.int_2, kc_current_view); ID ID_1 = rewrite_ID(kc_p->u.CVFunction.ID_1, kc_current_view); if ((int_1 == kc_p->u.CVFunction.int_1) && (int_2 == kc_p->u.CVFunction.int_2) && (ID_1 == kc_p->u.CVFunction.ID_1)) return kc_p; else return CVFunction(int_1, int_2, ID_1); } default: return kc_p;} } } } /*ARGSUSED*/ Ctext rewrite_Ctext #ifdef KC_USE_PROTOTYPES (Ctext kc_p, rview kc_current_view) #else (kc_p, kc_current_view) Ctext kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_Ctext( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_NilCtext: { return kc_p; } case (int)sel_ConsCtext: { Ctext_elem Ctext_elem_1 = rewrite_Ctext_elem(kc_p->u.ConsCtext.Ctext_elem_1, kc_current_view); Ctext Ctext_1 = rewrite_Ctext(kc_p->u.ConsCtext.Ctext_1, kc_current_view); if ((Ctext_elem_1 == kc_p->u.ConsCtext.Ctext_elem_1) && (Ctext_1 == kc_p->u.ConsCtext.Ctext_1)) return kc_p; else return ConsCtext(Ctext_elem_1, Ctext_1); } default: return kc_p;} } } } /*ARGSUSED*/ Ctext_elem rewrite_Ctext_elem #ifdef KC_USE_PROTOTYPES (Ctext_elem kc_p, rview kc_current_view) #else (kc_p, kc_current_view) Ctext_elem kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_Ctext_elem( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_CTextLine: { casestring casestring_1 = rewrite_casestring(kc_p->u.CTextLine.casestring_1, kc_current_view); if ((casestring_1 == kc_p->u.CTextLine.casestring_1)) return kc_p; else return CTextLine(casestring_1); } case (int)sel_CTextDollarVar: { INT INT_1 = rewrite_INT(kc_p->u.CTextDollarVar.INT_1, kc_current_view); if ((INT_1 == kc_p->u.CTextDollarVar.INT_1)) return kc_p; else return CTextDollarVar(INT_1); } case (int)sel_CTextNl: { int int_1 = rewrite_int(kc_p->u.CTextNl.int_1, kc_current_view); if ((int_1 == kc_p->u.CTextNl.int_1)) return kc_p; else return CTextNl(int_1); } case (int)sel_CTextCexpressionDQ: { CexpressionDQ CexpressionDQ_1 = rewrite_CexpressionDQ(kc_p->u.CTextCexpressionDQ.CexpressionDQ_1, kc_current_view); if ((CexpressionDQ_1 == kc_p->u.CTextCexpressionDQ.CexpressionDQ_1)) return kc_p; else return CTextCexpressionDQ(CexpressionDQ_1); } case (int)sel_CTextCexpressionSQ: { CexpressionSQ CexpressionSQ_1 = rewrite_CexpressionSQ(kc_p->u.CTextCexpressionSQ.CexpressionSQ_1, kc_current_view); if ((CexpressionSQ_1 == kc_p->u.CTextCexpressionSQ.CexpressionSQ_1)) return kc_p; else return CTextCexpressionSQ(CexpressionSQ_1); } case (int)sel_CTextCbody: { Ctext Ctext_1 = rewrite_Ctext(kc_p->u.CTextCbody.Ctext_1, kc_current_view); if ((Ctext_1 == kc_p->u.CTextCbody.Ctext_1)) return kc_p; else return CTextCbody(Ctext_1); } case (int)sel_CTextForeachexpression: { patternchain patternchain_1 = rewrite_patternchain(kc_p->u.CTextForeachexpression.patternchain_1, kc_current_view); idCexpressions idCexpressions_1 = rewrite_idCexpressions(kc_p->u.CTextForeachexpression.idCexpressions_1, kc_current_view); withexpressions withexpressions_1 = rewrite_withexpressions(kc_p->u.CTextForeachexpression.withexpressions_1, kc_current_view); Ctext Ctext_1 = rewrite_Ctext(kc_p->u.CTextForeachexpression.Ctext_1, kc_current_view); foreach_after foreach_after_1 = rewrite_foreach_after(kc_p->u.CTextForeachexpression.foreach_after_1, kc_current_view); if ((patternchain_1 == kc_p->u.CTextForeachexpression.patternchain_1) && (idCexpressions_1 == kc_p->u.CTextForeachexpression.idCexpressions_1) && (withexpressions_1 == kc_p->u.CTextForeachexpression.withexpressions_1) && (Ctext_1 == kc_p->u.CTextForeachexpression.Ctext_1) && (foreach_after_1 == kc_p->u.CTextForeachexpression.foreach_after_1)) return kc_p; else return CTextForeachexpression(patternchain_1, idCexpressions_1, withexpressions_1, Ctext_1, foreach_after_1); } case (int)sel_CTextWithexpression: { withexpressions withexpressions_1 = rewrite_withexpressions(kc_p->u.CTextWithexpression.withexpressions_1, kc_current_view); withcases withcases_1 = rewrite_withcases(kc_p->u.CTextWithexpression.withcases_1, kc_current_view); contextinfo contextinfo_1 = rewrite_contextinfo(kc_p->u.CTextWithexpression.contextinfo_1, kc_current_view); if ((withexpressions_1 == kc_p->u.CTextWithexpression.withexpressions_1) && (withcases_1 == kc_p->u.CTextWithexpression.withcases_1) && (contextinfo_1 == kc_p->u.CTextWithexpression.contextinfo_1)) return kc_p; else return CTextWithexpression(withexpressions_1, withcases_1, contextinfo_1); } default: return kc_p;} } } } /*ARGSUSED*/ foreach_after rewrite_foreach_after #ifdef KC_USE_PROTOTYPES (foreach_after kc_p, rview kc_current_view) #else (kc_p, kc_current_view) foreach_after kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_foreach_after( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_NoForeachAfter: { return kc_p; } case (int)sel_ForeachAfter: { patternchain patternchain_1 = rewrite_patternchain(kc_p->u.ForeachAfter.patternchain_1, kc_current_view); idCexpressions idCexpressions_1 = rewrite_idCexpressions(kc_p->u.ForeachAfter.idCexpressions_1, kc_current_view); withexpressions withexpressions_1 = rewrite_withexpressions(kc_p->u.ForeachAfter.withexpressions_1, kc_current_view); Ctext Ctext_1 = rewrite_Ctext(kc_p->u.ForeachAfter.Ctext_1, kc_current_view); if ((patternchain_1 == kc_p->u.ForeachAfter.patternchain_1) && (idCexpressions_1 == kc_p->u.ForeachAfter.idCexpressions_1) && (withexpressions_1 == kc_p->u.ForeachAfter.withexpressions_1) && (Ctext_1 == kc_p->u.ForeachAfter.Ctext_1)) return kc_p; else return ForeachAfter(patternchain_1, idCexpressions_1, withexpressions_1, Ctext_1); } default: return kc_p;} } } } /*ARGSUSED*/ contextinfo rewrite_contextinfo #ifdef KC_USE_PROTOTYPES (contextinfo kc_p, rview kc_current_view) #else (kc_p, kc_current_view) contextinfo kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_contextinfo( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_InForeachContext: { patternchain patternchain_1 = rewrite_patternchain(kc_p->u.InForeachContext.patternchain_1, kc_current_view); if ((patternchain_1 == kc_p->u.InForeachContext.patternchain_1)) return kc_p; else return InForeachContext(patternchain_1); } case (int)sel_NotInForeachContext: { return kc_p; } default: return kc_p;} } } } /*ARGSUSED*/ withexpressions rewrite_withexpressions #ifdef KC_USE_PROTOTYPES (withexpressions kc_p, rview kc_current_view) #else (kc_p, kc_current_view) withexpressions kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_withexpressions( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilwithexpressions: { return kc_p; } case (int)sel_Conswithexpressions: { withexpression withexpression_1 = rewrite_withexpression(kc_p->u.Conswithexpressions.withexpression_1, kc_current_view); withexpressions withexpressions_1 = rewrite_withexpressions(kc_p->u.Conswithexpressions.withexpressions_1, kc_current_view); if ((withexpression_1 == kc_p->u.Conswithexpressions.withexpression_1) && (withexpressions_1 == kc_p->u.Conswithexpressions.withexpressions_1)) return kc_p; else return Conswithexpressions(withexpression_1, withexpressions_1); } default: return kc_p;} } } } /*ARGSUSED*/ withexpression rewrite_withexpression #ifdef KC_USE_PROTOTYPES (withexpression kc_p, rview kc_current_view) #else (kc_p, kc_current_view) withexpression kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_withexpression( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_WEVariable: { ID ID_1 = rewrite_ID(kc_p->u.WEVariable.ID_1, kc_current_view); if ((ID_1 == kc_p->u.WEVariable.ID_1)) return kc_p; else return WEVariable(ID_1); } case (int)sel_WECexpression: { Cexpression Cexpression_1 = rewrite_Cexpression(kc_p->u.WECexpression.Cexpression_1, kc_current_view); if ((Cexpression_1 == kc_p->u.WECexpression.Cexpression_1)) return kc_p; else return WECexpression(Cexpression_1); } default: return kc_p;} } } } /*ARGSUSED*/ withcases rewrite_withcases #ifdef KC_USE_PROTOTYPES (withcases kc_p, rview kc_current_view) #else (kc_p, kc_current_view) withcases kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_withcases( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilwithcases: { return kc_p; } case (int)sel_Conswithcases: { withcase withcase_1 = rewrite_withcase(kc_p->u.Conswithcases.withcase_1, kc_current_view); withcases withcases_1 = rewrite_withcases(kc_p->u.Conswithcases.withcases_1, kc_current_view); if ((withcase_1 == kc_p->u.Conswithcases.withcase_1) && (withcases_1 == kc_p->u.Conswithcases.withcases_1)) return kc_p; else return Conswithcases(withcase_1, withcases_1); } default: return kc_p;} } } } /*ARGSUSED*/ withcase rewrite_withcase #ifdef KC_USE_PROTOTYPES (withcase kc_p, rview kc_current_view) #else (kc_p, kc_current_view) withcase kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_withcase( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Withcase: { patternchains patternchains_1 = rewrite_patternchains(kc_p->u.Withcase.patternchains_1, kc_current_view); Ctext Ctext_1 = rewrite_Ctext(kc_p->u.Withcase.Ctext_1, kc_current_view); if ((patternchains_1 == kc_p->u.Withcase.patternchains_1) && (Ctext_1 == kc_p->u.Withcase.Ctext_1)) return kc_p; else return Withcase(patternchains_1, Ctext_1); } default: return kc_p;} } } } /*ARGSUSED*/ unparsedeclarations rewrite_unparsedeclarations #ifdef KC_USE_PROTOTYPES (unparsedeclarations kc_p, rview kc_current_view) #else (kc_p, kc_current_view) unparsedeclarations kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_unparsedeclarations( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilunparsedeclarations: { return kc_p; } case (int)sel_Consunparsedeclarations: { unparsedeclaration unparsedeclaration_1 = rewrite_unparsedeclaration(kc_p->u.Consunparsedeclarations.unparsedeclaration_1, kc_current_view); unparsedeclarations unparsedeclarations_1 = rewrite_unparsedeclarations(kc_p->u.Consunparsedeclarations.unparsedeclarations_1, kc_current_view); if ((unparsedeclaration_1 == kc_p->u.Consunparsedeclarations.unparsedeclaration_1) && (unparsedeclarations_1 == kc_p->u.Consunparsedeclarations.unparsedeclarations_1)) return kc_p; else return Consunparsedeclarations(unparsedeclaration_1, unparsedeclarations_1); } default: return kc_p;} } } } /*ARGSUSED*/ unparsedeclaration rewrite_unparsedeclaration #ifdef KC_USE_PROTOTYPES (unparsedeclaration kc_p, rview kc_current_view) #else (kc_p, kc_current_view) unparsedeclaration kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_unparsedeclaration( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_UnparseDeclaration: { outmostpatterns outmostpatterns_1 = rewrite_outmostpatterns(kc_p->u.UnparseDeclaration.outmostpatterns_1, kc_current_view); unparseclauses unparseclauses_1 = rewrite_unparseclauses(kc_p->u.UnparseDeclaration.unparseclauses_1, kc_current_view); if ((outmostpatterns_1 == kc_p->u.UnparseDeclaration.outmostpatterns_1) && (unparseclauses_1 == kc_p->u.UnparseDeclaration.unparseclauses_1)) return kc_p; else return UnparseDeclaration(outmostpatterns_1, unparseclauses_1); } default: return kc_p;} } } } /*ARGSUSED*/ unparseclauses rewrite_unparseclauses #ifdef KC_USE_PROTOTYPES (unparseclauses kc_p, rview kc_current_view) #else (kc_p, kc_current_view) unparseclauses kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_unparseclauses( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilunparseclauses: { return kc_p; } case (int)sel_Consunparseclauses: { unparseclause unparseclause_1 = rewrite_unparseclause(kc_p->u.Consunparseclauses.unparseclause_1, kc_current_view); unparseclauses unparseclauses_1 = rewrite_unparseclauses(kc_p->u.Consunparseclauses.unparseclauses_1, kc_current_view); if ((unparseclause_1 == kc_p->u.Consunparseclauses.unparseclause_1) && (unparseclauses_1 == kc_p->u.Consunparseclauses.unparseclauses_1)) return kc_p; else return Consunparseclauses(unparseclause_1, unparseclauses_1); } default: return kc_p;} } } } /*ARGSUSED*/ unparseclause rewrite_unparseclause #ifdef KC_USE_PROTOTYPES (unparseclause kc_p, rview kc_current_view) #else (kc_p, kc_current_view) unparseclause kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_unparseclause( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_UnparseClause: { viewnames viewnames_1 = rewrite_viewnames(kc_p->u.UnparseClause.viewnames_1, kc_current_view); unparseitems unparseitems_1 = rewrite_unparseitems(kc_p->u.UnparseClause.unparseitems_1, kc_current_view); if ((viewnames_1 == kc_p->u.UnparseClause.viewnames_1) && (unparseitems_1 == kc_p->u.UnparseClause.unparseitems_1)) return kc_p; else return UnparseClause(viewnames_1, unparseitems_1); } default: return kc_p;} } } } /*ARGSUSED*/ viewnames rewrite_viewnames #ifdef KC_USE_PROTOTYPES (viewnames kc_p, rview kc_current_view) #else (kc_p, kc_current_view) viewnames kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_viewnames( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilviewnames: { return kc_p; } case (int)sel_Consviewnames: { ID ID_1 = rewrite_ID(kc_p->u.Consviewnames.ID_1, kc_current_view); viewnames viewnames_1 = rewrite_viewnames(kc_p->u.Consviewnames.viewnames_1, kc_current_view); if ((ID_1 == kc_p->u.Consviewnames.ID_1) && (viewnames_1 == kc_p->u.Consviewnames.viewnames_1)) return kc_p; else return Consviewnames(ID_1, viewnames_1); } default: return kc_p;} } } } /*ARGSUSED*/ unparseitems rewrite_unparseitems #ifdef KC_USE_PROTOTYPES (unparseitems kc_p, rview kc_current_view) #else (kc_p, kc_current_view) unparseitems kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_unparseitems( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilunparseitems: { return kc_p; } case (int)sel_Consunparseitems: { unparseitem unparseitem_1 = rewrite_unparseitem(kc_p->u.Consunparseitems.unparseitem_1, kc_current_view); unparseitems unparseitems_1 = rewrite_unparseitems(kc_p->u.Consunparseitems.unparseitems_1, kc_current_view); if ((unparseitem_1 == kc_p->u.Consunparseitems.unparseitem_1) && (unparseitems_1 == kc_p->u.Consunparseitems.unparseitems_1)) return kc_p; else return Consunparseitems(unparseitem_1, unparseitems_1); } default: return kc_p;} } } } /*ARGSUSED*/ unparseitem rewrite_unparseitem #ifdef KC_USE_PROTOTYPES (unparseitem kc_p, rview kc_current_view) #else (kc_p, kc_current_view) unparseitem kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_unparseitem( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_UnpStr: { CexpressionDQ CexpressionDQ_1 = rewrite_CexpressionDQ(kc_p->u.UnpStr.CexpressionDQ_1, kc_current_view); viewnameoption viewnameoption_1 = rewrite_viewnameoption(kc_p->u.UnpStr.viewnameoption_1, kc_current_view); if ((CexpressionDQ_1 == kc_p->u.UnpStr.CexpressionDQ_1) && (viewnameoption_1 == kc_p->u.UnpStr.viewnameoption_1)) return kc_p; else return UnpStr(CexpressionDQ_1, viewnameoption_1); } case (int)sel_UnpSubexpr: { unpsubterm unpsubterm_1 = rewrite_unpsubterm(kc_p->u.UnpSubexpr.unpsubterm_1, kc_current_view); viewnameoption viewnameoption_1 = rewrite_viewnameoption(kc_p->u.UnpSubexpr.viewnameoption_1, kc_current_view); if ((unpsubterm_1 == kc_p->u.UnpSubexpr.unpsubterm_1) && (viewnameoption_1 == kc_p->u.UnpSubexpr.viewnameoption_1)) return kc_p; else return UnpSubexpr(unpsubterm_1, viewnameoption_1); } case (int)sel_UnpCtext: { Ctext Ctext_1 = rewrite_Ctext(kc_p->u.UnpCtext.Ctext_1, kc_current_view); if ((Ctext_1 == kc_p->u.UnpCtext.Ctext_1)) return kc_p; else return UnpCtext(Ctext_1); } case (int)sel_UnpBody: { unparseitems unparseitems_1 = rewrite_unparseitems(kc_p->u.UnpBody.unparseitems_1, kc_current_view); if ((unparseitems_1 == kc_p->u.UnpBody.unparseitems_1)) return kc_p; else return UnpBody(unparseitems_1); } default: return kc_p;} } } } /*ARGSUSED*/ unpsubterm rewrite_unpsubterm #ifdef KC_USE_PROTOTYPES (unpsubterm kc_p, rview kc_current_view) #else (kc_p, kc_current_view) unpsubterm kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_unpsubterm( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_UnpSubTerm: { ID ID_1 = rewrite_ID(kc_p->u.UnpSubTerm.ID_1, kc_current_view); if ((ID_1 == kc_p->u.UnpSubTerm.ID_1)) return kc_p; else return UnpSubTerm(ID_1); } case (int)sel_UnpDollarvarTerm: { INT INT_1 = rewrite_INT(kc_p->u.UnpDollarvarTerm.INT_1, kc_current_view); if ((INT_1 == kc_p->u.UnpDollarvarTerm.INT_1)) return kc_p; else return UnpDollarvarTerm(INT_1); } case (int)sel_UnpSubAttr: { ID ID_1 = rewrite_ID(kc_p->u.UnpSubAttr.ID_1, kc_current_view); unpattributes unpattributes_1 = rewrite_unpattributes(kc_p->u.UnpSubAttr.unpattributes_1, kc_current_view); if ((ID_1 == kc_p->u.UnpSubAttr.ID_1) && (unpattributes_1 == kc_p->u.UnpSubAttr.unpattributes_1)) return kc_p; else return UnpSubAttr(ID_1, unpattributes_1); } case (int)sel_UnpDollarvarAttr: { INT INT_1 = rewrite_INT(kc_p->u.UnpDollarvarAttr.INT_1, kc_current_view); unpattributes unpattributes_1 = rewrite_unpattributes(kc_p->u.UnpDollarvarAttr.unpattributes_1, kc_current_view); if ((INT_1 == kc_p->u.UnpDollarvarAttr.INT_1) && (unpattributes_1 == kc_p->u.UnpDollarvarAttr.unpattributes_1)) return kc_p; else return UnpDollarvarAttr(INT_1, unpattributes_1); } case (int)sel_UnpCastedVariable: { ID ID_1 = rewrite_ID(kc_p->u.UnpCastedVariable.ID_1, kc_current_view); ID ID_2 = rewrite_ID(kc_p->u.UnpCastedVariable.ID_2, kc_current_view); if ((ID_1 == kc_p->u.UnpCastedVariable.ID_1) && (ID_2 == kc_p->u.UnpCastedVariable.ID_2)) return kc_p; else return UnpCastedVariable(ID_1, ID_2); } default: return kc_p;} } } } /*ARGSUSED*/ unpattributes rewrite_unpattributes #ifdef KC_USE_PROTOTYPES (unpattributes kc_p, rview kc_current_view) #else (kc_p, kc_current_view) unpattributes kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_unpattributes( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilunpattributes: { return kc_p; } case (int)sel_Consunpattributes: { ID ID_1 = rewrite_ID(kc_p->u.Consunpattributes.ID_1, kc_current_view); unpattributes unpattributes_1 = rewrite_unpattributes(kc_p->u.Consunpattributes.unpattributes_1, kc_current_view); if ((ID_1 == kc_p->u.Consunpattributes.ID_1) && (unpattributes_1 == kc_p->u.Consunpattributes.unpattributes_1)) return kc_p; else return Consunpattributes(ID_1, unpattributes_1); } default: return kc_p;} } } } /*ARGSUSED*/ viewnameoption rewrite_viewnameoption #ifdef KC_USE_PROTOTYPES (viewnameoption kc_p, rview kc_current_view) #else (kc_p, kc_current_view) viewnameoption kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_viewnameoption( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_NoViewname: { return kc_p; } case (int)sel_YesViewname: { ID ID_1 = rewrite_ID(kc_p->u.YesViewname.ID_1, kc_current_view); if ((ID_1 == kc_p->u.YesViewname.ID_1)) return kc_p; else return YesViewname(ID_1); } default: return kc_p;} } } } /*ARGSUSED*/ filelinestack rewrite_filelinestack #ifdef KC_USE_PROTOTYPES (filelinestack kc_p, rview kc_current_view) #else (kc_p, kc_current_view) filelinestack kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_filelinestack( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilfilelinestack: { return kc_p; } case (int)sel_Consfilelinestack: { fileline fileline_1 = rewrite_fileline(kc_p->u.Consfilelinestack.fileline_1, kc_current_view); filelinestack filelinestack_1 = rewrite_filelinestack(kc_p->u.Consfilelinestack.filelinestack_1, kc_current_view); if ((fileline_1 == kc_p->u.Consfilelinestack.fileline_1) && (filelinestack_1 == kc_p->u.Consfilelinestack.filelinestack_1)) return kc_p; else return Consfilelinestack(fileline_1, filelinestack_1); } default: return kc_p;} } } } /*ARGSUSED*/ fileline rewrite_fileline #ifdef KC_USE_PROTOTYPES (fileline kc_p, rview kc_current_view) #else (kc_p, kc_current_view) fileline kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_fileline( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_FileLine: { casestring casestring_1 = rewrite_casestring(kc_p->u.FileLine.casestring_1, kc_current_view); int int_1 = rewrite_int(kc_p->u.FileLine.int_1, kc_current_view); if ((casestring_1 == kc_p->u.FileLine.casestring_1) && (int_1 == kc_p->u.FileLine.int_1)) return kc_p; else return FileLine(casestring_1, int_1); } case (int)sel_NoFileLine: { return kc_p; } case (int)sel_PosNoFileLine: { return kc_p; } default: return kc_p;} } } } /*ARGSUSED*/ nooperatorsstack rewrite_nooperatorsstack #ifdef KC_USE_PROTOTYPES (nooperatorsstack kc_p, rview kc_current_view) #else (kc_p, kc_current_view) nooperatorsstack kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_nooperatorsstack( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilnooperatorsstack: { return kc_p; } case (int)sel_Consnooperatorsstack: { int int_1 = rewrite_int(kc_p->u.Consnooperatorsstack.int_1, kc_current_view); nooperatorsstack nooperatorsstack_1 = rewrite_nooperatorsstack(kc_p->u.Consnooperatorsstack.nooperatorsstack_1, kc_current_view); if ((int_1 == kc_p->u.Consnooperatorsstack.int_1) && (nooperatorsstack_1 == kc_p->u.Consnooperatorsstack.nooperatorsstack_1)) return kc_p; else return Consnooperatorsstack(int_1, nooperatorsstack_1); } default: return kc_p;} } } } /*ARGSUSED*/ scopetypefilelinestack rewrite_scopetypefilelinestack #ifdef KC_USE_PROTOTYPES (scopetypefilelinestack kc_p, rview kc_current_view) #else (kc_p, kc_current_view) scopetypefilelinestack kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_scopetypefilelinestack( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilscopetypefilelinestack: { return kc_p; } case (int)sel_Consscopetypefilelinestack: { scopetypefileline scopetypefileline_1 = rewrite_scopetypefileline(kc_p->u.Consscopetypefilelinestack.scopetypefileline_1, kc_current_view); scopetypefilelinestack scopetypefilelinestack_1 = rewrite_scopetypefilelinestack(kc_p->u.Consscopetypefilelinestack.scopetypefilelinestack_1, kc_current_view); if ((scopetypefileline_1 == kc_p->u.Consscopetypefilelinestack.scopetypefileline_1) && (scopetypefilelinestack_1 == kc_p->u.Consscopetypefilelinestack.scopetypefilelinestack_1)) return kc_p; else return Consscopetypefilelinestack(scopetypefileline_1, scopetypefilelinestack_1); } default: return kc_p;} } } } /*ARGSUSED*/ scopetypefileline rewrite_scopetypefileline #ifdef KC_USE_PROTOTYPES (scopetypefileline kc_p, rview kc_current_view) #else (kc_p, kc_current_view) scopetypefileline kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_scopetypefileline( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_ScopeTypeFileLine: { int int_1 = rewrite_int(kc_p->u.ScopeTypeFileLine.int_1, kc_current_view); IDtype IDtype_1 = rewrite_IDtype(kc_p->u.ScopeTypeFileLine.IDtype_1, kc_current_view); casestring casestring_1 = rewrite_casestring(kc_p->u.ScopeTypeFileLine.casestring_1, kc_current_view); int int_2 = rewrite_int(kc_p->u.ScopeTypeFileLine.int_2, kc_current_view); if ((int_1 == kc_p->u.ScopeTypeFileLine.int_1) && (IDtype_1 == kc_p->u.ScopeTypeFileLine.IDtype_1) && (casestring_1 == kc_p->u.ScopeTypeFileLine.casestring_1) && (int_2 == kc_p->u.ScopeTypeFileLine.int_2)) return kc_p; else return ScopeTypeFileLine(int_1, IDtype_1, casestring_1, int_2); } default: return kc_p;} } } } /*ARGSUSED*/ IDtype rewrite_IDtype #ifdef KC_USE_PROTOTYPES (IDtype kc_p, rview kc_current_view) #else (kc_p, kc_current_view) IDtype kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_IDtype( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_ITUnknown: { return kc_p; } case (int)sel_ITPredefinedPhylum: { phylumdeclaration phylumdeclaration_1 = rewrite_phylumdeclaration(kc_p->u.ITPredefinedPhylum.phylumdeclaration_1, kc_current_view); if ((phylumdeclaration_1 == kc_p->u.ITPredefinedPhylum.phylumdeclaration_1)) return kc_p; else return ITPredefinedPhylum(phylumdeclaration_1); } case (int)sel_ITPredefinedBigatomPhylum: { phylumdeclaration phylumdeclaration_1 = rewrite_phylumdeclaration(kc_p->u.ITPredefinedBigatomPhylum.phylumdeclaration_1, kc_current_view); if ((phylumdeclaration_1 == kc_p->u.ITPredefinedBigatomPhylum.phylumdeclaration_1)) return kc_p; else return ITPredefinedBigatomPhylum(phylumdeclaration_1); } case (int)sel_ITUserPhylum: { phylumdeclaration phylumdeclaration_1 = rewrite_phylumdeclaration(kc_p->u.ITUserPhylum.phylumdeclaration_1, kc_current_view); if ((phylumdeclaration_1 == kc_p->u.ITUserPhylum.phylumdeclaration_1)) return kc_p; else return ITUserPhylum(phylumdeclaration_1); } case (int)sel_ITPredefinedOperator: { alternative alternative_1 = rewrite_alternative(kc_p->u.ITPredefinedOperator.alternative_1, kc_current_view); ID ID_1 = rewrite_ID(kc_p->u.ITPredefinedOperator.ID_1, kc_current_view); if ((alternative_1 == kc_p->u.ITPredefinedOperator.alternative_1) && (ID_1 == kc_p->u.ITPredefinedOperator.ID_1)) return kc_p; else return ITPredefinedOperator(alternative_1, ID_1); } case (int)sel_ITUserOperator: { alternative alternative_1 = rewrite_alternative(kc_p->u.ITUserOperator.alternative_1, kc_current_view); ID ID_1 = rewrite_ID(kc_p->u.ITUserOperator.ID_1, kc_current_view); if ((alternative_1 == kc_p->u.ITUserOperator.alternative_1) && (ID_1 == kc_p->u.ITUserOperator.ID_1)) return kc_p; else return ITUserOperator(alternative_1, ID_1); } case (int)sel_ITPredefinedStorageClass: { return kc_p; } case (int)sel_ITStorageClass: { return kc_p; } case (int)sel_ITPredefinedUView: { return kc_p; } case (int)sel_ITUserUView: { return kc_p; } case (int)sel_ITPredefinedRView: { return kc_p; } case (int)sel_ITUserRView: { return kc_p; } case (int)sel_ITUserFunction: { fnclass fnclass_1 = rewrite_fnclass(kc_p->u.ITUserFunction.fnclass_1, kc_current_view); if ((fnclass_1 == kc_p->u.ITUserFunction.fnclass_1)) return kc_p; else return ITUserFunction(fnclass_1); } case (int)sel_ITPatternVariable: { ID ID_1 = rewrite_ID(kc_p->u.ITPatternVariable.ID_1, kc_current_view); int int_1 = rewrite_int(kc_p->u.ITPatternVariable.int_1, kc_current_view); if ((ID_1 == kc_p->u.ITPatternVariable.ID_1) && (int_1 == kc_p->u.ITPatternVariable.int_1)) return kc_p; else return ITPatternVariable(ID_1, int_1); } default: return kc_p;} } } } /*ARGSUSED*/ operatorsstack rewrite_operatorsstack #ifdef KC_USE_PROTOTYPES (operatorsstack kc_p, rview kc_current_view) #else (kc_p, kc_current_view) operatorsstack kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_operatorsstack( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Niloperatorsstack: { return kc_p; } case (int)sel_Consoperatorsstack: { operators operators_1 = rewrite_operators(kc_p->u.Consoperatorsstack.operators_1, kc_current_view); operatorsstack operatorsstack_1 = rewrite_operatorsstack(kc_p->u.Consoperatorsstack.operatorsstack_1, kc_current_view); if ((operators_1 == kc_p->u.Consoperatorsstack.operators_1) && (operatorsstack_1 == kc_p->u.Consoperatorsstack.operatorsstack_1)) return kc_p; else return Consoperatorsstack(operators_1, operatorsstack_1); } default: return kc_p;} } } } /*ARGSUSED*/ operators rewrite_operators #ifdef KC_USE_PROTOTYPES (operators kc_p, rview kc_current_view) #else (kc_p, kc_current_view) operators kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_operators( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Niloperators: { return kc_p; } case (int)sel_Consoperators: { ID ID_1 = rewrite_ID(kc_p->u.Consoperators.ID_1, kc_current_view); operators operators_1 = rewrite_operators(kc_p->u.Consoperators.operators_1, kc_current_view); if ((ID_1 == kc_p->u.Consoperators.ID_1) && (operators_1 == kc_p->u.Consoperators.operators_1)) return kc_p; else return Consoperators(ID_1, operators_1); } default: return kc_p;} } } } /*ARGSUSED*/ phyla rewrite_phyla #ifdef KC_USE_PROTOTYPES (phyla kc_p, rview kc_current_view) #else (kc_p, kc_current_view) phyla kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_phyla( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilphyla: { return kc_p; } case (int)sel_Consphyla: { ID ID_1 = rewrite_ID(kc_p->u.Consphyla.ID_1, kc_current_view); phyla phyla_1 = rewrite_phyla(kc_p->u.Consphyla.phyla_1, kc_current_view); if ((ID_1 == kc_p->u.Consphyla.ID_1) && (phyla_1 == kc_p->u.Consphyla.phyla_1)) return kc_p; else return Consphyla(ID_1, phyla_1); } default: return kc_p;} } } } /*ARGSUSED*/ variables rewrite_variables #ifdef KC_USE_PROTOTYPES (variables kc_p, rview kc_current_view) #else (kc_p, kc_current_view) variables kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_variables( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilvariables: { return kc_p; } case (int)sel_Consvariables: { ID ID_1 = rewrite_ID(kc_p->u.Consvariables.ID_1, kc_current_view); variables variables_1 = rewrite_variables(kc_p->u.Consvariables.variables_1, kc_current_view); if ((ID_1 == kc_p->u.Consvariables.ID_1) && (variables_1 == kc_p->u.Consvariables.variables_1)) return kc_p; else return Consvariables(ID_1, variables_1); } default: return kc_p;} } } } /*ARGSUSED*/ argumentsstack rewrite_argumentsstack #ifdef KC_USE_PROTOTYPES (argumentsstack kc_p, rview kc_current_view) #else (kc_p, kc_current_view) argumentsstack kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_argumentsstack( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilargumentsstack: { return kc_p; } case (int)sel_Consargumentsstack: { arguments arguments_1 = rewrite_arguments(kc_p->u.Consargumentsstack.arguments_1, kc_current_view); argumentsstack argumentsstack_1 = rewrite_argumentsstack(kc_p->u.Consargumentsstack.argumentsstack_1, kc_current_view); if ((arguments_1 == kc_p->u.Consargumentsstack.arguments_1) && (argumentsstack_1 == kc_p->u.Consargumentsstack.argumentsstack_1)) return kc_p; else return Consargumentsstack(arguments_1, argumentsstack_1); } default: return kc_p;} } } } /*ARGSUSED*/ phylumstack rewrite_phylumstack #ifdef KC_USE_PROTOTYPES (phylumstack kc_p, rview kc_current_view) #else (kc_p, kc_current_view) phylumstack kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_phylumstack( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilphylumstack: { return kc_p; } case (int)sel_Consphylumstack: { ID ID_1 = rewrite_ID(kc_p->u.Consphylumstack.ID_1, kc_current_view); phylumstack phylumstack_1 = rewrite_phylumstack(kc_p->u.Consphylumstack.phylumstack_1, kc_current_view); if ((ID_1 == kc_p->u.Consphylumstack.ID_1) && (phylumstack_1 == kc_p->u.Consphylumstack.phylumstack_1)) return kc_p; else return Consphylumstack(ID_1, phylumstack_1); } default: return kc_p;} } } } /*ARGSUSED*/ phylumnamesstack rewrite_phylumnamesstack #ifdef KC_USE_PROTOTYPES (phylumnamesstack kc_p, rview kc_current_view) #else (kc_p, kc_current_view) phylumnamesstack kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_phylumnamesstack( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilphylumnamesstack: { return kc_p; } case (int)sel_Consphylumnamesstack: { phylumnames phylumnames_1 = rewrite_phylumnames(kc_p->u.Consphylumnamesstack.phylumnames_1, kc_current_view); phylumnamesstack phylumnamesstack_1 = rewrite_phylumnamesstack(kc_p->u.Consphylumnamesstack.phylumnamesstack_1, kc_current_view); if ((phylumnames_1 == kc_p->u.Consphylumnamesstack.phylumnames_1) && (phylumnamesstack_1 == kc_p->u.Consphylumnamesstack.phylumnamesstack_1)) return kc_p; else return Consphylumnamesstack(phylumnames_1, phylumnamesstack_1); } default: return kc_p;} } } } /*ARGSUSED*/ withexpressionsstack rewrite_withexpressionsstack #ifdef KC_USE_PROTOTYPES (withexpressionsstack kc_p, rview kc_current_view) #else (kc_p, kc_current_view) withexpressionsstack kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_withexpressionsstack( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilwithexpressionsstack: { return kc_p; } case (int)sel_Conswithexpressionsstack: { withexpressions withexpressions_1 = rewrite_withexpressions(kc_p->u.Conswithexpressionsstack.withexpressions_1, kc_current_view); withexpressionsstack withexpressionsstack_1 = rewrite_withexpressionsstack(kc_p->u.Conswithexpressionsstack.withexpressionsstack_1, kc_current_view); if ((withexpressions_1 == kc_p->u.Conswithexpressionsstack.withexpressions_1) && (withexpressionsstack_1 == kc_p->u.Conswithexpressionsstack.withexpressionsstack_1)) return kc_p; else return Conswithexpressionsstack(withexpressions_1, withexpressionsstack_1); } default: return kc_p;} } } } /*ARGSUSED*/ operatorstack rewrite_operatorstack #ifdef KC_USE_PROTOTYPES (operatorstack kc_p, rview kc_current_view) #else (kc_p, kc_current_view) operatorstack kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_operatorstack( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Niloperatorstack: { return kc_p; } case (int)sel_Consoperatorstack: { ID ID_1 = rewrite_ID(kc_p->u.Consoperatorstack.ID_1, kc_current_view); operatorstack operatorstack_1 = rewrite_operatorstack(kc_p->u.Consoperatorstack.operatorstack_1, kc_current_view); if ((ID_1 == kc_p->u.Consoperatorstack.ID_1) && (operatorstack_1 == kc_p->u.Consoperatorstack.operatorstack_1)) return kc_p; else return Consoperatorstack(ID_1, operatorstack_1); } default: return kc_p;} } } } /*ARGSUSED*/ variablesstack rewrite_variablesstack #ifdef KC_USE_PROTOTYPES (variablesstack kc_p, rview kc_current_view) #else (kc_p, kc_current_view) variablesstack kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_variablesstack( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilvariablesstack: { return kc_p; } case (int)sel_Consvariablesstack: { variables variables_1 = rewrite_variables(kc_p->u.Consvariablesstack.variables_1, kc_current_view); variablesstack variablesstack_1 = rewrite_variablesstack(kc_p->u.Consvariablesstack.variablesstack_1, kc_current_view); if ((variables_1 == kc_p->u.Consvariablesstack.variables_1) && (variablesstack_1 == kc_p->u.Consvariablesstack.variablesstack_1)) return kc_p; else return Consvariablesstack(variables_1, variablesstack_1); } default: return kc_p;} } } } /*ARGSUSED*/ selvarstack rewrite_selvarstack #ifdef KC_USE_PROTOTYPES (selvarstack kc_p, rview kc_current_view) #else (kc_p, kc_current_view) selvarstack kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_selvarstack( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilselvarstack: { return kc_p; } case (int)sel_Consselvarstack: { ID ID_1 = rewrite_ID(kc_p->u.Consselvarstack.ID_1, kc_current_view); selvarstack selvarstack_1 = rewrite_selvarstack(kc_p->u.Consselvarstack.selvarstack_1, kc_current_view); if ((ID_1 == kc_p->u.Consselvarstack.ID_1) && (selvarstack_1 == kc_p->u.Consselvarstack.selvarstack_1)) return kc_p; else return Consselvarstack(ID_1, selvarstack_1); } default: return kc_p;} } } } /*ARGSUSED*/ dollarvarstatus rewrite_dollarvarstatus #ifdef KC_USE_PROTOTYPES (dollarvarstatus kc_p, rview kc_current_view) #else (kc_p, kc_current_view) dollarvarstatus kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_dollarvarstatus( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_DVAllowed: { return kc_p; } case (int)sel_DVDisallowed: { return kc_p; } default: return kc_p;} } } } /*ARGSUSED*/ dollarvarsallowedstack rewrite_dollarvarsallowedstack #ifdef KC_USE_PROTOTYPES (dollarvarsallowedstack kc_p, rview kc_current_view) #else (kc_p, kc_current_view) dollarvarsallowedstack kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_dollarvarsallowedstack( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nildollarvarsallowedstack: { return kc_p; } case (int)sel_Consdollarvarsallowedstack: { dollarvarstatus dollarvarstatus_1 = rewrite_dollarvarstatus(kc_p->u.Consdollarvarsallowedstack.dollarvarstatus_1, kc_current_view); dollarvarsallowedstack dollarvarsallowedstack_1 = rewrite_dollarvarsallowedstack(kc_p->u.Consdollarvarsallowedstack.dollarvarsallowedstack_1, kc_current_view); if ((dollarvarstatus_1 == kc_p->u.Consdollarvarsallowedstack.dollarvarstatus_1) && (dollarvarsallowedstack_1 == kc_p->u.Consdollarvarsallowedstack.dollarvarsallowedstack_1)) return kc_p; else return Consdollarvarsallowedstack(dollarvarstatus_1, dollarvarsallowedstack_1); } default: return kc_p;} } } } /*ARGSUSED*/ intstack rewrite_intstack #ifdef KC_USE_PROTOTYPES (intstack kc_p, rview kc_current_view) #else (kc_p, kc_current_view) intstack kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_intstack( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilintstack: { return kc_p; } case (int)sel_Consintstack: { int int_1 = rewrite_int(kc_p->u.Consintstack.int_1, kc_current_view); intstack intstack_1 = rewrite_intstack(kc_p->u.Consintstack.intstack_1, kc_current_view); if ((int_1 == kc_p->u.Consintstack.int_1) && (intstack_1 == kc_p->u.Consintstack.intstack_1)) return kc_p; else return Consintstack(int_1, intstack_1); } default: return kc_p;} } } } /*ARGSUSED*/ idCexpressionsstack rewrite_idCexpressionsstack #ifdef KC_USE_PROTOTYPES (idCexpressionsstack kc_p, rview kc_current_view) #else (kc_p, kc_current_view) idCexpressionsstack kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_idCexpressionsstack( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_NilidCexpressionsstack: { return kc_p; } case (int)sel_ConsidCexpressionsstack: { idCexpressions idCexpressions_1 = rewrite_idCexpressions(kc_p->u.ConsidCexpressionsstack.idCexpressions_1, kc_current_view); idCexpressionsstack idCexpressionsstack_1 = rewrite_idCexpressionsstack(kc_p->u.ConsidCexpressionsstack.idCexpressionsstack_1, kc_current_view); if ((idCexpressions_1 == kc_p->u.ConsidCexpressionsstack.idCexpressions_1) && (idCexpressionsstack_1 == kc_p->u.ConsidCexpressionsstack.idCexpressionsstack_1)) return kc_p; else return ConsidCexpressionsstack(idCexpressions_1, idCexpressionsstack_1); } default: return kc_p;} } } } /*ARGSUSED*/ two_phyla rewrite_two_phyla #ifdef KC_USE_PROTOTYPES (two_phyla kc_p, rview kc_current_view) #else (kc_p, kc_current_view) two_phyla kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_two_phyla( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_TwoStorageoption: { storageoption storageoption_1 = rewrite_storageoption(kc_p->u.TwoStorageoption.storageoption_1, kc_current_view); storageoption storageoption_2 = rewrite_storageoption(kc_p->u.TwoStorageoption.storageoption_2, kc_current_view); if ((storageoption_1 == kc_p->u.TwoStorageoption.storageoption_1) && (storageoption_2 == kc_p->u.TwoStorageoption.storageoption_2)) return kc_p; else return TwoStorageoption(storageoption_1, storageoption_2); } case (int)sel_TwoProductionblock: { productionblock productionblock_1 = rewrite_productionblock(kc_p->u.TwoProductionblock.productionblock_1, kc_current_view); productionblock productionblock_2 = rewrite_productionblock(kc_p->u.TwoProductionblock.productionblock_2, kc_current_view); if ((productionblock_1 == kc_p->u.TwoProductionblock.productionblock_1) && (productionblock_2 == kc_p->u.TwoProductionblock.productionblock_2)) return kc_p; else return TwoProductionblock(productionblock_1, productionblock_2); } case (int)sel_TwoCcode_option: { Ccode_option Ccode_option_1 = rewrite_Ccode_option(kc_p->u.TwoCcode_option.Ccode_option_1, kc_current_view); Ccode_option Ccode_option_2 = rewrite_Ccode_option(kc_p->u.TwoCcode_option.Ccode_option_2, kc_current_view); if ((Ccode_option_1 == kc_p->u.TwoCcode_option.Ccode_option_1) && (Ccode_option_2 == kc_p->u.TwoCcode_option.Ccode_option_2)) return kc_p; else return TwoCcode_option(Ccode_option_1, Ccode_option_2); } case (int)sel_TwoRewriteruleinfo: { rewriteruleinfo rewriteruleinfo_1 = rewrite_rewriteruleinfo(kc_p->u.TwoRewriteruleinfo.rewriteruleinfo_1, kc_current_view); rewriteruleinfo rewriteruleinfo_2 = rewrite_rewriteruleinfo(kc_p->u.TwoRewriteruleinfo.rewriteruleinfo_2, kc_current_view); if ((rewriteruleinfo_1 == kc_p->u.TwoRewriteruleinfo.rewriteruleinfo_1) && (rewriteruleinfo_2 == kc_p->u.TwoRewriteruleinfo.rewriteruleinfo_2)) return kc_p; else return TwoRewriteruleinfo(rewriteruleinfo_1, rewriteruleinfo_2); } case (int)sel_TwoWithcaseinfo: { withcaseinfo withcaseinfo_1 = rewrite_withcaseinfo(kc_p->u.TwoWithcaseinfo.withcaseinfo_1, kc_current_view); withcaseinfo withcaseinfo_2 = rewrite_withcaseinfo(kc_p->u.TwoWithcaseinfo.withcaseinfo_2, kc_current_view); if ((withcaseinfo_1 == kc_p->u.TwoWithcaseinfo.withcaseinfo_1) && (withcaseinfo_2 == kc_p->u.TwoWithcaseinfo.withcaseinfo_2)) return kc_p; else return TwoWithcaseinfo(withcaseinfo_1, withcaseinfo_2); } case (int)sel_TwoUnparsedeclinfo: { unparsedeclinfo unparsedeclinfo_1 = rewrite_unparsedeclinfo(kc_p->u.TwoUnparsedeclinfo.unparsedeclinfo_1, kc_current_view); unparsedeclinfo unparsedeclinfo_2 = rewrite_unparsedeclinfo(kc_p->u.TwoUnparsedeclinfo.unparsedeclinfo_2, kc_current_view); if ((unparsedeclinfo_1 == kc_p->u.TwoUnparsedeclinfo.unparsedeclinfo_1) && (unparsedeclinfo_2 == kc_p->u.TwoUnparsedeclinfo.unparsedeclinfo_2)) return kc_p; else return TwoUnparsedeclinfo(unparsedeclinfo_1, unparsedeclinfo_2); } case (int)sel_TwoPatternrepresentation: { patternrepresentation patternrepresentation_1 = rewrite_patternrepresentation(kc_p->u.TwoPatternrepresentation.patternrepresentation_1, kc_current_view); patternrepresentation patternrepresentation_2 = rewrite_patternrepresentation(kc_p->u.TwoPatternrepresentation.patternrepresentation_2, kc_current_view); if ((patternrepresentation_1 == kc_p->u.TwoPatternrepresentation.patternrepresentation_1) && (patternrepresentation_2 == kc_p->u.TwoPatternrepresentation.patternrepresentation_2)) return kc_p; else return TwoPatternrepresentation(patternrepresentation_1, patternrepresentation_2); } case (int)sel_TwoElem_patternrepresentation: { elem_patternrepresentation elem_patternrepresentation_1 = rewrite_elem_patternrepresentation(kc_p->u.TwoElem_patternrepresentation.elem_patternrepresentation_1, kc_current_view); elem_patternrepresentation elem_patternrepresentation_2 = rewrite_elem_patternrepresentation(kc_p->u.TwoElem_patternrepresentation.elem_patternrepresentation_2, kc_current_view); if ((elem_patternrepresentation_1 == kc_p->u.TwoElem_patternrepresentation.elem_patternrepresentation_1) && (elem_patternrepresentation_2 == kc_p->u.TwoElem_patternrepresentation.elem_patternrepresentation_2)) return kc_p; else return TwoElem_patternrepresentation(elem_patternrepresentation_1, elem_patternrepresentation_2); } case (int)sel_TwoPaths: { paths paths_1 = rewrite_paths(kc_p->u.TwoPaths.paths_1, kc_current_view); paths paths_2 = rewrite_paths(kc_p->u.TwoPaths.paths_2, kc_current_view); if ((paths_1 == kc_p->u.TwoPaths.paths_1) && (paths_2 == kc_p->u.TwoPaths.paths_2)) return kc_p; else return TwoPaths(paths_1, paths_2); } case (int)sel_TwoPath: { path path_1 = rewrite_path(kc_p->u.TwoPath.path_1, kc_current_view); path path_2 = rewrite_path(kc_p->u.TwoPath.path_2, kc_current_view); if ((path_1 == kc_p->u.TwoPath.path_1) && (path_2 == kc_p->u.TwoPath.path_2)) return kc_p; else return TwoPath(path_1, path_2); } default: return kc_p;} } } } /*ARGSUSED*/ tribool rewrite_tribool #ifdef KC_USE_PROTOTYPES (tribool kc_p, rview kc_current_view) #else (kc_p, kc_current_view) tribool kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_tribool( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Equal: { return kc_p; } case (int)sel_Smaller: { return kc_p; } case (int)sel_Bigger: { return kc_p; } default: return kc_p;} } } } /*ARGSUSED*/ patternrepresentations rewrite_patternrepresentations #ifdef KC_USE_PROTOTYPES (patternrepresentations kc_p, rview kc_current_view) #else (kc_p, kc_current_view) patternrepresentations kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_patternrepresentations( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilpatternrepresentations: { return kc_p; } case (int)sel_Conspatternrepresentations: { patternrepresentation patternrepresentation_1 = rewrite_patternrepresentation(kc_p->u.Conspatternrepresentations.patternrepresentation_1, kc_current_view); patternrepresentations patternrepresentations_1 = rewrite_patternrepresentations(kc_p->u.Conspatternrepresentations.patternrepresentations_1, kc_current_view); if ((patternrepresentation_1 == kc_p->u.Conspatternrepresentations.patternrepresentation_1) && (patternrepresentations_1 == kc_p->u.Conspatternrepresentations.patternrepresentations_1)) return kc_p; else return Conspatternrepresentations(patternrepresentation_1, patternrepresentations_1); } default: return kc_p;} } } } /*ARGSUSED*/ patternrepresentation rewrite_patternrepresentation #ifdef KC_USE_PROTOTYPES (patternrepresentation kc_p, rview kc_current_view) #else (kc_p, kc_current_view) patternrepresentation kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_patternrepresentation( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilpatternrepresentation: { return kc_p; } case (int)sel_Conspatternrepresentation: { elem_patternrepresentation elem_patternrepresentation_1 = rewrite_elem_patternrepresentation(kc_p->u.Conspatternrepresentation.elem_patternrepresentation_1, kc_current_view); patternrepresentation patternrepresentation_1 = rewrite_patternrepresentation(kc_p->u.Conspatternrepresentation.patternrepresentation_1, kc_current_view); if ((elem_patternrepresentation_1->prod_sel == sel_PRWildcard)) { #line 898 "../gutil.k" patternrepresentation r = patternrepresentation_1; #line 3406 "rk.c" patternrepresentation kc_result = r; return (kc_result == kc_p) ? kc_p : rewrite_patternrepresentation( kc_result, kc_current_view ); } else if ((elem_patternrepresentation_1->prod_sel == sel_PRDefault)) { #line 899 "../gutil.k" patternrepresentation r = patternrepresentation_1; #line 3414 "rk.c" patternrepresentation kc_result = r; return (kc_result == kc_p) ? kc_p : rewrite_patternrepresentation( kc_result, kc_current_view ); } else if ((elem_patternrepresentation_1 == kc_p->u.Conspatternrepresentation.elem_patternrepresentation_1) && (patternrepresentation_1 == kc_p->u.Conspatternrepresentation.patternrepresentation_1)) return kc_p; else return Conspatternrepresentation(elem_patternrepresentation_1, patternrepresentation_1); } default: return kc_p;} } } } /*ARGSUSED*/ elem_patternrepresentation rewrite_elem_patternrepresentation #ifdef KC_USE_PROTOTYPES (elem_patternrepresentation kc_p, rview kc_current_view) #else (kc_p, kc_current_view) elem_patternrepresentation kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_elem_patternrepresentation( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_PRBinding: { path path_1 = rewrite_path(kc_p->u.PRBinding.path_1, kc_current_view); ID ID_1 = rewrite_ID(kc_p->u.PRBinding.ID_1, kc_current_view); if ((path_1 == kc_p->u.PRBinding.path_1) && (ID_1 == kc_p->u.PRBinding.ID_1)) return kc_p; else return PRBinding(path_1, ID_1); } case (int)sel_PRVarPredicate: { paths paths_1 = rewrite_paths(kc_p->u.PRVarPredicate.paths_1, kc_current_view); ID ID_1 = rewrite_ID(kc_p->u.PRVarPredicate.ID_1, kc_current_view); patternrepresentation patternrepresentation_1 = rewrite_patternrepresentation(kc_p->u.PRVarPredicate.patternrepresentation_1, kc_current_view); if ((paths_1 == kc_p->u.PRVarPredicate.paths_1) && (ID_1 == kc_p->u.PRVarPredicate.ID_1) && (patternrepresentation_1 == kc_p->u.PRVarPredicate.patternrepresentation_1)) return kc_p; else return PRVarPredicate(paths_1, ID_1, patternrepresentation_1); } case (int)sel_PROperPredicate: { path path_1 = rewrite_path(kc_p->u.PROperPredicate.path_1, kc_current_view); ID ID_1 = rewrite_ID(kc_p->u.PROperPredicate.ID_1, kc_current_view); if ((path_1 == kc_p->u.PROperPredicate.path_1) && (ID_1 == kc_p->u.PROperPredicate.ID_1)) return kc_p; else return PROperPredicate(path_1, ID_1); } case (int)sel_PRNonLeafBinding: { path path_1 = rewrite_path(kc_p->u.PRNonLeafBinding.path_1, kc_current_view); ID ID_1 = rewrite_ID(kc_p->u.PRNonLeafBinding.ID_1, kc_current_view); patternrepresentation patternrepresentation_1 = rewrite_patternrepresentation(kc_p->u.PRNonLeafBinding.patternrepresentation_1, kc_current_view); if ((path_1 == kc_p->u.PRNonLeafBinding.path_1) && (ID_1 == kc_p->u.PRNonLeafBinding.ID_1) && (patternrepresentation_1 == kc_p->u.PRNonLeafBinding.patternrepresentation_1)) return kc_p; else return PRNonLeafBinding(path_1, ID_1, patternrepresentation_1); } case (int)sel_PRWildcard: { path path_1 = rewrite_path(kc_p->u.PRWildcard.path_1, kc_current_view); if ((path_1 == kc_p->u.PRWildcard.path_1)) return kc_p; else return PRWildcard(path_1); } case (int)sel_PRDefault: { return kc_p; } case (int)sel_PRStringLiteral: { path path_1 = rewrite_path(kc_p->u.PRStringLiteral.path_1, kc_current_view); CexpressionDQ CexpressionDQ_1 = rewrite_CexpressionDQ(kc_p->u.PRStringLiteral.CexpressionDQ_1, kc_current_view); if ((path_1 == kc_p->u.PRStringLiteral.path_1) && (CexpressionDQ_1 == kc_p->u.PRStringLiteral.CexpressionDQ_1)) return kc_p; else return PRStringLiteral(path_1, CexpressionDQ_1); } case (int)sel_PRIntLiteral: { path path_1 = rewrite_path(kc_p->u.PRIntLiteral.path_1, kc_current_view); INT INT_1 = rewrite_INT(kc_p->u.PRIntLiteral.INT_1, kc_current_view); if ((path_1 == kc_p->u.PRIntLiteral.path_1) && (INT_1 == kc_p->u.PRIntLiteral.INT_1)) return kc_p; else return PRIntLiteral(path_1, INT_1); } default: return kc_p;} } } } /*ARGSUSED*/ path rewrite_path #ifdef KC_USE_PROTOTYPES (path kc_p, rview kc_current_view) #else (kc_p, kc_current_view) path kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_path( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilpath: { return kc_p; } case (int)sel_Conspath: { int int_1 = rewrite_int(kc_p->u.Conspath.int_1, kc_current_view); path path_1 = rewrite_path(kc_p->u.Conspath.path_1, kc_current_view); if ((int_1 == kc_p->u.Conspath.int_1) && (path_1 == kc_p->u.Conspath.path_1)) return kc_p; else return Conspath(int_1, path_1); } default: return kc_p;} } } } /*ARGSUSED*/ paths rewrite_paths #ifdef KC_USE_PROTOTYPES (paths kc_p, rview kc_current_view) #else (kc_p, kc_current_view) paths kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_paths( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilpaths: { return kc_p; } case (int)sel_Conspaths: { path path_1 = rewrite_path(kc_p->u.Conspaths.path_1, kc_current_view); paths paths_1 = rewrite_paths(kc_p->u.Conspaths.paths_1, kc_current_view); if ((path_1 == kc_p->u.Conspaths.path_1) && (paths_1 == kc_p->u.Conspaths.paths_1)) return kc_p; else return Conspaths(path_1, paths_1); } default: return kc_p;} } } } /*ARGSUSED*/ argsnumbers rewrite_argsnumbers #ifdef KC_USE_PROTOTYPES (argsnumbers kc_p, rview kc_current_view) #else (kc_p, kc_current_view) argsnumbers kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_argsnumbers( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilargsnumbers: { return kc_p; } case (int)sel_Consargsnumbers: { int int_1 = rewrite_int(kc_p->u.Consargsnumbers.int_1, kc_current_view); argsnumbers argsnumbers_1 = rewrite_argsnumbers(kc_p->u.Consargsnumbers.argsnumbers_1, kc_current_view); if ((int_1 == kc_p->u.Consargsnumbers.int_1) && (argsnumbers_1 == kc_p->u.Consargsnumbers.argsnumbers_1)) return kc_p; else return Consargsnumbers(int_1, argsnumbers_1); } default: return kc_p;} } } } /*ARGSUSED*/ rewriterulesinfo rewrite_rewriterulesinfo #ifdef KC_USE_PROTOTYPES (rewriterulesinfo kc_p, rview kc_current_view) #else (kc_p, kc_current_view) rewriterulesinfo kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_rewriterulesinfo( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilrewriterulesinfo: { return kc_p; } case (int)sel_Consrewriterulesinfo: { rewriteruleinfo rewriteruleinfo_1 = rewrite_rewriteruleinfo(kc_p->u.Consrewriterulesinfo.rewriteruleinfo_1, kc_current_view); rewriterulesinfo rewriterulesinfo_1 = rewrite_rewriterulesinfo(kc_p->u.Consrewriterulesinfo.rewriterulesinfo_1, kc_current_view); if ((rewriteruleinfo_1 == kc_p->u.Consrewriterulesinfo.rewriteruleinfo_1) && (rewriterulesinfo_1 == kc_p->u.Consrewriterulesinfo.rewriterulesinfo_1)) return kc_p; else return Consrewriterulesinfo(rewriteruleinfo_1, rewriterulesinfo_1); } default: return kc_p;} } } } /*ARGSUSED*/ rewriteruleinfo rewrite_rewriteruleinfo #ifdef KC_USE_PROTOTYPES (rewriteruleinfo kc_p, rview kc_current_view) #else (kc_p, kc_current_view) rewriteruleinfo kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_rewriteruleinfo( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Rewriteruleinfo: { patternrepresentation patternrepresentation_1 = rewrite_patternrepresentation(kc_p->u.Rewriteruleinfo.patternrepresentation_1, kc_current_view); patternrepresentation patternrepresentation_2 = rewrite_patternrepresentation(kc_p->u.Rewriteruleinfo.patternrepresentation_2, kc_current_view); rewriteclause rewriteclause_1 = rewrite_rewriteclause(kc_p->u.Rewriteruleinfo.rewriteclause_1, kc_current_view); if ((patternrepresentation_1 == kc_p->u.Rewriteruleinfo.patternrepresentation_1) && (patternrepresentation_2 == kc_p->u.Rewriteruleinfo.patternrepresentation_2) && (rewriteclause_1 == kc_p->u.Rewriteruleinfo.rewriteclause_1)) return kc_p; else return Rewriteruleinfo(patternrepresentation_1, patternrepresentation_2, rewriteclause_1); } default: return kc_p;} } } } /*ARGSUSED*/ withcasesinfo rewrite_withcasesinfo #ifdef KC_USE_PROTOTYPES (withcasesinfo kc_p, rview kc_current_view) #else (kc_p, kc_current_view) withcasesinfo kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_withcasesinfo( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilwithcasesinfo: { return kc_p; } case (int)sel_Conswithcasesinfo: { withcaseinfo withcaseinfo_1 = rewrite_withcaseinfo(kc_p->u.Conswithcasesinfo.withcaseinfo_1, kc_current_view); withcasesinfo withcasesinfo_1 = rewrite_withcasesinfo(kc_p->u.Conswithcasesinfo.withcasesinfo_1, kc_current_view); if ((withcaseinfo_1 == kc_p->u.Conswithcasesinfo.withcaseinfo_1) && (withcasesinfo_1 == kc_p->u.Conswithcasesinfo.withcasesinfo_1)) return kc_p; else return Conswithcasesinfo(withcaseinfo_1, withcasesinfo_1); } default: return kc_p;} } } } /*ARGSUSED*/ withcaseinfo rewrite_withcaseinfo #ifdef KC_USE_PROTOTYPES (withcaseinfo kc_p, rview kc_current_view) #else (kc_p, kc_current_view) withcaseinfo kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_withcaseinfo( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Withcaseinfo: { patternrepresentation patternrepresentation_1 = rewrite_patternrepresentation(kc_p->u.Withcaseinfo.patternrepresentation_1, kc_current_view); patternrepresentation patternrepresentation_2 = rewrite_patternrepresentation(kc_p->u.Withcaseinfo.patternrepresentation_2, kc_current_view); Ctext Ctext_1 = rewrite_Ctext(kc_p->u.Withcaseinfo.Ctext_1, kc_current_view); if ((patternrepresentation_1 == kc_p->u.Withcaseinfo.patternrepresentation_1) && (patternrepresentation_2 == kc_p->u.Withcaseinfo.patternrepresentation_2) && (Ctext_1 == kc_p->u.Withcaseinfo.Ctext_1)) return kc_p; else return Withcaseinfo(patternrepresentation_1, patternrepresentation_2, Ctext_1); } default: return kc_p;} } } } /*ARGSUSED*/ rewriteviewsinfo rewrite_rewriteviewsinfo #ifdef KC_USE_PROTOTYPES (rewriteviewsinfo kc_p, rview kc_current_view) #else (kc_p, kc_current_view) rewriteviewsinfo kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_rewriteviewsinfo( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilrewriteviewsinfo: { return kc_p; } case (int)sel_Consrewriteviewsinfo: { rewriteviewinfo rewriteviewinfo_1 = rewrite_rewriteviewinfo(kc_p->u.Consrewriteviewsinfo.rewriteviewinfo_1, kc_current_view); rewriteviewsinfo rewriteviewsinfo_1 = rewrite_rewriteviewsinfo(kc_p->u.Consrewriteviewsinfo.rewriteviewsinfo_1, kc_current_view); if ((rewriteviewinfo_1 == kc_p->u.Consrewriteviewsinfo.rewriteviewinfo_1) && (rewriteviewsinfo_1 == kc_p->u.Consrewriteviewsinfo.rewriteviewsinfo_1)) return kc_p; else return Consrewriteviewsinfo(rewriteviewinfo_1, rewriteviewsinfo_1); } default: return kc_p;} } } } /*ARGSUSED*/ rewriteviewinfo rewrite_rewriteviewinfo #ifdef KC_USE_PROTOTYPES (rewriteviewinfo kc_p, rview kc_current_view) #else (kc_p, kc_current_view) rewriteviewinfo kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_rewriteviewinfo( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Rewriteviewinfo: { ID ID_1 = rewrite_ID(kc_p->u.Rewriteviewinfo.ID_1, kc_current_view); rewriterulesinfo rewriterulesinfo_1 = rewrite_rewriterulesinfo(kc_p->u.Rewriteviewinfo.rewriterulesinfo_1, kc_current_view); if ((ID_1 == kc_p->u.Rewriteviewinfo.ID_1) && (rewriterulesinfo_1 == kc_p->u.Rewriteviewinfo.rewriterulesinfo_1)) return kc_p; else return Rewriteviewinfo(ID_1, rewriterulesinfo_1); } default: return kc_p;} } } } /*ARGSUSED*/ unparseviewsinfo rewrite_unparseviewsinfo #ifdef KC_USE_PROTOTYPES (unparseviewsinfo kc_p, rview kc_current_view) #else (kc_p, kc_current_view) unparseviewsinfo kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_unparseviewsinfo( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilunparseviewsinfo: { return kc_p; } case (int)sel_Consunparseviewsinfo: { unparseviewinfo unparseviewinfo_1 = rewrite_unparseviewinfo(kc_p->u.Consunparseviewsinfo.unparseviewinfo_1, kc_current_view); unparseviewsinfo unparseviewsinfo_1 = rewrite_unparseviewsinfo(kc_p->u.Consunparseviewsinfo.unparseviewsinfo_1, kc_current_view); if ((unparseviewinfo_1 == kc_p->u.Consunparseviewsinfo.unparseviewinfo_1) && (unparseviewsinfo_1 == kc_p->u.Consunparseviewsinfo.unparseviewsinfo_1)) return kc_p; else return Consunparseviewsinfo(unparseviewinfo_1, unparseviewsinfo_1); } default: return kc_p;} } } } /*ARGSUSED*/ unparseviewinfo rewrite_unparseviewinfo #ifdef KC_USE_PROTOTYPES (unparseviewinfo kc_p, rview kc_current_view) #else (kc_p, kc_current_view) unparseviewinfo kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_unparseviewinfo( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Unparseviewinfo: { ID ID_1 = rewrite_ID(kc_p->u.Unparseviewinfo.ID_1, kc_current_view); unparsedeclsinfo unparsedeclsinfo_1 = rewrite_unparsedeclsinfo(kc_p->u.Unparseviewinfo.unparsedeclsinfo_1, kc_current_view); if ((ID_1 == kc_p->u.Unparseviewinfo.ID_1) && (unparsedeclsinfo_1 == kc_p->u.Unparseviewinfo.unparsedeclsinfo_1)) return kc_p; else return Unparseviewinfo(ID_1, unparsedeclsinfo_1); } default: return kc_p;} } } } /*ARGSUSED*/ unparsedeclsinfo rewrite_unparsedeclsinfo #ifdef KC_USE_PROTOTYPES (unparsedeclsinfo kc_p, rview kc_current_view) #else (kc_p, kc_current_view) unparsedeclsinfo kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_unparsedeclsinfo( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilunparsedeclsinfo: { return kc_p; } case (int)sel_Consunparsedeclsinfo: { unparsedeclinfo unparsedeclinfo_1 = rewrite_unparsedeclinfo(kc_p->u.Consunparsedeclsinfo.unparsedeclinfo_1, kc_current_view); unparsedeclsinfo unparsedeclsinfo_1 = rewrite_unparsedeclsinfo(kc_p->u.Consunparsedeclsinfo.unparsedeclsinfo_1, kc_current_view); if ((unparsedeclinfo_1 == kc_p->u.Consunparsedeclsinfo.unparsedeclinfo_1) && (unparsedeclsinfo_1 == kc_p->u.Consunparsedeclsinfo.unparsedeclsinfo_1)) return kc_p; else return Consunparsedeclsinfo(unparsedeclinfo_1, unparsedeclsinfo_1); } default: return kc_p;} } } } /*ARGSUSED*/ unparsedeclinfo rewrite_unparsedeclinfo #ifdef KC_USE_PROTOTYPES (unparsedeclinfo kc_p, rview kc_current_view) #else (kc_p, kc_current_view) unparsedeclinfo kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_unparsedeclinfo( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Unparsedeclinfo: { patternrepresentation patternrepresentation_1 = rewrite_patternrepresentation(kc_p->u.Unparsedeclinfo.patternrepresentation_1, kc_current_view); patternrepresentation patternrepresentation_2 = rewrite_patternrepresentation(kc_p->u.Unparsedeclinfo.patternrepresentation_2, kc_current_view); unparseclause unparseclause_1 = rewrite_unparseclause(kc_p->u.Unparsedeclinfo.unparseclause_1, kc_current_view); if ((patternrepresentation_1 == kc_p->u.Unparsedeclinfo.patternrepresentation_1) && (patternrepresentation_2 == kc_p->u.Unparsedeclinfo.patternrepresentation_2) && (unparseclause_1 == kc_p->u.Unparsedeclinfo.unparseclause_1)) return kc_p; else return Unparsedeclinfo(patternrepresentation_1, patternrepresentation_2, unparseclause_1); } default: return kc_p;} } } } /*ARGSUSED*/ ac_declaration rewrite_ac_declaration #ifdef KC_USE_PROTOTYPES (ac_declaration kc_p, rview kc_current_view) #else (kc_p, kc_current_view) ac_declaration kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_ac_declaration( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_AcDeclaration: { ac_declaration_specifiers ac_declaration_specifiers_1 = rewrite_ac_declaration_specifiers(kc_p->u.AcDeclaration.ac_declaration_specifiers_1, kc_current_view); ac_init_declarator_list ac_init_declarator_list_1 = rewrite_ac_init_declarator_list(kc_p->u.AcDeclaration.ac_init_declarator_list_1, kc_current_view); if ((ac_declaration_specifiers_1 == kc_p->u.AcDeclaration.ac_declaration_specifiers_1) && (ac_init_declarator_list_1 == kc_p->u.AcDeclaration.ac_init_declarator_list_1)) return kc_p; else return AcDeclaration(ac_declaration_specifiers_1, ac_init_declarator_list_1); } default: return kc_p;} } } } /*ARGSUSED*/ ac_declaration_list rewrite_ac_declaration_list #ifdef KC_USE_PROTOTYPES (ac_declaration_list kc_p, rview kc_current_view) #else (kc_p, kc_current_view) ac_declaration_list kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_ac_declaration_list( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilac_declaration_list: { return kc_p; } case (int)sel_Consac_declaration_list: { ac_declaration ac_declaration_1 = rewrite_ac_declaration(kc_p->u.Consac_declaration_list.ac_declaration_1, kc_current_view); ac_declaration_list ac_declaration_list_1 = rewrite_ac_declaration_list(kc_p->u.Consac_declaration_list.ac_declaration_list_1, kc_current_view); if ((ac_declaration_1 == kc_p->u.Consac_declaration_list.ac_declaration_1) && (ac_declaration_list_1 == kc_p->u.Consac_declaration_list.ac_declaration_list_1)) return kc_p; else return Consac_declaration_list(ac_declaration_1, ac_declaration_list_1); } default: return kc_p;} } } } /*ARGSUSED*/ ac_declaration_specifiers rewrite_ac_declaration_specifiers #ifdef KC_USE_PROTOTYPES (ac_declaration_specifiers kc_p, rview kc_current_view) #else (kc_p, kc_current_view) ac_declaration_specifiers kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_ac_declaration_specifiers( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilac_declaration_specifiers: { return kc_p; } case (int)sel_Consac_declaration_specifiers: { ac_declaration_specifier ac_declaration_specifier_1 = rewrite_ac_declaration_specifier(kc_p->u.Consac_declaration_specifiers.ac_declaration_specifier_1, kc_current_view); ac_declaration_specifiers ac_declaration_specifiers_1 = rewrite_ac_declaration_specifiers(kc_p->u.Consac_declaration_specifiers.ac_declaration_specifiers_1, kc_current_view); if ((ac_declaration_specifier_1 == kc_p->u.Consac_declaration_specifiers.ac_declaration_specifier_1) && (ac_declaration_specifiers_1 == kc_p->u.Consac_declaration_specifiers.ac_declaration_specifiers_1)) return kc_p; else return Consac_declaration_specifiers(ac_declaration_specifier_1, ac_declaration_specifiers_1); } default: return kc_p;} } } } /*ARGSUSED*/ ac_declaration_specifier rewrite_ac_declaration_specifier #ifdef KC_USE_PROTOTYPES (ac_declaration_specifier kc_p, rview kc_current_view) #else (kc_p, kc_current_view) ac_declaration_specifier kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_ac_declaration_specifier( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_AcDeclSpecStorageSpec: { ac_storage_class_specifier ac_storage_class_specifier_1 = rewrite_ac_storage_class_specifier(kc_p->u.AcDeclSpecStorageSpec.ac_storage_class_specifier_1, kc_current_view); if ((ac_storage_class_specifier_1 == kc_p->u.AcDeclSpecStorageSpec.ac_storage_class_specifier_1)) return kc_p; else return AcDeclSpecStorageSpec(ac_storage_class_specifier_1); } case (int)sel_AcDeclSpecTypeSpec: { ac_type_specifier ac_type_specifier_1 = rewrite_ac_type_specifier(kc_p->u.AcDeclSpecTypeSpec.ac_type_specifier_1, kc_current_view); if ((ac_type_specifier_1 == kc_p->u.AcDeclSpecTypeSpec.ac_type_specifier_1)) return kc_p; else return AcDeclSpecTypeSpec(ac_type_specifier_1); } case (int)sel_AcDeclSpecTypeQual: { ac_type_qualifier ac_type_qualifier_1 = rewrite_ac_type_qualifier(kc_p->u.AcDeclSpecTypeQual.ac_type_qualifier_1, kc_current_view); if ((ac_type_qualifier_1 == kc_p->u.AcDeclSpecTypeQual.ac_type_qualifier_1)) return kc_p; else return AcDeclSpecTypeQual(ac_type_qualifier_1); } default: return kc_p;} } } } /*ARGSUSED*/ ac_storage_class_specifier rewrite_ac_storage_class_specifier #ifdef KC_USE_PROTOTYPES (ac_storage_class_specifier kc_p, rview kc_current_view) #else (kc_p, kc_current_view) ac_storage_class_specifier kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_ac_storage_class_specifier( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_AcAuto: { return kc_p; } case (int)sel_AcRegister: { return kc_p; } case (int)sel_AcStatic: { return kc_p; } case (int)sel_AcExtern: { return kc_p; } case (int)sel_AcTypedef: { return kc_p; } default: return kc_p;} } } } /*ARGSUSED*/ ac_type_specifier rewrite_ac_type_specifier #ifdef KC_USE_PROTOTYPES (ac_type_specifier kc_p, rview kc_current_view) #else (kc_p, kc_current_view) ac_type_specifier kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_ac_type_specifier( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_AcTypeSpec: { ID ID_1 = rewrite_ID(kc_p->u.AcTypeSpec.ID_1, kc_current_view); if ((ID_1 == kc_p->u.AcTypeSpec.ID_1)) return kc_p; else return AcTypeSpec(ID_1); } default: return kc_p;} } } } /*ARGSUSED*/ ac_type_qualifier rewrite_ac_type_qualifier #ifdef KC_USE_PROTOTYPES (ac_type_qualifier kc_p, rview kc_current_view) #else (kc_p, kc_current_view) ac_type_qualifier kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_ac_type_qualifier( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_AcConst: { return kc_p; } case (int)sel_AcVolatile: { return kc_p; } default: return kc_p;} } } } /*ARGSUSED*/ ac_init_declarator_list rewrite_ac_init_declarator_list #ifdef KC_USE_PROTOTYPES (ac_init_declarator_list kc_p, rview kc_current_view) #else (kc_p, kc_current_view) ac_init_declarator_list kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_ac_init_declarator_list( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilac_init_declarator_list: { return kc_p; } case (int)sel_Consac_init_declarator_list: { ac_init_declarator ac_init_declarator_1 = rewrite_ac_init_declarator(kc_p->u.Consac_init_declarator_list.ac_init_declarator_1, kc_current_view); ac_init_declarator_list ac_init_declarator_list_1 = rewrite_ac_init_declarator_list(kc_p->u.Consac_init_declarator_list.ac_init_declarator_list_1, kc_current_view); if ((ac_init_declarator_1 == kc_p->u.Consac_init_declarator_list.ac_init_declarator_1) && (ac_init_declarator_list_1 == kc_p->u.Consac_init_declarator_list.ac_init_declarator_list_1)) return kc_p; else return Consac_init_declarator_list(ac_init_declarator_1, ac_init_declarator_list_1); } default: return kc_p;} } } } /*ARGSUSED*/ ac_init_declarator rewrite_ac_init_declarator #ifdef KC_USE_PROTOTYPES (ac_init_declarator kc_p, rview kc_current_view) #else (kc_p, kc_current_view) ac_init_declarator kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_ac_init_declarator( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_AcInitDecl: { ac_declarator ac_declarator_1 = rewrite_ac_declarator(kc_p->u.AcInitDecl.ac_declarator_1, kc_current_view); if ((ac_declarator_1 == kc_p->u.AcInitDecl.ac_declarator_1)) return kc_p; else return AcInitDecl(ac_declarator_1); } default: return kc_p;} } } } /*ARGSUSED*/ ac_declarator rewrite_ac_declarator #ifdef KC_USE_PROTOTYPES (ac_declarator kc_p, rview kc_current_view) #else (kc_p, kc_current_view) ac_declarator kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_ac_declarator( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_AcDeclarator: { ac_pointer_option ac_pointer_option_1 = rewrite_ac_pointer_option(kc_p->u.AcDeclarator.ac_pointer_option_1, kc_current_view); ac_direct_declarator ac_direct_declarator_1 = rewrite_ac_direct_declarator(kc_p->u.AcDeclarator.ac_direct_declarator_1, kc_current_view); if ((ac_pointer_option_1 == kc_p->u.AcDeclarator.ac_pointer_option_1) && (ac_direct_declarator_1 == kc_p->u.AcDeclarator.ac_direct_declarator_1)) return kc_p; else return AcDeclarator(ac_pointer_option_1, ac_direct_declarator_1); } default: return kc_p;} } } } /*ARGSUSED*/ ac_direct_declarator rewrite_ac_direct_declarator #ifdef KC_USE_PROTOTYPES (ac_direct_declarator kc_p, rview kc_current_view) #else (kc_p, kc_current_view) ac_direct_declarator kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_ac_direct_declarator( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_AcDirectDeclId: { ID ID_1 = rewrite_ID(kc_p->u.AcDirectDeclId.ID_1, kc_current_view); if ((ID_1 == kc_p->u.AcDirectDeclId.ID_1)) return kc_p; else return AcDirectDeclId(ID_1); } case (int)sel_AcDirectDeclPack: { ac_declarator ac_declarator_1 = rewrite_ac_declarator(kc_p->u.AcDirectDeclPack.ac_declarator_1, kc_current_view); if ((ac_declarator_1 == kc_p->u.AcDirectDeclPack.ac_declarator_1)) return kc_p; else return AcDirectDeclPack(ac_declarator_1); } case (int)sel_AcDirectDeclArray: { ac_direct_declarator ac_direct_declarator_1 = rewrite_ac_direct_declarator(kc_p->u.AcDirectDeclArray.ac_direct_declarator_1, kc_current_view); ac_constant_expression_option ac_constant_expression_option_1 = rewrite_ac_constant_expression_option(kc_p->u.AcDirectDeclArray.ac_constant_expression_option_1, kc_current_view); if ((ac_direct_declarator_1 == kc_p->u.AcDirectDeclArray.ac_direct_declarator_1) && (ac_constant_expression_option_1 == kc_p->u.AcDirectDeclArray.ac_constant_expression_option_1)) return kc_p; else return AcDirectDeclArray(ac_direct_declarator_1, ac_constant_expression_option_1); } case (int)sel_AcDirectDeclProto: { ac_direct_declarator ac_direct_declarator_1 = rewrite_ac_direct_declarator(kc_p->u.AcDirectDeclProto.ac_direct_declarator_1, kc_current_view); ac_parameter_type_list ac_parameter_type_list_1 = rewrite_ac_parameter_type_list(kc_p->u.AcDirectDeclProto.ac_parameter_type_list_1, kc_current_view); if ((ac_direct_declarator_1 == kc_p->u.AcDirectDeclProto.ac_direct_declarator_1) && (ac_parameter_type_list_1 == kc_p->u.AcDirectDeclProto.ac_parameter_type_list_1)) return kc_p; else return AcDirectDeclProto(ac_direct_declarator_1, ac_parameter_type_list_1); } case (int)sel_AcDirectDeclKandR: { ac_direct_declarator ac_direct_declarator_1 = rewrite_ac_direct_declarator(kc_p->u.AcDirectDeclKandR.ac_direct_declarator_1, kc_current_view); ac_identifier_list ac_identifier_list_1 = rewrite_ac_identifier_list(kc_p->u.AcDirectDeclKandR.ac_identifier_list_1, kc_current_view); if ((ac_direct_declarator_1 == kc_p->u.AcDirectDeclKandR.ac_direct_declarator_1) && (ac_identifier_list_1 == kc_p->u.AcDirectDeclKandR.ac_identifier_list_1)) return kc_p; else return AcDirectDeclKandR(ac_direct_declarator_1, ac_identifier_list_1); } default: return kc_p;} } } } /*ARGSUSED*/ ac_pointer_option rewrite_ac_pointer_option #ifdef KC_USE_PROTOTYPES (ac_pointer_option kc_p, rview kc_current_view) #else (kc_p, kc_current_view) ac_pointer_option kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_ac_pointer_option( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nopointer: { return kc_p; } case (int)sel_Yespointer: { ac_pointer ac_pointer_1 = rewrite_ac_pointer(kc_p->u.Yespointer.ac_pointer_1, kc_current_view); if ((ac_pointer_1 == kc_p->u.Yespointer.ac_pointer_1)) return kc_p; else return Yespointer(ac_pointer_1); } default: return kc_p;} } } } /*ARGSUSED*/ ac_pointer rewrite_ac_pointer #ifdef KC_USE_PROTOTYPES (ac_pointer kc_p, rview kc_current_view) #else (kc_p, kc_current_view) ac_pointer kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_ac_pointer( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_AcPointerNil: { ac_type_qualifier_list ac_type_qualifier_list_1 = rewrite_ac_type_qualifier_list(kc_p->u.AcPointerNil.ac_type_qualifier_list_1, kc_current_view); if ((ac_type_qualifier_list_1 == kc_p->u.AcPointerNil.ac_type_qualifier_list_1)) return kc_p; else return AcPointerNil(ac_type_qualifier_list_1); } case (int)sel_AcPointerCons: { ac_type_qualifier_list ac_type_qualifier_list_1 = rewrite_ac_type_qualifier_list(kc_p->u.AcPointerCons.ac_type_qualifier_list_1, kc_current_view); ac_pointer ac_pointer_1 = rewrite_ac_pointer(kc_p->u.AcPointerCons.ac_pointer_1, kc_current_view); if ((ac_type_qualifier_list_1 == kc_p->u.AcPointerCons.ac_type_qualifier_list_1) && (ac_pointer_1 == kc_p->u.AcPointerCons.ac_pointer_1)) return kc_p; else return AcPointerCons(ac_type_qualifier_list_1, ac_pointer_1); } default: return kc_p;} } } } /*ARGSUSED*/ ac_type_qualifier_list rewrite_ac_type_qualifier_list #ifdef KC_USE_PROTOTYPES (ac_type_qualifier_list kc_p, rview kc_current_view) #else (kc_p, kc_current_view) ac_type_qualifier_list kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_ac_type_qualifier_list( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilac_type_qualifier_list: { return kc_p; } case (int)sel_Consac_type_qualifier_list: { ac_type_qualifier ac_type_qualifier_1 = rewrite_ac_type_qualifier(kc_p->u.Consac_type_qualifier_list.ac_type_qualifier_1, kc_current_view); ac_type_qualifier_list ac_type_qualifier_list_1 = rewrite_ac_type_qualifier_list(kc_p->u.Consac_type_qualifier_list.ac_type_qualifier_list_1, kc_current_view); if ((ac_type_qualifier_1 == kc_p->u.Consac_type_qualifier_list.ac_type_qualifier_1) && (ac_type_qualifier_list_1 == kc_p->u.Consac_type_qualifier_list.ac_type_qualifier_list_1)) return kc_p; else return Consac_type_qualifier_list(ac_type_qualifier_1, ac_type_qualifier_list_1); } default: return kc_p;} } } } /*ARGSUSED*/ ac_parameter_type_list rewrite_ac_parameter_type_list #ifdef KC_USE_PROTOTYPES (ac_parameter_type_list kc_p, rview kc_current_view) #else (kc_p, kc_current_view) ac_parameter_type_list kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_ac_parameter_type_list( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_AcParList: { ac_parameter_list ac_parameter_list_1 = rewrite_ac_parameter_list(kc_p->u.AcParList.ac_parameter_list_1, kc_current_view); if ((ac_parameter_list_1 == kc_p->u.AcParList.ac_parameter_list_1)) return kc_p; else return AcParList(ac_parameter_list_1); } case (int)sel_AcParList3Dot: { ac_parameter_list ac_parameter_list_1 = rewrite_ac_parameter_list(kc_p->u.AcParList3Dot.ac_parameter_list_1, kc_current_view); if ((ac_parameter_list_1 == kc_p->u.AcParList3Dot.ac_parameter_list_1)) return kc_p; else return AcParList3Dot(ac_parameter_list_1); } default: return kc_p;} } } } /*ARGSUSED*/ ac_parameter_list rewrite_ac_parameter_list #ifdef KC_USE_PROTOTYPES (ac_parameter_list kc_p, rview kc_current_view) #else (kc_p, kc_current_view) ac_parameter_list kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_ac_parameter_list( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilac_parameter_list: { return kc_p; } case (int)sel_Consac_parameter_list: { ac_parameter_declaration ac_parameter_declaration_1 = rewrite_ac_parameter_declaration(kc_p->u.Consac_parameter_list.ac_parameter_declaration_1, kc_current_view); ac_parameter_list ac_parameter_list_1 = rewrite_ac_parameter_list(kc_p->u.Consac_parameter_list.ac_parameter_list_1, kc_current_view); if ((ac_parameter_declaration_1 == kc_p->u.Consac_parameter_list.ac_parameter_declaration_1) && (ac_parameter_list_1 == kc_p->u.Consac_parameter_list.ac_parameter_list_1)) return kc_p; else return Consac_parameter_list(ac_parameter_declaration_1, ac_parameter_list_1); } default: return kc_p;} } } } /*ARGSUSED*/ ac_parameter_declaration rewrite_ac_parameter_declaration #ifdef KC_USE_PROTOTYPES (ac_parameter_declaration kc_p, rview kc_current_view) #else (kc_p, kc_current_view) ac_parameter_declaration kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_ac_parameter_declaration( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_AcParDeclDecl: { ac_declaration_specifiers ac_declaration_specifiers_1 = rewrite_ac_declaration_specifiers(kc_p->u.AcParDeclDecl.ac_declaration_specifiers_1, kc_current_view); ac_declarator ac_declarator_1 = rewrite_ac_declarator(kc_p->u.AcParDeclDecl.ac_declarator_1, kc_current_view); if ((ac_declaration_specifiers_1 == kc_p->u.AcParDeclDecl.ac_declaration_specifiers_1) && (ac_declarator_1 == kc_p->u.AcParDeclDecl.ac_declarator_1)) return kc_p; else return AcParDeclDecl(ac_declaration_specifiers_1, ac_declarator_1); } case (int)sel_AcParDeclAbsdecl: { ac_declaration_specifiers ac_declaration_specifiers_1 = rewrite_ac_declaration_specifiers(kc_p->u.AcParDeclAbsdecl.ac_declaration_specifiers_1, kc_current_view); ac_abstract_declarator ac_abstract_declarator_1 = rewrite_ac_abstract_declarator(kc_p->u.AcParDeclAbsdecl.ac_abstract_declarator_1, kc_current_view); if ((ac_declaration_specifiers_1 == kc_p->u.AcParDeclAbsdecl.ac_declaration_specifiers_1) && (ac_abstract_declarator_1 == kc_p->u.AcParDeclAbsdecl.ac_abstract_declarator_1)) return kc_p; else return AcParDeclAbsdecl(ac_declaration_specifiers_1, ac_abstract_declarator_1); } default: return kc_p;} } } } /*ARGSUSED*/ ac_identifier_list rewrite_ac_identifier_list #ifdef KC_USE_PROTOTYPES (ac_identifier_list kc_p, rview kc_current_view) #else (kc_p, kc_current_view) ac_identifier_list kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_ac_identifier_list( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilac_identifier_list: { return kc_p; } case (int)sel_Consac_identifier_list: { ID ID_1 = rewrite_ID(kc_p->u.Consac_identifier_list.ID_1, kc_current_view); ac_identifier_list ac_identifier_list_1 = rewrite_ac_identifier_list(kc_p->u.Consac_identifier_list.ac_identifier_list_1, kc_current_view); if ((ID_1 == kc_p->u.Consac_identifier_list.ID_1) && (ac_identifier_list_1 == kc_p->u.Consac_identifier_list.ac_identifier_list_1)) return kc_p; else return Consac_identifier_list(ID_1, ac_identifier_list_1); } default: return kc_p;} } } } /*ARGSUSED*/ ac_abstract_declarator rewrite_ac_abstract_declarator #ifdef KC_USE_PROTOTYPES (ac_abstract_declarator kc_p, rview kc_current_view) #else (kc_p, kc_current_view) ac_abstract_declarator kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_ac_abstract_declarator( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_AcAbsdeclPointer: { ac_pointer ac_pointer_1 = rewrite_ac_pointer(kc_p->u.AcAbsdeclPointer.ac_pointer_1, kc_current_view); if ((ac_pointer_1 == kc_p->u.AcAbsdeclPointer.ac_pointer_1)) return kc_p; else return AcAbsdeclPointer(ac_pointer_1); } case (int)sel_AcAbsdeclDirdecl: { ac_pointer_option ac_pointer_option_1 = rewrite_ac_pointer_option(kc_p->u.AcAbsdeclDirdecl.ac_pointer_option_1, kc_current_view); ac_direct_abstract_declarator ac_direct_abstract_declarator_1 = rewrite_ac_direct_abstract_declarator(kc_p->u.AcAbsdeclDirdecl.ac_direct_abstract_declarator_1, kc_current_view); if ((ac_pointer_option_1 == kc_p->u.AcAbsdeclDirdecl.ac_pointer_option_1) && (ac_direct_abstract_declarator_1 == kc_p->u.AcAbsdeclDirdecl.ac_direct_abstract_declarator_1)) return kc_p; else return AcAbsdeclDirdecl(ac_pointer_option_1, ac_direct_abstract_declarator_1); } default: return kc_p;} } } } /*ARGSUSED*/ ac_direct_abstract_declarator_option rewrite_ac_direct_abstract_declarator_option #ifdef KC_USE_PROTOTYPES (ac_direct_abstract_declarator_option kc_p, rview kc_current_view) #else (kc_p, kc_current_view) ac_direct_abstract_declarator_option kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_ac_direct_abstract_declarator_option( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Noac_direct_abstract_declarator: { return kc_p; } case (int)sel_Yesac_direct_abstract_declarator: { ac_direct_abstract_declarator ac_direct_abstract_declarator_1 = rewrite_ac_direct_abstract_declarator(kc_p->u.Yesac_direct_abstract_declarator.ac_direct_abstract_declarator_1, kc_current_view); if ((ac_direct_abstract_declarator_1 == kc_p->u.Yesac_direct_abstract_declarator.ac_direct_abstract_declarator_1)) return kc_p; else return Yesac_direct_abstract_declarator(ac_direct_abstract_declarator_1); } default: return kc_p;} } } } /*ARGSUSED*/ ac_direct_abstract_declarator rewrite_ac_direct_abstract_declarator #ifdef KC_USE_PROTOTYPES (ac_direct_abstract_declarator kc_p, rview kc_current_view) #else (kc_p, kc_current_view) ac_direct_abstract_declarator kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_ac_direct_abstract_declarator( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_AcDirAbsdeclPack: { ac_abstract_declarator ac_abstract_declarator_1 = rewrite_ac_abstract_declarator(kc_p->u.AcDirAbsdeclPack.ac_abstract_declarator_1, kc_current_view); if ((ac_abstract_declarator_1 == kc_p->u.AcDirAbsdeclPack.ac_abstract_declarator_1)) return kc_p; else return AcDirAbsdeclPack(ac_abstract_declarator_1); } case (int)sel_AcDirAbsdeclArray: { ac_direct_abstract_declarator_option ac_direct_abstract_declarator_option_1 = rewrite_ac_direct_abstract_declarator_option(kc_p->u.AcDirAbsdeclArray.ac_direct_abstract_declarator_option_1, kc_current_view); ac_constant_expression_option ac_constant_expression_option_1 = rewrite_ac_constant_expression_option(kc_p->u.AcDirAbsdeclArray.ac_constant_expression_option_1, kc_current_view); if ((ac_direct_abstract_declarator_option_1 == kc_p->u.AcDirAbsdeclArray.ac_direct_abstract_declarator_option_1) && (ac_constant_expression_option_1 == kc_p->u.AcDirAbsdeclArray.ac_constant_expression_option_1)) return kc_p; else return AcDirAbsdeclArray(ac_direct_abstract_declarator_option_1, ac_constant_expression_option_1); } case (int)sel_AcDirAbsdeclFn: { ac_direct_abstract_declarator_option ac_direct_abstract_declarator_option_1 = rewrite_ac_direct_abstract_declarator_option(kc_p->u.AcDirAbsdeclFn.ac_direct_abstract_declarator_option_1, kc_current_view); ac_parameter_type_list ac_parameter_type_list_1 = rewrite_ac_parameter_type_list(kc_p->u.AcDirAbsdeclFn.ac_parameter_type_list_1, kc_current_view); if ((ac_direct_abstract_declarator_option_1 == kc_p->u.AcDirAbsdeclFn.ac_direct_abstract_declarator_option_1) && (ac_parameter_type_list_1 == kc_p->u.AcDirAbsdeclFn.ac_parameter_type_list_1)) return kc_p; else return AcDirAbsdeclFn(ac_direct_abstract_declarator_option_1, ac_parameter_type_list_1); } default: return kc_p;} } } } /*ARGSUSED*/ ac_constant_expression_option rewrite_ac_constant_expression_option #ifdef KC_USE_PROTOTYPES (ac_constant_expression_option kc_p, rview kc_current_view) #else (kc_p, kc_current_view) ac_constant_expression_option kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_ac_constant_expression_option( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Yesac_constant_expression: { ac_constant_expression ac_constant_expression_1 = rewrite_ac_constant_expression(kc_p->u.Yesac_constant_expression.ac_constant_expression_1, kc_current_view); if ((ac_constant_expression_1 == kc_p->u.Yesac_constant_expression.ac_constant_expression_1)) return kc_p; else return Yesac_constant_expression(ac_constant_expression_1); } default: return kc_p;} } } } /*ARGSUSED*/ ac_constant_expression rewrite_ac_constant_expression #ifdef KC_USE_PROTOTYPES (ac_constant_expression kc_p, rview kc_current_view) #else (kc_p, kc_current_view) ac_constant_expression kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_ac_constant_expression( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_AcConstExpr: { Cexpression Cexpression_1 = rewrite_Cexpression(kc_p->u.AcConstExpr.Cexpression_1, kc_current_view); if ((Cexpression_1 == kc_p->u.AcConstExpr.Cexpression_1)) return kc_p; else return AcConstExpr(Cexpression_1); } default: return kc_p;} } } } /*ARGSUSED*/ error rewrite_error #ifdef KC_USE_PROTOTYPES (error kc_p, rview kc_current_view) #else (kc_p, kc_current_view) error kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_error( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Fatal: { fileline fileline_1 = rewrite_fileline(kc_p->u.Fatal.fileline_1, kc_current_view); problem problem_1 = rewrite_problem(kc_p->u.Fatal.problem_1, kc_current_view); if ((fileline_1 == kc_p->u.Fatal.fileline_1) && (problem_1 == kc_p->u.Fatal.problem_1)) return kc_p; else return Fatal(fileline_1, problem_1); } case (int)sel_NonFatal: { fileline fileline_1 = rewrite_fileline(kc_p->u.NonFatal.fileline_1, kc_current_view); problem problem_1 = rewrite_problem(kc_p->u.NonFatal.problem_1, kc_current_view); if ((fileline_1 == kc_p->u.NonFatal.fileline_1) && (problem_1 == kc_p->u.NonFatal.problem_1)) return kc_p; else return NonFatal(fileline_1, problem_1); } case (int)sel_Warning: { fileline fileline_1 = rewrite_fileline(kc_p->u.Warning.fileline_1, kc_current_view); problem problem_1 = rewrite_problem(kc_p->u.Warning.problem_1, kc_current_view); if ((fileline_1 == kc_p->u.Warning.fileline_1) && (problem_1 == kc_p->u.Warning.problem_1)) return kc_p; else return Warning(fileline_1, problem_1); } default: return kc_p;} } } } /*ARGSUSED*/ problem rewrite_problem #ifdef KC_USE_PROTOTYPES (problem kc_p, rview kc_current_view) #else (kc_p, kc_current_view) problem kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_problem( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Problem1: { casestring casestring_1 = rewrite_casestring(kc_p->u.Problem1.casestring_1, kc_current_view); if ((casestring_1 == kc_p->u.Problem1.casestring_1)) return kc_p; else return Problem1(casestring_1); } case (int)sel_Problem1ID: { casestring casestring_1 = rewrite_casestring(kc_p->u.Problem1ID.casestring_1, kc_current_view); ID ID_1 = rewrite_ID(kc_p->u.Problem1ID.ID_1, kc_current_view); if ((casestring_1 == kc_p->u.Problem1ID.casestring_1) && (ID_1 == kc_p->u.Problem1ID.ID_1)) return kc_p; else return Problem1ID(casestring_1, ID_1); } case (int)sel_Problem1tID: { casestring casestring_1 = rewrite_casestring(kc_p->u.Problem1tID.casestring_1, kc_current_view); ID ID_1 = rewrite_ID(kc_p->u.Problem1tID.ID_1, kc_current_view); if ((casestring_1 == kc_p->u.Problem1tID.casestring_1) && (ID_1 == kc_p->u.Problem1tID.ID_1)) return kc_p; else return Problem1tID(casestring_1, ID_1); } case (int)sel_Problem1we: { casestring casestring_1 = rewrite_casestring(kc_p->u.Problem1we.casestring_1, kc_current_view); withexpression withexpression_1 = rewrite_withexpression(kc_p->u.Problem1we.withexpression_1, kc_current_view); if ((casestring_1 == kc_p->u.Problem1we.casestring_1) && (withexpression_1 == kc_p->u.Problem1we.withexpression_1)) return kc_p; else return Problem1we(casestring_1, withexpression_1); } case (int)sel_Problem1ID1ID: { casestring casestring_1 = rewrite_casestring(kc_p->u.Problem1ID1ID.casestring_1, kc_current_view); ID ID_1 = rewrite_ID(kc_p->u.Problem1ID1ID.ID_1, kc_current_view); casestring casestring_2 = rewrite_casestring(kc_p->u.Problem1ID1ID.casestring_2, kc_current_view); ID ID_2 = rewrite_ID(kc_p->u.Problem1ID1ID.ID_2, kc_current_view); if ((casestring_1 == kc_p->u.Problem1ID1ID.casestring_1) && (ID_1 == kc_p->u.Problem1ID1ID.ID_1) && (casestring_2 == kc_p->u.Problem1ID1ID.casestring_2) && (ID_2 == kc_p->u.Problem1ID1ID.ID_2)) return kc_p; else return Problem1ID1ID(casestring_1, ID_1, casestring_2, ID_2); } case (int)sel_Problem1t1ID: { casestring casestring_1 = rewrite_casestring(kc_p->u.Problem1t1ID.casestring_1, kc_current_view); IDtype IDtype_1 = rewrite_IDtype(kc_p->u.Problem1t1ID.IDtype_1, kc_current_view); casestring casestring_2 = rewrite_casestring(kc_p->u.Problem1t1ID.casestring_2, kc_current_view); ID ID_1 = rewrite_ID(kc_p->u.Problem1t1ID.ID_1, kc_current_view); if ((casestring_1 == kc_p->u.Problem1t1ID.casestring_1) && (IDtype_1 == kc_p->u.Problem1t1ID.IDtype_1) && (casestring_2 == kc_p->u.Problem1t1ID.casestring_2) && (ID_1 == kc_p->u.Problem1t1ID.ID_1)) return kc_p; else return Problem1t1ID(casestring_1, IDtype_1, casestring_2, ID_1); } case (int)sel_Problem1INT: { casestring casestring_1 = rewrite_casestring(kc_p->u.Problem1INT.casestring_1, kc_current_view); INT INT_1 = rewrite_INT(kc_p->u.Problem1INT.INT_1, kc_current_view); if ((casestring_1 == kc_p->u.Problem1INT.casestring_1) && (INT_1 == kc_p->u.Problem1INT.INT_1)) return kc_p; else return Problem1INT(casestring_1, INT_1); } case (int)sel_Problem1int1: { casestring casestring_1 = rewrite_casestring(kc_p->u.Problem1int1.casestring_1, kc_current_view); int int_1 = rewrite_int(kc_p->u.Problem1int1.int_1, kc_current_view); casestring casestring_2 = rewrite_casestring(kc_p->u.Problem1int1.casestring_2, kc_current_view); if ((casestring_1 == kc_p->u.Problem1int1.casestring_1) && (int_1 == kc_p->u.Problem1int1.int_1) && (casestring_2 == kc_p->u.Problem1int1.casestring_2)) return kc_p; else return Problem1int1(casestring_1, int_1, casestring_2); } case (int)sel_Problem1INT1ID: { casestring casestring_1 = rewrite_casestring(kc_p->u.Problem1INT1ID.casestring_1, kc_current_view); INT INT_1 = rewrite_INT(kc_p->u.Problem1INT1ID.INT_1, kc_current_view); casestring casestring_2 = rewrite_casestring(kc_p->u.Problem1INT1ID.casestring_2, kc_current_view); ID ID_1 = rewrite_ID(kc_p->u.Problem1INT1ID.ID_1, kc_current_view); if ((casestring_1 == kc_p->u.Problem1INT1ID.casestring_1) && (INT_1 == kc_p->u.Problem1INT1ID.INT_1) && (casestring_2 == kc_p->u.Problem1INT1ID.casestring_2) && (ID_1 == kc_p->u.Problem1INT1ID.ID_1)) return kc_p; else return Problem1INT1ID(casestring_1, INT_1, casestring_2, ID_1); } case (int)sel_Problem1ID1ID1ID: { casestring casestring_1 = rewrite_casestring(kc_p->u.Problem1ID1ID1ID.casestring_1, kc_current_view); ID ID_1 = rewrite_ID(kc_p->u.Problem1ID1ID1ID.ID_1, kc_current_view); casestring casestring_2 = rewrite_casestring(kc_p->u.Problem1ID1ID1ID.casestring_2, kc_current_view); ID ID_2 = rewrite_ID(kc_p->u.Problem1ID1ID1ID.ID_2, kc_current_view); casestring casestring_3 = rewrite_casestring(kc_p->u.Problem1ID1ID1ID.casestring_3, kc_current_view); ID ID_3 = rewrite_ID(kc_p->u.Problem1ID1ID1ID.ID_3, kc_current_view); if ((casestring_1 == kc_p->u.Problem1ID1ID1ID.casestring_1) && (ID_1 == kc_p->u.Problem1ID1ID1ID.ID_1) && (casestring_2 == kc_p->u.Problem1ID1ID1ID.casestring_2) && (ID_2 == kc_p->u.Problem1ID1ID1ID.ID_2) && (casestring_3 == kc_p->u.Problem1ID1ID1ID.casestring_3) && (ID_3 == kc_p->u.Problem1ID1ID1ID.ID_3)) return kc_p; else return Problem1ID1ID1ID(casestring_1, ID_1, casestring_2, ID_2, casestring_3, ID_3); } case (int)sel_Problem1INT1ID1ID: { casestring casestring_1 = rewrite_casestring(kc_p->u.Problem1INT1ID1ID.casestring_1, kc_current_view); INT INT_1 = rewrite_INT(kc_p->u.Problem1INT1ID1ID.INT_1, kc_current_view); casestring casestring_2 = rewrite_casestring(kc_p->u.Problem1INT1ID1ID.casestring_2, kc_current_view); ID ID_1 = rewrite_ID(kc_p->u.Problem1INT1ID1ID.ID_1, kc_current_view); casestring casestring_3 = rewrite_casestring(kc_p->u.Problem1INT1ID1ID.casestring_3, kc_current_view); ID ID_2 = rewrite_ID(kc_p->u.Problem1INT1ID1ID.ID_2, kc_current_view); if ((casestring_1 == kc_p->u.Problem1INT1ID1ID.casestring_1) && (INT_1 == kc_p->u.Problem1INT1ID1ID.INT_1) && (casestring_2 == kc_p->u.Problem1INT1ID1ID.casestring_2) && (ID_1 == kc_p->u.Problem1INT1ID1ID.ID_1) && (casestring_3 == kc_p->u.Problem1INT1ID1ID.casestring_3) && (ID_2 == kc_p->u.Problem1INT1ID1ID.ID_2)) return kc_p; else return Problem1INT1ID1ID(casestring_1, INT_1, casestring_2, ID_1, casestring_3, ID_2); } case (int)sel_Problem1storageoption1ID: { casestring casestring_1 = rewrite_casestring(kc_p->u.Problem1storageoption1ID.casestring_1, kc_current_view); storageoption storageoption_1 = rewrite_storageoption(kc_p->u.Problem1storageoption1ID.storageoption_1, kc_current_view); casestring casestring_2 = rewrite_casestring(kc_p->u.Problem1storageoption1ID.casestring_2, kc_current_view); ID ID_1 = rewrite_ID(kc_p->u.Problem1storageoption1ID.ID_1, kc_current_view); if ((casestring_1 == kc_p->u.Problem1storageoption1ID.casestring_1) && (storageoption_1 == kc_p->u.Problem1storageoption1ID.storageoption_1) && (casestring_2 == kc_p->u.Problem1storageoption1ID.casestring_2) && (ID_1 == kc_p->u.Problem1storageoption1ID.ID_1)) return kc_p; else return Problem1storageoption1ID(casestring_1, storageoption_1, casestring_2, ID_1); } case (int)sel_Problem2: { casestring casestring_1 = rewrite_casestring(kc_p->u.Problem2.casestring_1, kc_current_view); casestring casestring_2 = rewrite_casestring(kc_p->u.Problem2.casestring_2, kc_current_view); if ((casestring_1 == kc_p->u.Problem2.casestring_1) && (casestring_2 == kc_p->u.Problem2.casestring_2)) return kc_p; else return Problem2(casestring_1, casestring_2); } case (int)sel_Problem3: { casestring casestring_1 = rewrite_casestring(kc_p->u.Problem3.casestring_1, kc_current_view); casestring casestring_2 = rewrite_casestring(kc_p->u.Problem3.casestring_2, kc_current_view); casestring casestring_3 = rewrite_casestring(kc_p->u.Problem3.casestring_3, kc_current_view); if ((casestring_1 == kc_p->u.Problem3.casestring_1) && (casestring_2 == kc_p->u.Problem3.casestring_2) && (casestring_3 == kc_p->u.Problem3.casestring_3)) return kc_p; else return Problem3(casestring_1, casestring_2, casestring_3); } case (int)sel_Problem3int1: { casestring casestring_1 = rewrite_casestring(kc_p->u.Problem3int1.casestring_1, kc_current_view); casestring casestring_2 = rewrite_casestring(kc_p->u.Problem3int1.casestring_2, kc_current_view); casestring casestring_3 = rewrite_casestring(kc_p->u.Problem3int1.casestring_3, kc_current_view); int int_1 = rewrite_int(kc_p->u.Problem3int1.int_1, kc_current_view); casestring casestring_4 = rewrite_casestring(kc_p->u.Problem3int1.casestring_4, kc_current_view); if ((casestring_1 == kc_p->u.Problem3int1.casestring_1) && (casestring_2 == kc_p->u.Problem3int1.casestring_2) && (casestring_3 == kc_p->u.Problem3int1.casestring_3) && (int_1 == kc_p->u.Problem3int1.int_1) && (casestring_4 == kc_p->u.Problem3int1.casestring_4)) return kc_p; else return Problem3int1(casestring_1, casestring_2, casestring_3, int_1, casestring_4); } case (int)sel_Problem4: { casestring casestring_1 = rewrite_casestring(kc_p->u.Problem4.casestring_1, kc_current_view); casestring casestring_2 = rewrite_casestring(kc_p->u.Problem4.casestring_2, kc_current_view); casestring casestring_3 = rewrite_casestring(kc_p->u.Problem4.casestring_3, kc_current_view); casestring casestring_4 = rewrite_casestring(kc_p->u.Problem4.casestring_4, kc_current_view); if ((casestring_1 == kc_p->u.Problem4.casestring_1) && (casestring_2 == kc_p->u.Problem4.casestring_2) && (casestring_3 == kc_p->u.Problem4.casestring_3) && (casestring_4 == kc_p->u.Problem4.casestring_4)) return kc_p; else return Problem4(casestring_1, casestring_2, casestring_3, casestring_4); } case (int)sel_Problem5: { casestring casestring_1 = rewrite_casestring(kc_p->u.Problem5.casestring_1, kc_current_view); casestring casestring_2 = rewrite_casestring(kc_p->u.Problem5.casestring_2, kc_current_view); casestring casestring_3 = rewrite_casestring(kc_p->u.Problem5.casestring_3, kc_current_view); casestring casestring_4 = rewrite_casestring(kc_p->u.Problem5.casestring_4, kc_current_view); casestring casestring_5 = rewrite_casestring(kc_p->u.Problem5.casestring_5, kc_current_view); if ((casestring_1 == kc_p->u.Problem5.casestring_1) && (casestring_2 == kc_p->u.Problem5.casestring_2) && (casestring_3 == kc_p->u.Problem5.casestring_3) && (casestring_4 == kc_p->u.Problem5.casestring_4) && (casestring_5 == kc_p->u.Problem5.casestring_5)) return kc_p; else return Problem5(casestring_1, casestring_2, casestring_3, casestring_4, casestring_5); } case (int)sel_Problem6: { casestring casestring_1 = rewrite_casestring(kc_p->u.Problem6.casestring_1, kc_current_view); casestring casestring_2 = rewrite_casestring(kc_p->u.Problem6.casestring_2, kc_current_view); casestring casestring_3 = rewrite_casestring(kc_p->u.Problem6.casestring_3, kc_current_view); casestring casestring_4 = rewrite_casestring(kc_p->u.Problem6.casestring_4, kc_current_view); casestring casestring_5 = rewrite_casestring(kc_p->u.Problem6.casestring_5, kc_current_view); casestring casestring_6 = rewrite_casestring(kc_p->u.Problem6.casestring_6, kc_current_view); if ((casestring_1 == kc_p->u.Problem6.casestring_1) && (casestring_2 == kc_p->u.Problem6.casestring_2) && (casestring_3 == kc_p->u.Problem6.casestring_3) && (casestring_4 == kc_p->u.Problem6.casestring_4) && (casestring_5 == kc_p->u.Problem6.casestring_5) && (casestring_6 == kc_p->u.Problem6.casestring_6)) return kc_p; else return Problem6(casestring_1, casestring_2, casestring_3, casestring_4, casestring_5, casestring_6); } default: return kc_p;} } } } /*ARGSUSED*/ addedphylumdeclarations rewrite_addedphylumdeclarations #ifdef KC_USE_PROTOTYPES (addedphylumdeclarations kc_p, rview kc_current_view) #else (kc_p, kc_current_view) addedphylumdeclarations kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_addedphylumdeclarations( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Niladdedphylumdeclarations: { return kc_p; } case (int)sel_Consaddedphylumdeclarations: { addedphylumdeclaration addedphylumdeclaration_1 = rewrite_addedphylumdeclaration(kc_p->u.Consaddedphylumdeclarations.addedphylumdeclaration_1, kc_current_view); addedphylumdeclarations addedphylumdeclarations_1 = rewrite_addedphylumdeclarations(kc_p->u.Consaddedphylumdeclarations.addedphylumdeclarations_1, kc_current_view); if ((addedphylumdeclaration_1 == kc_p->u.Consaddedphylumdeclarations.addedphylumdeclaration_1) && (addedphylumdeclarations_1 == kc_p->u.Consaddedphylumdeclarations.addedphylumdeclarations_1)) return kc_p; else return Consaddedphylumdeclarations(addedphylumdeclaration_1, addedphylumdeclarations_1); } default: return kc_p;} } } } /*ARGSUSED*/ addedphylumdeclaration rewrite_addedphylumdeclaration #ifdef KC_USE_PROTOTYPES (addedphylumdeclaration kc_p, rview kc_current_view) #else (kc_p, kc_current_view) addedphylumdeclaration kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_addedphylumdeclaration( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_AddedPhylumdeclaration: { uniqID uniqID_1 = rewrite_uniqID(kc_p->u.AddedPhylumdeclaration.uniqID_1, kc_current_view); if ((uniqID_1 == kc_p->u.AddedPhylumdeclaration.uniqID_1)) return kc_p; else return AddedPhylumdeclaration(uniqID_1); } default: return kc_p;} } } } /*ARGSUSED*/ countedphylumdeclarations rewrite_countedphylumdeclarations #ifdef KC_USE_PROTOTYPES (countedphylumdeclarations kc_p, rview kc_current_view) #else (kc_p, kc_current_view) countedphylumdeclarations kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_countedphylumdeclarations( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilcountedphylumdeclarations: { return kc_p; } case (int)sel_Conscountedphylumdeclarations: { countedphylumdeclaration countedphylumdeclaration_1 = rewrite_countedphylumdeclaration(kc_p->u.Conscountedphylumdeclarations.countedphylumdeclaration_1, kc_current_view); countedphylumdeclarations countedphylumdeclarations_1 = rewrite_countedphylumdeclarations(kc_p->u.Conscountedphylumdeclarations.countedphylumdeclarations_1, kc_current_view); if ((countedphylumdeclaration_1 == kc_p->u.Conscountedphylumdeclarations.countedphylumdeclaration_1) && (countedphylumdeclarations_1 == kc_p->u.Conscountedphylumdeclarations.countedphylumdeclarations_1)) return kc_p; else return Conscountedphylumdeclarations(countedphylumdeclaration_1, countedphylumdeclarations_1); } default: return kc_p;} } } } /*ARGSUSED*/ countedphylumdeclaration rewrite_countedphylumdeclaration #ifdef KC_USE_PROTOTYPES (countedphylumdeclaration kc_p, rview kc_current_view) #else (kc_p, kc_current_view) countedphylumdeclaration kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_countedphylumdeclaration( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_CountedPhylumdeclaration: { uniqID uniqID_1 = rewrite_uniqID(kc_p->u.CountedPhylumdeclaration.uniqID_1, kc_current_view); if ((uniqID_1 == kc_p->u.CountedPhylumdeclaration.uniqID_1)) return kc_p; else return CountedPhylumdeclaration(uniqID_1); } default: return kc_p;} } } } /*ARGSUSED*/ bindingidmarks rewrite_bindingidmarks #ifdef KC_USE_PROTOTYPES (bindingidmarks kc_p, rview kc_current_view) #else (kc_p, kc_current_view) bindingidmarks kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_bindingidmarks( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_Nilbindingidmarks: { return kc_p; } case (int)sel_Consbindingidmarks: { bindingidmark bindingidmark_1 = rewrite_bindingidmark(kc_p->u.Consbindingidmarks.bindingidmark_1, kc_current_view); bindingidmarks bindingidmarks_1 = rewrite_bindingidmarks(kc_p->u.Consbindingidmarks.bindingidmarks_1, kc_current_view); if ((bindingidmark_1 == kc_p->u.Consbindingidmarks.bindingidmark_1) && (bindingidmarks_1 == kc_p->u.Consbindingidmarks.bindingidmarks_1)) return kc_p; else return Consbindingidmarks(bindingidmark_1, bindingidmarks_1); } default: return kc_p;} } } } /*ARGSUSED*/ bindingidmark rewrite_bindingidmark #ifdef KC_USE_PROTOTYPES (bindingidmark kc_p, rview kc_current_view) #else (kc_p, kc_current_view) bindingidmark kc_p; rview kc_current_view; #endif { /*SUPPRESS 622*/ assert_bindingidmark( kc_p, "kc_p" ); switch((int)kc_current_view) { default: case (int)base_rview: { switch((int)kc_p->prod_sel) { case (int)sel_BindingIdMark: { uniqID uniqID_1 = rewrite_uniqID(kc_p->u.BindingIdMark.uniqID_1, kc_current_view); if ((uniqID_1 == kc_p->u.BindingIdMark.uniqID_1)) return kc_p; else return BindingIdMark(uniqID_1); } default: return kc_p;} } } }