Changeset 64d729 in git for Singular/iplib.cc

Timestamp:

Apr 15, 1999, 7:28:06 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

dd9b83cb6123e79d811d45dd8b7d79c748f994e6

Parents:

1518b9cf23aa2598228863099857cedec82668c2

Message:

* hannes: introduced debugger (hook and first implementation)


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

File:

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

Singular/iplib.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iplib.cc,v 1.53 1999-04-01 10:09:58 krueger Exp $ */
+/* $Id: iplib.cc,v 1.54 1999-04-15 17:28:04 Singular Exp $ */
 /*
 * ABSTRACT: interpreter: LIB and help
@@ -245 +245 @@
   BOOLEAN err=FALSE;
   int old_echo=si_echo;
+  char save_flags=0;
+  procinfov pi=NULL;
 
   /* init febase ======================================== */
@@ -250 +252 @@
   if (pn!=NULL)
   {
-    procinfov pi;
     pi = IDPROC(pn);
     if(pi!=NULL)
     {
+      save_flags=pi->trace_flag;
       if( pi->data.s.body==NULL )
       {
-        iiGetLibProcBuffer(IDPROC(pn));
-        if (IDPROC(pn)->data.s.body==NULL) return TRUE;
+        iiGetLibProcBuffer(pi);
+        if (pi->data.s.body==NULL) return TRUE;
       }
-      newBuffer( mstrdup(IDPROC(pn)->data.s.body), BT_proc,
-                 pi, IDPROC(pn)->data.s.body_lineno );
-    }
-    //else
-    //{ // for security only
-    //  newBuffer( mstrdup(IDSTRING(pn)), BT_proc, IDID(pn) );
-    //}
+      newBuffer( mstrdup(pi->data.s.body), BT_proc,
+                 pi, pi->data.s.body_lineno-(v!=NULL) );
+    }
   }
   /* generate argument list ======================================*/
@@ -280 +278 @@
   /* start interpreter ======================================*/
   myynest++;
-  //Print("%-*.*s PStart <<%s>>, level:%d\n",2*myynest,2*myynest," ",IDID(pn),myynest);
   err=yyparse();
   killlocals(myynest);
   myynest--;
   si_echo=old_echo;
-  //Print("%-*.*s PEnd  <<%s>>, level:%d\n",2*myynest,2*myynest," ",IDID(pn),myynest);
-
+  if (pi!=NULL)
+    pi->trace_flag=save_flags;
   return err;
 }
@@ -628 +625 @@
   char libnamebuf[128];
   package pack = IDPACKAGE(packhdl);
-  
+
   if(pack->language == LANG_NONE) return FALSE;
-  
+
   FILE * fp = feFopen( pack->libname, "r", libnamebuf, FALSE);
   if (fp==NULL)
@@ -766 +763 @@
   LoadResult = iiLoadLIB(fp, libnamebuf, newlib, NULL, FALSE, tellerror);
 #endif /* HAVE_NAMESPACES */
-  
+
 #ifdef HAVE_NAMESPACES
   if(!LoadResult) IDPACKAGE(pl)->loaded = TRUE;
@@ -836 +833 @@
   fclose( yylpin );
   fp = NULL;
-  
+
 #ifdef HAVE_NAMESPACES
   namespaceroot->pop();
@@ -940 +937 @@
   int token;
   char FullName[256];
-  
+
   if( *fullname != '/' &&  *fullname != '.' )
     sprintf(FullName, "./%s", newlib);
   else strcpy(FullName, fullname);
-  
+
 
   if(IsCmd(plib, &token))
@@ -965 +962 @@
     {
       Warn("not of typ package.");
-      goto load_modules_end; 
+      goto load_modules_end;
     }
   }
@@ -974 +971 @@
     WerrorS("dynl_open failed");
     Werror("%s not found", newlib);
-    goto load_modules_end; 
+    goto load_modules_end;
   }
   else
@@ -988 +985 @@
   namespaceroot->pop();
   return RET;
-  
+
 }
 #endif /* HAVE_DYNAMIC_LOADING */
@@ -1144 +1141 @@
   FILE * fp = feFopen( newlib, "r", libnamebuf, FALSE );
   ret = stat(libnamebuf, &sb);
-  
+
   if (fp==NULL)
   {
@@ -1174 +1171 @@
   }
   if(isprint(buf[0]) || buf[0]=='\n') { LT = LT_SINGULAR; goto lib_type_end; }
-  
+
   lib_type_end:
   fclose(fp);