Changeset 4946e3 in git for libpolys/polys/clapsing.cc

Timestamp:

Jul 3, 2020, 1:03:03 PM (3 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

175dfbe8022a34e8c7eab0e37ca15b932dbcb243

Parents:

f3adf3a165dd0f173fe615a55624a41ff34bdddb

Message:

factory: LL via FLINT

File:

• libpolys/polys/clapsing.cc (modified) (4 diffs)

libpolys/polys/clapsing.cc

@@ -1763 +1763 @@
 }
 
-#ifdef HAVE_NTL   /*define derived from factory*/
+#if defined(HAVE_NTL) || defined(AHVE_FLINT)
 matrix singntl_HNF(matrix  m, const ring s )
 {
@@ -1917 +1917 @@
   return mm;
 }
-
+#else
+matrix singntl_HNF(matrix  m, const ring s )
+{
+  WerrorS("NTL/FLINT missing");
+  return NULL;
+}
+
+intvec* singntl_HNF(intvec*  m)
+{
+  WerrorS("NTL/FLINT missing");
+  return NULL;
+}
+
+matrix singntl_LLL(matrix  m, const ring s )
+{
+  WerrorS("NTL/FLINT missing");
+  return NULL;
+}
+
+intvec* singntl_LLL(intvec*  m)
+{
+  WerrorS("NTL/FLINT missing");
+  return NULL;
+}
+#endif
+
+#ifdef HAVE_NTL
 ideal singclap_absFactorize ( poly f, ideal & mipos, intvec ** exps, int & numFactors, const ring r)
 {
@@ -1995 +2021 @@
 
 #else
-matrix singntl_HNF(matrix  m, const ring s )
+ideal singclap_absFactorize ( poly f, ideal & mipos, intvec ** exps, int & numFactors, const ring r)
 {
   WerrorS("NTL missing");
@@ -2001 +2027 @@
 }
 
-intvec* singntl_HNF(intvec*  m)
-{
-  WerrorS("NTL missing");
-  return NULL;
-}
-
-matrix singntl_LLL(matrix  m, const ring s )
-{
-  WerrorS("NTL missing");
-  return NULL;
-}
-
-intvec* singntl_LLL(intvec*  m)
-{
-  WerrorS("NTL missing");
-  return NULL;
-}
-
-ideal singclap_absFactorize ( poly f, ideal & mipos, intvec ** exps, int & numFactors, const ring r)
-{
-  WerrorS("NTL missing");
-  return NULL;
-}
-
 #endif /* HAVE_NTL */