Changeset ad4bc9 in git for Singular/extra.cc

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/extra.cc (modified) (3 diffs)

Singular/extra.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: extra.cc,v 1.90 1999-04-29 11:38:40 Singular Exp $ */
+/* $Id: extra.cc,v 1.91 1999-05-06 16:53:21 Singular Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -940 +940 @@
         {
           sdb_lines[i]=lineno;
+          sdb_files[i]=p->libname;
           i++;
           Print("breakpoint %d, at line %d in %s\n",i,lineno,p->procname);
@@ -948 +949 @@
       {
         WerrorS("system(\"breakpoint\",`proc`,`int`) expected");
+        return TRUE;
+      }
+      return FALSE;
+    }
+    else
+/*==================== sdb_flags =================*/
+    if (strcmp(sys_cmd, "sdb_flags") == 0)
+    {
+      if ((h!=NULL) && (h->Typ()==INT_CMD))
+      {
+        sdb_flags=(int)h->Data();
+      }
+      else
+      {
+        WerrorS("system(\"sdb_flags\",`int`) expected");
+        return TRUE;
+      }
+      return FALSE;
+    }
+    else
+/*==================== sdb_edit =================*/
+    if (strcmp(sys_cmd, "sdb_edit") == 0)
+    {
+      if ((h!=NULL) && (h->Typ()==PROC_CMD))
+      {
+        procinfov p=(procinfov)h->Data();
+        sdb_edit(p);
+      }
+      else
+      {
+        WerrorS("system(\"sdb_edit\",`proc`) expected");
         return TRUE;
       }