2 * SPDX-License-Identifier: MIT-CMU
4 * Mach Operating System
5 * Copyright (c) 1991,1990 Carnegie Mellon University
8 * Permission to use, copy, modify and distribute this software and its
9 * documentation is hereby granted, provided that both the copyright
10 * notice and this permission notice appear in all copies of the
11 * software, derivative works or modified versions, and any portions
12 * thereof, and that both notices appear in supporting documentation.
14 * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS
15 * CONDITION. CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR
16 * ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
18 * Carnegie Mellon requests users of this software to return to
20 * Software Distribution Coordinator or Software.Distribution@CS.CMU.EDU
21 * School of Computer Science
22 * Carnegie Mellon University
23 * Pittsburgh PA 15213-3890
25 * any improvements or extensions that they make and grant Carnegie the
26 * rights to redistribute these changes.
29 * Author: David B. Golub, Carnegie Mellon University
36 #include <sys/cdefs.h>
37 __FBSDID("$FreeBSD$");
39 #include <sys/param.h>
40 #include <sys/libkern.h>
44 #include <ddb/db_lex.h>
46 static char db_line[DB_MAXLINE];
47 static char * db_lp, *db_endlp;
49 static int db_lex(int);
50 static void db_flush_line(void);
51 static int db_read_char(void);
52 static void db_unread_char(int);
59 i = db_readline(db_line, sizeof(db_line));
68 * Simulate a line of input into DDB.
71 db_inject_line(const char *command)
74 strlcpy(db_line, command, sizeof(db_line));
76 db_endlp = db_lp + strlen(command);
80 * In rare cases, we may want to pull the remainder of the line input
81 * verbatim, rather than lexing it. For example, when assigning literal
82 * values associated with scripts. In that case, return a static pointer to
83 * the current location in the input buffer. The caller must be aware that
84 * the contents are not stable if other lex/input calls are made.
105 if (db_lp >= db_endlp)
113 db_unread_char(int c)
117 /* Unread EOL at EOL is okay. */
118 if (db_lp < db_endlp)
119 db_error("db_unread_char(-1) before end of line\n");
121 if (db_lp > db_line) {
124 db_error("db_unread_char() wrong char\n");
126 db_error("db_unread_char() at beginning of line\n");
131 static int db_look_token = 0;
134 db_unread_token(int t)
140 db_read_token_flags(int flags)
144 MPASS((flags & ~(DRT_VALID_FLAGS_MASK)) == 0);
155 db_expr_t db_tok_number;
156 char db_tok_string[TOK_STRING_SIZE];
158 db_expr_t db_radix = 16;
170 int c, n, radix_mode;
171 bool lex_wspace, lex_hex_numbers;
173 switch (flags & DRT_RADIX_MASK) {
174 case DRT_DEFAULT_RADIX:
183 case DRT_HEXADECIMAL:
188 lex_wspace = ((flags & DRT_WSPACE) != 0);
189 lex_hex_numbers = ((flags & DRT_HEX) != 0);
192 for (n = 0; c <= ' ' || c > '~'; n++) {
193 if (c == '\n' || c == -1)
197 if (lex_wspace && n != 0) {
202 if ((c >= '0' && c <= '9') ||
204 ((c >= 'a' && c <= 'f') ||
205 (c >= 'A' && c <= 'F')))) {
209 if (radix_mode != -1)
215 if (c == 'O' || c == 'o')
217 else if (c == 'T' || c == 't')
219 else if (c == 'X' || c == 'x')
229 if (c >= '0' && c <= ((r == 8) ? '7' : '9'))
231 else if (r == 16 && ((c >= 'A' && c <= 'F') ||
232 (c >= 'a' && c <= 'f'))) {
234 digit = c - 'a' + 10;
236 digit = c - 'A' + 10;
240 db_tok_number = db_tok_number * r + digit;
243 if ((c >= '0' && c <= '9') ||
244 (c >= 'A' && c <= 'Z') ||
245 (c >= 'a' && c <= 'z') ||
248 db_error("Bad character in number\n");
255 if ((c >= 'A' && c <= 'Z') ||
256 (c >= 'a' && c <= 'z') ||
257 c == '_' || c == '\\')
265 if (c == '\n' || c == -1)
266 db_error("Bad escape\n");
271 if ((c >= 'A' && c <= 'Z') ||
272 (c >= 'a' && c <= 'z') ||
273 (c >= '0' && c <= '9') ||
274 c == '_' || c == '\\' || c == ':' || c == '.')
278 if (c == '\n' || c == -1)
279 db_error("Bad escape\n");
282 if (cp == db_tok_string+sizeof(db_tok_string)) {
283 db_error("String too long\n");
336 return (tLOG_NOT_EQ);
343 return (tCOLONCOLON);
373 return (tGREATER_EQ);
383 db_printf("Bad character\n");