[perl5.git] / perl.y

/* $Header: perl.y,v 1.0 87/12/18 15:48:59 root Exp $
 *
 * $Log:	perl.y,v $
 * Revision 1.0  87/12/18  15:48:59  root
 * Initial revision
 * 
 */

%{
#include "handy.h"
#include "EXTERN.h"
#include "search.h"
#include "util.h"
#include "INTERN.h"
#include "perl.h"
char *tokename[] = {
"256",
"word",
"append","open","write","select","close","loopctl",
"using","format","do","shift","push","pop","chop",
"while","until","if","unless","else","elsif","continue","split","sprintf",
"for", "eof", "tell", "seek", "stat",
"function(no args)","function(1 arg)","function(2 args)","function(3 args)","array function",
"join", "sub",
"format lines",
"register","array_length", "array",
"s","pattern",
"string","y",
"print", "unary operation",
"..",
"||",
"&&",
"==","!=", "EQ", "NE",
"<=",">=", "LT", "GT", "LE", "GE",
"<<",">>",
"=~","!~",
"unary -",
"++", "--",
"???"
};

%}

%start prog

%union {
    int	ival;
    char *cval;
    ARG *arg;
    CMD *cmdval;
    struct compcmd compval;
    STAB *stabval;
    FCMD *formval;
}

%token <cval> WORD
%token <ival> APPEND OPEN WRITE SELECT CLOSE LOOPEX
%token <ival> USING FORMAT DO SHIFT PUSH POP CHOP
%token <ival> WHILE UNTIL IF UNLESS ELSE ELSIF CONTINUE SPLIT SPRINTF
%token <ival> FOR FEOF TELL SEEK STAT 
%token <ival> FUNC0 FUNC1 FUNC2 FUNC3 STABFUN
%token <ival> JOIN SUB
%token <formval> FORMLIST
%token <stabval> REG ARYLEN ARY
%token <arg> SUBST PATTERN
%token <arg> RSTRING TRANS

%type <ival> prog decl format
%type <stabval>
%type <cmdval> block lineseq line loop cond sideff nexpr else
%type <arg> expr sexpr term
%type <arg> condmod loopmod cexpr
%type <arg> texpr print
%type <cval> label
%type <compval> compblock

%nonassoc <ival> PRINT
%left ','
%nonassoc <ival> UNIOP
%right '='
%right '?' ':'
%nonassoc DOTDOT
%left OROR
%left ANDAND
%left '|' '^'
%left '&'
%nonassoc EQ NE SEQ SNE
%nonassoc '<' '>' LE GE SLT SGT SLE SGE
%left LS RS
%left '+' '-' '.'
%left '*' '/' '%' 'x'
%left MATCH NMATCH 
%right '!' '~' UMINUS
%nonassoc INC DEC
%left '('

%% /* RULES */

prog	:	lineseq
			{ main_root = block_head($1); }
	;

compblock:	block CONTINUE block
			{ $$.comp_true = $1; $$.comp_alt = $3; }
	|	block else
			{ $$.comp_true = $1; $$.comp_alt = $2; }
	;

else	:	/* NULL */
			{ $$ = Nullcmd; }
	|	ELSE block
			{ $$ = $2; }
	|	ELSIF '(' expr ')' compblock
			{ $$ = make_ccmd(C_IF,$3,$5); }
	;

block	:	'{' lineseq '}'
			{ $$ = block_head($2); }
	;

lineseq	:	/* NULL */
			{ $$ = Nullcmd; }
	|	lineseq line
			{ $$ = append_line($1,$2); }
	;

line	:	decl
			{ $$ = Nullcmd; }
	|	label cond
			{ $$ = add_label($1,$2); }
	|	loop	/* loops add their own labels */
	|	label ';'
			{ if ($1 != Nullch) {
			      $$ = add_label(make_acmd(C_EXPR, Nullstab,
				  Nullarg, Nullarg) );
			    } else
			      $$ = Nullcmd; }
	|	label sideff ';'
			{ $$ = add_label($1,$2); }
	;

sideff	:	expr
			{ $$ = make_acmd(C_EXPR, Nullstab, $1, Nullarg); }
	|	expr condmod
			{ $$ = addcond(
			       make_acmd(C_EXPR, Nullstab, Nullarg, $1), $2); }
	|	expr loopmod
			{ $$ = addloop(
			       make_acmd(C_EXPR, Nullstab, Nullarg, $1), $2); }
	;

cond	:	IF '(' expr ')' compblock
			{ $$ = make_ccmd(C_IF,$3,$5); }
	|	UNLESS '(' expr ')' compblock
			{ $$ = invert(make_ccmd(C_IF,$3,$5)); }
	|	IF block compblock
			{ $$ = make_ccmd(C_IF,cmd_to_arg($2),$3); }
	|	UNLESS block compblock
			{ $$ = invert(make_ccmd(C_IF,cmd_to_arg($2),$3)); }
	;

loop	:	label WHILE '(' texpr ')' compblock
			{ $$ = wopt(add_label($1,
			    make_ccmd(C_WHILE,$4,$6) )); }
	|	label UNTIL '(' expr ')' compblock
			{ $$ = wopt(add_label($1,
			    invert(make_ccmd(C_WHILE,$4,$6)) )); }
	|	label WHILE block compblock
			{ $$ = wopt(add_label($1,
			    make_ccmd(C_WHILE, cmd_to_arg($3),$4) )); }
	|	label UNTIL block compblock
			{ $$ = wopt(add_label($1,
			    invert(make_ccmd(C_WHILE, cmd_to_arg($3),$4)) )); }
	|	label FOR '(' nexpr ';' texpr ';' nexpr ')' block
			/* basically fake up an initialize-while lineseq */
			{   yyval.compval.comp_true = $10;
			    yyval.compval.comp_alt = $8;
			    $$ = append_line($4,wopt(add_label($1,
				make_ccmd(C_WHILE,$6,yyval.compval) ))); }
	|	label compblock	/* a block is a loop that happens once */
			{ $$ = add_label($1,make_ccmd(C_BLOCK,Nullarg,$2)); }
	;

nexpr	:	/* NULL */
			{ $$ = Nullcmd; }
	|	sideff
	;

texpr	:	/* NULL means true */
			{   scanstr("1"); $$ = yylval.arg; }
	|	expr
	;

label	:	/* empty */
			{ $$ = Nullch; }
	|	WORD ':'
	;

loopmod :	WHILE expr
			{ $$ = $2; }
	|	UNTIL expr
			{ $$ = make_op(O_NOT,1,$2,Nullarg,Nullarg,0); }
	;

condmod :	IF expr
			{ $$ = $2; }
	|	UNLESS expr
			{ $$ = make_op(O_NOT,1,$2,Nullarg,Nullarg,0); }
	;

decl	:	format
			{ $$ = 0; }
	|	subrout
			{ $$ = 0; }
	;

format	:	FORMAT WORD '=' FORMLIST '.' 
			{ stabent($2,TRUE)->stab_form = $4; safefree($2); }
	|	FORMAT '=' FORMLIST '.'
			{ stabent("stdout",TRUE)->stab_form = $3; }
	;

subrout	:	SUB WORD block
			{ stabent($2,TRUE)->stab_sub = $3; }
	;

expr	:	print
	|	cexpr
	;

cexpr	:	sexpr ',' cexpr
			{ $$ = make_op(O_COMMA, 2, $1, $3, Nullarg,0); }
	|	sexpr
	;

sexpr	:	sexpr '=' sexpr
			{   $1 = listish($1);
			    if ($1->arg_type == O_LIST)
				$3 = listish($3);
			    $$ = l(make_op(O_ASSIGN, 2, $1, $3, Nullarg,1)); }
	|	sexpr '*' '=' sexpr
			{ $$ = l(make_op(O_MULTIPLY, 2, $1, $4, Nullarg,0)); }
	|	sexpr '/' '=' sexpr
			{ $$ = l(make_op(O_DIVIDE, 2, $1, $4, Nullarg,0)); }
	|	sexpr '%' '=' sexpr
			{ $$ = l(make_op(O_MODULO, 2, $1, $4, Nullarg,0)); }
	|	sexpr 'x' '=' sexpr
			{ $$ = l(make_op(O_REPEAT, 2, $1, $4, Nullarg,0)); }
	|	sexpr '+' '=' sexpr
			{ $$ = l(make_op(O_ADD, 2, $1, $4, Nullarg,0)); }
	|	sexpr '-' '=' sexpr
			{ $$ = l(make_op(O_SUBTRACT, 2, $1, $4, Nullarg,0)); }
	|	sexpr LS '=' sexpr
			{ $$ = l(make_op(O_LEFT_SHIFT, 2, $1, $4, Nullarg,0)); }
	|	sexpr RS '=' sexpr
			{ $$ = l(make_op(O_RIGHT_SHIFT, 2, $1, $4, Nullarg,0)); }
	|	sexpr '&' '=' sexpr
			{ $$ = l(make_op(O_BIT_AND, 2, $1, $4, Nullarg,0)); }
	|	sexpr '^' '=' sexpr
			{ $$ = l(make_op(O_XOR, 2, $1, $4, Nullarg,0)); }
	|	sexpr '|' '=' sexpr
			{ $$ = l(make_op(O_BIT_OR, 2, $1, $4, Nullarg,0)); }
	|	sexpr '.' '=' sexpr
			{ $$ = l(make_op(O_CONCAT, 2, $1, $4, Nullarg,0)); }


	|	sexpr '*' sexpr
			{ $$ = make_op(O_MULTIPLY, 2, $1, $3, Nullarg,0); }
	|	sexpr '/' sexpr
			{ $$ = make_op(O_DIVIDE, 2, $1, $3, Nullarg,0); }
	|	sexpr '%' sexpr
			{ $$ = make_op(O_MODULO, 2, $1, $3, Nullarg,0); }
	|	sexpr 'x' sexpr
			{ $$ = make_op(O_REPEAT, 2, $1, $3, Nullarg,0); }
	|	sexpr '+' sexpr
			{ $$ = make_op(O_ADD, 2, $1, $3, Nullarg,0); }
	|	sexpr '-' sexpr
			{ $$ = make_op(O_SUBTRACT, 2, $1, $3, Nullarg,0); }
	|	sexpr LS sexpr
			{ $$ = make_op(O_LEFT_SHIFT, 2, $1, $3, Nullarg,0); }
	|	sexpr RS sexpr
			{ $$ = make_op(O_RIGHT_SHIFT, 2, $1, $3, Nullarg,0); }
	|	sexpr '<' sexpr
			{ $$ = make_op(O_LT, 2, $1, $3, Nullarg,0); }
	|	sexpr '>' sexpr
			{ $$ = make_op(O_GT, 2, $1, $3, Nullarg,0); }
	|	sexpr LE sexpr
			{ $$ = make_op(O_LE, 2, $1, $3, Nullarg,0); }
	|	sexpr GE sexpr
			{ $$ = make_op(O_GE, 2, $1, $3, Nullarg,0); }
	|	sexpr EQ sexpr
			{ $$ = make_op(O_EQ, 2, $1, $3, Nullarg,0); }
	|	sexpr NE sexpr
			{ $$ = make_op(O_NE, 2, $1, $3, Nullarg,0); }
	|	sexpr SLT sexpr
			{ $$ = make_op(O_SLT, 2, $1, $3, Nullarg,0); }
	|	sexpr SGT sexpr
			{ $$ = make_op(O_SGT, 2, $1, $3, Nullarg,0); }
	|	sexpr SLE sexpr
			{ $$ = make_op(O_SLE, 2, $1, $3, Nullarg,0); }
	|	sexpr SGE sexpr
			{ $$ = make_op(O_SGE, 2, $1, $3, Nullarg,0); }
	|	sexpr SEQ sexpr
			{ $$ = make_op(O_SEQ, 2, $1, $3, Nullarg,0); }
	|	sexpr SNE sexpr
			{ $$ = make_op(O_SNE, 2, $1, $3, Nullarg,0); }
	|	sexpr '&' sexpr
			{ $$ = make_op(O_BIT_AND, 2, $1, $3, Nullarg,0); }
	|	sexpr '^' sexpr
			{ $$ = make_op(O_XOR, 2, $1, $3, Nullarg,0); }
	|	sexpr '|' sexpr
			{ $$ = make_op(O_BIT_OR, 2, $1, $3, Nullarg,0); }
	|	sexpr DOTDOT sexpr
			{ $$ = make_op(O_FLIP, 4,
			    flipflip($1),
			    flipflip($3),
			    Nullarg,0);}
	|	sexpr ANDAND sexpr
			{ $$ = make_op(O_AND, 2, $1, $3, Nullarg,0); }
	|	sexpr OROR sexpr
			{ $$ = make_op(O_OR, 2, $1, $3, Nullarg,0); }
	|	sexpr '?' sexpr ':' sexpr
			{ $$ = make_op(O_COND_EXPR, 3, $1, $3, $5,0); }
	|	sexpr '.' sexpr
			{ $$ = make_op(O_CONCAT, 2, $1, $3, Nullarg,0); }
	|	sexpr MATCH sexpr
			{ $$ = mod_match(O_MATCH, $1, $3); }
	|	sexpr NMATCH sexpr
			{ $$ = mod_match(O_NMATCH, $1, $3); }
	|	term INC
			{ $$ = addflags(1, AF_POST|AF_UP,
			    l(make_op(O_ITEM,1,$1,Nullarg,Nullarg,0))); }
	|	term DEC
			{ $$ = addflags(1, AF_POST,
			    l(make_op(O_ITEM,1,$1,Nullarg,Nullarg,0))); }
	|	INC term
			{ $$ = addflags(1, AF_PRE|AF_UP,
			    l(make_op(O_ITEM,1,$2,Nullarg,Nullarg,0))); }
	|	DEC term
			{ $$ = addflags(1, AF_PRE,
			    l(make_op(O_ITEM,1,$2,Nullarg,Nullarg,0))); }
	|	term
			{ $$ = $1; }
	;

term	:	'-' term %prec UMINUS
			{ $$ = make_op(O_NEGATE, 1, $2, Nullarg, Nullarg,0); }
	|	'!' term
			{ $$ = make_op(O_NOT, 1, $2, Nullarg, Nullarg,0); }
	|	'~' term
			{ $$ = make_op(O_COMPLEMENT, 1, $2, Nullarg, Nullarg,0);}
	|	'(' expr ')'
			{ $$ = make_list(hide_ary($2)); }
	|	'(' ')'
			{ $$ = make_list(Nullarg); }
	|	DO block	%prec '('
			{ $$ = cmd_to_arg($2); }
	|	REG	%prec '('
			{ $$ = stab_to_arg(A_STAB,$1); }
	|	REG '[' expr ']'	%prec '('
			{ $$ = make_op(O_ARRAY, 2,
				$3, stab_to_arg(A_STAB,aadd($1)), Nullarg,0); }
	|	ARY 	%prec '('
			{ $$ = make_op(O_ARRAY, 1,
				stab_to_arg(A_STAB,$1),
				Nullarg, Nullarg, 1); }
	|	REG '{' expr '}'	%prec '('
			{ $$ = make_op(O_HASH, 2,
				$3, stab_to_arg(A_STAB,hadd($1)), Nullarg,0); }
	|	ARYLEN	%prec '('
			{ $$ = stab_to_arg(A_ARYLEN,$1); }
	|	RSTRING	%prec '('
			{ $$ = $1; }
	|	PATTERN	%prec '('
			{ $$ = $1; }
	|	SUBST	%prec '('
			{ $$ = $1; }
	|	TRANS	%prec '('
			{ $$ = $1; }
	|	DO WORD '(' expr ')'
			{ $$ = make_op(O_SUBR, 2,
				make_list($4),
				stab_to_arg(A_STAB,stabent($2,TRUE)),
				Nullarg,1); }
	|	DO WORD '(' ')'
			{ $$ = make_op(O_SUBR, 2,
				make_list(Nullarg),
				stab_to_arg(A_STAB,stabent($2,TRUE)),
				Nullarg,1); }
	|	LOOPEX
			{ $$ = make_op($1,0,Nullarg,Nullarg,Nullarg,0); }
	|	LOOPEX WORD
			{ $$ = make_op($1,1,cval_to_arg($2),
			    Nullarg,Nullarg,0); }
	|	UNIOP
			{ $$ = make_op($1,1,Nullarg,Nullarg,Nullarg,0); }
	|	UNIOP sexpr
			{ $$ = make_op($1,1,$2,Nullarg,Nullarg,0); }
	|	WRITE
			{ $$ = make_op(O_WRITE, 0,
			    Nullarg, Nullarg, Nullarg,0); }
	|	WRITE '(' ')'
			{ $$ = make_op(O_WRITE, 0,
			    Nullarg, Nullarg, Nullarg,0); }
	|	WRITE '(' WORD ')'
			{ $$ = l(make_op(O_WRITE, 1,
			    stab_to_arg(A_STAB,stabent($3,TRUE)),
			    Nullarg, Nullarg,0)); safefree($3); }
	|	WRITE '(' expr ')'
			{ $$ = make_op(O_WRITE, 1, $3, Nullarg, Nullarg,0); }
	|	SELECT '(' WORD ')'
			{ $$ = l(make_op(O_SELECT, 1,
			    stab_to_arg(A_STAB,stabent($3,TRUE)),
			    Nullarg, Nullarg,0)); safefree($3); }
	|	SELECT '(' expr ')'
			{ $$ = make_op(O_SELECT, 1, $3, Nullarg, Nullarg,0); }
	|	OPEN WORD	%prec '('
			{ $$ = make_op(O_OPEN, 2,
			    stab_to_arg(A_STAB,stabent($2,TRUE)),
			    stab_to_arg(A_STAB,stabent($2,TRUE)),
			    Nullarg,0); }
	|	OPEN '(' WORD ')'
			{ $$ = make_op(O_OPEN, 2,
			    stab_to_arg(A_STAB,stabent($3,TRUE)),
			    stab_to_arg(A_STAB,stabent($3,TRUE)),
			    Nullarg,0); }
	|	OPEN '(' WORD ',' expr ')'
			{ $$ = make_op(O_OPEN, 2,
			    stab_to_arg(A_STAB,stabent($3,TRUE)),
			    $5, Nullarg,0); }
	|	CLOSE '(' WORD ')'
			{ $$ = make_op(O_CLOSE, 1,
			    stab_to_arg(A_STAB,stabent($3,TRUE)),
			    Nullarg, Nullarg,0); }
	|	CLOSE WORD	%prec '('
			{ $$ = make_op(O_CLOSE, 1,
			    stab_to_arg(A_STAB,stabent($2,TRUE)),
			    Nullarg, Nullarg,0); }
	|	FEOF '(' WORD ')'
			{ $$ = make_op(O_EOF, 1,
			    stab_to_arg(A_STAB,stabent($3,TRUE)),
			    Nullarg, Nullarg,0); }
	|	FEOF '(' ')'
			{ $$ = make_op(O_EOF, 0,
			    stab_to_arg(A_STAB,stabent("ARGV",TRUE)),
			    Nullarg, Nullarg,0); }
	|	FEOF
			{ $$ = make_op(O_EOF, 0,
			    Nullarg, Nullarg, Nullarg,0); }
	|	TELL '(' WORD ')'
			{ $$ = make_op(O_TELL, 1,
			    stab_to_arg(A_STAB,stabent($3,TRUE)),
			    Nullarg, Nullarg,0); }
	|	TELL
			{ $$ = make_op(O_TELL, 0,
			    Nullarg, Nullarg, Nullarg,0); }
	|	SEEK '(' WORD ',' sexpr ',' expr ')'
			{ $$ = make_op(O_SEEK, 3,
			    stab_to_arg(A_STAB,stabent($3,TRUE)),
			    $5, $7,1); }
	|	PUSH '(' WORD ',' expr ')'
			{ $$ = make_op($1, 2,
			    make_list($5),
			    stab_to_arg(A_STAB,aadd(stabent($3,TRUE))),
			    Nullarg,1); }
	|	PUSH '(' ARY ',' expr ')'
			{ $$ = make_op($1, 2,
			    make_list($5),
			    stab_to_arg(A_STAB,$3),
			    Nullarg,1); }
	|	POP WORD	%prec '('
			{ $$ = make_op(O_POP, 1,
			    stab_to_arg(A_STAB,aadd(stabent($2,TRUE))),
			    Nullarg, Nullarg,0); }
	|	POP '(' WORD ')'
			{ $$ = make_op(O_POP, 1,
			    stab_to_arg(A_STAB,aadd(stabent($3,TRUE))),
			    Nullarg, Nullarg,0); }
	|	POP ARY	%prec '('
			{ $$ = make_op(O_POP, 1,
			    stab_to_arg(A_STAB,$2),
			    Nullarg,
			    Nullarg,
			    0); }
	|	POP '(' ARY ')'
			{ $$ = make_op(O_POP, 1,
			    stab_to_arg(A_STAB,$3),
			    Nullarg,
			    Nullarg,
			    0); }
	|	SHIFT WORD	%prec '('
			{ $$ = make_op(O_SHIFT, 1,
			    stab_to_arg(A_STAB,aadd(stabent($2,TRUE))),
			    Nullarg, Nullarg,0); }
	|	SHIFT '(' WORD ')'
			{ $$ = make_op(O_SHIFT, 1,
			    stab_to_arg(A_STAB,aadd(stabent($3,TRUE))),
			    Nullarg, Nullarg,0); }
	|	SHIFT ARY	%prec '('
			{ $$ = make_op(O_SHIFT, 1,
			    stab_to_arg(A_STAB,$2), Nullarg, Nullarg,0); }
	|	SHIFT '(' ARY ')'
			{ $$ = make_op(O_SHIFT, 1,
			    stab_to_arg(A_STAB,$3), Nullarg, Nullarg,0); }
	|	SHIFT	%prec '('
			{ $$ = make_op(O_SHIFT, 1,
			    stab_to_arg(A_STAB,aadd(stabent("ARGV",TRUE))),
			    Nullarg, Nullarg,0); }
	|	SPLIT	%prec '('
			{ scanpat("/[ \t\n]+/");
			    $$ = make_split(defstab,yylval.arg); }
	|	SPLIT '(' WORD ')'
			{ scanpat("/[ \t\n]+/");
			    $$ = make_split(stabent($3,TRUE),yylval.arg); }
	|	SPLIT '(' WORD ',' PATTERN ')'
			{ $$ = make_split(stabent($3,TRUE),$5); }
	|	SPLIT '(' WORD ',' PATTERN ',' sexpr ')'
			{ $$ = mod_match(O_MATCH,
			    $7,
			    make_split(stabent($3,TRUE),$5) ); }
	|	SPLIT '(' sexpr ',' sexpr ')'
			{ $$ = mod_match(O_MATCH, $5, make_split(defstab,$3) ); }
	|	SPLIT '(' sexpr ')'
			{ $$ = mod_match(O_MATCH,
			    stab_to_arg(A_STAB,defstab),
			    make_split(defstab,$3) ); }
	|	JOIN '(' WORD ',' expr ')'
			{ $$ = make_op(O_JOIN, 2,
			    $5,
			    stab_to_arg(A_STAB,aadd(stabent($3,TRUE))),
			    Nullarg,0); }
	|	JOIN '(' sexpr ',' expr ')'
			{ $$ = make_op(O_JOIN, 2,
			    $3,
			    make_list($5),
			    Nullarg,2); }
	|	SPRINTF '(' expr ')'
			{ $$ = make_op(O_SPRINTF, 1,
			    make_list($3),
			    Nullarg,
			    Nullarg,1); }
	|	STAT '(' WORD ')'
			{ $$ = l(make_op(O_STAT, 1,
			    stab_to_arg(A_STAB,stabent($3,TRUE)),
			    Nullarg, Nullarg,0)); }
	|	STAT '(' expr ')'
			{ $$ = make_op(O_STAT, 1, $3, Nullarg, Nullarg,0); }
	|	CHOP
			{ $$ = l(make_op(O_CHOP, 1,
			    stab_to_arg(A_STAB,defstab),
			    Nullarg, Nullarg,0)); }
	|	CHOP '(' expr ')'
			{ $$ = l(make_op(O_CHOP, 1, $3, Nullarg, Nullarg,0)); }
	|	FUNC0
			{ $$ = make_op($1, 0, Nullarg, Nullarg, Nullarg,0); }
	|	FUNC1 '(' expr ')'
			{ $$ = make_op($1, 1, $3, Nullarg, Nullarg,0); }
	|	FUNC2 '(' sexpr ',' expr ')'
			{ $$ = make_op($1, 2, $3, $5, Nullarg, 0); }
	|	FUNC3 '(' sexpr ',' sexpr ',' expr ')'
			{ $$ = make_op($1, 3, $3, $5, $7, 0); }
	|	STABFUN '(' WORD ')'
			{ $$ = make_op($1, 1,
				stab_to_arg(A_STAB,hadd(stabent($3,TRUE))),
				Nullarg,
				Nullarg, 0); }
	;

print	:	PRINT
			{ $$ = make_op($1,2,
				stab_to_arg(A_STAB,defstab),
				stab_to_arg(A_STAB,Nullstab),
				Nullarg,0); }
	|	PRINT expr
			{ $$ = make_op($1,2,make_list($2),
				stab_to_arg(A_STAB,Nullstab),
				Nullarg,1); }
	|	PRINT WORD
			{ $$ = make_op($1,2,
				stab_to_arg(A_STAB,defstab),
				stab_to_arg(A_STAB,stabent($2,TRUE)),
				Nullarg,1); }
	|	PRINT WORD expr
			{ $$ = make_op($1,2,make_list($3),
				stab_to_arg(A_STAB,stabent($2,TRUE)),
				Nullarg,1); }
	;

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