Changeset eca225 in git for libpolys/coeffs/modulop.cc

Timestamp:

May 6, 2011, 2:06:50 PM (13 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

a934fc81ed0805bcf6e3c2c3cd59b3b0c6fa8146

Parents:

e25a9942ffbe09b3e9cd1348617f1c1886c896bd

git-author:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2011-05-06 14:06:50+02:00

git-committer:

Mohamed Barakat <mohamed.barakat@rwth-aachen.de>2011-11-09 12:31:36+01:00

Message:

factory to number: Z/p

File:

• libpolys/coeffs/modulop.cc (modified) (2 diffs)

libpolys/coeffs/modulop.cc

@@ -321 +321 @@
   return (n==n_Zp) && (r->ch==(int)(long)parameter);
 }
+#ifdef HAVE_FACTORY
+CanonicalForm npConvSingNFactoryN( number n, const coeffs r )
+{
+  CanonicalForm term(npInt( n,r ));
+  return term;
+}
+
+number npConvFactoryNSingN( const CanonicalForm n, const coeffs r)
+{
+  if (n.isImm())
+  {
+    return n_Init(n.intval(),r);
+  }
+  else
+  {
+    assume(0);
+  }
+}
+#endif
+
 
 BOOLEAN npInitChar(coeffs r, void* p)
@@ -396 +416 @@
   r->cfDBTest=npDBTest;
 #endif
+
+#ifdef HAVE_FACTORY
+  r->convSingNFactoryN=npConvSingNFactoryN;
+  r->convFactoryNSingN=npConvFactoryNSingN;
+#endif
   
   // the variables: