Changeset 64d729 in git for Singular/febase.inc

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/febase.inc (modified) (4 diffs)

Singular/febase.inc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: febase.inc,v 1.20 1999-03-16 15:33:06 Singular Exp $ */
+/* $Id: febase.inc,v 1.21 1999-04-15 17:28:02 Singular Exp $ */
 /*
 * ABSTRACT: handling of 'voices'
 */
 #include <ctype.h>
+#include "sdb.h"
+
+extern int blocknest; /* scaner.l internal */
 
 int    yy_noeof=0;     // the scanner "state"
@@ -154 +157 @@
     case BT_if:
     case BT_else:
-                     yylineno = yy_blocklineno;
-                     break;
     case BT_break:
                      yylineno = yy_blocklineno-1;
@@ -401 +402 @@
       else
         Print("%s %3d%c ",currentVoice->filename,yylineno,prompt_char);
-    }
+     }
     #ifdef HAVE_TCL
     if(tclmode)
@@ -426 +427 @@
     Print("{%d}",yylineno);
     mflush();
+  }
+  if ((blocknest==0)
+  && (currentVoice->pi!=NULL)
+  && (currentVoice->pi->trace_flag&TRACE_BREAKPOINT))
+  {
+    sdb(currentVoice, anf, len_s);
   }
   prompt_char = '.';