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
ZR1327 PROTO_N ((ZO844))
-
 
135
  PROTO_T (int *ZO844)
-
 
136
{
-
 
137
    int ZI844;
-
 
138
 
-
 
139
    switch (CURRENT_TERMINAL) {
-
 
140
      case 155:
-
 
141
	{
-
 
142
	    ADVANCE_LEXER;
-
 
143
	    {
-
 
144
 (ZI844) = 1 ; 
-
 
145
	    }
-
 
146
	}
-
 
147
	break;
-
 
148
      default:
-
 
149
	{
-
 
150
	    {
-
 
151
 (ZI844) = 0 ; 
-
 
152
	    }
-
 
153
	}
-
 
154
	break;
-
 
155
      case 354:
-
 
156
	return;
-
 
157
    }
-
 
158
    *ZO844 = ZI844;
-
 
159
}
-
 
160
 
-
 
161
void
-
 
162
ZR1200 PROTO_N ((ZI1198, ZO1199))
-
 
163
  PROTO_T (EXP ZI1198 X EXP *ZO1199)
134
ZR1200(EXP ZI1198, EXP *ZO1199)
164
{
135
{
165
    EXP ZI1199;
136
    EXP ZI1199;
166
 
137
 
167
  ZL2_1200:;
138
  ZL2_1200:;
168
    switch (CURRENT_TERMINAL) {
139
    switch (CURRENT_TERMINAL) {
Line 210... Line 181...
210
  ZL0:;
181
  ZL0:;
211
    *ZO1199 = ZI1199;
182
    *ZO1199 = ZI1199;
212
}
183
}
213
 
184
 
214
void
185
void
215
ZR614 PROTO_N ((ZO1219))
-
 
216
  PROTO_T (EXP *ZO1219)
186
ZR614(EXP *ZO1219)
217
{
187
{
218
    EXP ZI1219;
188
    EXP ZI1219;
219
 
189
 
220
    if ((CURRENT_TERMINAL) == 354) {
190
    if ((CURRENT_TERMINAL) == 354) {
221
	return;
191
	return;
Line 237... Line 207...
237
  ZL0:;
207
  ZL0:;
238
    *ZO1219 = ZI1219;
208
    *ZO1219 = ZI1219;
239
}
209
}
240
 
210
 
241
void
211
void
242
ZR838 PROTO_N ((ZI414, ZI689))
-
 
243
  PROTO_T (TYPE ZI414 X DECL_SPEC ZI689)
212
ZR838(TYPE ZI414, DECL_SPEC ZI689)
244
{
213
{
245
    if ((CURRENT_TERMINAL) == 354) {
214
    if ((CURRENT_TERMINAL) == 354) {
246
	return;
215
	return;
247
    }
216
    }
248
    {
217
    {
Line 411... Line 380...
411
    return;
380
    return;
412
  ZL0:;
381
  ZL0:;
413
}
382
}
414
 
383
 
415
void
384
void
416
ZR1328 PROTO_N ((ZO493))
-
 
417
  PROTO_T (DECL_SPEC *ZO493)
385
ZR1328(DECL_SPEC *ZO493)
418
{
386
{
419
    DECL_SPEC ZI493;
387
    DECL_SPEC ZI493;
420
 
388
 
421
    switch (CURRENT_TERMINAL) {
389
    switch (CURRENT_TERMINAL) {
422
      case 142: case 143: case 144:
390
      case 142: case 143: case 144:
Line 445... Line 413...
445
  ZL0:;
413
  ZL0:;
446
    *ZO493 = ZI493;
414
    *ZO493 = ZI493;
447
}
415
}
448
 
416
 
449
void
417
void
450
ZR737 PROTO_N ((ZO431))
-
 
451
  PROTO_T (EXP *ZO431)
418
ZR737(EXP *ZO431)
452
{
419
{
453
    EXP ZI431;
420
    EXP ZI431;
454
 
421
 
455
    switch (CURRENT_TERMINAL) {
422
    switch (CURRENT_TERMINAL) {
456
      case 1: case 2: case 3: case 5: case 6:
423
      case 1: case 2: case 3: case 5: case 6:
Line 503... Line 470...
503
  ZL0:;
470
  ZL0:;
504
    *ZO431 = ZI431;
471
    *ZO431 = ZI431;
505
}
472
}
506
 
473
 
507
void
474
void
508
ZR1075 PROTO_N ((ZI511, ZI1073, ZI1074, ZI670, ZI558, ZI459))
-
 
509
  PROTO_T (BASE_TYPE *ZI511 X DECL_SPEC *ZI1073 X TYPE *ZI1074 X ACCESS_LIST *ZI670 X int *ZI558 X IDENTIFIER *ZI459)
475
ZR1075(BASE_TYPE *ZI511, DECL_SPEC *ZI1073, TYPE *ZI1074, ACCESS_LIST *ZI670, int *ZI558, IDENTIFIER *ZI459)
510
{
476
{
511
    if ((CURRENT_TERMINAL) == 354) {
477
    if ((CURRENT_TERMINAL) == 354) {
512
	return;
478
	return;
513
    }
479
    }
514
    {
480
    {
Line 725... Line 691...
725
    return;
691
    return;
726
  ZL0:;
692
  ZL0:;
727
}
693
}
728
 
694
 
729
void
695
void
730
ZR568 PROTO_N ((ZO414, ZO551))
-
 
731
  PROTO_T (TYPE *ZO414 X int *ZO551)
696
ZR568(TYPE *ZO414, int *ZO551)
732
{
697
{
733
    TYPE ZI414;
698
    TYPE ZI414;
734
    int ZI551;
699
    int ZI551;
735
 
700
 
736
    if ((CURRENT_TERMINAL) == 354) {
701
    if ((CURRENT_TERMINAL) == 354) {
Line 780... Line 745...
780
    *ZO414 = ZI414;
745
    *ZO414 = ZI414;
781
    *ZO551 = ZI551;
746
    *ZO551 = ZI551;
782
}
747
}
783
 
748
 
784
void
749
void
785
ZR622 PROTO_N ((ZO1207))
-
 
786
  PROTO_T (EXP *ZO1207)
750
ZR622(EXP *ZO1207)
787
{
751
{
788
    EXP ZI1207;
752
    EXP ZI1207;
789
 
753
 
790
    if ((CURRENT_TERMINAL) == 354) {
754
    if ((CURRENT_TERMINAL) == 354) {
791
	return;
755
	return;
Line 807... Line 771...
807
  ZL0:;
771
  ZL0:;
808
    *ZO1207 = ZI1207;
772
    *ZO1207 = ZI1207;
809
}
773
}
810
 
774
 
811
void
775
void
812
ZR1076 PROTO_N ((ZI511, ZI1073, ZI1074, ZI670))
-
 
813
  PROTO_T (BASE_TYPE *ZI511 X DECL_SPEC *ZI1073 X TYPE *ZI1074 X ACCESS_LIST *ZI670)
776
ZR1076(BASE_TYPE *ZI511, DECL_SPEC *ZI1073, TYPE *ZI1074, ACCESS_LIST *ZI670)
814
{
777
{
815
    switch (CURRENT_TERMINAL) {
778
    switch (CURRENT_TERMINAL) {
816
      case 42:
779
      case 42:
817
	{
780
	{
818
	    ADVANCE_LEXER;
781
	    ADVANCE_LEXER;
Line 837... Line 800...
837
    SAVE_LEXER (354);
800
    SAVE_LEXER (354);
838
    return;
801
    return;
839
}
802
}
840
 
803
 
841
void
804
void
842
parse_exp PROTO_N ((ZO431))
805
parse_exp(EXP *ZO431)
843
  PROTO_T (EXP *ZO431)
-
 
844
{
806
{
845
    EXP ZI431;
807
    EXP ZI431;
846
 
808
 
847
    if ((CURRENT_TERMINAL) == 354) {
809
    if ((CURRENT_TERMINAL) == 354) {
848
	return;
810
	return;
Line 872... Line 834...
872
  ZL0:;
834
  ZL0:;
873
    *ZO431 = ZI431;
835
    *ZO431 = ZI431;
874
}
836
}
875
 
837
 
876
void
838
void
877
ZR1204 PROTO_N ((ZI1202, ZO1203))
-
 
878
  PROTO_T (EXP ZI1202 X EXP *ZO1203)
839
ZR1204(EXP ZI1202, EXP *ZO1203)
879
{
840
{
880
    EXP ZI1203;
841
    EXP ZI1203;
881
 
842
 
882
  ZL2_1204:;
843
  ZL2_1204:;
883
    switch (CURRENT_TERMINAL) {
844
    switch (CURRENT_TERMINAL) {
Line 925... Line 886...
925
  ZL0:;
886
  ZL0:;
926
    *ZO1203 = ZI1203;
887
    *ZO1203 = ZI1203;
927
}
888
}
928
 
889
 
929
void
890
void
930
ZR687 PROTO_N ((ZI414, ZI689, ZO431))
-
 
931
  PROTO_T (TYPE ZI414 X DECL_SPEC ZI689 X EXP *ZO431)
891
ZR687(TYPE ZI414, DECL_SPEC ZI689, EXP *ZO431)
932
{
892
{
933
    EXP ZI431;
893
    EXP ZI431;
934
 
894
 
935
    if ((CURRENT_TERMINAL) == 354) {
895
    if ((CURRENT_TERMINAL) == 354) {
936
	return;
896
	return;
Line 1127... Line 1087...
1127
  ZL0:;
1087
  ZL0:;
1128
    *ZO431 = ZI431;
1088
    *ZO431 = ZI431;
1129
}
1089
}
1130
 
1090
 
1131
void
1091
void
1132
ZR635 PROTO_N ((ZO431))
-
 
1133
  PROTO_T (EXP *ZO431)
1092
ZR635(EXP *ZO431)
1134
{
1093
{
1135
    EXP ZI431;
1094
    EXP ZI431;
1136
 
1095
 
1137
    if ((CURRENT_TERMINAL) == 354) {
1096
    if ((CURRENT_TERMINAL) == 354) {
1138
	return;
1097
	return;
Line 1216... Line 1175...
1216
  ZL0:;
1175
  ZL0:;
1217
    *ZO431 = ZI431;
1176
    *ZO431 = ZI431;
1218
}
1177
}
1219
 
1178
 
1220
void
1179
void
1221
ZR953 PROTO_N ((ZO431))
-
 
1222
  PROTO_T (EXP *ZO431)
1180
ZR953(EXP *ZO431)
1223
{
1181
{
1224
    EXP ZI431;
1182
    EXP ZI431;
1225
 
1183
 
1226
    switch (CURRENT_TERMINAL) {
1184
    switch (CURRENT_TERMINAL) {
1227
      case 1: case 2: case 3: case 5: case 6:
1185
      case 1: case 2: case 3: case 5: case 6:
Line 1262... Line 1220...
1262
  ZL0:;
1220
  ZL0:;
1263
    *ZO431 = ZI431;
1221
    *ZO431 = ZI431;
1264
}
1222
}
1265
 
1223
 
1266
void
1224
void
1267
parse_stmt PROTO_N ((ZO431))
1225
parse_stmt(EXP *ZO431)
1268
  PROTO_T (EXP *ZO431)
-
 
1269
{
1226
{
1270
    EXP ZI431;
1227
    EXP ZI431;
1271
 
1228
 
1272
    if ((CURRENT_TERMINAL) == 354) {
1229
    if ((CURRENT_TERMINAL) == 354) {
1273
	return;
1230
	return;
Line 3854... Line 3811...
3854
  ZL0:;
3811
  ZL0:;
3855
    *ZO431 = ZI431;
3812
    *ZO431 = ZI431;
3856
}
3813
}
3857
 
3814
 
3858
void
3815
void
3859
ZR1087 PROTO_N ((ZI689, ZI497, ZI480, ZI670, ZI720))
-
 
3860
  PROTO_T (DECL_SPEC ZI689 X TYPE ZI497 X BASE_TYPE ZI480 X ACCESS_LIST ZI670 X int ZI720)
3816
ZR1087(DECL_SPEC ZI689, TYPE ZI497, BASE_TYPE ZI480, ACCESS_LIST ZI670, int ZI720)
3861
{
3817
{
3862
    if ((CURRENT_TERMINAL) == 354) {
3818
    if ((CURRENT_TERMINAL) == 354) {
3863
	return;
3819
	return;
3864
    }
3820
    }
3865
  ZL2_1087:;
3821
  ZL2_1087:;
Line 3903... Line 3859...
3903
    SAVE_LEXER (354);
3859
    SAVE_LEXER (354);
3904
    return;
3860
    return;
3905
}
3861
}
3906
 
3862
 
3907
void
3863
void
3908
ZR1208 PROTO_N ((ZI1206, ZO1207))
-
 
3909
  PROTO_T (EXP ZI1206 X EXP *ZO1207)
3864
ZR1208(EXP ZI1206, EXP *ZO1207)
3910
{
3865
{
3911
    EXP ZI1207;
3866
    EXP ZI1207;
3912
 
3867
 
3913
  ZL2_1208:;
3868
  ZL2_1208:;
3914
    switch (CURRENT_TERMINAL) {
3869
    switch (CURRENT_TERMINAL) {
Line 3956... Line 3911...
3956
  ZL0:;
3911
  ZL0:;
3957
    *ZO1207 = ZI1207;
3912
    *ZO1207 = ZI1207;
3958
}
3913
}
3959
 
3914
 
3960
void
3915
void
3961
ZR548 PROTO_N ((ZO414, ZO551))
-
 
3962
  PROTO_T (TYPE *ZO414 X int *ZO551)
3916
ZR548(TYPE *ZO414, int *ZO551)
3963
{
3917
{
3964
    TYPE ZI414;
3918
    TYPE ZI414;
3965
    int ZI551;
3919
    int ZI551;
3966
 
3920
 
3967
    if ((CURRENT_TERMINAL) == 354) {
3921
    if ((CURRENT_TERMINAL) == 354) {
Line 4010... Line 3964...
4010
    *ZO414 = ZI414;
3964
    *ZO414 = ZI414;
4011
    *ZO551 = ZI551;
3965
    *ZO551 = ZI551;
4012
}
3966
}
4013
 
3967
 
4014
void
3968
void
4015
ZR643 PROTO_N ((ZO431))
-
 
4016
  PROTO_T (EXP *ZO431)
3969
ZR643(EXP *ZO431)
4017
{
3970
{
4018
    EXP ZI431;
3971
    EXP ZI431;
4019
 
3972
 
4020
    switch (CURRENT_TERMINAL) {
3973
    switch (CURRENT_TERMINAL) {
4021
      case 297:
3974
      case 297:
Line 4090... Line 4043...
4090
  ZL0:;
4043
  ZL0:;
4091
    *ZO431 = ZI431;
4044
    *ZO431 = ZI431;
4092
}
4045
}
4093
 
4046
 
4094
void
4047
void
4095
ZR686 PROTO_N ((ZI414, ZI689))
-
 
4096
  PROTO_T (TYPE ZI414 X DECL_SPEC ZI689)
4048
ZR686(TYPE ZI414, DECL_SPEC ZI689)
4097
{
4049
{
4098
    if ((CURRENT_TERMINAL) == 354) {
4050
    if ((CURRENT_TERMINAL) == 354) {
4099
	return;
4051
	return;
4100
    }
4052
    }
4101
    {
4053
    {
Line 4249... Line 4201...
4249
    return;
4201
    return;
4250
  ZL0:;
4202
  ZL0:;
4251
}
4203
}
4252
 
4204
 
4253
void
4205
void
4254
ZR1028 PROTO_Z ()
4206
ZR1028(void)
4255
{
4207
{
4256
    if ((CURRENT_TERMINAL) == 354) {
4208
    if ((CURRENT_TERMINAL) == 354) {
4257
	return;
4209
	return;
4258
    }
4210
    }
4259
    {
4211
    {
Line 4300... Line 4252...
4300
    SAVE_LEXER (354);
4252
    SAVE_LEXER (354);
4301
    return;
4253
    return;
4302
}
4254
}
4303
 
4255
 
4304
void
4256
void
4305
ZR451 PROTO_N ((ZO450))
-
 
4306
  PROTO_T (int *ZO450)
4257
ZR451(int *ZO450)
4307
{
4258
{
4308
    int ZI450;
4259
    int ZI450;
4309
 
4260
 
4310
    switch (CURRENT_TERMINAL) {
4261
    switch (CURRENT_TERMINAL) {
4311
      case 131:
4262
      case 131:
Line 4415... Line 4366...
4415
  ZL0:;
4366
  ZL0:;
4416
    *ZO450 = ZI450;
4367
    *ZO450 = ZI450;
4417
}
4368
}
4418
 
4369
 
4419
void
4370
void
4420
ZR1339 PROTO_N ((ZI414, ZI511, ZI875, ZI876, ZI911))
-
 
4421
  PROTO_T (TYPE *ZI414 X BASE_TYPE *ZI511 X TYPE *ZI875 X CV_SPEC *ZI876 X DECL_SPEC *ZI911)
4371
ZR1339(TYPE *ZI414, BASE_TYPE *ZI511, TYPE *ZI875, CV_SPEC *ZI876, DECL_SPEC *ZI911)
4422
{
4372
{
4423
    switch (CURRENT_TERMINAL) {
4373
    switch (CURRENT_TERMINAL) {
4424
      case 77:
4374
      case 77:
4425
	{
4375
	{
4426
	    {
4376
	    {
Line 4492... Line 4442...
4492
    SAVE_LEXER (354);
4442
    SAVE_LEXER (354);
4493
    return;
4443
    return;
4494
}
4444
}
4495
 
4445
 
4496
void
4446
void
4497
ZR1212 PROTO_N ((ZI1210, ZO1211))
-
 
4498
  PROTO_T (EXP ZI1210 X EXP *ZO1211)
4447
ZR1212(EXP ZI1210, EXP *ZO1211)
4499
{
4448
{
4500
    EXP ZI1211;
4449
    EXP ZI1211;
4501
 
4450
 
4502
  ZL2_1212:;
4451
  ZL2_1212:;
4503
    switch (CURRENT_TERMINAL) {
4452
    switch (CURRENT_TERMINAL) {
Line 4554... Line 4503...
4554
  ZL0:;
4503
  ZL0:;
4555
    *ZO1211 = ZI1211;
4504
    *ZO1211 = ZI1211;
4556
}
4505
}
4557
 
4506
 
4558
void
4507
void
4559
ZR416 PROTO_Z ()
4508
ZR416(void)
4560
{
4509
{
4561
    if ((CURRENT_TERMINAL) == 354) {
4510
    if ((CURRENT_TERMINAL) == 354) {
4562
	return;
4511
	return;
4563
    }
4512
    }
4564
    {
4513
    {
Line 4586... Line 4535...
4586
	}
4535
	}
4587
    }
4536
    }
4588
}
4537
}
4589
 
4538
 
4590
void
4539
void
4591
ZR498 PROTO_N ((ZO497))
-
 
4592
  PROTO_T (SID_LIST_EXP *ZO497)
4540
ZR498(SID_LIST_EXP *ZO497)
4593
{
4541
{
4594
    SID_LIST_EXP ZI497;
4542
    SID_LIST_EXP ZI497;
4595
 
4543
 
4596
    if ((CURRENT_TERMINAL) == 354) {
4544
    if ((CURRENT_TERMINAL) == 354) {
4597
	return;
4545
	return;
Line 4618... Line 4566...
4618
  ZL0:;
4566
  ZL0:;
4619
    *ZO497 = ZI497;
4567
    *ZO497 = ZI497;
4620
}
4568
}
4621
 
4569
 
4622
void
4570
void
4623
ZR1467 PROTO_N ((ZI1466, ZO431))
-
 
4624
  PROTO_T (IDENTIFIER *ZI1466 X EXP *ZO431)
4571
ZR1467(IDENTIFIER *ZI1466, EXP *ZO431)
4625
{
4572
{
4626
    EXP ZI431;
4573
    EXP ZI431;
4627
 
4574
 
4628
    switch (CURRENT_TERMINAL) {
4575
    switch (CURRENT_TERMINAL) {
4629
      case 65:
4576
      case 65:
Line 4782... Line 4729...
4782
  ZL0:;
4729
  ZL0:;
4783
    *ZO431 = ZI431;
4730
    *ZO431 = ZI431;
4784
}
4731
}
4785
 
4732
 
4786
void
4733
void
4787
ZR1340 PROTO_Z ()
4734
ZR1340(void)
4788
{
4735
{
4789
    switch (CURRENT_TERMINAL) {
4736
    switch (CURRENT_TERMINAL) {
4790
      case 26:
4737
      case 26:
4791
	{
4738
	{
4792
	    ZR835 ();
4739
	    ZR835 ();
Line 4815... Line 4762...
4815
    SAVE_LEXER (354);
4762
    SAVE_LEXER (354);
4816
    return;
4763
    return;
4817
}
4764
}
4818
 
4765
 
4819
void
4766
void
4820
ZR1595 PROTO_N ((ZI1594, ZO431))
-
 
4821
  PROTO_T (EXP *ZI1594 X EXP *ZO431)
4767
ZR1595(EXP *ZI1594, EXP *ZO431)
4822
{
4768
{
4823
    EXP ZI431;
4769
    EXP ZI431;
4824
 
4770
 
4825
    switch (CURRENT_TERMINAL) {
4771
    switch (CURRENT_TERMINAL) {
4826
      case 346:
4772
      case 346:
Line 4919... Line 4865...
4919
  ZL0:;
4865
  ZL0:;
4920
    *ZO431 = ZI431;
4866
    *ZO431 = ZI431;
4921
}
4867
}
4922
 
4868
 
4923
void
4869
void
4924
ZR496 PROTO_N ((ZO431))
-
 
4925
  PROTO_T (EXP *ZO431)
4870
ZR496(EXP *ZO431)
4926
{
4871
{
4927
    EXP ZI431;
4872
    EXP ZI431;
4928
 
4873
 
4929
    switch (CURRENT_TERMINAL) {
4874
    switch (CURRENT_TERMINAL) {
4930
      case 1: case 2: case 3: case 5: case 6:
4875
      case 1: case 2: case 3: case 5: case 6:
Line 4971... Line 4916...
4971
  ZL0:;
4916
  ZL0:;
4972
    *ZO431 = ZI431;
4917
    *ZO431 = ZI431;
4973
}
4918
}
4974
 
4919
 
4975
void
4920
void
4976
ZR1469 PROTO_N ((ZI1468, ZO431))
-
 
4977
  PROTO_T (IDENTIFIER *ZI1468 X EXP *ZO431)
4921
ZR1469(IDENTIFIER *ZI1468, EXP *ZO431)
4978
{
4922
{
4979
    EXP ZI431;
4923
    EXP ZI431;
4980
 
4924
 
4981
    switch (CURRENT_TERMINAL) {
4925
    switch (CURRENT_TERMINAL) {
4982
      case 33: case 34: case 35: case 36: case 42:
4926
      case 33: case 34: case 35: case 36: case 42: