op public repos

Blame

Date:: Mon Jun 19 13:51:14 2017 UTC
Message:: svgpic: new program to convert pic to svg This is an experiment. Like tpic it's a copy-and-paste fork of pic. Change-Id: Ia22772bd5881c7904a6d8f8e0b46fde8cea89cbd Reviewed-on: https://plan9port-review.googlesource.com/2920 Reviewed-by: Russ Cox <rsc@swtch.com>
Actions:: History | Blob | Raw File
  1 3ebbd193 2017-06-19 rsc %Start A str def sc br thru sh
  2 3ebbd193 2017-06-19 rsc %e 1700
  3 3ebbd193 2017-06-19 rsc %k 120
  4 3ebbd193 2017-06-19 rsc %a 1800
  5 3ebbd193 2017-06-19 rsc %o 1500
  6 3ebbd193 2017-06-19 rsc %p 5000
  7 3ebbd193 2017-06-19 rsc %n 700
  8 3ebbd193 2017-06-19 rsc 
  9 3ebbd193 2017-06-19 rsc %{
 10 3ebbd193 2017-06-19 rsc #undef	input
 11 3ebbd193 2017-06-19 rsc #undef	unput
 12 3ebbd193 2017-06-19 rsc /* #include <stdio.h> lex puts one out for us */
 13 3ebbd193 2017-06-19 rsc #include <ctype.h>
 14 3ebbd193 2017-06-19 rsc #include <stdlib.h>
 15 3ebbd193 2017-06-19 rsc #include "pic.h"
 16 3ebbd193 2017-06-19 rsc #include "y.tab.h"
 17 3ebbd193 2017-06-19 rsc 
 18 3ebbd193 2017-06-19 rsc extern	char	*filename;
 19 3ebbd193 2017-06-19 rsc extern	struct	symtab	symtab[];
 20 3ebbd193 2017-06-19 rsc 
 21 3ebbd193 2017-06-19 rsc void	pbstr(char *);
 22 3ebbd193 2017-06-19 rsc void	dodef(struct symtab *stp);
 23 3ebbd193 2017-06-19 rsc void	undefine(char *s);
 24 3ebbd193 2017-06-19 rsc void	shell_init(void), shell_exec(void), shell_text(char *);
 25 3ebbd193 2017-06-19 rsc void	endfor(void);
 26 3ebbd193 2017-06-19 rsc 
 27 3ebbd193 2017-06-19 rsc int	yyback(int *, int);
 28 3ebbd193 2017-06-19 rsc int	yylook(void);
 29 3ebbd193 2017-06-19 rsc int	yywrap(void);
 30 3ebbd193 2017-06-19 rsc 
 31 3ebbd193 2017-06-19 rsc #define	CADD	cbuf[clen++]=yytext[0]; \
 32 3ebbd193 2017-06-19 rsc 		if (clen>=CBUFLEN-1) { ERROR "string too long" WARNING; BEGIN A; }
 33 3ebbd193 2017-06-19 rsc #define	CBUFLEN	500
 34 3ebbd193 2017-06-19 rsc char	cbuf[CBUFLEN];
 35 3ebbd193 2017-06-19 rsc int	c, clen, cflag, delim;
 36 3ebbd193 2017-06-19 rsc int	ifsw	= 0;	/* 1 if if statement in progress */
 37 3ebbd193 2017-06-19 rsc %}
 38 3ebbd193 2017-06-19 rsc 
 39 3ebbd193 2017-06-19 rsc A	[a-zA-Z_]
 40 3ebbd193 2017-06-19 rsc B	[a-zA-Z0-9_]
 41 3ebbd193 2017-06-19 rsc D	[0-9]
 42 3ebbd193 2017-06-19 rsc WS	[ \t]
 43 3ebbd193 2017-06-19 rsc 
 44 3ebbd193 2017-06-19 rsc %%
 45 3ebbd193 2017-06-19 rsc 	switch (yybgin-yysvec-1) {	/* witchcraft */
 46 3ebbd193 2017-06-19 rsc 	case 0:
 47 3ebbd193 2017-06-19 rsc 		BEGIN A;
 48 3ebbd193 2017-06-19 rsc 		break;
 49 3ebbd193 2017-06-19 rsc 	case sc:
 50 3ebbd193 2017-06-19 rsc 		BEGIN A;
 51 3ebbd193 2017-06-19 rsc 		return('}');
 52 3ebbd193 2017-06-19 rsc 	case br:
 53 3ebbd193 2017-06-19 rsc 		BEGIN A;
 54 3ebbd193 2017-06-19 rsc 		return(']');
 55 3ebbd193 2017-06-19 rsc 	}
 56 3ebbd193 2017-06-19 rsc 
 57 3ebbd193 2017-06-19 rsc <A>{WS}		;
 58 3ebbd193 2017-06-19 rsc <A>"\\"\n	;
 59 3ebbd193 2017-06-19 rsc <A>\n		{ return(ST); }
 60 3ebbd193 2017-06-19 rsc <A>";"		{ return(ST); }
 61 3ebbd193 2017-06-19 rsc <A>"}"		{ BEGIN sc; return(ST); }
 62 3ebbd193 2017-06-19 rsc <A>"]"		{ BEGIN br; return(ST); }
 63 3ebbd193 2017-06-19 rsc <A>"{"{WS}*(#.*)?\n+	{ return(yylval.i = yytext[0]); }
 64 3ebbd193 2017-06-19 rsc 
 65 3ebbd193 2017-06-19 rsc <A>^".PS".*	{ if (curfile == infile) ERROR ".PS found inside .PS/.PE" WARNING; }
 66 3ebbd193 2017-06-19 rsc <A>^".PE".*	{ if (curfile == infile) {
 67 3ebbd193 2017-06-19 rsc 			yylval.p = PEstring = tostring(yytext);
 68 3ebbd193 2017-06-19 rsc 			return(EOF);
 69 3ebbd193 2017-06-19 rsc 		  }
 70 3ebbd193 2017-06-19 rsc 		}
 71 3ebbd193 2017-06-19 rsc <A>^".".*	{ yylval.p = tostring(yytext); return(TROFF); }
 72 3ebbd193 2017-06-19 rsc 
 73 3ebbd193 2017-06-19 rsc <A>print	return(yylval.i = PRINT);
 74 3ebbd193 2017-06-19 rsc <A>box		return(yylval.i = BOX);
 75 3ebbd193 2017-06-19 rsc <A>circle	return(yylval.i = CIRCLE);
 76 3ebbd193 2017-06-19 rsc <A>arc		return(yylval.i = ARC);
 77 3ebbd193 2017-06-19 rsc <A>ellipse	return(yylval.i = ELLIPSE);
 78 3ebbd193 2017-06-19 rsc <A>arrow	return(yylval.i = ARROW);
 79 3ebbd193 2017-06-19 rsc <A>spline	return(yylval.i = SPLINE);
 80 3ebbd193 2017-06-19 rsc <A>line		return(yylval.i = LINE);
 81 3ebbd193 2017-06-19 rsc <A>move		return(yylval.i = MOVE);
 82 3ebbd193 2017-06-19 rsc <A>"[]"		return(yylval.i = BLOCK);
 83 3ebbd193 2017-06-19 rsc <A>reset	return(RESET);
 84 3ebbd193 2017-06-19 rsc <A>sprintf	return(SPRINTF);
 85 3ebbd193 2017-06-19 rsc 
 86 3ebbd193 2017-06-19 rsc <A>same		return(SAME);
 87 3ebbd193 2017-06-19 rsc <A>between	return(BETWEEN);
 88 3ebbd193 2017-06-19 rsc <A>and		return(AND);
 89 3ebbd193 2017-06-19 rsc 
 90 3ebbd193 2017-06-19 rsc <A>of		;
 91 3ebbd193 2017-06-19 rsc <A>the		;
 92 3ebbd193 2017-06-19 rsc <A>way		;
 93 3ebbd193 2017-06-19 rsc 
 94 3ebbd193 2017-06-19 rsc <A>"."(e|east)		{ yylval.i = EAST; return(CORNER); }
 95 3ebbd193 2017-06-19 rsc <A>"."(r|right)		{ yylval.i = EAST; return(CORNER); }
 96 3ebbd193 2017-06-19 rsc <A>"."(w|west)		{ yylval.i = WEST; return(CORNER); }
 97 3ebbd193 2017-06-19 rsc <A>"."(l|left)		{ yylval.i = WEST; return(CORNER); }
 98 3ebbd193 2017-06-19 rsc <A>"."(n|north)		{ yylval.i = NORTH; return(CORNER); }
 99 3ebbd193 2017-06-19 rsc <A>"."(t|top)		{ yylval.i = NORTH; return(CORNER); }
100 3ebbd193 2017-06-19 rsc <A>"."(s|south)		{ yylval.i = SOUTH; return(CORNER); }
101 3ebbd193 2017-06-19 rsc <A>"."(b|bot|bottom)	{ yylval.i = SOUTH; return(CORNER); }
102 3ebbd193 2017-06-19 rsc <A>"."(c|center)	{ yylval.i = CENTER; return(CORNER); }
103 3ebbd193 2017-06-19 rsc <A>".start"		{ yylval.i = START; return(CORNER); }
104 3ebbd193 2017-06-19 rsc <A>".end"		{ yylval.i = END; return(CORNER); }
105 3ebbd193 2017-06-19 rsc <A>".ne"		{ yylval.i = NE; return(CORNER); }
106 3ebbd193 2017-06-19 rsc <A>".se"		{ yylval.i = SE; return(CORNER); }
107 3ebbd193 2017-06-19 rsc <A>".nw"		{ yylval.i = NW; return(CORNER); }
108 3ebbd193 2017-06-19 rsc <A>".sw"		{ yylval.i = SW; return(CORNER); }
109 3ebbd193 2017-06-19 rsc 
110 3ebbd193 2017-06-19 rsc <A>top" "+of		{ yylval.i = NORTH; return(CORNER); }
111 3ebbd193 2017-06-19 rsc <A>north" "+of		{ yylval.i = NORTH; return(CORNER); }
112 3ebbd193 2017-06-19 rsc <A>bottom" "+of		{ yylval.i = SOUTH; return(CORNER); }
113 3ebbd193 2017-06-19 rsc <A>south" "+of		{ yylval.i = SOUTH; return(CORNER); }
114 3ebbd193 2017-06-19 rsc <A>left" "+of		{ yylval.i = WEST; return(CORNER); }
115 3ebbd193 2017-06-19 rsc <A>west" "+of		{ yylval.i = WEST; return(CORNER); }
116 3ebbd193 2017-06-19 rsc <A>right" "+of		{ yylval.i = EAST; return(CORNER); }
117 3ebbd193 2017-06-19 rsc <A>east" "+of		{ yylval.i = EAST; return(CORNER); }
118 3ebbd193 2017-06-19 rsc <A>center" "+of		{ yylval.i = CENTER; return(CORNER); }
119 3ebbd193 2017-06-19 rsc <A>start" "+of		{ yylval.i = START; return(CORNER); }
120 3ebbd193 2017-06-19 rsc <A>end" "+of		{ yylval.i = END; return(CORNER); }
121 3ebbd193 2017-06-19 rsc 
122 3ebbd193 2017-06-19 rsc <A>height|ht	{ yylval.i = HEIGHT; return(ATTR); }
123 3ebbd193 2017-06-19 rsc <A>width|wid	{ yylval.i = WIDTH; return(ATTR); }
124 3ebbd193 2017-06-19 rsc <A>radius|rad	{ yylval.i = RADIUS; return(ATTR); }
125 3ebbd193 2017-06-19 rsc <A>diameter|diam { yylval.i = DIAMETER; return(ATTR); }
126 3ebbd193 2017-06-19 rsc <A>size		{ yylval.i = SIZE; return(ATTR); }
127 3ebbd193 2017-06-19 rsc <A>left		{ yylval.i = LEFT; return(DIR); }
128 3ebbd193 2017-06-19 rsc <A>right	{ yylval.i = RIGHT; return(DIR); }
129 3ebbd193 2017-06-19 rsc <A>up		{ yylval.i = UP; return(DIR); }
130 3ebbd193 2017-06-19 rsc <A>down		{ yylval.i = DOWN; return(DIR); }
131 3ebbd193 2017-06-19 rsc <A>cw		{ yylval.i = CW; return(ATTR); }
132 3ebbd193 2017-06-19 rsc <A>clockwise	{ yylval.i = CW; return(ATTR); }
133 3ebbd193 2017-06-19 rsc <A>ccw		{ yylval.i = CCW; return(ATTR); }
134 3ebbd193 2017-06-19 rsc <A>invis(ible)?	{ yylval.i = INVIS; return(ATTR); }
135 3ebbd193 2017-06-19 rsc <A>noedge	{ yylval.i = INVIS; return ATTR; }
136 3ebbd193 2017-06-19 rsc <A>fill		{ yylval.i = FILL; return ATTR; }
137 3ebbd193 2017-06-19 rsc <A>solid	;
138 3ebbd193 2017-06-19 rsc <A>dot(ted)?	return(yylval.i = DOT);
139 3ebbd193 2017-06-19 rsc <A>dash(ed)?	return(yylval.i = DASH);
140 3ebbd193 2017-06-19 rsc <A>chop		return(yylval.i = CHOP);
141 3ebbd193 2017-06-19 rsc 
142 3ebbd193 2017-06-19 rsc <A>spread	{ yylval.i = SPREAD; return TEXTATTR; }
143 3ebbd193 2017-06-19 rsc <A>ljust	{ yylval.i = LJUST; return TEXTATTR; }
144 3ebbd193 2017-06-19 rsc <A>rjust	{ yylval.i = RJUST; return TEXTATTR; }
145 3ebbd193 2017-06-19 rsc <A>above	{ yylval.i = ABOVE; return TEXTATTR; }
146 3ebbd193 2017-06-19 rsc <A>below	{ yylval.i = BELOW; return TEXTATTR; }
147 3ebbd193 2017-06-19 rsc <A>center	{ yylval.i = CENTER; return TEXTATTR; }
148 3ebbd193 2017-06-19 rsc 
149 3ebbd193 2017-06-19 rsc <A>"<-"		{ yylval.i = HEAD1; return(HEAD); }
150 3ebbd193 2017-06-19 rsc <A>"->"		{ yylval.i = HEAD2; return(HEAD); }
151 3ebbd193 2017-06-19 rsc <A>"<->"	{ yylval.i = HEAD12; return(HEAD); }
152 3ebbd193 2017-06-19 rsc 
153 3ebbd193 2017-06-19 rsc <A>".x"			return(yylval.i = DOTX);
154 3ebbd193 2017-06-19 rsc <A>".y"			return(yylval.i = DOTY);
155 3ebbd193 2017-06-19 rsc <A>"."(ht|height)	return(yylval.i = DOTHT);
156 3ebbd193 2017-06-19 rsc <A>"."(wid|width)	return(yylval.i = DOTWID);
157 3ebbd193 2017-06-19 rsc <A>"."(rad|radius)	return(yylval.i = DOTRAD);
158 3ebbd193 2017-06-19 rsc 
159 3ebbd193 2017-06-19 rsc <A>from		return(yylval.i = FROM);
160 3ebbd193 2017-06-19 rsc <A>to		return(yylval.i = TO);
161 3ebbd193 2017-06-19 rsc <A>at		return(yylval.i = AT);
162 3ebbd193 2017-06-19 rsc <A>by		return(yylval.i = BY);
163 3ebbd193 2017-06-19 rsc <A>with		return(yylval.i = WITH);
164 3ebbd193 2017-06-19 rsc <A>last		return(yylval.i = LAST);
165 3ebbd193 2017-06-19 rsc 
166 3ebbd193 2017-06-19 rsc <A>log		return(LOG);
167 3ebbd193 2017-06-19 rsc <A>exp		return(EXP);
168 3ebbd193 2017-06-19 rsc <A>sin		return(SIN);
169 3ebbd193 2017-06-19 rsc <A>cos		return(COS);
170 3ebbd193 2017-06-19 rsc <A>atan2	return(ATAN2);
171 3ebbd193 2017-06-19 rsc <A>sqrt		return(SQRT);
172 3ebbd193 2017-06-19 rsc <A>rand		return(RAND);
173 3ebbd193 2017-06-19 rsc <A>max		return(MAX);
174 3ebbd193 2017-06-19 rsc <A>min		return(MIN);
175 3ebbd193 2017-06-19 rsc <A>int		return(INT);
176 3ebbd193 2017-06-19 rsc 
177 3ebbd193 2017-06-19 rsc <A>"=="		return(EQ);
178 3ebbd193 2017-06-19 rsc <A>">="		return(GE);
179 3ebbd193 2017-06-19 rsc <A>"<="		return(LE);
180 3ebbd193 2017-06-19 rsc <A>"!="		return(NEQ);
181 3ebbd193 2017-06-19 rsc <A>">"		return(GT);
182 3ebbd193 2017-06-19 rsc <A>"<"		return(LT);
183 3ebbd193 2017-06-19 rsc <A>"&&"		return(ANDAND);
184 3ebbd193 2017-06-19 rsc <A>"||"		return(OROR);
185 3ebbd193 2017-06-19 rsc <A>"!"		return(NOT);	
186 3ebbd193 2017-06-19 rsc 
187 3ebbd193 2017-06-19 rsc <A>Here		return(yylval.i = HERE);
188 3ebbd193 2017-06-19 rsc 
189 3ebbd193 2017-06-19 rsc <A>for		return(FOR);
190 3ebbd193 2017-06-19 rsc <A>^Endfor\n	{ endfor(); }
191 3ebbd193 2017-06-19 rsc <A>do		{ yylval.p = delimstr("loop body"); return(DOSTR); }
192 3ebbd193 2017-06-19 rsc 
193 3ebbd193 2017-06-19 rsc <A>copy|include		return(COPY);
194 3ebbd193 2017-06-19 rsc <A>(thru|through){WS}+	{ BEGIN thru; return(THRU); }
195 3ebbd193 2017-06-19 rsc <thru>{A}{B}*|.		{ yylval.st = copythru(yytext); BEGIN A; return(DEFNAME); }
196 3ebbd193 2017-06-19 rsc <A>until		return(UNTIL);
197 3ebbd193 2017-06-19 rsc 
198 3ebbd193 2017-06-19 rsc <A>if		{ ifsw = 1; return(IF); }
199 3ebbd193 2017-06-19 rsc <A>then		{ if (!ifsw) { yylval.i = THEN; return(ATTR); }
200 3ebbd193 2017-06-19 rsc 		  yylval.p = delimstr("then part"); ifsw = 0;
201 3ebbd193 2017-06-19 rsc 		  return(THENSTR); }
202 3ebbd193 2017-06-19 rsc <A>else		{ yylval.p = delimstr("else part"); return(ELSESTR); }
203 3ebbd193 2017-06-19 rsc 
204 3ebbd193 2017-06-19 rsc <A>sh{WS}+	{ BEGIN sh;
205 3ebbd193 2017-06-19 rsc 		  if ((delim = input()) == '{') delim = '}';	/* no nested {} */
206 3ebbd193 2017-06-19 rsc 		  shell_init(); }
207 3ebbd193 2017-06-19 rsc <sh>{A}{B}*	{ struct symtab *p;
208 3ebbd193 2017-06-19 rsc 		  if (yytext[0] == delim) {
209 3ebbd193 2017-06-19 rsc 			shell_exec();
210 3ebbd193 2017-06-19 rsc 			BEGIN A;
211 3ebbd193 2017-06-19 rsc 		  } else {
212 3ebbd193 2017-06-19 rsc 			p = lookup(yytext);
213 3ebbd193 2017-06-19 rsc 			if (p != NULL && p->s_type == DEFNAME) {
214 3ebbd193 2017-06-19 rsc 				c = input();
215 3ebbd193 2017-06-19 rsc 				unput(c);
216 3ebbd193 2017-06-19 rsc 				if (c == '(')
217 3ebbd193 2017-06-19 rsc 					dodef(p);
218 3ebbd193 2017-06-19 rsc 				else
219 3ebbd193 2017-06-19 rsc 					pbstr(p->s_val.p);
220 3ebbd193 2017-06-19 rsc 			} else
221 3ebbd193 2017-06-19 rsc 				shell_text(yytext);
222 3ebbd193 2017-06-19 rsc 		  }
223 3ebbd193 2017-06-19 rsc 		}
224 3ebbd193 2017-06-19 rsc <sh>.|\n	{ if (yytext[0] == delim) {
225 3ebbd193 2017-06-19 rsc 			shell_exec();
226 3ebbd193 2017-06-19 rsc 			BEGIN A;
227 3ebbd193 2017-06-19 rsc 		  } else
228 3ebbd193 2017-06-19 rsc 			shell_text(yytext);
229 3ebbd193 2017-06-19 rsc 		}
230 3ebbd193 2017-06-19 rsc 
231 3ebbd193 2017-06-19 rsc <A>define{WS}+		{ BEGIN def; }
232 3ebbd193 2017-06-19 rsc <def>{A}{B}*		{ definition(yytext); BEGIN A; }
233 3ebbd193 2017-06-19 rsc <A>undef(ine)?{WS}+{A}{B}*	{ undefine(yytext); }
234 3ebbd193 2017-06-19 rsc 
235 3ebbd193 2017-06-19 rsc <A>first		{ yylval.i = 1; return(NTH); }
236 3ebbd193 2017-06-19 rsc <A>{D}+(th|nd|rd|st)	{ yylval.i = atoi(yytext); return(NTH); }
237 3ebbd193 2017-06-19 rsc <A>({D}+("."?){D}*|"."{D}+)((e|E)("+"|-)?{D}+)?i? {
238 3ebbd193 2017-06-19 rsc 		  	yylval.f = atof(yytext); return(NUMBER); }
239 3ebbd193 2017-06-19 rsc 
240 3ebbd193 2017-06-19 rsc <A>{A}{B}* {	struct symtab *p;
241 3ebbd193 2017-06-19 rsc 		p = lookup(yytext);
242 3ebbd193 2017-06-19 rsc 		if (p != NULL && p->s_type == DEFNAME) {
243 3ebbd193 2017-06-19 rsc 			c = input();
244 3ebbd193 2017-06-19 rsc 			unput(c);
245 3ebbd193 2017-06-19 rsc 			if (c == '(')	/* it's name(...) */
246 3ebbd193 2017-06-19 rsc 				dodef(p);
247 3ebbd193 2017-06-19 rsc 			else {	/* no argument list */
248 3ebbd193 2017-06-19 rsc 				pbstr(p->s_val.p);
249 3ebbd193 2017-06-19 rsc 				dprintf("pushing back `%s'\n", p->s_val.p);
250 3ebbd193 2017-06-19 rsc 			}
251 3ebbd193 2017-06-19 rsc 		} else if (islower((unsigned char)yytext[0])) {
252 3ebbd193 2017-06-19 rsc 			yylval.p = tostring(yytext);
253 3ebbd193 2017-06-19 rsc 			return(VARNAME);
254 3ebbd193 2017-06-19 rsc 		} else {
255 3ebbd193 2017-06-19 rsc 			yylval.p = tostring(yytext);
256 3ebbd193 2017-06-19 rsc 			return(PLACENAME);
257 3ebbd193 2017-06-19 rsc 		}
258 3ebbd193 2017-06-19 rsc 	}
259 3ebbd193 2017-06-19 rsc 
260 3ebbd193 2017-06-19 rsc <A>\"		{ BEGIN str; clen=0; }
261 3ebbd193 2017-06-19 rsc <str>\"		{ cbuf[clen]=0; yylval.p = tostring(cbuf); BEGIN A; return(TEXT); }
262 3ebbd193 2017-06-19 rsc <str>\n		{ cbuf[clen]=0; ERROR "missing quote in string \"%s\"", cbuf WARNING;
263 3ebbd193 2017-06-19 rsc 				BEGIN A; return(ST); }
264 3ebbd193 2017-06-19 rsc <str>"\\\""	{ cbuf[clen++]='"'; }
265 3ebbd193 2017-06-19 rsc <str>"\\"t	{ cbuf[clen++]='\t'; }
266 3ebbd193 2017-06-19 rsc <str>"\\\\"	{ cbuf[clen++]='\\'; }
267 3ebbd193 2017-06-19 rsc <str>.		{ CADD; }
268 3ebbd193 2017-06-19 rsc 
269 3ebbd193 2017-06-19 rsc <A>#.*		;
270 3ebbd193 2017-06-19 rsc 
271 3ebbd193 2017-06-19 rsc <A>.		return(yylval.i = yytext[0]);
272 3ebbd193 2017-06-19 rsc 
273 3ebbd193 2017-06-19 rsc %%