%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
       ;

%%