Changeset e57c8b in git for Singular/extra.cc

Timestamp:

Nov 13, 2014, 5:11:34 PM (10 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'd08f5f0bb3329b8ca19f23b74cb1473686415c3a')

Children:

a67a383f5c6b897f9f89a94c2e994967111d079a

Parents:

d69300f5e208913b6afeb4f87045d074060831bcf0ccd06ea21f447e8111eb524c71bdd69bf50d4e

Message:

Merge pull request #670 from adipopescu/Flint

add: LLL_Flint

File:

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

Singular/extra.cc

@@ -141 +141 @@
 #endif
 
-
 // Define to enable many more system commands
 //#undef MAKE_DISTRIBUTION
@@ -148 +147 @@
 #endif
 
+#include <polys/flintconv.h>
 #include <polys/clapconv.h>
 #include <kernel/GBEngine/kstdfac.h>
@@ -168 +168 @@
 #include "pcv.h"
 #endif
+
 
 #ifdef __CYGWIN__
@@ -934 +935 @@
     }
     else
+  #endif
+  /* =================== LLL via Flint ==============================*/
+  #ifdef HAVE_FLINT
+  #ifdef FLINT_VER_2_4_5
+    if (strcmp(sys_cmd, "LLL_Flint") == 0)
+    {
+      if (h!=NULL)
+      {
+        res->rtyp=h->Typ();
+        if (h->Typ()==BIGINTMAT_CMD)
+        {
+          res->data=(char *)singflint_LLL((bigintmat*)h->Data());
+          return FALSE;
+        }
+        else if (h->Typ()==INTMAT_CMD)
+        {
+          res->data=(char *)singflint_LLL((intvec*)h->Data());
+          return FALSE;
+        }
+        else return TRUE;
+      }
+      else return TRUE;
+    }
+    else
+  #endif
   #endif
   /*==================== shift-test for freeGB  =================*/