140 lines
3.6 KiB
Text
140 lines
3.6 KiB
Text
%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
|
|
;
|
|
|
|
%%
|