op public repos

Blame

Date:: Fri Dec 30 17:43:34 2005 UTC
Message:: stupid pointers
Actions:: History | Blob | Raw File
  1 5cedca1b 2004-05-15 devnull %term	CONTIG QTEXT SPACE THIN TAB
  2 5cedca1b 2004-05-15 devnull %term	MATRIX LCOL CCOL RCOL COL ABOVE
  3 5cedca1b 2004-05-15 devnull %term	MARK LINEUP
  4 5cedca1b 2004-05-15 devnull %term	SUM INT PROD UNION INTER
  5 5cedca1b 2004-05-15 devnull %term	DEFINE TDEFINE NDEFINE DELIM GSIZE GFONT INCLUDE SPACE IFDEF
  6 5cedca1b 2004-05-15 devnull %term	DOTEQ DOTEN
  7 5cedca1b 2004-05-15 devnull 
  8 5cedca1b 2004-05-15 devnull %right	FROM TO
  9 5cedca1b 2004-05-15 devnull %left	OVER SQRT
 10 5cedca1b 2004-05-15 devnull %right	SUP SUB
 11 5cedca1b 2004-05-15 devnull %right	SIZE FONT ROMAN ITALIC BOLD FAT
 12 5cedca1b 2004-05-15 devnull %right	UP DOWN BACK FWD
 13 5cedca1b 2004-05-15 devnull %left	LEFT RIGHT
 14 5cedca1b 2004-05-15 devnull %right	DOT DOTDOT HAT TILDE BAR LOWBAR HIGHBAR UNDER VEC DYAD UTILDE
 15 5cedca1b 2004-05-15 devnull 
 16 5cedca1b 2004-05-15 devnull %{
 17 5cedca1b 2004-05-15 devnull #include "e.h"
 18 5cedca1b 2004-05-15 devnull 
 19 5cedca1b 2004-05-15 devnull int	yylex(void);
 20 5cedca1b 2004-05-15 devnull %}
 21 5cedca1b 2004-05-15 devnull 
 22 5cedca1b 2004-05-15 devnull %%
 23 5cedca1b 2004-05-15 devnull 
 24 5cedca1b 2004-05-15 devnull stuff	: eqn 		{ putout($1); }
 25 5cedca1b 2004-05-15 devnull 	| error		{ ERROR "syntax error" WARNING; }	/* should be SYNTAX */
 26 5cedca1b 2004-05-15 devnull 	|		{ eqnreg = 0; }
 27 5cedca1b 2004-05-15 devnull 	;
 28 5cedca1b 2004-05-15 devnull 
 29 5cedca1b 2004-05-15 devnull eqn	: box
 30 5cedca1b 2004-05-15 devnull 	| eqn box	{ eqnbox($1, $2, 0); }
 31 5cedca1b 2004-05-15 devnull 	| eqn lineupbox	{ eqnbox($1, $2, 1); }
 32 5cedca1b 2004-05-15 devnull 	| LINEUP	{ lineup(0); }
 33 5cedca1b 2004-05-15 devnull 	;
 34 5cedca1b 2004-05-15 devnull 
 35 5cedca1b 2004-05-15 devnull lineupbox: LINEUP box	{ $$ = $2; lineup(1); }
 36 5cedca1b 2004-05-15 devnull 	;
 37 5cedca1b 2004-05-15 devnull 
 38 5cedca1b 2004-05-15 devnull sbox	: SUP box	%prec SUP	{ $$ = $2; }
 39 5cedca1b 2004-05-15 devnull 	|		%prec SUP	{ $$ = 0; }
 40 5cedca1b 2004-05-15 devnull 	;
 41 5cedca1b 2004-05-15 devnull 
 42 5cedca1b 2004-05-15 devnull tbox	: TO box	%prec TO	{ $$ = $2; }
 43 5cedca1b 2004-05-15 devnull 	|		%prec FROM	{ $$ = 0; }
 44 5cedca1b 2004-05-15 devnull 	;
 45 5cedca1b 2004-05-15 devnull 
 46 5cedca1b 2004-05-15 devnull box	: '{' eqn '}'	{ $$ = $2; }
 47 5b23583d 2005-12-30 devnull 	| QTEXT		{ text(QTEXT, (char *)$1); }
 48 5b23583d 2005-12-30 devnull 	| CONTIG	{ text(CONTIG, (char *)$1); }
 49 5cedca1b 2004-05-15 devnull 	| SPACE		{ text(SPACE, (char *) 0); }
 50 5cedca1b 2004-05-15 devnull 	| THIN		{ text(THIN, (char *) 0); }
 51 5cedca1b 2004-05-15 devnull 	| TAB		{ text(TAB, (char *) 0); }
 52 5cedca1b 2004-05-15 devnull 	| SUM		{ funny(SUM); }
 53 5cedca1b 2004-05-15 devnull 	| PROD		{ funny(PROD); }
 54 5cedca1b 2004-05-15 devnull 	| UNION		{ funny(UNION); }
 55 5cedca1b 2004-05-15 devnull 	| INTER		{ funny(INTER); }
 56 5cedca1b 2004-05-15 devnull  	| box OVER box			{ boverb($1, $3); }
 57 5cedca1b 2004-05-15 devnull 	| MARK box			{ mark($2); }
 58 5cedca1b 2004-05-15 devnull 	| size box	%prec SIZE	{ size($1, $2); }
 59 5cedca1b 2004-05-15 devnull 	| font box	%prec FONT	{ font($1, $2); }
 60 5cedca1b 2004-05-15 devnull 	| FAT box			{ fatbox($2); }
 61 5cedca1b 2004-05-15 devnull 	| SQRT box			{ sqrt($2); }
 62 5cedca1b 2004-05-15 devnull 	| box SUB {ps -= deltaps;} box sbox	%prec SUB	{ subsup($1, $4, $5); }
 63 5cedca1b 2004-05-15 devnull 	| box SUP {ps -= deltaps;} box		%prec SUP	{ subsup($1, 0, $4); }
 64 5cedca1b 2004-05-15 devnull 	| int SUB {ps -= deltaps;} box sbox	%prec SUB	{ integral($1, $4, $5); }
 65 5cedca1b 2004-05-15 devnull 	| int SUP {ps -= deltaps;} box		%prec SUP	{ integral($1, 0, $4); }
 66 5cedca1b 2004-05-15 devnull 	| int					{ integral($1, 0, 0); }
 67 5cedca1b 2004-05-15 devnull 	| box FROM {ps -= deltaps;} box tbox	%prec FROM	{ fromto($1, $4, $5); }
 68 5cedca1b 2004-05-15 devnull 	| box TO {ps -= deltaps;} box		%prec TO	{ fromto($1, 0, $4); }
 69 5cedca1b 2004-05-15 devnull 	| left eqn right			{ paren($1, $2, $3); }
 70 5cedca1b 2004-05-15 devnull 	| left eqn 				{ paren($1, $2, 0); }
 71 5cedca1b 2004-05-15 devnull 	| box diacrit			{ diacrit($1, $2); }
 72 5cedca1b 2004-05-15 devnull 	| fwd box	%prec UP	{ move(FWD, $1, $2); }
 73 5cedca1b 2004-05-15 devnull 	| up box	%prec UP	{ move(UP, $1, $2); }
 74 5cedca1b 2004-05-15 devnull 	| back box	%prec UP	{ move(BACK, $1, $2); }
 75 5cedca1b 2004-05-15 devnull 	| down box	%prec UP	{ move(DOWN, $1, $2); }
 76 5cedca1b 2004-05-15 devnull 	| column			{ pile($1); ct = $1; }
 77 5cedca1b 2004-05-15 devnull 	| MATRIX {$$=ct;} '{' collist '}'	{ matrix($2); ct = $2; }
 78 5cedca1b 2004-05-15 devnull 	;
 79 5cedca1b 2004-05-15 devnull 
 80 5cedca1b 2004-05-15 devnull int	: INT		{ setintegral(); }
 81 5cedca1b 2004-05-15 devnull 	;
 82 5cedca1b 2004-05-15 devnull 
 83 5b23583d 2005-12-30 devnull fwd	: FWD text	{ $$ = atoi((char *)$1); } ;
 84 5cedca1b 2004-05-15 devnull up	: UP text	{ $$ = atoi((char *) $1); } ;
 85 5b23583d 2005-12-30 devnull back	: BACK text	{ $$ = atoi((char *)$1); } ;
 86 5b23583d 2005-12-30 devnull down	: DOWN text	{ $$ = atoi((char *)$1); } ;
 87 5cedca1b 2004-05-15 devnull 
 88 5cedca1b 2004-05-15 devnull diacrit	: HAT		{ $$ = HAT; }
 89 5cedca1b 2004-05-15 devnull 	| VEC		{ $$ = VEC; }
 90 5cedca1b 2004-05-15 devnull 	| DYAD		{ $$ = DYAD; }
 91 5cedca1b 2004-05-15 devnull 	| BAR		{ $$ = BAR; }
 92 5cedca1b 2004-05-15 devnull 	| LOWBAR	{ $$ = LOWBAR; }
 93 5cedca1b 2004-05-15 devnull 	| HIGHBAR	{ $$ = HIGHBAR; }
 94 5cedca1b 2004-05-15 devnull 	| UNDER		{ $$ = UNDER; }	/* underbar */
 95 5cedca1b 2004-05-15 devnull 	| DOT		{ $$ = DOT; }
 96 5cedca1b 2004-05-15 devnull 	| TILDE		{ $$ = TILDE; }
 97 5cedca1b 2004-05-15 devnull 	| UTILDE	{ $$ = UTILDE; }
 98 5cedca1b 2004-05-15 devnull 	| DOTDOT	{ $$ = DOTDOT; } /* umlaut = double dot */
 99 5cedca1b 2004-05-15 devnull 	;
100 5cedca1b 2004-05-15 devnull 
101 5cedca1b 2004-05-15 devnull left	: LEFT text	{ $$ = ((char *)$2)[0]; }
102 5cedca1b 2004-05-15 devnull 	| LEFT '{'	{ $$ = '{'; }
103 5cedca1b 2004-05-15 devnull 	;
104 5cedca1b 2004-05-15 devnull 
105 5cedca1b 2004-05-15 devnull right	: RIGHT text	{ $$ = ((char *)$2)[0]; }
106 5cedca1b 2004-05-15 devnull 	| RIGHT '}'	{ $$ = '}'; }
107 5cedca1b 2004-05-15 devnull 	;
108 5cedca1b 2004-05-15 devnull 
109 5cedca1b 2004-05-15 devnull collist	: column
110 5cedca1b 2004-05-15 devnull 	| collist column
111 5cedca1b 2004-05-15 devnull 	;
112 5cedca1b 2004-05-15 devnull 
113 5cedca1b 2004-05-15 devnull column	: col '{' list '}'				{ column($1, DEFGAP); }
114 5cedca1b 2004-05-15 devnull 	| col text {$$=atoi((char*)$2);} '{' list '}'	{ column($1, $3); }
115 5cedca1b 2004-05-15 devnull 	;
116 5cedca1b 2004-05-15 devnull 
117 5cedca1b 2004-05-15 devnull col	: LCOL		{ $$ = startcol(LCOL); }
118 5cedca1b 2004-05-15 devnull 	| CCOL		{ $$ = startcol(CCOL); }
119 5cedca1b 2004-05-15 devnull 	| RCOL		{ $$ = startcol(RCOL); }
120 5cedca1b 2004-05-15 devnull 	| COL		{ $$ = startcol(COL); }
121 5cedca1b 2004-05-15 devnull 	;
122 5cedca1b 2004-05-15 devnull 
123 5cedca1b 2004-05-15 devnull list	: eqn			{ lp[ct++] = $1; }
124 5cedca1b 2004-05-15 devnull 	| list ABOVE eqn	{ lp[ct++] = $3; }
125 5cedca1b 2004-05-15 devnull 	;
126 5cedca1b 2004-05-15 devnull 
127 5cedca1b 2004-05-15 devnull size	: SIZE text	{ $$ = ps; setsize((char *) $2); }
128 5cedca1b 2004-05-15 devnull 	;
129 5cedca1b 2004-05-15 devnull 
130 5cedca1b 2004-05-15 devnull font    : ROMAN         { static char R[]="R"; setfont(R); }
131 5cedca1b 2004-05-15 devnull         | ITALIC        { static char I[]="I"; setfont(I); }
132 5cedca1b 2004-05-15 devnull         | BOLD          { static char B[]="B"; setfont(B); }
133 5cedca1b 2004-05-15 devnull         | FONT text     { setfont((char *)$2); }
134 5cedca1b 2004-05-15 devnull         ;
135 5cedca1b 2004-05-15 devnull 
136 5cedca1b 2004-05-15 devnull text	: CONTIG
137 5cedca1b 2004-05-15 devnull 	| QTEXT
138 5cedca1b 2004-05-15 devnull 	;
139 5cedca1b 2004-05-15 devnull 
140 5cedca1b 2004-05-15 devnull %%