Subversion Repositories tendra.SVN

Rev

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

Rev 2 Rev 7
Line 1... Line 1...
1 
/*
 1 
/*
2 
 * Automatically generated from the files:
 2 
 * Automatically generated from the files:
3 
 *	/u/g/release/Source/src/producers/cpp/syntax/syntax.sid
 3 
 *	syntax.sid
4 
 * and
 4 
 * and
5 
 *	/u/g/release/Source/src/producers/cpp/syntax/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 129... Line 129...
129 
#endif
 129 
#endif
130 
 
 130 
 
131 
 
 131 
 
132 
 
 132 
 
133 
void
 133 
void
134 
parse_type PROTO_N ((ZO414))
 134 
parse_type(TYPE *ZO414)
135 
  PROTO_T (TYPE *ZO414)
 - 
 
136 
{
 135 
{
137 
    TYPE ZI414;
 136 
    TYPE ZI414;
138 
 
 137 
 
139 
    if ((CURRENT_TERMINAL) == 354) {
 138 
    if ((CURRENT_TERMINAL) == 354) {
140 
	return;
 139 
	return;
Line 168... Line 167...
168 
  ZL0:;
 167 
  ZL0:;
169 
    *ZO414 = ZI414;
 168 
    *ZO414 = ZI414;
170 
}
 169 
}
171 
 
 170 
 
172 
void
 171 
void
173 
ZR1096 PROTO_N ((ZO459))
 - 
 
174 
  PROTO_T (IDENTIFIER *ZO459)
 172 
ZR1096(IDENTIFIER *ZO459)
175 
{
 173 
{
176 
    IDENTIFIER ZI459;
 174 
    IDENTIFIER ZI459;
177 
 
 175 
 
178 
    if ((CURRENT_TERMINAL) == 354) {
 176 
    if ((CURRENT_TERMINAL) == 354) {
179 
	return;
 177 
	return;
Line 273... Line 271...
273 
  ZL0:;
 271 
  ZL0:;
274 
    *ZO459 = ZI459;
 272 
    *ZO459 = ZI459;
275 
}
 273 
}
276 
 
 274 
 
277 
void
 275 
void
278 
ZR1127 PROTO_N ((ZI456, ZI574, ZO1152, ZO1153))
 - 
 
279 
  PROTO_T (OFFSET ZI456 X TYPE ZI574 X OFFSET *ZO1152 X TYPE *ZO1153)
 276 
ZR1127(OFFSET ZI456, TYPE ZI574, OFFSET *ZO1152, TYPE *ZO1153)
280 
{
 277 
{
281 
    OFFSET ZI1152;
 278 
    OFFSET ZI1152;
282 
    TYPE ZI1153;
 279 
    TYPE ZI1153;
283 
 
 280 
 
284 
    if ((CURRENT_TERMINAL) == 354) {
 281 
    if ((CURRENT_TERMINAL) == 354) {
Line 319... Line 316...
319 
    *ZO1152 = ZI1152;
 316 
    *ZO1152 = ZI1152;
320 
    *ZO1153 = ZI1153;
 317 
    *ZO1153 = ZI1153;
321 
}
 318 
}
322 
 
 319 
 
323 
void
 320 
void
324 
ZR473 PROTO_N ((ZO419))
 - 
 
325 
  PROTO_T (IDENTIFIER *ZO419)
 321 
ZR473(IDENTIFIER *ZO419)
326 
{
 322 
{
327 
    IDENTIFIER ZI419;
 323 
    IDENTIFIER ZI419;
328 
 
 324 
 
329 
    switch (CURRENT_TERMINAL) {
 325 
    switch (CURRENT_TERMINAL) {
330 
      case 9:
 326 
      case 9:
Line 366... Line 362...
366 
  ZL0:;
 362 
  ZL0:;
367 
    *ZO419 = ZI419;
 363 
    *ZO419 = ZI419;
368 
}
 364 
}
369 
 
 365 
 
370 
void
 366 
void
371 
ZR991 PROTO_N ((ZO414))
 - 
 
372 
  PROTO_T (TYPE *ZO414)
 367 
ZR991(TYPE *ZO414)
373 
{
 368 
{
374 
    TYPE ZI414;
 369 
    TYPE ZI414;
375 
 
 370 
 
376 
    if ((CURRENT_TERMINAL) == 354) {
 371 
    if ((CURRENT_TERMINAL) == 354) {
377 
	return;
 372 
	return;
Line 427... Line 422...
427 
  ZL0:;
 422 
  ZL0:;
428 
    *ZO414 = ZI414;
 423 
    *ZO414 = ZI414;
429 
}
 424 
}
430 
 
 425 
 
431 
void
 426 
void
432 
ZR1029 PROTO_N ((ZO1144))
 - 
 
433 
  PROTO_T (EXP *ZO1144)
 427 
ZR1029(EXP *ZO1144)
434 
{
 428 
{
435 
    EXP ZI1144;
 429 
    EXP ZI1144;
436 
 
 430 
 
437 
    if ((CURRENT_TERMINAL) == 354) {
 431 
    if ((CURRENT_TERMINAL) == 354) {
438 
	return;
 432 
	return;
Line 476... Line 470...
476 
  ZL0:;
 470 
  ZL0:;
477 
    *ZO1144 = ZI1144;
 471 
    *ZO1144 = ZI1144;
478 
}
 472 
}
479 
 
 473 
 
480 
void
 474 
void
481 
ZR1436 PROTO_N ((ZI1434, ZO431))
 - 
 
482 
  PROTO_T (EXP *ZI1434 X EXP *ZO431)
 475 
ZR1436(EXP *ZI1434, EXP *ZO431)
483 
{
 476 
{
484 
    EXP ZI431;
 477 
    EXP ZI431;
485 
 
 478 
 
486 
    switch (CURRENT_TERMINAL) {
 479 
    switch (CURRENT_TERMINAL) {
487 
      case 1: case 2: case 3: case 5: case 6:
 480 
      case 1: case 2: case 3: case 5: case 6:
Line 531... Line 524...
531 
  ZL0:;
 524 
  ZL0:;
532 
    *ZO431 = ZI431;
 525 
    *ZO431 = ZI431;
533 
}
 526 
}
534 
 
 527 
 
535 
void
 528 
void
536 
ZR940 PROTO_N ((ZO414, ZO419, ZO558))
 - 
 
537 
  PROTO_T (TYPE *ZO414 X IDENTIFIER *ZO419 X int *ZO558)
 529 
ZR940(TYPE *ZO414, IDENTIFIER *ZO419, int *ZO558)
538 
{
 530 
{
539 
    TYPE ZI414;
 531 
    TYPE ZI414;
540 
    IDENTIFIER ZI419;
 532 
    IDENTIFIER ZI419;
541 
    int ZI558;
 533 
    int ZI558;
542 
 
 534 
 
Line 583... Line 575...
583 
    *ZO419 = ZI419;
 575 
    *ZO419 = ZI419;
584 
    *ZO558 = ZI558;
 576 
    *ZO558 = ZI558;
585 
}
 577 
}
586 
 
 578 
 
587 
void
 579 
void
588 
ZR611 PROTO_N ((ZO1223))
 - 
 
589 
  PROTO_T (EXP *ZO1223)
 580 
ZR611(EXP *ZO1223)
590 
{
 581 
{
591 
    EXP ZI1223;
 582 
    EXP ZI1223;
592 
 
 583 
 
593 
    if ((CURRENT_TERMINAL) == 354) {
 584 
    if ((CURRENT_TERMINAL) == 354) {
594 
	return;
 585 
	return;
Line 610... Line 601...
610 
  ZL0:;
 601 
  ZL0:;
611 
    *ZO1223 = ZI1223;
 602 
    *ZO1223 = ZI1223;
612 
}
 603 
}
613 
 
 604 
 
614 
void
 605 
void
615 
ZR736 PROTO_N ((ZO493, ZO431))
 - 
 
616 
  PROTO_T (EXP *ZO493 X EXP *ZO431)
 606 
ZR736(EXP *ZO493, EXP *ZO431)
617 
{
 607 
{
618 
    EXP ZI493;
 608 
    EXP ZI493;
619 
    EXP ZI431;
 609 
    EXP ZI431;
620 
 
 610 
 
621 
    if ((CURRENT_TERMINAL) == 354) {
 611 
    if ((CURRENT_TERMINAL) == 354) {
Line 763... Line 753...
763 
    *ZO493 = ZI493;
 753 
    *ZO493 = ZI493;
764 
    *ZO431 = ZI431;
 754 
    *ZO431 = ZI431;
765 
}
 755 
}
766 
 
 756 
 
767 
void
 757 
void
768 
ZR987 PROTO_N ((ZO414))
 - 
 
769 
  PROTO_T (TYPE *ZO414)
 758 
ZR987(TYPE *ZO414)
770 
{
 759 
{
771 
    TYPE ZI414;
 760 
    TYPE ZI414;
772 
 
 761 
 
773 
    if ((CURRENT_TERMINAL) == 354) {
 762 
    if ((CURRENT_TERMINAL) == 354) {
774 
	return;
 763 
	return;
Line 815... Line 804...
815 
  ZL0:;
 804 
  ZL0:;
816 
    *ZO414 = ZI414;
 805 
    *ZO414 = ZI414;
817 
}
 806 
}
818 
 
 807 
 
819 
void
 808 
void
820 
ZR863 PROTO_N ((ZI431))
 - 
 
821 
  PROTO_T (IDENTIFIER ZI431)
 809 
ZR863(IDENTIFIER ZI431)
822 
{
 810 
{
823 
    if ((CURRENT_TERMINAL) == 354) {
 811 
    if ((CURRENT_TERMINAL) == 354) {
824 
	return;
 812 
	return;
825 
    }
 813 
    }
826 
    {
 814 
    {
Line 897... Line 885...
897 
    SAVE_LEXER (354);
 885 
    SAVE_LEXER (354);
898 
    return;
 886 
    return;
899 
}
 887 
}
900 
 
 888 
 
901 
void
 889 
void
902 
ZR950 PROTO_N ((ZI497, ZO414, ZO419, ZO558))
 - 
 
903 
  PROTO_T (TYPE ZI497 X TYPE *ZO414 X IDENTIFIER *ZO419 X int *ZO558)
 890 
ZR950(TYPE ZI497, TYPE *ZO414, IDENTIFIER *ZO419, int *ZO558)
904 
{
 891 
{
905 
    TYPE ZI414;
 892 
    TYPE ZI414;
906 
    IDENTIFIER ZI419;
 893 
    IDENTIFIER ZI419;
907 
    int ZI558;
 894 
    int ZI558;
908 
 
 895 
 
Line 935... Line 922...
935 
    *ZO419 = ZI419;
 922 
    *ZO419 = ZI419;
936 
    *ZO558 = ZI558;
 923 
    *ZO558 = ZI558;
937 
}
 924 
}
938 
 
 925 
 
939 
void
 926 
void
940 
ZR1004 PROTO_N ((ZI558, ZI459, ZO431))
 - 
 
941 
  PROTO_T (int ZI558 X IDENTIFIER ZI459 X EXP *ZO431)
 927 
ZR1004(int ZI558, IDENTIFIER ZI459, EXP *ZO431)
942 
{
 928 
{
943 
    EXP ZI431;
 929 
    EXP ZI431;
944 
 
 930 
 
945 
    if ((CURRENT_TERMINAL) == 354) {
 931 
    if ((CURRENT_TERMINAL) == 354) {
946 
	return;
 932 
	return;
Line 1009... Line 995...
1009 
  ZL0:;
 995 
  ZL0:;
1010 
    *ZO431 = ZI431;
 996 
    *ZO431 = ZI431;
1011 
}
 997 
}
1012 
 
 998 
 
1013 
void
 999 
void
1014 
parse_file PROTO_N ((ZI414, ZI689))
 - 
 
1015 
  PROTO_T (TYPE ZI414 X DECL_SPEC ZI689)
 1000 
parse_file(TYPE ZI414, DECL_SPEC ZI689)
1016 
{
 1001 
{
1017 
    if ((CURRENT_TERMINAL) == 354) {
 1002 
    if ((CURRENT_TERMINAL) == 354) {
1018 
	return;
 1003 
	return;
1019 
    }
 1004 
    }
1020 
    {
 1005 
    {
Line 1215... Line 1200...
1215 
    }
 1200 
    }
1216 
  ZL0:;
 1201 
  ZL0:;
1217 
}
 1202 
}
1218 
 
 1203 
 
1219 
void
 1204 
void
1220 
ZR1439 PROTO_N ((ZO431))
 - 
 
1221 
  PROTO_T (EXP *ZO431)
 1205 
ZR1439(EXP *ZO431)
1222 
{
 1206 
{
1223 
    EXP ZI431;
 1207 
    EXP ZI431;
1224 
 
 1208 
 
1225 
    switch (CURRENT_TERMINAL) {
 1209 
    switch (CURRENT_TERMINAL) {
1226 
      case 297:
 1210 
      case 297:
Line 1279... Line 1263...
1279 
  ZL0:;
 1263 
  ZL0:;
1280 
    *ZO431 = ZI431;
 1264 
    *ZO431 = ZI431;
1281 
}
 1265 
}
1282 
 
 1266 
 
1283 
void
 1267 
void
1284 
ZR1312 PROTO_N ((ZI425, ZI1310, ZO419))
 - 
 
1285 
  PROTO_T (NAMESPACE *ZI425 X IDENTIFIER *ZI1310 X IDENTIFIER *ZO419)
 1268 
ZR1312(NAMESPACE *ZI425, IDENTIFIER *ZI1310, IDENTIFIER *ZO419)
1286 
{
 1269 
{
1287 
    IDENTIFIER ZI419;
 1270 
    IDENTIFIER ZI419;
1288 
 
 1271 
 
1289 
    switch (CURRENT_TERMINAL) {
 1272 
    switch (CURRENT_TERMINAL) {
1290 
      case 83:
 1273 
      case 83:
Line 1354... Line 1337...
1354 
  ZL0:;
 1337 
  ZL0:;
1355 
    *ZO419 = ZI419;
 1338 
    *ZO419 = ZI419;
1356 
}
 1339 
}
1357 
 
 1340 
 
1358 
void
 1341 
void
1359 
ZR1024 PROTO_N ((ZO431))
 - 
 
1360 
  PROTO_T (EXP *ZO431)
 1342 
ZR1024(EXP *ZO431)
1361 
{
 1343 
{
1362 
    EXP ZI431;
 1344 
    EXP ZI431;
1363 
 
 1345 
 
1364 
    if ((CURRENT_TERMINAL) == 354) {
 1346 
    if ((CURRENT_TERMINAL) == 354) {
1365 
	return;
 1347 
	return;
Line 1420... Line 1402...
1420 
  ZL0:;
 1402 
  ZL0:;
1421 
    *ZO431 = ZI431;
 1403 
    *ZO431 = ZI431;
1422 
}
 1404 
}
1423 
 
 1405 
 
1424 
void
 1406 
void
1425 
ZR1110 PROTO_N ((ZO714))
 - 
 
1426 
  PROTO_T (int *ZO714)
 1407 
ZR1110(int *ZO714)
1427 
{
 1408 
{
1428 
    int ZI714;
 1409 
    int ZI714;
1429 
 
 1410 
 
1430 
    switch (CURRENT_TERMINAL) {
 1411 
    switch (CURRENT_TERMINAL) {
1431 
      case 134:
 1412 
      case 134:
Line 1448... Line 1429...
1448 
    }
 1429 
    }
1449 
    *ZO714 = ZI714;
 1430 
    *ZO714 = ZI714;
1450 
}
 1431 
}
1451 
 
 1432 
 
1452 
void
 1433 
void
1453 
parse_offset PROTO_N ((ZI456, ZI574, ZO493, ZO414))
 - 
 
1454 
  PROTO_T (OFFSET ZI456 X TYPE ZI574 X OFFSET *ZO493 X TYPE *ZO414)
 1434 
parse_offset(OFFSET ZI456, TYPE ZI574, OFFSET *ZO493, TYPE *ZO414)
1455 
{
 1435 
{
1456 
    OFFSET ZI493;
 1436 
    OFFSET ZI493;
1457 
    TYPE ZI414;
 1437 
    TYPE ZI414;
1458 
 
 1438 
 
1459 
    if ((CURRENT_TERMINAL) == 354) {
 1439 
    if ((CURRENT_TERMINAL) == 354) {
Line 1504... Line 1484...
1504 
    *ZO493 = ZI493;
 1484 
    *ZO493 = ZI493;
1505 
    *ZO414 = ZI414;
 1485 
    *ZO414 = ZI414;
1506 
}
 1486 
}
1507 
 
 1487 
 
1508 
void
 1488 
void
1509 
ZR1440 PROTO_N ((ZO431))
 - 
 
1510 
  PROTO_T (EXP *ZO431)
 1489 
ZR1440(EXP *ZO431)
1511 
{
 1490 
{
1512 
    EXP ZI431;
 1491 
    EXP ZI431;
1513 
 
 1492 
 
1514 
    switch (CURRENT_TERMINAL) {
 1493 
    switch (CURRENT_TERMINAL) {
1515 
      case 96:
 1494 
      case 96:
Line 1594... Line 1573...
1594 
  ZL0:;
 1573 
  ZL0:;
1595 
    *ZO431 = ZI431;
 1574 
    *ZO431 = ZI431;
1596 
}
 1575 
}
1597 
 
 1576 
 
1598 
void
 1577 
void
1599 
ZR1313 PROTO_N ((ZI425, ZO419))
 - 
 
1600 
  PROTO_T (NAMESPACE *ZI425 X IDENTIFIER *ZO419)
 1578 
ZR1313(NAMESPACE *ZI425, IDENTIFIER *ZO419)
1601 
{
 1579 
{
1602 
    IDENTIFIER ZI419;
 1580 
    IDENTIFIER ZI419;
1603 
 
 1581 
 
1604 
    switch (CURRENT_TERMINAL) {
 1582 
    switch (CURRENT_TERMINAL) {
1605 
      case 2: case 7:
 1583 
      case 2: case 7:
Line 1684... Line 1662...
1684 
  ZL0:;
 1662 
  ZL0:;
1685 
    *ZO419 = ZI419;
 1663 
    *ZO419 = ZI419;
1686 
}
 1664 
}
1687 
 
 1665 
 
1688 
void
 1666 
void
1689 
parse_nat PROTO_N ((ZO431))
 1667 
parse_nat(EXP *ZO431)
1690 
  PROTO_T (EXP *ZO431)
 - 
 
1691 
{
 1668 
{
1692 
    EXP ZI431;
 1669 
    EXP ZI431;
1693 
 
 1670 
 
1694 
    if ((CURRENT_TERMINAL) == 354) {
 1671 
    if ((CURRENT_TERMINAL) == 354) {
1695 
	return;
 1672 
	return;
Line 1719... Line 1696...
1719 
  ZL0:;
 1696 
  ZL0:;
1720 
    *ZO431 = ZI431;
 1697 
    *ZO431 = ZI431;
1721 
}
 1698 
}
1722 
 
 1699 
 
1723 
void
 1700 
void
1724 
ZR649 PROTO_N ((ZO431))
 - 
 
1725 
  PROTO_T (EXP *ZO431)
 1701 
ZR649(EXP *ZO431)
1726 
{
 1702 
{
1727 
    EXP ZI431;
 1703 
    EXP ZI431;
1728 
 
 1704 
 
1729 
    if ((CURRENT_TERMINAL) == 354) {
 1705 
    if ((CURRENT_TERMINAL) == 354) {
1730 
	return;
 1706 
	return;
Line 1743... Line 1719...
1743 
  ZL0:;
 1719 
  ZL0:;
1744 
    *ZO431 = ZI431;
 1720 
    *ZO431 = ZI431;
1745 
}
 1721 
}
1746 
 
 1722 
 
1747 
void
 1723 
void
1748 
parse_param PROTO_N ((ZI574, ZI497, ZO459))
 - 
 
1749 
  PROTO_T (TYPE ZI574 X int ZI497 X IDENTIFIER *ZO459)
 1724 
parse_param(TYPE ZI574, int ZI497, IDENTIFIER *ZO459)
1750 
{
 1725 
{
1751 
    IDENTIFIER ZI459;
 1726 
    IDENTIFIER ZI459;
1752 
 
 1727 
 
1753 
    if ((CURRENT_TERMINAL) == 354) {
 1728 
    if ((CURRENT_TERMINAL) == 354) {
1754 
	return;
 1729 
	return;
Line 1778... Line 1753...
1778 
  ZL0:;
 1753 
  ZL0:;
1779 
    *ZO459 = ZI459;
 1754 
    *ZO459 = ZI459;
1780 
}
 1755 
}
1781 
 
 1756 
 
1782 
void
 1757 
void
1783 
ZR1315 PROTO_N ((ZI425, ZI1314, ZO419))
 - 
 
1784 
  PROTO_T (NAMESPACE *ZI425 X NAMESPACE *ZI1314 X IDENTIFIER *ZO419)
 1758 
ZR1315(NAMESPACE *ZI425, NAMESPACE *ZI1314, IDENTIFIER *ZO419)
1785 
{
 1759 
{
1786 
    IDENTIFIER ZI419;
 1760 
    IDENTIFIER ZI419;
1787 
 
 1761 
 
1788 
    switch (CURRENT_TERMINAL) {
 1762 
    switch (CURRENT_TERMINAL) {
1789 
      case 2: case 7:
 1763 
      case 2: case 7:
Line 1945... Line 1919...
1945 
  ZL0:;
 1919 
  ZL0:;
1946 
    *ZO419 = ZI419;
 1920 
    *ZO419 = ZI419;
1947 
}
 1921 
}
1948 
 
 1922 
 
1949 
void
 1923 
void
1950 
ZR1188 PROTO_N ((ZI1182, ZI1183, ZI1184, ZO1185, ZO1186, ZO1187))
 - 
 
1951 
  PROTO_T (EXP ZI1182 X EXP ZI1183 X int ZI1184 X EXP *ZO1185 X EXP *ZO1186 X int *ZO1187)
 1924 
ZR1188(EXP ZI1182, EXP ZI1183, int ZI1184, EXP *ZO1185, EXP *ZO1186, int *ZO1187)
1952 
{
 1925 
{
1953 
    EXP ZI1185;
 1926 
    EXP ZI1185;
1954 
    EXP ZI1186;
 1927 
    EXP ZI1186;
1955 
    int ZI1187;
 1928 
    int ZI1187;
1956 
 
 1929 
 
Line 2026... Line 1999...
2026 
    *ZO1186 = ZI1186;
 1999 
    *ZO1186 = ZI1186;
2027 
    *ZO1187 = ZI1187;
 2000 
    *ZO1187 = ZI1187;
2028 
}
 2001 
}
2029 
 
 2002 
 
2030 
void
 2003 
void
2031 
ZR873 PROTO_N ((ZO511, ZO414, ZO783))
 - 
 
2032 
  PROTO_T (BASE_TYPE *ZO511 X TYPE *ZO414 X CV_SPEC *ZO783)
 2004 
ZR873(BASE_TYPE *ZO511, TYPE *ZO414, CV_SPEC *ZO783)
2033 
{
 2005 
{
2034 
    BASE_TYPE ZI511;
 2006 
    BASE_TYPE ZI511;
2035 
    TYPE ZI414;
 2007 
    TYPE ZI414;
2036 
    CV_SPEC ZI783;
 2008 
    CV_SPEC ZI783;
2037 
 
 2009 
 
Line 2117... Line 2089...
2117 
    *ZO414 = ZI414;
 2089 
    *ZO414 = ZI414;
2118 
    *ZO783 = ZI783;
 2090 
    *ZO783 = ZI783;
2119 
}
 2091 
}
2120 
 
 2092 
 
2121 
void
 2093 
void
2122 
ZR502 PROTO_N ((ZO419))
 - 
 
2123 
  PROTO_T (IDENTIFIER *ZO419)
 2094 
ZR502(IDENTIFIER *ZO419)
2124 
{
 2095 
{
2125 
    IDENTIFIER ZI419;
 2096 
    IDENTIFIER ZI419;
2126 
 
 2097 
 
2127 
    if ((CURRENT_TERMINAL) == 354) {
 2098 
    if ((CURRENT_TERMINAL) == 354) {
2128 
	return;
 2099 
	return;
Line 2188... Line 2159...
2188 
  ZL0:;
 2159 
  ZL0:;
2189 
    *ZO419 = ZI419;
 2160 
    *ZO419 = ZI419;
2190 
}
 2161 
}
2191 
 
 2162 
 
2192 
void
 2163 
void
2193 
ZR1104 PROTO_N ((ZO497))
 - 
 
2194 
  PROTO_T (SID_LIST_TYPE *ZO497)
 2164 
ZR1104(SID_LIST_TYPE *ZO497)
2195 
{
 2165 
{
2196 
    SID_LIST_TYPE ZI497;
 2166 
    SID_LIST_TYPE ZI497;
2197 
 
 2167 
 
2198 
    if ((CURRENT_TERMINAL) == 354) {
 2168 
    if ((CURRENT_TERMINAL) == 354) {
2199 
	return;
 2169 
	return;
Line 2247... Line 2217...
2247 
  ZL0:;
 2217 
  ZL0:;
2248 
    *ZO497 = ZI497;
 2218 
    *ZO497 = ZI497;
2249 
}
 2219 
}
2250 
 
 2220 
 
2251 
void
 2221 
void
2252 
ZR1317 PROTO_N ((ZI425, ZI1316, ZO419))
 - 
 
2253 
  PROTO_T (NAMESPACE *ZI425 X NAMESPACE *ZI1316 X IDENTIFIER *ZO419)
 2222 
ZR1317(NAMESPACE *ZI425, NAMESPACE *ZI1316, IDENTIFIER *ZO419)
2254 
{
 2223 
{
2255 
    IDENTIFIER ZI419;
 2224 
    IDENTIFIER ZI419;
2256 
 
 2225 
 
2257 
    switch (CURRENT_TERMINAL) {
 2226 
    switch (CURRENT_TERMINAL) {
2258 
      case 2: case 7:
 2227 
      case 2: case 7:
Line 2402... Line 2371...
2402 
  ZL0:;
 2371 
  ZL0:;
2403 
    *ZO419 = ZI419;
 2372 
    *ZO419 = ZI419;
2404 
}
 2373 
}
2405 
 
 2374 
 
2406 
void
 2375 
void
2407 
ZR484 PROTO_N ((ZO419))
 - 
 
2408 
  PROTO_T (IDENTIFIER *ZO419)
 2376 
ZR484(IDENTIFIER *ZO419)
2409 
{
 2377 
{
2410 
    IDENTIFIER ZI419;
 2378 
    IDENTIFIER ZI419;
2411 
 
 2379 
 
2412 
    switch (CURRENT_TERMINAL) {
 2380 
    switch (CURRENT_TERMINAL) {
2413 
      case 83:
 2381 
      case 83:
Line 2499... Line 2467...
2499 
  ZL0:;
 2467 
  ZL0:;
2500 
    *ZO419 = ZI419;
 2468 
    *ZO419 = ZI419;
2501 
}
 2469 
}
2502 
 
 2470 
 
2503 
void
 2471 
void
2504 
ZR951 PROTO_N ((ZO414))
 - 
 
2505 
  PROTO_T (TYPE *ZO414)
 2472 
ZR951(TYPE *ZO414)
2506 
{
 2473 
{
2507 
    TYPE ZI414;
 2474 
    TYPE ZI414;
2508 
 
 2475 
 
2509 
    switch (CURRENT_TERMINAL) {
 2476 
    switch (CURRENT_TERMINAL) {
2510 
      case 65: case 66: case 331:
 2477 
      case 65: case 66: case 331:
Line 2540... Line 2507...
2540 
  ZL0:;
 2507 
  ZL0:;
2541 
    *ZO414 = ZI414;
 2508 
    *ZO414 = ZI414;
2542 
}
 2509 
}
2543 
 
 2510 
 
2544 
void
 2511 
void
2545 
parse_func PROTO_N ((ZO431))
 2512 
parse_func(EXP *ZO431)
2546 
  PROTO_T (EXP *ZO431)
 - 
 
2547 
{
 2513 
{
2548 
    EXP ZI431;
 2514 
    EXP ZI431;
2549 
 
 2515 
 
2550 
    if ((CURRENT_TERMINAL) == 354) {
 2516 
    if ((CURRENT_TERMINAL) == 354) {
2551 
	return;
 2517 
	return;
Line 2575... Line 2541...
2575 
  ZL0:;
 2541 
  ZL0:;
2576 
    *ZO431 = ZI431;
 2542 
    *ZO431 = ZI431;
2577 
}
 2543 
}
2578 
 
 2544 
 
2579 
void
 2545 
void
2580 
ZR516 PROTO_N ((ZO419, ZO511))
 - 
 
2581 
  PROTO_T (IDENTIFIER *ZO419 X BASE_TYPE *ZO511)
 2546 
ZR516(IDENTIFIER *ZO419, BASE_TYPE *ZO511)
2582 
{
 2547 
{
2583 
    IDENTIFIER ZI419;
 2548 
    IDENTIFIER ZI419;
2584 
    BASE_TYPE ZI511;
 2549 
    BASE_TYPE ZI511;
2585 
 
 2550 
 
2586 
    switch (CURRENT_TERMINAL) {
 2551 
    switch (CURRENT_TERMINAL) {
Line 2626... Line 2591...
2626 
    *ZO419 = ZI419;
 2591 
    *ZO419 = ZI419;
2627 
    *ZO511 = ZI511;
 2592 
    *ZO511 = ZI511;
2628 
}
 2593 
}
2629 
 
 2594 
 
2630 
void
 2595 
void
2631 
ZR833 PROTO_Z ()
 2596 
ZR833(void)
2632 
{
 2597 
{
2633 
    if ((CURRENT_TERMINAL) == 354) {
 2598 
    if ((CURRENT_TERMINAL) == 354) {
2634 
	return;
 2599 
	return;
2635 
    }
 2600 
    }
2636 
    {
 2601 
    {
Line 2677... Line 2642...
2677 
    SAVE_LEXER (354);
 2642 
    SAVE_LEXER (354);
2678 
    return;
 2643 
    return;
2679 
}
 2644 
}
2680 
 
 2645 
 
2681 
void
 2646 
void
2682 
ZR1319 PROTO_N ((ZI450))
 - 
 
2683 
  PROTO_T (int *ZI450)
 2647 
ZR1319(int *ZI450)
2684 
{
 2648 
{
2685 
    switch (CURRENT_TERMINAL) {
 2649 
    switch (CURRENT_TERMINAL) {
2686 
      case 33: case 34: case 35: case 36: case 42:
 2650 
      case 33: case 34: case 35: case 36: case 42:
2687 
      case 43: case 44: case 45: case 48: case 49:
 2651 
      case 43: case 44: case 45: case 48: case 49:
2688 
      case 50: case 53: case 54: case 55: case 56:
 2652 
      case 50: case 53: case 54: case 55: case 56:
Line 3071... Line 3035...
3071 
    SAVE_LEXER (354);
 3035 
    SAVE_LEXER (354);
3072 
    return;
 3036 
    return;
3073 
}
 3037 
}
3074 
 
 3038 
 
3075 
void
 3039 
void
3076 
ZR1192 PROTO_N ((ZI1190, ZO1191))
 - 
 
3077 
  PROTO_T (EXP ZI1190 X EXP *ZO1191)
 3040 
ZR1192(EXP ZI1190, EXP *ZO1191)
3078 
{
 3041 
{
3079 
    EXP ZI1191;
 3042 
    EXP ZI1191;
3080 
 
 3043 
 
3081 
  ZL2_1192:;
 3044 
  ZL2_1192:;
3082 
    switch (CURRENT_TERMINAL) {
 3045 
    switch (CURRENT_TERMINAL) {
Line 3124... Line 3087...
3124 
  ZL0:;
 3087 
  ZL0:;
3125 
    *ZO1191 = ZI1191;
 3088 
    *ZO1191 = ZI1191;
3126 
}
 3089 
}
3127 
 
 3090 
 
3128 
void
 3091 
void
3129 
ZR504 PROTO_N ((ZO419))
 - 
 
3130 
  PROTO_T (IDENTIFIER *ZO419)
 3092 
ZR504(IDENTIFIER *ZO419)
3131 
{
 3093 
{
3132 
    IDENTIFIER ZI419;
 3094 
    IDENTIFIER ZI419;
3133 
 
 3095 
 
3134 
    if ((CURRENT_TERMINAL) == 354) {
 3096 
    if ((CURRENT_TERMINAL) == 354) {
3135 
	return;
 3097 
	return;
Line 3192... Line 3154...
3192 
  ZL0:;
 3154 
  ZL0:;
3193 
    *ZO419 = ZI419;
 3155 
    *ZO419 = ZI419;
3194 
}
 3156 
}
3195 
 
 3157 
 
3196 
void
 3158 
void
3197 
ZR894 PROTO_N ((ZO689))
 - 
 
3198 
  PROTO_T (DECL_SPEC *ZO689)
 3159 
ZR894(DECL_SPEC *ZO689)
3199 
{
 3160 
{
3200 
    DECL_SPEC ZI689;
 3161 
    DECL_SPEC ZI689;
3201 
 
 3162 
 
3202 
    switch (CURRENT_TERMINAL) {
 3163 
    switch (CURRENT_TERMINAL) {
3203 
      case 94:
 3164 
      case 94:
Line 3252... Line 3213...
3252 
  ZL0:;
 3213 
  ZL0:;
3253 
    *ZO689 = ZI689;
 3214 
    *ZO689 = ZI689;
3254 
}
 3215 
}
3255 
 
 3216 
 
3256 
void
 3217 
void
3257 
ZR1320 PROTO_N ((ZO450))
 - 
 
3258 
  PROTO_T (int *ZO450)
 3218 
ZR1320(int *ZO450)
3259 
{
 3219 
{
3260 
    int ZI450;
 3220 
    int ZI450;
3261 
 
 3221 
 
3262 
    if ((CURRENT_TERMINAL) == 354) {
 3222 
    if ((CURRENT_TERMINAL) == 354) {
3263 
	return;
 3223 
	return;
Line 3309... Line 3269...
3309 
  ZL0:;
 3269 
  ZL0:;
3310 
    *ZO450 = ZI450;
 3270 
    *ZO450 = ZI450;
3311 
}
 3271 
}
3312 
 
 3272 
 
3313 
void
 3273 
void
3314 
parse_id PROTO_N ((ZO419))
 - 
 
3315 
  PROTO_T (IDENTIFIER *ZO419)
 3274 
parse_id(IDENTIFIER *ZO419)
3316 
{
 3275 
{
3317 
    IDENTIFIER ZI419;
 3276 
    IDENTIFIER ZI419;
3318 
 
 3277 
 
3319 
    if ((CURRENT_TERMINAL) == 354) {
 3278 
    if ((CURRENT_TERMINAL) == 354) {
3320 
	return;
 3279 
	return;
Line 3346... Line 3305...
3346 
  ZL0:;
 3305 
  ZL0:;
3347 
    *ZO419 = ZI419;
 3306 
    *ZO419 = ZI419;
3348 
}
 3307 
}
3349 
 
 3308 
 
3350 
void
 3309 
void
3351 
ZR1321 PROTO_N ((ZO450))
 - 
 
3352 
  PROTO_T (int *ZO450)
 3310 
ZR1321(int *ZO450)
3353 
{
 3311 
{
3354 
    int ZI450;
 3312 
    int ZI450;
3355 
 
 3313 
 
3356 
    if ((CURRENT_TERMINAL) == 354) {
 3314 
    if ((CURRENT_TERMINAL) == 354) {
3357 
	return;
 3315 
	return;
Line 3403... Line 3361...
3403 
  ZL0:;
 3361 
  ZL0:;
3404 
    *ZO450 = ZI450;
 3362 
    *ZO450 = ZI450;
3405 
}
 3363 
}
3406 
 
 3364 
 
3407 
void
 3365 
void
3408 
ZR581 PROTO_N ((ZO431))
 - 
 
3409 
  PROTO_T (EXP *ZO431)
 3366 
ZR581(EXP *ZO431)
3410 
{
 3367 
{
3411 
    EXP ZI431;
 3368 
    EXP ZI431;
3412 
 
 3369 
 
3413 
    switch (CURRENT_TERMINAL) {
 3370 
    switch (CURRENT_TERMINAL) {
3414 
      case 170:
 3371 
      case 170:
Line 4051... Line 4008...
4051 
  ZL0:;
 4008 
  ZL0:;
4052 
    *ZO431 = ZI431;
 4009 
    *ZO431 = ZI431;
4053 
}
 4010 
}
4054 
 
 4011 
 
4055 
void
 4012 
void
4056 
ZR872 PROTO_N ((ZI574, ZO511, ZO414, ZO783))
 - 
 
4057 
  PROTO_T (TYPE ZI574 X BASE_TYPE *ZO511 X TYPE *ZO414 X CV_SPEC *ZO783)
 4013 
ZR872(TYPE ZI574, BASE_TYPE *ZO511, TYPE *ZO414, CV_SPEC *ZO783)
4058 
{
 4014 
{
4059 
    BASE_TYPE ZI511;
 4015 
    BASE_TYPE ZI511;
4060 
    TYPE ZI414;
 4016 
    TYPE ZI414;
4061 
    CV_SPEC ZI783;
 4017 
    CV_SPEC ZI783;
4062 
 
 4018 
 
Line 4161... Line 4117...
4161 
    *ZO414 = ZI414;
 4117 
    *ZO414 = ZI414;
4162 
    *ZO783 = ZI783;
 4118 
    *ZO783 = ZI783;
4163 
}
 4119 
}
4164 
 
 4120 
 
4165 
void
 4121 
void
4166 
ZR941 PROTO_N ((ZO945))
 - 
 
4167 
  PROTO_T (int *ZO945)
 4122 
ZR941(int *ZO945)
4168 
{
 4123 
{
4169 
    int ZI945;
 4124 
    int ZI945;
4170 
 
 4125 
 
4171 
    switch (CURRENT_TERMINAL) {
 4126 
    switch (CURRENT_TERMINAL) {
4172 
      case 2: case 7: case 8: case 9: case 25:
 4127 
      case 2: case 7: case 8: case 9: case 25:
Line 4202... Line 4157...
4202 
  ZL0:;
 4157 
  ZL0:;
4203 
    *ZO945 = ZI945;
 4158 
    *ZO945 = ZI945;
4204 
}
 4159 
}
4205 
 
 4160 
 
4206 
void
 4161 
void
4207 
ZR955 PROTO_N ((ZI497, ZO414))
 - 
 
4208 
  PROTO_T (TYPE ZI497 X TYPE *ZO414)
 4162 
ZR955(TYPE ZI497, TYPE *ZO414)
4209 
{
 4163 
{
4210 
    TYPE ZI414;
 4164 
    TYPE ZI414;
4211 
 
 4165 
 
4212 
    switch (CURRENT_TERMINAL) {
 4166 
    switch (CURRENT_TERMINAL) {
4213 
      case 10: case 11: case 33: case 65: case 66:
 4167 
      case 10: case 11: case 33: case 65: case 66:
Line 4241... Line 4195...
4241 
  ZL0:;
 4195 
  ZL0:;
4242 
    *ZO414 = ZI414;
 4196 
    *ZO414 = ZI414;
4243 
}
 4197 
}
4244 
 
 4198 
 
4245 
void
 4199 
void
4246 
ZR1196 PROTO_N ((ZI1194, ZO1195))
 - 
 
4247 
  PROTO_T (EXP ZI1194 X EXP *ZO1195)
 4200 
ZR1196(EXP ZI1194, EXP *ZO1195)
4248 
{
 4201 
{
4249 
    EXP ZI1195;
 4202 
    EXP ZI1195;
4250 
 
 4203 
 
4251 
  ZL2_1196:;
 4204 
  ZL2_1196:;
4252 
    switch (CURRENT_TERMINAL) {
 4205 
    switch (CURRENT_TERMINAL) {
Line 4294... Line 4247...
4294 
  ZL0:;
 4247 
  ZL0:;
4295 
    *ZO1195 = ZI1195;
 4248 
    *ZO1195 = ZI1195;
4296 
}
 4249 
}
4297 
 
 4250 
 
4298 
void
 4251 
void
4299 
ZR417 PROTO_Z ()
 4252 
ZR417(void)
4300 
{
 4253 
{
4301 
    if ((CURRENT_TERMINAL) == 354) {
 4254 
    if ((CURRENT_TERMINAL) == 354) {
4302 
	return;
 4255 
	return;
4303 
    }
 4256 
    }
4304 
    {
 4257 
    {
Line 4326... Line 4279...
4326 
	}
 4279 
	}
4327 
    }
 4280 
    }
4328 
}
 4281 
}
4329 
 
 4282 
 
4330 
void
 4283 
void
4331 
ZR1324 PROTO_N ((ZI574, ZI816, ZO511, ZO414, ZO783))
 - 
 
4332 
  PROTO_T (TYPE *ZI574 X BASE_TYPE *ZI816 X BASE_TYPE *ZO511 X TYPE *ZO414 X CV_SPEC *ZO783)
 4284 
ZR1324(TYPE *ZI574, BASE_TYPE *ZI816, BASE_TYPE *ZO511, TYPE *ZO414, CV_SPEC *ZO783)
4333 
{
 4285 
{
4334 
    BASE_TYPE ZI511;
 4286 
    BASE_TYPE ZI511;
4335 
    TYPE ZI414;
 4287 
    TYPE ZI414;
4336 
    CV_SPEC ZI783;
 4288 
    CV_SPEC ZI783;
4337 
 
 4289 
 
Line 4525... Line 4477...
4525 
    *ZO414 = ZI414;
 4477 
    *ZO414 = ZI414;
4526 
    *ZO783 = ZI783;
 4478 
    *ZO783 = ZI783;
4527 
}
 4479 
}
4528 
 
 4480 
 
4529 
void
 4481 
void
4530 
ZR1325 PROTO_N ((ZI574, ZO511, ZO414, ZO783))
 - 
 
4531 
  PROTO_T (TYPE *ZI574 X BASE_TYPE *ZO511 X TYPE *ZO414 X CV_SPEC *ZO783)
 4482 
ZR1325(TYPE *ZI574, BASE_TYPE *ZO511, TYPE *ZO414, CV_SPEC *ZO783)
4532 
{
 4483 
{
4533 
    BASE_TYPE ZI511;
 4484 
    BASE_TYPE ZI511;
4534 
    TYPE ZI414;
 4485 
    TYPE ZI414;
4535 
    CV_SPEC ZI783;
 4486 
    CV_SPEC ZI783;
4536 
 
 4487 
 
Line 4695... Line 4646...
4695 
    *ZO414 = ZI414;
 4646 
    *ZO414 = ZI414;
4696 
    *ZO783 = ZI783;
 4647 
    *ZO783 = ZI783;
4697 
}
 4648 
}
4698 
 
 4649 
 
4699 
void
 4650 
void
4700 
ZR866 PROTO_N ((ZI431))
 - 
 
4701 
  PROTO_T (IDENTIFIER ZI431)
 4651 
ZR866(IDENTIFIER ZI431)
4702 
{
 4652 
{
4703 
    if ((CURRENT_TERMINAL) == 354) {
 4653 
    if ((CURRENT_TERMINAL) == 354) {
4704 
	return;
 4654 
	return;
4705 
    }
 4655 
    }
4706 
  ZL2_866:;
 4656 
  ZL2_866:;
Line 4755... Line 4705...
4755 
    SAVE_LEXER (354);
 4705 
    SAVE_LEXER (354);
4756 
    return;
 4706 
    return;
4757 
}
 4707 
}
4758 
 
 4708 
 
4759 
void
 4709 
void
4760 
ZR1326 PROTO_N ((ZO414))
 - 
 
4761 
  PROTO_T (int *ZO414)
 4710 
ZR1326(int *ZO414)
4762 
{
 4711 
{
4763 
    int ZI414;
 4712 
    int ZI414;
4764 
 
 4713 
 
4765 
    switch (CURRENT_TERMINAL) {
 4714 
    switch (CURRENT_TERMINAL) {
4766 
      case 1: case 2: case 3: case 4: case 7:
 4715 
      case 1: case 2: case 3: case 4: case 7:
Line 4794... Line 4743...
4794 
  ZL0:;
 4743 
  ZL0:;
4795 
    *ZO414 = ZI414;
 4744 
    *ZO414 = ZI414;
4796 
}
 4745 
}
4797 
 
 4746 
 
4798 
void
 4747 
void
4799 
ZR735 PROTO_N ((ZO431))
 - 
 
4800 
  PROTO_T (EXP *ZO431)
 4748 
ZR735(EXP *ZO431)
4801 
{
 4749 
{
4802 
    EXP ZI431;
 4750 
    EXP ZI431;
4803 
 
 4751 
 
4804 
    if ((CURRENT_TERMINAL) == 354) {
 4752 
    if ((CURRENT_TERMINAL) == 354) {
4805 
	return;
 4753 
	return;
Line 4875... Line 4823...
4875 
  ZL0:;
 4823 
  ZL0:;
4876 
    *ZO431 = ZI431;
 4824 
    *ZO431 = ZI431;
4877 
}
 4825 
}
4878 
 
 4826 
 
4879 
void
 4827 
void
4880 
ZR1023 PROTO_N ((ZO431))
 - 
 
4881 
  PROTO_T (EXP *ZO431)
 4828 
ZR1023(EXP *ZO431)
4882 
{
 4829 
{
4883 
    EXP ZI431;
 4830 
    EXP ZI431;
4884 
 
 4831 
 
4885 
    if ((CURRENT_TERMINAL) == 354) {
 4832 
    if ((CURRENT_TERMINAL) == 354) {
4886 
	return;
 4833 
	return;
Line 4957... Line 4904...
4957 
  ZL0:;
 4904 
  ZL0:;
4958 
    *ZO431 = ZI431;
 4905 
    *ZO431 = ZI431;
4959 
}
 4906 
}
4960 
 
 4907 
 
4961 
void
 4908 
void
4962 
ZR1126 PROTO_N ((ZI456, ZI574, ZO493, ZO414))
 - 
 
4963 
  PROTO_T (OFFSET ZI456 X TYPE ZI574 X OFFSET *ZO493 X TYPE *ZO414)
 4909 
ZR1126(OFFSET ZI456, TYPE ZI574, OFFSET *ZO493, TYPE *ZO414)
4964 
{
 4910 
{
4965 
    OFFSET ZI493;
 4911 
    OFFSET ZI493;
4966 
    TYPE ZI414;
 4912 
    TYPE ZI414;
4967 
 
 4913 
 
4968 
    switch (CURRENT_TERMINAL) {
 4914 
    switch (CURRENT_TERMINAL) {
Line 5024... Line 4970...
5024 
    SAVE_LEXER (354);
 4970 
    SAVE_LEXER (354);
5025 
    return;
 4971 
    return;
5026 
  ZL0:;
 4972 
  ZL0:;
5027 
    *ZO493 = ZI493;
 4973 
    *ZO493 = ZI493;
5028 
    *ZO414 = ZI414;
 4974 
    *ZO414 = ZI414;
- 
 
 4975 
}
- 
 
 4976 
 
- 
 
 4977 
void
- 
 
 4978 
ZR1327(int *ZO844)
- 
 
 4979 
{
- 
 
 4980 
    int ZI844;
- 
 
 4981 
 
- 
 
 4982 
    switch (CURRENT_TERMINAL) {
- 
 
 4983 
      case 155:
- 
 
 4984 
	{
- 
 
 4985 
	    ADVANCE_LEXER;
- 
 
 4986 
	    {
- 
 
 4987 
 (ZI844) = 1 ;
- 
 
 4988 
	    }
- 
 
 4989 
	}
- 
 
 4990 
	break;
- 
 
 4991 
      default:
- 
 
 4992 
	{
- 
 
 4993 
	    {
- 
 
 4994 
 (ZI844) = 0 ;
- 
 
 4995 
	    }
- 
 
 4996 
	}
- 
 
 4997 
	break;
- 
 
 4998 
      case 354:
- 
 
 4999 
	return;
- 
 
 5000 
    }
- 
 
 5001 
    *ZO844 = ZI844;
5029 
}
 5002 
}
5030 
 
 5003 
 
5031 
/* END OF FILE */
 5004 
/* END OF FILE */