Changeset a1c150 in git

Timestamp:

Jan 16, 2007, 2:39:15 PM (17 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

7e1643192aa47d4202455c1f6e496dee58c49f83

Parents:

4aac7e480a94e94b52b2386eb1918bb5895a050a

Message:

*hannes: poly(bigint)


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

File:

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

Singular/iparith.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iparith.cc,v 1.433 2007-01-16 13:29:47 Singular Exp $ */
+/* $Id: iparith.cc,v 1.434 2007-01-16 13:39:15 Singular Exp $ */
 
 /*
@@ -3311 +3311 @@
   } 
 }
+static BOOLEAN jjBI2P(leftv res, leftv u)
+{
+  sleftv tmp;
+  BOOLEAN bo=jjBI2N(&tmp,u);
+  if (!bo)
+  {
+    number n=(number) tmp.data;
+    if (nIsZero(n)) { res->data=NULL;nDelete(&n); }
+    else
+    {
+      poly p=pOne();
+      pSetCoeff(p,n);
+      res->data=(void *)p;
+    }
+  }
+  return bo;
+}
 static BOOLEAN jjCALL1MANY(leftv res, leftv u)
 {
@@ -4793 +4810 @@
 ,{jjrParStr,    PARSTR_CMD,      XS(STRING_CMD), RING_CMD       ALLOW_PLURAL}
 ,{jjrParStr,    PARSTR_CMD,      XS(STRING_CMD), QRING_CMD      ALLOW_PLURAL}
+,{jjBI2P,       POLY_CMD,        POLY_CMD,       BIGINT_CMD     ALLOW_PLURAL}
 ,{jjDUMMY,      POLY_CMD,        POLY_CMD,       POLY_CMD       ALLOW_PLURAL}
 ,{jjPREIMAGE_R, PREIMAGE_CMD,    RING_CMD,       MAP_CMD        NO_PLURAL}