luke
/
ngspice
mirror of https://git.code.sf.net/p/ngspice/ngspice
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
ngspice/src/parser/lexical.c

315 lines
8.0 KiB
C
Raw Blame History

/**********
Copyright 1990 Regents of the University of California. All rights reserved.
Author: 1985 Wayne A. Christopher, U. C. Berkeley CAD Group
**********/
/*
* Initial lexer.
*/
#include <config.h>
#include "ngspice.h"
#include "cpdefs.h"
#include <errno.h>
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif
#ifdef HAVE_PWD_H
#include <sys/types.h>
#include <pwd.h>
#endif
/* MW. Linux has TIOCSTI, so we include all headers here */
#include <sys/ioctl.h>
#ifdef HAVE_SGTTY_H
#include <sys/types.h>
#include <sgtty.h>
#else
#ifdef HAVE_TERMIO_H
#include <sys/types.h>
#include <termio.h>
#else
#ifdef HAVE_TERMIOS_H
#include <sys/types.h>
#include <termios.h>
#endif
#endif
#endif
#include "fteinput.h"
#include "lexical.h"
static void prompt(void);
FILE *cp_inp_cur = NULL;
int cp_event = 1;
bool cp_interactive = TRUE;
bool cp_bqflag = FALSE;
char *cp_promptstring = NULL;
char *cp_altprompt = NULL;
char cp_hash = '#';
static int numeofs = 0;
#define ESCAPE '\033'
/* Return a list of words, with backslash quoting and '' quoting done.
* Strings en(void) closed in "" or `` are made single words and returned,
* but with the "" or `` still present. For the \ and '' cases, the
* 8th bit is turned on (as in csh) to prevent them from being recogized,
* and stripped off once all processing is done. We also have to deal with
* command, filename, and keyword completion here.
* If string is non-NULL, then use it instead of the fp. Escape and EOF
* have no business being in the string.
*/
#define newword cw->wl_word = copy(buf); \
cw->wl_next = alloc(struct wordlist); \
cw->wl_next->wl_prev = cw; \
cw = cw->wl_next; \
cw->wl_next = NULL; \
bzero(buf, BSIZE_SP); \
i = 0;
wordlist *
cp_lexer(char *string)
{
int c;
int i, j;
wordlist *wlist = NULL, *cw = NULL;
char buf[BSIZE_SP], linebuf[BSIZE_SP], d;
int paren;
if (cp_inp_cur == NULL)
cp_inp_cur = cp_in;
if (!string && cp_interactive) {
cp_ccon(TRUE);
prompt();
}
nloop: i = 0;
j = 0;
paren = 0;
bzero(linebuf, BSIZE_SP);
bzero(buf, BSIZE_SP);
wlist = cw = alloc(struct wordlist);
cw->wl_next = cw->wl_prev = NULL;
for (;;) {
if (string) {
c = *string++;
if (c == '\0')
c = '\n';
if (c == ESCAPE)
c = '[';
} else
c = input(cp_inp_cur);
gotchar:
if ((c != EOF) && (c != ESCAPE))
linebuf[j++] = c;
if (c != EOF)
numeofs = 0;
if (i == BSIZE_SP - 1) {
fprintf(cp_err, "Warning: word too long.\n");
c = ' ';
}
if (j == BSIZE_SP - 1) {
fprintf(cp_err, "Warning: line too long.\n");
if (cp_bqflag)
c = EOF;
else
c = '\n';
}
if (c != EOF)
c = strip(c); /* Don't need to do this really. */
if ((c == '\\' && DIR_TERM != '\\') || (c == '\026') /* ^V */ ) {
c = quote(string ? *string++ : input(cp_inp_cur));
linebuf[j++] = strip(c);
}
if ((c == '\n') && cp_bqflag)
c = ' ';
if ((c == EOF) && cp_bqflag)
c = '\n';
if ((c == cp_hash) && !cp_interactive && (j == 1)) {
if (string)
return (NULL);
while (((c = input(cp_inp_cur)) != '\n') &&
(c != EOF));
goto nloop;
}
if ((c == '(') || (c == '[')) /* MW. Nedded by parse() */
paren++;
else if ((c == ')') || (c == ']'))
paren--;
switch (c) {
case ' ':
case '\t':
if (i > 0) {
newword;
}
break;
case '\n':
if (i) {
buf[i] = '\0';
cw->wl_word = copy(buf);
} else if (cw->wl_prev) {
cw->wl_prev->wl_next = NULL;
tfree(cw);
} else {
cw->wl_word = NULL;
}
goto done;
case '\'':
while (((c = (string ? *string++ :
input(cp_inp_cur))) != '\'')
&& (i < BSIZE_SP - 1)) {
if ((c == '\n') || (c == EOF) || (c == ESCAPE))
goto gotchar;
else {
buf[i++] = quote(c);
linebuf[j++] = c;
}
}
linebuf[j++] = '\'';
break;
case '"':
case '`':
d = c;
buf[i++] = d;
while (((c = (string ? *string++ : input(cp_inp_cur)))
!= d) && (i < BSIZE_SP - 2)) {
if ((c == '\n') || (c == EOF) || (c == ESCAPE))
goto gotchar;
else if (c == '\\') {
linebuf[j++] = c;
c = (string ? *string++ :
input(cp_inp_cur));
buf[i++] = quote(c);
linebuf[j++] = c;
} else {
buf[i++] = c;
linebuf[j++] = c;
}
}
buf[i++] = d;
linebuf[j++] = d;
break;
case '\004':
case EOF:
if (cp_interactive && !cp_nocc &&
(string == NULL)) {
if (j == 0) {
if (cp_ignoreeof && (numeofs++
< 23)) {
fputs(
"Use \"quit\" to quit.\n",
stdout);
} else {
fputs("quit\n", stdout);
cp_doquit();
}
goto done;
}
cp_ccom(wlist, buf, FALSE);
wl_free(wlist);
(void) fputc('\r', cp_out);
prompt();
for (j = 0; linebuf[j]; j++)
#ifdef TIOCSTI
(void) ioctl(fileno(cp_out), TIOCSTI, linebuf + j);
#else
fputc(linebuf[j], cp_out); /* But you can't edit */
#endif
goto nloop;
} else /* EOF during a source */
{
if (cp_interactive) {
fputs("quit\n", stdout);
cp_doquit();
goto done;
} else
return (NULL);
}
case ESCAPE:
if (cp_interactive && !cp_nocc) {
fputs("\b\b \b\b\r", cp_out);
prompt();
for (j = 0; linebuf[j]; j++)
#ifdef TIOCSTI
(void) ioctl(fileno(cp_out), TIOCSTI, linebuf + j);
#else
fputc(linebuf[j], cp_out); /* But you can't edit */
#endif
cp_ccom(wlist, buf, TRUE);
wl_free(wlist);
goto nloop;
} /* Else fall through */
case ',':
if (paren < 1 && i > 0) {
newword;
break;
}
default:
/* We have to remember the special case $<
* here
*/
if ((cp_chars[c] & CPC_BRL) && (i > 0)) {
if ((c != '<') || (buf[i - 1] != '$')) {
newword;
}
}
buf[i++] = c;
if (cp_chars[c] & CPC_BRR) {
if ((c != '<') || (i < 2) ||
(buf[i - 2] != '$')) {
newword;
}
}
}
}
done:
return (wlist);
}
static void
prompt(void)
{
char *s;
if (cp_interactive == FALSE)
return;
if (cp_promptstring == NULL)
s = "-> ";
else
s = cp_promptstring;
if (cp_altprompt)
s = cp_altprompt;
while (*s) {
switch (strip(*s)) {
case '!':
fprintf(cp_out, "%d", cp_event);
break;
case '\\':
if (*(s + 1))
(void) putc(strip(*++s), cp_out);
default:
(void) putc(strip(*s), cp_out);
}
s++;
}
(void) fflush(cp_out);
return;
}
Reference in New Issue View Git Blame Copy Permalink