Changeset ffa476 in git

Timestamp:

Dec 15, 2006, 3:33:05 PM (17 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '4a9821a93ffdc22a6696668bd4f6b8c9de3e6c5f')

Children:

e670d001ee1173d383ce05e30ef73a2b79270734

Parents:

55a5c0eac64b1010bc58802ed878ed3f2f4096d8

Message:

*motsak: system(PLURAL) ->ncalgebra


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

File:

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

Singular/extra.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: extra.cc,v 1.242 2006-09-22 10:32:11 Singular Exp $ */
+/* $Id: extra.cc,v 1.243 2006-12-15 14:33:05 Singular Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -764 +764 @@
     }
 /*==================== PLURAL =================*/
+#if 0
     if (strcmp(sys_cmd, "PLURAL") == 0)
     {
@@ -976 +977 @@
     }
     else
+#endif
 /*==================== opp ==================================*/
     if (strcmp(sys_cmd, "opp")==0)
@@ -2772 +2774 @@
     }
     else
+/*==================== gcd-test =================*/
+    if (strcmp(sys_cmd, "GCD") == 0)
+    {
+      if ((h!=NULL) && (h->Typ()==POLY_CMD)
+      && (h->next!=NULL) && (h->next->Typ()==POLY_CMD))
+      {
+        poly f=(poly)h->Data();
+        poly g=(poly)h->next->Data();
+        res->rtyp=POLY_CMD;
+        res->data=(char*)id_GCD(f,g,currRing);
+        return FALSE;
+      }
+      else return TRUE;
+    }
+    else
 #ifdef ix86_Win
 /*==================== Python Singular =================*/