![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to picl.l CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv9 / jtools / src / Jpic|
Return to picl.l CVS log | Up to [Research Unix] / researchv9 / jtools / src / Jpic |
1.1 root 1: %Start A str comment def sc br
2: %e 1300
3: %k 100
4: %a 1400
5: %o 1200
6: %p 3500
7: %n 600
8:
9: %{
10: #undef input
11: #undef unput
12: #include <stdio.h>
13: #include <ctype.h>
14: #include "pic.h"
15: #include "y.tab.h"
16:
17: extern double atof();
18: extern int dbg;
19: #define dprintf if(dbg)printf
20: extern int yylval;
21: extern struct symtab symtab[];
22: extern char *filename;
23: extern int synerr;
24: extern float lastfloat;
25:
26: #define CADD cbuf[clen++]=yytext[0]; if(clen>=CBUFLEN-1) {yyerror("string too long", cbuf); BEGIN A;}
27: #define CBUFLEN 150
28: char cbuf[CBUFLEN];
29: int clen, cflag;
30: %}
31:
32: A [a-zA-Z_]
33: B [a-zA-Z0-9_]
34: D [0-9]
35: WS [ \t]
36:
37: %%
38: switch (yybgin-yysvec-1) { /* witchcraft */
39: case 0:
40: BEGIN A;
41: break;
42: case sc:
43: BEGIN A;
44: return('}');
45: case br:
46: BEGIN A;
47: return(']');
48: }
49:
50: <A>{WS} ;
51: <A>"\\"\n ;
52: <A>\n { return(ST); }
53: <A>";" { return(ST); }
54: <A>"}" { BEGIN sc; return(ST); }
55: <A>"]" { BEGIN br; return(ST); }
56:
57: <A>^".".* { if (yytext[1] == 'P' && (yytext[2] == 'E' || yytext[2] == 'F')) {
58: yylval = yytext[2];
59: return(EOF);
60: } else {
61: yylval = tostring(yytext);
62: return(TROFF);
63: }
64: }
65:
66: <A>print return(yylval = PRINT);
67: <A>box return(yylval = BOX);
68: <A>circle return(yylval = CIRCLE);
69: <A>arc return(yylval = ARC);
70: <A>ellipse return(yylval = ELLIPSE);
71: <A>arrow return(yylval = ARROW);
72: <A>spline return(yylval = SPLINE);
73: <A>line return(yylval = LINE);
74: <A>move return(yylval = MOVE);
75: <A>"[]" return(yylval = BLOCK);
76:
77: <A>same return(SAME);
78: <A>between return(BETWEEN);
79: <A>and return(AND);
80:
81: <A>of ;
82: <A>the ;
83: <A>way ;
84:
85: <A>".e" { yylval = EAST; return(CORNER); }
86: <A>".east" { yylval = EAST; return(CORNER); }
87: <A>".r" { yylval = EAST; return(CORNER); }
88: <A>".right" { yylval = EAST; return(CORNER); }
89: <A>".w" { yylval = WEST; return(CORNER); }
90: <A>".west" { yylval = WEST; return(CORNER); }
91: <A>".l" { yylval = WEST; return(CORNER); }
92: <A>".left" { yylval = WEST; return(CORNER); }
93: <A>".n" { yylval = NORTH; return(CORNER); }
94: <A>".north" { yylval = NORTH; return(CORNER); }
95: <A>".t" { yylval = NORTH; return(CORNER); }
96: <A>".top" { yylval = NORTH; return(CORNER); }
97: <A>".s" { yylval = SOUTH; return(CORNER); }
98: <A>".south" { yylval = SOUTH; return(CORNER); }
99: <A>".b" { yylval = SOUTH; return(CORNER); }
100: <A>".bot" { yylval = SOUTH; return(CORNER); }
101: <A>".bottom" { yylval = SOUTH; return(CORNER); }
102: <A>".c" { yylval = CENTER; return(CORNER); }
103: <A>".center" { yylval = CENTER; return(CORNER); }
104: <A>".start" { yylval = START; return(CORNER); }
105: <A>".end" { yylval = END; return(CORNER); }
106: <A>".ne" { yylval = NE; return(CORNER); }
107: <A>"."upper" "*right { yylval = NE; return(CORNER); }
108: <A>".se" { yylval = SE; return(CORNER); }
109: <A>"."lower" "*right { yylval = SE; return(CORNER); }
110: <A>".nw" { yylval = NW; return(CORNER); }
111: <A>"."upper" "*left { yylval = NW; return(CORNER); }
112: <A>".sw" { yylval = SW; return(CORNER); }
113: <A>"."lower" "*left { yylval = SW; return(CORNER); }
114:
115: <A>top" "+of { yylval = NORTH; return(CORNER); }
116: <A>north" "+of { yylval = NORTH; return(CORNER); }
117: <A>bottom" "+of { yylval = SOUTH; return(CORNER); }
118: <A>south" "+of { yylval = SOUTH; return(CORNER); }
119: <A>left" "+of { yylval = WEST; return(CORNER); }
120: <A>west" "+of { yylval = WEST; return(CORNER); }
121: <A>right" "+of { yylval = EAST; return(CORNER); }
122: <A>east" "+of { yylval = EAST; return(CORNER); }
123: <A>center" "+of { yylval = CENTER; return(CORNER); }
124: <A>start" "+of { yylval = START; return(CORNER); }
125: <A>end" "+of { yylval = END; return(CORNER); }
126: <A>upper" "+right" "+of { yylval = NE; return(CORNER); }
127: <A>upper" "+left" "+of { yylval = NW; return(CORNER); }
128: <A>lower" "+right" "+of { yylval = SE; return(CORNER); }
129: <A>lower" "+left" "+of { yylval = SW; return(CORNER); }
130:
131: <A>height { yylval = HEIGHT; return(ATTR); }
132: <A>ht { yylval = HEIGHT; return(ATTR); }
133: <A>wid { yylval = WIDTH; return(ATTR); }
134: <A>width { yylval = WIDTH; return(ATTR); }
135: <A>rad { yylval = RADIUS; return(ATTR); }
136: <A>radius { yylval = RADIUS; return(ATTR); }
137: <A>diam { yylval = DIAMETER; return(ATTR); }
138: <A>diameter { yylval = DIAMETER; return(ATTR); }
139: <A>size { yylval = SIZE; return(ATTR); }
140: <A>left { yylval = LEFT; return(DIR); }
141: <A>right { yylval = RIGHT; return(DIR); }
142: <A>up { yylval = UP; return(DIR); }
143: <A>down { yylval = DOWN; return(DIR); }
144: <A>cw { yylval = CW; return(ATTR); }
145: <A>ccw { yylval = CCW; return(ATTR); }
146: <A>then { yylval = THEN; return(ATTR); }
147: <A>invis { yylval = INVIS; return(ATTR); }
148: <A>invisible { yylval = INVIS; return(ATTR); }
149: <A>dot return(yylval = DOT);
150: <A>dotted return(yylval = DOT);
151: <A>dash return(yylval = DASH);
152: <A>dashed return(yylval = DASH);
153: <A>chop return(yylval = CHOP);
154:
155: <A>spread return(yylval = SPREAD);
156: <A>fill return(yylval = FILL);
157: <A>ljust return(yylval = LJUST);
158: <A>rjust return(yylval = RJUST);
159: <A>above return(yylval = ABOVE);
160: <A>below return(yylval = BELOW);
161:
162: <A>"<-" { yylval = HEAD1; return(HEAD); }
163: <A>"->" { yylval = HEAD2; return(HEAD); }
164: <A>"<->" { yylval = HEAD12; return(HEAD); }
165:
166: <A>".x" return(yylval = DOTX);
167: <A>".y" return(yylval = DOTY);
168: <A>".ht" return(yylval = DOTHT);
169: <A>".height" return(yylval = DOTHT);
170: <A>".wid" return(yylval = DOTWID);
171: <A>".width" return(yylval = DOTWID);
172: <A>".rad" return(yylval = DOTRAD);
173: <A>".radius" return(yylval = DOTRAD);
174:
175: <A>from return(yylval = FROM);
176: <A>to return(yylval = TO);
177: <A>at return(yylval = AT);
178: <A>by return(yylval = BY);
179: <A>with return(yylval = WITH);
180: <A>last return(yylval = LAST);
181:
182: <A>Here return(yylval = HERE);
183: <A>define{WS}+ { BEGIN def; }
184: <def>{A}{B}* { yylval = definition(yytext); BEGIN A; return(TROFF); }
185:
186: <A>first { yylval = 1; return(NTH); }
187: <A>{D}+(th|nd|rd|st) { yylval = atoi(yytext); return(NTH); }
188: <A>({D}+("."?){D}*|"."{D}+)i? {
189: int i, inch;
190: inch = 0;
191: for (i = 0; i < yyleng; i++)
192: if (yytext[i] == '.' || yytext[i] == 'i') {
193: inch++;
194: break;
195: }
196: if (inch)
197: yylval = atof(yytext) * getvar("scale") + 0.5;
198: else
199: yylval = atoi(yytext);
200: lastfloat = atof(yytext);
201: return(NUMBER); }
202:
203: <A>{A}{B}* {
204: int c;
205: char buf[100];
206: struct symtab *p;
207: p = lookup(yytext);
208: if (p != NULL && p->s_type == DEFNAME) {
209: yylval = defuse(yytext, p);
210: return(TROFF);
211: } else if (islower(yytext[0])) {
212: yylval = (int) tostring(yytext);
213: return(VARNAME);
214: } else {
215: yylval = (int) tostring(yytext);
216: return(PLACENAME);
217: }
218: }
219:
220: <A>\" { BEGIN str; clen=0; }
221:
222: <A># { BEGIN comment; }
223: <comment>\n { BEGIN A; return(ST); }
224: <comment>. ;
225:
226: <A>. { yylval = yytext[0]; return(yytext[0]); }
227:
228: <str>\" { BEGIN A; cbuf[clen]=0; yylval = tostring(cbuf); return(TEXT); }
229: <str>\n { yyerror("newline in string"); BEGIN A; return(ST); }
230: <str>"\\\"" { cbuf[clen++]='"'; }
231: <str>"\\"t { cbuf[clen++]='\t'; }
232: <str>"\\\\" { cbuf[clen++]='\\'; }
233: <str>. { CADD; }
234:
235: %%
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.