Changeset c3cb95 in git

Timestamp:

Sep 22, 1999, 4:42:33 PM (24 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

acd64363f3a94a76f781aa7beb80a6853c595eba

Parents:

7b17cd27ba32c45609788f798f47448a335f99a5

Message:

*hannes: added cleanup in iiLoadLIB


git-svn-id: file:///usr/local/Singular/svn/trunk@3644 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/iplib.cc (modified) (3 diffs)

Singular/iplib.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iplib.cc,v 1.60 1999-08-16 12:39:57 Singular Exp $ */
+/* $Id: iplib.cc,v 1.61 1999-09-22 14:42:33 Singular Exp $ */
 /*
 * ABSTRACT: interpreter: LIB and help
@@ -788 +788 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
+#ifndef HAVE_NAMESPACES
+static void iiCleanProcs(idhdl &root)
+{
+  loop
+  {
+    if (root==NULL) return;
+    if (IDTYP(root)==PROC_CMD)
+    {
+      procinfo pi=(procinfo)IDDATA(root);
+      if ((pi->language == LANG_SINGULAR)
+      && (pi->data.s.body_start == 0L))
+      {
+        // procinfo data incorrect:
+        // - no proc body can start at the beginning of the file
+        killhdl(&root);
+      }
+      continue;
+    }
+    root=IDNEXT(root);
+  }
+}
+/*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
 static BOOLEAN iiLoadLIB(FILE *fp, char *libnamebuf, char*newlib,
              idhdl pl, BOOLEAN autoexport, BOOLEAN tellerror)
@@ -822 +844 @@
     reinit_yylp();
     fclose( yylpin );
+#ifdef HAVE_NAMESPACES
+    iiCleanProcs(idroot);
+#endif /* HAVE_NAMESPACES */
     return TRUE;
   }