1 %Start A str def thru sh
12 extern struct symtab symtab[];
14 int yyback(int *, int);
17 void shell_init(void), shell_exec(void), shell_text(char *);
19 #define CADD cbuf[clen++] = yytext[0]; \
20 if (clen >= CBUFLEN-1) { \
21 ERROR "string too long" WARNING; BEGIN A; }
34 if (yybgin-yysvec-1 == 0) { /* witchcraft */
43 <A>line return(yylval.i = LINE);
44 <A>arrow { yylval.i = ARROW; return(LINE); }
45 <A>circle return(yylval.i = CIRCLE);
46 <A>frame return(FRAME);
47 <A>tick(s)? return(TICKS);
48 <A>grid(line)?(s)? return(GRID);
49 <A>coord(s)? return(COORD);
54 <A>atan2 return(ATAN2);
60 <A>print return(PRINT);
61 <A>sprintf return(SPRINTF);
62 <A>pic{WS}.* { yylval.p = tostring(yytext+3); return(PIC); }
63 <A>graph{WS}.* { yylval.p = tostring(yytext+5); return(GRAPH); }
66 <A>^Endfor\n { endfor(); }
67 <A>do { yylval.p = delimstr("loop body"); BEGIN A; return(DOSTR); }
69 <A>copy|include { return(COPY); }
70 <A>thru|through { BEGIN thru; return(THRU); }
72 <thru>{A}{B}*|. { yylval.op = copythru(yytext); BEGIN A; return(DEFNAME); }
73 <A>until return(UNTIL);
76 <A>then { yylval.p = delimstr("then part"); BEGIN A; return(THEN); }
77 <A>else { yylval.p = delimstr("else part"); BEGIN A; return(ELSE); }
80 <A>draw return(yylval.i = DRAW);
81 <A>new return(yylval.i = NEW);
82 <A>plot return(yylval.i = PLOT);
83 <A>label(s)? return(LABEL);
87 <A>top { yylval.i = TOP; return SIDE; }
88 <A>bot(tom)? { yylval.i = BOT; return SIDE; }
89 <A>left { yylval.i = LEFT; return SIDE; }
90 <A>right { yylval.i = RIGHT; return SIDE; }
91 <A>up return(yylval.i = UP);
92 <A>down return(yylval.i = DOWN);
93 <A>across return(yylval.i = ACROSS);
94 <A>height|ht return(yylval.i = HEIGHT);
95 <A>wid(th)? return(yylval.i = WIDTH);
96 <A>rad(ius)? return(yylval.i = RADIUS);
97 <A>invis return(yylval.i = INVIS);
98 <A>dot(ted) return(yylval.i = DOT);
99 <A>dash(ed) return(yylval.i = DASH);
100 <A>solid return(yylval.i = SOLID);
102 <A>ljust { yylval.i = LJUST; return JUST; }
103 <A>rjust { yylval.i = RJUST; return JUST; }
104 <A>above { yylval.i = ABOVE; return JUST; }
105 <A>below { yylval.i = BELOW; return JUST; }
106 <A>size return(yylval.i = SIZE);
108 <A>from return(yylval.i = FROM);
109 <A>to return(yylval.i = TO);
110 <A>by|step return(yylval.i = BY);
111 <A>at return(yylval.i = AT);
112 <A>with return(yylval.i = WITH);
113 <A>in return(yylval.i = IN);
114 <A>out return(yylval.i = OUT);
115 <A>off return(yylval.i = OFF);
117 <A>sh{WS}+ { BEGIN sh;
118 if ((delim = input()) == '{') {
127 if (yytext[0] == delim) {
131 p = lookup(yytext, 0);
132 if (p != NULL && p->type == DEFNAME) {
143 <sh>"{" { shcnt++; shell_text(yytext); }
144 <sh>"}" { if (delim != '}' || --shcnt > 0)
151 <sh>.|\n { if (yytext[0] == delim) {
158 <A>define{WS}+ { BEGIN def; }
159 <def>{A}{B}* { definition(yytext); BEGIN A; }
161 <A>({D}+("."?){D}*|"."{D}+)((e|E)("+"|-)?{D}+)?i? {
162 yylval.f = atof(yytext); return(NUMBER); }
164 <A>^"."[^0-9].* { if (yytext[1] == 'G' && yytext[2] == '2') {
165 yylval.i = yytext[2];
168 yylval.p = tostring(yytext);
176 p = lookup(yytext, 1);
177 if (p->type == DEFNAME) {
180 if (c == '(') /* it's name(...) */
182 else /* no argument list */
186 return p->type; /* NAME or VARNAME */
200 <A>\" { BEGIN str; clen = 0; }
204 <A>. { yylval.i = yytext[0]; return(yytext[0]); }
206 <str>\" { BEGIN A; cbuf[clen] = 0;
207 yylval.p = tostring(cbuf); return(STRING); }
208 <str>\n { ERROR "newline in string" WARNING; BEGIN A; return(ST); }
209 <str>"\\\"" { cbuf[clen++] = '\\'; cbuf[clen++] = '"'; }
210 <str>"\\\\" { cbuf[clen++] = '\\'; cbuf[clen++] = '\\'; }