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

inp_search_opening_paren(), cleanup

This commit is contained in:
rlar 2013-10-03 11:54:58 +02:00
parent 23b4722bc0
commit 87f53913bd
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/frontend/inpcom.c
View File

@ -1808,18 +1808,19 @@ inp_search_closing_paren(char *s)
/* search backwards for opening paren */
static char *
inp_search_opening_paren(char *str_ptr, char *line)
inp_search_opening_paren(char *s, char *start)
{
int count = 1;
// assert(*str_ptr == ')')
while ((count != 0) && (str_ptr != line)) {
str_ptr--;
if (*str_ptr == '(')
// assert(*s == ')')
while ((count != 0) && (s != start)) {
s--;
if (*s == '(')
count--;
if (*str_ptr == ')')
if (*s == ')')
count++;
}
return str_ptr;
return s;
}