%term CONTIG QTEXT SPACE THIN TAB

%term CONTIG QTEXT SPACE THIN TAB
%term MATRIX LCOL CCOL RCOL COL ABOVE
%term MARK LINEUP
%term SUM INT PROD UNION INTER
%term DEFINE TDEFINE NDEFINE DELIM GSIZE GFONT INCLUDE SPACE IFDEF
%term DOTEQ DOTEN

%right FROM TO
%left OVER SQRT
%right SUP SUB
%right SIZE FONT ROMAN ITALIC BOLD FAT
%right UP DOWN BACK FWD
%left LEFT RIGHT
%right DOT DOTDOT HAT TILDE BAR LOWBAR HIGHBAR UNDER VEC DYAD UTILDE

%{
#include "e.h"

int yylex(void);
%}

%%

stuff : eqn { putout($1); }
| error { ERROR "syntax error" WARNING; } /* should be SYNTAX */
| { eqnreg = 0; }
;

eqn : box
| eqn box { eqnbox($1, $2, 0); }
| eqn lineupbox { eqnbox($1, $2, 1); }
| LINEUP { lineup(0); }
;

lineupbox: LINEUP box { $$ = $2; lineup(1); }
;

sbox : SUP box %prec SUP { $$ = $2; }
| %prec SUP { $$ = 0; }
;

tbox : TO box %prec TO { $$ = $2; }
| %prec FROM { $$ = 0; }
;

box : '{' eqn '}' { $$ = $2; }
| QTEXT { text(QTEXT, (char *) $1); }
| CONTIG { text(CONTIG, (char *) $1); }
| SPACE { text(SPACE, (char *) 0); }
| THIN { text(THIN, (char *) 0); }
| TAB { text(TAB, (char *) 0); }
| SUM { funny(SUM); }
| PROD { funny(PROD); }
| UNION { funny(UNION); }
| INTER { funny(INTER); }
| box OVER box { boverb($1, $3); }
| MARK box { mark($2); }
| size box %prec SIZE { size($1, $2); }
| font box %prec FONT { font($1, $2); }
| FAT box { fatbox($2); }
| SQRT box { sqrt($2); }
| box SUB {ps -= deltaps;} box sbox %prec SUB { subsup($1, $4, $5); }
| box SUP {ps -= deltaps;} box %prec SUP { subsup($1, 0, $4); }
| int SUB {ps -= deltaps;} box sbox %prec SUB { integral($1, $4, $5); }
| int SUP {ps -= deltaps;} box %prec SUP { integral($1, 0, $4); }
| int { integral($1, 0, 0); }
| box FROM {ps -= deltaps;} box tbox %prec FROM { fromto($1, $4, $5); }
| box TO {ps -= deltaps;} box %prec TO { fromto($1, 0, $4); }
| left eqn right { paren($1, $2, $3); }
| left eqn { paren($1, $2, 0); }
| 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); }
| column { pile($1); ct = $1; }
| MATRIX {$$=ct;} '{' collist '}' { matrix($2); ct = $2; }
;

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; }
| VEC { $$ = VEC; }
| DYAD { $$ = DYAD; }
| BAR { $$ = BAR; }
| LOWBAR { $$ = LOWBAR; }
| HIGHBAR { $$ = HIGHBAR; }
| UNDER { $$ = UNDER; } /* underbar */
| DOT { $$ = DOT; }
| TILDE { $$ = TILDE; }
| UTILDE { $$ = UTILDE; }
| DOTDOT { $$ = DOTDOT; } /* umlaut = double dot */
;

left : LEFT text { $$ = ((char *)$2)[0]; }
| LEFT '{' { $$ = '{'; }
;

right : RIGHT text { $$ = ((char *)$2)[0]; }
| RIGHT '}' { $$ = '}'; }
;

collist : column
| collist column
;

column : col '{' list '}' { column($1, DEFGAP); }
| col text {$$=atoi((char*)$2);} '{' list '}' { column($1, $3); }
;

col : LCOL { $$ = startcol(LCOL); }
| CCOL { $$ = startcol(CCOL); }
| RCOL { $$ = startcol(RCOL); }
| COL { $$ = startcol(COL); }
;

list : eqn { lp[ct++] = $1; }
| list ABOVE eqn { lp[ct++] = $3; }
;

size : SIZE text { $$ = ps; setsize((char *) $2); }
;

font : ROMAN { static char R[]="R"; setfont(R); }
| ITALIC { static char I[]="I"; setfont(I); }
| BOLD { static char B[]="B"; setfont(B); }
| FONT text { setfont((char *)$2); }
;

text : CONTIG
| QTEXT
;

%%