Changeset d15996 in git

Timestamp:

May 11, 2007, 12:50:40 PM (17 years ago)

Author:

Oliver Wienand <wienand@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '38dfc5131670d387a89455159ed1e071997eec94')

Children:

a5d7c1678c0189cdbfc0cdf82adb206d80d8bcbb

Parents:

206e158300abe1d4f5f645360e34cd93c2f16071

Message:

mind your own buisness *g*


git-svn-id: file:///usr/local/Singular/svn/trunk@10035 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.253 2007-03-12 14:13:22 levandov Exp $ */
+/* $Id: extra.cc,v 1.254 2007-05-11 10:50:40 wienand Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -55 +55 @@
 #include "mpr_complex.h"
 
-#ifdef HAVE_RING2TOM
+#ifdef HAVE_RINGS
 #include "ringgb.h"
 #endif
@@ -2542 +2542 @@
     }
     else
+    if (strcmp(sys_cmd, "redNF_ring")==0)
+    {
+      ring r = currRing;
+      poly f = (poly) h->Data();
+      h = h->next;
+      ideal G = (ideal) h->Data();
+      res->rtyp=POLY_CMD;
+      res->data=(poly) ringRedNF(f, G, r);
+      return(FALSE);
+    }
+    else
+#endif
+#ifdef HAVE_RINGS
+/*==================== Testing groebner basis =================*/
     if (strcmp(sys_cmd, "NF_ring")==0)
     {
@@ -2553 +2567 @@
     }
     else
-    if (strcmp(sys_cmd, "redNF_ring")==0)
-    {
-      ring r = currRing;
-      poly f = (poly) h->Data();
-      h = h->next;
-      ideal G = (ideal) h->Data();
-      res->rtyp=POLY_CMD;
-      res->data=(poly) ringRedNF(f, G, r);
-      return(FALSE);
-    }
-    else
-/*==================== Testing groebner basis =================*/
     if (strcmp(sys_cmd, "spoly")==0)
     {