1: /* $Header: perl.y,v 1.0.1.1 88/01/28 10:25:31 root Exp $ 2: * 3: * $Log: perl.y,v $ 4: * Revision 1.0.1.1 88/01/28 10:25:31 root 5: * patch8: added eval operator. 6: * 7: * Revision 1.0 87/12/18 15:48:59 root 8: * Initial revision 9: * 10: */ 11: 12: %{ 13: #include "handy.h" 14: #include "EXTERN.h" 15: #include "search.h" 16: #include "util.h" 17: #include "INTERN.h" 18: #include "perl.h" 19: char *tokename[] = { 20: "256", 21: "word", 22: "append","open","write","select","close","loopctl", 23: "using","format","do","shift","push","pop","chop", 24: "while","until","if","unless","else","elsif","continue","split","sprintf", 25: "for", "eof", "tell", "seek", "stat", 26: "function(no args)","function(1 arg)","function(2 args)","function(3 args)","array function", 27: "join", "sub", 28: "format lines", 29: "register","array_length", "array", 30: "s","pattern", 31: "string","y", 32: "print", "unary operation", 33: "..", 34: "||", 35: "&&", 36: "==","!=", "EQ", "NE", 37: "<=",">=", "LT", "GT", "LE", "GE", 38: "<<",">>", 39: "=~","!~", 40: "unary -", 41: "++", "--", 42: "???" 43: }; 44: 45: %} 46: 47: %start prog 48: 49: %union { 50: int ival; 51: char *cval; 52: ARG *arg; 53: CMD *cmdval; 54: struct compcmd compval; 55: STAB *stabval; 56: FCMD *formval; 57: } 58: 59: %token <cval> WORD 60: %token <ival> APPEND OPEN WRITE SELECT CLOSE LOOPEX 61: %token <ival> USING FORMAT DO SHIFT PUSH POP CHOP 62: %token <ival> WHILE UNTIL IF UNLESS ELSE ELSIF CONTINUE SPLIT SPRINTF 63: %token <ival> FOR FEOF TELL SEEK STAT 64: %token <ival> FUNC0 FUNC1 FUNC2 FUNC3 STABFUN 65: %token <ival> JOIN SUB 66: %token <formval> FORMLIST 67: %token <stabval> REG ARYLEN ARY 68: %token <arg> SUBST PATTERN 69: %token <arg> RSTRING TRANS 70: 71: %type <ival> prog decl format 72: %type <stabval> 73: %type <cmdval> block lineseq line loop cond sideff nexpr else 74: %type <arg> expr sexpr term 75: %type <arg> condmod loopmod cexpr 76: %type <arg> texpr print 77: %type <cval> label 78: %type <compval> compblock 79: 80: %nonassoc <ival> PRINT 81: %left ',' 82: %nonassoc <ival> UNIOP 83: %right '=' 84: %right '?' ':' 85: %nonassoc DOTDOT 86: %left OROR 87: %left ANDAND 88: %left '|' '^' 89: %left '&' 90: %nonassoc EQ NE SEQ SNE 91: %nonassoc '<' '>' LE GE SLT SGT SLE SGE 92: %left LS RS 93: %left '+' '-' '.' 94: %left '*' '/' '%' 'x' 95: %left MATCH NMATCH 96: %right '!' '~' UMINUS 97: %nonassoc INC DEC 98: %left '(' 99: 100: %% /* RULES */ 101: 102: prog : lineseq 103: { if (in_eval) 104: eval_root = block_head($1); 105: else 106: main_root = block_head($1); } 107: ; 108: 109: compblock: block CONTINUE block 110: { $$.comp_true = $1; $$.comp_alt = $3; } 111: | block else 112: { $$.comp_true = $1; $$.comp_alt = $2; } 113: ; 114: 115: else : /* NULL */ 116: { $$ = Nullcmd; } 117: | ELSE block 118: { $$ = $2; } 119: | ELSIF '(' expr ')' compblock 120: { $$ = make_ccmd(C_IF,$3,$5); } 121: ; 122: 123: block : '{' lineseq '}' 124: { $$ = block_head($2); } 125: ; 126: 127: lineseq : /* NULL */ 128: { $$ = Nullcmd; } 129: | lineseq line 130: { $$ = append_line($1,$2); } 131: ; 132: 133: line : decl 134: { $$ = Nullcmd; } 135: | label cond 136: { $$ = add_label($1,$2); } 137: | loop /* loops add their own labels */ 138: | label ';' 139: { if ($1 != Nullch) { 140: $$ = add_label(make_acmd(C_EXPR, Nullstab, 141: Nullarg, Nullarg) ); 142: } else 143: $$ = Nullcmd; } 144: | label sideff ';' 145: { $$ = add_label($1,$2); } 146: ; 147: 148: sideff : expr 149: { $$ = make_acmd(C_EXPR, Nullstab, $1, Nullarg); } 150: | expr condmod 151: { $$ = addcond( 152: make_acmd(C_EXPR, Nullstab, Nullarg, $1), $2); } 153: | expr loopmod 154: { $$ = addloop( 155: make_acmd(C_EXPR, Nullstab, Nullarg, $1), $2); } 156: ; 157: 158: cond : IF '(' expr ')' compblock 159: { $$ = make_ccmd(C_IF,$3,$5); } 160: | UNLESS '(' expr ')' compblock 161: { $$ = invert(make_ccmd(C_IF,$3,$5)); } 162: | IF block compblock 163: { $$ = make_ccmd(C_IF,cmd_to_arg($2),$3); } 164: | UNLESS block compblock 165: { $$ = invert(make_ccmd(C_IF,cmd_to_arg($2),$3)); } 166: ; 167: 168: loop : label WHILE '(' texpr ')' compblock 169: { $$ = wopt(add_label($1, 170: make_ccmd(C_WHILE,$4,$6) )); } 171: | label UNTIL '(' expr ')' compblock 172: { $$ = wopt(add_label($1, 173: invert(make_ccmd(C_WHILE,$4,$6)) )); } 174: | label WHILE block compblock 175: { $$ = wopt(add_label($1, 176: make_ccmd(C_WHILE, cmd_to_arg($3),$4) )); } 177: | label UNTIL block compblock 178: { $$ = wopt(add_label($1, 179: invert(make_ccmd(C_WHILE, cmd_to_arg($3),$4)) )); } 180: | label FOR '(' nexpr ';' texpr ';' nexpr ')' block 181: /* basically fake up an initialize-while lineseq */ 182: { yyval.compval.comp_true = $10; 183: yyval.compval.comp_alt = $8; 184: $$ = append_line($4,wopt(add_label($1, 185: make_ccmd(C_WHILE,$6,yyval.compval) ))); } 186: | label compblock /* a block is a loop that happens once */ 187: { $$ = add_label($1,make_ccmd(C_BLOCK,Nullarg,$2)); } 188: ; 189: 190: nexpr : /* NULL */ 191: { $$ = Nullcmd; } 192: | sideff 193: ; 194: 195: texpr : /* NULL means true */ 196: { scanstr("1"); $$ = yylval.arg; } 197: | expr 198: ; 199: 200: label : /* empty */ 201: { $$ = Nullch; } 202: | WORD ':' 203: ; 204: 205: loopmod : WHILE expr 206: { $$ = $2; } 207: | UNTIL expr 208: { $$ = make_op(O_NOT,1,$2,Nullarg,Nullarg,0); } 209: ; 210: 211: condmod : IF expr 212: { $$ = $2; } 213: | UNLESS expr 214: { $$ = make_op(O_NOT,1,$2,Nullarg,Nullarg,0); } 215: ; 216: 217: decl : format 218: { $$ = 0; } 219: | subrout 220: { $$ = 0; } 221: ; 222: 223: format : FORMAT WORD '=' FORMLIST '.' 224: { stabent($2,TRUE)->stab_form = $4; safefree($2); } 225: | FORMAT '=' FORMLIST '.' 226: { stabent("stdout",TRUE)->stab_form = $3; } 227: ; 228: 229: subrout : SUB WORD block 230: { stabent($2,TRUE)->stab_sub = $3; } 231: ; 232: 233: expr : print 234: | cexpr 235: ; 236: 237: cexpr : sexpr ',' cexpr 238: { $$ = make_op(O_COMMA, 2, $1, $3, Nullarg,0); } 239: | sexpr 240: ; 241: 242: sexpr : sexpr '=' sexpr 243: { $1 = listish($1); 244: if ($1->arg_type == O_LIST) 245: $3 = listish($3); 246: $$ = l(make_op(O_ASSIGN, 2, $1, $3, Nullarg,1)); } 247: | sexpr '*' '=' sexpr 248: { $$ = l(make_op(O_MULTIPLY, 2, $1, $4, Nullarg,0)); } 249: | sexpr '/' '=' sexpr 250: { $$ = l(make_op(O_DIVIDE, 2, $1, $4, Nullarg,0)); } 251: | sexpr '%' '=' sexpr 252: { $$ = l(make_op(O_MODULO, 2, $1, $4, Nullarg,0)); } 253: | sexpr 'x' '=' sexpr 254: { $$ = l(make_op(O_REPEAT, 2, $1, $4, Nullarg,0)); } 255: | sexpr '+' '=' sexpr 256: { $$ = l(make_op(O_ADD, 2, $1, $4, Nullarg,0)); } 257: | sexpr '-' '=' sexpr 258: { $$ = l(make_op(O_SUBTRACT, 2, $1, $4, Nullarg,0)); } 259: | sexpr LS '=' sexpr 260: { $$ = l(make_op(O_LEFT_SHIFT, 2, $1, $4, Nullarg,0)); } 261: | sexpr RS '=' sexpr 262: { $$ = l(make_op(O_RIGHT_SHIFT, 2, $1, $4, Nullarg,0)); } 263: | sexpr '&' '=' sexpr 264: { $$ = l(make_op(O_BIT_AND, 2, $1, $4, Nullarg,0)); } 265: | sexpr '^' '=' sexpr 266: { $$ = l(make_op(O_XOR, 2, $1, $4, Nullarg,0)); } 267: | sexpr '|' '=' sexpr 268: { $$ = l(make_op(O_BIT_OR, 2, $1, $4, Nullarg,0)); } 269: | sexpr '.' '=' sexpr 270: { $$ = l(make_op(O_CONCAT, 2, $1, $4, Nullarg,0)); } 271: 272: 273: | sexpr '*' sexpr 274: { $$ = make_op(O_MULTIPLY, 2, $1, $3, Nullarg,0); } 275: | sexpr '/' sexpr 276: { $$ = make_op(O_DIVIDE, 2, $1, $3, Nullarg,0); } 277: | sexpr '%' sexpr 278: { $$ = make_op(O_MODULO, 2, $1, $3, Nullarg,0); } 279: | sexpr 'x' sexpr 280: { $$ = make_op(O_REPEAT, 2, $1, $3, Nullarg,0); } 281: | sexpr '+' sexpr 282: { $$ = make_op(O_ADD, 2, $1, $3, Nullarg,0); } 283: | sexpr '-' sexpr 284: { $$ = make_op(O_SUBTRACT, 2, $1, $3, Nullarg,0); } 285: | sexpr LS sexpr 286: { $$ = make_op(O_LEFT_SHIFT, 2, $1, $3, Nullarg,0); } 287: | sexpr RS sexpr 288: { $$ = make_op(O_RIGHT_SHIFT, 2, $1, $3, Nullarg,0); } 289: | sexpr '<' sexpr 290: { $$ = make_op(O_LT, 2, $1, $3, Nullarg,0); } 291: | sexpr '>' sexpr 292: { $$ = make_op(O_GT, 2, $1, $3, Nullarg,0); } 293: | sexpr LE sexpr 294: { $$ = make_op(O_LE, 2, $1, $3, Nullarg,0); } 295: | sexpr GE sexpr 296: { $$ = make_op(O_GE, 2, $1, $3, Nullarg,0); } 297: | sexpr EQ sexpr 298: { $$ = make_op(O_EQ, 2, $1, $3, Nullarg,0); } 299: | sexpr NE sexpr 300: { $$ = make_op(O_NE, 2, $1, $3, Nullarg,0); } 301: | sexpr SLT sexpr 302: { $$ = make_op(O_SLT, 2, $1, $3, Nullarg,0); } 303: | sexpr SGT sexpr 304: { $$ = make_op(O_SGT, 2, $1, $3, Nullarg,0); } 305: | sexpr SLE sexpr 306: { $$ = make_op(O_SLE, 2, $1, $3, Nullarg,0); } 307: | sexpr SGE sexpr 308: { $$ = make_op(O_SGE, 2, $1, $3, Nullarg,0); } 309: | sexpr SEQ sexpr 310: { $$ = make_op(O_SEQ, 2, $1, $3, Nullarg,0); } 311: | sexpr SNE sexpr 312: { $$ = make_op(O_SNE, 2, $1, $3, Nullarg,0); } 313: | sexpr '&' sexpr 314: { $$ = make_op(O_BIT_AND, 2, $1, $3, Nullarg,0); } 315: | sexpr '^' sexpr 316: { $$ = make_op(O_XOR, 2, $1, $3, Nullarg,0); } 317: | sexpr '|' sexpr 318: { $$ = make_op(O_BIT_OR, 2, $1, $3, Nullarg,0); } 319: | sexpr DOTDOT sexpr 320: { $$ = make_op(O_FLIP, 4, 321: flipflip($1), 322: flipflip($3), 323: Nullarg,0);} 324: | sexpr ANDAND sexpr 325: { $$ = make_op(O_AND, 2, $1, $3, Nullarg,0); } 326: | sexpr OROR sexpr 327: { $$ = make_op(O_OR, 2, $1, $3, Nullarg,0); } 328: | sexpr '?' sexpr ':' sexpr 329: { $$ = make_op(O_COND_EXPR, 3, $1, $3, $5,0); } 330: | sexpr '.' sexpr 331: { $$ = make_op(O_CONCAT, 2, $1, $3, Nullarg,0); } 332: | sexpr MATCH sexpr 333: { $$ = mod_match(O_MATCH, $1, $3); } 334: | sexpr NMATCH sexpr 335: { $$ = mod_match(O_NMATCH, $1, $3); } 336: | term INC 337: { $$ = addflags(1, AF_POST|AF_UP, 338: l(make_op(O_ITEM,1,$1,Nullarg,Nullarg,0))); } 339: | term DEC 340: { $$ = addflags(1, AF_POST, 341: l(make_op(O_ITEM,1,$1,Nullarg,Nullarg,0))); } 342: | INC term 343: { $$ = addflags(1, AF_PRE|AF_UP, 344: l(make_op(O_ITEM,1,$2,Nullarg,Nullarg,0))); } 345: | DEC term 346: { $$ = addflags(1, AF_PRE, 347: l(make_op(O_ITEM,1,$2,Nullarg,Nullarg,0))); } 348: | term 349: { $$ = $1; } 350: ; 351: 352: term : '-' term %prec UMINUS 353: { $$ = make_op(O_NEGATE, 1, $2, Nullarg, Nullarg,0); } 354: | '!' term 355: { $$ = make_op(O_NOT, 1, $2, Nullarg, Nullarg,0); } 356: | '~' term 357: { $$ = make_op(O_COMPLEMENT, 1, $2, Nullarg, Nullarg,0);} 358: | '(' expr ')' 359: { $$ = make_list(hide_ary($2)); } 360: | '(' ')' 361: { $$ = make_list(Nullarg); } 362: | DO block %prec '(' 363: { $$ = cmd_to_arg($2); } 364: | REG %prec '(' 365: { $$ = stab_to_arg(A_STAB,$1); } 366: | REG '[' expr ']' %prec '(' 367: { $$ = make_op(O_ARRAY, 2, 368: $3, stab_to_arg(A_STAB,aadd($1)), Nullarg,0); } 369: | ARY %prec '(' 370: { $$ = make_op(O_ARRAY, 1, 371: stab_to_arg(A_STAB,$1), 372: Nullarg, Nullarg, 1); } 373: | REG '{' expr '}' %prec '(' 374: { $$ = make_op(O_HASH, 2, 375: $3, stab_to_arg(A_STAB,hadd($1)), Nullarg,0); } 376: | ARYLEN %prec '(' 377: { $$ = stab_to_arg(A_ARYLEN,$1); } 378: | RSTRING %prec '(' 379: { $$ = $1; } 380: | PATTERN %prec '(' 381: { $$ = $1; } 382: | SUBST %prec '(' 383: { $$ = $1; } 384: | TRANS %prec '(' 385: { $$ = $1; } 386: | DO WORD '(' expr ')' 387: { $$ = make_op(O_SUBR, 2, 388: make_list($4), 389: stab_to_arg(A_STAB,stabent($2,TRUE)), 390: Nullarg,1); } 391: | DO WORD '(' ')' 392: { $$ = make_op(O_SUBR, 2, 393: make_list(Nullarg), 394: stab_to_arg(A_STAB,stabent($2,TRUE)), 395: Nullarg,1); } 396: | LOOPEX 397: { $$ = make_op($1,0,Nullarg,Nullarg,Nullarg,0); } 398: | LOOPEX WORD 399: { $$ = make_op($1,1,cval_to_arg($2), 400: Nullarg,Nullarg,0); } 401: | UNIOP 402: { $$ = make_op($1,1,Nullarg,Nullarg,Nullarg,0); } 403: | UNIOP sexpr 404: { $$ = make_op($1,1,$2,Nullarg,Nullarg,0); } 405: | WRITE 406: { $$ = make_op(O_WRITE, 0, 407: Nullarg, Nullarg, Nullarg,0); } 408: | WRITE '(' ')' 409: { $$ = make_op(O_WRITE, 0, 410: Nullarg, Nullarg, Nullarg,0); } 411: | WRITE '(' WORD ')' 412: { $$ = l(make_op(O_WRITE, 1, 413: stab_to_arg(A_STAB,stabent($3,TRUE)), 414: Nullarg, Nullarg,0)); safefree($3); } 415: | WRITE '(' expr ')' 416: { $$ = make_op(O_WRITE, 1, $3, Nullarg, Nullarg,0); } 417: | SELECT '(' WORD ')' 418: { $$ = l(make_op(O_SELECT, 1, 419: stab_to_arg(A_STAB,stabent($3,TRUE)), 420: Nullarg, Nullarg,0)); safefree($3); } 421: | SELECT '(' expr ')' 422: { $$ = make_op(O_SELECT, 1, $3, Nullarg, Nullarg,0); } 423: | OPEN WORD %prec '(' 424: { $$ = make_op(O_OPEN, 2, 425: stab_to_arg(A_STAB,stabent($2,TRUE)), 426: stab_to_arg(A_STAB,stabent($2,TRUE)), 427: Nullarg,0); } 428: | OPEN '(' WORD ')' 429: { $$ = make_op(O_OPEN, 2, 430: stab_to_arg(A_STAB,stabent($3,TRUE)), 431: stab_to_arg(A_STAB,stabent($3,TRUE)), 432: Nullarg,0); } 433: | OPEN '(' WORD ',' expr ')' 434: { $$ = make_op(O_OPEN, 2, 435: stab_to_arg(A_STAB,stabent($3,TRUE)), 436: $5, Nullarg,0); } 437: | CLOSE '(' WORD ')' 438: { $$ = make_op(O_CLOSE, 1, 439: stab_to_arg(A_STAB,stabent($3,TRUE)), 440: Nullarg, Nullarg,0); } 441: | CLOSE WORD %prec '(' 442: { $$ = make_op(O_CLOSE, 1, 443: stab_to_arg(A_STAB,stabent($2,TRUE)), 444: Nullarg, Nullarg,0); } 445: | FEOF '(' WORD ')' 446: { $$ = make_op(O_EOF, 1, 447: stab_to_arg(A_STAB,stabent($3,TRUE)), 448: Nullarg, Nullarg,0); } 449: | FEOF '(' ')' 450: { $$ = make_op(O_EOF, 0, 451: stab_to_arg(A_STAB,stabent("ARGV",TRUE)), 452: Nullarg, Nullarg,0); } 453: | FEOF 454: { $$ = make_op(O_EOF, 0, 455: Nullarg, Nullarg, Nullarg,0); } 456: | TELL '(' WORD ')' 457: { $$ = make_op(O_TELL, 1, 458: stab_to_arg(A_STAB,stabent($3,TRUE)), 459: Nullarg, Nullarg,0); } 460: | TELL 461: { $$ = make_op(O_TELL, 0, 462: Nullarg, Nullarg, Nullarg,0); } 463: | SEEK '(' WORD ',' sexpr ',' expr ')' 464: { $$ = make_op(O_SEEK, 3, 465: stab_to_arg(A_STAB,stabent($3,TRUE)), 466: $5, $7,1); } 467: | PUSH '(' WORD ',' expr ')' 468: { $$ = make_op($1, 2, 469: make_list($5), 470: stab_to_arg(A_STAB,aadd(stabent($3,TRUE))), 471: Nullarg,1); } 472: | PUSH '(' ARY ',' expr ')' 473: { $$ = make_op($1, 2, 474: make_list($5), 475: stab_to_arg(A_STAB,$3), 476: Nullarg,1); } 477: | POP WORD %prec '(' 478: { $$ = make_op(O_POP, 1, 479: stab_to_arg(A_STAB,aadd(stabent($2,TRUE))), 480: Nullarg, Nullarg,0); } 481: | POP '(' WORD ')' 482: { $$ = make_op(O_POP, 1, 483: stab_to_arg(A_STAB,aadd(stabent($3,TRUE))), 484: Nullarg, Nullarg,0); } 485: | POP ARY %prec '(' 486: { $$ = make_op(O_POP, 1, 487: stab_to_arg(A_STAB,$2), 488: Nullarg, 489: Nullarg, 490: 0); } 491: | POP '(' ARY ')' 492: { $$ = make_op(O_POP, 1, 493: stab_to_arg(A_STAB,$3), 494: Nullarg, 495: Nullarg, 496: 0); } 497: | SHIFT WORD %prec '(' 498: { $$ = make_op(O_SHIFT, 1, 499: stab_to_arg(A_STAB,aadd(stabent($2,TRUE))), 500: Nullarg, Nullarg,0); } 501: | SHIFT '(' WORD ')' 502: { $$ = make_op(O_SHIFT, 1, 503: stab_to_arg(A_STAB,aadd(stabent($3,TRUE))), 504: Nullarg, Nullarg,0); } 505: | SHIFT ARY %prec '(' 506: { $$ = make_op(O_SHIFT, 1, 507: stab_to_arg(A_STAB,$2), Nullarg, Nullarg,0); } 508: | SHIFT '(' ARY ')' 509: { $$ = make_op(O_SHIFT, 1, 510: stab_to_arg(A_STAB,$3), Nullarg, Nullarg,0); } 511: | SHIFT %prec '(' 512: { $$ = make_op(O_SHIFT, 1, 513: stab_to_arg(A_STAB,aadd(stabent("ARGV",TRUE))), 514: Nullarg, Nullarg,0); } 515: | SPLIT %prec '(' 516: { scanpat("/[ \t\n]+/"); 517: $$ = make_split(defstab,yylval.arg); } 518: | SPLIT '(' WORD ')' 519: { scanpat("/[ \t\n]+/"); 520: $$ = make_split(stabent($3,TRUE),yylval.arg); } 521: | SPLIT '(' WORD ',' PATTERN ')' 522: { $$ = make_split(stabent($3,TRUE),$5); } 523: | SPLIT '(' WORD ',' PATTERN ',' sexpr ')' 524: { $$ = mod_match(O_MATCH, 525: $7, 526: make_split(stabent($3,TRUE),$5) ); } 527: | SPLIT '(' sexpr ',' sexpr ')' 528: { $$ = mod_match(O_MATCH, $5, make_split(defstab,$3) ); } 529: | SPLIT '(' sexpr ')' 530: { $$ = mod_match(O_MATCH, 531: stab_to_arg(A_STAB,defstab), 532: make_split(defstab,$3) ); } 533: | JOIN '(' WORD ',' expr ')' 534: { $$ = make_op(O_JOIN, 2, 535: $5, 536: stab_to_arg(A_STAB,aadd(stabent($3,TRUE))), 537: Nullarg,0); } 538: | JOIN '(' sexpr ',' expr ')' 539: { $$ = make_op(O_JOIN, 2, 540: $3, 541: make_list($5), 542: Nullarg,2); } 543: | SPRINTF '(' expr ')' 544: { $$ = make_op(O_SPRINTF, 1, 545: make_list($3), 546: Nullarg, 547: Nullarg,1); } 548: | STAT '(' WORD ')' 549: { $$ = l(make_op(O_STAT, 1, 550: stab_to_arg(A_STAB,stabent($3,TRUE)), 551: Nullarg, Nullarg,0)); } 552: | STAT '(' expr ')' 553: { $$ = make_op(O_STAT, 1, $3, Nullarg, Nullarg,0); } 554: | CHOP 555: { $$ = l(make_op(O_CHOP, 1, 556: stab_to_arg(A_STAB,defstab), 557: Nullarg, Nullarg,0)); } 558: | CHOP '(' expr ')' 559: { $$ = l(make_op(O_CHOP, 1, $3, Nullarg, Nullarg,0)); } 560: | FUNC0 561: { $$ = make_op($1, 0, Nullarg, Nullarg, Nullarg,0); } 562: | FUNC1 '(' expr ')' 563: { $$ = make_op($1, 1, $3, Nullarg, Nullarg,0); } 564: | FUNC2 '(' sexpr ',' expr ')' 565: { $$ = make_op($1, 2, $3, $5, Nullarg, 0); } 566: | FUNC3 '(' sexpr ',' sexpr ',' expr ')' 567: { $$ = make_op($1, 3, $3, $5, $7, 0); } 568: | STABFUN '(' WORD ')' 569: { $$ = make_op($1, 1, 570: stab_to_arg(A_STAB,hadd(stabent($3,TRUE))), 571: Nullarg, 572: Nullarg, 0); } 573: ; 574: 575: print : PRINT 576: { $$ = make_op($1,2, 577: stab_to_arg(A_STAB,defstab), 578: stab_to_arg(A_STAB,Nullstab), 579: Nullarg,0); } 580: | PRINT expr 581: { $$ = make_op($1,2,make_list($2), 582: stab_to_arg(A_STAB,Nullstab), 583: Nullarg,1); } 584: | PRINT WORD 585: { $$ = make_op($1,2, 586: stab_to_arg(A_STAB,defstab), 587: stab_to_arg(A_STAB,stabent($2,TRUE)), 588: Nullarg,1); } 589: | PRINT WORD expr 590: { $$ = make_op($1,2,make_list($3), 591: stab_to_arg(A_STAB,stabent($2,TRUE)), 592: Nullarg,1); } 593: ; 594: 595: %% /* PROGRAM */ 596: #include "perly.c"
|
Last modified: 1988-02-03
Generated: 2016-12-26 |
Generated by src2html V0.67
page hit count: 4296 |
|