* Copyright (c) 1991 The Regents of the University of California.
* %sccs.include.proprietary.c%
static char sccsid[] = "@(#)e.y 4.2 (Berkeley) %G%";
%term CONTIG QTEXT SPACE THIN TAB
%term MATRIX LCOL CCOL RCOL COL
%term SUM INT PROD UNION INTER
%term LPILE PILE CPILE RPILE ABOVE
%term DEFINE TDEFINE NDEFINE DELIM GSIZE GFONT INCLUDE
%right SIZE FONT ROMAN ITALIC BOLD FAT
%right DOT DOTDOT HAT TILDE BAR UNDER VEC DYAD
stuff : eqn { putout($1); }
| error { error(!FATAL, "syntax error"); }
| eqn box { eqnbox($1, $2, 0); }
| eqn lineupbox { eqnbox($1, $2, 1); }
lineupbox: LINEUP box { $$ = $2; lineup(1); }
matrix : MATRIX { $$ = ct; } ;
column : lcol '{' list '}' { column('L', $1); }
| ccol '{' list '}' { column('C', $1); }
| rcol '{' list '}' { column('R', $1); }
| col '{' list '}' { column('-', $1); }
lcol : LCOL { $$ = ct++; } ;
ccol : CCOL { $$ = ct++; } ;
rcol : RCOL { $$ = ct++; } ;
col : COL { $$ = ct++; } ;
sbox : sup box %prec SUP { $$ = $2; }
tbox : to box %prec TO { $$ = $2; }
box : box OVER box { boverb($1, $3); }
| size box %prec SIZE { size($1, $2); }
| font box %prec FONT { font($1, $2); }
| FAT box { fatbox($2); }
| lpile '{' list '}' { lpile('L', $1, ct); ct = $1; }
| cpile '{' list '}' { lpile('C', $1, ct); ct = $1; }
| rpile '{' list '}' { lpile('R', $1, ct); ct = $1; }
| pile '{' list '}' { lpile('-', $1, ct); ct = $1; }
| box sub box sbox %prec SUB { shift2($1, $3, $4); }
| box sub box %prec SUB { bshiftb($1, $2, $3); }
| box sup box %prec SUP { bshiftb($1, $2, $3); }
| int sub box sbox %prec SUB { integral($1, $3, $4); }
| int sub box %prec SUB { integral($1, $3, 0); }
| int sup box %prec SUP { integral($1, 0, $3); }
| int { integral($1, 0, 0); }
| left eqn right { paren($1, $2, $3); }
| box from box tbox %prec FROM { fromto($1, $3, $4); fromflg=0; }
| box to box %prec TO { fromto($1, 0, $3); }
| box diacrit { diacrit($1, $2); }
| fwd box %prec UP { move(FWD, $1, $2); }
| up box %prec UP { move(UP, $1, $2); }
| back box %prec UP { move(BACK, $1, $2); }
| down box %prec UP { move(DOWN, $1, $2); }
| matrix '{' collist '}' { matrix($1); }
int : INT { setintegral(); }
fwd : FWD text { $$ = atoi((char *) $1); } ;
up : UP text { $$ = atoi((char *) $1); } ;
back : BACK text { $$ = atoi((char *) $1); } ;
down : DOWN text { $$ = atoi((char *) $1); } ;
diacrit : HAT { $$ = HAT; }
| UNDER { $$ = UNDER; } /* under bar */
| DOTDOT { $$ = DOTDOT; } /* umlaut = double dot */
from : FROM { $$=ps; ps -= 3; fromflg = 1;
if(dbg)printf(".\tfrom: old ps %d, new ps %d, fflg %d\n", $$, ps, fromflg);
to : TO { $$=ps; if(fromflg==0)ps -= 3;
if(dbg)printf(".\tto: old ps %d, new ps %d\n", $$, ps);
left : LEFT text { $$ = ((char *)$2)[0]; }
right : RIGHT text { $$ = ((char *)$2)[0]; }
| RIGHT '}' { $$ = '}'; }
list : eqn { lp[ct++] = $1; }
| list ABOVE eqn { lp[ct++] = $3; }
lpile : LPILE { $$ = ct; } ;
cpile : CPILE { $$ = ct; } ;
pile : PILE { $$ = ct; } ;
rpile : RPILE { $$ = ct; } ;
size : SIZE text { $$ = ps; setsize((char *) $2); }
font : ROMAN { setfont(ROM); }
| ITALIC { setfont(ITAL); }
| FONT text { setfont(((char *)$2)[0]); }
sub : SUB { shift(SUB); }
sup : SUP { shift(SUP); }
pbox : '{' eqn '}' { $$ = $2; }
| QTEXT { text(QTEXT, (char *) $1); }
| CONTIG { text(CONTIG, (char *) $1); }
| SPACE { text(SPACE, 0); }
| THIN { text(THIN, 0); }
| UNION { funny(UNION); }
| INTER { funny(INTER); } /* intersection */