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 cbeb0b26 2006-04-01 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 be36ff68 2004-04-29 devnull 	winsize = "512x512";
153 4314729d 2004-04-14 devnull 	for(i=1;i!=arc;i++) if(arv[i][0]=='-') switch(arv[i][1]){
154 4314729d 2004-04-14 devnull 	case 'd': dflag=1; break;
155 4314729d 2004-04-14 devnull 	case 'o': oflag=arv[i]+2; break;
156 4314729d 2004-04-14 devnull 	case 's': fd=server(); break;
157 4314729d 2004-04-14 devnull 	}
158 4314729d 2004-04-14 devnull 	openpl(oflag);
159 4314729d 2004-04-14 devnull 	if(dflag) doublebuffer();
160 4314729d 2004-04-14 devnull 	for (; arc > 1; arc--, arv++) {
161 4314729d 2004-04-14 devnull 		if (arv[1][0] == '-') {
162 4314729d 2004-04-14 devnull 			ap = arv[1];
163 4314729d 2004-04-14 devnull 			ap++;
164 4314729d 2004-04-14 devnull 			switch (*ap) {
165 4314729d 2004-04-14 devnull 			default:
166 4314729d 2004-04-14 devnull 				fprint(2, "%s not allowed as argument\n", ap);
167 4314729d 2004-04-14 devnull 				exits("usage");
168 4314729d 2004-04-14 devnull 			case 'T': break;
169 4314729d 2004-04-14 devnull 			case 'D': break;
170 4314729d 2004-04-14 devnull 			case 'd': break;
171 4314729d 2004-04-14 devnull 			case 'o': 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 be36ff68 2004-04-29 devnull 			case 'W': winsize = ap+1; break;
181 4314729d 2004-04-14 devnull 			}
182 4314729d 2004-04-14 devnull 		}
183 4314729d 2004-04-14 devnull 		else if ((bp = Bopen(arv[1], OREAD)) == 0) {
184 4314729d 2004-04-14 devnull 			perror(arv[1]);
185 4314729d 2004-04-14 devnull 			fprint(2, "Cannot find file %s\n", arv[1]);
186 4314729d 2004-04-14 devnull 		}
187 4314729d 2004-04-14 devnull 		else if(process(bp)) Bterm(fsp->fd);
188 4314729d 2004-04-14 devnull 		else break;
189 4314729d 2004-04-14 devnull 	}
190 4314729d 2004-04-14 devnull 	if (bp == 0){
191 4314729d 2004-04-14 devnull 		bp = malloc(sizeof *bp);
192 4314729d 2004-04-14 devnull 		Binit(bp, fd, OREAD);
193 4314729d 2004-04-14 devnull 		process(bp);
194 4314729d 2004-04-14 devnull 	}
195 4314729d 2004-04-14 devnull 	closepl();
196 4314729d 2004-04-14 devnull 	for(;;){
197 4314729d 2004-04-14 devnull 		m=emouse();
198 4314729d 2004-04-14 devnull 		if(m.buttons&4 && emenuhit(3, &m, &menu)==0) exits(0);
199 4314729d 2004-04-14 devnull 	}
200 4314729d 2004-04-14 devnull }
201 4314729d 2004-04-14 devnull int nextc(void){
202 4314729d 2004-04-14 devnull 	int c;
203 4314729d 2004-04-14 devnull 	Rune r;
204 4314729d 2004-04-14 devnull 	for(;;){
205 4314729d 2004-04-14 devnull 		if(fsp->peekc!=Beof){
206 4314729d 2004-04-14 devnull 			c=fsp->peekc;
207 4314729d 2004-04-14 devnull 			fsp->peekc=Beof;
208 4314729d 2004-04-14 devnull 			return c;
209 4314729d 2004-04-14 devnull 		}
210 4314729d 2004-04-14 devnull 		if(fsp->fd)
211 4314729d 2004-04-14 devnull 			c=Bgetrune(fsp->fd);
212 4314729d 2004-04-14 devnull 		else if(*fsp->corebuf){
213 4314729d 2004-04-14 devnull 			fsp->corebuf+=chartorune(&r, fsp->corebuf);
214 4314729d 2004-04-14 devnull 			c=r;
215 4314729d 2004-04-14 devnull 		}else
216 4314729d 2004-04-14 devnull 			c=Beof;
217 4314729d 2004-04-14 devnull 		if(c!=Beof || fsp==fstack) break;
218 4314729d 2004-04-14 devnull 		if(fsp->fd) Bterm(fsp->fd);
219 4314729d 2004-04-14 devnull 		--fsp;
220 4314729d 2004-04-14 devnull 	}
221 4314729d 2004-04-14 devnull 	if(c=='\n') fsp->lineno++;
222 4314729d 2004-04-14 devnull 	return c;
223 4314729d 2004-04-14 devnull }
224 4314729d 2004-04-14 devnull /*
225 4314729d 2004-04-14 devnull  * Read a string into argstr -- ignores leading spaces
226 4314729d 2004-04-14 devnull  * and an optional leading quote-mark
227 4314729d 2004-04-14 devnull  */
228 4314729d 2004-04-14 devnull void
229 4314729d 2004-04-14 devnull strarg(void){
230 4314729d 2004-04-14 devnull 	int c;
231 4314729d 2004-04-14 devnull 	Rune r;
232 4314729d 2004-04-14 devnull 	int quote=0;
233 4314729d 2004-04-14 devnull 	char *s=argstr;
234 4314729d 2004-04-14 devnull 	do
235 4314729d 2004-04-14 devnull 		c=nextc();
236 4314729d 2004-04-14 devnull 	while(c==' ' || c=='\t');
237 4314729d 2004-04-14 devnull 	if(c=='\'' || c=='"'){
238 4314729d 2004-04-14 devnull 		quote=c;
239 4314729d 2004-04-14 devnull 		c=nextc();
240 4314729d 2004-04-14 devnull 	}
241 4314729d 2004-04-14 devnull 	r = 0;
242 4314729d 2004-04-14 devnull 	while(c!='\n' && c!=Beof){
243 4314729d 2004-04-14 devnull 		r=c;
244 4314729d 2004-04-14 devnull 		s+=runetochar(s, &r);
245 4314729d 2004-04-14 devnull 		c=nextc();
246 4314729d 2004-04-14 devnull 	}
247 4314729d 2004-04-14 devnull 	if(quote && s!=argstr && r==quote) --s;
248 4314729d 2004-04-14 devnull 	*s='\0';
249 4314729d 2004-04-14 devnull }
250 4314729d 2004-04-14 devnull /*
251 4314729d 2004-04-14 devnull  * Read a floating point number into argstr
252 4314729d 2004-04-14 devnull  */
253 4314729d 2004-04-14 devnull int
254 4314729d 2004-04-14 devnull numstring(void){
255 4314729d 2004-04-14 devnull 	int ndp=0;
256 4314729d 2004-04-14 devnull 	int ndig=0;
257 4314729d 2004-04-14 devnull 	char *s=argstr;
258 4314729d 2004-04-14 devnull 	int c=nextc();
259 4314729d 2004-04-14 devnull 	if(c=='+' || c=='-'){
260 4314729d 2004-04-14 devnull 		*s++=c;
261 4314729d 2004-04-14 devnull 		c=nextc();
262 4314729d 2004-04-14 devnull 	}
263 4314729d 2004-04-14 devnull 	while(isdigit(c) || c=='.'){
264 4314729d 2004-04-14 devnull 		if(s!=&argstr[NARGSTR]) *s++=c;
265 4314729d 2004-04-14 devnull 		if(c=='.') ndp++;
266 4314729d 2004-04-14 devnull 		else ndig++;
267 4314729d 2004-04-14 devnull 		c=nextc();
268 4314729d 2004-04-14 devnull 	}
269 4314729d 2004-04-14 devnull 	if(ndp>1 || ndig==0){
270 4314729d 2004-04-14 devnull 		fsp->peekc=c;
271 4314729d 2004-04-14 devnull 		return 0;
272 4314729d 2004-04-14 devnull 	}
273 4314729d 2004-04-14 devnull 	if(c=='e' || c=='E'){
274 4314729d 2004-04-14 devnull 		if(s!=&argstr[NARGSTR]) *s++=c;
275 4314729d 2004-04-14 devnull 		c=nextc();
276 4314729d 2004-04-14 devnull 		if(c=='+' || c=='-'){
277 4314729d 2004-04-14 devnull 			if(s!=&argstr[NARGSTR]) *s++=c;
278 4314729d 2004-04-14 devnull 			c=nextc();
279 4314729d 2004-04-14 devnull 		}
280 4314729d 2004-04-14 devnull 		if(!isdigit(c)){
281 4314729d 2004-04-14 devnull 			fsp->peekc=c;
282 4314729d 2004-04-14 devnull 			return 0;
283 4314729d 2004-04-14 devnull 		}
284 4314729d 2004-04-14 devnull 		while(isdigit(c)){
285 4314729d 2004-04-14 devnull 			if(s!=&argstr[NARGSTR]) *s++=c;
286 4314729d 2004-04-14 devnull 			c=nextc();
287 4314729d 2004-04-14 devnull 		}
288 4314729d 2004-04-14 devnull 	}
289 4314729d 2004-04-14 devnull 	fsp->peekc=c;
290 4314729d 2004-04-14 devnull 	*s='\0';
291 4314729d 2004-04-14 devnull 	return 1;
292 4314729d 2004-04-14 devnull }
293 4314729d 2004-04-14 devnull /*
294 4314729d 2004-04-14 devnull  * Read n numeric arguments, storing them in
295 4314729d 2004-04-14 devnull  * x[0], ..., x[n-1]
296 4314729d 2004-04-14 devnull  */
297 4314729d 2004-04-14 devnull void
298 4314729d 2004-04-14 devnull numargs(int n){
299 4314729d 2004-04-14 devnull 	int i, c;
300 4314729d 2004-04-14 devnull 	for(i=0;i!=n;i++){
301 4314729d 2004-04-14 devnull 		do{
302 4314729d 2004-04-14 devnull 			c=nextc();
303 4314729d 2004-04-14 devnull 		}while(strchr(" \t\n", c) || c!='.' && c!='+' && c!='-' && ispunct(c));
304 4314729d 2004-04-14 devnull 		fsp->peekc=c;
305 4314729d 2004-04-14 devnull 		if(!numstring()){
306 4314729d 2004-04-14 devnull 			fprint(2, "line %d: number expected\n", fsp->lineno);
307 4314729d 2004-04-14 devnull 			exits("input error");
308 4314729d 2004-04-14 devnull 		}
309 4314729d 2004-04-14 devnull 		x[i]=atof(argstr)*fsp->scale;
310 4314729d 2004-04-14 devnull 	}
311 4314729d 2004-04-14 devnull }
312 4314729d 2004-04-14 devnull /*
313 4314729d 2004-04-14 devnull  * Read a list of lists of control vertices, storing points in x[.],
314 4314729d 2004-04-14 devnull  * pointers in pts[.] and counts in cnt[.]
315 4314729d 2004-04-14 devnull  */
316 4314729d 2004-04-14 devnull void
317 4314729d 2004-04-14 devnull polyarg(void){
318 4314729d 2004-04-14 devnull 	int nleft, l, r, c;
319 4314729d 2004-04-14 devnull 	double **ptsp=pts, *xp=x;
320 4314729d 2004-04-14 devnull 	int *cntp=cnt;
321 4314729d 2004-04-14 devnull 	do{
322 4314729d 2004-04-14 devnull 		c=nextc();
323 4314729d 2004-04-14 devnull 	}while(c==' ' || c=='\t');
324 4314729d 2004-04-14 devnull 	if(c=='{'){
325 4314729d 2004-04-14 devnull 		l='{';
326 4314729d 2004-04-14 devnull 		r='}';
327 4314729d 2004-04-14 devnull 	}
328 4314729d 2004-04-14 devnull 	else{
329 4314729d 2004-04-14 devnull 		l=r='\n';
330 4314729d 2004-04-14 devnull 		fsp->peekc=c;
331 4314729d 2004-04-14 devnull 	}
332 4314729d 2004-04-14 devnull 	nleft=1;
333 4314729d 2004-04-14 devnull 	*cntp=0;
334 4314729d 2004-04-14 devnull 	*ptsp=xp;
335 4314729d 2004-04-14 devnull 	for(;;){
336 4314729d 2004-04-14 devnull 		c=nextc();
337 4314729d 2004-04-14 devnull 		if(c==r){
338 4314729d 2004-04-14 devnull 			if(*cntp){
339 4314729d 2004-04-14 devnull 				if(*cntp&1){
340 4314729d 2004-04-14 devnull 					fprint(2, "line %d: phase error\n",
341 4314729d 2004-04-14 devnull 						fsp->lineno);
342 4314729d 2004-04-14 devnull 					exits("bad input");
343 4314729d 2004-04-14 devnull 				}
344 4314729d 2004-04-14 devnull 				*cntp/=2;
345 4314729d 2004-04-14 devnull 				if(ptsp==&pts[NPTS]){
346 4314729d 2004-04-14 devnull 					fprint(2, "line %d: out of polygons\n",
347 4314729d 2004-04-14 devnull 						fsp->lineno);
348 4314729d 2004-04-14 devnull 					exits("exceeded limit");
349 4314729d 2004-04-14 devnull 				}
350 4314729d 2004-04-14 devnull 				*++ptsp=xp;
351 4314729d 2004-04-14 devnull 				*++cntp=0;
352 4314729d 2004-04-14 devnull 			}
353 4314729d 2004-04-14 devnull 			if(--nleft==0) return;
354 4314729d 2004-04-14 devnull 		}
355 4314729d 2004-04-14 devnull 		else switch(c){
356 4314729d 2004-04-14 devnull 		case Beof:  return;
357 4314729d 2004-04-14 devnull 		case ' ':  break;
358 4314729d 2004-04-14 devnull 		case '\t': break;
359 4314729d 2004-04-14 devnull 		case '\n': break;
360 4314729d 2004-04-14 devnull 		case '.': case '+': case '-':
361 4314729d 2004-04-14 devnull 		case '0': case '1': case '2': case '3': case '4':
362 4314729d 2004-04-14 devnull 		case '5': case '6': case '7': case '8': case '9':
363 4314729d 2004-04-14 devnull 			fsp->peekc=c;
364 4314729d 2004-04-14 devnull 			if(!numstring()){
365 4314729d 2004-04-14 devnull 				fprint(2, "line %d: expected number\n", fsp->lineno);
366 4314729d 2004-04-14 devnull 				exits("bad input");
367 4314729d 2004-04-14 devnull 			}
368 4314729d 2004-04-14 devnull 			if(xp==&x[NX]){
369 4314729d 2004-04-14 devnull 				fprint(2, "line %d: out of space\n", fsp->lineno);
370 4314729d 2004-04-14 devnull 				exits("exceeded limit");
371 4314729d 2004-04-14 devnull 			}
372 4314729d 2004-04-14 devnull 			*xp++=atof(argstr);
373 4314729d 2004-04-14 devnull 			++*cntp;
374 4314729d 2004-04-14 devnull 			break;
375 4314729d 2004-04-14 devnull 		default:
376 4314729d 2004-04-14 devnull 			if(c==l) nleft++;
377 4314729d 2004-04-14 devnull 			else if(!ispunct(c)){
378 4314729d 2004-04-14 devnull 				fsp->peekc=c;
379 4314729d 2004-04-14 devnull 				return;
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 
385 4314729d 2004-04-14 devnull int
386 4314729d 2004-04-14 devnull process(Biobuf *fd){
387 4314729d 2004-04-14 devnull 	char *s;
388 4314729d 2004-04-14 devnull 	int c;
389 4314729d 2004-04-14 devnull 	fsp=fstack;
390 4314729d 2004-04-14 devnull 	fsp->fd=fd;
391 4314729d 2004-04-14 devnull 	fsp->corebuf=0;
392 4314729d 2004-04-14 devnull 	fsp->peekc=Beof;
393 4314729d 2004-04-14 devnull 	fsp->lineno=1;
394 4314729d 2004-04-14 devnull 	fsp->scale=1.;
395 4314729d 2004-04-14 devnull 	for(;;){
396 4314729d 2004-04-14 devnull 		do
397 4314729d 2004-04-14 devnull 			c=nextc();
398 4314729d 2004-04-14 devnull 		while(c==' ' || c=='\t');
399 4314729d 2004-04-14 devnull 		if(c==':'){
400 4314729d 2004-04-14 devnull 			do
401 4314729d 2004-04-14 devnull 				c=nextc();
402 4314729d 2004-04-14 devnull 			while(c!='\n' && c!=Beof);
403 4314729d 2004-04-14 devnull 			if(c==Beof) break;
404 4314729d 2004-04-14 devnull 			continue;
405 4314729d 2004-04-14 devnull 		}
406 4314729d 2004-04-14 devnull 		while(c=='.'){
407 4314729d 2004-04-14 devnull 			c=nextc();
408 4314729d 2004-04-14 devnull 			if(isdigit(c)){
409 4314729d 2004-04-14 devnull 				if(fsp->fd) Bungetc(fsp->fd);
410 4314729d 2004-04-14 devnull 				else --fsp->corebuf;
411 4314729d 2004-04-14 devnull 				c='.';
412 4314729d 2004-04-14 devnull 				break;
413 4314729d 2004-04-14 devnull 			}
414 4314729d 2004-04-14 devnull 		}
415 4314729d 2004-04-14 devnull 		if(c==Beof) break;
416 4314729d 2004-04-14 devnull 		if(c=='\n') continue;
417 4314729d 2004-04-14 devnull 		if(isalpha(c)){
418 4314729d 2004-04-14 devnull 			s=argstr;
419 4314729d 2004-04-14 devnull 			do{
420 4314729d 2004-04-14 devnull 				if(isupper(c)) c=tolower(c);
421 4314729d 2004-04-14 devnull 				if(s!=&argstr[NARGSTR]) *s++=c;
422 4314729d 2004-04-14 devnull 				c=nextc();
423 4314729d 2004-04-14 devnull 			}while(isalpha(c));
424 4314729d 2004-04-14 devnull 			fsp->peekc=c;
425 4314729d 2004-04-14 devnull 			*s='\0';
426 4314729d 2004-04-14 devnull 			for(pplots=plots;pplots->cc;pplots++)
427 4314729d 2004-04-14 devnull 				if(strncmp(argstr, pplots->cc, pplots->numc)==0)
428 4314729d 2004-04-14 devnull 					break;
429 4314729d 2004-04-14 devnull 			if(pplots->cc==0){
430 4314729d 2004-04-14 devnull 				fprint(2, "line %d, %s unknown\n", fsp->lineno,
431 4314729d 2004-04-14 devnull 					argstr);
432 4314729d 2004-04-14 devnull 				exits("bad command");
433 4314729d 2004-04-14 devnull 			}
434 4314729d 2004-04-14 devnull 		}
435 4314729d 2004-04-14 devnull 		else{
436 4314729d 2004-04-14 devnull 			fsp->peekc=c;
437 4314729d 2004-04-14 devnull 		}
438 4314729d 2004-04-14 devnull 		if(!pplots){
439 4314729d 2004-04-14 devnull 			fprint(2, "line %d, no command!\n", fsp->lineno);
440 4314729d 2004-04-14 devnull 			exits("no command");
441 4314729d 2004-04-14 devnull 		}
442 4314729d 2004-04-14 devnull 		switch(pplots-plots){
443 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;
444 4314729d 2004-04-14 devnull 		case BOX:	numargs(4); box(x[0], x[1], x[2], x[3]); break;
445 4314729d 2004-04-14 devnull 		case CALL:	strarg();   call(argstr); pplots=0; break;
446 4314729d 2004-04-14 devnull 		case CFILL:	strarg();   cfill(argstr); pplots=0; break;
447 4314729d 2004-04-14 devnull 		case CIRC:	numargs(3); circ(x[0], x[1], x[2]); break;
448 4314729d 2004-04-14 devnull 		case CLOSEPL:	strarg();   closepl(); pplots=0; break;
449 4314729d 2004-04-14 devnull 		case COLOR:	strarg();   color(argstr); pplots=0; break;
450 4314729d 2004-04-14 devnull 		case CSPLINE:	polyarg();  splin(4, cnt, pts); break;
451 4314729d 2004-04-14 devnull 		case DEFINE:	strarg();   define(argstr); pplots=0; break;
452 4314729d 2004-04-14 devnull 		case DISK:	numargs(3); plotdisc(x[0], x[1], x[2]); break;
453 4314729d 2004-04-14 devnull 		case DSPLINE:	polyarg();  splin(3, cnt, pts); break;
454 4314729d 2004-04-14 devnull 		case ERASE:	strarg();   erase(); pplots=0; break;
455 4314729d 2004-04-14 devnull 		case FILL:	polyarg();  fill(cnt, pts); break;
456 4314729d 2004-04-14 devnull 		case FRAME:	numargs(4); frame(x[0], x[1], x[2], x[3]); break;
457 4314729d 2004-04-14 devnull 		case FSPLINE:	polyarg();  splin(1, cnt, pts); break;
458 4314729d 2004-04-14 devnull 		case GRADE:	numargs(1); grade(x[0]); break;
459 4314729d 2004-04-14 devnull 		case IDLE:	strarg();   idle(); pplots=0; break;
460 4314729d 2004-04-14 devnull 		case INCLUDE:	strarg();   include(argstr); pplots=0; break;
461 4314729d 2004-04-14 devnull 		case LINE:	numargs(4); plotline(x[0], x[1], x[2], x[3]); break;
462 4314729d 2004-04-14 devnull 		case LSPLINE:	polyarg();  splin(2, cnt, pts); break;
463 4314729d 2004-04-14 devnull 		case MOVE:	numargs(2); move(x[0], x[1]); break;
464 4314729d 2004-04-14 devnull 		case OPENPL:	strarg();   openpl(argstr); pplots=0; break;
465 4314729d 2004-04-14 devnull 		case PARABOLA:	numargs(6); parabola(x[0],x[1],x[2],x[3],x[4],x[5]); break;
466 4314729d 2004-04-14 devnull 		case PAUSE:	strarg();   ppause(); pplots=0; break;
467 4314729d 2004-04-14 devnull 		case PEN:	strarg();   pen(argstr); pplots=0; break;
468 4314729d 2004-04-14 devnull 		case POINT:	numargs(2); dpoint(x[0], x[1]); break;
469 4314729d 2004-04-14 devnull 		case POLY:	polyarg();  plotpoly(cnt, pts); break;
470 4314729d 2004-04-14 devnull 		case RANGE:	numargs(4); range(x[0], x[1], x[2], x[3]); break;
471 4314729d 2004-04-14 devnull 		case RESTORE:	strarg();   restore(); pplots=0; break;
472 4314729d 2004-04-14 devnull 		case RMOVE:	numargs(2); rmove(x[0], x[1]); break;
473 4314729d 2004-04-14 devnull 		case RVEC:	numargs(2); rvec(x[0], x[1]); break;
474 4314729d 2004-04-14 devnull 		case SAVE:	strarg();   save(); pplots=0; break;
475 4314729d 2004-04-14 devnull 		case SBOX:	numargs(4); sbox(x[0], x[1], x[2], x[3]); break;
476 4314729d 2004-04-14 devnull 		case SPLINE:	polyarg();  splin(0, cnt, pts); break;
477 4314729d 2004-04-14 devnull 		case TEXT:	strarg();   text(argstr); pplots=0; break;
478 4314729d 2004-04-14 devnull 		case VEC:	numargs(2); vec(x[0], x[1]); break;
479 4314729d 2004-04-14 devnull 		default:
480 4314729d 2004-04-14 devnull 			fprint(2, "plot: missing case %ld\n", pplots-plots);
481 4314729d 2004-04-14 devnull 			exits("internal error");
482 4314729d 2004-04-14 devnull 		}
483 4314729d 2004-04-14 devnull 	}
484 4314729d 2004-04-14 devnull 	return 1;
485 4314729d 2004-04-14 devnull }
486 4314729d 2004-04-14 devnull char *names = 0;
487 4314729d 2004-04-14 devnull char *enames = 0;
488 4314729d 2004-04-14 devnull char *bstash = 0;
489 4314729d 2004-04-14 devnull char *estash = 0;
490 4314729d 2004-04-14 devnull unsigned size = 1024;
491 4314729d 2004-04-14 devnull char *nstash = 0;
492 4314729d 2004-04-14 devnull void define(char *a){
493 4314729d 2004-04-14 devnull 	char	*ap;
494 4314729d 2004-04-14 devnull 	short	i, j;
495 4314729d 2004-04-14 devnull 	int curly = 0;
496 4314729d 2004-04-14 devnull 	ap = a;
497 3bd56b04 2005-09-09 devnull 	while(isalpha((uchar)*ap))ap++;
498 4314729d 2004-04-14 devnull 	if(ap == a){
499 4314729d 2004-04-14 devnull 		fprint(2,"no name with define\n");
500 4314729d 2004-04-14 devnull 		exits("define");
501 4314729d 2004-04-14 devnull 	}
502 4314729d 2004-04-14 devnull 	i = ap - a;
503 4314729d 2004-04-14 devnull 	if(names+i+1 > enames){
504 4314729d 2004-04-14 devnull 		names = malloc((unsigned)512);
505 4314729d 2004-04-14 devnull 		enames = names + 512;
506 4314729d 2004-04-14 devnull 	}
507 4314729d 2004-04-14 devnull 	fptr->name = names;
508 4314729d 2004-04-14 devnull 	strncpy(names, a,i);
509 4314729d 2004-04-14 devnull 	names += i;
510 4314729d 2004-04-14 devnull 	*names++ = '\0';
511 4314729d 2004-04-14 devnull 	if(!bstash){
512 4314729d 2004-04-14 devnull 		bstash = nstash = malloc(size);
513 4314729d 2004-04-14 devnull 		estash = bstash + size;
514 4314729d 2004-04-14 devnull 	}
515 4314729d 2004-04-14 devnull 	fptr->stash = nstash;
516 4314729d 2004-04-14 devnull 	while(*ap != '{')
517 4314729d 2004-04-14 devnull 		if(*ap == '\n'){
518 4314729d 2004-04-14 devnull 			if((ap=Brdline(fsp->fd, '\n'))==0){
519 4314729d 2004-04-14 devnull 				fprint(2,"unexpected end of file\n");
520 4314729d 2004-04-14 devnull 				exits("eof");
521 4314729d 2004-04-14 devnull 			}
522 4314729d 2004-04-14 devnull 		}
523 4314729d 2004-04-14 devnull 		else ap++;
524 4314729d 2004-04-14 devnull 	while((j=Bgetc(fsp->fd))!= Beof){
525 4314729d 2004-04-14 devnull 		if(j == '{')curly++;
526 4314729d 2004-04-14 devnull 		else if(j == '}'){
527 4314729d 2004-04-14 devnull 			if(curly == 0)break;
528 4314729d 2004-04-14 devnull 			else curly--;
529 4314729d 2004-04-14 devnull 		}
530 4314729d 2004-04-14 devnull 		*nstash++ = j;
531 4314729d 2004-04-14 devnull 		if(nstash == estash){
532 4314729d 2004-04-14 devnull 			free(bstash);
533 4314729d 2004-04-14 devnull 			size += 1024;
534 4314729d 2004-04-14 devnull 			bstash = realloc(bstash,size);
535 4314729d 2004-04-14 devnull 			estash = bstash+size;
536 4314729d 2004-04-14 devnull 		}
537 4314729d 2004-04-14 devnull 	}
538 4314729d 2004-04-14 devnull 	*nstash++ = '\0';
539 4314729d 2004-04-14 devnull 	if(fptr++ >= &flibr[MAXL]){
540 4314729d 2004-04-14 devnull 		fprint(2,"Too many objects\n");
541 4314729d 2004-04-14 devnull 		exits("too many objects");
542 4314729d 2004-04-14 devnull 	}
543 4314729d 2004-04-14 devnull }
544 4314729d 2004-04-14 devnull void call(char *a){
545 4314729d 2004-04-14 devnull 	char *ap;
546 4314729d 2004-04-14 devnull 	struct fcall *f;
547 4314729d 2004-04-14 devnull 	char sav;
548 4314729d 2004-04-14 devnull 	double SC;
549 4314729d 2004-04-14 devnull 	ap = a;
550 3bd56b04 2005-09-09 devnull 	while(isalpha((uchar)*ap))ap++;
551 4314729d 2004-04-14 devnull 	sav = *ap;
552 4314729d 2004-04-14 devnull 	*ap = '\0';
553 4314729d 2004-04-14 devnull 	for(f=flibr;f<fptr;f++){
554 4314729d 2004-04-14 devnull 		if (!(strcmp(a, f->name)))
555 4314729d 2004-04-14 devnull 			break;
556 4314729d 2004-04-14 devnull 	}
557 4314729d 2004-04-14 devnull 	if(f == fptr){
558 4314729d 2004-04-14 devnull 		fprint(2, "object %s not defined\n",a);
559 4314729d 2004-04-14 devnull 		exits("undefined");
560 4314729d 2004-04-14 devnull 	}
561 4314729d 2004-04-14 devnull 	*ap = sav;
562 3bd56b04 2005-09-09 devnull 	while (isspace((uchar)*ap) || *ap == ',') 
563 4314729d 2004-04-14 devnull 		ap++;
564 4314729d 2004-04-14 devnull 	if (*ap != '\0')
565 4314729d 2004-04-14 devnull 		SC = atof(ap);
566 4314729d 2004-04-14 devnull 	else SC = 1.;
567 4314729d 2004-04-14 devnull 	if(++fsp==&fstack[NFSTACK]){
568 4314729d 2004-04-14 devnull 		fprint(2, "input stack overflow\n");
569 4314729d 2004-04-14 devnull 		exits("blew stack");
570 4314729d 2004-04-14 devnull 	}
571 4314729d 2004-04-14 devnull 	fsp->peekc=Beof;
572 4314729d 2004-04-14 devnull 	fsp->lineno=1;
573 4314729d 2004-04-14 devnull 	fsp->corebuf=f->stash;
574 4314729d 2004-04-14 devnull 	fsp->fd=0;
575 4314729d 2004-04-14 devnull 	fsp->scale=fsp[-1].scale*SC;
576 4314729d 2004-04-14 devnull }
577 4314729d 2004-04-14 devnull void include(char *a){
578 4314729d 2004-04-14 devnull 	Biobuf *fd;
579 4314729d 2004-04-14 devnull 	fd=Bopen(a, OREAD);
580 4314729d 2004-04-14 devnull 	if(fd==0){
581 4314729d 2004-04-14 devnull 		perror(a);
582 4314729d 2004-04-14 devnull 		exits("can't include");
583 4314729d 2004-04-14 devnull 	}
584 4314729d 2004-04-14 devnull 	if(++fsp==&fstack[NFSTACK]){
585 4314729d 2004-04-14 devnull 		fprint(2, "input stack overflow\n");
586 4314729d 2004-04-14 devnull 		exits("blew stack");
587 4314729d 2004-04-14 devnull 	}
588 4314729d 2004-04-14 devnull 	fsp->peekc=Beof;
589 4314729d 2004-04-14 devnull 	fsp->lineno=1;
590 4314729d 2004-04-14 devnull 	fsp->corebuf=0;
591 4314729d 2004-04-14 devnull 	fsp->fd=fd;
592 4314729d 2004-04-14 devnull }
593 4314729d 2004-04-14 devnull /*
594 4314729d 2004-04-14 devnull  * Doesn't work.  Why?
595 4314729d 2004-04-14 devnull  */
596 4314729d 2004-04-14 devnull int server(void){
597 4314729d 2004-04-14 devnull 	int fd, p[2];
598 4314729d 2004-04-14 devnull 	char buf[32];
599 4314729d 2004-04-14 devnull 	pipe(p);
600 4314729d 2004-04-14 devnull 	fd = create("/srv/plot", 1, 0666);
601 4314729d 2004-04-14 devnull 	sprint(buf, "%d", p[1]);
602 4314729d 2004-04-14 devnull 	write(fd, buf, strlen(buf));
603 4314729d 2004-04-14 devnull 	close(fd);
604 4314729d 2004-04-14 devnull 	close(p[1]);
605 4314729d 2004-04-14 devnull 	return p[0];
606 4314729d 2004-04-14 devnull }