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/producers/c/syntax/syntax.sid
3
 *	syntax.sid
4
 * and
4
 * and
5
 *	/u/g/release/Source/src/producers/c/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 126... Line 126...
126
#endif
126
#endif
127
 
127
 
128
 
128
 
129
 
129
 
130
void
130
void
131
ZR1092 PROTO_N ((ZI1091, ZO404))
-
 
132
  PROTO_T (EXP *ZI1091 X EXP *ZO404)
131
ZR1092(EXP *ZI1091, EXP *ZO404)
133
{
132
{
134
    EXP ZI404;
133
    EXP ZI404;
135
 
134
 
136
    switch (CURRENT_TERMINAL) {
135
    switch (CURRENT_TERMINAL) {
137
      case 346:
136
      case 346:
Line 230... Line 229...
230
  ZL0:;
229
  ZL0:;
231
    *ZO404 = ZI404;
230
    *ZO404 = ZI404;
232
}
231
}
233
 
232
 
234
void
233
void
235
ZR1093 PROTO_Z ()
234
ZR1093(void)
236
{
235
{
237
    switch (CURRENT_TERMINAL) {
236
    switch (CURRENT_TERMINAL) {
238
      case 77:
237
      case 77:
239
	{
238
	{
240
	    ADVANCE_LEXER;
239
	    ADVANCE_LEXER;
Line 256... Line 255...
256
	return;
255
	return;
257
    }
256
    }
258
}
257
}
259
 
258
 
260
void
259
void
261
ZR635 PROTO_N ((ZO630))
-
 
262
  PROTO_T (CV_SPEC *ZO630)
260
ZR635(CV_SPEC *ZO630)
263
{
261
{
264
    CV_SPEC ZI630;
262
    CV_SPEC ZI630;
265
 
263
 
266
    switch (CURRENT_TERMINAL) {
264
    switch (CURRENT_TERMINAL) {
267
      case 98: case 124:
265
      case 98: case 124:
Line 290... Line 288...
290
  ZL0:;
288
  ZL0:;
291
    *ZO630 = ZI630;
289
    *ZO630 = ZI630;
292
}
290
}
293
 
291
 
294
void
292
void
295
ZR529 PROTO_Z ()
293
ZR529(void)
296
{
294
{
297
    switch (CURRENT_TERMINAL) {
295
    switch (CURRENT_TERMINAL) {
298
      case 222:
296
      case 222:
299
	{
297
	{
300
	    ADVANCE_LEXER;
298
	    ADVANCE_LEXER;
Line 315... Line 313...
315
    SAVE_LEXER (354);
313
    SAVE_LEXER (354);
316
    return;
314
    return;
317
}
315
}
318
 
316
 
319
void
317
void
320
ZR631 PROTO_N ((ZO630))
-
 
321
  PROTO_T (CV_SPEC *ZO630)
318
ZR631(CV_SPEC *ZO630)
322
{
319
{
323
    CV_SPEC ZI630;
320
    CV_SPEC ZI630;
324
 
321
 
325
    switch (CURRENT_TERMINAL) {
322
    switch (CURRENT_TERMINAL) {
326
      case 98:
323
      case 98:
Line 351... Line 348...
351
  ZL0:;
348
  ZL0:;
352
    *ZO630 = ZI630;
349
    *ZO630 = ZI630;
353
}
350
}
354
 
351
 
355
void
352
void
356
ZR469 PROTO_Z ()
353
ZR469(void)
357
{
354
{
358
    switch (CURRENT_TERMINAL) {
355
    switch (CURRENT_TERMINAL) {
359
      case 85:
356
      case 85:
360
	{
357
	{
361
	    ADVANCE_LEXER;
358
	    ADVANCE_LEXER;
Line 396... Line 393...
396
    SAVE_LEXER (354);
393
    SAVE_LEXER (354);
397
    return;
394
    return;
398
}
395
}
399
 
396
 
400
void
397
void
401
ZR824 PROTO_N ((ZI420, ZI423))
-
 
402
  PROTO_T (TYPE ZI420 X BASE_TYPE ZI423)
398
ZR824(TYPE ZI420, BASE_TYPE ZI423)
403
{
399
{
404
    switch (CURRENT_TERMINAL) {
400
    switch (CURRENT_TERMINAL) {
405
      case 65:
401
      case 65:
406
	{
402
	{
407
	    TYPE ZI1038;
403
	    TYPE ZI1038;
Line 570... Line 566...
570
    SAVE_LEXER (354);
566
    SAVE_LEXER (354);
571
    return;
567
    return;
572
}
568
}
573
 
569
 
574
void
570
void
575
ZR788 PROTO_N ((ZI547, ZO404))
-
 
576
  PROTO_T (IDENTIFIER ZI547 X EXP *ZO404)
571
ZR788(IDENTIFIER ZI547, EXP *ZO404)
577
{
572
{
578
    EXP ZI404;
573
    EXP ZI404;
579
 
574
 
580
    switch (CURRENT_TERMINAL) {
575
    switch (CURRENT_TERMINAL) {
581
      case 1: case 17: case 18: case 19: case 20:
576
      case 1: case 17: case 18: case 19: case 20:
Line 641... Line 636...
641
  ZL0:;
636
  ZL0:;
642
    *ZO404 = ZI404;
637
    *ZO404 = ZI404;
643
}
638
}
644
 
639
 
645
void
640
void
646
ZR479 PROTO_N ((ZO913))
-
 
647
  PROTO_T (EXP *ZO913)
641
ZR479(EXP *ZO913)
648
{
642
{
649
    EXP ZI913;
643
    EXP ZI913;
650
 
644
 
651
    if ((CURRENT_TERMINAL) == 354) {
645
    if ((CURRENT_TERMINAL) == 354) {
652
	return;
646
	return;
Line 668... Line 662...
668
  ZL0:;
662
  ZL0:;
669
    *ZO913 = ZI913;
663
    *ZO913 = ZI913;
670
}
664
}
671
 
665
 
672
void
666
void
673
ZR751 PROTO_N ((ZO866, ZO867))
-
 
674
  PROTO_T (TYPE *ZO866 X IDENTIFIER *ZO867)
667
ZR751(TYPE *ZO866, IDENTIFIER *ZO867)
675
{
668
{
676
    TYPE ZI866;
669
    TYPE ZI866;
677
    IDENTIFIER ZI867;
670
    IDENTIFIER ZI867;
678
 
671
 
679
    switch (CURRENT_TERMINAL) {
672
    switch (CURRENT_TERMINAL) {
Line 775... Line 768...
775
    *ZO866 = ZI866;
768
    *ZO866 = ZI866;
776
    *ZO867 = ZI867;
769
    *ZO867 = ZI867;
777
}
770
}
778
 
771
 
779
void
772
void
780
ZR580 PROTO_N ((ZO404))
-
 
781
  PROTO_T (EXP *ZO404)
773
ZR580(EXP *ZO404)
782
{
774
{
783
    EXP ZI404;
775
    EXP ZI404;
784
 
776
 
785
    switch (CURRENT_TERMINAL) {
777
    switch (CURRENT_TERMINAL) {
786
      case 109:
778
      case 109:
Line 1006... Line 998...
1006
  ZL0:;
998
  ZL0:;
1007
    *ZO404 = ZI404;
999
    *ZO404 = ZI404;
1008
}
1000
}
1009
 
1001
 
1010
void
1002
void
1011
ZR414 PROTO_N ((ZO404))
-
 
1012
  PROTO_T (EXP *ZO404)
1003
ZR414(EXP *ZO404)
1013
{
1004
{
1014
    EXP ZI404;
1005
    EXP ZI404;
1015
 
1006
 
1016
    switch (CURRENT_TERMINAL) {
1007
    switch (CURRENT_TERMINAL) {
1017
      case 1: case 17: case 18: case 19: case 20:
1008
      case 1: case 17: case 18: case 19: case 20:
Line 1086... Line 1077...
1086
  ZL0:;
1077
  ZL0:;
1087
    *ZO404 = ZI404;
1078
    *ZO404 = ZI404;
1088
}
1079
}
1089
 
1080
 
1090
void
1081
void
1091
ZR548 PROTO_N ((ZI467, ZI547, ZO404))
-
 
1092
  PROTO_T (EXP ZI467 X int ZI547 X EXP *ZO404)
1082
ZR548(EXP ZI467, int ZI547, EXP *ZO404)
1093
{
1083
{
1094
    EXP ZI404;
1084
    EXP ZI404;
1095
 
1085
 
1096
    if ((CURRENT_TERMINAL) == 354) {
1086
    if ((CURRENT_TERMINAL) == 354) {
1097
	return;
1087
	return;
Line 1182... Line 1172...
1182
  ZL0:;
1172
  ZL0:;
1183
    *ZO404 = ZI404;
1173
    *ZO404 = ZI404;
1184
}
1174
}
1185
 
1175
 
1186
void
1176
void
1187
ZR724 PROTO_N ((ZI688, ZI689, ZI690, ZI716, ZO658, ZO395, ZO630, ZO605))
-
 
1188
  PROTO_T (BASE_TYPE *ZI688 X TYPE *ZI689 X CV_SPEC *ZI690 X DECL_SPEC *ZI716 X BASE_TYPE *ZO658 X TYPE *ZO395 X CV_SPEC *ZO630 X DECL_SPEC *ZO605)
1177
ZR724(BASE_TYPE *ZI688, TYPE *ZI689, CV_SPEC *ZI690, DECL_SPEC *ZI716, BASE_TYPE *ZO658, TYPE *ZO395, CV_SPEC *ZO630, DECL_SPEC *ZO605)
1189
{
1178
{
1190
    BASE_TYPE ZI658;
1179
    BASE_TYPE ZI658;
1191
    TYPE ZI395;
1180
    TYPE ZI395;
1192
    CV_SPEC ZI630;
1181
    CV_SPEC ZI630;
1193
    DECL_SPEC ZI605;
1182
    DECL_SPEC ZI605;
Line 1286... Line 1275...
1286
    *ZO630 = ZI630;
1275
    *ZO630 = ZI630;
1287
    *ZO605 = ZI605;
1276
    *ZO605 = ZI605;
1288
}
1277
}
1289
 
1278
 
1290
void
1279
void
1291
ZR555 PROTO_N ((ZI467, ZO404))
-
 
1292
  PROTO_T (EXP ZI467 X EXP *ZO404)
1280
ZR555(EXP ZI467, EXP *ZO404)
1293
{
1281
{
1294
    EXP ZI404;
1282
    EXP ZI404;
1295
 
1283
 
1296
    switch (CURRENT_TERMINAL) {
1284
    switch (CURRENT_TERMINAL) {
1297
      case 64:
1285
      case 64:
Line 1367... Line 1355...
1367
  ZL0:;
1355
  ZL0:;
1368
    *ZO404 = ZI404;
1356
    *ZO404 = ZI404;
1369
}
1357
}
1370
 
1358
 
1371
void
1359
void
1372
ZR528 PROTO_N ((ZO404))
-
 
1373
  PROTO_T (EXP *ZO404)
1360
ZR528(EXP *ZO404)
1374
{
1361
{
1375
    EXP ZI404;
1362
    EXP ZI404;
1376
 
1363
 
1377
    switch (CURRENT_TERMINAL) {
1364
    switch (CURRENT_TERMINAL) {
1378
      case 64:
1365
      case 64:
Line 1413... Line 1400...
1413
  ZL0:;
1400
  ZL0:;
1414
    *ZO404 = ZI404;
1401
    *ZO404 = ZI404;
1415
}
1402
}
1416
 
1403
 
1417
void
1404
void
1418
ZR983 PROTO_N ((ZO404))
-
 
1419
  PROTO_T (EXP *ZO404)
1405
ZR983(EXP *ZO404)
1420
{
1406
{
1421
    EXP ZI404;
1407
    EXP ZI404;
1422
 
1408
 
1423
    if ((CURRENT_TERMINAL) == 354) {
1409
    if ((CURRENT_TERMINAL) == 354) {
1424
	return;
1410
	return;
Line 1538... Line 1524...
1538
  ZL0:;
1524
  ZL0:;
1539
    *ZO404 = ZI404;
1525
    *ZO404 = ZI404;
1540
}
1526
}
1541
 
1527
 
1542
void
1528
void
1543
ZR856 PROTO_N ((ZI852, ZI853, ZO854, ZO855))
-
 
1544
  PROTO_T (TYPE ZI852 X IDENTIFIER ZI853 X TYPE *ZO854 X IDENTIFIER *ZO855)
1529
ZR856(TYPE ZI852, IDENTIFIER ZI853, TYPE *ZO854, IDENTIFIER *ZO855)
1545
{
1530
{
1546
    TYPE ZI854;
1531
    TYPE ZI854;
1547
    IDENTIFIER ZI855;
1532
    IDENTIFIER ZI855;
1548
 
1533
 
1549
  ZL2_856:;
1534
  ZL2_856:;
Line 1586... Line 1571...
1586
    *ZO854 = ZI854;
1571
    *ZO854 = ZI854;
1587
    *ZO855 = ZI855;
1572
    *ZO855 = ZI855;
1588
}
1573
}
1589
 
1574
 
1590
void
1575
void
1591
ZR759 PROTO_N ((ZO859))
-
 
1592
  PROTO_T (TYPE *ZO859)
1576
ZR759(TYPE *ZO859)
1593
{
1577
{
1594
    TYPE ZI859;
1578
    TYPE ZI859;
1595
 
1579
 
1596
    switch (CURRENT_TERMINAL) {
1580
    switch (CURRENT_TERMINAL) {
1597
      case 65:
1581
      case 65:
Line 1714... Line 1698...
1714
  ZL0:;
1698
  ZL0:;
1715
    *ZO859 = ZI859;
1699
    *ZO859 = ZI859;
1716
}
1700
}
1717
 
1701
 
1718
void
1702
void
1719
ZR602 PROTO_N ((ZO404))
-
 
1720
  PROTO_T (EXP *ZO404)
1703
ZR602(EXP *ZO404)
1721
{
1704
{
1722
    EXP ZI404;
1705
    EXP ZI404;
1723
 
1706
 
1724
    switch (CURRENT_TERMINAL) {
1707
    switch (CURRENT_TERMINAL) {
1725
      case 101:
1708
      case 101:
Line 2004... Line 1987...
2004
  ZL0:;
1987
  ZL0:;
2005
    *ZO404 = ZI404;
1988
    *ZO404 = ZI404;
2006
}
1989
}
2007
 
1990
 
2008
void
1991
void
2009
ZR506 PROTO_Z ()
1992
ZR506(void)
2010
{
1993
{
2011
    switch (CURRENT_TERMINAL) {
1994
    switch (CURRENT_TERMINAL) {
2012
      case 45:
1995
      case 45:
2013
	{
1996
	{
2014
	    ADVANCE_LEXER;
1997
	    ADVANCE_LEXER;
Line 2099... Line 2082...
2099
    SAVE_LEXER (354);
2082
    SAVE_LEXER (354);
2100
    return;
2083
    return;
2101
}
2084
}
2102
 
2085
 
2103
void
2086
void
2104
ZR860 PROTO_N ((ZI858, ZO859))
-
 
2105
  PROTO_T (TYPE ZI858 X TYPE *ZO859)
2087
ZR860(TYPE ZI858, TYPE *ZO859)
2106
{
2088
{
2107
    TYPE ZI859;
2089
    TYPE ZI859;
2108
 
2090
 
2109
  ZL2_860:;
2091
  ZL2_860:;
2110
    switch (CURRENT_TERMINAL) {
2092
    switch (CURRENT_TERMINAL) {
Line 2141... Line 2123...
2141
  ZL0:;
2123
  ZL0:;
2142
    *ZO859 = ZI859;
2124
    *ZO859 = ZI859;
2143
}
2125
}
2144
 
2126
 
2145
void
2127
void
2146
ZR536 PROTO_N ((ZO404))
-
 
2147
  PROTO_T (EXP *ZO404)
2128
ZR536(EXP *ZO404)
2148
{
2129
{
2149
    EXP ZI404;
2130
    EXP ZI404;
2150
 
2131
 
2151
    switch (CURRENT_TERMINAL) {
2132
    switch (CURRENT_TERMINAL) {
2152
      case 345:
2133
      case 345:
Line 2266... Line 2247...
2266
  ZL0:;
2247
  ZL0:;
2267
    *ZO404 = ZI404;
2248
    *ZO404 = ZI404;
2268
}
2249
}
2269
 
2250
 
2270
void
2251
void
2271
ZR834 PROTO_N ((ZI448, ZI568, ZO416, ZO395))
-
 
2272
  PROTO_T (OFFSET ZI448 X TYPE ZI568 X OFFSET *ZO416 X TYPE *ZO395)
2252
ZR834(OFFSET ZI448, TYPE ZI568, OFFSET *ZO416, TYPE *ZO395)
2273
{
2253
{
2274
    OFFSET ZI416;
2254
    OFFSET ZI416;
2275
    TYPE ZI395;
2255
    TYPE ZI395;
2276
 
2256
 
2277
    if ((CURRENT_TERMINAL) == 354) {
2257
    if ((CURRENT_TERMINAL) == 354) {
Line 2312... Line 2292...
2312
    *ZO416 = ZI416;
2292
    *ZO416 = ZI416;
2313
    *ZO395 = ZI395;
2293
    *ZO395 = ZI395;
2314
}
2294
}
2315
 
2295
 
2316
void
2296
void
2317
ZR806 PROTO_Z ()
2297
ZR806(void)
2318
{
2298
{
2319
    switch (CURRENT_TERMINAL) {
2299
    switch (CURRENT_TERMINAL) {
2320
      case 30:
2300
      case 30:
2321
	{
2301
	{
2322
	    ADVANCE_LEXER;
2302
	    ADVANCE_LEXER;
Line 2381... Line 2361...
2381
    SAVE_LEXER (354);
2361
    SAVE_LEXER (354);
2382
    return;
2362
    return;
2383
}
2363
}
2384
 
2364
 
2385
void
2365
void
2386
ZR868 PROTO_N ((ZI864, ZI865, ZO866, ZO867))
-
 
2387
  PROTO_T (TYPE ZI864 X IDENTIFIER ZI865 X TYPE *ZO866 X IDENTIFIER *ZO867)
2366
ZR868(TYPE ZI864, IDENTIFIER ZI865, TYPE *ZO866, IDENTIFIER *ZO867)
2388
{
2367
{
2389
    TYPE ZI866;
2368
    TYPE ZI866;
2390
    IDENTIFIER ZI867;
2369
    IDENTIFIER ZI867;
2391
 
2370
 
2392
  ZL2_868:;
2371
  ZL2_868:;
Line 2429... Line 2408...
2429
    *ZO866 = ZI866;
2408
    *ZO866 = ZI866;
2430
    *ZO867 = ZI867;
2409
    *ZO867 = ZI867;
2431
}
2410
}
2432
 
2411
 
2433
void
2412
void
2434
ZR615 PROTO_N ((ZO416))
-
 
2435
  PROTO_T (EXP *ZO416)
2413
ZR615(EXP *ZO416)
2436
{
2414
{
2437
    EXP ZI416;
2415
    EXP ZI416;
2438
 
2416
 
2439
    switch (CURRENT_TERMINAL) {
2417
    switch (CURRENT_TERMINAL) {
2440
      case 1: case 17: case 18: case 19: case 20:
2418
      case 1: case 17: case 18: case 19: case 20:
Line 2468... Line 2446...
2468
  ZL0:;
2446
  ZL0:;
2469
    *ZO416 = ZI416;
2447
    *ZO416 = ZI416;
2470
}
2448
}
2471
 
2449
 
2472
void
2450
void
2473
parse_mem_type PROTO_N ((ZO395))
2451
parse_mem_type(TYPE *ZO395)
2474
  PROTO_T (TYPE *ZO395)
-
 
2475
{
2452
{
2476
    TYPE ZI395;
2453
    TYPE ZI395;
2477
 
2454
 
2478
    if ((CURRENT_TERMINAL) == 354) {
2455
    if ((CURRENT_TERMINAL) == 354) {
2479
	return;
2456
	return;
Line 2531... Line 2508...
2531
  ZL0:;
2508
  ZL0:;
2532
    *ZO395 = ZI395;
2509
    *ZO395 = ZI395;
2533
}
2510
}
2534
 
2511
 
2535
void
2512
void
2536
parse_operator PROTO_N ((ZO399))
2513
parse_operator(IDENTIFIER *ZO399)
2537
  PROTO_T (IDENTIFIER *ZO399)
-
 
2538
{
2514
{
2539
    IDENTIFIER ZI399;
2515
    IDENTIFIER ZI399;
2540
 
2516
 
2541
    if ((CURRENT_TERMINAL) == 354) {
2517
    if ((CURRENT_TERMINAL) == 354) {
2542
	return;
2518
	return;
Line 2556... Line 2532...
2556
    }
2532
    }
2557
    *ZO399 = ZI399;
2533
    *ZO399 = ZI399;
2558
}
2534
}
2559
 
2535
 
2560
void
2536
void
2561
ZR497 PROTO_N ((ZO885))
-
 
2562
  PROTO_T (EXP *ZO885)
2537
ZR497(EXP *ZO885)
2563
{
2538
{
2564
    EXP ZI885;
2539
    EXP ZI885;
2565
 
2540
 
2566
    if ((CURRENT_TERMINAL) == 354) {
2541
    if ((CURRENT_TERMINAL) == 354) {
2567
	return;
2542
	return;
Line 2583... Line 2558...
2583
  ZL0:;
2558
  ZL0:;
2584
    *ZO885 = ZI885;
2559
    *ZO885 = ZI885;
2585
}
2560
}
2586
 
2561
 
2587
void
2562
void
2588
ZR874 PROTO_N ((ZI872, ZO873))
-
 
2589
  PROTO_T (EXP ZI872 X EXP *ZO873)
2563
ZR874(EXP ZI872, EXP *ZO873)
2590
{
2564
{
2591
    EXP ZI873;
2565
    EXP ZI873;
2592
 
2566
 
2593
  ZL2_874:;
2567
  ZL2_874:;
2594
    switch (CURRENT_TERMINAL) {
2568
    switch (CURRENT_TERMINAL) {
Line 2637... Line 2611...
2637
  ZL0:;
2611
  ZL0:;
2638
    *ZO873 = ZI873;
2612
    *ZO873 = ZI873;
2639
}
2613
}
2640
 
2614
 
2641
void
2615
void
2642
ZR613 PROTO_N ((ZO404))
-
 
2643
  PROTO_T (EXP *ZO404)
2616
ZR613(EXP *ZO404)
2644
{
2617
{
2645
    EXP ZI404;
2618
    EXP ZI404;
2646
 
2619
 
2647
    switch (CURRENT_TERMINAL) {
2620
    switch (CURRENT_TERMINAL) {
2648
      case 96:
2621
      case 96:
Line 2727... Line 2700...
2727
  ZL0:;
2700
  ZL0:;
2728
    *ZO404 = ZI404;
2701
    *ZO404 = ZI404;
2729
}
2702
}
2730
 
2703
 
2731
void
2704
void
2732
ZR515 PROTO_N ((ZO420))
-
 
2733
  PROTO_T (SID_LIST_EXP *ZO420)
2705
ZR515(SID_LIST_EXP *ZO420)
2734
{
2706
{
2735
    SID_LIST_EXP ZI420;
2707
    SID_LIST_EXP ZI420;
2736
 
2708
 
2737
    switch (CURRENT_TERMINAL) {
2709
    switch (CURRENT_TERMINAL) {
2738
      case 1: case 17: case 18: case 19: case 20:
2710
      case 1: case 17: case 18: case 19: case 20:
Line 2797... Line 2769...
2797
  ZL0:;
2769
  ZL0:;
2798
    *ZO420 = ZI420;
2770
    *ZO420 = ZI420;
2799
}
2771
}
2800
 
2772
 
2801
void
2773
void
2802
ZR743 PROTO_N ((ZO747))
-
 
2803
  PROTO_T (int *ZO747)
2774
ZR743(int *ZO747)
2804
{
2775
{
2805
    int ZI747;
2776
    int ZI747;
2806
 
2777
 
2807
  ZL2_743:;
2778
  ZL2_743:;
2808
    switch (CURRENT_TERMINAL) {
2779
    switch (CURRENT_TERMINAL) {
Line 2858... Line 2829...
2858
  ZL0:;
2829
  ZL0:;
2859
    *ZO747 = ZI747;
2830
    *ZO747 = ZI747;
2860
}
2831
}
2861
 
2832
 
2862
void
2833
void
2863
ZR409 PROTO_N ((ZO404))
-
 
2864
  PROTO_T (EXP *ZO404)
2834
ZR409(EXP *ZO404)
2865
{
2835
{
2866
    EXP ZI404;
2836
    EXP ZI404;
2867
 
2837
 
2868
    switch (CURRENT_TERMINAL) {
2838
    switch (CURRENT_TERMINAL) {
2869
      case 17: case 18:
2839
      case 17: case 18:
Line 2972... Line 2942...
2972
  ZL0:;
2942
  ZL0:;
2973
    *ZO404 = ZI404;
2943
    *ZO404 = ZI404;
2974
}
2944
}
2975
 
2945
 
2976
void
2946
void
2977
ZR777 PROTO_N ((ZO399))
-
 
2978
  PROTO_T (IDENTIFIER *ZO399)
2947
ZR777(IDENTIFIER *ZO399)
2979
{
2948
{
2980
    IDENTIFIER ZI399;
2949
    IDENTIFIER ZI399;
2981
 
2950
 
2982
    switch (CURRENT_TERMINAL) {
2951
    switch (CURRENT_TERMINAL) {
2983
      case 2:
2952
      case 2:
Line 3033... Line 3002...
3033
  ZL0:;
3002
  ZL0:;
3034
    *ZO399 = ZI399;
3003
    *ZO399 = ZI399;
3035
}
3004
}
3036
 
3005
 
3037
void
3006
void
3038
parse_decl PROTO_N ((ZI395, ZI605))
-
 
3039
  PROTO_T (TYPE ZI395 X DECL_SPEC ZI605)
3007
parse_decl(TYPE ZI395, DECL_SPEC ZI605)
3040
{
3008
{
3041
    if ((CURRENT_TERMINAL) == 354) {
3009
    if ((CURRENT_TERMINAL) == 354) {
3042
	return;
3010
	return;
3043
    }
3011
    }
3044
    {
3012
    {
Line 3095... Line 3063...
3095
	}
3063
	}
3096
    }
3064
    }
3097
}
3065
}
3098
 
3066
 
3099
void
3067
void
3100
ZR878 PROTO_N ((ZI876, ZO877))
-
 
3101
  PROTO_T (EXP ZI876 X EXP *ZO877)
3068
ZR878(EXP ZI876, EXP *ZO877)
3102
{
3069
{
3103
    EXP ZI877;
3070
    EXP ZI877;
3104
 
3071
 
3105
  ZL2_878:;
3072
  ZL2_878:;
3106
    switch (CURRENT_TERMINAL) {
3073
    switch (CURRENT_TERMINAL) {
Line 3148... Line 3115...
3148
  ZL0:;
3115
  ZL0:;
3149
    *ZO877 = ZI877;
3116
    *ZO877 = ZI877;
3150
}
3117
}
3151
 
3118
 
3152
void
3119
void
3153
ZR624 PROTO_N ((ZO420))
-
 
3154
  PROTO_T (SID_LIST_EXP *ZO420)
3120
ZR624(SID_LIST_EXP *ZO420)
3155
{
3121
{
3156
    SID_LIST_EXP ZI420;
3122
    SID_LIST_EXP ZI420;
3157
 
3123
 
3158
    switch (CURRENT_TERMINAL) {
3124
    switch (CURRENT_TERMINAL) {
3159
      case 42:
3125
      case 42:
Line 3184... Line 3150...
3184
  ZL0:;
3150
  ZL0:;
3185
    *ZO420 = ZI420;
3151
    *ZO420 = ZI420;
3186
}
3152
}
3187
 
3153
 
3188
void
3154
void
3189
ZR495 PROTO_N ((ZO889))
-
 
3190
  PROTO_T (EXP *ZO889)
3155
ZR495(EXP *ZO889)
3191
{
3156
{
3192
    EXP ZI889;
3157
    EXP ZI889;
3193
 
3158
 
3194
    if ((CURRENT_TERMINAL) == 354) {
3159
    if ((CURRENT_TERMINAL) == 354) {
3195
	return;
3160
	return;
Line 3211... Line 3176...
3211
  ZL0:;
3176
  ZL0:;
3212
    *ZO889 = ZI889;
3177
    *ZO889 = ZI889;
3213
}
3178
}
3214
 
3179
 
3215
void
3180
void
3216
ZR551 PROTO_N ((ZO404))
-
 
3217
  PROTO_T (EXP *ZO404)
3181
ZR551(EXP *ZO404)
3218
{
3182
{
3219
    EXP ZI404;
3183
    EXP ZI404;
3220
 
3184
 
3221
    if ((CURRENT_TERMINAL) == 354) {
3185
    if ((CURRENT_TERMINAL) == 354) {
3222
	return;
3186
	return;
Line 3278... Line 3242...
3278
  ZL0:;
3242
  ZL0:;
3279
    *ZO404 = ZI404;
3243
    *ZO404 = ZI404;
3280
}
3244
}
3281
 
3245
 
3282
void
3246
void
3283
ZR396 PROTO_Z ()
3247
ZR396(void)
3284
{
3248
{
3285
    if ((CURRENT_TERMINAL) == 354) {
3249
    if ((CURRENT_TERMINAL) == 354) {
3286
	return;
3250
	return;
3287
    }
3251
    }
3288
    {
3252
    {
Line 3310... Line 3274...
3310
	}
3274
	}
3311
    }
3275
    }
3312
}
3276
}
3313
 
3277
 
3314
void
3278
void
3315
ZR501 PROTO_N ((ZO877))
-
 
3316
  PROTO_T (EXP *ZO877)
3279
ZR501(EXP *ZO877)
3317
{
3280
{
3318
    EXP ZI877;
3281
    EXP ZI877;
3319
 
3282
 
3320
    if ((CURRENT_TERMINAL) == 354) {
3283
    if ((CURRENT_TERMINAL) == 354) {
3321
	return;
3284
	return;
Line 3337... Line 3300...
3337
  ZL0:;
3300
  ZL0:;
3338
    *ZO877 = ZI877;
3301
    *ZO877 = ZI877;
3339
}
3302
}
3340
 
3303
 
3341
void
3304
void
3342
ZR518 PROTO_N ((ZO404))
-
 
3343
  PROTO_T (EXP *ZO404)
3305
ZR518(EXP *ZO404)
3344
{
3306
{
3345
    EXP ZI404;
3307
    EXP ZI404;
3346
 
3308
 
3347
    if ((CURRENT_TERMINAL) == 354) {
3309
    if ((CURRENT_TERMINAL) == 354) {
3348
	return;
3310
	return;
Line 3368... Line 3330...
3368
  ZL0:;
3330
  ZL0:;
3369
    *ZO404 = ZI404;
3331
    *ZO404 = ZI404;
3370
}
3332
}
3371
 
3333
 
3372
void
3334
void
3373
ZR882 PROTO_N ((ZI880, ZO881))
-
 
3374
  PROTO_T (EXP ZI880 X EXP *ZO881)
3335
ZR882(EXP ZI880, EXP *ZO881)
3375
{
3336
{
3376
    EXP ZI881;
3337
    EXP ZI881;
3377
 
3338
 
3378
  ZL2_882:;
3339
  ZL2_882:;
3379
    switch (CURRENT_TERMINAL) {
3340
    switch (CURRENT_TERMINAL) {
Line 3421... Line 3382...
3421
  ZL0:;
3382
  ZL0:;
3422
    *ZO881 = ZI881;
3383
    *ZO881 = ZI881;
3423
}
3384
}
3424
 
3385
 
3425
void
3386
void
3426
ZR755 PROTO_N ((ZO568))
-
 
3427
  PROTO_T (TYPE *ZO568)
3387
ZR755(TYPE *ZO568)
3428
{
3388
{
3429
    TYPE ZI568;
3389
    TYPE ZI568;
3430
 
3390
 
3431
    switch (CURRENT_TERMINAL) {
3391
    switch (CURRENT_TERMINAL) {
3432
      case 2: case 25: case 47: case 94: case 97:
3392
      case 2: case 25: case 47: case 94: case 97:
Line 3467... Line 3427...
3467
  ZL0:;
3427
  ZL0:;
3468
    *ZO568 = ZI568;
3428
    *ZO568 = ZI568;
3469
}
3429
}
3470
 
3430
 
3471
void
3431
void
3472
ZR731 PROTO_N ((ZO420))
-
 
3473
  PROTO_T (TYPE *ZO420)
3432
ZR731(TYPE *ZO420)
3474
{
3433
{
3475
    TYPE ZI420;
3434
    TYPE ZI420;
3476
 
3435
 
3477
    if ((CURRENT_TERMINAL) == 354) {
3436
    if ((CURRENT_TERMINAL) == 354) {
3478
	return;
3437
	return;
Line 3504... Line 3463...
3504
  ZL0:;
3463
  ZL0:;
3505
    *ZO420 = ZI420;
3464
    *ZO420 = ZI420;
3506
}
3465
}
3507
 
3466
 
3508
void
3467
void
3509
ZR757 PROTO_N ((ZO404))
-
 
3510
  PROTO_T (EXP *ZO404)
3468
ZR757(EXP *ZO404)
3511
{
3469
{
3512
    EXP ZI404;
3470
    EXP ZI404;
3513
 
3471
 
3514
    switch (CURRENT_TERMINAL) {
3472
    switch (CURRENT_TERMINAL) {
3515
      case 1: case 17: case 18: case 19: case 20:
3473
      case 1: case 17: case 18: case 19: case 20:
Line 3543... Line 3501...
3543
  ZL0:;
3501
  ZL0:;
3544
    *ZO404 = ZI404;
3502
    *ZO404 = ZI404;
3545
}
3503
}
3546
 
3504
 
3547
void
3505
void
3548
ZR488 PROTO_N ((ZO901))
-
 
3549
  PROTO_T (EXP *ZO901)
3506
ZR488(EXP *ZO901)
3550
{
3507
{
3551
    EXP ZI901;
3508
    EXP ZI901;
3552
 
3509
 
3553
    if ((CURRENT_TERMINAL) == 354) {
3510
    if ((CURRENT_TERMINAL) == 354) {
3554
	return;
3511
	return;
Line 3570... Line 3527...
3570
  ZL0:;
3527
  ZL0:;
3571
    *ZO901 = ZI901;
3528
    *ZO901 = ZI901;
3572
}
3529
}
3573
 
3530
 
3574
void
3531
void
3575
ZR797 PROTO_N ((ZI605, ZI658, ZI395))
-
 
3576
  PROTO_T (DECL_SPEC ZI605 X BASE_TYPE ZI658 X TYPE ZI395)
3532
ZR797(DECL_SPEC ZI605, BASE_TYPE ZI658, TYPE ZI395)
3577
{
3533
{
3578
    if ((CURRENT_TERMINAL) == 354) {
3534
    if ((CURRENT_TERMINAL) == 354) {
3579
	return;
3535
	return;
3580
    }
3536
    }
3581
  ZL2_797:;
3537
  ZL2_797:;
Line 3602... Line 3558...
3602
    SAVE_LEXER (354);
3558
    SAVE_LEXER (354);
3603
    return;
3559
    return;
3604
}
3560
}
3605
 
3561
 
3606
void
3562
void
3607
ZR758 PROTO_N ((ZO747))
-
 
3608
  PROTO_T (int *ZO747)
3563
ZR758(int *ZO747)
3609
{
3564
{
3610
    int ZI747;
3565
    int ZI747;
3611
 
3566
 
3612
    switch (CURRENT_TERMINAL) {
3567
    switch (CURRENT_TERMINAL) {
3613
      case 2: case 25: case 47: case 94: case 97:
3568
      case 2: case 25: case 47: case 94: case 97:
Line 3641... Line 3596...
3641
  ZL0:;
3596
  ZL0:;
3642
    *ZO747 = ZI747;
3597
    *ZO747 = ZI747;
3643
}
3598
}
3644
 
3599
 
3645
void
3600
void
3646
ZR886 PROTO_N ((ZI884, ZO885))
-
 
3647
  PROTO_T (EXP ZI884 X EXP *ZO885)
3601
ZR886(EXP ZI884, EXP *ZO885)
3648
{
3602
{
3649
    EXP ZI885;
3603
    EXP ZI885;
3650
 
3604
 
3651
  ZL2_886:;
3605
  ZL2_886:;
3652
    switch (CURRENT_TERMINAL) {
3606
    switch (CURRENT_TERMINAL) {
Line 3694... Line 3648...
3694
  ZL0:;
3648
  ZL0:;
3695
    *ZO885 = ZI885;
3649
    *ZO885 = ZI885;
3696
}
3650
}
3697
 
3651
 
3698
void
3652
void
3699
ZR1014 PROTO_N ((ZI1013, ZO404))
-
 
3700
  PROTO_T (EXP *ZI1013 X EXP *ZO404)
3653
ZR1014(EXP *ZI1013, EXP *ZO404)
3701
{
3654
{
3702
    EXP ZI404;
3655
    EXP ZI404;
3703
 
3656
 
3704
    switch (CURRENT_TERMINAL) {
3657
    switch (CURRENT_TERMINAL) {
3705
      case 36:
3658
      case 36:
Line 3782... Line 3735...
3782
  ZL0:;
3735
  ZL0:;
3783
    *ZO404 = ZI404;
3736
    *ZO404 = ZI404;
3784
}
3737
}
3785
 
3738
 
3786
void
3739
void
3787
ZR476 PROTO_N ((ZO917))
-
 
3788
  PROTO_T (EXP *ZO917)
3740
ZR476(EXP *ZO917)
3789
{
3741
{
3790
    EXP ZI917;
3742
    EXP ZI917;
3791
 
3743
 
3792
    if ((CURRENT_TERMINAL) == 354) {
3744
    if ((CURRENT_TERMINAL) == 354) {
3793
	return;
3745
	return;