Changeset 936551 in git

Timestamp:

Apr 17, 2008, 2:32:13 PM (16 years ago)

Author:

Oliver Wienand <wienand@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

7282887cb4b64d9b0bd7422605cafe9778d1a02e

Parents:

16466a84f8e6357349b0be5a5d5d30d69ce673d4

Message:

F5 Implementierung


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

Files:

• Singular/extra.cc (modified) (3 diffs)
• kernel/f5gb.cc (added)
• kernel/f5gb.h (added)

Singular/extra.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: extra.cc,v 1.265 2008-03-19 17:44:29 Singular Exp $ */
+/* $Id: extra.cc,v 1.266 2008-04-17 12:32:13 wienand Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -57 +57 @@
 #ifdef HAVE_RINGS
 #include "ringgb.h"
+#endif
+
+#ifdef HAVE_F5
+#include "f5gb.h"
 #endif
 
@@ -2555 +2559 @@
     else
 #endif
+#ifdef HAVE_F5
+/*==================== F5 Implementation =================*/
+    if (strcmp(sys_cmd, "F5")==0)
+    {
+      ring r = currRing;
+      ideal G = (ideal) h->Data();
+      res->rtyp=IDEAL_CMD;
+      res->data=(ideal) computeF5(G, r);
+      return(FALSE);
+    }
+    else
+#endif
 #ifdef HAVE_RINGS
 /*==================== Testing groebner basis =================*/