100 	int	c;  in db_read_char()  local
103 	    c = -1;  in db_read_char()
105 	    c = *db_lp++;  in db_read_char()
106 	return (c);  in db_read_char()
110 db_unread_char(int c)  in db_unread_char()  argument
113 	if (c == -1) {  in db_unread_char()
120 			if (*db_lp != c)  in db_unread_char()
167 	int	c, n, radix_mode;  in db_lex()  local
188 	c = db_read_char();  in db_lex()
189 	for (n = 0; c <= ' ' || c > '~'; n++) {  in db_lex()
190 	    if (c == '\n' || c == -1)  in db_lex()
192 	    c = db_read_char();  in db_lex()
195 	    db_unread_char(c);  in db_lex()
199 	if ((c >= '0' && c <= '9') ||  in db_lex()
201 	   ((c >= 'a' && c <= 'f') ||  in db_lex()
202 	   (c >= 'A' && c <= 'F')))) {  in db_lex()
208 	    else if (c != '0')  in db_lex()
211 		c = db_read_char();  in db_lex()
212 		if (c == 'O' || c == 'o')  in db_lex()
214 		else if (c == 'T' || c == 't')  in db_lex()
216 		else if (c == 'X' || c == 'x')  in db_lex()
220 		    db_unread_char(c);  in db_lex()
222 		c = db_read_char();  in db_lex()
226 		if (c >= '0' && c <= ((r == 8) ? '7' : '9'))  in db_lex()
227 		    digit = c - '0';  in db_lex()
228 		else if (r == 16 && ((c >= 'A' && c <= 'F') ||  in db_lex()
229 				     (c >= 'a' && c <= 'f'))) {  in db_lex()
230 		    if (c >= 'a')  in db_lex()
231 			digit = c - 'a' + 10;  in db_lex()
232 		    else if (c >= 'A')  in db_lex()
233 			digit = c - 'A' + 10;  in db_lex()
238 		c = db_read_char();  in db_lex()
240 	    if ((c >= '0' && c <= '9') ||  in db_lex()
241 		(c >= 'A' && c <= 'Z') ||  in db_lex()
242 		(c >= 'a' && c <= 'z') ||  in db_lex()
243 		(c == '_'))  in db_lex()
249 	    db_unread_char(c);  in db_lex()
252 	if ((c >= 'A' && c <= 'Z') ||  in db_lex()
253 	    (c >= 'a' && c <= 'z') ||  in db_lex()
254 	    c == '_' || c == '\\')  in db_lex()
260 	    if (c == '\\') {  in db_lex()
261 		c = db_read_char();  in db_lex()
262 		if (c == '\n' || c == -1)  in db_lex()
265 	    *cp++ = c;  in db_lex()
267 		c = db_read_char();  in db_lex()
268 		if ((c >= 'A' && c <= 'Z') ||  in db_lex()
269 		    (c >= 'a' && c <= 'z') ||  in db_lex()
270 		    (c >= '0' && c <= '9') ||  in db_lex()
271 		    c == '_' || c == '\\' || c == ':' || c == '.')  in db_lex()
273 		    if (c == '\\') {  in db_lex()
274 			c = db_read_char();  in db_lex()
275 			if (c == '\n' || c == -1)  in db_lex()
278 		    *cp++ = c;  in db_lex()
291 	    db_unread_char(c);  in db_lex()
295 	switch (c) {  in db_lex()
301 		c = db_read_char();  in db_lex()
302 		if (c == '.')  in db_lex()
304 		db_unread_char(c);  in db_lex()
311 		c = db_read_char();  in db_lex()
312 		if (c == '=')  in db_lex()
314 		db_unread_char(c);  in db_lex()
331 		c = db_read_char();  in db_lex()
332 		if (c == '='){  in db_lex()
335 		db_unread_char(c);  in db_lex()
338 		c = db_read_char();  in db_lex()
339 		if (c == ':')  in db_lex()
341 		db_unread_char(c);  in db_lex()
346 		c = db_read_char();  in db_lex()
347 		if (c == '&')  in db_lex()
349 		db_unread_char(c);  in db_lex()
352 		c = db_read_char();  in db_lex()
353 		if (c == '|')  in db_lex()
355 		db_unread_char(c);  in db_lex()
358 		c = db_read_char();  in db_lex()
359 		if (c == '<')  in db_lex()
361 		if (c == '=')   in db_lex()
363 		db_unread_char(c);  in db_lex()
366 		c = db_read_char();  in db_lex()
367 		if (c == '>')  in db_lex()
369 		if (c == '=')  in db_lex()
371 		db_unread_char(c);  in db_lex()