1 4314729d 2004-04-14 devnull #include <u.h>
  2 4314729d 2004-04-14 devnull #include <libc.h>
  3 4314729d 2004-04-14 devnull #include <bio.h>
  4 4314729d 2004-04-14 devnull #include "plot.h"
  5 4314729d 2004-04-14 devnull #include <draw.h>
  6 4314729d 2004-04-14 devnull #include <event.h>
  7 4314729d 2004-04-14 devnull #include <ctype.h>
  8 4314729d 2004-04-14 devnull 
  9 4314729d 2004-04-14 devnull void	define(char*);
 10 4314729d 2004-04-14 devnull void	call(char*);
 11 4314729d 2004-04-14 devnull void	include(char*);
 12 4314729d 2004-04-14 devnull int	process(Biobuf*);
 13 4314729d 2004-04-14 devnull int	server(void);
 14 4314729d 2004-04-14 devnull 
 15 4314729d 2004-04-14 devnull enum{
 16 4314729d 2004-04-14 devnull 	ARC,
 17 4314729d 2004-04-14 devnull 	BOX,
 18 4314729d 2004-04-14 devnull 	CALL,
 19 4314729d 2004-04-14 devnull 	CFILL,
 20 4314729d 2004-04-14 devnull 	CIRC,
 21 4314729d 2004-04-14 devnull 	CLOSEPL,
 22 4314729d 2004-04-14 devnull 	COLOR,
 23 4314729d 2004-04-14 devnull 	CSPLINE,
 24 4314729d 2004-04-14 devnull 	DEFINE,
 25 4314729d 2004-04-14 devnull 	DISK,
 26 4314729d 2004-04-14 devnull 	DSPLINE,
 27 4314729d 2004-04-14 devnull 	ERASE,
 28 4314729d 2004-04-14 devnull 	FILL,
 29 4314729d 2004-04-14 devnull 	FRAME,
 30 4314729d 2004-04-14 devnull 	FSPLINE,
 31 4314729d 2004-04-14 devnull 	GRADE,
 32 4314729d 2004-04-14 devnull 	IDLE,
 33 4314729d 2004-04-14 devnull 	INCLUDE,
 34 4314729d 2004-04-14 devnull 	LINE,
 35 4314729d 2004-04-14 devnull 	LSPLINE,
 36 4314729d 2004-04-14 devnull 	MOVE,
 37 4314729d 2004-04-14 devnull 	OPENPL,
 38 4314729d 2004-04-14 devnull 	PARABOLA,
 39 4314729d 2004-04-14 devnull 	PEN,
 40 4314729d 2004-04-14 devnull 	PAUSE,
 41 4314729d 2004-04-14 devnull 	POINT,
 42 4314729d 2004-04-14 devnull 	POLY,
 43 4314729d 2004-04-14 devnull 	RANGE,
 44 4314729d 2004-04-14 devnull 	RESTORE,
 45 4314729d 2004-04-14 devnull 	RMOVE,
 46 4314729d 2004-04-14 devnull 	RVEC,
 47 4314729d 2004-04-14 devnull 	SAVE,
 48 4314729d 2004-04-14 devnull 	SBOX,
 49 4314729d 2004-04-14 devnull 	SPLINE,
 50 4314729d 2004-04-14 devnull 	TEXT,
 51 4314729d 2004-04-14 devnull 	VEC,
 52 4314729d 2004-04-14 devnull 	LAST
 53 4314729d 2004-04-14 devnull };
 54 4314729d 2004-04-14 devnull 
 55 4314729d 2004-04-14 devnull struct pcall {
 56 4314729d 2004-04-14 devnull 	char	*cc;
 57 4314729d 2004-04-14 devnull 	int	numc;
 58 4314729d 2004-04-14 devnull } plots[] = {
 59 4314729d 2004-04-14 devnull 	/*ARC*/ 		"a", 	1,
 60 4314729d 2004-04-14 devnull 	/*BOX*/ 		"bo", 	2,
 61 4314729d 2004-04-14 devnull 	/*CALL*/		"ca",	2,
 62 4314729d 2004-04-14 devnull 	/*CFILL*/ 	"cf", 	2,
 63 4314729d 2004-04-14 devnull 	/*CIRC*/ 		"ci", 	2,
 64 4314729d 2004-04-14 devnull 	/*CLOSEPL*/ 	"cl", 	2,
 65 4314729d 2004-04-14 devnull 	/*COLOR*/ 	"co", 	2,
 66 4314729d 2004-04-14 devnull 	/*CSPLINE*/	"cs",	2,
 67 4314729d 2004-04-14 devnull 	/*DEFINE*/	"de",	2,
 68 4314729d 2004-04-14 devnull 	/*DISK*/		"di",	2,
 69 4314729d 2004-04-14 devnull 	/*DSPLINE*/	"ds",	2,
 70 4314729d 2004-04-14 devnull 	/*ERASE*/ 	"e", 	1,
 71 4314729d 2004-04-14 devnull 	/*FILL*/ 		"fi", 	2,
 72 4314729d 2004-04-14 devnull 	/*FRAME*/ 	"fr", 	2,
 73 4314729d 2004-04-14 devnull 	/*FSPLINE*/	"fs",	2,
 74 4314729d 2004-04-14 devnull 	/*GRADE*/ 	"g", 	1,
 75 4314729d 2004-04-14 devnull 	/*IDLE*/ 		"id", 	2,
 76 4314729d 2004-04-14 devnull 	/*INCLUDE*/	"in",	2,
 77 4314729d 2004-04-14 devnull 	/*LINE*/ 		"li", 	2,
 78 4314729d 2004-04-14 devnull 	/*LSPLINE*/	"ls",	2,
 79 4314729d 2004-04-14 devnull 	/*MOVE*/ 		"m", 	1,
 80 4314729d 2004-04-14 devnull 	/*OPENPL*/ 	"o", 	1,
 81 4314729d 2004-04-14 devnull 	/*PARABOLA*/ 	"par", 	3,
 82 4314729d 2004-04-14 devnull 	/*PEN*/ 		"pe", 	2,
 83 4314729d 2004-04-14 devnull 	/*PAUSE*/ 	"pau", 	3,
 84 4314729d 2004-04-14 devnull 	/*POINT*/ 	"poi", 	3,
 85 4314729d 2004-04-14 devnull 	/*POLY*/ 		"pol", 	3,
 86 4314729d 2004-04-14 devnull 	/*RANGE*/ 	"ra", 	2,
 87 4314729d 2004-04-14 devnull 	/*RESTORE*/ 	"re", 	2,
 88 4314729d 2004-04-14 devnull 	/*RMOVE*/ 	"rm", 	2,
 89 4314729d 2004-04-14 devnull 	/*RVEC*/ 		"rv", 	2,
 90 4314729d 2004-04-14 devnull 	/*SAVE*/ 		"sa", 	2,
 91 4314729d 2004-04-14 devnull 	/*SBOX*/ 		"sb", 	2,
 92 4314729d 2004-04-14 devnull 	/*SPLINE*/ 	"sp", 	2,
 93 4314729d 2004-04-14 devnull 	/*TEXT*/ 		"t", 	1,
 94 4314729d 2004-04-14 devnull 	/*VEC*/ 		"v", 	1,
 95 4314729d 2004-04-14 devnull 	/*LAST*/	 	0, 	0,
 96 4314729d 2004-04-14 devnull };
 97 4314729d 2004-04-14 devnull 
 98 4314729d 2004-04-14 devnull struct pcall *pplots;		/* last command read */
 99 4314729d 2004-04-14 devnull 
100 4314729d 2004-04-14 devnull #define MAXL 16
101 4314729d 2004-04-14 devnull struct fcall {
102 4314729d 2004-04-14 devnull 	char *name;
103 4314729d 2004-04-14 devnull 	char *stash;
104 4314729d 2004-04-14 devnull } flibr[MAXL];			/* define strings */
105 4314729d 2004-04-14 devnull 
106 4314729d 2004-04-14 devnull struct fcall *fptr = flibr;
107 4314729d 2004-04-14 devnull 
108 4314729d 2004-04-14 devnull #define	NFSTACK	50
109 4314729d 2004-04-14 devnull struct fstack{
110 4314729d 2004-04-14 devnull 	int peekc;
111 4314729d 2004-04-14 devnull 	int lineno;
112 4314729d 2004-04-14 devnull 	char *corebuf;
113 4314729d 2004-04-14 devnull 	Biobuf *fd;
114 4314729d 2004-04-14 devnull 	double scale;
115 4314729d 2004-04-14 devnull }fstack[NFSTACK];		/* stack of open input files & defines */
116 4314729d 2004-04-14 devnull struct fstack *fsp=fstack;
117 4314729d 2004-04-14 devnull 
118 4314729d 2004-04-14 devnull #define	NARGSTR	8192
119 4314729d 2004-04-14 devnull char argstr[NARGSTR+1];		/* string arguments */
120 4314729d 2004-04-14 devnull 
121 4314729d 2004-04-14 devnull #define	NX	8192
122 4314729d 2004-04-14 devnull double x[NX];			/* numeric arguments */
123 4314729d 2004-04-14 devnull 
124 4314729d 2004-04-14 devnull #define	NPTS	256
125 4314729d 2004-04-14 devnull int cnt[NPTS];			/* control-polygon vertex counts */
126 4314729d 2004-04-14 devnull double *pts[NPTS];		/* control-polygon vertex pointers */
127 4314729d 2004-04-14 devnull 
128 4314729d 2004-04-14 devnull void eresized(int new){
129 4314729d 2004-04-14 devnull 	if(new && getwindow(display, Refnone) < 0){
130 4314729d 2004-04-14 devnull 		fprint(2, "Can't reattach to window: %r\n");
131 4314729d 2004-04-14 devnull 		exits("resize");
132 4314729d 2004-04-14 devnull 	}
133 4314729d 2004-04-14 devnull }
134 4314729d 2004-04-14 devnull char *items[]={
135 4314729d 2004-04-14 devnull 	"exit",
136 4314729d 2004-04-14 devnull 	0
137 4314729d 2004-04-14 devnull };
138 4314729d 2004-04-14 devnull Menu menu={items};
139 4314729d 2004-04-14 devnull void
140 4314729d 2004-04-14 devnull main(int arc, char *arv[]){
141 4314729d 2004-04-14 devnull 	char *ap;
142 4314729d 2004-04-14 devnull 	Biobuf *bp;
143 4314729d 2004-04-14 devnull 	int fd;
144 4314729d 2004-04-14 devnull 	int i;
145 4314729d 2004-04-14 devnull 	int dflag;
146 4314729d 2004-04-14 devnull 	char *oflag;
147 4314729d 2004-04-14 devnull 	Mouse m;
148 4314729d 2004-04-14 devnull 	bp = 0;
149 4314729d 2004-04-14 devnull 	fd = dup(0, -1);		/* because openpl will close 0! */
150 4314729d 2004-04-14 devnull 	dflag=0;
151 4314729d 2004-04-14 devnull 	oflag="";
152 4314729d 2004-04-14 devnull 	for(i=1;i!=arc;i++) if(arv[i][0]=='-') switch(arv[i][1]){
153 4314729d 2004-04-14 devnull 	case 'd': dflag=1; break;
154 4314729d 2004-04-14 devnull 	case 'o': oflag=arv[i]+2; break;
155 4314729d 2004-04-14 devnull 	case 's': fd=server(); break;
156 4314729d 2004-04-14 devnull 	}
157 4314729d 2004-04-14 devnull 	openpl(oflag);
158 4314729d 2004-04-14 devnull 	if(dflag) doublebuffer();
159 4314729d 2004-04-14 devnull 	for (; arc > 1; arc--, arv++) {
160 4314729d 2004-04-14 devnull 		if (arv[1][0] == '-') {
161 4314729d 2004-04-14 devnull 			ap = arv[1];
162 4314729d 2004-04-14 devnull 			ap++;
163 4314729d 2004-04-14 devnull 			switch (*ap) {
164 4314729d 2004-04-14 devnull 			default:
165 4314729d 2004-04-14 devnull 				fprint(2, "%s not allowed as argument\n", ap);
166 4314729d 2004-04-14 devnull 				exits("usage");
167 4314729d 2004-04-14 devnull 			case 'T': break;
168 4314729d 2004-04-14 devnull 			case 'D': break;
169 4314729d 2004-04-14 devnull 			case 'd': break;
170 4314729d 2004-04-14 devnull 			case 'o': break;
171 4314729d 2004-04-14 devnull 			case 'W': break;
172 4314729d 2004-04-14 devnull 			case 's': break;
173 4314729d 2004-04-14 devnull 			case 'e': erase(); break;
174 4314729d 2004-04-14 devnull 			case 'C': closepl(); break;
175 4314729d 2004-04-14 devnull 			case 'w': ppause(); break;
176 4314729d 2004-04-14 devnull 			case 'c': color(ap+1); break;
177 4314729d 2004-04-14 devnull 			case 'f': cfill(ap+1); break;
178 4314729d 2004-04-14 devnull 			case 'p': pen(ap+1); break;
179 4314729d 2004-04-14 devnull 			case 'g': grade(atof(ap+1)); break;
180 4314729d 2004-04-14 devnull 			}
181 4314729d 2004-04-14 devnull 		}
182 4314729d 2004-04-14 devnull 		else if ((bp = Bopen(arv[1], OREAD)) == 0) {
183 4314729d 2004-04-14 devnull 			perror(arv[1]);
184 4314729d 2004-04-14 devnull 			fprint(2, "Cannot find file %s\n", arv[1]);
185 4314729d 2004-04-14 devnull 		}
186 4314729d 2004-04-14 devnull 		else if(process(bp)) Bterm(fsp->fd);
187 4314729d 2004-04-14 devnull 		else break;
188 4314729d 2004-04-14 devnull 	}
189 4314729d 2004-04-14 devnull 	if (bp == 0){
190 4314729d 2004-04-14 devnull 		bp = malloc(sizeof *bp);
191 4314729d 2004-04-14 devnull 		Binit(bp, fd, OREAD);
192 4314729d 2004-04-14 devnull 		process(bp);
193 4314729d 2004-04-14 devnull 	}
194 4314729d 2004-04-14 devnull 	closepl();
195 4314729d 2004-04-14 devnull 	for(;;){
196 4314729d 2004-04-14 devnull 		m=emouse();
197 4314729d 2004-04-14 devnull 		if(m.buttons&4 && emenuhit(3, &m, &menu)==0) exits(0);
198 4314729d 2004-04-14 devnull 	}
199 4314729d 2004-04-14 devnull }
200 4314729d 2004-04-14 devnull int nextc(void){
201 4314729d 2004-04-14 devnull 	int c;
202 4314729d 2004-04-14 devnull 	Rune r;
203 4314729d 2004-04-14 devnull 	for(;;){
204 4314729d 2004-04-14 devnull 		if(fsp->peekc!=Beof){
205 4314729d 2004-04-14 devnull 			c=fsp->peekc;
206 4314729d 2004-04-14 devnull 			fsp->peekc=Beof;
207 4314729d 2004-04-14 devnull 			return c;
208 4314729d 2004-04-14 devnull 		}
209 4314729d 2004-04-14 devnull 		if(fsp->fd)
210 4314729d 2004-04-14 devnull 			c=Bgetrune(fsp->fd);
211 4314729d 2004-04-14 devnull 		else if(*fsp->corebuf){
212 4314729d 2004-04-14 devnull 			fsp->corebuf+=chartorune(&r, fsp->corebuf);
213 4314729d 2004-04-14 devnull 			c=r;
214 4314729d 2004-04-14 devnull 		}else
215 4314729d 2004-04-14 devnull 			c=Beof;
216 4314729d 2004-04-14 devnull 		if(c!=Beof || fsp==fstack) break;
217 4314729d 2004-04-14 devnull 		if(fsp->fd) Bterm(fsp->fd);
218 4314729d 2004-04-14 devnull 		--fsp;
219 4314729d 2004-04-14 devnull 	}
220 4314729d 2004-04-14 devnull 	if(c=='\n') fsp->lineno++;
221 4314729d 2004-04-14 devnull 	return c;
222 4314729d 2004-04-14 devnull }
223 4314729d 2004-04-14 devnull /*
224 4314729d 2004-04-14 devnull  * Read a string into argstr -- ignores leading spaces
225 4314729d 2004-04-14 devnull  * and an optional leading quote-mark
226 4314729d 2004-04-14 devnull  */
227 4314729d 2004-04-14 devnull void
228 4314729d 2004-04-14 devnull strarg(void){
229 4314729d 2004-04-14 devnull 	int c;
230 4314729d 2004-04-14 devnull 	Rune r;
231 4314729d 2004-04-14 devnull 	int quote=0;
232 4314729d 2004-04-14 devnull 	char *s=argstr;
233 4314729d 2004-04-14 devnull 	do
234 4314729d 2004-04-14 devnull 		c=nextc();
235 4314729d 2004-04-14 devnull 	while(c==' ' || c=='\t');
236 4314729d 2004-04-14 devnull 	if(c=='\'' || c=='"'){
237 4314729d 2004-04-14 devnull 		quote=c;
238 4314729d 2004-04-14 devnull 		c=nextc();
239 4314729d 2004-04-14 devnull 	}
240 4314729d 2004-04-14 devnull 	r = 0;
241 4314729d 2004-04-14 devnull 	while(c!='\n' && c!=Beof){
242 4314729d 2004-04-14 devnull 		r=c;
243 4314729d 2004-04-14 devnull 		s+=runetochar(s, &r);
244 4314729d 2004-04-14 devnull 		c=nextc();
245 4314729d 2004-04-14 devnull 	}
246 4314729d 2004-04-14 devnull 	if(quote && s!=argstr && r==quote) --s;
247 4314729d 2004-04-14 devnull 	*s='\0';
248 4314729d 2004-04-14 devnull }
249 4314729d 2004-04-14 devnull /*
250 4314729d 2004-04-14 devnull  * Read a floating point number into argstr
251 4314729d 2004-04-14 devnull  */
252 4314729d 2004-04-14 devnull int
253 4314729d 2004-04-14 devnull numstring(void){
254 4314729d 2004-04-14 devnull 	int ndp=0;
255 4314729d 2004-04-14 devnull 	int ndig=0;
256 4314729d 2004-04-14 devnull 	char *s=argstr;
257 4314729d 2004-04-14 devnull 	int c=nextc();
258 4314729d 2004-04-14 devnull 	if(c=='+' || c=='-'){
259 4314729d 2004-04-14 devnull 		*s++=c;
260 4314729d 2004-04-14 devnull 		c=nextc();
261 4314729d 2004-04-14 devnull 	}
262 4314729d 2004-04-14 devnull 	while(isdigit(c) || c=='.'){
263 4314729d 2004-04-14 devnull 		if(s!=&argstr[NARGSTR]) *s++=c;
264 4314729d 2004-04-14 devnull 		if(c=='.') ndp++;
265 4314729d 2004-04-14 devnull 		else ndig++;
266 4314729d 2004-04-14 devnull 		c=nextc();
267 4314729d 2004-04-14 devnull 	}
268 4314729d 2004-04-14 devnull 	if(ndp>1 || ndig==0){
269 4314729d 2004-04-14 devnull 		fsp->peekc=c;
270 4314729d 2004-04-14 devnull 		return 0;
271 4314729d 2004-04-14 devnull 	}
272 4314729d 2004-04-14 devnull 	if(c=='e' || c=='E'){
273 4314729d 2004-04-14 devnull 		if(s!=&argstr[NARGSTR]) *s++=c;
274 4314729d 2004-04-14 devnull 		c=nextc();
275 4314729d 2004-04-14 devnull 		if(c=='+' || c=='-'){
276 4314729d 2004-04-14 devnull 			if(s!=&argstr[NARGSTR]) *s++=c;
277 4314729d 2004-04-14 devnull 			c=nextc();
278 4314729d 2004-04-14 devnull 		}
279 4314729d 2004-04-14 devnull 		if(!isdigit(c)){
280 4314729d 2004-04-14 devnull 			fsp->peekc=c;
281 4314729d 2004-04-14 devnull 			return 0;
282 4314729d 2004-04-14 devnull 		}
283 4314729d 2004-04-14 devnull 		while(isdigit(c)){
284 4314729d 2004-04-14 devnull 			if(s!=&argstr[NARGSTR]) *s++=c;
285 4314729d 2004-04-14 devnull 			c=nextc();
286 4314729d 2004-04-14 devnull 		}
287 4314729d 2004-04-14 devnull 	}
288 4314729d 2004-04-14 devnull 	fsp->peekc=c;
289 4314729d 2004-04-14 devnull 	*s='\0';
290 4314729d 2004-04-14 devnull 	return 1;
291 4314729d 2004-04-14 devnull }
292 4314729d 2004-04-14 devnull /*
293 4314729d 2004-04-14 devnull  * Read n numeric arguments, storing them in
294 4314729d 2004-04-14 devnull  * x[0], ..., x[n-1]
295 4314729d 2004-04-14 devnull  */
296 4314729d 2004-04-14 devnull void
297 4314729d 2004-04-14 devnull numargs(int n){
298 4314729d 2004-04-14 devnull 	int i, c;
299 4314729d 2004-04-14 devnull 	for(i=0;i!=n;i++){
300 4314729d 2004-04-14 devnull 		do{
301 4314729d 2004-04-14 devnull 			c=nextc();
302 4314729d 2004-04-14 devnull 		}while(strchr(" \t\n", c) || c!='.' && c!='+' && c!='-' && ispunct(c));
303 4314729d 2004-04-14 devnull 		fsp->peekc=c;
304 4314729d 2004-04-14 devnull 		if(!numstring()){
305 4314729d 2004-04-14 devnull 			fprint(2, "line %d: number expected\n", fsp->lineno);
306 4314729d 2004-04-14 devnull 			exits("input error");
307 4314729d 2004-04-14 devnull 		}
308 4314729d 2004-04-14 devnull 		x[i]=atof(argstr)*fsp->scale;
309 4314729d 2004-04-14 devnull 	}
310 4314729d 2004-04-14 devnull }
311 4314729d 2004-04-14 devnull /*
312 4314729d 2004-04-14 devnull  * Read a list of lists of control vertices, storing points in x[.],
313 4314729d 2004-04-14 devnull  * pointers in pts[.] and counts in cnt[.]
314 4314729d 2004-04-14 devnull  */
315 4314729d 2004-04-14 devnull void
316 4314729d 2004-04-14 devnull polyarg(void){
317 4314729d 2004-04-14 devnull 	int nleft, l, r, c;
318 4314729d 2004-04-14 devnull 	double **ptsp=pts, *xp=x;
319 4314729d 2004-04-14 devnull 	int *cntp=cnt;
320 4314729d 2004-04-14 devnull 	do{
321 4314729d 2004-04-14 devnull 		c=nextc();
322 4314729d 2004-04-14 devnull 	}while(c==' ' || c=='\t');
323 4314729d 2004-04-14 devnull 	if(c=='{'){
324 4314729d 2004-04-14 devnull 		l='{';
325 4314729d 2004-04-14 devnull 		r='}';
326 4314729d 2004-04-14 devnull 	}
327 4314729d 2004-04-14 devnull 	else{
328 4314729d 2004-04-14 devnull 		l=r='\n';
329 4314729d 2004-04-14 devnull 		fsp->peekc=c;
330 4314729d 2004-04-14 devnull 	}
331 4314729d 2004-04-14 devnull 	nleft=1;
332 4314729d 2004-04-14 devnull 	*cntp=0;
333 4314729d 2004-04-14 devnull 	*ptsp=xp;
334 4314729d 2004-04-14 devnull 	for(;;){
335 4314729d 2004-04-14 devnull 		c=nextc();
336 4314729d 2004-04-14 devnull 		if(c==r){
337 4314729d 2004-04-14 devnull 			if(*cntp){
338 4314729d 2004-04-14 devnull 				if(*cntp&1){
339 4314729d 2004-04-14 devnull 					fprint(2, "line %d: phase error\n",
340 4314729d 2004-04-14 devnull 						fsp->lineno);
341 4314729d 2004-04-14 devnull 					exits("bad input");
342 4314729d 2004-04-14 devnull 				}
343 4314729d 2004-04-14 devnull 				*cntp/=2;
344 4314729d 2004-04-14 devnull 				if(ptsp==&pts[NPTS]){
345 4314729d 2004-04-14 devnull 					fprint(2, "line %d: out of polygons\n",
346 4314729d 2004-04-14 devnull 						fsp->lineno);
347 4314729d 2004-04-14 devnull 					exits("exceeded limit");
348 4314729d 2004-04-14 devnull 				}
349 4314729d 2004-04-14 devnull 				*++ptsp=xp;
350 4314729d 2004-04-14 devnull 				*++cntp=0;
351 4314729d 2004-04-14 devnull 			}
352 4314729d 2004-04-14 devnull 			if(--nleft==0) return;
353 4314729d 2004-04-14 devnull 		}
354 4314729d 2004-04-14 devnull 		else switch(c){
355 4314729d 2004-04-14 devnull 		case Beof:  return;
356 4314729d 2004-04-14 devnull 		case ' ':  break;
357 4314729d 2004-04-14 devnull 		case '\t': break;
358 4314729d 2004-04-14 devnull 		case '\n': break;
359 4314729d 2004-04-14 devnull 		case '.': case '+': case '-':
360 4314729d 2004-04-14 devnull 		case '0': case '1': case '2': case '3': case '4':
361 4314729d 2004-04-14 devnull 		case '5': case '6': case '7': case '8': case '9':
362 4314729d 2004-04-14 devnull 			fsp->peekc=c;
363 4314729d 2004-04-14 devnull 			if(!numstring()){
364 4314729d 2004-04-14 devnull 				fprint(2, "line %d: expected number\n", fsp->lineno);
365 4314729d 2004-04-14 devnull 				exits("bad input");
366 4314729d 2004-04-14 devnull 			}
367 4314729d 2004-04-14 devnull 			if(xp==&x[NX]){
368 4314729d 2004-04-14 devnull 				fprint(2, "line %d: out of space\n", fsp->lineno);
369 4314729d 2004-04-14 devnull 				exits("exceeded limit");
370 4314729d 2004-04-14 devnull 			}
371 4314729d 2004-04-14 devnull 			*xp++=atof(argstr);
372 4314729d 2004-04-14 devnull 			++*cntp;
373 4314729d 2004-04-14 devnull 			break;
374 4314729d 2004-04-14 devnull 		default:
375 4314729d 2004-04-14 devnull 			if(c==l) nleft++;
376 4314729d 2004-04-14 devnull 			else if(!ispunct(c)){
377 4314729d 2004-04-14 devnull 				fsp->peekc=c;
378 4314729d 2004-04-14 devnull 				return;
379 4314729d 2004-04-14 devnull 			}
380 4314729d 2004-04-14 devnull 		}
381 4314729d 2004-04-14 devnull 	}
382 4314729d 2004-04-14 devnull }
383 4314729d 2004-04-14 devnull 
384 4314729d 2004-04-14 devnull int
385 4314729d 2004-04-14 devnull process(Biobuf *fd){
386 4314729d 2004-04-14 devnull 	char *s;
387 4314729d 2004-04-14 devnull 	int c;
388 4314729d 2004-04-14 devnull 	fsp=fstack;
389 4314729d 2004-04-14 devnull 	fsp->fd=fd;
390 4314729d 2004-04-14 devnull 	fsp->corebuf=0;
391 4314729d 2004-04-14 devnull 	fsp->peekc=Beof;
392 4314729d 2004-04-14 devnull 	fsp->lineno=1;
393 4314729d 2004-04-14 devnull 	fsp->scale=1.;
394 4314729d 2004-04-14 devnull 	for(;;){
395 4314729d 2004-04-14 devnull 		do
396 4314729d 2004-04-14 devnull 			c=nextc();
397 4314729d 2004-04-14 devnull 		while(c==' ' || c=='\t');
398 4314729d 2004-04-14 devnull 		if(c==':'){
399 4314729d 2004-04-14 devnull 			do
400 4314729d 2004-04-14 devnull 				c=nextc();
401 4314729d 2004-04-14 devnull 			while(c!='\n' && c!=Beof);
402 4314729d 2004-04-14 devnull 			if(c==Beof) break;
403 4314729d 2004-04-14 devnull 			continue;
404 4314729d 2004-04-14 devnull 		}
405 4314729d 2004-04-14 devnull 		while(c=='.'){
406 4314729d 2004-04-14 devnull 			c=nextc();
407 4314729d 2004-04-14 devnull 			if(isdigit(c)){
408 4314729d 2004-04-14 devnull 				if(fsp->fd) Bungetc(fsp->fd);
409 4314729d 2004-04-14 devnull 				else --fsp->corebuf;
410 4314729d 2004-04-14 devnull 				c='.';
411 4314729d 2004-04-14 devnull 				break;
412 4314729d 2004-04-14 devnull 			}
413 4314729d 2004-04-14 devnull 		}
414 4314729d 2004-04-14 devnull 		if(c==Beof) break;
415 4314729d 2004-04-14 devnull 		if(c=='\n') continue;
416 4314729d 2004-04-14 devnull 		if(isalpha(c)){
417 4314729d 2004-04-14 devnull 			s=argstr;
418 4314729d 2004-04-14 devnull 			do{
419 4314729d 2004-04-14 devnull 				if(isupper(c)) c=tolower(c);
420 4314729d 2004-04-14 devnull 				if(s!=&argstr[NARGSTR]) *s++=c;
421 4314729d 2004-04-14 devnull 				c=nextc();
422 4314729d 2004-04-14 devnull 			}while(isalpha(c));
423 4314729d 2004-04-14 devnull 			fsp->peekc=c;
424 4314729d 2004-04-14 devnull 			*s='\0';
425 4314729d 2004-04-14 devnull 			for(pplots=plots;pplots->cc;pplots++)
426 4314729d 2004-04-14 devnull 				if(strncmp(argstr, pplots->cc, pplots->numc)==0)
427 4314729d 2004-04-14 devnull 					break;
428 4314729d 2004-04-14 devnull 			if(pplots->cc==0){
429 4314729d 2004-04-14 devnull 				fprint(2, "line %d, %s unknown\n", fsp->lineno,
430 4314729d 2004-04-14 devnull 					argstr);
431 4314729d 2004-04-14 devnull 				exits("bad command");
432 4314729d 2004-04-14 devnull 			}
433 4314729d 2004-04-14 devnull 		}
434 4314729d 2004-04-14 devnull 		else{
435 4314729d 2004-04-14 devnull 			fsp->peekc=c;
436 4314729d 2004-04-14 devnull 		}
437 4314729d 2004-04-14 devnull 		if(!pplots){
438 4314729d 2004-04-14 devnull 			fprint(2, "line %d, no command!\n", fsp->lineno);
439 4314729d 2004-04-14 devnull 			exits("no command");
440 4314729d 2004-04-14 devnull 		}
441 4314729d 2004-04-14 devnull 		switch(pplots-plots){
442 4314729d 2004-04-14 devnull 		case ARC:	numargs(7); rarc(x[0],x[1],x[2],x[3],x[4],x[5],x[6]); break;
443 4314729d 2004-04-14 devnull 		case BOX:	numargs(4); box(x[0], x[1], x[2], x[3]); break;
444 4314729d 2004-04-14 devnull 		case CALL:	strarg();   call(argstr); pplots=0; break;
445 4314729d 2004-04-14 devnull 		case CFILL:	strarg();   cfill(argstr); pplots=0; break;
446 4314729d 2004-04-14 devnull 		case CIRC:	numargs(3); circ(x[0], x[1], x[2]); break;
447 4314729d 2004-04-14 devnull 		case CLOSEPL:	strarg();   closepl(); pplots=0; break;
448 4314729d 2004-04-14 devnull 		case COLOR:	strarg();   color(argstr); pplots=0; break;
449 4314729d 2004-04-14 devnull 		case CSPLINE:	polyarg();  splin(4, cnt, pts); break;
450 4314729d 2004-04-14 devnull 		case DEFINE:	strarg();   define(argstr); pplots=0; break;
451 4314729d 2004-04-14 devnull 		case DISK:	numargs(3); plotdisc(x[0], x[1], x[2]); break;
452 4314729d 2004-04-14 devnull 		case DSPLINE:	polyarg();  splin(3, cnt, pts); break;
453 4314729d 2004-04-14 devnull 		case ERASE:	strarg();   erase(); pplots=0; break;
454 4314729d 2004-04-14 devnull 		case FILL:	polyarg();  fill(cnt, pts); break;
455 4314729d 2004-04-14 devnull 		case FRAME:	numargs(4); frame(x[0], x[1], x[2], x[3]); break;
456 4314729d 2004-04-14 devnull 		case FSPLINE:	polyarg();  splin(1, cnt, pts); break;
457 4314729d 2004-04-14 devnull 		case GRADE:	numargs(1); grade(x[0]); break;
458 4314729d 2004-04-14 devnull 		case IDLE:	strarg();   idle(); pplots=0; break;
459 4314729d 2004-04-14 devnull 		case INCLUDE:	strarg();   include(argstr); pplots=0; break;
460 4314729d 2004-04-14 devnull 		case LINE:	numargs(4); plotline(x[0], x[1], x[2], x[3]); break;
461 4314729d 2004-04-14 devnull 		case LSPLINE:	polyarg();  splin(2, cnt, pts); break;
462 4314729d 2004-04-14 devnull 		case MOVE:	numargs(2); move(x[0], x[1]); break;
463 4314729d 2004-04-14 devnull 		case OPENPL:	strarg();   openpl(argstr); pplots=0; break;
464 4314729d 2004-04-14 devnull 		case PARABOLA:	numargs(6); parabola(x[0],x[1],x[2],x[3],x[4],x[5]); break;
465 4314729d 2004-04-14 devnull 		case PAUSE:	strarg();   ppause(); pplots=0; break;
466 4314729d 2004-04-14 devnull 		case PEN:	strarg();   pen(argstr); pplots=0; break;
467 4314729d 2004-04-14 devnull 		case POINT:	numargs(2); dpoint(x[0], x[1]); break;
468 4314729d 2004-04-14 devnull 		case POLY:	polyarg();  plotpoly(cnt, pts); break;
469 4314729d 2004-04-14 devnull 		case RANGE:	numargs(4); range(x[0], x[1], x[2], x[3]); break;
470 4314729d 2004-04-14 devnull 		case RESTORE:	strarg();   restore(); pplots=0; break;
471 4314729d 2004-04-14 devnull 		case RMOVE:	numargs(2); rmove(x[0], x[1]); break;
472 4314729d 2004-04-14 devnull 		case RVEC:	numargs(2); rvec(x[0], x[1]); break;
473 4314729d 2004-04-14 devnull 		case SAVE:	strarg();   save(); pplots=0; break;
474 4314729d 2004-04-14 devnull 		case SBOX:	numargs(4); sbox(x[0], x[1], x[2], x[3]); break;
475 4314729d 2004-04-14 devnull 		case SPLINE:	polyarg();  splin(0, cnt, pts); break;
476 4314729d 2004-04-14 devnull 		case TEXT:	strarg();   text(argstr); pplots=0; break;
477 4314729d 2004-04-14 devnull 		case VEC:	numargs(2); vec(x[0], x[1]); break;
478 4314729d 2004-04-14 devnull 		default:
479 4314729d 2004-04-14 devnull 			fprint(2, "plot: missing case %ld\n", pplots-plots);
480 4314729d 2004-04-14 devnull 			exits("internal error");
481 4314729d 2004-04-14 devnull 		}
482 4314729d 2004-04-14 devnull 	}
483 4314729d 2004-04-14 devnull 	return 1;
484 4314729d 2004-04-14 devnull }
485 4314729d 2004-04-14 devnull char *names = 0;
486 4314729d 2004-04-14 devnull char *enames = 0;
487 4314729d 2004-04-14 devnull char *bstash = 0;
488 4314729d 2004-04-14 devnull char *estash = 0;
489 4314729d 2004-04-14 devnull unsigned size = 1024;
490 4314729d 2004-04-14 devnull char *nstash = 0;
491 4314729d 2004-04-14 devnull void define(char *a){
492 4314729d 2004-04-14 devnull 	char	*ap;
493 4314729d 2004-04-14 devnull 	short	i, j;
494 4314729d 2004-04-14 devnull 	int curly = 0;
495 4314729d 2004-04-14 devnull 	ap = a;
496 4314729d 2004-04-14 devnull 	while(isalpha(*ap))ap++;
497 4314729d 2004-04-14 devnull 	if(ap == a){
498 4314729d 2004-04-14 devnull 		fprint(2,"no name with define\n");
499 4314729d 2004-04-14 devnull 		exits("define");
500 4314729d 2004-04-14 devnull 	}
501 4314729d 2004-04-14 devnull 	i = ap - a;
502 4314729d 2004-04-14 devnull 	if(names+i+1 > enames){
503 4314729d 2004-04-14 devnull 		names = malloc((unsigned)512);
504 4314729d 2004-04-14 devnull 		enames = names + 512;
505 4314729d 2004-04-14 devnull 	}
506 4314729d 2004-04-14 devnull 	fptr->name = names;
507 4314729d 2004-04-14 devnull 	strncpy(names, a,i);
508 4314729d 2004-04-14 devnull 	names += i;
509 4314729d 2004-04-14 devnull 	*names++ = '\0';
510 4314729d 2004-04-14 devnull 	if(!bstash){
511 4314729d 2004-04-14 devnull 		bstash = nstash = malloc(size);
512 4314729d 2004-04-14 devnull 		estash = bstash + size;
513 4314729d 2004-04-14 devnull 	}
514 4314729d 2004-04-14 devnull 	fptr->stash = nstash;
515 4314729d 2004-04-14 devnull 	while(*ap != '{')
516 4314729d 2004-04-14 devnull 		if(*ap == '\n'){
517 4314729d 2004-04-14 devnull 			if((ap=Brdline(fsp->fd, '\n'))==0){
518 4314729d 2004-04-14 devnull 				fprint(2,"unexpected end of file\n");
519 4314729d 2004-04-14 devnull 				exits("eof");
520 4314729d 2004-04-14 devnull 			}
521 4314729d 2004-04-14 devnull 		}
522 4314729d 2004-04-14 devnull 		else ap++;
523 4314729d 2004-04-14 devnull 	while((j=Bgetc(fsp->fd))!= Beof){
524 4314729d 2004-04-14 devnull 		if(j == '{')curly++;
525 4314729d 2004-04-14 devnull 		else if(j == '}'){
526 4314729d 2004-04-14 devnull 			if(curly == 0)break;
527 4314729d 2004-04-14 devnull 			else curly--;
528 4314729d 2004-04-14 devnull 		}
529 4314729d 2004-04-14 devnull 		*nstash++ = j;
530 4314729d 2004-04-14 devnull 		if(nstash == estash){
531 4314729d 2004-04-14 devnull 			free(bstash);
532 4314729d 2004-04-14 devnull 			size += 1024;
533 4314729d 2004-04-14 devnull 			bstash = realloc(bstash,size);
534 4314729d 2004-04-14 devnull 			estash = bstash+size;
535 4314729d 2004-04-14 devnull 		}
536 4314729d 2004-04-14 devnull 	}
537 4314729d 2004-04-14 devnull 	*nstash++ = '\0';
538 4314729d 2004-04-14 devnull 	if(fptr++ >= &flibr[MAXL]){
539 4314729d 2004-04-14 devnull 		fprint(2,"Too many objects\n");
540 4314729d 2004-04-14 devnull 		exits("too many objects");
541 4314729d 2004-04-14 devnull 	}
542 4314729d 2004-04-14 devnull }
543 4314729d 2004-04-14 devnull void call(char *a){
544 4314729d 2004-04-14 devnull 	char *ap;
545 4314729d 2004-04-14 devnull 	struct fcall *f;
546 4314729d 2004-04-14 devnull 	char sav;
547 4314729d 2004-04-14 devnull 	double SC;
548 4314729d 2004-04-14 devnull 	ap = a;
549 4314729d 2004-04-14 devnull 	while(isalpha(*ap))ap++;
550 4314729d 2004-04-14 devnull 	sav = *ap;
551 4314729d 2004-04-14 devnull 	*ap = '\0';
552 4314729d 2004-04-14 devnull 	for(f=flibr;f<fptr;f++){
553 4314729d 2004-04-14 devnull 		if (!(strcmp(a, f->name)))
554 4314729d 2004-04-14 devnull 			break;
555 4314729d 2004-04-14 devnull 	}
556 4314729d 2004-04-14 devnull 	if(f == fptr){
557 4314729d 2004-04-14 devnull 		fprint(2, "object %s not defined\n",a);
558 4314729d 2004-04-14 devnull 		exits("undefined");
559 4314729d 2004-04-14 devnull 	}
560 4314729d 2004-04-14 devnull 	*ap = sav;
561 4314729d 2004-04-14 devnull 	while (isspace(*ap) || *ap == ',') 
562 4314729d 2004-04-14 devnull 		ap++;
563 4314729d 2004-04-14 devnull 	if (*ap != '\0')
564 4314729d 2004-04-14 devnull 		SC = atof(ap);
565 4314729d 2004-04-14 devnull 	else SC = 1.;
566 4314729d 2004-04-14 devnull 	if(++fsp==&fstack[NFSTACK]){
567 4314729d 2004-04-14 devnull 		fprint(2, "input stack overflow\n");
568 4314729d 2004-04-14 devnull 		exits("blew stack");
569 4314729d 2004-04-14 devnull 	}
570 4314729d 2004-04-14 devnull 	fsp->peekc=Beof;
571 4314729d 2004-04-14 devnull 	fsp->lineno=1;
572 4314729d 2004-04-14 devnull 	fsp->corebuf=f->stash;
573 4314729d 2004-04-14 devnull 	fsp->fd=0;
574 4314729d 2004-04-14 devnull 	fsp->scale=fsp[-1].scale*SC;
575 4314729d 2004-04-14 devnull }
576 4314729d 2004-04-14 devnull void include(char *a){
577 4314729d 2004-04-14 devnull 	Biobuf *fd;
578 4314729d 2004-04-14 devnull 	fd=Bopen(a, OREAD);
579 4314729d 2004-04-14 devnull 	if(fd==0){
580 4314729d 2004-04-14 devnull 		perror(a);
581 4314729d 2004-04-14 devnull 		exits("can't include");
582 4314729d 2004-04-14 devnull 	}
583 4314729d 2004-04-14 devnull 	if(++fsp==&fstack[NFSTACK]){
584 4314729d 2004-04-14 devnull 		fprint(2, "input stack overflow\n");
585 4314729d 2004-04-14 devnull 		exits("blew stack");
586 4314729d 2004-04-14 devnull 	}
587 4314729d 2004-04-14 devnull 	fsp->peekc=Beof;
588 4314729d 2004-04-14 devnull 	fsp->lineno=1;
589 4314729d 2004-04-14 devnull 	fsp->corebuf=0;
590 4314729d 2004-04-14 devnull 	fsp->fd=fd;
591 4314729d 2004-04-14 devnull }
592 4314729d 2004-04-14 devnull /*
593 4314729d 2004-04-14 devnull  * Doesn't work.  Why?
594 4314729d 2004-04-14 devnull  */
595 4314729d 2004-04-14 devnull int server(void){
596 4314729d 2004-04-14 devnull 	int fd, p[2];
597 4314729d 2004-04-14 devnull 	char buf[32];
598 4314729d 2004-04-14 devnull 	pipe(p);
599 4314729d 2004-04-14 devnull 	fd = create("/srv/plot", 1, 0666);
600 4314729d 2004-04-14 devnull 	sprint(buf, "%d", p[1]);
601 4314729d 2004-04-14 devnull 	write(fd, buf, strlen(buf));
602 4314729d 2004-04-14 devnull 	close(fd);
603 4314729d 2004-04-14 devnull 	close(p[1]);
604 4314729d 2004-04-14 devnull 	return p[0];
605 4314729d 2004-04-14 devnull }