Changeset 0b3a5b in git for Singular/misc_ip.cc

Timestamp:

Mar 9, 2016, 6:09:53 PM (8 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '38077648e7239f98078663eb941c3c979511150a')

Children:

0057d85c18702757c2d47d03d57f539b69ec4f5e

Parents:

9b88e6879d7390b971635eddefe0921db1a445c5

Message:

Singular_4_1: add flintZ(n,"...") for flint:nmod_poly_t

File:

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

Singular/misc_ip.cc

@@ -28 +28 @@
 #include <coeffs/OPAEp.h>
 #include <coeffs/flintcf_Q.h>
+#include <coeffs/flintcf_Zn.h>
 
 #include <polys/ext_fields/algext.h>
@@ -1192 +1193 @@
   }
 }
+#ifdef HAVE_FLINT
+static n_coeffType n_FlintZn=n_unknown;
+static BOOLEAN ii_FlintZn_init(leftv res,leftv a)
+{
+  if ((a->Typ()!=INT_CMD)
+  ||(a->next==NULL)
+  ||(a->next->Typ()!=STRING_CMD))
+  {
+    WerrorS("`int`i,`string` expected");
+    return TRUE;
+  }
+  else
+  {
+    flintZn_struct p;
+    p.ch=(int)(long)a->Data();
+    p.name=(char*)a->next->Data();
+    res->rtyp=CRING_CMD;
+    res->data=(void*)nInitChar(n_FlintZn,(void*)&p);
+    return FALSE;
+  }
+}
+#endif
 #endif
 /*2
@@ -1316 +1339 @@
       IDDATA(h)=(char*)nInitChar(t,NULL);
     }
+    n_FlintZn=nRegister(n_unknown,flintZn_InitChar);
+    if (n_FlintZn!=n_unknown)
+    {
+      iiAddCproc("kernel","flintZ",FALSE,ii_FlintZn_init);
+    }
     #endif
   }