Subversion Repositories planix.SVN

%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

	;

%%