Blame

Date:
Message:
tpic
Actions:
History | Blob | Raw File
  1 b6d98463 2006-04-14 devnull %Start A str def sc br thru sh

  2 b6d98463 2006-04-14 devnull %e 1700

  3 b6d98463 2006-04-14 devnull %k 120

  4 b6d98463 2006-04-14 devnull %a 1800

  5 b6d98463 2006-04-14 devnull %o 1500

  6 b6d98463 2006-04-14 devnull %p 5000

  7 b6d98463 2006-04-14 devnull %n 700

  8 b6d98463 2006-04-14 devnull 

  9 b6d98463 2006-04-14 devnull %{

 10 b6d98463 2006-04-14 devnull #undef	input

 11 b6d98463 2006-04-14 devnull #undef	unput

 12 b6d98463 2006-04-14 devnull #include <stdio.h>

 13 b6d98463 2006-04-14 devnull #include <ctype.h>

 14 b6d98463 2006-04-14 devnull #include "pic.h"

 15 b6d98463 2006-04-14 devnull #include "y.tab.h"

 16 b6d98463 2006-04-14 devnull 

 17 b6d98463 2006-04-14 devnull extern	double	atof();

 18 b6d98463 2006-04-14 devnull extern	char	*filename;

 19 b6d98463 2006-04-14 devnull extern	struct	symtab	symtab[];

 20 b6d98463 2006-04-14 devnull extern	struct	symtab*copythru();

 21 b6d98463 2006-04-14 devnull 

 22 b6d98463 2006-04-14 devnull #define	CADD	cbuf[clen++]=yytext[0]; if(clen>=CBUFLEN-1) {ERROR "string too long" WARNING; BEGIN A;}

 23 b6d98463 2006-04-14 devnull #define	CBUFLEN	500

 24 b6d98463 2006-04-14 devnull char	cbuf[CBUFLEN];

 25 b6d98463 2006-04-14 devnull int	c, clen, cflag, delim;

 26 b6d98463 2006-04-14 devnull int	ifsw	= 0;	/* 1 if if statement in progress */

 27 b6d98463 2006-04-14 devnull %}

 28 b6d98463 2006-04-14 devnull 

 29 b6d98463 2006-04-14 devnull A	[a-zA-Z_]

 30 b6d98463 2006-04-14 devnull B	[a-zA-Z0-9_]

 31 b6d98463 2006-04-14 devnull D	[0-9]

 32 b6d98463 2006-04-14 devnull WS	[ \t]

 33 b6d98463 2006-04-14 devnull 

 34 b6d98463 2006-04-14 devnull %%

 35 b6d98463 2006-04-14 devnull 	switch (yybgin-yysvec-1) {	/* witchcraft */

 36 b6d98463 2006-04-14 devnull 	case 0:

 37 b6d98463 2006-04-14 devnull 		BEGIN A;

 38 b6d98463 2006-04-14 devnull 		break;

 39 b6d98463 2006-04-14 devnull 	case sc:

 40 b6d98463 2006-04-14 devnull 		BEGIN A;

 41 b6d98463 2006-04-14 devnull 		return('}');

 42 b6d98463 2006-04-14 devnull 	case br:

 43 b6d98463 2006-04-14 devnull 		BEGIN A;

 44 b6d98463 2006-04-14 devnull 		return(']');

 45 b6d98463 2006-04-14 devnull 	}

 46 b6d98463 2006-04-14 devnull 

 47 b6d98463 2006-04-14 devnull <A>{WS}		;

 48 b6d98463 2006-04-14 devnull <A>"\\"\n	;

 49 b6d98463 2006-04-14 devnull <A>\n		{ return(ST); }

 50 b6d98463 2006-04-14 devnull <A>";"		{ return(ST); }

 51 b6d98463 2006-04-14 devnull <A>"}"		{ BEGIN sc; return(ST); }

 52 b6d98463 2006-04-14 devnull <A>"]"		{ BEGIN br; return(ST); }

 53 b6d98463 2006-04-14 devnull 

 54 b6d98463 2006-04-14 devnull <A>^".PS".*	{ if (curfile == infile) ERROR ".PS found inside .PS/.PE" WARNING; }

 55 b6d98463 2006-04-14 devnull <A>^"."P[EF].*	{ if (curfile == infile) {

 56 b6d98463 2006-04-14 devnull 			yylval.i = yytext[2];

 57 b6d98463 2006-04-14 devnull 			PEseen = 1;

 58 b6d98463 2006-04-14 devnull 			return(EOF);

 59 b6d98463 2006-04-14 devnull 		  }

 60 b6d98463 2006-04-14 devnull 		}

 61 b6d98463 2006-04-14 devnull <A>^".".*	{ yylval.p = tostring(yytext); return(TROFF); }

 62 b6d98463 2006-04-14 devnull 

 63 b6d98463 2006-04-14 devnull <A>print	return(yylval.i = PRINT);

 64 b6d98463 2006-04-14 devnull <A>box		return(yylval.i = BOX);

 65 b6d98463 2006-04-14 devnull <A>circle	return(yylval.i = CIRCLE);

 66 b6d98463 2006-04-14 devnull <A>arc		return(yylval.i = ARC);

 67 b6d98463 2006-04-14 devnull <A>ellipse	return(yylval.i = ELLIPSE);

 68 b6d98463 2006-04-14 devnull <A>arrow	return(yylval.i = ARROW);

 69 b6d98463 2006-04-14 devnull <A>spline	return(yylval.i = SPLINE);

 70 b6d98463 2006-04-14 devnull <A>line		return(yylval.i = LINE);

 71 b6d98463 2006-04-14 devnull <A>move		return(yylval.i = MOVE);

 72 b6d98463 2006-04-14 devnull <A>"[]"		return(yylval.i = BLOCK);

 73 b6d98463 2006-04-14 devnull <A>reset	return(RESET);

 74 b6d98463 2006-04-14 devnull <A>sprintf	return(SPRINTF);

 75 b6d98463 2006-04-14 devnull 

 76 b6d98463 2006-04-14 devnull <A>same		return(SAME);

 77 b6d98463 2006-04-14 devnull <A>between	return(BETWEEN);

 78 b6d98463 2006-04-14 devnull <A>and		return(AND);

 79 b6d98463 2006-04-14 devnull 

 80 b6d98463 2006-04-14 devnull <A>of		;

 81 b6d98463 2006-04-14 devnull <A>the		;

 82 b6d98463 2006-04-14 devnull <A>way		;

 83 b6d98463 2006-04-14 devnull 

 84 b6d98463 2006-04-14 devnull <A>"."(e|east)		{ yylval.i = EAST; return(CORNER); }

 85 b6d98463 2006-04-14 devnull <A>"."(r|right)		{ yylval.i = EAST; return(CORNER); }

 86 b6d98463 2006-04-14 devnull <A>"."(w|west)		{ yylval.i = WEST; return(CORNER); }

 87 b6d98463 2006-04-14 devnull <A>"."(l|left)		{ yylval.i = WEST; return(CORNER); }

 88 b6d98463 2006-04-14 devnull <A>"."(n|north)		{ yylval.i = NORTH; return(CORNER); }

 89 b6d98463 2006-04-14 devnull <A>"."(t|top)		{ yylval.i = NORTH; return(CORNER); }

 90 b6d98463 2006-04-14 devnull <A>"."(s|south)		{ yylval.i = SOUTH; return(CORNER); }

 91 b6d98463 2006-04-14 devnull <A>"."(b|bot|bottom)	{ yylval.i = SOUTH; return(CORNER); }

 92 b6d98463 2006-04-14 devnull <A>"."(c|center)	{ yylval.i = CENTER; return(CORNER); }

 93 b6d98463 2006-04-14 devnull <A>".start"		{ yylval.i = START; return(CORNER); }

 94 b6d98463 2006-04-14 devnull <A>".end"		{ yylval.i = END; return(CORNER); }

 95 b6d98463 2006-04-14 devnull <A>".ne"		{ yylval.i = NE; return(CORNER); }

 96 b6d98463 2006-04-14 devnull <A>".se"		{ yylval.i = SE; return(CORNER); }

 97 b6d98463 2006-04-14 devnull <A>".nw"		{ yylval.i = NW; return(CORNER); }

 98 b6d98463 2006-04-14 devnull <A>".sw"		{ yylval.i = SW; return(CORNER); }

 99 b6d98463 2006-04-14 devnull 

100 b6d98463 2006-04-14 devnull <A>top" "+of		{ yylval.i = NORTH; return(CORNER); }

101 b6d98463 2006-04-14 devnull <A>north" "+of		{ yylval.i = NORTH; return(CORNER); }

102 b6d98463 2006-04-14 devnull <A>bottom" "+of		{ yylval.i = SOUTH; return(CORNER); }

103 b6d98463 2006-04-14 devnull <A>south" "+of		{ yylval.i = SOUTH; return(CORNER); }

104 b6d98463 2006-04-14 devnull <A>left" "+of		{ yylval.i = WEST; return(CORNER); }

105 b6d98463 2006-04-14 devnull <A>west" "+of		{ yylval.i = WEST; return(CORNER); }

106 b6d98463 2006-04-14 devnull <A>right" "+of		{ yylval.i = EAST; return(CORNER); }

107 b6d98463 2006-04-14 devnull <A>east" "+of		{ yylval.i = EAST; return(CORNER); }

108 b6d98463 2006-04-14 devnull <A>center" "+of		{ yylval.i = CENTER; return(CORNER); }

109 b6d98463 2006-04-14 devnull <A>start" "+of		{ yylval.i = START; return(CORNER); }

110 b6d98463 2006-04-14 devnull <A>end" "+of		{ yylval.i = END; return(CORNER); }

111 b6d98463 2006-04-14 devnull 

112 b6d98463 2006-04-14 devnull <A>height|ht	{ yylval.i = HEIGHT; return(ATTR); }

113 b6d98463 2006-04-14 devnull <A>width|wid	{ yylval.i = WIDTH; return(ATTR); }

114 b6d98463 2006-04-14 devnull <A>radius|rad	{ yylval.i = RADIUS; return(ATTR); }

115 b6d98463 2006-04-14 devnull <A>diameter|diam { yylval.i = DIAMETER; return(ATTR); }

116 b6d98463 2006-04-14 devnull <A>size		{ yylval.i = SIZE; return(ATTR); }

117 b6d98463 2006-04-14 devnull <A>left		{ yylval.i = LEFT; return(DIR); }

118 b6d98463 2006-04-14 devnull <A>right	{ yylval.i = RIGHT; return(DIR); }

119 b6d98463 2006-04-14 devnull <A>up		{ yylval.i = UP; return(DIR); }

120 b6d98463 2006-04-14 devnull <A>down		{ yylval.i = DOWN; return(DIR); }

121 b6d98463 2006-04-14 devnull <A>cw		{ yylval.i = CW; return(ATTR); }

122 b6d98463 2006-04-14 devnull <A>clockwise	{ yylval.i = CW; return(ATTR); }

123 b6d98463 2006-04-14 devnull <A>ccw		{ yylval.i = CCW; return(ATTR); }

124 b6d98463 2006-04-14 devnull <A>invis(ible)?	{ yylval.i = INVIS; return(ATTR); }

125 b6d98463 2006-04-14 devnull <A>fill		{ yylval.i = FILL; return ATTR; }

126 b6d98463 2006-04-14 devnull <A>solid	;

127 b6d98463 2006-04-14 devnull <A>dot(ted)?	return(yylval.i = DOT);

128 b6d98463 2006-04-14 devnull <A>dash(ed)?	return(yylval.i = DASH);

129 b6d98463 2006-04-14 devnull <A>chop		return(yylval.i = CHOP);

130 b6d98463 2006-04-14 devnull 

131 b6d98463 2006-04-14 devnull <A>spread	{ yylval.i = SPREAD; return TEXTATTR; }

132 b6d98463 2006-04-14 devnull <A>ljust	{ yylval.i = LJUST; return TEXTATTR; }

133 b6d98463 2006-04-14 devnull <A>rjust	{ yylval.i = RJUST; return TEXTATTR; }

134 b6d98463 2006-04-14 devnull <A>above	{ yylval.i = ABOVE; return TEXTATTR; }

135 b6d98463 2006-04-14 devnull <A>below	{ yylval.i = BELOW; return TEXTATTR; }

136 b6d98463 2006-04-14 devnull <A>center	{ yylval.i = CENTER; return TEXTATTR; }

137 b6d98463 2006-04-14 devnull 

138 b6d98463 2006-04-14 devnull <A>"<-"		{ yylval.i = HEAD1; return(HEAD); }

139 b6d98463 2006-04-14 devnull <A>"->"		{ yylval.i = HEAD2; return(HEAD); }

140 b6d98463 2006-04-14 devnull <A>"<->"	{ yylval.i = HEAD12; return(HEAD); }

141 b6d98463 2006-04-14 devnull 

142 b6d98463 2006-04-14 devnull <A>".x"			return(yylval.i = DOTX);

143 b6d98463 2006-04-14 devnull <A>".y"			return(yylval.i = DOTY);

144 b6d98463 2006-04-14 devnull <A>"."(ht|height)	return(yylval.i = DOTHT);

145 b6d98463 2006-04-14 devnull <A>"."(wid|width)	return(yylval.i = DOTWID);

146 b6d98463 2006-04-14 devnull <A>"."(rad|radius)	return(yylval.i = DOTRAD);

147 b6d98463 2006-04-14 devnull 

148 b6d98463 2006-04-14 devnull <A>from		return(yylval.i = FROM);

149 b6d98463 2006-04-14 devnull <A>to		return(yylval.i = TO);

150 b6d98463 2006-04-14 devnull <A>at		return(yylval.i = AT);

151 b6d98463 2006-04-14 devnull <A>by		return(yylval.i = BY);

152 b6d98463 2006-04-14 devnull <A>with		return(yylval.i = WITH);

153 b6d98463 2006-04-14 devnull <A>last		return(yylval.i = LAST);

154 b6d98463 2006-04-14 devnull 

155 b6d98463 2006-04-14 devnull <A>log		return(LOG);

156 b6d98463 2006-04-14 devnull <A>exp		return(EXP);

157 b6d98463 2006-04-14 devnull <A>sin		return(SIN);

158 b6d98463 2006-04-14 devnull <A>cos		return(COS);

159 b6d98463 2006-04-14 devnull <A>atan2	return(ATAN2);

160 b6d98463 2006-04-14 devnull <A>sqrt		return(SQRT);

161 b6d98463 2006-04-14 devnull <A>rand		return(RAND);

162 b6d98463 2006-04-14 devnull <A>max		return(MAX);

163 b6d98463 2006-04-14 devnull <A>min		return(MIN);

164 b6d98463 2006-04-14 devnull <A>int		return(INT);

165 b6d98463 2006-04-14 devnull 

166 b6d98463 2006-04-14 devnull <A>"=="		return(EQ);

167 b6d98463 2006-04-14 devnull <A>">="		return(GE);

168 b6d98463 2006-04-14 devnull <A>"<="		return(LE);

169 b6d98463 2006-04-14 devnull <A>"!="		return(NEQ);

170 b6d98463 2006-04-14 devnull <A>">"		return(GT);

171 b6d98463 2006-04-14 devnull <A>"<"		return(LT);

172 b6d98463 2006-04-14 devnull <A>"&&"		return(ANDAND);

173 b6d98463 2006-04-14 devnull <A>"||"		return(OROR);

174 b6d98463 2006-04-14 devnull <A>"!"		return(NOT);	

175 b6d98463 2006-04-14 devnull 

176 b6d98463 2006-04-14 devnull <A>Here		return(yylval.i = HERE);

177 b6d98463 2006-04-14 devnull 

178 b6d98463 2006-04-14 devnull <A>for		return(FOR);

179 b6d98463 2006-04-14 devnull <A>^Endfor\n	{ endfor(); }

180 b6d98463 2006-04-14 devnull <A>do		{ yylval.p = delimstr("loop body"); return(DOSTR); }

181 b6d98463 2006-04-14 devnull 

182 b6d98463 2006-04-14 devnull <A>copy|include		return(COPY);

183 b6d98463 2006-04-14 devnull <A>(thru|through){WS}+	{ BEGIN thru; return(THRU); }

184 b6d98463 2006-04-14 devnull <thru>{A}{B}*|.		{ yylval.st = copythru(yytext); BEGIN A; return(DEFNAME); }

185 b6d98463 2006-04-14 devnull <A>until		return(UNTIL);

186 b6d98463 2006-04-14 devnull 

187 b6d98463 2006-04-14 devnull <A>if		{ ifsw = 1; return(IF); }

188 b6d98463 2006-04-14 devnull <A>then		{ if (!ifsw) { yylval.i = THEN; return(ATTR); }

189 b6d98463 2006-04-14 devnull 		  yylval.p = delimstr("then part"); ifsw = 0;

190 b6d98463 2006-04-14 devnull 		  return(THENSTR); }

191 b6d98463 2006-04-14 devnull <A>else		{ yylval.p = delimstr("else part"); return(ELSESTR); }

192 b6d98463 2006-04-14 devnull 

193 b6d98463 2006-04-14 devnull <A>sh{WS}+	{ BEGIN sh;

194 b6d98463 2006-04-14 devnull 		  if ((delim = input()) == '{') delim = '}';	/* no nested {} */

195 b6d98463 2006-04-14 devnull 		  shell_init(); }

196 b6d98463 2006-04-14 devnull <sh>{A}{B}*	{ struct symtab *p;

197 b6d98463 2006-04-14 devnull 		  if (yytext[0] == delim) {

198 b6d98463 2006-04-14 devnull 			shell_exec();

199 b6d98463 2006-04-14 devnull 			BEGIN A;

200 b6d98463 2006-04-14 devnull 		  } else {

201 b6d98463 2006-04-14 devnull 			p = lookup(yytext);

202 b6d98463 2006-04-14 devnull 			if (p != NULL && p->s_type == DEFNAME) {

203 b6d98463 2006-04-14 devnull 				c = input();

204 b6d98463 2006-04-14 devnull 				unput(c);

205 b6d98463 2006-04-14 devnull 				if (c == '(')

206 b6d98463 2006-04-14 devnull 					dodef(p);

207 b6d98463 2006-04-14 devnull 				else

208 b6d98463 2006-04-14 devnull 					pbstr(p->s_val.p);

209 b6d98463 2006-04-14 devnull 			} else

210 b6d98463 2006-04-14 devnull 				shell_text(yytext);

211 b6d98463 2006-04-14 devnull 		  }

212 b6d98463 2006-04-14 devnull 		}

213 b6d98463 2006-04-14 devnull <sh>.|\n	{ if (yytext[0] == delim) {

214 b6d98463 2006-04-14 devnull 			shell_exec();

215 b6d98463 2006-04-14 devnull 			BEGIN A;

216 b6d98463 2006-04-14 devnull 		  } else

217 b6d98463 2006-04-14 devnull 			shell_text(yytext);

218 b6d98463 2006-04-14 devnull 		}

219 b6d98463 2006-04-14 devnull 

220 b6d98463 2006-04-14 devnull <A>define{WS}+		{ BEGIN def; }

221 b6d98463 2006-04-14 devnull <def>{A}{B}*		{ definition(yytext); BEGIN A; }

222 b6d98463 2006-04-14 devnull <A>undef(ine)?{WS}+{A}{B}*	{ undefine(yytext); }

223 b6d98463 2006-04-14 devnull 

224 b6d98463 2006-04-14 devnull <A>first		{ yylval.i = 1; return(NTH); }

225 b6d98463 2006-04-14 devnull <A>{D}+(th|nd|rd|st)	{ yylval.i = atoi(yytext); return(NTH); }

226 b6d98463 2006-04-14 devnull <A>({D}+("."?){D}*|"."{D}+)((e|E)("+"|-)?{D}+)?i? {

227 b6d98463 2006-04-14 devnull 		  	yylval.f = atof(yytext); return(NUMBER); }

228 b6d98463 2006-04-14 devnull 

229 b6d98463 2006-04-14 devnull <A>{A}{B}* {	struct symtab *p;

230 b6d98463 2006-04-14 devnull 		p = lookup(yytext);

231 b6d98463 2006-04-14 devnull 		if (p != NULL && p->s_type == DEFNAME) {

232 b6d98463 2006-04-14 devnull 			c = input();

233 b6d98463 2006-04-14 devnull 			unput(c);

234 b6d98463 2006-04-14 devnull 			if (c == '(')	/* it's name(...) */

235 b6d98463 2006-04-14 devnull 				dodef(p);

236 b6d98463 2006-04-14 devnull 			else {	/* no argument list */

237 b6d98463 2006-04-14 devnull 				pbstr(p->s_val.p);

238 b6d98463 2006-04-14 devnull 				dprintf("pushing back `%s'\n", p->s_val.p);

239 b6d98463 2006-04-14 devnull 			}

240 b6d98463 2006-04-14 devnull 		} else if (islower(yytext[0])) {

241 b6d98463 2006-04-14 devnull 			yylval.p = tostring(yytext);

242 b6d98463 2006-04-14 devnull 			return(VARNAME);

243 b6d98463 2006-04-14 devnull 		} else {

244 b6d98463 2006-04-14 devnull 			yylval.p = tostring(yytext);

245 b6d98463 2006-04-14 devnull 			return(PLACENAME);

246 b6d98463 2006-04-14 devnull 		}

247 b6d98463 2006-04-14 devnull 	}

248 b6d98463 2006-04-14 devnull 

249 b6d98463 2006-04-14 devnull <A>\"		{ BEGIN str; clen=0; }

250 b6d98463 2006-04-14 devnull <str>\"		{ cbuf[clen]=0; yylval.p = tostring(cbuf); BEGIN A; return(TEXT); }

251 b6d98463 2006-04-14 devnull <str>\n		{ cbuf[clen]=0; ERROR "missing quote in string \"%s\"", cbuf WARNING;

252 b6d98463 2006-04-14 devnull 				BEGIN A; return(ST); }

253 b6d98463 2006-04-14 devnull <str>"\\\""	{ cbuf[clen++]='"'; }

254 b6d98463 2006-04-14 devnull <str>"\\\\"	{ cbuf[clen++]='\\'; }

255 b6d98463 2006-04-14 devnull <str>.		{ CADD; }

256 b6d98463 2006-04-14 devnull 

257 b6d98463 2006-04-14 devnull <A>#.*		;

258 b6d98463 2006-04-14 devnull 

259 b6d98463 2006-04-14 devnull <A>.		return(yylval.i = yytext[0]);

260 b6d98463 2006-04-14 devnull 

261 b6d98463 2006-04-14 devnull %%