WebSVN – wimsdev – Diff – /trunk/wims/src/Lib/liblines.c

 /* Check whether parentheses are balanced in a given string.
  * Returns 0 if OK.
  */
 /* style=0: simple check. style<>0: strong check. */
-int check_parentheses(char *p, int style)
+static int _check_parentheses(char *p, char *q, int style)
+{
-  int i,j,k;
+  int i,j = q-p, k;
-  j=strlen(p);
-  if(j>=MAX_LINELEN) return 65535;
   if(style!=0) {
-    char buf[MAX_LINELEN+1];
     char *pp, *pe, c;
     for(pp=p;pp<p+j;pp++) {
       switch (*pp) {
         case ')':
         case ']':
         case '(': c=')'; goto find;
         case '[': c=']'; goto find;
         case '{': c='}';
         find: {
           pe=find_matching(pp+1,c);
-          if(pe==NULL) return 1;
+          if(pe==NULL||pe>q) return 1;
-          memcpy(buf,pp+1,pe-pp-1);
-          buf[pe-pp-1]=0;
-          if((k=check_parentheses(buf,1))!=0) return k;
+              if((k=_check_parentheses(pp+1,pe-1,1))!=0) return k;
           else pp=pe;
+        }
         default: break;
+      }
+    }
   for(i=k=0;i<j && k>=0;i++) {
     if(*(p+i)=='(') k++;
     if(*(p+i)==')') k--;
+  }
   return k;
+}
+int check_parentheses(char *p, int style)
+{
+  int j=strlen(p);
+  if(j>=MAX_LINELEN) return 65535;
+  return _check_parentheses(p, p+j, style);
+}
 /* Strip enclosing pairs of parentheses */
 void strip_enclosing_par(char *p)
+{

Subversion Repositories wimsdev