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

getword(), cleanup

This commit is contained in:
rlar 2016-05-06 19:42:35 +02:00
parent 52ec0a262c
commit d3d966b027
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/frontend/numparam/xpressn.c
View File

@ -1320,24 +1320,21 @@ static void
getword(const char * const s, SPICE_DSTRINGPTR tstr_p, const char **pi)
/* isolate a word from s after position "after". return i= last read+1 */
{
const char *iptr;
iptr = *pi;
const char *ls_ptr;
ls_ptr = s + (int) strlen(s);
const char *iptr = *pi;
const char * const ls_ptr = s + (int) strlen(s);
do
iptr++;
while (((iptr - s) < (ls_ptr - s)) && !alfa(s[(iptr - s) - 1]));
while ((iptr < ls_ptr) && !alfa(iptr[-1]));
spice_dstring_reinit(tstr_p);
while (((iptr - s) <= (ls_ptr - s)) && (alfa(s[(iptr - s) - 1]) || isdigit_c(s[(iptr - s) - 1]))) {
cadd(tstr_p, toupper_c(s[(iptr - s) - 1]));
while ((iptr <= ls_ptr) && (alfa(iptr[-1]) || isdigit_c(iptr[-1]))) {
cadd(tstr_p, toupper_c(iptr[-1]));
iptr++;
}
*pi = s + (iptr - s);
*pi = iptr;
}