82 	int	c;  in db_read_char()  local
85 		c = db_look_char;  in db_read_char()
88 		c = -1;  in db_read_char()
90 		c = *db_lp++;  in db_read_char()
91 	return (c);  in db_read_char()
95 db_unread_char(int c)  in db_unread_char()  argument
97 	db_look_char = c;  in db_unread_char()
132 	int	c;  in db_lex()  local
134 	c = db_read_char();  in db_lex()
135 	while (c <= ' ' || c > '~') {  in db_lex()
136 		if (c == '\n' || c == -1)  in db_lex()
138 		c = db_read_char();  in db_lex()
141 	if (c >= '0' && c <= '9') {  in db_lex()
145 		if (c > '0')  in db_lex()
148 			c = db_read_char();  in db_lex()
149 			if (c == 'O' || c == 'o')  in db_lex()
151 			else if (c == 'T' || c == 't')  in db_lex()
153 			else if (c == 'X' || c == 'x')  in db_lex()
157 				db_unread_char(c);  in db_lex()
159 			c = db_read_char();  in db_lex()
163 			if (c >= '0' && c <= ((r == 8) ? '7' : '9'))  in db_lex()
164 				digit = c - '0';  in db_lex()
165 			else if (r == 16 && ((c >= 'A' && c <= 'F') ||  in db_lex()
166 			    (c >= 'a' && c <= 'f'))) {  in db_lex()
167 				if (c >= 'a')  in db_lex()
168 					digit = c - 'a' + 10;  in db_lex()
169 				else if (c >= 'A')  in db_lex()
170 					digit = c - 'A' + 10;  in db_lex()
174 			c = db_read_char();  in db_lex()
176 		if ((c >= '0' && c <= '9') ||  in db_lex()
177 		    (c >= 'A' && c <= 'Z') ||  in db_lex()
178 		    (c >= 'a' && c <= 'z') ||  in db_lex()
179 		    (c == '_')) {  in db_lex()
183 		db_unread_char(c);  in db_lex()
186 	if ((c >= 'A' && c <= 'Z') ||  in db_lex()
187 	    (c >= 'a' && c <= 'z') ||  in db_lex()
188 	    c == '_' || c == '\\') {  in db_lex()
193 		if (c == '\\') {  in db_lex()
194 			c = db_read_char();  in db_lex()
195 			if (c == '\n' || c == -1) {  in db_lex()
200 		*cp++ = c;  in db_lex()
202 			c = db_read_char();  in db_lex()
203 			if ((c >= 'A' && c <= 'Z') ||  in db_lex()
204 			    (c >= 'a' && c <= 'z') ||  in db_lex()
205 			    (c >= '0' && c <= '9') ||  in db_lex()
206 			    c == '_' || c == '\\' || c == ':') {  in db_lex()
207 				if (c == '\\') {  in db_lex()
208 					c = db_read_char();  in db_lex()
209 					if (c == '\n' || c == -1) {  in db_lex()
214 				*cp++ = c;  in db_lex()
225 		db_unread_char(c);  in db_lex()
229 	switch (c) {  in db_lex()
235 		c = db_read_char();  in db_lex()
236 		if (c == '.')  in db_lex()
238 		db_unread_char(c);  in db_lex()
263 		c = db_read_char();  in db_lex()
264 		if (c == '<')  in db_lex()
266 		db_unread_char(c);  in db_lex()
269 		c = db_read_char();  in db_lex()
270 		if (c == '>')  in db_lex()
272 		db_unread_char(c);  in db_lex()