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

Set lower case for variables or vectors in command 'echo'. 

Tokens starting with '$' will get lower-casing.
This commit is contained in:
Holger Vogt 2024-09-07 18:50:13 +02:00
parent 5ae3fc5d8a
commit 09685dde1c
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/frontend/inpcom.c
View File

@ -1667,7 +1667,19 @@ static struct inp_read_t inp_read(FILE* fp, int call_depth, const char* dir_name
for (s = buffer; *s && (*s != '\n'); s++) for (s = buffer; *s && (*s != '\n'); s++)
; ;
} }
/* lower case for variables or vectors in command 'echo' */
if (ciprefix("echo", buffer)) {
char* p = buffer;
while (p && *p != '\n' && *p != '\0') {
p = nexttok(p);
/* vectors or variables start with $ */
if (p && *p == '$') {
for (s = p; *s && !isspace_c(*s); s++)
*s = tolower_c(*s);
p = s;
}
}
}
/* add Inp_Path to buffer while keeping the sourcepath variable contents */ /* add Inp_Path to buffer while keeping the sourcepath variable contents */
if (ciprefix("set", buffer)) { if (ciprefix("set", buffer)) {
char *p; char *p;