Changeset db5523 in git for Singular/ipconv.cc

Timestamp:

Jul 16, 2008, 2:51:26 PM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

2cba12d26c43550c249f3071faaa809d5347e1c3

Parents:

60bebce847a96725dbc8ec98959bc0302c17f5b5

Message:

*hannes: bigint


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

File:

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

Singular/ipconv.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipconv.cc,v 1.38 2008-07-16 12:41:32 wienand Exp $ */
+/* $Id: ipconv.cc,v 1.39 2008-07-16 12:51:26 Singular Exp $ */
 /*
 * ABSTRACT: automatic type conversions
@@ -50 +50 @@
 }
 
+static void * iiBI2N(void *data);
+static void * iiBI2P(void *data)
+{
+  number n=(number)iiBI2N(data);
+  nlDelete((number *)&data,NULL);
+  poly p=pNSet(n);
+  return (void *)p;
+}
+
 static void * iiI2V(void *data)
 {
   poly p=pISet((int)(long)data);
+  if (p!=NULL) pSetComp(p,1);
+  return (void *)p;
+}
+
+static void * iiBI2V(void *data)
+{
+  number n=(number)iiBI2N(data);
+  nlDelete((number *)&data,NULL);
+  poly p=pNSet(n);
   if (p!=NULL) pSetComp(p,1);
   return (void *)p;
@@ -64 +82 @@
 }
 
+static void * iiBI2Id(void *data)
+{
+  ideal I=idInit(1,1);
+  number n=(number)iiBI2N(data);
+  nlDelete((number *)&data,NULL);
+  poly p=pNSet(n);
+  I->m[0]=p;
+  return (void *)I;
+}
 static void * iiP2V(void *data)
 {
@@ -246 +273 @@
 //  int -> number
    { INT_CMD,         NUMBER_CMD,     iiI2N , NULL },
+   { BIGINT_CMD,      NUMBER_CMD,     iiBI2N , NULL },
 //  int -> poly
    { INT_CMD,         POLY_CMD,       iiI2P , NULL },
+   { BIGINT_CMD,      POLY_CMD,       iiBI2P , NULL },
 //  int -> vector
    { INT_CMD,         VECTOR_CMD,     iiI2V , NULL },
+   { BIGINT_CMD,      VECTOR_CMD,     iiBI2V , NULL },
 //  int -> ideal
    { INT_CMD,         IDEAL_CMD,      iiI2Id , NULL },
+   { BIGINT_CMD,      IDEAL_CMD,      iiBI2Id , NULL },
 //  int -> matrix
    { INT_CMD,         MATRIX_CMD,     iiI2Id , NULL },
+   { BIGINT_CMD,      MATRIX_CMD,     iiBI2Id , NULL },
 //  int -> intvec
    { INT_CMD,         INTVEC_CMD,     iiI2Iv , NULL },
-//  bigint -> number
-   { BIGINT_CMD,      NUMBER_CMD,     iiBI2N , NULL },
 //  intvec -> intmat
    { INTVEC_CMD,      INTMAT_CMD,     iiDummy, NULL },