Changeset ad4bc9 in git for Singular/grammar.y

Timestamp:

May 6, 1999, 6:53:35 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

c59d88ee06883f262adb708e6846ac13d54018e3

Parents:

8d4732632f41e8c44b6ae3e871af2513fba44823

Message:

* hannes: Debugger-changes, typo fixes


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

File:

• Singular/grammar.y (modified) (6 diffs)

Singular/grammar.y

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: grammar.y,v 1.59 1999-04-16 07:53:32 obachman Exp $ */
+/* $Id: grammar.y,v 1.60 1999-05-06 16:53:23 Singular Exp $ */
 /*
 * ABSTRACT: SINGULAR shell grammatik
@@ -39 +39 @@
 #include "ipshell.h"
 #include "ipconv.h"
+#include "sdb.h"
 #include "ideals.h"
 #include "numbers.h"
@@ -121 +122 @@
   if ((currentVoice!=NULL)
   && (currentVoice->prev!=NULL)
-  && (myynest>0))
+  && (myynest>0)
+  && ((sdb_flags &1)==0))
   {
     Werror("leaving %s",VoiceName());
@@ -323 +325 @@
             #endif
             prompt_char = '>';
+            if (sdb_flags & 2) { sdb_flags=0; YYERROR; }
             if(siCntrlc)
             {
@@ -377 +380 @@
             yyerror("");
             yyerrok;
+            if ((sdb_flags & 1) && currentVoice->pi!=NULL)
+            {
+              currentVoice->pi->trace_flag |=1;
+            } 
+            else
             if (myynest>0)
             {
@@ -391 +399 @@
               exitVoice();
             }
+            if (sdb_flags &2) sdb_flags=1;
           }
         ;