Changeset f8936f in git for Singular/extra.cc

Timestamp:

Feb 15, 2008, 6:12:09 PM (16 years ago)

Author:

Viktor Levandovskyy <levandov@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

a8052e38caee753e26ebdc45c94dabda11bcbe2a

Parents:

cfce1fc1320639fd7b15b4a9f903521313fd0752

Message:

*levandov: freegb function in extended system


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

File:

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

Singular/extra.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: extra.cc,v 1.262 2008-01-31 13:24:28 Singular Exp $ */
+/* $Id: extra.cc,v 1.263 2008-02-15 17:12:09 levandov Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -1872 +1872 @@
 #include "mod_raw.h"
 #include "ratgring.h"
+#include "shiftgb.h"
 
 static BOOLEAN jjEXTENDED_SYSTEM(leftv res, leftv h)
@@ -2617 +2618 @@
     else
 #endif
+#ifdef HAVE_PLURAL
 #ifdef HAVE_RATGRING
 /*==================== RatNF, noncomm rational coeffs =================*/
@@ -2704 +2706 @@
     }
     else
-#endif
-#ifdef HAVE_PLURAL
+#endif // HAVE_RATGRING
 /*==================== freeGB, twosided GB in free algebra =================*/
     if (strcmp(sys_cmd, "freegb") == 0)
@@ -2726 +2727 @@
       {
         lVblock=(int)((long)(h->Data()));
-        //      res->data = freegb(I,uptodeg,lVblock);
-        //      res->rtyp = IDEAL_CMD;
+        res->data = freegb(I,uptodeg,lVblock);
+        res->rtyp = IDEAL_CMD;
       }
       else return TRUE;