Subversion Repositories tendra.SVN

Rev

Rev 5 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5 Rev 6
Line 1... Line 1...
1 
/*
 1 
/*
2 
 * Automatically generated from the files:
 2 
 * Automatically generated from the files:
3 
 *	/u/g/release/Source/src/utilities/calculus/syntax.sid
 3 
 *	syntax.sid
4 
 * and
 4 
 * and
5 
 *	/u/g/release/Source/src/utilities/calculus/syntax.act
 5 
 *	syntax.act
6 
 * by:
 6 
 * by:
7 
 *	sid
 7 
 *	sid
8 
 */
 8 
 */
9 
 
 9 
 
10 
/* BEGINNING OF HEADER */
 10 
/* BEGINNING OF HEADER */
Line 101... Line 101...
101 
 
 101 
 
102 
 
 102 
 
103 
 
 103 
 
104 
/* BEGINNING OF FUNCTION DECLARATIONS */
 104 
/* BEGINNING OF FUNCTION DECLARATIONS */
105 
 
 105 
 
106 
static void ZR254 PROTO_S ((number, number *));
 106 
static void ZR254(number, number *);
107 
static void ZRimport_Hitem PROTO_S ((void));
 107 
static void ZRimport_Hitem(void);
108 
static void ZR258 PROTO_S ((number, number *));
 108 
static void ZR258(number, number *);
109 
static void ZRprimary_Hexp PROTO_S ((number *));
 109 
static void ZRprimary_Hexp(number *);
110 
static void ZR262 PROTO_S ((number, number *));
 110 
static void ZR262(number, number *);
111 
static void ZR264 PROTO_S ((int *));
 111 
static void ZR264(int *);
112 
static void ZR265 PROTO_S ((int *));
 112 
static void ZR265(int *);
113 
static void ZR268 PROTO_S ((CLASS_ID_P *));
 113 
static void ZR268(CLASS_ID_P *);
114 
static void ZR269 PROTO_S ((string *));
 114 
static void ZR269(string *);
115 
static void ZRextra_Hlist PROTO_S ((void));
 115 
static void ZRextra_Hlist(void);
116 
static void ZRclass_Hid PROTO_S ((CLASS_ID_P *));
 116 
static void ZRclass_Hid(CLASS_ID_P *);
117 
static void ZRnew_Hitem_Hlist PROTO_S ((void));
 117 
static void ZRnew_Hitem_Hlist(void);
118 
extern void extra_calculus PROTO_S ((void));
 118 
extern void extra_calculus(void);
119 
static void ZRunion_Hlist PROTO_S ((UNION_P_LIST *));
 119 
static void ZRunion_Hlist(UNION_P_LIST *);
120 
static void ZRshift_Hexp PROTO_S ((number *));
 120 
static void ZRshift_Hexp(number *);
121 
static void ZRcomponent_Hdecl PROTO_S ((TYPE_P, COMPONENT_P_LIST *));
 121 
static void ZRcomponent_Hdecl(TYPE_P, COMPONENT_P_LIST *);
122 
static void ZRadd_Hexp PROTO_S ((number *));
 122 
static void ZRadd_Hexp(number *);
123 
static void ZRstructure_Hsingle PROTO_S ((STRUCTURE_P_LIST *));
 123 
static void ZRstructure_Hsingle(STRUCTURE_P_LIST *);
124 
static void ZRmap_Hlist PROTO_S ((MAP_P_LIST *));
 124 
static void ZRmap_Hlist(MAP_P_LIST *);
125 
static void ZRprimitive_Hdefn PROTO_S ((CLASS_ID_P, PRIMITIVE_P *));
 125 
static void ZRprimitive_Hdefn(CLASS_ID_P, PRIMITIVE_P *);
126 
static void ZRunary_Hexp PROTO_S ((number *));
 126 
static void ZRunary_Hexp(number *);
127 
static void ZRand_Hexp PROTO_S ((number *));
 127 
static void ZRand_Hexp(number *);
128 
static void ZRargument_Hdecl PROTO_S ((TYPE_P, ARGUMENT_P_LIST *));
 128 
static void ZRargument_Hdecl(TYPE_P, ARGUMENT_P_LIST *);
129 
static void ZRold_Hunit PROTO_S ((void));
 129 
static void ZRold_Hunit(void);
130 
static void ZRenumerator_Hlist PROTO_S ((ECONST_P_LIST *));
 130 
static void ZRenumerator_Hlist(ECONST_P_LIST *);
131 
static void ZRcomponent_Hgroup PROTO_S ((COMPONENT_P_LIST *));
 131 
static void ZRcomponent_Hgroup(COMPONENT_P_LIST *);
132 
static void ZRnew_Hunit PROTO_S ((void));
 132 
static void ZRnew_Hunit(void);
133 
static void ZRidentity_Hdefn PROTO_S ((CLASS_ID_P, IDENTITY_P *));
 133 
static void ZRidentity_Hdefn(CLASS_ID_P, IDENTITY_P *);
134 
static void ZRmult_Hexp PROTO_S ((number *));
 134 
static void ZRmult_Hexp(number *);
135 
extern void read_calculus PROTO_S ((void));
 135 
extern void read_calculus(void);
136 
static void ZRtype PROTO_S ((TYPE_P *));
 136 
static void ZRtype(TYPE_P *);
137 
static void ZRstructure_Hdefn PROTO_S ((CLASS_ID_P, string, STRUCTURE_P *));
 137 
static void ZRstructure_Hdefn(CLASS_ID_P, string, STRUCTURE_P *);
138 
static void ZRcomponent_Hlist PROTO_S ((COMPONENT_P_LIST *));
 138 
static void ZRcomponent_Hlist(COMPONENT_P_LIST *);
139 
static void ZRextended_Htype PROTO_S ((TYPE_P *));
 139 
static void ZRextended_Htype(TYPE_P *);
140 
static void ZRprimitive_Hlist PROTO_S ((PRIMITIVE_P_LIST *));
 140 
static void ZRprimitive_Hlist(PRIMITIVE_P_LIST *);
141 
static void ZR209 PROTO_S ((string *));
 141 
static void ZR209(string *);
142 
static void ZRargument_Hlist PROTO_S ((ARGUMENT_P_LIST *));
 142 
static void ZRargument_Hlist(ARGUMENT_P_LIST *);
143 
static void ZRexpression PROTO_S ((number *));
 143 
static void ZRexpression(number *);
144 
static void ZRxor_Hexp PROTO_S ((number *));
 144 
static void ZRxor_Hexp(number *);
145 
static void ZRidentity_Hlist PROTO_S ((IDENTITY_P_LIST *));
 145 
static void ZRidentity_Hlist(IDENTITY_P_LIST *);
146 
static void ZRor_Hexp PROTO_S ((number *));
 146 
static void ZRor_Hexp(number *);
147 
static void ZRunion_Hsingle PROTO_S ((UNION_P_LIST *));
 147 
static void ZRunion_Hsingle(UNION_P_LIST *);
148 
static void ZRstructure_Hlist PROTO_S ((STRUCTURE_P_LIST *));
 148 
static void ZRstructure_Hlist(STRUCTURE_P_LIST *);
149 
static void ZRunion_Hdefn_Hold PROTO_S ((CLASS_ID_P, UNION_P *));
 149 
static void ZRunion_Hdefn_Hold(CLASS_ID_P, UNION_P *);
150 
static void ZRenum_Hsingle PROTO_S ((ENUM_P_LIST *));
 150 
static void ZRenum_Hsingle(ENUM_P_LIST *);
151 
static void ZRfield_Hid_Hlist PROTO_S ((int, FIELD_P_LIST *));
 151 
static void ZRfield_Hid_Hlist(int, FIELD_P_LIST *);
152 
static void ZR242 PROTO_S ((number, number *));
 152 
static void ZR242(number, number *);
153 
static void ZRfield_Hlist PROTO_S ((FIELD_P_LIST *));
 153 
static void ZRfield_Hlist(FIELD_P_LIST *);
154 
static void ZRunion_Hdefn_Hnew PROTO_S ((CLASS_ID_P, UNION_P *));
 154 
static void ZRunion_Hdefn_Hnew(CLASS_ID_P, UNION_P *);
155 
static void ZR246 PROTO_S ((number, number *));
 155 
static void ZR246(number, number *);
156 
static void ZR250 PROTO_S ((number, number *));
 156 
static void ZR250(number, number *);
157 
 
 157 
 
158 
/* BEGINNING OF STATIC VARIABLES */
 158 
/* BEGINNING OF STATIC VARIABLES */
159 
 
 159 
 
160 
 
 160 
 
161 
/* BEGINNING OF FUNCTION DEFINITIONS */
 161 
/* BEGINNING OF FUNCTION DEFINITIONS */
162 
 
 162 
 
163 
static void
 163 
static void
164 
ZR254 PROTO_N ((ZI252, ZO253))
 - 
 
165 
  PROTO_T (number ZI252 X number *ZO253)
 164 
ZR254(number ZI252, number *ZO253)
166 
{
 165 
{
167 
    number ZI253;
 166 
    number ZI253;
168 
 
 167 
 
169 
  ZL2_254:;
 168 
  ZL2_254:;
170 
    switch (CURRENT_TERMINAL) {
 169 
    switch (CURRENT_TERMINAL) {
Line 221... Line 220...
221 
  ZL0:;
 220 
  ZL0:;
222 
    *ZO253 = ZI253;
 221 
    *ZO253 = ZI253;
223 
}
 222 
}
224 
 
 223 
 
225 
static void
 224 
static void
226 
ZRimport_Hitem PROTO_Z ()
 225 
ZRimport_Hitem(void)
227 
{
 226 
{
228 
    if ((CURRENT_TERMINAL) == 49) {
 227 
    if ((CURRENT_TERMINAL) == 49) {
229 
	return;
 228 
	return;
230 
    }
 229 
    }
231 
    {
 230 
    {
Line 253... Line 252...
253 
    SAVE_LEXER (49);
 252 
    SAVE_LEXER (49);
254 
    return;
 253 
    return;
255 
}
 254 
}
256 
 
 255 
 
257 
static void
 256 
static void
258 
ZR258 PROTO_N ((ZI256, ZO257))
 - 
 
259 
  PROTO_T (number ZI256 X number *ZO257)
 257 
ZR258(number ZI256, number *ZO257)
260 
{
 258 
{
261 
    number ZI257;
 259 
    number ZI257;
262 
 
 260 
 
263 
  ZL2_258:;
 261 
  ZL2_258:;
264 
    switch (CURRENT_TERMINAL) {
 262 
    switch (CURRENT_TERMINAL) {
Line 315... Line 313...
315 
  ZL0:;
 313 
  ZL0:;
316 
    *ZO257 = ZI257;
 314 
    *ZO257 = ZI257;
317 
}
 315 
}
318 
 
 316 
 
319 
static void
 317 
static void
320 
ZRprimary_Hexp PROTO_N ((ZOn))
 318 
ZRprimary_Hexp(number *ZOn)
321 
  PROTO_T (number *ZOn)
 - 
 
322 
{
 319 
{
323 
    number ZIn;
 320 
    number ZIn;
324 
 
 321 
 
325 
    switch (CURRENT_TERMINAL) {
 322 
    switch (CURRENT_TERMINAL) {
326 
      case 0:
 323 
      case 0:
Line 398... Line 395...
398 
  ZL0:;
 395 
  ZL0:;
399 
    *ZOn = ZIn;
 396 
    *ZOn = ZIn;
400 
}
 397 
}
401 
 
 398 
 
402 
static void
 399 
static void
403 
ZR262 PROTO_N ((ZI260, ZO261))
 - 
 
404 
  PROTO_T (number ZI260 X number *ZO261)
 400 
ZR262(number ZI260, number *ZO261)
405 
{
 401 
{
406 
    number ZI261;
 402 
    number ZI261;
407 
 
 403 
 
408 
  ZL2_262:;
 404 
  ZL2_262:;
409 
    switch (CURRENT_TERMINAL) {
 405 
    switch (CURRENT_TERMINAL) {
Line 489... Line 485...
489 
  ZL0:;
 485 
  ZL0:;
490 
    *ZO261 = ZI261;
 486 
    *ZO261 = ZI261;
491 
}
 487 
}
492 
 
 488 
 
493 
static void
 489 
static void
494 
ZR264 PROTO_N ((ZOn))
 - 
 
495 
  PROTO_T (int *ZOn)
 490 
ZR264(int *ZOn)
496 
{
 491 
{
497 
    int ZIn;
 492 
    int ZIn;
498 
 
 493 
 
499 
    switch (CURRENT_TERMINAL) {
 494 
    switch (CURRENT_TERMINAL) {
500 
      case 25:
 495 
      case 25:
Line 517... Line 512...
517 
    }
 512 
    }
518 
    *ZOn = ZIn;
 513 
    *ZOn = ZIn;
519 
}
 514 
}
520 
 
 515 
 
521 
static void
 516 
static void
522 
ZR265 PROTO_N ((ZOn))
 - 
 
523 
  PROTO_T (int *ZOn)
 517 
ZR265(int *ZOn)
524 
{
 518 
{
525 
    int ZIn;
 519 
    int ZIn;
526 
 
 520 
 
527 
    switch (CURRENT_TERMINAL) {
 521 
    switch (CURRENT_TERMINAL) {
528 
      case 34:
 522 
      case 34:
Line 545... Line 539...
545 
    }
 539 
    }
546 
    *ZOn = ZIn;
 540 
    *ZOn = ZIn;
547 
}
 541 
}
548 
 
 542 
 
549 
static void
 543 
static void
550 
ZR268 PROTO_N ((ZI267))
 - 
 
551 
  PROTO_T (CLASS_ID_P *ZI267)
 544 
ZR268(CLASS_ID_P *ZI267)
552 
{
 545 
{
553 
    switch (CURRENT_TERMINAL) {
 546 
    switch (CURRENT_TERMINAL) {
554 
      case 0: case 15: case 16: case 17: case 18:
 547 
      case 0: case 15: case 16: case 17: case 18:
555 
      case 19:
 548 
      case 19:
556 
	{
 549 
	{
Line 612... Line 605...
612 
    SAVE_LEXER (49);
 605 
    SAVE_LEXER (49);
613 
    return;
 606 
    return;
614 
}
 607 
}
615 
 
 608 
 
616 
static void
 609 
static void
617 
ZR269 PROTO_N ((ZIa))
 - 
 
618 
  PROTO_T (string *ZIa)
 610 
ZR269(string *ZIa)
619 
{
 611 
{
620 
    switch (CURRENT_TERMINAL) {
 612 
    switch (CURRENT_TERMINAL) {
621 
      case 26:
 613 
      case 26:
622 
	{
 614 
	{
623 
	    string ZIi;
 615 
	    string ZIi;
Line 656... Line 648...
656 
    SAVE_LEXER (49);
 648 
    SAVE_LEXER (49);
657 
    return;
 649 
    return;
658 
}
 650 
}
659 
 
 651 
 
660 
static void
 652 
static void
661 
ZRextra_Hlist PROTO_Z ()
 653 
ZRextra_Hlist(void)
662 
{
 654 
{
663 
  ZL2_extra_Hlist:;
 655 
  ZL2_extra_Hlist:;
664 
    switch (CURRENT_TERMINAL) {
 656 
    switch (CURRENT_TERMINAL) {
665 
      case 0: case 15: case 16: case 17: case 18:
 657 
      case 0: case 15: case 16: case 17: case 18:
666 
      case 19:
 658 
      case 19:
Line 695... Line 687...
695 
    SAVE_LEXER (49);
 687 
    SAVE_LEXER (49);
696 
    return;
 688 
    return;
697 
}
 689 
}
698 
 
 690 
 
699 
static void
 691 
static void
700 
ZRclass_Hid PROTO_N ((ZOi))
 - 
 
701 
  PROTO_T (CLASS_ID_P *ZOi)
 692 
ZRclass_Hid(CLASS_ID_P *ZOi)
702 
{
 693 
{
703 
    CLASS_ID_P ZIi;
 694 
    CLASS_ID_P ZIi;
704 
 
 695 
 
705 
    if ((CURRENT_TERMINAL) == 49) {
 696 
    if ((CURRENT_TERMINAL) == 49) {
706 
	return;
 697 
	return;
Line 798... Line 789...
798 
  ZL0:;
 789 
  ZL0:;
799 
    *ZOi = ZIi;
 790 
    *ZOi = ZIi;
800 
}
 791 
}
801 
 
 792 
 
802 
static void
 793 
static void
803 
ZRnew_Hitem_Hlist PROTO_Z ()
 794 
ZRnew_Hitem_Hlist(void)
804 
{
 795 
{
805 
  ZL2_new_Hitem_Hlist:;
 796 
  ZL2_new_Hitem_Hlist:;
806 
    switch (CURRENT_TERMINAL) {
 797 
    switch (CURRENT_TERMINAL) {
807 
      case 0: case 4: case 5: case 6: case 7:
 798 
      case 0: case 4: case 5: case 6: case 7:
808 
      case 25: case 34:
 799 
      case 25: case 34:
Line 909... Line 900...
909 
    SAVE_LEXER (49);
 900 
    SAVE_LEXER (49);
910 
    return;
 901 
    return;
911 
}
 902 
}
912 
 
 903 
 
913 
void
 904 
void
914 
extra_calculus PROTO_Z ()
 905 
extra_calculus(void)
915 
{
 906 
{
916 
    if ((CURRENT_TERMINAL) == 49) {
 907 
    if ((CURRENT_TERMINAL) == 49) {
917 
	return;
 908 
	return;
918 
    }
 909 
    }
919 
    {
 910 
    {
Line 938... Line 929...
938 
	}
 929 
	}
939 
    }
 930 
    }
940 
}
 931 
}
941 
 
 932 
 
942 
static void
 933 
static void
943 
ZRunion_Hlist PROTO_N ((ZOp))
 - 
 
944 
  PROTO_T (UNION_P_LIST *ZOp)
 934 
ZRunion_Hlist(UNION_P_LIST *ZOp)
945 
{
 935 
{
946 
    UNION_P_LIST ZIp;
 936 
    UNION_P_LIST ZIp;
947 
 
 937 
 
948 
    switch (CURRENT_TERMINAL) {
 938 
    switch (CURRENT_TERMINAL) {
949 
      case 0: case 25: case 34:
 939 
      case 0: case 25: case 34:
Line 983... Line 973...
983 
  ZL0:;
 973 
  ZL0:;
984 
    *ZOp = ZIp;
 974 
    *ZOp = ZIp;
985 
}
 975 
}
986 
 
 976 
 
987 
static void
 977 
static void
988 
ZRshift_Hexp PROTO_N ((ZO253))
 978 
ZRshift_Hexp(number *ZO253)
989 
  PROTO_T (number *ZO253)
 - 
 
990 
{
 979 
{
991 
    number ZI253;
 980 
    number ZI253;
992 
 
 981 
 
993 
    if ((CURRENT_TERMINAL) == 49) {
 982 
    if ((CURRENT_TERMINAL) == 49) {
994 
	return;
 983 
	return;
Line 1010... Line 999...
1010 
  ZL0:;
 999 
  ZL0:;
1011 
    *ZO253 = ZI253;
 1000 
    *ZO253 = ZI253;
1012 
}
 1001 
}
1013 
 
 1002 
 
1014 
static void
 1003 
static void
1015 
ZRcomponent_Hdecl PROTO_N ((ZIt, ZOp))
 - 
 
1016 
  PROTO_T (TYPE_P ZIt X COMPONENT_P_LIST *ZOp)
 1004 
ZRcomponent_Hdecl(TYPE_P ZIt, COMPONENT_P_LIST *ZOp)
1017 
{
 1005 
{
1018 
    COMPONENT_P_LIST ZIp;
 1006 
    COMPONENT_P_LIST ZIp;
1019 
 
 1007 
 
1020 
    if ((CURRENT_TERMINAL) == 49) {
 1008 
    if ((CURRENT_TERMINAL) == 49) {
1021 
	return;
 1009 
	return;
Line 1104... Line 1092...
1104 
  ZL0:;
 1092 
  ZL0:;
1105 
    *ZOp = ZIp;
 1093 
    *ZOp = ZIp;
1106 
}
 1094 
}
1107 
 
 1095 
 
1108 
static void
 1096 
static void
1109 
ZRadd_Hexp PROTO_N ((ZO257))
 - 
 
1110 
  PROTO_T (number *ZO257)
 1097 
ZRadd_Hexp(number *ZO257)
1111 
{
 1098 
{
1112 
    number ZI257;
 1099 
    number ZI257;
1113 
 
 1100 
 
1114 
    if ((CURRENT_TERMINAL) == 49) {
 1101 
    if ((CURRENT_TERMINAL) == 49) {
1115 
	return;
 1102 
	return;
Line 1131... Line 1118...
1131 
  ZL0:;
 1118 
  ZL0:;
1132 
    *ZO257 = ZI257;
 1119 
    *ZO257 = ZI257;
1133 
}
 1120 
}
1134 
 
 1121 
 
1135 
static void
 1122 
static void
1136 
ZRstructure_Hsingle PROTO_N ((ZOp))
 1123 
ZRstructure_Hsingle(STRUCTURE_P_LIST *ZOp)
1137 
  PROTO_T (STRUCTURE_P_LIST *ZOp)
 - 
 
1138 
{
 1124 
{
1139 
    STRUCTURE_P_LIST ZIp;
 1125 
    STRUCTURE_P_LIST ZIp;
1140 
 
 1126 
 
1141 
    if ((CURRENT_TERMINAL) == 49) {
 1127 
    if ((CURRENT_TERMINAL) == 49) {
1142 
	return;
 1128 
	return;
Line 1187... Line 1173...
1187 
  ZL0:;
 1173 
  ZL0:;
1188 
    *ZOp = ZIp;
 1174 
    *ZOp = ZIp;
1189 
}
 1175 
}
1190 
 
 1176 
 
1191 
static void
 1177 
static void
1192 
ZRmap_Hlist PROTO_N ((ZOp))
 - 
 
1193 
  PROTO_T (MAP_P_LIST *ZOp)
 1178 
ZRmap_Hlist(MAP_P_LIST *ZOp)
1194 
{
 1179 
{
1195 
    MAP_P_LIST ZIp;
 1180 
    MAP_P_LIST ZIp;
1196 
 
 1181 
 
1197 
    switch (CURRENT_TERMINAL) {
 1182 
    switch (CURRENT_TERMINAL) {
1198 
      case 0: case 2: case 15: case 16: case 17:
 1183 
      case 0: case 2: case 15: case 16: case 17:
Line 1309... Line 1294...
1309 
  ZL0:;
 1294 
  ZL0:;
1310 
    *ZOp = ZIp;
 1295 
    *ZOp = ZIp;
1311 
}
 1296 
}
1312 
 
 1297 
 
1313 
static void
 1298 
static void
1314 
ZRprimitive_Hdefn PROTO_N ((ZIi, ZOp))
 - 
 
1315 
  PROTO_T (CLASS_ID_P ZIi X PRIMITIVE_P *ZOp)
 1299 
ZRprimitive_Hdefn(CLASS_ID_P ZIi, PRIMITIVE_P *ZOp)
1316 
{
 1300 
{
1317 
    PRIMITIVE_P ZIp;
 1301 
    PRIMITIVE_P ZIp;
1318 
 
 1302 
 
1319 
    if ((CURRENT_TERMINAL) == 49) {
 1303 
    if ((CURRENT_TERMINAL) == 49) {
1320 
	return;
 1304 
	return;
Line 1359... Line 1343...
1359 
  ZL0:;
 1343 
  ZL0:;
1360 
    *ZOp = ZIp;
 1344 
    *ZOp = ZIp;
1361 
}
 1345 
}
1362 
 
 1346 
 
1363 
static void
 1347 
static void
1364 
ZRunary_Hexp PROTO_N ((ZOn))
 1348 
ZRunary_Hexp(number *ZOn)
1365 
  PROTO_T (number *ZOn)
 - 
 
1366 
{
 1349 
{
1367 
    number ZIn;
 1350 
    number ZIn;
1368 
 
 1351 
 
1369 
    switch (CURRENT_TERMINAL) {
 1352 
    switch (CURRENT_TERMINAL) {
1370 
      case 28:
 1353 
      case 28:
Line 1448... Line 1431...
1448 
  ZL0:;
 1431 
  ZL0:;
1449 
    *ZOn = ZIn;
 1432 
    *ZOn = ZIn;
1450 
}
 1433 
}
1451 
 
 1434 
 
1452 
static void
 1435 
static void
1453 
ZRand_Hexp PROTO_N ((ZO249))
 - 
 
1454 
  PROTO_T (number *ZO249)
 1436 
ZRand_Hexp(number *ZO249)
1455 
{
 1437 
{
1456 
    number ZI249;
 1438 
    number ZI249;
1457 
 
 1439 
 
1458 
    if ((CURRENT_TERMINAL) == 49) {
 1440 
    if ((CURRENT_TERMINAL) == 49) {
1459 
	return;
 1441 
	return;
Line 1475... Line 1457...
1475 
  ZL0:;
 1457 
  ZL0:;
1476 
    *ZO249 = ZI249;
 1458 
    *ZO249 = ZI249;
1477 
}
 1459 
}
1478 
 
 1460 
 
1479 
static void
 1461 
static void
1480 
ZRargument_Hdecl PROTO_N ((ZIt, ZOp))
 - 
 
1481 
  PROTO_T (TYPE_P ZIt X ARGUMENT_P_LIST *ZOp)
 1462 
ZRargument_Hdecl(TYPE_P ZIt, ARGUMENT_P_LIST *ZOp)
1482 
{
 1463 
{
1483 
    ARGUMENT_P_LIST ZIp;
 1464 
    ARGUMENT_P_LIST ZIp;
1484 
 
 1465 
 
1485 
    if ((CURRENT_TERMINAL) == 49) {
 1466 
    if ((CURRENT_TERMINAL) == 49) {
1486 
	return;
 1467 
	return;
Line 1540... Line 1521...
1540 
  ZL0:;
 1521 
  ZL0:;
1541 
    *ZOp = ZIp;
 1522 
    *ZOp = ZIp;
1542 
}
 1523 
}
1543 
 
 1524 
 
1544 
static void
 1525 
static void
1545 
ZRold_Hunit PROTO_Z ()
 1526 
ZRold_Hunit(void)
1546 
{
 1527 
{
1547 
    if ((CURRENT_TERMINAL) == 49) {
 1528 
    if ((CURRENT_TERMINAL) == 49) {
1548 
	return;
 1529 
	return;
1549 
    }
 1530 
    }
1550 
    {
 1531 
    {
Line 1704... Line 1685...
1704 
    SAVE_LEXER (49);
 1685 
    SAVE_LEXER (49);
1705 
    return;
 1686 
    return;
1706 
}
 1687 
}
1707 
 
 1688 
 
1708 
static void
 1689 
static void
1709 
ZRenumerator_Hlist PROTO_N ((ZOp))
 1690 
ZRenumerator_Hlist(ECONST_P_LIST *ZOp)
1710 
  PROTO_T (ECONST_P_LIST *ZOp)
 - 
 
1711 
{
 1691 
{
1712 
    ECONST_P_LIST ZIp;
 1692 
    ECONST_P_LIST ZIp;
1713 
 
 1693 
 
1714 
    switch (CURRENT_TERMINAL) {
 1694 
    switch (CURRENT_TERMINAL) {
1715 
      case 0:
 1695 
      case 0:
Line 1799... Line 1779...
1799 
  ZL0:;
 1779 
  ZL0:;
1800 
    *ZOp = ZIp;
 1780 
    *ZOp = ZIp;
1801 
}
 1781 
}
1802 
 
 1782 
 
1803 
static void
 1783 
static void
1804 
ZRcomponent_Hgroup PROTO_N ((ZOp))
 1784 
ZRcomponent_Hgroup(COMPONENT_P_LIST *ZOp)
1805 
  PROTO_T (COMPONENT_P_LIST *ZOp)
 - 
 
1806 
{
 1785 
{
1807 
    COMPONENT_P_LIST ZIp;
 1786 
    COMPONENT_P_LIST ZIp;
1808 
 
 1787 
 
1809 
    if ((CURRENT_TERMINAL) == 49) {
 1788 
    if ((CURRENT_TERMINAL) == 49) {
1810 
	return;
 1789 
	return;
Line 1836... Line 1815...
1836 
  ZL0:;
 1815 
  ZL0:;
1837 
    *ZOp = ZIp;
 1816 
    *ZOp = ZIp;
1838 
}
 1817 
}
1839 
 
 1818 
 
1840 
static void
 1819 
static void
1841 
ZRnew_Hunit PROTO_Z ()
 1820 
ZRnew_Hunit(void)
1842 
{
 1821 
{
1843 
    if ((CURRENT_TERMINAL) == 49) {
 1822 
    if ((CURRENT_TERMINAL) == 49) {
1844 
	return;
 1823 
	return;
1845 
    }
 1824 
    }
1846 
    {
 1825 
    {
Line 1950... Line 1929...
1950 
    SAVE_LEXER (49);
 1929 
    SAVE_LEXER (49);
1951 
    return;
 1930 
    return;
1952 
}
 1931 
}
1953 
 
 1932 
 
1954 
static void
 1933 
static void
1955 
ZRidentity_Hdefn PROTO_N ((ZIi, ZOp))
 - 
 
1956 
  PROTO_T (CLASS_ID_P ZIi X IDENTITY_P *ZOp)
 1934 
ZRidentity_Hdefn(CLASS_ID_P ZIi, IDENTITY_P *ZOp)
1957 
{
 1935 
{
1958 
    IDENTITY_P ZIp;
 1936 
    IDENTITY_P ZIp;
1959 
 
 1937 
 
1960 
    if ((CURRENT_TERMINAL) == 49) {
 1938 
    if ((CURRENT_TERMINAL) == 49) {
1961 
	return;
 1939 
	return;
Line 1993... Line 1971...
1993 
  ZL0:;
 1971 
  ZL0:;
1994 
    *ZOp = ZIp;
 1972 
    *ZOp = ZIp;
1995 
}
 1973 
}
1996 
 
 1974 
 
1997 
static void
 1975 
static void
1998 
ZRmult_Hexp PROTO_N ((ZO261))
 1976 
ZRmult_Hexp(number *ZO261)
1999 
  PROTO_T (number *ZO261)
 - 
 
2000 
{
 1977 
{
2001 
    number ZI261;
 1978 
    number ZI261;
2002 
 
 1979 
 
2003 
    if ((CURRENT_TERMINAL) == 49) {
 1980 
    if ((CURRENT_TERMINAL) == 49) {
2004 
	return;
 1981 
	return;
Line 2020... Line 1997...
2020 
  ZL0:;
 1997 
  ZL0:;
2021 
    *ZO261 = ZI261;
 1998 
    *ZO261 = ZI261;
2022 
}
 1999 
}
2023 
 
 2000 
 
2024 
void
 2001 
void
2025 
read_calculus PROTO_Z ()
 2002 
read_calculus(void)
2026 
{
 2003 
{
2027 
    if ((CURRENT_TERMINAL) == 49) {
 2004 
    if ((CURRENT_TERMINAL) == 49) {
2028 
	return;
 2005 
	return;
2029 
    }
 2006 
    }
2030 
    {
 2007 
    {
Line 2073... Line 2050...
2073 
	}
 2050 
	}
2074 
    }
 2051 
    }
2075 
}
 2052 
}
2076 
 
 2053 
 
2077 
static void
 2054 
static void
2078 
ZRtype PROTO_N ((ZOt))
 - 
 
2079 
  PROTO_T (TYPE_P *ZOt)
 2055 
ZRtype(TYPE_P *ZOt)
2080 
{
 2056 
{
2081 
    TYPE_P ZIt;
 2057 
    TYPE_P ZIt;
2082 
 
 2058 
 
2083 
    switch (CURRENT_TERMINAL) {
 2059 
    switch (CURRENT_TERMINAL) {
2084 
      case 0:
 2060 
      case 0:
Line 2193... Line 2169...
2193 
  ZL0:;
 2169 
  ZL0:;
2194 
    *ZOt = ZIt;
 2170 
    *ZOt = ZIt;
2195 
}
 2171 
}
2196 
 
 2172 
 
2197 
static void
 2173 
static void
2198 
ZRstructure_Hdefn PROTO_N ((ZIi, ZIj, ZOp))
 - 
 
2199 
  PROTO_T (CLASS_ID_P ZIi X string ZIj X STRUCTURE_P *ZOp)
 2174 
ZRstructure_Hdefn(CLASS_ID_P ZIi, string ZIj, STRUCTURE_P *ZOp)
2200 
{
 2175 
{
2201 
    STRUCTURE_P ZIp;
 2176 
    STRUCTURE_P ZIp;
2202 
 
 2177 
 
2203 
    if ((CURRENT_TERMINAL) == 49) {
 2178 
    if ((CURRENT_TERMINAL) == 49) {
2204 
	return;
 2179 
	return;
Line 2248... Line 2223...
2248 
  ZL0:;
 2223 
  ZL0:;
2249 
    *ZOp = ZIp;
 2224 
    *ZOp = ZIp;
2250 
}
 2225 
}
2251 
 
 2226 
 
2252 
static void
 2227 
static void
2253 
ZRcomponent_Hlist PROTO_N ((ZOp))
 - 
 
2254 
  PROTO_T (COMPONENT_P_LIST *ZOp)
 2228 
ZRcomponent_Hlist(COMPONENT_P_LIST *ZOp)
2255 
{
 2229 
{
2256 
    COMPONENT_P_LIST ZIp;
 2230 
    COMPONENT_P_LIST ZIp;
2257 
 
 2231 
 
2258 
    switch (CURRENT_TERMINAL) {
 2232 
    switch (CURRENT_TERMINAL) {
2259 
      case 0: case 15: case 16: case 17: case 18:
 2233 
      case 0: case 15: case 16: case 17: case 18:
Line 2304... Line 2278...
2304 
  ZL0:;
 2278 
  ZL0:;
2305 
    *ZOp = ZIp;
 2279 
    *ZOp = ZIp;
2306 
}
 2280 
}
2307 
 
 2281 
 
2308 
static void
 2282 
static void
2309 
ZRextended_Htype PROTO_N ((ZOt))
 2283 
ZRextended_Htype(TYPE_P *ZOt)
2310 
  PROTO_T (TYPE_P *ZOt)
 - 
 
2311 
{
 2284 
{
2312 
    TYPE_P ZIt;
 2285 
    TYPE_P ZIt;
2313 
 
 2286 
 
2314 
    switch (CURRENT_TERMINAL) {
 2287 
    switch (CURRENT_TERMINAL) {
2315 
      case 2:
 2288 
      case 2:
Line 2357... Line 2330...
2357 
  ZL0:;
 2330 
  ZL0:;
2358 
    *ZOt = ZIt;
 2331 
    *ZOt = ZIt;
2359 
}
 2332 
}
2360 
 
 2333 
 
2361 
static void
 2334 
static void
2362 
ZRprimitive_Hlist PROTO_N ((ZOp))
 - 
 
2363 
  PROTO_T (PRIMITIVE_P_LIST *ZOp)
 2335 
ZRprimitive_Hlist(PRIMITIVE_P_LIST *ZOp)
2364 
{
 2336 
{
2365 
    PRIMITIVE_P_LIST ZIp;
 2337 
    PRIMITIVE_P_LIST ZIp;
2366 
 
 2338 
 
2367 
    switch (CURRENT_TERMINAL) {
 2339 
    switch (CURRENT_TERMINAL) {
2368 
      case 0: case 25: case 34:
 2340 
      case 0: case 25: case 34:
Line 2412... Line 2384...
2412 
  ZL0:;
 2384 
  ZL0:;
2413 
    *ZOp = ZIp;
 2385 
    *ZOp = ZIp;
2414 
}
 2386 
}
2415 
 
 2387 
 
2416 
static void
 2388 
static void
2417 
ZR209 PROTO_N ((ZOj))
 - 
 
2418 
  PROTO_T (string *ZOj)
 2389 
ZR209(string *ZOj)
2419 
{
 2390 
{
2420 
    string ZIj;
 2391 
    string ZIj;
2421 
 
 2392 
 
2422 
    switch (CURRENT_TERMINAL) {
 2393 
    switch (CURRENT_TERMINAL) {
2423 
      case 0:
 2394 
      case 0:
Line 2454... Line 2425...
2454 
  ZL0:;
 2425 
  ZL0:;
2455 
    *ZOj = ZIj;
 2426 
    *ZOj = ZIj;
2456 
}
 2427 
}
2457 
 
 2428 
 
2458 
static void
 2429 
static void
2459 
ZRargument_Hlist PROTO_N ((ZOp))
 - 
 
2460 
  PROTO_T (ARGUMENT_P_LIST *ZOp)
 2430 
ZRargument_Hlist(ARGUMENT_P_LIST *ZOp)
2461 
{
 2431 
{
2462 
    ARGUMENT_P_LIST ZIp;
 2432 
    ARGUMENT_P_LIST ZIp;
2463 
 
 2433 
 
2464 
    if ((CURRENT_TERMINAL) == 49) {
 2434 
    if ((CURRENT_TERMINAL) == 49) {
2465 
	return;
 2435 
	return;
Line 2508... Line 2478...
2508 
  ZL0:;
 2478 
  ZL0:;
2509 
    *ZOp = ZIp;
 2479 
    *ZOp = ZIp;
2510 
}
 2480 
}
2511 
 
 2481 
 
2512 
static void
 2482 
static void
2513 
ZRexpression PROTO_N ((ZOn))
 2483 
ZRexpression(number *ZOn)
2514 
  PROTO_T (number *ZOn)
 - 
 
2515 
{
 2484 
{
2516 
    number ZIn;
 2485 
    number ZIn;
2517 
 
 2486 
 
2518 
    if ((CURRENT_TERMINAL) == 49) {
 2487 
    if ((CURRENT_TERMINAL) == 49) {
2519 
	return;
 2488 
	return;
Line 2532... Line 2501...
2532 
  ZL0:;
 2501 
  ZL0:;
2533 
    *ZOn = ZIn;
 2502 
    *ZOn = ZIn;
2534 
}
 2503 
}
2535 
 
 2504 
 
2536 
static void
 2505 
static void
2537 
ZRxor_Hexp PROTO_N ((ZO245))
 - 
 
2538 
  PROTO_T (number *ZO245)
 2506 
ZRxor_Hexp(number *ZO245)
2539 
{
 2507 
{
2540 
    number ZI245;
 2508 
    number ZI245;
2541 
 
 2509 
 
2542 
    if ((CURRENT_TERMINAL) == 49) {
 2510 
    if ((CURRENT_TERMINAL) == 49) {
2543 
	return;
 2511 
	return;
Line 2559... Line 2527...
2559 
  ZL0:;
 2527 
  ZL0:;
2560 
    *ZO245 = ZI245;
 2528 
    *ZO245 = ZI245;
2561 
}
 2529 
}
2562 
 
 2530 
 
2563 
static void
 2531 
static void
2564 
ZRidentity_Hlist PROTO_N ((ZOp))
 - 
 
2565 
  PROTO_T (IDENTITY_P_LIST *ZOp)
 2532 
ZRidentity_Hlist(IDENTITY_P_LIST *ZOp)
2566 
{
 2533 
{
2567 
    IDENTITY_P_LIST ZIp;
 2534 
    IDENTITY_P_LIST ZIp;
2568 
 
 2535 
 
2569 
    switch (CURRENT_TERMINAL) {
 2536 
    switch (CURRENT_TERMINAL) {
2570 
      case 0: case 25: case 34:
 2537 
      case 0: case 25: case 34:
Line 2614... Line 2581...
2614 
  ZL0:;
 2581 
  ZL0:;
2615 
    *ZOp = ZIp;
 2582 
    *ZOp = ZIp;
2616 
}
 2583 
}
2617 
 
 2584 
 
2618 
static void
 2585 
static void
2619 
ZRor_Hexp PROTO_N ((ZO241))
 - 
 
2620 
  PROTO_T (number *ZO241)
 2586 
ZRor_Hexp(number *ZO241)
2621 
{
 2587 
{
2622 
    number ZI241;
 2588 
    number ZI241;
2623 
 
 2589 
 
2624 
    if ((CURRENT_TERMINAL) == 49) {
 2590 
    if ((CURRENT_TERMINAL) == 49) {
2625 
	return;
 2591 
	return;
Line 2641... Line 2607...
2641 
  ZL0:;
 2607 
  ZL0:;
2642 
    *ZO241 = ZI241;
 2608 
    *ZO241 = ZI241;
2643 
}
 2609 
}
2644 
 
 2610 
 
2645 
static void
 2611 
static void
2646 
ZRunion_Hsingle PROTO_N ((ZOp))
 2612 
ZRunion_Hsingle(UNION_P_LIST *ZOp)
2647 
  PROTO_T (UNION_P_LIST *ZOp)
 - 
 
2648 
{
 2613 
{
2649 
    UNION_P_LIST ZIp;
 2614 
    UNION_P_LIST ZIp;
2650 
 
 2615 
 
2651 
    if ((CURRENT_TERMINAL) == 49) {
 2616 
    if ((CURRENT_TERMINAL) == 49) {
2652 
	return;
 2617 
	return;
Line 2685... Line 2650...
2685 
  ZL0:;
 2650 
  ZL0:;
2686 
    *ZOp = ZIp;
 2651 
    *ZOp = ZIp;
2687 
}
 2652 
}
2688 
 
 2653 
 
2689 
static void
 2654 
static void
2690 
ZRstructure_Hlist PROTO_N ((ZOp))
 - 
 
2691 
  PROTO_T (STRUCTURE_P_LIST *ZOp)
 2655 
ZRstructure_Hlist(STRUCTURE_P_LIST *ZOp)
2692 
{
 2656 
{
2693 
    STRUCTURE_P_LIST ZIp;
 2657 
    STRUCTURE_P_LIST ZIp;
2694 
 
 2658 
 
2695 
    switch (CURRENT_TERMINAL) {
 2659 
    switch (CURRENT_TERMINAL) {
2696 
      case 0: case 25: case 34:
 2660 
      case 0: case 25: case 34:
Line 2739... Line 2703...
2739 
  ZL0:;
 2703 
  ZL0:;
2740 
    *ZOp = ZIp;
 2704 
    *ZOp = ZIp;
2741 
}
 2705 
}
2742 
 
 2706 
 
2743 
static void
 2707 
static void
2744 
ZRunion_Hdefn_Hold PROTO_N ((ZIi, ZOp))
 - 
 
2745 
  PROTO_T (CLASS_ID_P ZIi X UNION_P *ZOp)
 2708 
ZRunion_Hdefn_Hold(CLASS_ID_P ZIi, UNION_P *ZOp)
2746 
{
 2709 
{
2747 
    UNION_P ZIp;
 2710 
    UNION_P ZIp;
2748 
 
 2711 
 
2749 
    if ((CURRENT_TERMINAL) == 49) {
 2712 
    if ((CURRENT_TERMINAL) == 49) {
2750 
	return;
 2713 
	return;
Line 2905... Line 2868...
2905 
  ZL0:;
 2868 
  ZL0:;
2906 
    *ZOp = ZIp;
 2869 
    *ZOp = ZIp;
2907 
}
 2870 
}
2908 
 
 2871 
 
2909 
static void
 2872 
static void
2910 
ZRenum_Hsingle PROTO_N ((ZOp))
 2873 
ZRenum_Hsingle(ENUM_P_LIST *ZOp)
2911 
  PROTO_T (ENUM_P_LIST *ZOp)
 - 
 
2912 
{
 2874 
{
2913 
    ENUM_P_LIST ZIp;
 2875 
    ENUM_P_LIST ZIp;
2914 
 
 2876 
 
2915 
    if ((CURRENT_TERMINAL) == 49) {
 2877 
    if ((CURRENT_TERMINAL) == 49) {
2916 
	return;
 2878 
	return;
Line 3061... Line 3023...
3061 
  ZL0:;
 3023 
  ZL0:;
3062 
    *ZOp = ZIp;
 3024 
    *ZOp = ZIp;
3063 
}
 3025 
}
3064 
 
 3026 
 
3065 
static void
 3027 
static void
3066 
ZRfield_Hid_Hlist PROTO_N ((ZIn, ZOp))
 - 
 
3067 
  PROTO_T (int ZIn X FIELD_P_LIST *ZOp)
 3028 
ZRfield_Hid_Hlist(int ZIn, FIELD_P_LIST *ZOp)
3068 
{
 3029 
{
3069 
    FIELD_P_LIST ZIp;
 3030 
    FIELD_P_LIST ZIp;
3070 
 
 3031 
 
3071 
    if ((CURRENT_TERMINAL) == 49) {
 3032 
    if ((CURRENT_TERMINAL) == 49) {
3072 
	return;
 3033 
	return;
Line 3132... Line 3093...
3132 
  ZL0:;
 3093 
  ZL0:;
3133 
    *ZOp = ZIp;
 3094 
    *ZOp = ZIp;
3134 
}
 3095 
}
3135 
 
 3096 
 
3136 
static void
 3097 
static void
3137 
ZR242 PROTO_N ((ZI240, ZO241))
 - 
 
3138 
  PROTO_T (number ZI240 X number *ZO241)
 3098 
ZR242(number ZI240, number *ZO241)
3139 
{
 3099 
{
3140 
    number ZI241;
 3100 
    number ZI241;
3141 
 
 3101 
 
3142 
  ZL2_242:;
 3102 
  ZL2_242:;
3143 
    switch (CURRENT_TERMINAL) {
 3103 
    switch (CURRENT_TERMINAL) {
Line 3175... Line 3135...
3175 
  ZL0:;
 3135 
  ZL0:;
3176 
    *ZO241 = ZI241;
 3136 
    *ZO241 = ZI241;
3177 
}
 3137 
}
3178 
 
 3138 
 
3179 
static void
 3139 
static void
3180 
ZRfield_Hlist PROTO_N ((ZOp))
 - 
 
3181 
  PROTO_T (FIELD_P_LIST *ZOp)
 3140 
ZRfield_Hlist(FIELD_P_LIST *ZOp)
3182 
{
 3141 
{
3183 
    FIELD_P_LIST ZIp;
 3142 
    FIELD_P_LIST ZIp;
3184 
 
 3143 
 
3185 
    if ((CURRENT_TERMINAL) == 49) {
 3144 
    if ((CURRENT_TERMINAL) == 49) {
3186 
	return;
 3145 
	return;
Line 3286... Line 3245...
3286 
  ZL0:;
 3245 
  ZL0:;
3287 
    *ZOp = ZIp;
 3246 
    *ZOp = ZIp;
3288 
}
 3247 
}
3289 
 
 3248 
 
3290 
static void
 3249 
static void
3291 
ZRunion_Hdefn_Hnew PROTO_N ((ZIi, ZOp))
 - 
 
3292 
  PROTO_T (CLASS_ID_P ZIi X UNION_P *ZOp)
 3250 
ZRunion_Hdefn_Hnew(CLASS_ID_P ZIi, UNION_P *ZOp)
3293 
{
 3251 
{
3294 
    UNION_P ZIp;
 3252 
    UNION_P ZIp;
3295 
 
 3253 
 
3296 
    if ((CURRENT_TERMINAL) == 49) {
 3254 
    if ((CURRENT_TERMINAL) == 49) {
3297 
	return;
 3255 
	return;
Line 3480... Line 3438...
3480 
  ZL0:;
 3438 
  ZL0:;
3481 
    *ZOp = ZIp;
 3439 
    *ZOp = ZIp;
3482 
}
 3440 
}
3483 
 
 3441 
 
3484 
static void
 3442 
static void
3485 
ZR246 PROTO_N ((ZI244, ZO245))
 - 
 
3486 
  PROTO_T (number ZI244 X number *ZO245)
 3443 
ZR246(number ZI244, number *ZO245)
3487 
{
 3444 
{
3488 
    number ZI245;
 3445 
    number ZI245;
3489 
 
 3446 
 
3490 
  ZL2_246:;
 3447 
  ZL2_246:;
3491 
    switch (CURRENT_TERMINAL) {
 3448 
    switch (CURRENT_TERMINAL) {
Line 3523... Line 3480...
3523 
  ZL0:;
 3480 
  ZL0:;
3524 
    *ZO245 = ZI245;
 3481 
    *ZO245 = ZI245;
3525 
}
 3482 
}
3526 
 
 3483 
 
3527 
static void
 3484 
static void
3528 
ZR250 PROTO_N ((ZI248, ZO249))
 - 
 
3529 
  PROTO_T (number ZI248 X number *ZO249)
 3485 
ZR250(number ZI248, number *ZO249)
3530 
{
 3486 
{
3531 
    number ZI249;
 3487 
    number ZI249;
3532 
 
 3488 
 
3533 
  ZL2_250:;
 3489 
  ZL2_250:;
3534 
    switch (CURRENT_TERMINAL) {
 3490 
    switch (CURRENT_TERMINAL) {