Changeset 8fe755 in git for Singular/checklibs.c

Timestamp:

Jun 28, 2017, 4:59:06 PM (7 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

eeb59b7cdc953ab8fc317de9519bebd946fd012c

Parents:

4536792bd3f77133969d911b8ce8c2be84d7d60d

Message:

fix: check also help of proc

File:

• Singular/checklibs.c (modified) (4 diffs)

Singular/checklibs.c

@@ -24 +24 @@
 int header=0;
 int crlf=0;
+int proc_help_lines=0;
+int proc_help_texinfo=0;
 
 void get_next()
@@ -129 +131 @@
   }
   printf("error: seperate keywords by ; but do not have ; after the last keyword\n");
+}
+void scan_proc_help(const char *s)
+{
+  while(!feof(f))
+  {
+    proc_help_lines++;
+    if (strstr(buf,"\";")!=NULL) break;
+    if (buf[0]=='{') break;
+    if (strstr(buf,"@")!=NULL)
+    {
+      proc_help_texinfo++;
+      buf[strlen(buf)-1]='\0';
+      strcat(buf,"<<\n");
+      printf("texinfo in proc help(%s): >>%s",s,buf);
+    }
+    get_next();
+  }
 }
 void scan_info(int *l)
@@ -388 +407 @@
         while(*p==' ') p++;
         if (*p == '"') have_doc[i]=1;
+        /* scan proc help*/
+        scan_proc_help(proc[i]);
         /* serach for example */
         while(!feof(f))
@@ -438 +459 @@
   printf("%d lines parsed\n",lines);
   printf("%d proc found in header\n",proc_cnt);
+  printf("%d lines found in proc help\n",proc_help_lines);
+  printf("%d lines found in proc help with texinfo commands (should be very small)\n",proc_help_texinfo);
   fclose(f);
   return 0;