![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to gram.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv9 / jtools / src / pi|
Return to gram.c CVS log | Up to [Research Unix] / researchv9 / jtools / src / pi |
1.1 ! root 1: ! 2: #include "gram.h" ! 3: #include "expr.pub" ! 4: #include "bpts.pub" ! 5: #include <ctype.h> ! 6: int LexIndex; ! 7: int LexGoal; ! 8: struct Expr *CurrentExpr; ! 9: char *LexString; ! 10: char *yyerr; /* yacc doesn't use this */ ! 11: long yyres; ! 12: char Token[128]; ! 13: int DotDot; ! 14: Expr *E_IConst(long), *E_DConst(double); ! 15: ! 16: typedef union { ! 17: char cc; ! 18: long ll; ! 19: char ss[32]; ! 20: struct Expr *ee; ! 21: double dd; ! 22: } YYSTYPE; ! 23: # define G_EXPR 257 ! 24: # define G_DOTEQ_CONEX 258 ! 25: # define G_DOLEQ_CONEX 259 ! 26: # define G_CONEX 260 ! 27: # define G_DOTDOT 261 ! 28: # define ICONST 262 ! 29: # define ID 263 ! 30: # define PCENT 264 ! 31: # define EQUAL 265 ! 32: # define SLASH 266 ! 33: # define DOLLAR 267 ! 34: # define SIZEOF 268 ! 35: # define TYPEOF 269 ! 36: # define QMARK 270 ! 37: # define SEMI 271 ! 38: # define UNOP 272 ! 39: # define STAR 273 ! 40: # define PLUS 274 ! 41: # define MINUS 275 ! 42: # define AMPER 276 ! 43: # define ARROW 277 ! 44: # define DOT 278 ! 45: # define LB 279 ! 46: # define LP 280 ! 47: # define COMMA 281 ! 48: # define ERROR 282 ! 49: # define RB 283 ! 50: # define RP 284 ! 51: # define PLUSPLUS 285 ! 52: # define MINUSMINUS 286 ! 53: # define EQUALEQUAL 287 ! 54: # define GREATER 288 ! 55: # define LESS 289 ! 56: # define BAR 290 ! 57: # define BARBAR 291 ! 58: # define AMPERAMPER 292 ! 59: # define HAT 293 ! 60: # define TILDE 294 ! 61: # define GREATEREQUAL 295 ! 62: # define LESSEQUAL 296 ! 63: # define FABS 297 ! 64: # define GREATERGREATER 298 ! 65: # define LESSLESS 299 ! 66: # define BANG 300 ! 67: # define BANGEQUAL 301 ! 68: # define DCONST 302 ! 69: # define LC 303 ! 70: # define RC 304 ! 71: # define DOTDOT 305 ! 72: #define yyclearin yychar = -1 ! 73: #define yyerrok yyerrflag = 0 ! 74: extern int yychar; ! 75: extern short yyerrflag; ! 76: #ifndef YYMAXDEPTH ! 77: #define YYMAXDEPTH 150 ! 78: #endif ! 79: YYSTYPE yylval, yyval; ! 80: # define YYERRCODE 256 ! 81: ! 82: ! 83: ! 84: #define LOOK (LexString[LexIndex ]) ! 85: #define TAKE (AddToken(), LexString[LexIndex++]) ! 86: #define MORE (LexString[LexIndex+1]) ! 87: #define yc (yylval.cc) ! 88: #define yd (yylval.dd) ! 89: #define yl (yylval.ll) ! 90: #define ys (yylval.ss) ! 91: #define ishex(x) (isdigit(x) || (x>='a'&&x<='f') || (x>='A'&&x<='F')) ! 92: #define isoct(x) ( x>='0' && x<='7' ) ! 93: int doyylex(); ! 94: int yyerror(char*); ! 95: ! 96: yylex() ! 97: { ! 98: int token = doyylex(); ! 99: ! 100: return token; ! 101: } ! 102: ! 103: void AddToken() ! 104: { ! 105: int l = strlen(Token); ! 106: ! 107: if( l < 64 ){ ! 108: Token[l] = LOOK; ! 109: Token[l+1] = '\0'; ! 110: } ! 111: } ! 112: ! 113: doyylex() ! 114: { ! 115: double atof(char*); ! 116: ! 117: if( LexIndex < 0 ){ ! 118: LexIndex = 0; ! 119: return LexGoal; ! 120: } ! 121: while( isspace(LOOK) ) TAKE; ! 122: Token[0] = '\0'; ! 123: if( isalpha(LOOK) || LOOK=='_' || LOOK=='$' ){ ! 124: TAKE; ! 125: while( isalnum(LOOK) || LOOK=='_' ) TAKE; ! 126: strcpy( ys, Token ); ! 127: if( !strcmp(ys,"sizeof") ) return SIZEOF; ! 128: if( !strcmp(ys,"typeof") ) return TYPEOF; ! 129: if( !strcmp(ys,"fabs") ) return FABS; ! 130: if( !strcmp(ys,"$") ) return DOLLAR; ! 131: return ID; ! 132: } ! 133: if( LOOK == '\'' ){ ! 134: TAKE; ! 135: if( LOOK == '\\' ){ ! 136: TAKE; ! 137: if( MORE != '\'' ) return 0; ! 138: char *trans = "bnftv", *late = "\b\n\f\t\v"; ! 139: yl = LOOK; ! 140: for( int i = 0; trans[i]; ++i ) ! 141: if( LOOK == trans[i] ) yl = late[i]; ! 142: TAKE; TAKE; return ICONST; ! 143: } ! 144: if( MORE != '\'' ) return 0; ! 145: yl = TAKE; ! 146: TAKE; ! 147: return ICONST; ! 148: } ! 149: if( LOOK=='0' && (MORE=='x' || MORE=='X') ){ ! 150: TAKE; TAKE; ! 151: if( !ishex(LOOK) ) return 0; ! 152: for( yl = 0; ishex(LOOK); TAKE ) ! 153: yl = (yl<<4) + (isalpha(LOOK) ? (LOOK|' ')+10-'a' : LOOK-'0'); ! 154: return ICONST; ! 155: } ! 156: if( LOOK=='0' ){ ! 157: for( TAKE, yl = 0; isoct(LOOK); TAKE ) yl = (yl<<3) + LOOK - '0'; ! 158: goto IorD; ! 159: } ! 160: if( isdigit(LOOK) ){ ! 161: for( yl = 0; isdigit(LOOK); TAKE ) yl = yl*10 + LOOK - '0'; ! 162: goto IorD; ! 163: } ! 164: if( LOOK == '.' && isdigit(MORE) ) goto Point; ! 165: #define EAT2(x) {TAKE; TAKE; return x;} ! 166: if( LOOK=='.' && MORE=='.' ) EAT2(DOTDOT) ! 167: if( LOOK=='-' && MORE=='>' ) EAT2(ARROW) ! 168: if( LOOK=='-' && MORE=='-' ) EAT2(MINUSMINUS) ! 169: if( LOOK=='+' && MORE=='+' ) EAT2(PLUSPLUS) ! 170: if( LOOK=='=' && MORE=='=' ) EAT2(EQUALEQUAL) ! 171: if( LOOK=='!' && MORE=='=' ) EAT2(BANGEQUAL) ! 172: if( LOOK==':' && MORE=='=' ) EAT2(EQUAL) ! 173: if( LOOK=='>' && MORE=='=' ) EAT2(GREATEREQUAL) ! 174: if( LOOK=='<' && MORE=='=' ) EAT2(LESSEQUAL) ! 175: if( LOOK=='&' && MORE=='&' ) EAT2(AMPERAMPER) ! 176: if( LOOK=='|' && MORE=='|' ) EAT2(BARBAR) ! 177: if( LOOK=='>' && MORE=='>' ) EAT2(GREATERGREATER) ! 178: if( LOOK=='<' && MORE=='<' ) EAT2(LESSLESS) ! 179: switch( TAKE ){ ! 180: case '>' : return GREATER; ! 181: case '<' : return LESS; ! 182: case '/' : return SLASH; ! 183: case '*' : return STAR; ! 184: case '+' : return PLUS; ! 185: case '-' : return MINUS; ! 186: case '.' : return DOT; ! 187: case '(' : return LP; ! 188: case ')' : return RP; ! 189: case '[' : return LB; ! 190: case ']' : return RB; ! 191: case '&' : return AMPER; ! 192: case ',' : return COMMA; ! 193: case '%' : return PCENT; ! 194: case '=' : return EQUAL; ! 195: case ';' : return SEMI; ! 196: case '|' : return BAR; ! 197: case '^' : return HAT; ! 198: case '~' : return TILDE; ! 199: case '!' : return BANG; ! 200: case '{' : return LC; ! 201: case '}' : return RC; ! 202: default : return 0; ! 203: } ! 204: IorD: ! 205: if( LOOK=='l' || LOOK=='L' ) return TAKE, ICONST; ! 206: if( LOOK=='.' && MORE=='.' ) return ICONST; ! 207: if( LOOK=='.' ) goto Point; ! 208: if( LOOK=='e' || LOOK=='E' ) goto Exp; ! 209: return ICONST; ! 210: Point: ! 211: for( TAKE; isdigit(LOOK); TAKE) {} ! 212: if( LOOK!='e' && LOOK!='E' ) goto Double; ! 213: Exp: ! 214: TAKE; ! 215: if( LOOK=='+' || LOOK=='-' ) TAKE; ! 216: if( !isdigit(LOOK) ) return 0; ! 217: while( isdigit(LOOK) ) TAKE; ! 218: Double: ! 219: yd = atof(Token); ! 220: return DCONST; ! 221: ! 222: } ! 223: short yyexca[] ={ ! 224: -1, 1, ! 225: 0, -1, ! 226: -2, 0, ! 227: }; ! 228: # define YYNPROD 62 ! 229: # define YYLAST 800 ! 230: short yyact[]={ ! 231: ! 232: 66, 50, 68, 128, 81, 72, 127, 42, 9, 67, ! 233: 69, 64, 54, 65, 48, 70, 10, 49, 35, 34, ! 234: 129, 126, 110, 56, 59, 58, 53, 51, 52, 55, ! 235: 93, 61, 60, 8, 62, 63, 7, 57, 66, 50, ! 236: 68, 47, 65, 48, 70, 1, 117, 67, 69, 64, ! 237: 54, 65, 48, 70, 0, 49, 0, 125, 0, 0, ! 238: 0, 56, 59, 58, 53, 51, 52, 55, 0, 61, ! 239: 60, 0, 62, 63, 0, 57, 66, 50, 68, 47, ! 240: 2, 4, 5, 6, 3, 67, 69, 64, 54, 65, ! 241: 48, 70, 0, 49, 0, 0, 120, 0, 0, 56, ! 242: 59, 58, 53, 51, 52, 55, 0, 61, 60, 0, ! 243: 62, 63, 0, 57, 66, 50, 68, 47, 0, 0, ! 244: 0, 0, 0, 67, 69, 64, 54, 65, 48, 70, ! 245: 0, 49, 0, 0, 0, 0, 0, 56, 59, 58, ! 246: 53, 51, 52, 55, 0, 61, 60, 0, 62, 63, ! 247: 0, 57, 0, 0, 116, 47, 66, 50, 68, 0, ! 248: 0, 0, 0, 82, 0, 67, 69, 64, 54, 65, ! 249: 48, 70, 0, 49, 0, 0, 0, 0, 0, 56, ! 250: 59, 58, 53, 51, 52, 55, 0, 61, 60, 0, ! 251: 62, 63, 0, 57, 66, 50, 68, 47, 0, 0, ! 252: 0, 46, 0, 67, 69, 64, 54, 65, 48, 70, ! 253: 0, 49, 0, 0, 0, 0, 0, 56, 59, 58, ! 254: 53, 51, 52, 55, 0, 61, 60, 0, 62, 63, ! 255: 0, 57, 66, 50, 68, 47, 0, 0, 0, 0, ! 256: 0, 67, 69, 64, 54, 65, 48, 70, 0, 0, ! 257: 0, 0, 0, 0, 0, 56, 59, 58, 53, 51, ! 258: 52, 55, 0, 61, 60, 0, 62, 63, 0, 57, ! 259: 66, 50, 68, 47, 0, 0, 0, 0, 0, 67, ! 260: 69, 64, 54, 65, 48, 70, 0, 49, 0, 0, ! 261: 0, 0, 0, 56, 59, 58, 53, 51, 52, 55, ! 262: 0, 61, 60, 0, 62, 63, 0, 57, 66, 50, ! 263: 68, 14, 13, 0, 0, 0, 12, 67, 69, 64, ! 264: 54, 65, 48, 70, 16, 15, 0, 0, 0, 17, ! 265: 0, 56, 59, 58, 53, 51, 52, 55, 0, 61, ! 266: 60, 0, 62, 63, 66, 57, 68, 0, 0, 0, ! 267: 0, 0, 0, 67, 69, 64, 54, 65, 48, 70, ! 268: 0, 0, 38, 0, 40, 0, 0, 56, 59, 58, ! 269: 53, 39, 52, 55, 0, 61, 60, 42, 62, 63, ! 270: 66, 57, 68, 0, 0, 0, 0, 0, 0, 67, ! 271: 69, 64, 54, 65, 48, 70, 0, 0, 0, 0, ! 272: 0, 0, 0, 56, 59, 58, 53, 0, 0, 55, ! 273: 0, 61, 60, 0, 62, 63, 66, 57, 68, 0, ! 274: 0, 0, 0, 0, 0, 67, 69, 64, 54, 65, ! 275: 48, 70, 0, 0, 0, 0, 0, 0, 0, 56, ! 276: 59, 58, 0, 0, 0, 55, 0, 61, 60, 0, ! 277: 62, 63, 66, 57, 68, 0, 0, 0, 0, 0, ! 278: 0, 67, 69, 64, 54, 65, 48, 70, 0, 0, ! 279: 0, 0, 0, 0, 0, 56, 59, 58, 0, 66, ! 280: 0, 68, 0, 61, 60, 0, 62, 63, 67, 57, ! 281: 23, 21, 65, 48, 70, 19, 26, 27, 0, 0, ! 282: 66, 24, 68, 29, 25, 0, 0, 0, 31, 67, ! 283: 69, 64, 118, 65, 48, 70, 0, 0, 0, 0, ! 284: 0, 0, 30, 0, 0, 32, 0, 0, 28, 0, ! 285: 22, 20, 23, 21, 62, 63, 0, 19, 26, 27, ! 286: 0, 0, 38, 24, 40, 29, 25, 0, 0, 0, ! 287: 31, 39, 41, 37, 0, 0, 0, 42, 0, 0, ! 288: 0, 0, 91, 0, 30, 0, 66, 32, 68, 0, ! 289: 28, 0, 22, 20, 0, 67, 69, 64, 0, 65, ! 290: 48, 70, 0, 0, 0, 0, 0, 0, 0, 56, ! 291: 59, 58, 0, 0, 0, 0, 0, 61, 60, 0, ! 292: 62, 63, 66, 57, 68, 0, 0, 0, 0, 0, ! 293: 0, 67, 69, 64, 0, 65, 48, 70, 0, 0, ! 294: 38, 0, 40, 0, 0, 0, 59, 58, 0, 39, ! 295: 41, 37, 0, 61, 60, 42, 62, 63, 66, 124, ! 296: 68, 0, 0, 0, 0, 0, 0, 67, 69, 64, ! 297: 0, 65, 48, 70, 38, 0, 40, 0, 0, 0, ! 298: 0, 123, 0, 39, 41, 37, 38, 0, 40, 42, ! 299: 18, 0, 0, 122, 0, 39, 41, 37, 38, 33, ! 300: 40, 42, 0, 0, 0, 36, 0, 39, 41, 37, ! 301: 0, 71, 0, 42, 0, 73, 74, 75, 76, 77, ! 302: 78, 79, 80, 0, 0, 0, 0, 0, 0, 0, ! 303: 0, 0, 0, 0, 0, 0, 0, 0, 92, 0, ! 304: 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, ! 305: 104, 105, 106, 107, 108, 109, 0, 111, 112, 113, ! 306: 114, 115, 11, 119, 0, 0, 0, 0, 0, 0, ! 307: 0, 0, 121, 0, 0, 0, 0, 0, 43, 44, ! 308: 45, 0, 0, 0, 0, 0, 0, 0, 0, 0, ! 309: 0, 0, 0, 0, 0, 0, 0, 83, 84, 0, ! 310: 85, 86, 87, 88, 89, 90, 0, 0, 0, 0, ! 311: 0, 0, 0, 0, 0, 0, 0, 0, 0, 130 }; ! 312: short yypact[]={ ! 313: ! 314: -177,-1000,-1000,-1000,-270,-251, 49, 270, 270,-246, ! 315: -247, 414,-1000,-1000,-1000, 49, 49, 49, -70,-1000, ! 316: 270,-275,-1000,-1000, 270, 270, 270, 270, 270, 270, ! 317: 270, 270,-276,-108, 49, 49,-1000, 49, 49, 49, ! 318: 49, 49, 49,-272,-272, 278,-1000, 270,-233, 270, ! 319: 270, 270, 270, 270, 270, 270, 270, 270, 270, 270, ! 320: 270, 270, 270, 270, 270,-241, 270, 270, 270, 270, ! 321: 270,-150, 228,-235, 302,-235,-235,-235,-235,-235, ! 322: -188, 270,-1000, 402, 390, 98,-272,-272,-272, 98, ! 323: 356,-1000, 6,-1000, 44, 44, 80, 116, 152, 302, ! 324: 188, 338, 338, 236, 236, 236, 236, 374, 374, 215, ! 325: -1000,-235,-235,-235, 215,-226,-242,-278,-1000, -32, ! 326: -1000,-264,-1000,-1000,-1000,-1000,-1000,-1000, 270,-1000, ! 327: -32 }; ! 328: short yypgo[]={ ! 329: ! 330: 0, 670, 46, 742, 45, 36, 33 }; ! 331: short yyr1[]={ ! 332: ! 333: 0, 5, 4, 6, 4, 4, 4, 4, 1, 1, ! 334: 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, ! 335: 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, ! 336: 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, ! 337: 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, ! 338: 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, ! 339: 2, 2 }; ! 340: short yyr2[]={ ! 341: ! 342: 0, 0, 4, 0, 4, 5, 5, 3, 1, 4, ! 343: 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, ! 344: 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, ! 345: 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, ! 346: 3, 3, 3, 4, 4, 3, 3, 4, 1, 1, ! 347: 1, 2, 2, 3, 3, 3, 3, 3, 4, 3, ! 348: 1, 3 }; ! 349: short yychk[]={ ! 350: ! 351: -1000, -4, 257, 261, 258, 259, 260, -5, -6, 278, ! 352: 267, -3, 267, 263, 262, 276, 275, 280, -1, 267, ! 353: 303, 263, 302, 262, 273, 276, 268, 269, 300, 275, ! 354: 294, 280, 297, -1, 265, 265, 271, 275, 264, 273, ! 355: 266, 274, 279, -3, -3, -3, 271, 305, 278, 281, ! 356: 265, 291, 292, 290, 276, 293, 287, 301, 289, 288, ! 357: 296, 295, 298, 299, 275, 277, 264, 273, 266, 274, ! 358: 279, -1, 280, -1, -1, -1, -1, -1, -1, -1, ! 359: -1, 280, 271, -3, -3, -3, -3, -3, -3, -3, ! 360: -3, 284, -1, 263, -1, -1, -1, -1, -1, -1, ! 361: -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, ! 362: 263, -1, -1, -1, -1, -1, 304, -2, 284, -1, ! 363: 284, -1, 271, 271, 283, 283, 263, 284, 281, 284, ! 364: -1 }; ! 365: short yydef[]={ ! 366: ! 367: 0, -2, 1, 3, 0, 0, 0, 0, 0, 0, ! 368: 0, 0, 48, 49, 50, 0, 0, 0, 0, 8, ! 369: 0, 10, 11, 12, 0, 0, 0, 0, 0, 0, ! 370: 0, 0, 0, 0, 0, 0, 7, 0, 0, 0, ! 371: 0, 0, 0, 51, 52, 0, 2, 0, 0, 0, ! 372: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, ! 373: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, ! 374: 0, 0, 0, 13, 14, 15, 16, 17, 18, 19, ! 375: 0, 0, 4, 0, 0, 53, 54, 55, 56, 57, ! 376: 0, 59, 20, 21, 22, 23, 24, 25, 26, 27, ! 377: 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, ! 378: 38, 39, 40, 41, 42, 0, 0, 0, 45, 60, ! 379: 46, 0, 5, 6, 58, 43, 9, 44, 0, 47, ! 380: 61 }; ! 381: #ifndef lint ! 382: static char yaccpar_sccsid[] = "@(#)yaccpar 1.2 86/07/18 SMI"; /* from UCB 4.1 83/02/11 */ ! 383: #endif ! 384: ! 385: # ! 386: # define YYFLAG -1000 ! 387: # define YYERROR goto yyerrlab ! 388: # define YYACCEPT return(0) ! 389: # define YYABORT return(1) ! 390: ! 391: /* parser for yacc output */ ! 392: ! 393: #ifdef YYDEBUG ! 394: int yydebug = 0; /* 1 for debugging */ ! 395: #endif ! 396: YYSTYPE yyv[YYMAXDEPTH]; /* where the values are stored */ ! 397: int yychar = -1; /* current input token number */ ! 398: int yynerrs = 0; /* number of errors */ ! 399: short yyerrflag = 0; /* error recovery flag */ ! 400: ! 401: yyparse() { ! 402: ! 403: short yys[YYMAXDEPTH]; ! 404: short yyj, yym; ! 405: register YYSTYPE *yypvt; ! 406: register short yystate, *yyps, yyn; ! 407: register YYSTYPE *yypv; ! 408: register short *yyxi; ! 409: ! 410: yystate = 0; ! 411: yychar = -1; ! 412: yynerrs = 0; ! 413: yyerrflag = 0; ! 414: yyps= &yys[-1]; ! 415: yypv= &yyv[-1]; ! 416: ! 417: yystack: /* put a state and value onto the stack */ ! 418: ! 419: #ifdef YYDEBUG ! 420: if( yydebug ) printf( "state %d, char 0%o\n", yystate, yychar ); ! 421: #endif ! 422: if( ++yyps>= &yys[YYMAXDEPTH] ) { yyerror( "yacc stack overflow" ); return(1); } ! 423: *yyps = yystate; ! 424: ++yypv; ! 425: *yypv = yyval; ! 426: ! 427: yynewstate: ! 428: ! 429: yyn = yypact[yystate]; ! 430: ! 431: if( yyn<= YYFLAG ) goto yydefault; /* simple state */ ! 432: ! 433: if( yychar<0 ) if( (yychar=yylex())<0 ) yychar=0; ! 434: if( (yyn += yychar)<0 || yyn >= YYLAST ) goto yydefault; ! 435: ! 436: if( yychk[ yyn=yyact[ yyn ] ] == yychar ){ /* valid shift */ ! 437: yychar = -1; ! 438: yyval = yylval; ! 439: yystate = yyn; ! 440: if( yyerrflag > 0 ) --yyerrflag; ! 441: goto yystack; ! 442: } ! 443: ! 444: yydefault: ! 445: /* default state action */ ! 446: ! 447: if( (yyn=yydef[yystate]) == -2 ) { ! 448: if( yychar<0 ) if( (yychar=yylex())<0 ) yychar = 0; ! 449: /* look through exception table */ ! 450: ! 451: for( yyxi=yyexca; (*yyxi!= (-1)) || (yyxi[1]!=yystate) ; yyxi += 2 ) ; /* VOID */ ! 452: ! 453: while( *(yyxi+=2) >= 0 ){ ! 454: if( *yyxi == yychar ) break; ! 455: } ! 456: if( (yyn = yyxi[1]) < 0 ) return(0); /* accept */ ! 457: } ! 458: ! 459: if( yyn == 0 ){ /* error */ ! 460: /* error ... attempt to resume parsing */ ! 461: ! 462: switch( yyerrflag ){ ! 463: ! 464: case 0: /* brand new error */ ! 465: ! 466: yyerror( "syntax error" ); ! 467: yyerrlab: ! 468: ++yynerrs; ! 469: ! 470: case 1: ! 471: case 2: /* incompletely recovered error ... try again */ ! 472: ! 473: yyerrflag = 3; ! 474: ! 475: /* find a state where "error" is a legal shift action */ ! 476: ! 477: while ( yyps >= yys ) { ! 478: yyn = yypact[*yyps] + YYERRCODE; ! 479: if( yyn>= 0 && yyn < YYLAST && yychk[yyact[yyn]] == YYERRCODE ){ ! 480: yystate = yyact[yyn]; /* simulate a shift of "error" */ ! 481: goto yystack; ! 482: } ! 483: yyn = yypact[*yyps]; ! 484: ! 485: /* the current yyps has no shift onn "error", pop stack */ ! 486: ! 487: #ifdef YYDEBUG ! 488: if( yydebug ) printf( "error recovery pops state %d, uncovers %d\n", *yyps, yyps[-1] ); ! 489: #endif ! 490: --yyps; ! 491: --yypv; ! 492: } ! 493: ! 494: /* there is no state on the stack with an error shift ... abort */ ! 495: ! 496: yyabort: ! 497: return(1); ! 498: ! 499: ! 500: case 3: /* no shift yet; clobber input char */ ! 501: ! 502: #ifdef YYDEBUG ! 503: if( yydebug ) printf( "error recovery discards char %d\n", yychar ); ! 504: #endif ! 505: ! 506: if( yychar == 0 ) goto yyabort; /* don't discard EOF, quit */ ! 507: yychar = -1; ! 508: goto yynewstate; /* try again in the same state */ ! 509: ! 510: } ! 511: ! 512: } ! 513: ! 514: /* reduction by production yyn */ ! 515: ! 516: #ifdef YYDEBUG ! 517: if( yydebug ) printf("reduce %d\n",yyn); ! 518: #endif ! 519: yyps -= yyr2[yyn]; ! 520: yypvt = yypv; ! 521: yypv -= yyr2[yyn]; ! 522: yyval = yypv[1]; ! 523: yym=yyn; ! 524: /* consult goto table to find next state */ ! 525: yyn = yyr1[yyn]; ! 526: yyj = yypgo[yyn] + *yyps + 1; ! 527: if( yyj>=YYLAST || yychk[ yystate = yyact[yyj] ] != -yyn ) yystate = yyact[yypgo[yyn]]; ! 528: switch(yym){ ! 529: ! 530: case 1: ! 531: { DotDot=0; } break; ! 532: case 2: ! 533: { yyres = (long) yypvt[-1].ee; } break; ! 534: case 3: ! 535: { DotDot=1; } break; ! 536: case 4: ! 537: { yyres = (long) yypvt[-1].ee; } break; ! 538: case 5: ! 539: { yyres = (long) yypvt[-1].ee; } break; ! 540: case 6: ! 541: { yyres = (long) yypvt[-1].ee; } break; ! 542: case 7: ! 543: { yyres = (long) yypvt[-1].ee; } break; ! 544: case 8: ! 545: { if( !CurrentExpr){ ! 546: yyerror("$ cannot be used here"); ! 547: YYACCEPT; ! 548: } ! 549: yyval.ee = CurrentExpr; ! 550: } break; ! 551: case 9: ! 552: { yyval.ee = E_Binary( yypvt[-2].ee, O_ENV, E_Id(yypvt[-0].ss) ); } break; ! 553: case 10: ! 554: { yyval.ee = E_Id( yypvt[-0].ss ); } break; ! 555: case 11: ! 556: { yyval.ee = E_DConst( yypvt[-0].dd ); } break; ! 557: case 12: ! 558: { yyval.ee = E_IConst( yypvt[-0].ll ); } break; ! 559: case 13: ! 560: { yyval.ee = E_Unary( O_DEREF, yypvt[-0].ee ); } break; ! 561: case 14: ! 562: { yyval.ee = E_Unary( O_REF, yypvt[-0].ee ); } break; ! 563: case 15: ! 564: { yyval.ee = E_Unary( O_SIZEOF, yypvt[-0].ee ); } break; ! 565: case 16: ! 566: { yyval.ee = E_Unary( O_TYPEOF, yypvt[-0].ee ); } break; ! 567: case 17: ! 568: { yyval.ee = E_Unary( O_LOGNOT, yypvt[-0].ee ); } break; ! 569: case 18: ! 570: { yyval.ee = E_Unary( O_MINUS, yypvt[-0].ee ); } break; ! 571: case 19: ! 572: { yyval.ee = E_Unary( O_1SCOMP, yypvt[-0].ee ); } break; ! 573: case 20: ! 574: { if( !DotDot ){ ! 575: yyerror(".. cannot be used here"); ! 576: YYACCEPT; ! 577: } ! 578: yyval.ee = E_Binary( yypvt[-2].ee, O_RANGE, yypvt[-0].ee );} break; ! 579: case 21: ! 580: { yyval.ee = E_Binary( yypvt[-2].ee, O_DOT, E_Id(yypvt[-0].ss)); } break; ! 581: case 22: ! 582: { yyval.ee = E_Binary( yypvt[-2].ee, O_COMMA, yypvt[-0].ee ); } break; ! 583: case 23: ! 584: { yyval.ee = E_Binary( yypvt[-2].ee, O_ASSIGN, yypvt[-0].ee ); } break; ! 585: case 24: ! 586: { yyval.ee = E_Binary( yypvt[-2].ee, O_LOGOR, yypvt[-0].ee ); } break; ! 587: case 25: ! 588: { yyval.ee = E_Binary( yypvt[-2].ee, O_LOGAND, yypvt[-0].ee ); } break; ! 589: case 26: ! 590: { yyval.ee = E_Binary( yypvt[-2].ee, O_BITOR, yypvt[-0].ee ); } break; ! 591: case 27: ! 592: { yyval.ee = E_Binary( yypvt[-2].ee, O_BITAND, yypvt[-0].ee ); } break; ! 593: case 28: ! 594: { yyval.ee = E_Binary( yypvt[-2].ee, O_BITXOR, yypvt[-0].ee ); } break; ! 595: case 29: ! 596: { yyval.ee = E_Binary( yypvt[-2].ee, O_EQ, yypvt[-0].ee ); } break; ! 597: case 30: ! 598: { yyval.ee = E_Binary( yypvt[-2].ee, O_NE, yypvt[-0].ee ); } break; ! 599: case 31: ! 600: { yyval.ee = E_Binary( yypvt[-2].ee, O_LT, yypvt[-0].ee ); } break; ! 601: case 32: ! 602: { yyval.ee = E_Binary( yypvt[-2].ee, O_GT, yypvt[-0].ee ); } break; ! 603: case 33: ! 604: { yyval.ee = E_Binary( yypvt[-2].ee, O_LE, yypvt[-0].ee ); } break; ! 605: case 34: ! 606: { yyval.ee = E_Binary( yypvt[-2].ee, O_GE, yypvt[-0].ee ); } break; ! 607: case 35: ! 608: { yyval.ee = E_Binary( yypvt[-2].ee, O_RSHIFT, yypvt[-0].ee ); } break; ! 609: case 36: ! 610: { yyval.ee = E_Binary( yypvt[-2].ee, O_LSHIFT, yypvt[-0].ee ); } break; ! 611: case 37: ! 612: { yyval.ee = E_Binary( yypvt[-2].ee, O_MINUS, yypvt[-0].ee ); } break; ! 613: case 38: ! 614: { yyval.ee = E_Binary( yypvt[-2].ee, O_ARROW, E_Id(yypvt[-0].ss)); } break; ! 615: case 39: ! 616: { yyval.ee = E_Binary( yypvt[-2].ee, O_MOD, yypvt[-0].ee ); } break; ! 617: case 40: ! 618: { yyval.ee = E_Binary( yypvt[-2].ee, O_MULT, yypvt[-0].ee ); } break; ! 619: case 41: ! 620: { yyval.ee = E_Binary( yypvt[-2].ee, O_DIV, yypvt[-0].ee ); } break; ! 621: case 42: ! 622: { yyval.ee = E_Binary( yypvt[-2].ee, O_PLUS, yypvt[-0].ee ); } break; ! 623: case 43: ! 624: { yyval.ee = E_Binary( yypvt[-3].ee, O_INDEX, yypvt[-1].ee );} break; ! 625: case 44: ! 626: { yyval.ee = E_Binary( E_Id(yypvt[-3].ss), O_CALL, yypvt[-1].ee ); } break; ! 627: case 45: ! 628: { yyval.ee = E_Binary( E_Id(yypvt[-2].ss), O_CALL, 0 ); } break; ! 629: case 46: ! 630: { yyval.ee = yypvt[-1].ee; } break; ! 631: case 47: ! 632: { yyval.ee = E_Unary( O_FABS, yypvt[-1].ee ); } break; ! 633: case 48: ! 634: { if( !CurrentExpr){ ! 635: yyerror("no current expression for $"); ! 636: YYACCEPT; ! 637: } ! 638: yyval.ee = CurrentExpr; ! 639: } break; ! 640: case 49: ! 641: { yyval.ee = E_Id( yypvt[-0].ss ); } break; ! 642: case 50: ! 643: { yyval.ee = E_IConst( yypvt[-0].ll ); } break; ! 644: case 51: ! 645: { yyval.ee = E_Unary( O_REF, yypvt[-0].ee ); } break; ! 646: case 52: ! 647: { yyval.ee = E_Unary( O_MINUS, yypvt[-0].ee ); } break; ! 648: case 53: ! 649: { yyval.ee = E_Binary( yypvt[-2].ee, O_MINUS, yypvt[-0].ee ); } break; ! 650: case 54: ! 651: { yyval.ee = E_Binary( yypvt[-2].ee, O_MOD, yypvt[-0].ee ); } break; ! 652: case 55: ! 653: { yyval.ee = E_Binary( yypvt[-2].ee, O_MULT, yypvt[-0].ee ); } break; ! 654: case 56: ! 655: { yyval.ee = E_Binary( yypvt[-2].ee, O_DIV, yypvt[-0].ee ); } break; ! 656: case 57: ! 657: { yyval.ee = E_Binary( yypvt[-2].ee, O_PLUS, yypvt[-0].ee ); } break; ! 658: case 58: ! 659: { yyval.ee = E_Binary( yypvt[-3].ee, O_INDEX, yypvt[-1].ee );} break; ! 660: case 59: ! 661: { yyval.ee = yypvt[-1].ee; } break; ! 662: case 60: ! 663: { yyval.ee = yypvt[-0].ee; } break; ! 664: case 61: ! 665: { yyval.ee = E_Binary( yypvt[-2].ee, O_COMMA, yypvt[-0].ee ); } break; ! 666: } ! 667: goto yystack; /* stack new state and value */ ! 668: ! 669: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.