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: 2284
Valid CSS Valid XHTML 1.0 Strict