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/common/parse/psyntax.sid
3
 *	psyntax.sid
4
 * and
4
 * and
5
 *	/u/g/release/Source/src/producers/common/parse/psyntax.act
5
 *	psyntax.act
6
 * by:
6
 * by:
7
 *	sid
7
 *	../../../../bootstrap/src/utilities/sid/sid
8
 */
8
 */
9
 
9
 
10
/* BEGINNING OF HEADER */
10
/* BEGINNING OF HEADER */
11
 
11
 
12
#define __SID_SPLIT
12
#define __SID_SPLIT
Line 95... Line 95...
95
    COMPOUND TYPE ALIASES
95
    COMPOUND TYPE ALIASES
96
 
96
 
97
    These are the aliases for the compound types used in the parser.
97
    These are the aliases for the compound types used in the parser.
98
*/
98
*/
99
 
99
 
100
typedef LIST ( IDENTIFIER ) SID_LIST_ID ;
100
typedef LIST(IDENTIFIER) SID_LIST_ID;
101
 
101
 
102
 
102
 
103
/*
103
/*
104
     DECLARE FUNCTIONS
104
     DECLARE FUNCTIONS
105
 
105
 
106
     The function declarations are included at this point so that the
106
     The function declarations are included at this point so that the
107
     type definitions are in scope.
107
     type definitions are in scope.
108
*/
108
*/
109
 
109
 
110
#include "psyntax.h"
110
#include "psyntax.h"
111
extern void parse_tok_type PROTO_S ( ( TYPE * ) ) ;
111
extern void parse_tok_type(TYPE *);
112
extern void parse_mem_type PROTO_S ( ( TYPE * ) ) ;
112
extern void parse_mem_type(TYPE *);
113
extern void parse_operator PROTO_S ( ( IDENTIFIER * ) ) ;
113
extern void parse_operator(IDENTIFIER *);
114
 
114
 
115
 
115
 
116
/*
116
/*
117
    COMPILATION MODE
117
    COMPILATION MODE
118
 
118
 
Line 131... Line 131...
131
#endif
131
#endif
132
 
132
 
133
 
133
 
134
 
134
 
135
void
135
void
136
XR550 PROTO_N ((XO397))
-
 
137
  PROTO_T (int *XO397)
136
XR550(int *XO397)
138
{
137
{
139
    int XI397;
138
    int XI397;
140
 
139
 
141
    switch (CURRENT_TERMINAL) {
140
    switch (CURRENT_TERMINAL) {
142
      case 126:
141
      case 126:
Line 272... Line 271...
272
  XL0:;
271
  XL0:;
273
    *XO397 = XI397;
272
    *XO397 = XI397;
274
}
273
}
275
 
274
 
276
void
275
void
277
XR447 PROTO_N ((XO409))
-
 
278
  PROTO_T (DECL_SPEC *XO409)
276
XR447(DECL_SPEC *XO409)
279
{
277
{
280
    DECL_SPEC XI409;
278
    DECL_SPEC XI409;
281
 
279
 
282
    switch (CURRENT_TERMINAL) {
280
    switch (CURRENT_TERMINAL) {
283
      case 142:
281
      case 142:
Line 316... Line 314...
316
    }
314
    }
317
    *XO409 = XI409;
315
    *XO409 = XI409;
318
}
316
}
319
 
317
 
320
void
318
void
321
XR757 PROTO_N ((XO708))
-
 
322
  PROTO_T (int *XO708)
319
XR757(int *XO708)
323
{
320
{
324
    int XI708;
321
    int XI708;
325
 
322
 
326
    if ((CURRENT_TERMINAL) == 354) {
323
    if ((CURRENT_TERMINAL) == 354) {
327
	return;
324
	return;
Line 376... Line 373...
376
  XL0:;
373
  XL0:;
377
    *XO708 = XI708;
374
    *XO708 = XI708;
378
}
375
}
379
 
376
 
380
void
377
void
381
XR741 PROTO_N ((XO445))
-
 
382
  PROTO_T (unsigned *XO445)
378
XR741(unsigned *XO445)
383
{
379
{
384
    unsigned XI445;
380
    unsigned XI445;
385
 
381
 
386
    switch (CURRENT_TERMINAL) {
382
    switch (CURRENT_TERMINAL) {
387
      case 178:
383
      case 178:
Line 411... Line 407...
411
  XL0:;
407
  XL0:;
412
    *XO445 = XI445;
408
    *XO445 = XI445;
413
}
409
}
414
 
410
 
415
void
411
void
416
XR482 PROTO_Z ()
412
XR482(void)
417
{
413
{
418
    if ((CURRENT_TERMINAL) == 354) {
414
    if ((CURRENT_TERMINAL) == 354) {
419
	return;
415
	return;
420
    }
416
    }
421
    {
417
    {
Line 509... Line 505...
509
    SAVE_LEXER (354);
505
    SAVE_LEXER (354);
510
    return;
506
    return;
511
}
507
}
512
 
508
 
513
void
509
void
514
XR495 PROTO_N ((XI409))
-
 
515
  PROTO_T (int XI409)
510
XR495(int XI409)
516
{
511
{
517
  XL2_495:;
512
  XL2_495:;
518
    switch (CURRENT_TERMINAL) {
513
    switch (CURRENT_TERMINAL) {
519
      case 1: case 2: case 3: case 4:
514
      case 1: case 2: case 3: case 4:
520
	{
515
	{
Line 579... Line 574...
579
    SAVE_LEXER (354);
574
    SAVE_LEXER (354);
580
    return;
575
    return;
581
}
576
}
582
 
577
 
583
void
578
void
584
XR507 PROTO_N ((XO377))
-
 
585
  PROTO_T (unsigned *XO377)
579
XR507(unsigned *XO377)
586
{
580
{
587
    unsigned XI377;
581
    unsigned XI377;
588
 
582
 
589
    switch (CURRENT_TERMINAL) {
583
    switch (CURRENT_TERMINAL) {
590
      case 172:
584
      case 172:
Line 639... Line 633...
639
  XL0:;
633
  XL0:;
640
    *XO377 = XI377;
634
    *XO377 = XI377;
641
}
635
}
642
 
636
 
643
void
637
void
644
XR413 PROTO_N ((XO402))
-
 
645
  PROTO_T (SID_LIST_ID *XO402)
638
XR413(SID_LIST_ID *XO402)
646
{
639
{
647
    SID_LIST_ID XI402;
640
    SID_LIST_ID XI402;
648
 
641
 
649
    if ((CURRENT_TERMINAL) == 354) {
642
    if ((CURRENT_TERMINAL) == 354) {
650
	return;
643
	return;
Line 691... Line 684...
691
  XL0:;
684
  XL0:;
692
    *XO402 = XI402;
685
    *XO402 = XI402;
693
}
686
}
694
 
687
 
695
void
688
void
696
XR551 PROTO_Z ()
689
XR551(void)
697
{
690
{
698
    switch (CURRENT_TERMINAL) {
691
    switch (CURRENT_TERMINAL) {
699
      case 317:
692
      case 317:
700
	{
693
	{
701
	    IDENTIFIER XI375;
694
	    IDENTIFIER XI375;
Line 749... Line 742...
749
    SAVE_LEXER (354);
742
    SAVE_LEXER (354);
750
    return;
743
    return;
751
}
744
}
752
 
745
 
753
void
746
void
754
XR497 PROTO_Z ()
747
XR497(void)
755
{
748
{
756
  XL2_497:;
749
  XL2_497:;
757
    switch (CURRENT_TERMINAL) {
750
    switch (CURRENT_TERMINAL) {
758
      case 1: case 2: case 3: case 4:
751
      case 1: case 2: case 3: case 4:
759
	{
752
	{
Line 818... Line 811...
818
    SAVE_LEXER (354);
811
    SAVE_LEXER (354);
819
    return;
812
    return;
820
}
813
}
821
 
814
 
822
void
815
void
823
XR506 PROTO_N ((XO377))
-
 
824
  PROTO_T (unsigned *XO377)
816
XR506(unsigned *XO377)
825
{
817
{
826
    unsigned XI377;
818
    unsigned XI377;
827
 
819
 
828
    switch (CURRENT_TERMINAL) {
820
    switch (CURRENT_TERMINAL) {
829
      case 172:
821
      case 172:
Line 862... Line 854...
862
  XL0:;
854
  XL0:;
863
    *XO377 = XI377;
855
    *XO377 = XI377;
864
}
856
}
865
 
857
 
866
void
858
void
867
XR753 PROTO_N ((XO444))
-
 
868
  PROTO_T (EXP *XO444)
859
XR753(EXP *XO444)
869
{
860
{
870
    EXP XI444;
861
    EXP XI444;
871
 
862
 
872
    switch (CURRENT_TERMINAL) {
863
    switch (CURRENT_TERMINAL) {
873
      case 178:
864
      case 178:
Line 927... Line 918...
927
  XL0:;
918
  XL0:;
928
    *XO444 = XI444;
919
    *XO444 = XI444;
929
}
920
}
930
 
921
 
931
void
922
void
932
XR446 PROTO_N ((XO444, XO445))
-
 
933
  PROTO_T (int *XO444 X int *XO445)
923
XR446(int *XO444, int *XO445)
934
{
924
{
935
    int XI444;
925
    int XI444;
936
    int XI445;
926
    int XI445;
937
 
927
 
938
    switch (CURRENT_TERMINAL) {
928
    switch (CURRENT_TERMINAL) {
Line 985... Line 975...
985
    *XO444 = XI444;
975
    *XO444 = XI444;
986
    *XO445 = XI445;
976
    *XO445 = XI445;
987
}
977
}
988
 
978
 
989
void
979
void
990
XR407 PROTO_N ((XI406, XO375))
-
 
991
  PROTO_T (SID_LIST_ID XI406 X IDENTIFIER *XO375)
980
XR407(SID_LIST_ID XI406, IDENTIFIER *XO375)
992
{
981
{
993
    IDENTIFIER XI375;
982
    IDENTIFIER XI375;
994
 
983
 
995
    switch (CURRENT_TERMINAL) {
984
    switch (CURRENT_TERMINAL) {
996
      case 217:
985
      case 217:
Line 1249... Line 1238...
1249
  XL0:;
1238
  XL0:;
1250
    *XO375 = XI375;
1239
    *XO375 = XI375;
1251
}
1240
}
1252
 
1241
 
1253
void
1242
void
1254
XR396 PROTO_N ((XO400))
-
 
1255
  PROTO_T (TOKEN *XO400)
1243
XR396(TOKEN *XO400)
1256
{
1244
{
1257
    TOKEN XI400;
1245
    TOKEN XI400;
1258
 
1246
 
1259
    switch (CURRENT_TERMINAL) {
1247
    switch (CURRENT_TERMINAL) {
1260
      case 176:
1248
      case 176:
Line 1484... Line 1472...
1484
  XL0:;
1472
  XL0:;
1485
    *XO400 = XI400;
1473
    *XO400 = XI400;
1486
}
1474
}
1487
 
1475
 
1488
void
1476
void
1489
XR508 PROTO_N ((XO377))
-
 
1490
  PROTO_T (unsigned *XO377)
1477
XR508(unsigned *XO377)
1491
{
1478
{
1492
    unsigned XI377;
1479
    unsigned XI377;
1493
 
1480
 
1494
    switch (CURRENT_TERMINAL) {
1481
    switch (CURRENT_TERMINAL) {
1495
      case 330:
1482
      case 330: