]> www.ginac.de Git - cln.git/blobdiff - tests/timeeuler.cc
Fix bug in converting cl_LF to float, double.
[cln.git] / tests / timeeuler.cc
index 712f588c4c2f20457463214fd89a423f3c573f99..f0730e6ee93c049d210a7066033aecf122a34f77 100644 (file)
@@ -1,12 +1,26 @@
-#include <cl_number.h>
-#include <cl_io.h>
-#include <cl_float.h>
-#include <cl_real.h>
-#include <cl_random.h>
-#include <stdlib.h>
-#include <string.h>
-#include <cl_timing.h>
-#include "cl_LF.h"
+#include <cln/number.h>
+#include <cln/io.h>
+#include <cln/float.h>
+#include <cln/real.h>
+#include <cln/random.h>
+#include <cstdlib>
+#include <cstring>
+#include <cln/timing.h>
+#include "float/lfloat/cl_LF.h"
+namespace cln
+{
+// FIXME: don't use internal functions.
+extern cl_LF compute_eulerconst (uintC len);
+extern cl_LF compute_eulerconst_expintegral (uintC len);
+extern cl_LF compute_eulerconst_expintegral1 (uintC len);
+extern cl_LF compute_eulerconst_expintegral2 (uintC len);
+extern cl_LF compute_eulerconst_besselintegral1 (uintC len);
+extern cl_LF compute_eulerconst_besselintegral2 (uintC len);
+extern cl_LF compute_eulerconst_besselintegral3 (uintC len);
+extern cl_LF compute_eulerconst_besselintegral4 (uintC len);
+}
+
+using namespace cln;
 
 int main (int argc, char * argv[])
 {
@@ -18,14 +32,8 @@ int main (int argc, char * argv[])
        if (argc < 2)
                exit(1);
        uintL len = atoi(argv[1]);
-       extern cl_LF compute_eulerconst (uintC len);
-       extern cl_LF compute_eulerconst_expintegral (uintC len);
-       extern cl_LF compute_eulerconst_expintegral1 (uintC len);
-       extern cl_LF compute_eulerconst_expintegral2 (uintC len);
-       extern cl_LF compute_eulerconst_besselintegral1 (uintC len);
-       extern cl_LF compute_eulerconst_besselintegral2 (uintC len);
-       extern cl_LF compute_eulerconst_besselintegral3 (uintC len);
-       extern cl_LF compute_eulerconst_besselintegral4 (uintC len);
+
+
        cl_LF p;
        ln(cl_I_to_LF(1000,len+10)); // fill cache
 #if 0