y.tab.c

<B>Digital的Unix操作系统VAX 4.2源码</B>

# define ENDOFFILE 0
# define PLUS 1
# define MINUS 2
# define ASTERISK 3
# define SLASH 4
# define ASSIGN 5
# define AMPERSAND 6
# define DOT 7
# define COMMA 8
# define SEMICOLON 9
# define LPAREN 10
# define LBRACKET 11
# define LBRACE 12
# define UPARROW 13
# define EQUALS 14
# define SHARP 15
# define LESS 16
# define GREATER 17
# define NOTEQUAL 18
# define LSEQUAL 19
# define GREQUAL 20
# define DOTDOT 21
# define COLON 22
# define RPAREN 23
# define RBRACKET 24
# define RBRACE 25
# define BAR 26
# define IDENT 27
# define CARDCONST 28
# define REALCONST 29
# define CHARCONST 30
# define STRCONST 31
# define BOOLCONST 32
# define AND 33
# define ARRAY 34
# define BEGIN 35
# define BY 36
# define CASE 37
# define CONST 38
# define DEFINITION 39
# define DIV 40
# define DO 41
# define ELSE 42
# define ELSIF 43
# define END 44
# define EXIT 45
# define EXPORT 46
# define FOR 47
# define FROM 48
# define IF 49
# define IMPLEMENTATION 50
# define IMPORT 51
# define IN 52
# define LOOP 53
# define MOD 54
# define MODULE 55
# define NOT 56
# define OF 57
# define OR 58
# define POINTER 59
# define PROCEDURE 60
# define QUALIFIED 61
# define RECORD 62
# define REPEAT 63
# define RETURN 64
# define SET 65
# define THEN 66
# define TO 67
# define TYPE 68
# define UNTIL 69
# define VAR 70
# define WHILE 71
# define WITH 72
# define ATSIZE 73
# define ATALIGN 74
# define ATPASCAL 75
# define ATC 76
# define ATNONE 77
# define ATNIL 78
# define ATINCLUDE 79
# define ATNOCOUNT 80
# define ATEXTERNAL 81
# define ATUNQUALIFIED 82
# define ATDYNARRAY 83
# define ATSUBARRAY 84
# define BAD 85

# line 130 "mod2.gram"
#include <stdio.h>
/* standard type pointers, globally defined in symtab */
int anyTypeNode, procTypeNode;
#define yyclearin yychar = -1
#define yyerrok yyerrflag = 0
extern int yychar;
extern short yyerrflag;
#ifndef YYMAXDEPTH
#define YYMAXDEPTH 150
#endif
#ifndef YYSTYPE
#define YYSTYPE int
#endif
YYSTYPE yylval, yyval;
# define YYERRCODE 256
short yyexca[] ={
-1, 1,
	0, -1,
	-2, 0,
-1, 7,
	256, 7,
	-2, 4,
-1, 123,
	26, 100,
	42, 100,
	43, 100,
	44, 100,
	69, 100,
	-2, 278,
-1, 153,
	256, 48,
	-2, 46,
-1, 165,
	256, 19,
	-2, 16,
-1, 166,
	26, 102,
	42, 102,
	43, 102,
	44, 102,
	69, 102,
	-2, 278,
-1, 167,
	26, 101,
	42, 101,
	43, 101,
	44, 101,
	69, 101,
	-2, 277,
-1, 232,
	26, 103,
	42, 103,
	43, 103,
	44, 103,
	69, 103,
	-2, 277,
-1, 448,
	7, 269,
	-2, 175,
	};
# define YYNPROD 279
# define YYLAST 848
short yyact[]={

 184, 490, 470, 363, 471, 323, 150, 148,  74, 379,
 336, 422, 324, 409, 380, 168,  23, 423, 432,  36,
 178, 221, 251, 260, 400,  39, 121,   8,   8,  18,
 481,  23,  23,  23,  23, 122,  23, 219, 292, 281,
  69,   8,  23,  23,  23,  23,  23,  23,  23,  23,
  23,  23, 152,   8,  73,   8, 381,   8,  16,  13,
  23, 185,  68, 147,  50,   6, 261, 249,  67, 124,
   5, 134,   8, 143, 123, 138, 396,  38,  20, 142,
 461, 211, 263, 420, 223,   8,  60, 369, 438, 141,
 135, 377, 256,  61,  97,  23,  23, 140, 144, 397,
 223, 258, 145,  34, 385, 386, 387, 388, 430,   7,
 472,   8, 413,  12, 378, 163, 151, 171,   8, 463,
  65, 147, 137, 145, 383, 353, 158, 159,  60, 134,
 411, 143, 241, 138, 270, 111, 494, 142, 120, 161,
 464,   9, 145, 137,   8, 145,  66, 141, 135,  79,
  48, 353,  78, 434, 516, 140, 144, 107, 116, 240,
 164, 424, 137, 115,  91, 196, 504, 515, 193, 145,
  66, 213, 214, 101, 343, 344, 102,  47, 446, 410,
  90, 414, 112, 113, 242, 365, 366, 364, 228, 137,
 505, 145, 503, 108,  37, 145, 437, 166, 110, 406,
 343, 344,  49, 368, 191, 315, 103, 210, 104, 311,
 491, 137, 153, 222, 157, 137, 415, 259, 227, 283,
 190, 264, 189, 467, 165, 440, 492, 317, 262, 118,
  99,   8, 341, 342, 241, 243, 285, 289, 233,  48,
 244, 382,   8, 288,  72, 290, 291, 195, 361,   8,
 250, 304, 204, 207, 112, 114, 212, 205, 476, 145,
 112, 240, 225, 145, 226, 112,  47, 229, 276,  93,
 224,   4,  23, 450, 332, 280, 332, 309,  40, 137,
 287, 345, 136, 137, 208, 310, 224, 351, 451, 313,
 267, 303, 268, 319, 320, 309, 347, 352, 246, 247,
 248, 348,  92, 426, 350, 269, 170, 349, 160, 355,
 475, 318, 358, 145, 309, 112, 356, 357, 145, 458,
 250, 307, 306, 425,  22,  37, 447, 112, 359, 308,
 218,  23,  23, 137, 322,  95, 332, 273, 137, 367,
 136, 110, 222,  23, 370, 371,  19, 332, 376, 459,
 271, 460, 393,  94, 160, 351,  62,  63,  64,  15,
 284, 392, 389, 160, 395, 352, 145, 493, 416, 154,
 156, 160, 398, 394, 252, 332, 332, 354, 412, 187,
 407, 408, 401, 417, 332, 346, 137, 305, 160, 112,
 351,  19, 403, 374, 375, 414, 419, 429, 390, 160,
 352, 312, 286,  19,  70, 391,  71, 499, 511, 427,
  60, 332, 332, 275, 443,  59, 441, 332, 186, 428,
 435, 332, 445, 187, 442, 351, 449,  23,  60, 444,
 305, 455, 197, 253, 198, 352, 373, 454, 372, 145,
 431, 112, 452, 436, 282, 112, 279,  23, 473, 160,
  19, 351, 456, 278, 201, 465, 469, 277, 199, 137,
 200, 352, 474, 274, 272, 466, 479, 482, 145,  60,
 487,  60, 232, 197, 477, 198, 495, 167, 483,  94,
 265, 203,  29, 206, 333, 334, 418, 325, 137, 453,
 326, 462,  23, 496, 488,  23, 506, 509, 327, 328,
 500, 501, 507, 508, 384, 145, 329, 421, 209, 146,
 169, 513, 332, 188, 510, 192, 177, 514, 112, 497,
 484, 485, 202, 125, 448, 137, 126, 502, 127, 139,
 517, 512, 238, 239, 234, 235, 128, 241, 112, 210,
 129, 293, 294, 295, 296, 297, 298, 299, 300, 301,
 302, 130, 341, 342, 245,  45,  46,  41,  42, 489,
  48, 254, 257, 439, 240, 132, 194, 112, 112,   8,
 131, 236, 257, 266, 257, 133, 335, 109,  76, 105,
 149, 100, 217, 204, 498, 237, 112,  47, 220, 242,
 155, 216, 215, 106,  43,  14, 112, 112, 433,  75,
  77, 339, 340, 480, 337, 457, 402, 338,  44, 231,
 486, 230,  49,  98, 478, 330, 331, 238, 239, 234,
 235, 399, 241, 162, 117, 343, 344,  96,  17,  11,
  51,  52,  54,  56,  53,  55,  57, 119, 314,  10,
 316,   3,   2,   1,   0,   0,   0,   0,   0, 240,
   0,   0,   0,  21,   0,   0, 236,   0,   0,   0,
   0,   0,   0,   0,   0,   0,   0,   0,  58,   0,
 237,   0,   0,   0, 242,  45,  46,  41,  42,   0,
  48, 360,   0,   0, 362,   0,   0,   0,  51,  52,
  54,  56,  53,  55,  57,  80,  81,  82,  83,  84,
  85,  86,  87,  88,  89,   0,   0,  47, 181, 182,
   0,   0,   0,   0,  43,   0,   0, 179,   0, 183,
 181, 182,   0,   0,   0,   0,  58,   0,  44, 179,
   0, 183,  49, 321,   8, 172, 173, 174, 175, 176,
   0, 404, 255,   0, 405,   0,   8, 172, 173, 174,
 175, 176,   0,  32,  33,   0,   0,   0,   0, 181,
 182,   0,  30, 180,  35,   0, 234, 235, 179, 241,
 183,   0,   0,   0,   0, 180,   0,   0,   0,   8,
  24,  25,  26,  27,  28,   8, 172, 173, 174, 175,
 176,   0,  41,  42,   0,  48, 240,   0,   0,   0,
   0,   0,   0, 236,   0,   0,   0,   0,  31,   0,
   0,   0,   0,   0, 180, 468,   0, 237,   0,   0,
   0, 242,  47,   0,   0,   0,   0,   0,   0,  43,
   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,
   0,   0,   0,  44,   0,   0,   0,  49 };
short yypact[]={

  15,-1000,-1000,-1000,-1000, 215,  86,-1000,-1000, 215,
 348,-198,-1000, 382,-1000, 752, 150, 348,-1000,-1000,
 254, 674,-1000, 403,-1000,-1000,-1000,-1000,-1000,-1000,
 752, 752, 752, 752,-1000, 752, 397, 217, 382, 101,
-1000, 752, 752, 752, 752, 752, 752, 752, 752, 752,
 752,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000, 752,
 215, 279,-1000,-1000,-1000, 244, 471,-1000, 314,-1000,
-1000,-1000,-1000,-1000, 150, 191, 138,-1000, 215, 215,
 144, 144, 144, 144, 789, 789, 233, 233, 144, 554,
 230,-1000,-1000,-1000, 752, 752, 190,-1000,-1000,  83,
-1000,  26,-1000,-1000,-1000,-1000,-1000,-204, 215, 360,
  45, 441,-1000,  88,-1000,-1000,-1000,-1000,  60, 397,
 215,-1000,  84, 468,-1000,-1000,-1000,-1000,-1000,-1000,
-1000,-1000,-1000,-1000,-1000, 758,-1000, 413, 758, 178,
 758,  26,-1000, 215, 215, 462, 447, 758,   1,  28,
   0, 150, 150,-1000,-1000, 308,  14,-1000, 215,-1000,
 215, 215,-1000, 215,-1000,-1000, 463,-1000,  84,-1000,
 616,-1000,-1000,-1000,-1000,-1000,-1000,-1000, 369, 758,
 758, 758, 758, 758, 421,-1000, 758, 719,  35,-1000,
  26, 758, 187,  13,  26, 475,-1000, 758,-1000, 758,
-1000, 215,  77,-1000, 336, 455,-1000, 323, 454,-1000,
 391, 215, 448, 444, 437, 348,-217, 435, 215,-1000,
 337,-1000, 380, 215,-1000,-1000,-1000, 441, 101, 382,
 382,-218,-1000,-1000, 758, 758, 758, 758, 758, 758,
 758, 758, 758, 758,-1000, 268,-1000,-1000,-1000, 226,
 422,-1000, 301, 758,-1000,-1000, 306,-1000,  26, 165,
-1000, 379,  26, 758, 161, 758, 186, 287, 269,-1000,
 707, 752,-1000, 542,-1000, 542, 363,-1000,-1000,-1000,
 382, 150,-1000, 464,-1000,  30, 117, 355,-1000, 150,
-1000,-1000, 150, 126, 126, 126, 126, 763, 763, 228,
 228, 126, 531,-1000,-1000, 758, 758, 223,-1000, 758,
 143,-1000,  26, 159,-1000,-1000,  20,  26,-1000,-1000,
-1000, 758, 429, 427,-1000,-1000,-1000,-1000,-1000,-1000,
 752, 752, 464,-1000,-1000, 222,  34, 204,  67,  29,
 352, 215, 752,-1000,-1000, 382, 542,-1000, 382,-1000,
-1000, 464,  19,-1000, 117,-1000, 101, 101,-1000,-1000,
-1000,-1000,-1000,-1000,-1000,  26, 758,-1000,-1000, 758,
 155,-1000,-1000,-1000, 542, 542, 122, 215,  55, 172,
-1000, 346, 215, 222,  16,-1000,-1000,-1000,-1000,  91,
 300, 282,-1000, 382, 101,-1000, 215,  51,-1000, 397,
 107, 107, 397, 152,  22, 189,-1000,-1000,-1000,-1000,
 542, 222, 464, 215, 204,-1000, 542, 121, 304,-1000,
 542, 265,-1000,-1000, 117,-1000, 752,-1000, 107, 464,
 215,-1000, 281,-1000,  58, 281,-1000,-1000,  26, 182,
 758,-1000, 122, 464,-1000,-1000, 752, 215,-1000,-1000,
  91, 288,-1000, 234, 150, 464,-1000,-1000,-1000,-226,
-1000,-1000, 441, 215, 215,-1000, 143,  26,-1000,-1000,
 184,-1000, 345,  79,-1000, 215,-1000, 382, 397,   1,
 215, 398,   0,-1000, 441, 441, 397,-1000, 148, 125,
 146, 752, 204, 204, 752, 464,-1000,-1000, 394,-1000,
-1000,-1000,-1000,-1000,  26,-1000,-1000, 386, 386, 184,
-1000, 542, 123, 110, 382,-1000,-1000,-1000 };
short yypgo[]={

   0, 643, 642, 641, 103, 639,  59,  15,  25,   8,
  19, 637,  40, 629, 628, 627, 624, 623, 621,  24,
  18, 614, 613, 611, 610, 609, 606, 605,   7, 603,
   6,  80,   5, 600,  56, 599, 598, 595,  62, 593,
 592, 591,  17,   0,  10,  21, 590, 588, 582, 581,
 580, 579, 578,  26, 577, 575,  20, 573, 570, 566,
 565, 374, 563, 559, 551, 540,  23,  66, 536, 529,
 528,   3,  74,  69, 526,  61, 523,  92, 117, 516,
 306,  64, 509, 508, 507,  11, 506, 504, 499, 498,
  12,  68, 110,  22,   4,   9,  14,   2,   1, 490,
 487,  13, 485, 484, 483, 482, 120,  67, 324, 653,
 481 };
short yyr1[]={

   0,   1,   1,   1,   5,  11,   2,  13,   2,  14,
  15,  17,  18,   3,  21,  16,  23,  24,  22,  25,
  26,  22,  27,  27,  27,  27,  29,  29,  29,  29,
  20,  20,  33,  33,  35,  35,   8,   8,  36,  36,
  36,  19,  19,  37,   6,   6,  40,  39,  41,  39,
  42,  42,  42,  45,  45,  45,  46,  46,  48,  48,
  47,  47,  49,  49,  49,  49,  49,  52,  52,   9,
   9,  54,  54,  31,  31,  51,  51,  57,  55,  59,
  58,  62,  60,  63,  60,  64,  65,  66,  68,  68,
  69,  69,  69,  69,  70,  71,  71,  71,  53,  53,
  53,  53,  53,  53,  72,  72,  74,  74,  76,  73,
  73,  73,  73,  73,  73,  73,  73,  73,  73,  73,
  73,  73,  75,  75,  78,  78,  78,  78,  78,  78,
  78,  78,  78,  78,  78,  78,  80,  80,  80,  80,
  80,  80,  80,  80,  80,  80,  61,  61,  77,  77,
  82,  82,  82,  82,  82,  56,  56,  83,  83,  83,
  30,  30,  84,  84,  84,  85,  85,  86,  86,  86,
  87,  87,  87,  87,  87,  88,  88,  89,  91,  91,
  92,  92,  93,  93,  67,  67,  94,  94,  96,  96,
  96,  96,  97,  97,  98,  98,  95,  95,  99,  44,
  44,  44, 100, 100, 100, 101, 101, 102,  34,  34,
 103,  90,  90,  90,  32,  32,  32,  32,  32,  32,
  32,  32, 104, 104,  50,  50, 105, 105, 106, 106,
  79,  79, 107, 107, 108, 108, 108, 108, 108, 108,
 108, 108, 108, 108, 108, 109, 109, 109, 109, 109,
 109, 109, 109, 109, 109,  81,  81,  81,  81,  81,
  81,  81,  81,  38,  38, 110, 110,  28,  28,  43,
  43,   4,  10,  10,  12,  12,  12,   7,   7 };
short yyr2[]={

   0,   1,   1,   1,   0,   0,  10,   0,   6,   0,
   0,   0,   0,  14,   0,  10,   0,   0,  11,   0,
   0,   8,   2,   2,   2,   1,   0,   3,   5,   2,
   0,   2,   3,   5,   1,   2,   0,   2,   3,   4,
   4,   0,   2,   3,   0,   1,   0,  10,   0,   6,
   1,   3,   4,   3,   4,   1,   2,   3,   0,   2,
   1,   3,   2,   2,   2,   1,   1,   0,   2,   1,
   3,   2,   3,   2,   4,   4,   4,   0,   6,   0,
   4,   0,  10,   0,  12,   4,   5,   3,   2,   4,
   4,   5,   3,   2,   5,   1,   3,   5,   0,   1,
   1,   2,   2,   3,   1,   3,   1,   2,   3,   1,
   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,
   2,   1,   2,   3,   1,   1,   1,   1,   1,   1,
   1,   2,   3,   2,   2,   2,   1,   3,   3,   3,
   3,   3,   3,   3,   3,   3,   1,   3,   1,   3,
   4,   4,   2,   2,   3,   1,   1,   4,   5,   2,
   0,   2,   0,   1,   3,   1,   2,   1,   4,   6,
   0,   1,   1,   1,   1,   4,   4,   3,   1,   3,
   1,   3,   1,   3,   1,   3,   0,   3,   0,   3,
   6,   8,   1,   3,   0,   2,   1,   3,   3,   1,
   1,   1,   3,   3,   4,   2,   3,   5,   1,   3,
   3,   1,   1,   1,   1,   1,   1,   1,   1,   1,
   3,   3,   4,   2,   0,   2,   3,   4,   0,   1,
   3,   4,   0,   1,   1,   1,   1,   1,   1,   1,
   1,   3,   2,   2,   2,   1,   3,   3,   3,   3,
   3,   3,   3,   3,   3,   1,   1,   1,   1,   1,
   1,   1,   1,   1,   3,   4,   2,   0,   2,   1,
   3,   1,   2,   1,   1,   0,   1,   1,   0 };
short yychk[]={

-1000,  -1,  -2,  -3, 256,  55,  50,  -4,  27,  55,
  -5, -13,  -4,  -6, -37,  11, 256, -14,  -7,   9,
 -38,-109,-108, -43,  28,  29,  30,  31,  32,-105,
  10,  56,   1,   2,  -4,  12, -10,  44,  -6,  -8,
  24,   3,   4,  40,  54,   1,   2,  33,   6,  58,
 -81,  14,  15,  18,  16,  19,  17,  20,  52,  12,
   7, -38,-108,-108,-108,-106, -92, -91, -38, -12,
   7,   9,  27,  -7,  -9, -35, -52, -33,  51,  48,
-109,-109,-109,-109,-109,-109,-109,-109,-109,-109,
-106,  -4,  23,  25,   8,  21, -15, -10, -22,  39,
 -49,  35,  38,  68,  70, -51, -39, -31,  55, -54,
  60, -34,  -4,  -4,  25, -91, -38, -16,  39, -11,
  55, -53,   9, -72, -73, -76, -74, -70, -68, -65,
 -64, -58, -60, -55,  45,  64, 256, -56,  49, -69,
  71,  63,  53,  47,  72, -43, -82,  37, -28, -50,
 -30,  -9, 256,  -4,   9, -46,  10,  -4,  81,  -7,
   8,  51, -17,  55, -12,  -4, -72,   9,  -7, -61,
 -80, -78,  28,  29,  30,  31,  32, -79, -56,  10,
  56,   1,   2,  12, -43, -75,   5,  10, -61,  44,
  42,  26, -61, -53, -59,  -4, -56,  11,  13,  11,
  13,   7, -61,-110,  -4, 256,-104,  -4, 256, -83,
 -34,  81, 256, -10, -10, -40, -41, -48,  22,  23,
 -47, -45, -34,  70, 256,  -4,  -4, -34,  -8,  -4,
 -23, -25,   9, -73,   3,   4,  40,  54,   1,   2,
  33,   6,  58, -81, -75, -61, -78, -78, -78,-107,
 -67, -93, -61,  12, -61,  23, -77, -61,  66, -53,
 -66, -67,  41,  69, -53,   5, -57, -77, -77,  -4,
  57,  14,   9,  14,   9,  22, -34,   9,   9,   9,
  -6, 256,   9, -43,  23,  -7,  22, -34,  -7,  -9,
  -7,  -7, 256, -80, -80, -80, -80, -80, -80, -80,
 -80, -80, -80,  23,  25,   8,  21,-107,  23,   8,
 -53,  44,  22, -53, -61,  44, -61,  41,  24,  24,
 -66,  26, -38, -32, -90,-100, -99, -89, -88, -86,
  73,  74, -43,-103,-102,  34, -44,  62,  65,  59,
  60,  10,  11,  83,  84, -32,  22,  -7, -10, -45,
 -42, -43, -44,  34,  22, -10,  -8,  -8, -10, -93,
 -61,  25, -61, -71,  44,  42,  43, -53,  44,  67,
 -53, -66,   9,   9, -38, -38, -90,  57,  80, -95,
 -96, -34,  37,  57, -87,  75,  76,  77,  78,  10,
 -34, -38,  -7, -32,  -8,  -7,  57,  80, -42, -18,
 -19, -19, -26, -53, -61, -61,  44, -32, -32,-101,
  57,   8, -43,  57,   9,  44,  22, -43,  -4, -90,
  67, -84, -85, -42,  70,  23,  21,  -7, -19, -43,
  57, -12, -20, -36,  46, -20, -12,  44,  66, -62,
  36, -32, -90, -43, -96, -32,  57,  22,  -4, -32,
   8,  23, -42, -38,  -9, -43, -10, -27,  38,  68,
  70, -31, -34,  61,  82, -10, -53,  41, -61,-101,
 -97, -94, -92, -43, -85,  22,  24, -10, -21, -28,
 -29, 256, -30,  -7, -34, -34, -24, -71, -53, -63,
 -98,  26,  42,  22,  57, -43,  -7, -12,  -4,   9,