Changeset 4732f8 in git for Singular/extra.cc

Timestamp:

Feb 21, 2009, 8:30:56 PM (15 years ago)

Author:

Viktor Levandovskyy <levandov@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

cce4a2f69a8341c6b8fbb3f1e78b41bf26ed7970

Parents:

28f16452ba2351e155e944280a5d83ffdfd1ffc8

Message:

*levandov: ncratCreateSpoly added


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

File:

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

Singular/extra.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: extra.cc,v 1.295 2009-02-21 15:25:43 levandov Exp $ */
+/* $Id: extra.cc,v 1.296 2009-02-21 19:30:56 levandov Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -2705 +2705 @@
     }
     else
+/*==================== RatSpoly, noncomm rational coeffs =================*/
+    if (strcmp(sys_cmd, "ratSpoly") == 0)
+    {
+      poly p,q;
+      int is;
+      if ((h!=NULL) && (h->Typ()==POLY_CMD))
+      {
+        p=(poly)h->CopyD();
+        h=h->next;
+      }
+      else return TRUE;
+      if ((h!=NULL) && (h->Typ()==POLY_CMD))
+      {
+        q=(poly)h->CopyD();
+        h=h->next;
+      }
+      else return TRUE;
+      if ((h!=NULL) && (h->Typ()==INT_CMD))
+      {
+        is=(int)((long)(h->Data()));
+        res->rtyp=POLY_CMD;
+        //      res->rtyp=IDEAL_CMD;
+        if (rIsPluralRing(currRing))
+        { 
+          res->data = nc_rat_CreateSpoly(p,q,is,currRing);
+          //    res->data = ncGCD(p,q,currRing);        
+        }
+        else res->data=p;
+      }
+      else return TRUE;
+      return FALSE;
+    }
+    else
 #endif // HAVE_RATGRING
 /*==================== Rat def =================*/