1 17e5fb89 2004-04-21 devnull %{
  2 17e5fb89 2004-04-21 devnull 	#include	<u.h>
  3 17e5fb89 2004-04-21 devnull 	#include	<libc.h>
  4 17e5fb89 2004-04-21 devnull 	#include	<bio.h>
  5 17e5fb89 2004-04-21 devnull 
  6 17e5fb89 2004-04-21 devnull 	#define	bsp_max	5000
  7 17e5fb89 2004-04-21 devnull 
  8 17e5fb89 2004-04-21 devnull 	Biobuf	*in;
  9 e2713e92 2004-04-24 devnull 	#define stdin bstdin
 10 e2713e92 2004-04-24 devnull 	#define stdout bstdout
 11 17e5fb89 2004-04-21 devnull 	Biobuf	stdin;
 12 17e5fb89 2004-04-21 devnull 	Biobuf	stdout;
 13 17e5fb89 2004-04-21 devnull 	char	cary[1000];
 14 17e5fb89 2004-04-21 devnull 	char*	cp = { cary };
 15 17e5fb89 2004-04-21 devnull 	char	string[1000];
 16 17e5fb89 2004-04-21 devnull 	char*	str = { string };
 17 17e5fb89 2004-04-21 devnull 	int	crs = 128;
 18 17e5fb89 2004-04-21 devnull 	int	rcrs = 128;	/* reset crs */
 19 17e5fb89 2004-04-21 devnull 	int	bindx = 0;
 20 17e5fb89 2004-04-21 devnull 	int	lev = 0;
 21 17e5fb89 2004-04-21 devnull 	int	ln;
 22 17e5fb89 2004-04-21 devnull 	int*	ttp;
 23 17e5fb89 2004-04-21 devnull 	char*	ss = "";
 24 17e5fb89 2004-04-21 devnull 	int	bstack[10] = { 0 };
 25 17e5fb89 2004-04-21 devnull 	char*	numb[15] =
 26 17e5fb89 2004-04-21 devnull 	{
 27 17e5fb89 2004-04-21 devnull 		" 0", " 1", " 2", " 3", " 4", " 5",
 28 17e5fb89 2004-04-21 devnull 		" 6", " 7", " 8", " 9", " 10", " 11",
 29 17e5fb89 2004-04-21 devnull 		" 12", " 13", " 14"
 30 17e5fb89 2004-04-21 devnull 	};
 31 17e5fb89 2004-04-21 devnull 	int*	pre;
 32 17e5fb89 2004-04-21 devnull 	int*	post;
 33 17e5fb89 2004-04-21 devnull 
 34 17e5fb89 2004-04-21 devnull 	long	peekc = -1;
 35 17e5fb89 2004-04-21 devnull 	int	sargc;
 36 17e5fb89 2004-04-21 devnull 	int	ifile;
 37 17e5fb89 2004-04-21 devnull 	char**	sargv;
 38 17e5fb89 2004-04-21 devnull 
 39 17e5fb89 2004-04-21 devnull 	char	*funtab[] =
 40 17e5fb89 2004-04-21 devnull 	{
 41 17e5fb89 2004-04-21 devnull 		"<1>","<2>","<3>","<4>","<5>",
 42 17e5fb89 2004-04-21 devnull 		"<6>","<7>","<8>","<9>","<10>",
 43 17e5fb89 2004-04-21 devnull 		"<11>","<12>","<13>","<14>","<15>",
 44 17e5fb89 2004-04-21 devnull 		"<16>","<17>","<18>","<19>","<20>",
 45 17e5fb89 2004-04-21 devnull 		"<21>","<22>","<23>","<24>","<25>",
 46 17e5fb89 2004-04-21 devnull 		"<26>"
 47 17e5fb89 2004-04-21 devnull 	};
 48 17e5fb89 2004-04-21 devnull 	char	*atab[] =
 49 17e5fb89 2004-04-21 devnull 	{
 50 17e5fb89 2004-04-21 devnull 		"<221>","<222>","<223>","<224>","<225>",
 51 17e5fb89 2004-04-21 devnull 		"<226>","<227>","<228>","<229>","<230>",
 52 17e5fb89 2004-04-21 devnull 		"<231>","<232>","<233>","<234>","<235>",
 53 17e5fb89 2004-04-21 devnull 		"<236>","<237>","<238>","<239>","<240>",
 54 17e5fb89 2004-04-21 devnull 		"<241>","<242>","<243>","<244>","<245>",
 55 17e5fb89 2004-04-21 devnull 		"<246>"
 56 17e5fb89 2004-04-21 devnull 	};
 57 17e5fb89 2004-04-21 devnull 	char*	letr[26] =
 58 17e5fb89 2004-04-21 devnull 	{
 59 17e5fb89 2004-04-21 devnull 		"a","b","c","d","e","f","g","h","i","j",
 60 17e5fb89 2004-04-21 devnull 		"k","l","m","n","o","p","q","r","s","t",
 61 17e5fb89 2004-04-21 devnull 		"u","v","w","x","y","z"
 62 17e5fb89 2004-04-21 devnull 	};
 63 17e5fb89 2004-04-21 devnull 	char*	dot = { "." };
 64 17e5fb89 2004-04-21 devnull 	int	bspace[bsp_max];
 65 17e5fb89 2004-04-21 devnull 	int*	bsp_nxt = { bspace };
 66 17e5fb89 2004-04-21 devnull 	int	bdebug = 0;
 67 17e5fb89 2004-04-21 devnull 	int	lflag;
 68 17e5fb89 2004-04-21 devnull 	int	cflag;
 69 17e5fb89 2004-04-21 devnull 	int	sflag;
 70 17e5fb89 2004-04-21 devnull 
 71 17e5fb89 2004-04-21 devnull 	int*	bundle(int, ...);
 72 17e5fb89 2004-04-21 devnull 	void	conout(int*, char*);
 73 17e5fb89 2004-04-21 devnull 	int	cpeek(int, int, int);
 74 17e5fb89 2004-04-21 devnull 	int	getch(void);
 75 17e5fb89 2004-04-21 devnull 	int*	geta(char*);
 76 17e5fb89 2004-04-21 devnull 	int*	getf(char*);
 77 17e5fb89 2004-04-21 devnull 	void	getout(void);
 78 17e5fb89 2004-04-21 devnull 	void	output(int*);
 79 17e5fb89 2004-04-21 devnull 	void	pp(char*);
 80 17e5fb89 2004-04-21 devnull 	void	routput(int*);
 81 17e5fb89 2004-04-21 devnull 	void	tp(char*);
 82 17e5fb89 2004-04-21 devnull 	void	yyerror(char*, ...);
 83 17e5fb89 2004-04-21 devnull 	int	yyparse(void);
 84 17e5fb89 2004-04-21 devnull 
 85 17e5fb89 2004-04-21 devnull 	typedef	void*	pointer;
 86 17e5fb89 2004-04-21 devnull /*	#pragma	varargck	type	"lx"	pointer */
 87 17e5fb89 2004-04-21 devnull 
 88 17e5fb89 2004-04-21 devnull %}
 89 17e5fb89 2004-04-21 devnull %union
 90 17e5fb89 2004-04-21 devnull {
 91 17e5fb89 2004-04-21 devnull 	int*	iptr;
 92 17e5fb89 2004-04-21 devnull 	char*	cptr;
 93 17e5fb89 2004-04-21 devnull 	int	cc;
 94 17e5fb89 2004-04-21 devnull }
 95 17e5fb89 2004-04-21 devnull 
 96 17e5fb89 2004-04-21 devnull %type	<iptr>	pstat stat stat1 def slist dlets e ase nase
 97 17e5fb89 2004-04-21 devnull %type	<iptr>	slist re fprefix cargs eora cons constant lora
 98 17e5fb89 2004-04-21 devnull %type	<cptr>	crs
 99 17e5fb89 2004-04-21 devnull 
100 17e5fb89 2004-04-21 devnull %token	<cptr>	LETTER EQOP _AUTO DOT
101 17e5fb89 2004-04-21 devnull %token	<cc>	DIGIT SQRT LENGTH _IF FFF EQ
102 17e5fb89 2004-04-21 devnull %token	<cc>	_PRINT _WHILE _FOR NE LE GE INCR DECR
103 17e5fb89 2004-04-21 devnull %token	<cc>	_RETURN _BREAK _DEFINE BASE OBASE SCALE
104 17e5fb89 2004-04-21 devnull %token	<cc>	QSTR ERROR
105 17e5fb89 2004-04-21 devnull 
106 17e5fb89 2004-04-21 devnull %right	'=' EQOP
107 17e5fb89 2004-04-21 devnull %left	'+' '-'
108 17e5fb89 2004-04-21 devnull %left	'*' '/' '%'
109 17e5fb89 2004-04-21 devnull %right	'^'
110 17e5fb89 2004-04-21 devnull %left	UMINUS
111 17e5fb89 2004-04-21 devnull 
112 17e5fb89 2004-04-21 devnull %%
113 17e5fb89 2004-04-21 devnull start:
114 17e5fb89 2004-04-21 devnull 	start stuff
115 17e5fb89 2004-04-21 devnull |	stuff
116 17e5fb89 2004-04-21 devnull 
117 17e5fb89 2004-04-21 devnull stuff:
118 17e5fb89 2004-04-21 devnull 	pstat tail
119 17e5fb89 2004-04-21 devnull 	{
120 17e5fb89 2004-04-21 devnull 		output($1);
121 17e5fb89 2004-04-21 devnull 	}
122 17e5fb89 2004-04-21 devnull |	def dargs ')' '{' dlist slist '}'
123 17e5fb89 2004-04-21 devnull 	{
124 17e5fb89 2004-04-21 devnull 		ttp = bundle(6, pre, $6, post , "0", numb[lev], "Q");
125 17e5fb89 2004-04-21 devnull 		conout(ttp, (char*)$1);
126 17e5fb89 2004-04-21 devnull 		rcrs = crs;
127 17e5fb89 2004-04-21 devnull 		output((int*)"");	/* this is horse puk!! */
128 17e5fb89 2004-04-21 devnull 		lev = bindx = 0;
129 17e5fb89 2004-04-21 devnull 	}
130 17e5fb89 2004-04-21 devnull 
131 17e5fb89 2004-04-21 devnull dlist:
132 17e5fb89 2004-04-21 devnull 	tail
133 17e5fb89 2004-04-21 devnull |	dlist _AUTO dlets tail
134 17e5fb89 2004-04-21 devnull 
135 17e5fb89 2004-04-21 devnull stat:
136 17e5fb89 2004-04-21 devnull 	stat1
137 17e5fb89 2004-04-21 devnull |	nase
138 17e5fb89 2004-04-21 devnull 	{
139 17e5fb89 2004-04-21 devnull 		if(sflag)
140 17e5fb89 2004-04-21 devnull 			bundle(2, $1, "s.");
141 17e5fb89 2004-04-21 devnull 	}
142 17e5fb89 2004-04-21 devnull 
143 17e5fb89 2004-04-21 devnull pstat:
144 17e5fb89 2004-04-21 devnull 	stat1
145 17e5fb89 2004-04-21 devnull 	{
146 17e5fb89 2004-04-21 devnull 		if(sflag)
147 17e5fb89 2004-04-21 devnull 			bundle(2, $1, "0");
148 17e5fb89 2004-04-21 devnull 	}
149 17e5fb89 2004-04-21 devnull |	nase
150 17e5fb89 2004-04-21 devnull 	{
151 17e5fb89 2004-04-21 devnull 		if(!sflag)
152 17e5fb89 2004-04-21 devnull 			bundle(2, $1, "ps.");
153 17e5fb89 2004-04-21 devnull 	}
154 17e5fb89 2004-04-21 devnull 
155 17e5fb89 2004-04-21 devnull stat1:
156 17e5fb89 2004-04-21 devnull 	{
157 17e5fb89 2004-04-21 devnull 		bundle(1, "");
158 17e5fb89 2004-04-21 devnull 	}
159 17e5fb89 2004-04-21 devnull |	ase
160 17e5fb89 2004-04-21 devnull 	{
161 17e5fb89 2004-04-21 devnull 		bundle(2, $1, "s.");
162 17e5fb89 2004-04-21 devnull 	}
163 17e5fb89 2004-04-21 devnull |	SCALE '=' e
164 17e5fb89 2004-04-21 devnull 	{
165 17e5fb89 2004-04-21 devnull 		bundle(2, $3, "k");
166 17e5fb89 2004-04-21 devnull 	}
167 17e5fb89 2004-04-21 devnull |	SCALE EQOP e
168 17e5fb89 2004-04-21 devnull 	{
169 17e5fb89 2004-04-21 devnull 		bundle(4, "K", $3, $2, "k");
170 17e5fb89 2004-04-21 devnull 	}
171 17e5fb89 2004-04-21 devnull |	BASE '=' e
172 17e5fb89 2004-04-21 devnull 	{
173 17e5fb89 2004-04-21 devnull 		bundle(2, $3, "i");
174 17e5fb89 2004-04-21 devnull 	}
175 17e5fb89 2004-04-21 devnull |	BASE EQOP e
176 17e5fb89 2004-04-21 devnull 	{
177 17e5fb89 2004-04-21 devnull 		bundle(4, "I", $3, $2, "i");
178 17e5fb89 2004-04-21 devnull 	}
179 17e5fb89 2004-04-21 devnull |	OBASE '=' e
180 17e5fb89 2004-04-21 devnull 	{
181 17e5fb89 2004-04-21 devnull 		bundle(2, $3, "o");
182 17e5fb89 2004-04-21 devnull 	}
183 17e5fb89 2004-04-21 devnull |	OBASE EQOP e
184 17e5fb89 2004-04-21 devnull 	{
185 17e5fb89 2004-04-21 devnull 		bundle(4, "O", $3, $2, "o");
186 17e5fb89 2004-04-21 devnull 	}
187 17e5fb89 2004-04-21 devnull |	QSTR
188 17e5fb89 2004-04-21 devnull 	{
189 17e5fb89 2004-04-21 devnull 		bundle(3, "[", $1, "]P");
190 17e5fb89 2004-04-21 devnull 	}
191 17e5fb89 2004-04-21 devnull |	_BREAK
192 17e5fb89 2004-04-21 devnull 	{
193 17e5fb89 2004-04-21 devnull 		bundle(2, numb[lev-bstack[bindx-1]], "Q");
194 17e5fb89 2004-04-21 devnull 	}
195 17e5fb89 2004-04-21 devnull |	_PRINT e
196 17e5fb89 2004-04-21 devnull 	{
197 17e5fb89 2004-04-21 devnull 		bundle(2, $2, "ps.");
198 17e5fb89 2004-04-21 devnull 	}
199 17e5fb89 2004-04-21 devnull |	_RETURN e
200 17e5fb89 2004-04-21 devnull 	{
201 17e5fb89 2004-04-21 devnull 		bundle(4, $2, post, numb[lev], "Q");
202 17e5fb89 2004-04-21 devnull 	}
203 17e5fb89 2004-04-21 devnull |	_RETURN
204 17e5fb89 2004-04-21 devnull 	{
205 17e5fb89 2004-04-21 devnull 		bundle(4, "0", post, numb[lev], "Q");
206 17e5fb89 2004-04-21 devnull 	}
207 17e5fb89 2004-04-21 devnull |	'{' slist '}'
208 17e5fb89 2004-04-21 devnull 	{
209 17e5fb89 2004-04-21 devnull 		$$ = $2;
210 17e5fb89 2004-04-21 devnull 	}
211 17e5fb89 2004-04-21 devnull |	FFF
212 17e5fb89 2004-04-21 devnull 	{
213 17e5fb89 2004-04-21 devnull 		bundle(1, "fY");
214 17e5fb89 2004-04-21 devnull 	}
215 17e5fb89 2004-04-21 devnull |	_IF crs BLEV '(' re ')' stat
216 17e5fb89 2004-04-21 devnull 	{
217 17e5fb89 2004-04-21 devnull 		conout($7, $2);
218 17e5fb89 2004-04-21 devnull 		bundle(3, $5, $2, " ");
219 17e5fb89 2004-04-21 devnull 	}
220 17e5fb89 2004-04-21 devnull |	_WHILE crs '(' re ')' stat BLEV
221 17e5fb89 2004-04-21 devnull 	{
222 17e5fb89 2004-04-21 devnull 		bundle(3, $6, $4, $2);
223 17e5fb89 2004-04-21 devnull 		conout($$, $2);
224 17e5fb89 2004-04-21 devnull 		bundle(3, $4, $2, " ");
225 17e5fb89 2004-04-21 devnull 	}
226 17e5fb89 2004-04-21 devnull |	fprefix crs re ';' e ')' stat BLEV
227 17e5fb89 2004-04-21 devnull 	{
228 17e5fb89 2004-04-21 devnull 		bundle(5, $7, $5, "s.", $3, $2);
229 17e5fb89 2004-04-21 devnull 		conout($$, $2);
230 17e5fb89 2004-04-21 devnull 		bundle(5, $1, "s.", $3, $2, " ");
231 17e5fb89 2004-04-21 devnull 	}
232 17e5fb89 2004-04-21 devnull |	'~' LETTER '=' e
233 17e5fb89 2004-04-21 devnull 	{
234 17e5fb89 2004-04-21 devnull 		bundle(3, $4, "S", $2);
235 17e5fb89 2004-04-21 devnull 	}
236 17e5fb89 2004-04-21 devnull 
237 17e5fb89 2004-04-21 devnull fprefix:
238 17e5fb89 2004-04-21 devnull 	_FOR '(' e ';'
239 17e5fb89 2004-04-21 devnull 	{
240 17e5fb89 2004-04-21 devnull 		$$ = $3;
241 17e5fb89 2004-04-21 devnull 	}
242 17e5fb89 2004-04-21 devnull 
243 17e5fb89 2004-04-21 devnull BLEV:
244 17e5fb89 2004-04-21 devnull 	=
245 17e5fb89 2004-04-21 devnull 	{
246 17e5fb89 2004-04-21 devnull 		--bindx;
247 17e5fb89 2004-04-21 devnull 	}
248 17e5fb89 2004-04-21 devnull 
249 17e5fb89 2004-04-21 devnull slist:
250 17e5fb89 2004-04-21 devnull 	stat
251 17e5fb89 2004-04-21 devnull |	slist tail stat
252 17e5fb89 2004-04-21 devnull 	{
253 17e5fb89 2004-04-21 devnull 		bundle(2, $1, $3);
254 17e5fb89 2004-04-21 devnull 	}
255 17e5fb89 2004-04-21 devnull 
256 17e5fb89 2004-04-21 devnull tail:
257 17e5fb89 2004-04-21 devnull 	'\n'
258 17e5fb89 2004-04-21 devnull 	{
259 17e5fb89 2004-04-21 devnull 		ln++;
260 17e5fb89 2004-04-21 devnull 	}
261 17e5fb89 2004-04-21 devnull |	';'
262 17e5fb89 2004-04-21 devnull 
263 17e5fb89 2004-04-21 devnull re:
264 17e5fb89 2004-04-21 devnull 	e EQ e
265 17e5fb89 2004-04-21 devnull 	{
266 17e5fb89 2004-04-21 devnull 		$$ = bundle(3, $1, $3, "=");
267 17e5fb89 2004-04-21 devnull 	}
268 17e5fb89 2004-04-21 devnull |	e '<' e
269 17e5fb89 2004-04-21 devnull 	{
270 17e5fb89 2004-04-21 devnull 		bundle(3, $1, $3, ">");
271 17e5fb89 2004-04-21 devnull 	}
272 17e5fb89 2004-04-21 devnull |	e '>' e
273 17e5fb89 2004-04-21 devnull 	{
274 17e5fb89 2004-04-21 devnull 		bundle(3, $1, $3, "<");
275 17e5fb89 2004-04-21 devnull 	}
276 17e5fb89 2004-04-21 devnull |	e NE e
277 17e5fb89 2004-04-21 devnull 	{
278 17e5fb89 2004-04-21 devnull 		bundle(3, $1, $3, "!=");
279 17e5fb89 2004-04-21 devnull 	}
280 17e5fb89 2004-04-21 devnull |	e GE e
281 17e5fb89 2004-04-21 devnull 	{
282 17e5fb89 2004-04-21 devnull 		bundle(3, $1, $3, "!>");
283 17e5fb89 2004-04-21 devnull 	}
284 17e5fb89 2004-04-21 devnull |	e LE e
285 17e5fb89 2004-04-21 devnull 	{
286 17e5fb89 2004-04-21 devnull 		bundle(3, $1, $3, "!<");
287 17e5fb89 2004-04-21 devnull 	}
288 17e5fb89 2004-04-21 devnull |	e
289 17e5fb89 2004-04-21 devnull 	{
290 17e5fb89 2004-04-21 devnull 		bundle(2, $1, " 0!=");
291 17e5fb89 2004-04-21 devnull 	}
292 17e5fb89 2004-04-21 devnull 
293 17e5fb89 2004-04-21 devnull nase:
294 17e5fb89 2004-04-21 devnull 	'(' e ')'
295 17e5fb89 2004-04-21 devnull 	{
296 17e5fb89 2004-04-21 devnull 		$$ = $2;
297 17e5fb89 2004-04-21 devnull 	}
298 17e5fb89 2004-04-21 devnull |	cons
299 17e5fb89 2004-04-21 devnull 	{
300 17e5fb89 2004-04-21 devnull 		bundle(3, " ", $1, " ");
301 17e5fb89 2004-04-21 devnull 	}
302 17e5fb89 2004-04-21 devnull |	DOT cons
303 17e5fb89 2004-04-21 devnull 	{
304 17e5fb89 2004-04-21 devnull 		bundle(3, " .", $2, " ");
305 17e5fb89 2004-04-21 devnull 	}
306 17e5fb89 2004-04-21 devnull |	cons DOT cons
307 17e5fb89 2004-04-21 devnull 	{
308 17e5fb89 2004-04-21 devnull 		bundle(5, " ", $1, ".", $3, " ");
309 17e5fb89 2004-04-21 devnull 	}
310 17e5fb89 2004-04-21 devnull |	cons DOT
311 17e5fb89 2004-04-21 devnull 	{
312 17e5fb89 2004-04-21 devnull 		bundle(4, " ", $1, ".", " ");
313 17e5fb89 2004-04-21 devnull 	}
314 17e5fb89 2004-04-21 devnull |	DOT
315 17e5fb89 2004-04-21 devnull 	{
316 17e5fb89 2004-04-21 devnull 		$<cptr>$ = "l.";
317 17e5fb89 2004-04-21 devnull 	}
318 17e5fb89 2004-04-21 devnull |	LETTER '[' e ']'
319 17e5fb89 2004-04-21 devnull 	{
320 17e5fb89 2004-04-21 devnull 		bundle(3, $3, ";", geta($1));
321 17e5fb89 2004-04-21 devnull 	}
322 17e5fb89 2004-04-21 devnull |	LETTER INCR
323 17e5fb89 2004-04-21 devnull 	{
324 17e5fb89 2004-04-21 devnull 		bundle(4, "l", $1, "d1+s", $1);
325 17e5fb89 2004-04-21 devnull 	}
326 17e5fb89 2004-04-21 devnull |	INCR LETTER
327 17e5fb89 2004-04-21 devnull 	{
328 17e5fb89 2004-04-21 devnull 		bundle(4, "l", $2, "1+ds", $2);
329 17e5fb89 2004-04-21 devnull 	}
330 17e5fb89 2004-04-21 devnull |	DECR LETTER
331 17e5fb89 2004-04-21 devnull 	{
332 17e5fb89 2004-04-21 devnull 		bundle(4, "l", $2, "1-ds", $2);
333 17e5fb89 2004-04-21 devnull 	}
334 17e5fb89 2004-04-21 devnull |	LETTER DECR
335 17e5fb89 2004-04-21 devnull 	{
336 17e5fb89 2004-04-21 devnull 		bundle(4, "l", $1, "d1-s", $1);
337 17e5fb89 2004-04-21 devnull 	}
338 17e5fb89 2004-04-21 devnull |	LETTER '[' e ']' INCR
339 17e5fb89 2004-04-21 devnull 	{
340 17e5fb89 2004-04-21 devnull 		bundle(7, $3, ";", geta($1), "d1+" ,$3, ":" ,geta($1));
341 17e5fb89 2004-04-21 devnull 	}
342 17e5fb89 2004-04-21 devnull |	INCR LETTER '[' e ']'
343 17e5fb89 2004-04-21 devnull 	{
344 17e5fb89 2004-04-21 devnull 		bundle(7, $4, ";", geta($2), "1+d", $4, ":", geta($2));
345 17e5fb89 2004-04-21 devnull 	}
346 17e5fb89 2004-04-21 devnull |	LETTER '[' e ']' DECR
347 17e5fb89 2004-04-21 devnull 	{
348 17e5fb89 2004-04-21 devnull 		bundle(7, $3, ";", geta($1), "d1-", $3, ":", geta($1));
349 17e5fb89 2004-04-21 devnull 	}
350 17e5fb89 2004-04-21 devnull |	DECR LETTER '[' e ']'
351 17e5fb89 2004-04-21 devnull 	{
352 17e5fb89 2004-04-21 devnull 		bundle(7, $4, ";", geta($2), "1-d", $4, ":" ,geta($2));
353 17e5fb89 2004-04-21 devnull 	}
354 17e5fb89 2004-04-21 devnull |	SCALE INCR
355 17e5fb89 2004-04-21 devnull 	{
356 17e5fb89 2004-04-21 devnull 		bundle(1, "Kd1+k");
357 17e5fb89 2004-04-21 devnull 	}
358 17e5fb89 2004-04-21 devnull |	INCR SCALE
359 17e5fb89 2004-04-21 devnull 	{
360 17e5fb89 2004-04-21 devnull 		bundle(1, "K1+dk");
361 17e5fb89 2004-04-21 devnull 	}
362 17e5fb89 2004-04-21 devnull |	SCALE DECR
363 17e5fb89 2004-04-21 devnull 	{
364 17e5fb89 2004-04-21 devnull 		bundle(1, "Kd1-k");
365 17e5fb89 2004-04-21 devnull 	}
366 17e5fb89 2004-04-21 devnull |	DECR SCALE
367 17e5fb89 2004-04-21 devnull 	{
368 17e5fb89 2004-04-21 devnull 		bundle(1, "K1-dk");
369 17e5fb89 2004-04-21 devnull 	}
370 17e5fb89 2004-04-21 devnull |	BASE INCR
371 17e5fb89 2004-04-21 devnull 	{
372 17e5fb89 2004-04-21 devnull 		bundle(1, "Id1+i");
373 17e5fb89 2004-04-21 devnull 	}
374 17e5fb89 2004-04-21 devnull |	INCR BASE
375 17e5fb89 2004-04-21 devnull 	{
376 17e5fb89 2004-04-21 devnull 		bundle(1, "I1+di");
377 17e5fb89 2004-04-21 devnull 	}
378 17e5fb89 2004-04-21 devnull |	BASE DECR
379 17e5fb89 2004-04-21 devnull 	{
380 17e5fb89 2004-04-21 devnull 		bundle(1, "Id1-i");
381 17e5fb89 2004-04-21 devnull 	}
382 17e5fb89 2004-04-21 devnull |	DECR BASE
383 17e5fb89 2004-04-21 devnull 	{
384 17e5fb89 2004-04-21 devnull 		bundle(1, "I1-di");
385 17e5fb89 2004-04-21 devnull 	}
386 17e5fb89 2004-04-21 devnull |	OBASE INCR
387 17e5fb89 2004-04-21 devnull 	{
388 17e5fb89 2004-04-21 devnull 		bundle(1, "Od1+o");
389 17e5fb89 2004-04-21 devnull 	}
390 17e5fb89 2004-04-21 devnull |	INCR OBASE
391 17e5fb89 2004-04-21 devnull 	{
392 17e5fb89 2004-04-21 devnull 		bundle(1, "O1+do");
393 17e5fb89 2004-04-21 devnull 	}
394 17e5fb89 2004-04-21 devnull |	OBASE DECR
395 17e5fb89 2004-04-21 devnull 	{
396 17e5fb89 2004-04-21 devnull 		bundle(1, "Od1-o");
397 17e5fb89 2004-04-21 devnull 	}
398 17e5fb89 2004-04-21 devnull |	DECR OBASE
399 17e5fb89 2004-04-21 devnull 	{
400 17e5fb89 2004-04-21 devnull 		bundle(1, "O1-do");
401 17e5fb89 2004-04-21 devnull 	}
402 17e5fb89 2004-04-21 devnull |	LETTER '(' cargs ')'
403 17e5fb89 2004-04-21 devnull 	{
404 17e5fb89 2004-04-21 devnull 		bundle(4, $3, "l", getf($1), "x");
405 17e5fb89 2004-04-21 devnull 	}
406 17e5fb89 2004-04-21 devnull |	LETTER '(' ')'
407 17e5fb89 2004-04-21 devnull 	{
408 17e5fb89 2004-04-21 devnull 		bundle(3, "l", getf($1), "x");
409 17e5fb89 2004-04-21 devnull 	}
410 17e5fb89 2004-04-21 devnull |	LETTER = {
411 17e5fb89 2004-04-21 devnull 		bundle(2, "l", $1);
412 17e5fb89 2004-04-21 devnull 	}
413 17e5fb89 2004-04-21 devnull |	LENGTH '(' e ')'
414 17e5fb89 2004-04-21 devnull 	{
415 17e5fb89 2004-04-21 devnull 		bundle(2, $3, "Z");
416 17e5fb89 2004-04-21 devnull 	}
417 17e5fb89 2004-04-21 devnull |	SCALE '(' e ')'
418 17e5fb89 2004-04-21 devnull 	{
419 17e5fb89 2004-04-21 devnull 		bundle(2, $3, "X");
420 17e5fb89 2004-04-21 devnull 	}
421 17e5fb89 2004-04-21 devnull |	'?'
422 17e5fb89 2004-04-21 devnull 	{
423 17e5fb89 2004-04-21 devnull 		bundle(1, "?");
424 17e5fb89 2004-04-21 devnull 	}
425 17e5fb89 2004-04-21 devnull |	SQRT '(' e ')'
426 17e5fb89 2004-04-21 devnull 	{
427 17e5fb89 2004-04-21 devnull 		bundle(2, $3, "v");
428 17e5fb89 2004-04-21 devnull 	}
429 17e5fb89 2004-04-21 devnull |	'~' LETTER
430 17e5fb89 2004-04-21 devnull 	{
431 17e5fb89 2004-04-21 devnull 		bundle(2, "L", $2);
432 17e5fb89 2004-04-21 devnull 	}
433 17e5fb89 2004-04-21 devnull |	SCALE
434 17e5fb89 2004-04-21 devnull 	{
435 17e5fb89 2004-04-21 devnull 		bundle(1, "K");
436 17e5fb89 2004-04-21 devnull 	}
437 17e5fb89 2004-04-21 devnull |	BASE
438 17e5fb89 2004-04-21 devnull 	{
439 17e5fb89 2004-04-21 devnull 		bundle(1, "I");
440 17e5fb89 2004-04-21 devnull 	}
441 17e5fb89 2004-04-21 devnull |	OBASE
442 17e5fb89 2004-04-21 devnull 	{
443 17e5fb89 2004-04-21 devnull 		bundle(1, "O");
444 17e5fb89 2004-04-21 devnull 	}
445 17e5fb89 2004-04-21 devnull |	'-' e
446 17e5fb89 2004-04-21 devnull 	{
447 17e5fb89 2004-04-21 devnull 		bundle(3, " 0", $2, "-");
448 17e5fb89 2004-04-21 devnull 	}
449 17e5fb89 2004-04-21 devnull |	e '+' e
450 17e5fb89 2004-04-21 devnull 	{
451 17e5fb89 2004-04-21 devnull 		bundle(3, $1, $3, "+");
452 17e5fb89 2004-04-21 devnull 	}
453 17e5fb89 2004-04-21 devnull |	e '-' e
454 17e5fb89 2004-04-21 devnull 	{
455 17e5fb89 2004-04-21 devnull 		bundle(3, $1, $3, "-");
456 17e5fb89 2004-04-21 devnull 	}
457 17e5fb89 2004-04-21 devnull |	e '*' e
458 17e5fb89 2004-04-21 devnull 	{
459 17e5fb89 2004-04-21 devnull 		bundle(3, $1, $3, "*");
460 17e5fb89 2004-04-21 devnull 	}
461 17e5fb89 2004-04-21 devnull |	e '/' e
462 17e5fb89 2004-04-21 devnull 	{
463 17e5fb89 2004-04-21 devnull 		bundle(3, $1, $3, "/");
464 17e5fb89 2004-04-21 devnull 	}
465 17e5fb89 2004-04-21 devnull |	e '%' e
466 17e5fb89 2004-04-21 devnull 	{
467 17e5fb89 2004-04-21 devnull 		bundle(3, $1, $3, "%%");
468 17e5fb89 2004-04-21 devnull 	}
469 17e5fb89 2004-04-21 devnull |	e '^' e
470 17e5fb89 2004-04-21 devnull 	{
471 17e5fb89 2004-04-21 devnull 		bundle(3, $1, $3, "^");
472 17e5fb89 2004-04-21 devnull 	}
473 17e5fb89 2004-04-21 devnull 
474 17e5fb89 2004-04-21 devnull ase:
475 17e5fb89 2004-04-21 devnull 	LETTER '=' e
476 17e5fb89 2004-04-21 devnull 	{
477 17e5fb89 2004-04-21 devnull 		bundle(3, $3, "ds", $1);
478 17e5fb89 2004-04-21 devnull 	}
479 17e5fb89 2004-04-21 devnull |	LETTER '[' e ']' '=' e
480 17e5fb89 2004-04-21 devnull 	{
481 17e5fb89 2004-04-21 devnull 		bundle(5, $6, "d", $3, ":", geta($1));
482 17e5fb89 2004-04-21 devnull 	}
483 17e5fb89 2004-04-21 devnull |	LETTER EQOP e
484 17e5fb89 2004-04-21 devnull 	{
485 17e5fb89 2004-04-21 devnull 		bundle(6, "l", $1, $3, $2, "ds", $1);
486 17e5fb89 2004-04-21 devnull 	}
487 17e5fb89 2004-04-21 devnull |	LETTER '[' e ']' EQOP e
488 17e5fb89 2004-04-21 devnull 	{
489 17e5fb89 2004-04-21 devnull 		bundle(9, $3, ";", geta($1), $6, $5, "d", $3, ":", geta($1));
490 17e5fb89 2004-04-21 devnull 	}
491 17e5fb89 2004-04-21 devnull 
492 17e5fb89 2004-04-21 devnull e:
493 17e5fb89 2004-04-21 devnull 	ase
494 17e5fb89 2004-04-21 devnull |	nase
495 17e5fb89 2004-04-21 devnull 
496 17e5fb89 2004-04-21 devnull cargs:
497 17e5fb89 2004-04-21 devnull 	eora
498 17e5fb89 2004-04-21 devnull |	cargs ',' eora
499 17e5fb89 2004-04-21 devnull 	{
500 17e5fb89 2004-04-21 devnull 		bundle(2, $1, $3);
501 17e5fb89 2004-04-21 devnull 	}
502 17e5fb89 2004-04-21 devnull 
503 17e5fb89 2004-04-21 devnull eora:
504 17e5fb89 2004-04-21 devnull 	e
505 17e5fb89 2004-04-21 devnull |	LETTER '[' ']'
506 17e5fb89 2004-04-21 devnull 	{
507 17e5fb89 2004-04-21 devnull 		bundle(2, "l", geta($1));
508 17e5fb89 2004-04-21 devnull 	}
509 17e5fb89 2004-04-21 devnull 
510 17e5fb89 2004-04-21 devnull cons:
511 17e5fb89 2004-04-21 devnull 	constant
512 17e5fb89 2004-04-21 devnull 	{
513 17e5fb89 2004-04-21 devnull 		*cp++ = 0;
514 17e5fb89 2004-04-21 devnull 	}
515 17e5fb89 2004-04-21 devnull 
516 17e5fb89 2004-04-21 devnull constant:
517 17e5fb89 2004-04-21 devnull 	'_'
518 17e5fb89 2004-04-21 devnull 	{
519 17e5fb89 2004-04-21 devnull 		$<cptr>$ = cp;
520 17e5fb89 2004-04-21 devnull 		*cp++ = '_';
521 17e5fb89 2004-04-21 devnull 	}
522 17e5fb89 2004-04-21 devnull |	DIGIT
523 17e5fb89 2004-04-21 devnull 	{
524 17e5fb89 2004-04-21 devnull 		$<cptr>$ = cp;
525 17e5fb89 2004-04-21 devnull 		*cp++ = $1;
526 17e5fb89 2004-04-21 devnull 	}
527 17e5fb89 2004-04-21 devnull |	constant DIGIT
528 17e5fb89 2004-04-21 devnull 	{
529 17e5fb89 2004-04-21 devnull 		*cp++ = $2;
530 17e5fb89 2004-04-21 devnull 	}
531 17e5fb89 2004-04-21 devnull 
532 17e5fb89 2004-04-21 devnull crs:
533 17e5fb89 2004-04-21 devnull 	=
534 17e5fb89 2004-04-21 devnull 	{
535 17e5fb89 2004-04-21 devnull 		$$ = cp;
536 17e5fb89 2004-04-21 devnull 		*cp++ = '<';
537 17e5fb89 2004-04-21 devnull 		*cp++ = crs/100+'0';
538 17e5fb89 2004-04-21 devnull 		*cp++ = (crs%100)/10+'0';
539 17e5fb89 2004-04-21 devnull 		*cp++ = crs%10+'0';
540 17e5fb89 2004-04-21 devnull 		*cp++ = '>';
541 17e5fb89 2004-04-21 devnull 		*cp++ = '\0';
542 17e5fb89 2004-04-21 devnull 		if(crs++ >= 220) {
543 17e5fb89 2004-04-21 devnull 			yyerror("program too big");
544 17e5fb89 2004-04-21 devnull 			getout();
545 17e5fb89 2004-04-21 devnull 		}
546 17e5fb89 2004-04-21 devnull 		bstack[bindx++] = lev++;
547 17e5fb89 2004-04-21 devnull 	}
548 17e5fb89 2004-04-21 devnull 
549 17e5fb89 2004-04-21 devnull def:
550 17e5fb89 2004-04-21 devnull 	_DEFINE LETTER '('
551 17e5fb89 2004-04-21 devnull 	{
552 17e5fb89 2004-04-21 devnull 		$$ = getf($2);
553 17e5fb89 2004-04-21 devnull 		pre = (int*)"";
554 17e5fb89 2004-04-21 devnull 		post = (int*)"";
555 17e5fb89 2004-04-21 devnull 		lev = 1;
556 17e5fb89 2004-04-21 devnull 		bindx = 0;
557 17e5fb89 2004-04-21 devnull 		bstack[bindx] = 0;
558 17e5fb89 2004-04-21 devnull 	}
559 17e5fb89 2004-04-21 devnull 
560 17e5fb89 2004-04-21 devnull dargs:
561 17e5fb89 2004-04-21 devnull |	lora
562 17e5fb89 2004-04-21 devnull 	{
563 17e5fb89 2004-04-21 devnull 		pp((char*)$1);
564 17e5fb89 2004-04-21 devnull 	}
565 17e5fb89 2004-04-21 devnull |	dargs ',' lora
566 17e5fb89 2004-04-21 devnull 	{
567 17e5fb89 2004-04-21 devnull 		pp((char*)$3);
568 17e5fb89 2004-04-21 devnull 	}
569 17e5fb89 2004-04-21 devnull 
570 17e5fb89 2004-04-21 devnull dlets:
571 17e5fb89 2004-04-21 devnull 	lora
572 17e5fb89 2004-04-21 devnull 	{
573 17e5fb89 2004-04-21 devnull 		tp((char*)$1);
574 17e5fb89 2004-04-21 devnull 	}
575 17e5fb89 2004-04-21 devnull |	dlets ',' lora
576 17e5fb89 2004-04-21 devnull 	{
577 17e5fb89 2004-04-21 devnull 		tp((char*)$3);
578 17e5fb89 2004-04-21 devnull 	}
579 17e5fb89 2004-04-21 devnull 
580 17e5fb89 2004-04-21 devnull lora:
581 17e5fb89 2004-04-21 devnull 	LETTER
582 17e5fb89 2004-04-21 devnull 	{
583 17e5fb89 2004-04-21 devnull 		$<cptr>$=$1;
584 17e5fb89 2004-04-21 devnull 	}
585 17e5fb89 2004-04-21 devnull |	LETTER '[' ']'
586 17e5fb89 2004-04-21 devnull 	{
587 17e5fb89 2004-04-21 devnull 		$$ = geta($1);
588 17e5fb89 2004-04-21 devnull 	}
589 17e5fb89 2004-04-21 devnull 
590 17e5fb89 2004-04-21 devnull %%
591 17e5fb89 2004-04-21 devnull 
592 17e5fb89 2004-04-21 devnull int
593 17e5fb89 2004-04-21 devnull yylex(void)
594 17e5fb89 2004-04-21 devnull {
595 17e5fb89 2004-04-21 devnull 	int c, ch;
596 17e5fb89 2004-04-21 devnull 
597 17e5fb89 2004-04-21 devnull restart:
598 17e5fb89 2004-04-21 devnull 	c = getch();
599 17e5fb89 2004-04-21 devnull 	peekc = -1;
600 17e5fb89 2004-04-21 devnull 	while(c == ' ' || c == '\t')
601 17e5fb89 2004-04-21 devnull 		c = getch();
602 17e5fb89 2004-04-21 devnull 	if(c == '\\') {
603 17e5fb89 2004-04-21 devnull 		getch();
604 17e5fb89 2004-04-21 devnull 		goto restart;
605 17e5fb89 2004-04-21 devnull 	}
606 17e5fb89 2004-04-21 devnull 	if(c >= 'a' && c <= 'z') {
607 17e5fb89 2004-04-21 devnull 		/* look ahead to look for reserved words */
608 17e5fb89 2004-04-21 devnull 		peekc = getch();
609 17e5fb89 2004-04-21 devnull 		if(peekc >= 'a' && peekc <= 'z') { /* must be reserved word */
610 17e5fb89 2004-04-21 devnull 			if(c=='p' && peekc=='r') {
611 17e5fb89 2004-04-21 devnull 				c = _PRINT;
612 17e5fb89 2004-04-21 devnull 				goto skip;
613 17e5fb89 2004-04-21 devnull 			}
614 17e5fb89 2004-04-21 devnull 			if(c=='i' && peekc=='f') {
615 17e5fb89 2004-04-21 devnull 				c = _IF;
616 17e5fb89 2004-04-21 devnull 				goto skip;
617 17e5fb89 2004-04-21 devnull 			}
618 17e5fb89 2004-04-21 devnull 			if(c=='w' && peekc=='h') {
619 17e5fb89 2004-04-21 devnull 				c = _WHILE;
620 17e5fb89 2004-04-21 devnull 				goto skip;
621 17e5fb89 2004-04-21 devnull 			}
622 17e5fb89 2004-04-21 devnull 			if(c=='f' && peekc=='o') {
623 17e5fb89 2004-04-21 devnull 				c = _FOR;
624 17e5fb89 2004-04-21 devnull 				goto skip;
625 17e5fb89 2004-04-21 devnull 			}
626 17e5fb89 2004-04-21 devnull 			if(c=='s' && peekc=='q') {
627 17e5fb89 2004-04-21 devnull 				c = SQRT;
628 17e5fb89 2004-04-21 devnull 				goto skip;
629 17e5fb89 2004-04-21 devnull 			}
630 17e5fb89 2004-04-21 devnull 			if(c=='r' && peekc=='e') {
631 17e5fb89 2004-04-21 devnull 				c = _RETURN;
632 17e5fb89 2004-04-21 devnull 				goto skip;
633 17e5fb89 2004-04-21 devnull 			}
634 17e5fb89 2004-04-21 devnull 			if(c=='b' && peekc=='r') {
635 17e5fb89 2004-04-21 devnull 				c = _BREAK;
636 17e5fb89 2004-04-21 devnull 				goto skip;
637 17e5fb89 2004-04-21 devnull 			}
638 17e5fb89 2004-04-21 devnull 			if(c=='d' && peekc=='e') {
639 17e5fb89 2004-04-21 devnull 				c = _DEFINE;
640 17e5fb89 2004-04-21 devnull 				goto skip;
641 17e5fb89 2004-04-21 devnull 			}
642 17e5fb89 2004-04-21 devnull 			if(c=='s' && peekc=='c') {
643 17e5fb89 2004-04-21 devnull 				c = SCALE;
644 17e5fb89 2004-04-21 devnull 				goto skip;
645 17e5fb89 2004-04-21 devnull 			}
646 17e5fb89 2004-04-21 devnull 			if(c=='b' && peekc=='a') {
647 17e5fb89 2004-04-21 devnull 				c = BASE;
648 17e5fb89 2004-04-21 devnull 				goto skip;
649 17e5fb89 2004-04-21 devnull 			}
650 17e5fb89 2004-04-21 devnull 			if(c=='i' && peekc=='b') {
651 17e5fb89 2004-04-21 devnull 				c = BASE;
652 17e5fb89 2004-04-21 devnull 				goto skip;
653 17e5fb89 2004-04-21 devnull 			}
654 17e5fb89 2004-04-21 devnull 			if(c=='o' && peekc=='b') {
655 17e5fb89 2004-04-21 devnull 				c = OBASE;
656 17e5fb89 2004-04-21 devnull 				goto skip;
657 17e5fb89 2004-04-21 devnull 			}
658 17e5fb89 2004-04-21 devnull 			if(c=='d' && peekc=='i') {
659 17e5fb89 2004-04-21 devnull 				c = FFF;
660 17e5fb89 2004-04-21 devnull 				goto skip;
661 17e5fb89 2004-04-21 devnull 			}
662 17e5fb89 2004-04-21 devnull 			if(c=='a' && peekc=='u') {
663 17e5fb89 2004-04-21 devnull 				c = _AUTO;
664 17e5fb89 2004-04-21 devnull 				goto skip;
665 17e5fb89 2004-04-21 devnull 			}
666 17e5fb89 2004-04-21 devnull 			if(c=='l' && peekc=='e') {
667 17e5fb89 2004-04-21 devnull 				c = LENGTH;
668 17e5fb89 2004-04-21 devnull 				goto skip;
669 17e5fb89 2004-04-21 devnull 			}
670 17e5fb89 2004-04-21 devnull 			if(c=='q' && peekc=='u')
671 17e5fb89 2004-04-21 devnull 				getout();
672 17e5fb89 2004-04-21 devnull 			/* could not be found */
673 17e5fb89 2004-04-21 devnull 			return ERROR;
674 17e5fb89 2004-04-21 devnull 
675 17e5fb89 2004-04-21 devnull 		skip:	/* skip over rest of word */
676 17e5fb89 2004-04-21 devnull 			peekc = -1;
677 17e5fb89 2004-04-21 devnull 			for(;;) {
678 17e5fb89 2004-04-21 devnull 				ch = getch();
679 17e5fb89 2004-04-21 devnull 				if(ch < 'a' || ch > 'z')
680 17e5fb89 2004-04-21 devnull 					break;
681 17e5fb89 2004-04-21 devnull 			}
682 17e5fb89 2004-04-21 devnull 			peekc = ch;
683 17e5fb89 2004-04-21 devnull 			return c;
684 17e5fb89 2004-04-21 devnull 		}
685 17e5fb89 2004-04-21 devnull 
686 17e5fb89 2004-04-21 devnull 		/* usual case; just one single letter */
687 17e5fb89 2004-04-21 devnull 		yylval.cptr = letr[c-'a'];
688 17e5fb89 2004-04-21 devnull 		return LETTER;
689 17e5fb89 2004-04-21 devnull 	}
690 17e5fb89 2004-04-21 devnull 	if((c >= '0' && c <= '9') || (c >= 'A' && c <= 'F')) {
691 17e5fb89 2004-04-21 devnull 		yylval.cc = c;
692 17e5fb89 2004-04-21 devnull 		return DIGIT;
693 17e5fb89 2004-04-21 devnull 	}
694 17e5fb89 2004-04-21 devnull 	switch(c) {
695 17e5fb89 2004-04-21 devnull 	case '.':
696 17e5fb89 2004-04-21 devnull 		return DOT;
697 17e5fb89 2004-04-21 devnull 	case '*':
698 17e5fb89 2004-04-21 devnull 		yylval.cptr = "*";
699 17e5fb89 2004-04-21 devnull 		return cpeek('=', EQOP, c);
700 17e5fb89 2004-04-21 devnull 	case '%':
701 17e5fb89 2004-04-21 devnull 		yylval.cptr = "%%";
702 17e5fb89 2004-04-21 devnull 		return cpeek('=', EQOP, c);
703 17e5fb89 2004-04-21 devnull 	case '^':
704 17e5fb89 2004-04-21 devnull 		yylval.cptr = "^";
705 17e5fb89 2004-04-21 devnull 		return cpeek('=', EQOP, c);
706 17e5fb89 2004-04-21 devnull 	case '+':
707 17e5fb89 2004-04-21 devnull 		ch = cpeek('=', EQOP, c);
708 17e5fb89 2004-04-21 devnull 		if(ch == EQOP) {
709 17e5fb89 2004-04-21 devnull 			yylval.cptr = "+";
710 17e5fb89 2004-04-21 devnull 			return ch;
711 17e5fb89 2004-04-21 devnull 		}
712 17e5fb89 2004-04-21 devnull 		return cpeek('+', INCR, c);
713 17e5fb89 2004-04-21 devnull 	case '-':
714 17e5fb89 2004-04-21 devnull 		ch = cpeek('=', EQOP, c);
715 17e5fb89 2004-04-21 devnull 		if(ch == EQOP) {
716 17e5fb89 2004-04-21 devnull 			yylval.cptr = "-";
717 17e5fb89 2004-04-21 devnull 			return ch;
718 17e5fb89 2004-04-21 devnull 		}
719 17e5fb89 2004-04-21 devnull 		return cpeek('-', DECR, c);
720 17e5fb89 2004-04-21 devnull 	case '=':
721 17e5fb89 2004-04-21 devnull 		return cpeek('=', EQ, '=');
722 17e5fb89 2004-04-21 devnull 	case '<':
723 17e5fb89 2004-04-21 devnull 		return cpeek('=', LE, '<');
724 17e5fb89 2004-04-21 devnull 	case '>':
725 17e5fb89 2004-04-21 devnull 		return cpeek('=', GE, '>');
726 17e5fb89 2004-04-21 devnull 	case '!':
727 17e5fb89 2004-04-21 devnull 		return cpeek('=', NE, '!');
728 17e5fb89 2004-04-21 devnull 	case '/':
729 17e5fb89 2004-04-21 devnull 		ch = cpeek('=', EQOP, c);
730 17e5fb89 2004-04-21 devnull 		if(ch == EQOP) {
731 17e5fb89 2004-04-21 devnull 			yylval.cptr = "/";
732 17e5fb89 2004-04-21 devnull 			return ch;
733 17e5fb89 2004-04-21 devnull 		}
734 17e5fb89 2004-04-21 devnull 		if(peekc == '*') {
735 17e5fb89 2004-04-21 devnull 			peekc = -1;
736 17e5fb89 2004-04-21 devnull 			for(;;) {
737 17e5fb89 2004-04-21 devnull 				ch = getch();
738 17e5fb89 2004-04-21 devnull 				if(ch == '*') {
739 17e5fb89 2004-04-21 devnull 					peekc = getch();
740 17e5fb89 2004-04-21 devnull 					if(peekc == '/') {
741 17e5fb89 2004-04-21 devnull 						peekc = -1;
742 17e5fb89 2004-04-21 devnull 						goto restart;
743 17e5fb89 2004-04-21 devnull 					}
744 17e5fb89 2004-04-21 devnull 				}
745 17e5fb89 2004-04-21 devnull 			}
746 17e5fb89 2004-04-21 devnull 		}
747 17e5fb89 2004-04-21 devnull 		return c;
748 17e5fb89 2004-04-21 devnull 	case '"':
749 17e5fb89 2004-04-21 devnull 		yylval.cptr = str;
750 17e5fb89 2004-04-21 devnull 		while((c=getch()) != '"'){
751 17e5fb89 2004-04-21 devnull 			*str++ = c;
752 17e5fb89 2004-04-21 devnull 			if(str >= &string[999]){
753 17e5fb89 2004-04-21 devnull 				yyerror("string space exceeded");
754 17e5fb89 2004-04-21 devnull 				getout();
755 17e5fb89 2004-04-21 devnull 			}
756 17e5fb89 2004-04-21 devnull 		}
757 17e5fb89 2004-04-21 devnull 		*str++ = 0;
758 17e5fb89 2004-04-21 devnull 		return QSTR;
759 17e5fb89 2004-04-21 devnull 	default:
760 17e5fb89 2004-04-21 devnull 		return c;
761 17e5fb89 2004-04-21 devnull 	}
762 17e5fb89 2004-04-21 devnull }
763 17e5fb89 2004-04-21 devnull 
764 17e5fb89 2004-04-21 devnull int
765 17e5fb89 2004-04-21 devnull cpeek(int c, int yes, int no)
766 17e5fb89 2004-04-21 devnull {
767 17e5fb89 2004-04-21 devnull 
768 17e5fb89 2004-04-21 devnull 	peekc = getch();
769 17e5fb89 2004-04-21 devnull 	if(peekc == c) {
770 17e5fb89 2004-04-21 devnull 		peekc = -1;
771 17e5fb89 2004-04-21 devnull 		return yes;
772 17e5fb89 2004-04-21 devnull 	}
773 17e5fb89 2004-04-21 devnull 	return no;
774 17e5fb89 2004-04-21 devnull }
775 17e5fb89 2004-04-21 devnull 
776 17e5fb89 2004-04-21 devnull int
777 17e5fb89 2004-04-21 devnull getch(void)
778 17e5fb89 2004-04-21 devnull {
779 17e5fb89 2004-04-21 devnull 	long ch;
780 17e5fb89 2004-04-21 devnull 
781 17e5fb89 2004-04-21 devnull loop:
782 17e5fb89 2004-04-21 devnull 	ch = peekc;
783 17e5fb89 2004-04-21 devnull 	if(ch < 0){
784 17e5fb89 2004-04-21 devnull 		if(in == 0)
785 17e5fb89 2004-04-21 devnull 			ch = -1;
786 17e5fb89 2004-04-21 devnull 		else
787 17e5fb89 2004-04-21 devnull 			ch = Bgetc(in);
788 17e5fb89 2004-04-21 devnull 	}
789 17e5fb89 2004-04-21 devnull 	peekc = -1;
790 17e5fb89 2004-04-21 devnull 	if(ch >= 0)
791 17e5fb89 2004-04-21 devnull 		return ch;
792 17e5fb89 2004-04-21 devnull 	ifile++;
793 17e5fb89 2004-04-21 devnull 	if(ifile > sargc) {
794 17e5fb89 2004-04-21 devnull 		if(ifile >= sargc+2)
795 17e5fb89 2004-04-21 devnull 			getout();
796 17e5fb89 2004-04-21 devnull 		in = &stdin;
797 17e5fb89 2004-04-21 devnull 		Binit(in, 0, OREAD);
798 17e5fb89 2004-04-21 devnull 		ln = 0;
799 17e5fb89 2004-04-21 devnull 		goto loop;
800 17e5fb89 2004-04-21 devnull 	}
801 17e5fb89 2004-04-21 devnull 	Bterm(in);
802 17e5fb89 2004-04-21 devnull 	if((in = Bopen(sargv[ifile], OREAD)) != 0){
803 17e5fb89 2004-04-21 devnull 		ln = 0;
804 17e5fb89 2004-04-21 devnull 		ss = sargv[ifile];
805 17e5fb89 2004-04-21 devnull 		goto loop;
806 17e5fb89 2004-04-21 devnull 	}
807 17e5fb89 2004-04-21 devnull 	yyerror("cannot open input file");
808 17e5fb89 2004-04-21 devnull 	return 0;		/* shut up ken */
809 17e5fb89 2004-04-21 devnull }
810 17e5fb89 2004-04-21 devnull 
811 17e5fb89 2004-04-21 devnull int*
812 17e5fb89 2004-04-21 devnull bundle(int a, ...)
813 17e5fb89 2004-04-21 devnull {
814 17e5fb89 2004-04-21 devnull 	int i, *p, *q;
815 17e5fb89 2004-04-21 devnull 
816 17e5fb89 2004-04-21 devnull 	p = &a;
817 17e5fb89 2004-04-21 devnull 	i = *p++;
818 17e5fb89 2004-04-21 devnull 	q = bsp_nxt;
819 17e5fb89 2004-04-21 devnull 	if(bdebug)
820 17e5fb89 2004-04-21 devnull 		fprint(2, "bundle %d elements at %lx\n", i, q);
821 17e5fb89 2004-04-21 devnull 	while(i-- > 0) {
822 17e5fb89 2004-04-21 devnull 		if(bsp_nxt >= &bspace[bsp_max])
823 17e5fb89 2004-04-21 devnull 			yyerror("bundling space exceeded");
824 17e5fb89 2004-04-21 devnull 		*bsp_nxt++ = *p++;
825 17e5fb89 2004-04-21 devnull 	}
826 17e5fb89 2004-04-21 devnull 	*bsp_nxt++ = 0;
827 17e5fb89 2004-04-21 devnull 	yyval.iptr = q;
828 17e5fb89 2004-04-21 devnull 	return q;
829 17e5fb89 2004-04-21 devnull }
830 17e5fb89 2004-04-21 devnull 
831 17e5fb89 2004-04-21 devnull void
832 17e5fb89 2004-04-21 devnull routput(int *p)
833 17e5fb89 2004-04-21 devnull {
834 17e5fb89 2004-04-21 devnull 	if(bdebug)
835 17e5fb89 2004-04-21 devnull 		fprint(2, "routput(%lx)\n", p);
836 17e5fb89 2004-04-21 devnull 	if(p >= &bspace[0] && p < &bspace[bsp_max]) {
837 17e5fb89 2004-04-21 devnull 		/* part of a bundle */
838 17e5fb89 2004-04-21 devnull 		while(*p != 0)
839 17e5fb89 2004-04-21 devnull 			routput((int*)(*p++));
840 17e5fb89 2004-04-21 devnull 	} else
841 17e5fb89 2004-04-21 devnull 		Bprint(&stdout, (char*)p);	/* character string */
842 17e5fb89 2004-04-21 devnull }
843 17e5fb89 2004-04-21 devnull 
844 17e5fb89 2004-04-21 devnull void
845 17e5fb89 2004-04-21 devnull output(int *p)
846 17e5fb89 2004-04-21 devnull {
847 17e5fb89 2004-04-21 devnull 	routput(p);
848 17e5fb89 2004-04-21 devnull 	bsp_nxt = &bspace[0];
849 17e5fb89 2004-04-21 devnull 	Bprint(&stdout, "\n");
850 17e5fb89 2004-04-21 devnull 	Bflush(&stdout);
851 17e5fb89 2004-04-21 devnull 	cp = cary;
852 17e5fb89 2004-04-21 devnull 	crs = rcrs;
853 17e5fb89 2004-04-21 devnull }
854 17e5fb89 2004-04-21 devnull 
855 17e5fb89 2004-04-21 devnull void
856 17e5fb89 2004-04-21 devnull conout(int *p, char *s)
857 17e5fb89 2004-04-21 devnull {
858 17e5fb89 2004-04-21 devnull 	Bprint(&stdout, "[");
859 17e5fb89 2004-04-21 devnull 	routput(p);
860 17e5fb89 2004-04-21 devnull 	Bprint(&stdout, "]s%s\n", s);
861 17e5fb89 2004-04-21 devnull 	Bflush(&stdout);
862 17e5fb89 2004-04-21 devnull 	lev--;
863 17e5fb89 2004-04-21 devnull }
864 17e5fb89 2004-04-21 devnull 
865 17e5fb89 2004-04-21 devnull void
866 17e5fb89 2004-04-21 devnull yyerror(char *s, ...)
867 17e5fb89 2004-04-21 devnull {
868 17e5fb89 2004-04-21 devnull 	if(ifile > sargc)
869 17e5fb89 2004-04-21 devnull 		ss = "teletype";
870 17e5fb89 2004-04-21 devnull 	Bprint(&stdout, "c[%s on line %d, %s]pc\n", s, ln+1, ss);
871 17e5fb89 2004-04-21 devnull 	Bflush(&stdout);
872 17e5fb89 2004-04-21 devnull 	cp = cary;
873 17e5fb89 2004-04-21 devnull 	crs = rcrs;
874 17e5fb89 2004-04-21 devnull 	bindx = 0;
875 17e5fb89 2004-04-21 devnull 	lev = 0;
876 17e5fb89 2004-04-21 devnull 	bsp_nxt = &bspace[0];
877 17e5fb89 2004-04-21 devnull }
878 17e5fb89 2004-04-21 devnull 
879 17e5fb89 2004-04-21 devnull void
880 17e5fb89 2004-04-21 devnull pp(char *s)
881 17e5fb89 2004-04-21 devnull {
882 17e5fb89 2004-04-21 devnull 	/* puts the relevant stuff on pre and post for the letter s */
883 17e5fb89 2004-04-21 devnull 	bundle(3, "S", s, pre);
884 17e5fb89 2004-04-21 devnull 	pre = yyval.iptr;
885 17e5fb89 2004-04-21 devnull 	bundle(4, post, "L", s, "s.");
886 17e5fb89 2004-04-21 devnull 	post = yyval.iptr;
887 17e5fb89 2004-04-21 devnull }
888 17e5fb89 2004-04-21 devnull 
889 17e5fb89 2004-04-21 devnull void
890 17e5fb89 2004-04-21 devnull tp(char *s)
891 17e5fb89 2004-04-21 devnull {
892 17e5fb89 2004-04-21 devnull 	/* same as pp, but for temps */
893 17e5fb89 2004-04-21 devnull 	bundle(3, "0S", s, pre);
894 17e5fb89 2004-04-21 devnull 	pre = yyval.iptr;
895 17e5fb89 2004-04-21 devnull 	bundle(4, post, "L", s, "s.");
896 17e5fb89 2004-04-21 devnull 	post = yyval.iptr;
897 17e5fb89 2004-04-21 devnull }
898 17e5fb89 2004-04-21 devnull 
899 17e5fb89 2004-04-21 devnull void
900 17e5fb89 2004-04-21 devnull yyinit(int argc, char **argv)
901 17e5fb89 2004-04-21 devnull {
902 17e5fb89 2004-04-21 devnull 	Binit(&stdout, 1, OWRITE);
903 17e5fb89 2004-04-21 devnull 	sargv = argv;
904 17e5fb89 2004-04-21 devnull 	sargc = argc - 1;
905 17e5fb89 2004-04-21 devnull 	if(sargc == 0) {
906 17e5fb89 2004-04-21 devnull 		in = &stdin;
907 17e5fb89 2004-04-21 devnull 		Binit(in, 0, OREAD);
908 17e5fb89 2004-04-21 devnull 	} else if((in = Bopen(sargv[1], OREAD)) == 0)
909 17e5fb89 2004-04-21 devnull 		yyerror("cannot open input file");
910 17e5fb89 2004-04-21 devnull 	ifile = 1;
911 17e5fb89 2004-04-21 devnull 	ln = 0;
912 17e5fb89 2004-04-21 devnull 	ss = sargv[1];
913 17e5fb89 2004-04-21 devnull }
914 17e5fb89 2004-04-21 devnull 
915 17e5fb89 2004-04-21 devnull void
916 17e5fb89 2004-04-21 devnull getout(void)
917 17e5fb89 2004-04-21 devnull {
918 17e5fb89 2004-04-21 devnull 	Bprint(&stdout, "q");
919 17e5fb89 2004-04-21 devnull 	Bflush(&stdout);
920 17e5fb89 2004-04-21 devnull 	exits(0);
921 17e5fb89 2004-04-21 devnull }
922 17e5fb89 2004-04-21 devnull 
923 17e5fb89 2004-04-21 devnull int*
924 17e5fb89 2004-04-21 devnull getf(char *p)
925 17e5fb89 2004-04-21 devnull {
926 17e5fb89 2004-04-21 devnull 	return (int*)funtab[*p - 'a'];
927 17e5fb89 2004-04-21 devnull }
928 17e5fb89 2004-04-21 devnull 
929 17e5fb89 2004-04-21 devnull int*
930 17e5fb89 2004-04-21 devnull geta(char *p)
931 17e5fb89 2004-04-21 devnull {
932 17e5fb89 2004-04-21 devnull 	return (int*)atab[*p - 'a'];
933 17e5fb89 2004-04-21 devnull }
934 17e5fb89 2004-04-21 devnull 
935 17e5fb89 2004-04-21 devnull void
936 17e5fb89 2004-04-21 devnull main(int argc, char **argv)
937 17e5fb89 2004-04-21 devnull {
938 17e5fb89 2004-04-21 devnull 	int p[2];
939 17e5fb89 2004-04-21 devnull 
940 17e5fb89 2004-04-21 devnull 	while(argc > 1 && *argv[1] == '-') {
941 17e5fb89 2004-04-21 devnull 		switch(argv[1][1]) {
942 17e5fb89 2004-04-21 devnull 		case 'd':
943 17e5fb89 2004-04-21 devnull 			bdebug++;
944 17e5fb89 2004-04-21 devnull 			break;
945 17e5fb89 2004-04-21 devnull 		case 'c':
946 17e5fb89 2004-04-21 devnull 			cflag++;
947 17e5fb89 2004-04-21 devnull 			break;
948 17e5fb89 2004-04-21 devnull 		case 'l':
949 17e5fb89 2004-04-21 devnull 			lflag++;
950 17e5fb89 2004-04-21 devnull 			break;
951 17e5fb89 2004-04-21 devnull 		case 's':
952 17e5fb89 2004-04-21 devnull 			sflag++;
953 17e5fb89 2004-04-21 devnull 			break;
954 17e5fb89 2004-04-21 devnull 		default:
955 17e5fb89 2004-04-21 devnull 			fprint(2, "Usage: bc [-l] [-c] [file ...]\n");
956 17e5fb89 2004-04-21 devnull 			exits("usage");
957 17e5fb89 2004-04-21 devnull 		}
958 17e5fb89 2004-04-21 devnull 		argc--;
959 17e5fb89 2004-04-21 devnull 		argv++;
960 17e5fb89 2004-04-21 devnull 	}
961 17e5fb89 2004-04-21 devnull 	if(lflag) {
962 17e5fb89 2004-04-21 devnull 		argv--;
963 17e5fb89 2004-04-21 devnull 		argc++;
964 c8b6342d 2005-01-13 devnull 		argv[1] = unsharp("#9/lib/bclib");
965 17e5fb89 2004-04-21 devnull 	}
966 17e5fb89 2004-04-21 devnull 	if(cflag) {
967 17e5fb89 2004-04-21 devnull 		yyinit(argc, argv);
968 17e5fb89 2004-04-21 devnull 		for(;;)
969 17e5fb89 2004-04-21 devnull 			yyparse();
970 9268e33d 2005-01-14 devnull 		/* exits(0); */
971 17e5fb89 2004-04-21 devnull 	}
972 17e5fb89 2004-04-21 devnull 	pipe(p);
973 17e5fb89 2004-04-21 devnull 	if(fork() == 0) {
974 17e5fb89 2004-04-21 devnull 		dup(p[1], 1);
975 17e5fb89 2004-04-21 devnull 		close(p[0]);
976 17e5fb89 2004-04-21 devnull 		close(p[1]);
977 17e5fb89 2004-04-21 devnull 		yyinit(argc, argv);
978 17e5fb89 2004-04-21 devnull 		for(;;)
979 17e5fb89 2004-04-21 devnull 			yyparse();
980 17e5fb89 2004-04-21 devnull 	}
981 17e5fb89 2004-04-21 devnull 	dup(p[0], 0);
982 17e5fb89 2004-04-21 devnull 	close(p[0]);
983 17e5fb89 2004-04-21 devnull 	close(p[1]);
984 e2713e92 2004-04-24 devnull 	execlp("dc", "dc", 0);
985 17e5fb89 2004-04-21 devnull }