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