Changeset 301af2 in git

Timestamp:

Jun 2, 2007, 3:28:22 PM (17 years ago)

Author:

Viktor Levandovskyy <levandov@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

3a67ea7637bbe5c19cff4387511dc0887befa1d0

Parents:

7d9dab9f7a593c8d9d7130470cc6223b842425eb

Message:

*levandov: freegb handle introduced


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

File:

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

Singular/extra.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: extra.cc,v 1.255 2007-05-15 13:55:00 Singular Exp $ */
+/* $Id: extra.cc,v 1.256 2007-06-02 13:28:22 levandov Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -114 +114 @@
 
 #include "fast_maps.h"
+
+/* #include "shiftgb.h" */
 
 #ifdef HAVE_EIGENVAL
@@ -2702 +2704 @@
     }
     else
+/*==================== freeGB, twosided GB in free algebra =================*/
+    if (strcmp(sys_cmd, "freegb") == 0)
+    {
+      ideal I;
+      int uptodeg, lVblock;
+      if ((h!=NULL) && (h->Typ()==IDEAL_CMD))
+      {
+        I=(ideal)h->CopyD();
+        h=h->next;
+      }
+      else return TRUE;
+      if ((h!=NULL) && (h->Typ()==INT_CMD))
+      {
+        uptodeg=(int)((long)(h->Data()));
+        h=h->next;
+      }
+      else return TRUE;
+      if ((h!=NULL) && (h->Typ()==INT_CMD))
+      {
+        lVblock=(int)((long)(h->Data()));
+        //      res->data = freegb(I,uptodeg,lVblock);
+        //      res->rtyp = IDEAL_CMD;
+      }
+      else return TRUE;
+      return FALSE;
+    }
+    else
 #endif
 /*==================== t-rep-GB ==================================*/