Changeset cfce1fc in git for Singular/ipconv.cc

Timestamp:

Feb 15, 2008, 6:11:49 PM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

f8936f565657685235517dead95409e8ff929d77

Parents:

b0db25abf3084c7d7d01f25d0aba758412326e95

Message:

*hannes: cast bigint -> number


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

File:

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

Singular/ipconv.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipconv.cc,v 1.35 2007-01-29 18:19:59 Singular Exp $ */
+/* $Id: ipconv.cc,v 1.36 2008-02-15 17:11:49 Singular Exp $ */
 /*
 * ABSTRACT: automatic type conversions
@@ -128 +128 @@
 }
 
+extern number ngfMapQ(number from); // gnumpfl.cc
+extern number ngcMapQ(number from); // gnumpc.cc
+extern number nrMapQ(number from);  // shortfl.cc
+
+static void * iiBI2N(void *data)
+{
+  if (currRing==NULL) return NULL;
+  // a bigint is really a number from char 0, with diffrent operations...
+  if (rField_is_Q())      return (void*)nlCopy((number)data);
+  if (rField_is_Zp())     return (void*)npMap0((number)data);
+  if (rField_is_long_R()) return (void*)ngfMapQ((number)data);
+  if (rField_is_long_C()) return (void*)ngcMapQ((number)data);
+  if (rField_is_R())      return (void*)nrMapQ((number)data);
+  if (rField_is_Q_a())    return (void*)naMap00((number)data);
+  if (rField_is_Zp_a())   return (void*)naMap0P((number)data);
+  WerrorS("cannot convert bigint to this ring");
+  return NULL;
+}
+
 static void * iiIm2Ma(void *data)
 {
@@ -226 +245 @@
 //  int -> intvec
    { INT_CMD,         INTVEC_CMD,     iiI2Iv , NULL },
+//  bigint -> number
+   { BIGINT_CMD,      NUMBER_CMD,     iiBI2N , NULL },
 //  intvec -> intmat
    { INTVEC_CMD,      INTMAT_CMD,     iiDummy, NULL },