Changeset 9eb1e8 in git for Singular/extra.cc

Timestamp:

Nov 13, 2015, 1:45:14 PM (9 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'd08f5f0bb3329b8ca19f23b74cb1473686415c3a')

Children:

66b765e3f29eeafd84422812424a97ffb5ec7c22

Parents:

6da2d6765f8866f8426131bf3a097a5c051e956e

Message:

activate: system("std_syz",<module>,<int>) for KVequiv.lib

File:

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

Singular/extra.cc

@@ -613 +613 @@
     }
     else
-    /*======================= demon_list =====================*/
+  /*==================== std_syz =================*/
+    if (strcmp(sys_cmd, "std_syz") == 0)
+    {
+      ideal i1;
+      int i2;
+      if ((h!=NULL) && (h->Typ()==MODUL_CMD))
+      {
+        i1=(ideal)h->CopyD();
+        h=h->next;
+      }
+      else return TRUE;
+      if ((h!=NULL) && (h->Typ()==INT_CMD))
+      {
+        i2=(int)((long)h->Data());
+      }
+      else return TRUE;
+      res->rtyp=MODUL_CMD;
+      res->data=idXXX(i1,i2);
+      return FALSE;
+    }
+    else
+  /*======================= demon_list =====================*/
     if (strcmp(sys_cmd,"denom_list")==0)
     {
@@ -2830 +2851 @@
       else
   #endif
-  /*==================== stdX =================*/
-      if (strcmp(sys_cmd, "std") == 0)
-      {
-        ideal i1;
-        int i2;
-        if ((h!=NULL) && (h->Typ()==MODUL_CMD))
-        {
-          i1=(ideal)h->CopyD();
-          h=h->next;
-        }
-        else return TRUE;
-        if ((h!=NULL) && (h->Typ()==INT_CMD))
-        {
-          i2=(int)((long)h->Data());
-        }
-        else return TRUE;
-        res->rtyp=MODUL_CMD;
-        res->data=idXXX(i1,i2);
-        return FALSE;
-      }
-      else
   /*==================== SVD =================*/
   #ifdef HAVE_SVD
@@ -2858 +2858 @@
               res->rtyp=LIST_CMD;
             res->data=(char*)(testsvd((matrix)h->Data()));
-            return FALSE;
+            eturn FALSE;
        }
        else