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

The logicexp example in the PSpice ref. manual has a name with a '+' character (LCN+4). Update lexer_scan.

This commit is contained in:
Brian Taylor 2023-03-07 17:16:38 -08:00 committed by Holger Vogt
parent 40a540a2ff
commit 8c69ada5b5
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/frontend/logicexp.c
View File

@ -347,7 +347,7 @@ static int lex_gate_op(int c)
static int lex_ident(int c) static int lex_ident(int c)
{ {
/* Pspice and MicroCap are vague about what defines an identifier */ /* Pspice and MicroCap are vague about what defines an identifier */
if (isalnum(c) || c == '_' || c == '/' || c == '-') if (isalnum(c) || c == '_' || c == '/' || c == '-' || c == '+')
return c; return c;
else else
return 0; return 0;
@ -369,6 +369,11 @@ static int lexer_scan(LEXER lx)
return c; return c;
else if (lex_ident(c)) { else if (lex_ident(c)) {
size_t i = 0; size_t i = 0;
if (c == '+') { // an identifier does not begin with '+'
lx->lexer_buf[0] = (char) c;
lx->lexer_buf[1] = '\0';
return LEX_OTHER;
}
while (lex_ident(c)) { while (lex_ident(c)) {
if (i >= lx->lexer_blen) { if (i >= lx->lexer_blen) {
lx->lexer_blen *= 2; lx->lexer_blen *= 2;