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

lexical.c, new function cp_readchar() for abstraction

This commit is contained in:
rlar 2014-04-15 19:08:37 +02:00
parent 9bd2cdfc7b
commit 448099ef94
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/frontend/parser/lexical.c
View File

@ -104,6 +104,13 @@ pwlist_echo(wordlist *wlist, char *name)
}
static int
cp_readchar(char **string, FILE *fptr)
{
return (*string) ? *(*string)++ : input(fptr);
}
/* CDHW */
wordlist *
@ -169,7 +176,7 @@ nloop:
c = strip(c);
if ((c == '\\' && DIR_TERM != '\\') || (c == '\026') /* ^V */ ) {
c = quote(string ? *string++ : input(cp_inp_cur));
c = quote(cp_readchar(&string, cp_inp_cur));
linebuf[j++] = (char) strip(c);
}
@ -212,7 +219,7 @@ nloop:
goto done;
case '\'':
while (((c = (string ? *string++ : input(cp_inp_cur))) != '\'') &&
while (((c = cp_readchar(&string, cp_inp_cur)) != '\'') &&
(i < NEW_BSIZE_SP - 1))
{
if ((c == '\n') || (c == EOF) || (c == ESCAPE))
@ -227,14 +234,14 @@ nloop:
case '`':
d = c;
buf[i++] = (char) d;
while (((c = (string ? *string++ : input(cp_inp_cur))) != d) &&
while (((c = cp_readchar(&string, cp_inp_cur)) != d) &&
(i < NEW_BSIZE_SP - 2))
{
if ((c == '\n') || (c == EOF) || (c == ESCAPE))
goto gotchar;
if (c == '\\') {
linebuf[j++] = (char) c;
c = (string ? *string++ : input(cp_inp_cur));
c = cp_readchar(&string, cp_inp_cur);
buf[i++] = (char) quote(c);
linebuf[j++] = (char) c;
} else {