1 #include "e.h"
2 #include "y.tab.h"
3 #include <ctype.h>
4 
5 #define	SSIZE	1000
6 char	token[SSIZE];
7 int	sp;
8 
9 void	space(void);
10 void	dodef(tbl *);
11 void	define(int);
12 void	ifdef(void);
13 void	include(void);
14 void	delim(void);
15 
16 int
17 yylex(void)
18 {
19 	register int c;
20 	tbl *tp;
21 
22   begin:
23 	while ((c = input()) == ' ' || c == '\n' || c == '\t')
24 		;
25 	yylval = c;
26 	switch (c) {
27 	case EOF:
28 		ERROR "unexpected end of input inside equation" WARNING;
29 		return(EOF);
30 	case '~':
31 		return(SPACE);
32 	case '^':
33 		return(THIN);
34 	/* case '\t':
35 		return(TAB);
36 	*/
37 	case '{':
38 		return('{');
39 	case '}':
40 		return('}');
41 	case '"':
42 		for (sp = 0; (c=input())!='"' && c != '\n'; ) {
43 			if (c == '\\')
44 				if ((c = input()) != '"')
45 					token[sp++] = '\\';
46 			token[sp++] = c;
47 			if (sp >= SSIZE)
48 				ERROR "quoted string %.20s... too long", token FATAL;
49 		}
50 		token[sp] = '\0';
51 		yylval = (int) &token[0];
52 		if (c == '\n')
53 			ERROR "missing \" in %.20s", token WARNING;
54 		return(QTEXT);
55 	}
56 	if (!display && c == righteq)
57 		return(EOF);
58 
59 	unput(c);
60 	getstr(token, SSIZE);
61 	dprintf(".\tlex token = |%s|\n", token);
62 	if ((tp = lookup(deftbl, token)) != NULL) {	/* defined term */
63 		c = input();
64 		unput(c);
65 		if (c == '(')	/* macro with args */
66 			dodef(tp);
67 		else {		/* no args */
68 			unput(' ');
69 			pbstr(tp->cval);
70 			dprintf(".\tfound %s|=%s|\n", token, tp->cval);
71 		}
72 		goto begin;
73 	}
74 
75 	if ((tp = lookup(keytbl, token)) == NULL)	/* not a keyword */
76 		return CONTIG;
77 
78 	switch (tp->ival) {		/* some kind of keyword */
79 	case DEFINE: case TDEFINE: case NDEFINE:
80 		define(tp->ival);
81 		break;
82 	case IFDEF:
83 		ifdef();
84 		break;
85 	case DELIM:
86 		delim();
87 		break;
88 	case GSIZE:
89 		globsize();
90 		break;
91 	case GFONT:
92 		globfont();
93 		break;
94 	case INCLUDE:
95 		include();
96 		break;
97 	case SPACE:
98 		space();
99 		break;
100 	case DOTEQ:
101 			/* .EQ inside equation -- should warn if at bottom level */
102 		break;
103 	case DOTEN:
104 		if (curfile == infile)
105 			return EOF;
106 		/* else ignore nested .EN */
107 		break;
108 	default:
109 		return tp->ival;
110 	}
111 	goto begin;
112 }
113 
114 void getstr(char *s, int n)
115 {
116 	register int c;
117 	register char *p;
118 
119 	p = s;
120 	while ((c = input()) == ' ' || c == '\n')
121 		;
122 	if (c == EOF) {
123 		*s = 0;
124 		return;
125 	}
126 	while (c != ' ' && c != '\t' && c != '\n' && c != '{' && c != '}'
127 	    && c != '"' && c != '~' && c != '^') {
128 		if (!display && c == righteq)
129 			break;
130 		if (c == '(' && p > s) {	/* might be defined(...) */
131 			*p = '\0';
132 			if (lookup(deftbl, s) != NULL)
133 				break;
134 		}
135 		if (c == '\\')
136 			if ((c = input()) != '"')
137 				*p++ = '\\';
138 		*p++ = c;
139 		if (--n <= 0)
140 			ERROR "token %.20s... too long", s FATAL;
141 		c = input();
142 	}
143 	unput(c);
144 	*p = '\0';
145 	yylval = (int) s;
146 }
147 
148 int
149 cstr(char *s, int quote, int maxs)
150 {
151 	int del, c, i;
152 
153 	s[0] = 0;
154 	while ((del=input()) == ' ' || del == '\t')
155 		;
156 	if (quote)
157 		for (i=0; (c=input()) != del && c != EOF;) {
158 			s[i++] = c;
159 			if (i >= maxs)
160 				return(1);	/* disaster */
161 		}
162 	else {
163 		if (del == '\n')
164 			return(1);
165 		s[0] = del;
166 		for (i=1; (c=input())!=' ' && c!= '\t' && c!='\n' && c!=EOF;) {
167 			s[i++] = c;
168 			if (i >= maxs)
169 				return(1);	/* disaster */
170 		}
171 	}
172 	s[i] = '\0';
173 	if (c == EOF)
174 		ERROR "Unexpected end of input at %.20s", s FATAL;
175 	return(0);
176 }
177 
178 void define(int type)
179 {
180 	char *p1, *p2;
181 	extern int ftune(char *, char *);
182 
183 	getstr(token, SSIZE);	/* get name */
184 	if (type != DEFINE) {
185 		cstr(token, 1, SSIZE);	/* skip the definition too */
186 		return;
187 	}
188 	p1 = strsave(token);
189 	if (cstr(token, 1, SSIZE))
190 		ERROR "Unterminated definition at %.20s", token FATAL;
191 	if (lookup(ftunetbl, p1) != NULL) {	/* double tuning param */
192 		dprintf(".\ttune %s %s\n", p1, token);
193 		ftune(p1, token);
194 	} else {
195 		p2 = strsave(token);
196 		install(deftbl, p1, p2, 0);
197 		dprintf(".\tname %s defined as %s\n", p1, p2);
198 	}
199 }
200 
201 void ifdef(void)		/* do body if name is defined */
202 {
203 	char name[100], *p;
204 
205 	getstr(name, sizeof(name));	/* get name */
206 	cstr(token, 1, SSIZE);		/* and body */
207 	if (lookup(deftbl, name) != NULL) {	/* found it */
208 		p = strsave(token);
209 		pushsrc(Free, p);
210 		pushsrc(String, p);
211 	}
212 }
213 
214 char	*spaceval	= NULL;
215 
216 void space(void)	/* collect line of form "space amt" to replace \x in output */
217 {
218 	getstr(token, SSIZE);
219 	spaceval = strsave(token);
220 	dprintf(".\tsetting spaceval to %s\n", token);
221 }
222 
223 char *strsave(char *s)
224 {
225 	register char *q;
226 
227 	q = malloc(strlen(s)+1);
228 	if (q == NULL)
229 		ERROR "out of space in strsave on %s", s FATAL;
230 	strcpy(q, s);
231 	return(q);
232 }
233 
234 void include(void)
235 {
236 	char name[100];
237 	FILE *fin;
238 	int c;
239 	extern int errno;
240 
241 	while ((c = input()) == ' ')
242 		;
243 	unput(c);
244 	cstr(name, c == '"', sizeof(name));	/* gets it quoted or not */
245 	if ((fin = fopen(name, "r")) == NULL)
246 		ERROR "can't open file %s", name FATAL;
247 	errno = 0;
248 	curfile++;
249 	curfile->fin = fin;
250 	curfile->fname = strsave(name);
251 	curfile->lineno = 0;
252 	printf(".lf 1 %s\n", curfile->fname);
253 	pushsrc(File, curfile->fname);
254 }
255 
256 void delim(void)
257 {
258 	yyval = eqnreg = 0;
259 	if (cstr(token, 0, SSIZE))
260 		ERROR "Bizarre delimiters" FATAL;
261 	lefteq = token[0];
262 	righteq = token[1];
263         if (!isprint(lefteq) || !isprint(righteq))
264 		ERROR "Bizarre delimiters" FATAL;
265 	if (lefteq == 'o' && righteq == 'f')
266 		lefteq = righteq = '\0';
267 }