Changeset a425ec4 in git

Timestamp:

Oct 2, 2008, 2:02:36 PM (15 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '0604212ebb110535022efecad887940825b97c3f')

Children:

9d7447d8bc6a22cf11238df4f670a1d68d5fc982

Parents:

4b00efa888e880210e2ee5d8e9b301e5a1f002ad

Message:

*hannes:freegb moved


git-svn-id: file:///usr/local/Singular/svn/trunk@11095 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.282 2008-09-10 09:15:52 Singular Exp $ */
+/* $Id: extra.cc,v 1.283 2008-10-02 12:02:36 Singular Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -916 +916 @@
     }
     else
-#endif
+/*==================== freeGB, twosided GB in free algebra =================*/
+#ifdef HAVE_SHIFTBBA
+    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);
+        if (res->data == NULL)
+        {
+          /* that is there were input errors */
+          res->data = I;
+        }
+        res->rtyp = IDEAL_CMD;
+      }
+      else return TRUE;
+      return FALSE;
+    }
+    else
+#endif /*SHIFTBBA*/
+#endif /*PLURAL*/
 #ifdef HAVE_WALK
 /*==================== walk stuff =================*/
@@ -2631 +2665 @@
     }
     else
-/*==================== freeGB, twosided GB in free algebra =================*/
-#ifdef HAVE_SHIFTBBA
-    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);
-        if (res->data == NULL)
-        {
-          /* that is there were input errors */
-          res->data = I;
-        }
-        res->rtyp = IDEAL_CMD;
-      }
-      else return TRUE;
-      return FALSE;
-    }
-    else
-#endif
 /*==================== shift-test for freeGB  =================*/
 #ifdef HAVE_SHIFTBBA