/* translation of file "../defocc.k" */ /* generated by: * @(#)$Author: Kimwitu version: V4_6 (c) 1990-1996 University of Twente $ */ #define KC_FUNCTIONS_defocc #define KIMW_FUNCTIONS_defocc /* 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 #ifdef KC_STDC # include #endif #include "k.h" /* included stuff */ #line 2 "../defocc.k" /* * The Termprocessor Kimwitu * * Copyright (c) 1991 University of Twente, Dept TIOS. * All rights reserved. * */ #line 29 "defocc.c" #line 14 "../defocc.k" #if ! (defined(lint) || defined(SABER) || defined(CODECENTER)) static char defocc_kAccesSid[] = "@(#)$Id: defocc.k,v 1.9 1996/10/14 11:12:31 belinfan Rel $"; #endif #line 35 "defocc.c" /* end included stuff */ #include "defocc.h" void v_defoccur #ifdef KC_USE_PROTOTYPES (ID id, IDtype it) #else (id, it) ID id; IDtype it; #endif #line 35 "../defocc.k" { id->type = it; { #line 37 "../defocc.k" IDtype kc_selvar_0_1 = it ; #line 37 "../defocc.k" /*SUPPRESS 622*/ assert_IDtype(kc_selvar_0_1, "with_expression (1)"); #line 58 "defocc.c" if (( kc_selvar_0_1->prod_sel == sel_ITPatternVariable)) { #line 147 "../defocc.k" int i_s = kc_selvar_0_1->u.ITPatternVariable.int_1; #line 147 "../defocc.k" { #line 148 "../defocc.k" ID kc_selvar_1_1 = id ; #line 148 "../defocc.k" /*SUPPRESS 622*/ assert_ID(kc_selvar_1_1, "with_expression (1)"); #line 73 "defocc.c" if (( kc_selvar_1_1->prod_sel == sel_Id)) { #line 149 "../defocc.k" uniqID uid = kc_selvar_1_1->u.Id.uniqID_1; #line 149 "../defocc.k" { #line 150 "../defocc.k" IDtype kc_selvar_2_1 = uid->type ; #line 150 "../defocc.k" /*SUPPRESS 622*/ assert_IDtype(kc_selvar_2_1, "with_expression (1)"); #line 88 "defocc.c" if (( kc_selvar_2_1->prod_sel == sel_ITPatternVariable)) { #line 152 "../defocc.k" int id_s = kc_selvar_2_1->u.ITPatternVariable.int_1; #line 152 "../defocc.k" if (i_s == id_s) v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1ID( "illegal redefinition of pattern variable:", id ))); #line 94 "defocc.c" } else if (( kc_selvar_2_1->prod_sel == sel_ITUnknown)) { #line 151 "../defocc.k" uid->type = it; uid->line = id->line; uid->file = id->file; #line 99 "defocc.c" } else { #line 153 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1t1S1ID( "illegal redefinition of ", uid->type, "as pattern variable", id ))); #line 104 "defocc.c" } } #line 154 "../defocc.k" #line 109 "defocc.c" } else kc_no_default_in_with( "v_defoccur", __LINE__, __FILE__ ); } #line 154 "../defocc.k" #line 115 "defocc.c" } else if (( kc_selvar_0_1->prod_sel == sel_ITUserRView)) { #line 138 "../defocc.k" { #line 139 "../defocc.k" ID kc_selvar_1_1 = id ; #line 139 "../defocc.k" /*SUPPRESS 622*/ assert_ID(kc_selvar_1_1, "with_expression (1)"); #line 129 "defocc.c" if (( kc_selvar_1_1->prod_sel == sel_Id)) { #line 140 "../defocc.k" uniqID uid = kc_selvar_1_1->u.Id.uniqID_1; #line 140 "../defocc.k" { #line 141 "../defocc.k" IDtype kc_selvar_2_1 = uid->type ; #line 141 "../defocc.k" /*SUPPRESS 622*/ assert_IDtype(kc_selvar_2_1, "with_expression (1)"); #line 144 "defocc.c" if (( kc_selvar_2_1->prod_sel == sel_ITUserRView)) { #line 144 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1ID( "illegal redefinition of rewrite view:", id ))); #line 148 "defocc.c" } else if (( kc_selvar_2_1->prod_sel == sel_ITPredefinedRView)) { #line 143 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1ID( "illegal redefinition of predefined rewrite view:", id ))); #line 153 "defocc.c" } else if (( kc_selvar_2_1->prod_sel == sel_ITUnknown)) { #line 142 "../defocc.k" uid->type = it; uid->line = id->line; uid->file = id->file; #line 158 "defocc.c" } else { #line 145 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1t1S1ID( "illegal redefinition of ", uid->type, "as rewrite view", id ))); #line 163 "defocc.c" } } #line 146 "../defocc.k" #line 168 "defocc.c" } else kc_no_default_in_with( "v_defoccur", __LINE__, __FILE__ ); } #line 146 "../defocc.k" #line 174 "defocc.c" } else if (( kc_selvar_0_1->prod_sel == sel_ITPredefinedRView)) { #line 129 "../defocc.k" { #line 130 "../defocc.k" ID kc_selvar_1_1 = id ; #line 130 "../defocc.k" /*SUPPRESS 622*/ assert_ID(kc_selvar_1_1, "with_expression (1)"); #line 188 "defocc.c" if (( kc_selvar_1_1->prod_sel == sel_Id)) { #line 131 "../defocc.k" uniqID uid = kc_selvar_1_1->u.Id.uniqID_1; #line 131 "../defocc.k" { #line 132 "../defocc.k" IDtype kc_selvar_2_1 = uid->type ; #line 132 "../defocc.k" /*SUPPRESS 622*/ assert_IDtype(kc_selvar_2_1, "with_expression (1)"); #line 203 "defocc.c" if (( kc_selvar_2_1->prod_sel == sel_ITUserRView)) { #line 135 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1ID( "illegal predefinition of rewrite view:", id ))); #line 207 "defocc.c" } else if (( kc_selvar_2_1->prod_sel == sel_ITPredefinedRView)) { #line 134 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1ID( "illegal predefinition of predefined rewrite view:", id ))); #line 212 "defocc.c" } else if (( kc_selvar_2_1->prod_sel == sel_ITUnknown)) { #line 133 "../defocc.k" uid->type = it; uid->line = id->line; uid->file = id->file; #line 217 "defocc.c" } else { #line 136 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1t1S1ID( "illegal predefinition of ", uid->type, "as rewrite view", id ))); #line 222 "defocc.c" } } #line 137 "../defocc.k" #line 227 "defocc.c" } else kc_no_default_in_with( "v_defoccur", __LINE__, __FILE__ ); } #line 137 "../defocc.k" #line 233 "defocc.c" } else if (( kc_selvar_0_1->prod_sel == sel_ITUserUView)) { #line 120 "../defocc.k" { #line 121 "../defocc.k" ID kc_selvar_1_1 = id ; #line 121 "../defocc.k" /*SUPPRESS 622*/ assert_ID(kc_selvar_1_1, "with_expression (1)"); #line 247 "defocc.c" if (( kc_selvar_1_1->prod_sel == sel_Id)) { #line 122 "../defocc.k" uniqID uid = kc_selvar_1_1->u.Id.uniqID_1; #line 122 "../defocc.k" { #line 123 "../defocc.k" IDtype kc_selvar_2_1 = uid->type ; #line 123 "../defocc.k" /*SUPPRESS 622*/ assert_IDtype(kc_selvar_2_1, "with_expression (1)"); #line 262 "defocc.c" if (( kc_selvar_2_1->prod_sel == sel_ITUserUView)) { #line 126 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1ID( "illegal redefinition of unparse view:", id ))); #line 266 "defocc.c" } else if (( kc_selvar_2_1->prod_sel == sel_ITPredefinedUView)) { #line 125 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1ID( "illegal redefinition of predefined unparse view:", id ))); #line 271 "defocc.c" } else if (( kc_selvar_2_1->prod_sel == sel_ITUnknown)) { #line 124 "../defocc.k" uid->type = it; uid->line = id->line; uid->file = id->file; #line 276 "defocc.c" } else { #line 127 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1t1S1ID( "illegal redefinition of ", uid->type, "as unparse view", id ))); #line 281 "defocc.c" } } #line 128 "../defocc.k" #line 286 "defocc.c" } else kc_no_default_in_with( "v_defoccur", __LINE__, __FILE__ ); } #line 128 "../defocc.k" #line 292 "defocc.c" } else if (( kc_selvar_0_1->prod_sel == sel_ITPredefinedUView)) { #line 111 "../defocc.k" { #line 112 "../defocc.k" ID kc_selvar_1_1 = id ; #line 112 "../defocc.k" /*SUPPRESS 622*/ assert_ID(kc_selvar_1_1, "with_expression (1)"); #line 306 "defocc.c" if (( kc_selvar_1_1->prod_sel == sel_Id)) { #line 113 "../defocc.k" uniqID uid = kc_selvar_1_1->u.Id.uniqID_1; #line 113 "../defocc.k" { #line 114 "../defocc.k" IDtype kc_selvar_2_1 = uid->type ; #line 114 "../defocc.k" /*SUPPRESS 622*/ assert_IDtype(kc_selvar_2_1, "with_expression (1)"); #line 321 "defocc.c" if (( kc_selvar_2_1->prod_sel == sel_ITUserUView)) { #line 117 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1ID( "illegal predefinition of unparse view:", id ))); #line 325 "defocc.c" } else if (( kc_selvar_2_1->prod_sel == sel_ITPredefinedUView)) { #line 116 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1ID( "illegal predefinition of predefined unparse view:", id ))); #line 330 "defocc.c" } else if (( kc_selvar_2_1->prod_sel == sel_ITUnknown)) { #line 115 "../defocc.k" uid->type = it; uid->line = id->line; uid->file = id->file; #line 335 "defocc.c" } else { #line 118 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1t1S1ID( "illegal predefinition of ", uid->type, "as unparse view", id ))); #line 340 "defocc.c" } } #line 119 "../defocc.k" #line 345 "defocc.c" } else kc_no_default_in_with( "v_defoccur", __LINE__, __FILE__ ); } #line 119 "../defocc.k" #line 351 "defocc.c" } else if (( kc_selvar_0_1->prod_sel == sel_ITUserFunction)) { #line 96 "../defocc.k" fnclass it_fnc = kc_selvar_0_1->u.ITUserFunction.fnclass_1; #line 96 "../defocc.k" { #line 97 "../defocc.k" ID kc_selvar_1_1 = id ; #line 97 "../defocc.k" /*SUPPRESS 622*/ assert_ID(kc_selvar_1_1, "with_expression (1)"); #line 367 "defocc.c" if (( kc_selvar_1_1->prod_sel == sel_Id)) { #line 98 "../defocc.k" uniqID uid = kc_selvar_1_1->u.Id.uniqID_1; #line 98 "../defocc.k" { #line 99 "../defocc.k" IDtype kc_selvar_2_1 = uid->type ; #line 99 "../defocc.k" /*SUPPRESS 622*/ assert_IDtype(kc_selvar_2_1, "with_expression (1)"); #line 382 "defocc.c" if (( kc_selvar_2_1->prod_sel == sel_ITUserFunction) && ( kc_selvar_2_1->u.ITUserFunction.fnclass_1->prod_sel == sel_LocalFn)) { #line 102 "../defocc.k" { #line 103 "../defocc.k" fnclass kc_selvar_3_1 = it_fnc ; #line 103 "../defocc.k" /*SUPPRESS 622*/ assert_fnclass(kc_selvar_3_1, "with_expression (1)"); #line 395 "defocc.c" if (( kc_selvar_3_1->prod_sel == sel_LocalFn)) { #line 105 "../defocc.k" if (eq_casestring( uid->file, id->file )) { v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1ID( "illegal redefinition of local function:", id ))); } #line 402 "defocc.c" } else if (( kc_selvar_3_1->prod_sel == sel_GlobalFn)) { #line 104 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1ID( "illegal redefinition of local function:", id ))); #line 407 "defocc.c" } else kc_no_default_in_with( "v_defoccur", __LINE__, __FILE__ ); } #line 108 "../defocc.k" #line 413 "defocc.c" } else if (( kc_selvar_2_1->prod_sel == sel_ITUserFunction) && ( kc_selvar_2_1->u.ITUserFunction.fnclass_1->prod_sel == sel_GlobalFn)) { #line 101 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1ID( "illegal redefinition of global function:", id ))); #line 418 "defocc.c" } else if (( kc_selvar_2_1->prod_sel == sel_ITUnknown)) { #line 100 "../defocc.k" uid->type = it; uid->line = id->line; uid->file = id->file; #line 423 "defocc.c" } else { #line 109 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1t1S1ID( "illegal redefinition of ", uid->type, "as function", id ))); #line 428 "defocc.c" } } #line 110 "../defocc.k" #line 433 "defocc.c" } else kc_no_default_in_with( "v_defoccur", __LINE__, __FILE__ ); } #line 110 "../defocc.k" #line 439 "defocc.c" } else if (( kc_selvar_0_1->prod_sel == sel_ITStorageClass)) { #line 87 "../defocc.k" { #line 88 "../defocc.k" ID kc_selvar_1_1 = id ; #line 88 "../defocc.k" /*SUPPRESS 622*/ assert_ID(kc_selvar_1_1, "with_expression (1)"); #line 453 "defocc.c" if (( kc_selvar_1_1->prod_sel == sel_Id)) { #line 89 "../defocc.k" uniqID uid = kc_selvar_1_1->u.Id.uniqID_1; #line 89 "../defocc.k" { #line 90 "../defocc.k" IDtype kc_selvar_2_1 = uid->type ; #line 90 "../defocc.k" /*SUPPRESS 622*/ assert_IDtype(kc_selvar_2_1, "with_expression (1)"); #line 468 "defocc.c" if (( kc_selvar_2_1->prod_sel == sel_ITStorageClass)) { #line 93 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1ID( "illegal redefinition of storage class:", id ))); #line 472 "defocc.c" } else if (( kc_selvar_2_1->prod_sel == sel_ITPredefinedStorageClass)) { #line 92 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1ID( "illegal redefinition of predefined storage class:", id ))); #line 477 "defocc.c" } else if (( kc_selvar_2_1->prod_sel == sel_ITUnknown)) { #line 91 "../defocc.k" uid->type = it; uid->line = id->line; uid->file = id->file; #line 482 "defocc.c" } else { #line 94 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1t1S1ID( "illegal redefinition of ", uid->type, "as storage class", id ))); #line 487 "defocc.c" } } #line 95 "../defocc.k" #line 492 "defocc.c" } else kc_no_default_in_with( "v_defoccur", __LINE__, __FILE__ ); } #line 95 "../defocc.k" #line 498 "defocc.c" } else if (( kc_selvar_0_1->prod_sel == sel_ITPredefinedStorageClass)) { #line 78 "../defocc.k" { #line 79 "../defocc.k" ID kc_selvar_1_1 = id ; #line 79 "../defocc.k" /*SUPPRESS 622*/ assert_ID(kc_selvar_1_1, "with_expression (1)"); #line 512 "defocc.c" if (( kc_selvar_1_1->prod_sel == sel_Id)) { #line 80 "../defocc.k" uniqID uid = kc_selvar_1_1->u.Id.uniqID_1; #line 80 "../defocc.k" { #line 81 "../defocc.k" IDtype kc_selvar_2_1 = uid->type ; #line 81 "../defocc.k" /*SUPPRESS 622*/ assert_IDtype(kc_selvar_2_1, "with_expression (1)"); #line 527 "defocc.c" if (( kc_selvar_2_1->prod_sel == sel_ITStorageClass)) { #line 84 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1ID( "illegal predefinition of storage class:", id ))); #line 531 "defocc.c" } else if (( kc_selvar_2_1->prod_sel == sel_ITPredefinedStorageClass)) { #line 83 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1ID( "illegal predefinition of predefined storage class:", id ))); #line 536 "defocc.c" } else if (( kc_selvar_2_1->prod_sel == sel_ITUnknown)) { #line 82 "../defocc.k" uid->type = it; uid->line = id->line; uid->file = id->file; #line 541 "defocc.c" } else { #line 85 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1t1S1ID( "illegal predefinition of ", uid->type, "as storage class", id ))); #line 546 "defocc.c" } } #line 86 "../defocc.k" #line 551 "defocc.c" } else kc_no_default_in_with( "v_defoccur", __LINE__, __FILE__ ); } #line 86 "../defocc.k" #line 557 "defocc.c" } else if (( kc_selvar_0_1->prod_sel == sel_ITUserOperator)) { #line 69 "../defocc.k" { #line 70 "../defocc.k" ID kc_selvar_1_1 = id ; #line 70 "../defocc.k" /*SUPPRESS 622*/ assert_ID(kc_selvar_1_1, "with_expression (1)"); #line 571 "defocc.c" if (( kc_selvar_1_1->prod_sel == sel_Id)) { #line 71 "../defocc.k" uniqID uid = kc_selvar_1_1->u.Id.uniqID_1; #line 71 "../defocc.k" { #line 72 "../defocc.k" IDtype kc_selvar_2_1 = uid->type ; #line 72 "../defocc.k" /*SUPPRESS 622*/ assert_IDtype(kc_selvar_2_1, "with_expression (1)"); #line 586 "defocc.c" if (( kc_selvar_2_1->prod_sel == sel_ITUserOperator)) { #line 75 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1ID( "illegal redefinition of operator:", id ))); #line 590 "defocc.c" } else if (( kc_selvar_2_1->prod_sel == sel_ITPredefinedOperator)) { #line 74 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1ID( "illegal redefinition of predefined operator:", id ))); #line 595 "defocc.c" } else if (( kc_selvar_2_1->prod_sel == sel_ITUnknown)) { #line 73 "../defocc.k" uid->type = it; uid->line = id->line; uid->file = id->file; #line 600 "defocc.c" } else { #line 76 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1t1S1ID( "illegal redefinition of ", uid->type, "as operator", id ))); #line 605 "defocc.c" } } #line 77 "../defocc.k" #line 610 "defocc.c" } else kc_no_default_in_with( "v_defoccur", __LINE__, __FILE__ ); } #line 77 "../defocc.k" #line 616 "defocc.c" } else if (( kc_selvar_0_1->prod_sel == sel_ITPredefinedOperator)) { #line 60 "../defocc.k" { #line 61 "../defocc.k" ID kc_selvar_1_1 = id ; #line 61 "../defocc.k" /*SUPPRESS 622*/ assert_ID(kc_selvar_1_1, "with_expression (1)"); #line 630 "defocc.c" if (( kc_selvar_1_1->prod_sel == sel_Id)) { #line 62 "../defocc.k" uniqID uid = kc_selvar_1_1->u.Id.uniqID_1; #line 62 "../defocc.k" { #line 63 "../defocc.k" IDtype kc_selvar_2_1 = uid->type ; #line 63 "../defocc.k" /*SUPPRESS 622*/ assert_IDtype(kc_selvar_2_1, "with_expression (1)"); #line 645 "defocc.c" if (( kc_selvar_2_1->prod_sel == sel_ITUserOperator)) { #line 66 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1ID( "illegal predefinition of operator:", id ))); #line 649 "defocc.c" } else if (( kc_selvar_2_1->prod_sel == sel_ITPredefinedOperator)) { #line 65 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1ID( "illegal predefinition of predefined operator:", id ))); #line 654 "defocc.c" } else if (( kc_selvar_2_1->prod_sel == sel_ITUnknown)) { #line 64 "../defocc.k" uid->type = it; uid->line = id->line; uid->file = id->file; #line 659 "defocc.c" } else { #line 67 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1t1S1ID( "illegal predefinition of ", uid->type, "as operator", id ))); #line 664 "defocc.c" } } #line 68 "../defocc.k" #line 669 "defocc.c" } else kc_no_default_in_with( "v_defoccur", __LINE__, __FILE__ ); } #line 68 "../defocc.k" #line 675 "defocc.c" } else if (( kc_selvar_0_1->prod_sel == sel_ITUserPhylum)) { #line 50 "../defocc.k" { #line 51 "../defocc.k" ID kc_selvar_1_1 = id ; #line 51 "../defocc.k" /*SUPPRESS 622*/ assert_ID(kc_selvar_1_1, "with_expression (1)"); #line 689 "defocc.c" if (( kc_selvar_1_1->prod_sel == sel_Id)) { #line 52 "../defocc.k" uniqID uid = kc_selvar_1_1->u.Id.uniqID_1; #line 52 "../defocc.k" { #line 53 "../defocc.k" IDtype kc_selvar_2_1 = uid->type ; #line 53 "../defocc.k" /*SUPPRESS 622*/ assert_IDtype(kc_selvar_2_1, "with_expression (1)"); #line 704 "defocc.c" if (( kc_selvar_2_1->prod_sel == sel_ITUserPhylum)) { #line 57 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1ID( "illegal redefinition of phylum:", id ))); #line 708 "defocc.c" } else if (( kc_selvar_2_1->prod_sel == sel_ITPredefinedPhylum)) { #line 56 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1ID( "illegal redefinition of predefined phylum:", id ))); #line 713 "defocc.c" } else if (( kc_selvar_2_1->prod_sel == sel_ITPredefinedBigatomPhylum)) { #line 56 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1ID( "illegal redefinition of predefined phylum:", id ))); #line 718 "defocc.c" } else if (( kc_selvar_2_1->prod_sel == sel_ITUnknown)) { #line 54 "../defocc.k" uid->type = it; uid->line = id->line; uid->file = id->file; #line 723 "defocc.c" } else { #line 58 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1t1S1ID( "illegal redefinition of ", uid->type, "as phylum", id ))); #line 728 "defocc.c" } } #line 59 "../defocc.k" #line 733 "defocc.c" } else kc_no_default_in_with( "v_defoccur", __LINE__, __FILE__ ); } #line 59 "../defocc.k" #line 739 "defocc.c" } else if (( kc_selvar_0_1->prod_sel == sel_ITPredefinedPhylum)) { #line 40 "../defocc.k" { #line 41 "../defocc.k" ID kc_selvar_1_1 = id ; #line 41 "../defocc.k" /*SUPPRESS 622*/ assert_ID(kc_selvar_1_1, "with_expression (1)"); #line 753 "defocc.c" if (( kc_selvar_1_1->prod_sel == sel_Id)) { #line 42 "../defocc.k" uniqID uid = kc_selvar_1_1->u.Id.uniqID_1; #line 42 "../defocc.k" { #line 43 "../defocc.k" IDtype kc_selvar_2_1 = uid->type ; #line 43 "../defocc.k" /*SUPPRESS 622*/ assert_IDtype(kc_selvar_2_1, "with_expression (1)"); #line 768 "defocc.c" if (( kc_selvar_2_1->prod_sel == sel_ITUserPhylum)) { #line 47 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1ID( "illegal predefinition of phylum:", id ))); #line 772 "defocc.c" } else if (( kc_selvar_2_1->prod_sel == sel_ITPredefinedPhylum)) { #line 46 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1ID( "illegal predefinition of predefined phylum:", id ))); #line 777 "defocc.c" } else if (( kc_selvar_2_1->prod_sel == sel_ITPredefinedBigatomPhylum)) { #line 46 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1ID( "illegal predefinition of predefined phylum:", id ))); #line 782 "defocc.c" } else if (( kc_selvar_2_1->prod_sel == sel_ITUnknown)) { #line 44 "../defocc.k" uid->type = it; uid->line = id->line; uid->file = id->file; #line 787 "defocc.c" } else { #line 48 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1t1S1ID( "illegal predefinition of ", uid->type, "as phylum", id ))); #line 792 "defocc.c" } } #line 49 "../defocc.k" #line 797 "defocc.c" } else kc_no_default_in_with( "v_defoccur", __LINE__, __FILE__ ); } #line 49 "../defocc.k" #line 803 "defocc.c" } else if (( kc_selvar_0_1->prod_sel == sel_ITPredefinedBigatomPhylum)) { #line 40 "../defocc.k" { #line 41 "../defocc.k" ID kc_selvar_1_1 = id ; #line 41 "../defocc.k" /*SUPPRESS 622*/ assert_ID(kc_selvar_1_1, "with_expression (1)"); #line 817 "defocc.c" if (( kc_selvar_1_1->prod_sel == sel_Id)) { #line 42 "../defocc.k" uniqID uid = kc_selvar_1_1->u.Id.uniqID_1; #line 42 "../defocc.k" { #line 43 "../defocc.k" IDtype kc_selvar_2_1 = uid->type ; #line 43 "../defocc.k" /*SUPPRESS 622*/ assert_IDtype(kc_selvar_2_1, "with_expression (1)"); #line 832 "defocc.c" if (( kc_selvar_2_1->prod_sel == sel_ITUserPhylum)) { #line 47 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1ID( "illegal predefinition of phylum:", id ))); #line 836 "defocc.c" } else if (( kc_selvar_2_1->prod_sel == sel_ITPredefinedPhylum)) { #line 46 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1ID( "illegal predefinition of predefined phylum:", id ))); #line 841 "defocc.c" } else if (( kc_selvar_2_1->prod_sel == sel_ITPredefinedBigatomPhylum)) { #line 46 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1ID( "illegal predefinition of predefined phylum:", id ))); #line 846 "defocc.c" } else if (( kc_selvar_2_1->prod_sel == sel_ITUnknown)) { #line 44 "../defocc.k" uid->type = it; uid->line = id->line; uid->file = id->file; #line 851 "defocc.c" } else { #line 48 "../defocc.k" v_report(NonFatal( FileLine( id->file, id->line ), Problem1S1t1S1ID( "illegal predefinition of ", uid->type, "as phylum", id ))); #line 856 "defocc.c" } } #line 49 "../defocc.k" #line 861 "defocc.c" } else kc_no_default_in_with( "v_defoccur", __LINE__, __FILE__ ); } #line 49 "../defocc.k" #line 867 "defocc.c" } else if (( kc_selvar_0_1->prod_sel == sel_ITUnknown)) { #line 38 "../defocc.k" /*EMPTY*/ #line 872 "defocc.c" } else kc_no_default_in_with( "v_defoccur", __LINE__, __FILE__ ); } #line 155 "../defocc.k" #line 155 "../defocc.k" } #line 880 "defocc.c"