NetBSD/sys/ddb/db_lex.c

320 lines
5.8 KiB
C
Raw Normal View History

/* $NetBSD: db_lex.c,v 1.16 2002/02/15 07:33:51 simonb Exp $ */
/*
1993-03-21 12:45:37 +03:00
* Mach Operating System
* Copyright (c) 1991,1990 Carnegie Mellon University
* All Rights Reserved.
*
1993-03-21 12:45:37 +03:00
* Permission to use, copy, modify and distribute this software and its
* documentation is hereby granted, provided that both the copyright
* notice and this permission notice appear in all copies of the
* software, derivative works or modified versions, and any portions
* thereof, and that both notices appear in supporting documentation.
*
* CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS "AS IS"
1993-03-21 12:45:37 +03:00
* CONDITION. CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR
* ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
*
1993-03-21 12:45:37 +03:00
* Carnegie Mellon requests users of this software to return to
*
1993-03-21 12:45:37 +03:00
* Software Distribution Coordinator or Software.Distribution@CS.CMU.EDU
* School of Computer Science
* Carnegie Mellon University
* Pittsburgh PA 15213-3890
*
1993-03-21 12:45:37 +03:00
* any improvements or extensions that they make and grant Carnegie the
* rights to redistribute these changes.
1993-05-20 07:39:04 +04:00
*
1993-03-21 12:45:37 +03:00
* Author: David B. Golub, Carnegie Mellon University
* Date: 7/90
*/
1993-12-18 07:46:25 +03:00
1993-03-21 12:45:37 +03:00
/*
* Lexical analyzer.
*/
2001-11-13 01:54:03 +03:00
#include <sys/cdefs.h>
__KERNEL_RCSID(0, "$NetBSD: db_lex.c,v 1.16 2002/02/15 07:33:51 simonb Exp $");
2001-11-13 01:54:03 +03:00
1994-10-09 11:19:29 +03:00
#include <sys/param.h>
#include <sys/systm.h>
1994-10-09 11:19:29 +03:00
1996-02-05 04:56:47 +03:00
#include <machine/db_machdep.h>
1993-03-21 12:45:37 +03:00
#include <ddb/db_lex.h>
1996-02-05 04:56:47 +03:00
#include <ddb/db_output.h>
#include <ddb/db_command.h>
#include <ddb/db_sym.h>
#include <ddb/db_extern.h>
1993-03-21 12:45:37 +03:00
db_expr_t db_tok_number;
char db_tok_string[TOK_STRING_SIZE];
static char db_line[120];
static char *db_lp, *db_endlp;
static int db_look_char = 0;
static int db_look_token = 0;
static void db_flush_line(void);
static int db_read_char(void);
static void db_unread_char(int);
static int db_lex(void);
1993-03-21 12:45:37 +03:00
int
db_read_line(void)
1993-03-21 12:45:37 +03:00
{
int i;
i = db_readline(db_line, sizeof(db_line));
if (i == 0)
return (0); /* EOI */
1993-03-21 12:45:37 +03:00
db_lp = db_line;
db_endlp = db_lp + i;
return (i);
}
static void
db_flush_line(void)
1993-03-21 12:45:37 +03:00
{
1993-03-21 12:45:37 +03:00
db_lp = db_line;
db_endlp = db_line;
}
static int
db_read_char(void)
1993-03-21 12:45:37 +03:00
{
int c;
if (db_look_char != 0) {
c = db_look_char;
db_look_char = 0;
1993-03-21 12:45:37 +03:00
}
else if (db_lp >= db_endlp)
c = -1;
else
c = *db_lp++;
1993-03-21 12:45:37 +03:00
return (c);
}
static void
db_unread_char(int c)
1993-03-21 12:45:37 +03:00
{
1993-03-21 12:45:37 +03:00
db_look_char = c;
}
void
db_unread_token(int t)
1993-03-21 12:45:37 +03:00
{
1993-03-21 12:45:37 +03:00
db_look_token = t;
}
int
db_read_token(void)
1993-03-21 12:45:37 +03:00
{
int t;
if (db_look_token) {
t = db_look_token;
db_look_token = 0;
1993-03-21 12:45:37 +03:00
}
else
t = db_lex();
1993-03-21 12:45:37 +03:00
return (t);
}
int db_radix = 16;
/*
* Convert the number to a string in the current radix.
* This replaces the non-standard %n printf() format.
*/
char *
db_num_to_str(db_expr_t val)
{
/*
* 2 chars for "0x", 1 for a sign ("-")
* up to 21 chars for a 64-bit number:
* % echo 2^64 | bc | wc -c
* 21
* and 1 char for a terminal NUL
* 2+1+21+1 => 25
*/
static char buf[25];
if (db_radix == 16)
2000-07-08 21:10:22 +04:00
snprintf(buf, sizeof(buf), "%#10lx", val);
else if (db_radix == 8)
2000-07-08 21:10:22 +04:00
snprintf(buf, sizeof(buf), "%#10lo", val);
else
2000-07-08 21:10:22 +04:00
snprintf(buf, sizeof(buf), "%10lu", val);
return buf;
}
1993-03-21 12:45:37 +03:00
void
db_flush_lex(void)
1993-03-21 12:45:37 +03:00
{
1993-03-21 12:45:37 +03:00
db_flush_line();
db_look_char = 0;
db_look_token = 0;
}
static int
db_lex(void)
1993-03-21 12:45:37 +03:00
{
int c;
c = db_read_char();
while (c <= ' ' || c > '~') {
if (c == '\n' || c == -1)
return (tEOL);
c = db_read_char();
1993-03-21 12:45:37 +03:00
}
if (c >= '0' && c <= '9') {
/* number */
db_expr_t r, digit = 0;
1993-03-21 12:45:37 +03:00
if (c > '0')
r = db_radix;
1993-03-21 12:45:37 +03:00
else {
c = db_read_char();
if (c == 'O' || c == 'o')
r = 8;
else if (c == 'T' || c == 't')
r = 10;
else if (c == 'X' || c == 'x')
r = 16;
else {
r = db_radix;
db_unread_char(c);
}
c = db_read_char();
1993-03-21 12:45:37 +03:00
}
db_tok_number = 0;
for (;;) {
if (c >= '0' && c <= ((r == 8) ? '7' : '9'))
digit = c - '0';
else if (r == 16 && ((c >= 'A' && c <= 'F') ||
(c >= 'a' && c <= 'f'))) {
if (c >= 'a')
digit = c - 'a' + 10;
else if (c >= 'A')
digit = c - 'A' + 10;
}
else
break;
db_tok_number = db_tok_number * r + digit;
c = db_read_char();
1993-03-21 12:45:37 +03:00
}
if ((c >= '0' && c <= '9') ||
(c >= 'A' && c <= 'Z') ||
(c >= 'a' && c <= 'z') ||
(c == '_')) {
db_error("Bad character in number\n");
/*NOTREACHED*/
}
db_unread_char(c);
return (tNUMBER);
1993-03-21 12:45:37 +03:00
}
if ((c >= 'A' && c <= 'Z') ||
(c >= 'a' && c <= 'z') ||
c == '_' || c == '\\') {
/* string */
char *cp;
1993-03-21 12:45:37 +03:00
cp = db_tok_string;
if (c == '\\') {
1993-03-21 12:45:37 +03:00
c = db_read_char();
1994-10-09 11:56:23 +03:00
if (c == '\n' || c == -1) {
db_error("Bad escape\n");
/*NOTREACHED*/
1994-10-09 11:56:23 +03:00
}
1993-03-21 12:45:37 +03:00
}
*cp++ = c;
while (1) {
c = db_read_char();
if ((c >= 'A' && c <= 'Z') ||
(c >= 'a' && c <= 'z') ||
(c >= '0' && c <= '9') ||
c == '_' || c == '\\' || c == ':') {
if (c == '\\') {
c = db_read_char();
if (c == '\n' || c == -1) {
db_error("Bad escape\n");
/*NOTREACHED*/
}
}
*cp++ = c;
if (cp == db_tok_string+sizeof(db_tok_string)) {
db_error("String too long\n");
/*NOTREACHED*/
}
continue;
} else {
*cp = '\0';
break;
}
1993-03-21 12:45:37 +03:00
}
db_unread_char(c);
return (tIDENT);
1993-03-21 12:45:37 +03:00
}
switch (c) {
case '+':
1993-03-21 12:45:37 +03:00
return (tPLUS);
case '-':
1993-03-21 12:45:37 +03:00
return (tMINUS);
case '.':
1993-03-21 12:45:37 +03:00
c = db_read_char();
if (c == '.')
return (tDOTDOT);
1993-03-21 12:45:37 +03:00
db_unread_char(c);
return (tDOT);
case '*':
1993-03-21 12:45:37 +03:00
return (tSTAR);
case '/':
1993-03-21 12:45:37 +03:00
return (tSLASH);
case '=':
1993-03-21 12:45:37 +03:00
return (tEQ);
case '%':
1993-03-21 12:45:37 +03:00
return (tPCT);
case '#':
1993-03-21 12:45:37 +03:00
return (tHASH);
case '(':
1993-03-21 12:45:37 +03:00
return (tLPAREN);
case ')':
1993-03-21 12:45:37 +03:00
return (tRPAREN);
case ',':
1993-03-21 12:45:37 +03:00
return (tCOMMA);
case '"':
1993-03-21 12:45:37 +03:00
return (tDITTO);
case '$':
1993-03-21 12:45:37 +03:00
return (tDOLLAR);
case '!':
1993-03-21 12:45:37 +03:00
return (tEXCL);
case '<':
1993-03-21 12:45:37 +03:00
c = db_read_char();
if (c == '<')
return (tSHIFT_L);
1993-03-21 12:45:37 +03:00
db_unread_char(c);
break;
case '>':
1993-03-21 12:45:37 +03:00
c = db_read_char();
if (c == '>')
return (tSHIFT_R);
1993-03-21 12:45:37 +03:00
db_unread_char(c);
break;
case -1:
1993-03-21 12:45:37 +03:00
return (tEOF);
}
db_printf("Bad character\n");
db_flush_lex();
return (tEOF);
}