// einen String mit seiner Dezimaldarstellung.
// (substring string start [end]) wie subseq, jedoch für Strings schneller.
-CL_REQUIRE(cl_F_ln10_var)
#include <cstring>
#include "cln/output.h"
#include "cl_sstring.h"
const cl_F cl_ln10 (const cl_F& y)
{
floattypecase(y
- , return cl_SF_ln10;
- , return cl_FF_ln10;
- , return cl_DF_ln10;
+ , return cl_SF_ln10();
+ , return cl_FF_ln10();
+ , return cl_DF_ln10();
, return cl_ln10(TheLfloat(y)->len);
);
}
const cl_F cl_ln10 (float_format_t f)
{
floatformatcase((uintC)f
- , return cl_SF_ln10;
- , return cl_FF_ln10;
- , return cl_DF_ln10;
+ , return cl_SF_ln10();
+ , return cl_FF_ln10();
+ , return cl_DF_ln10();
, return cl_ln10(len);
);
}
// General includes.
#include "cl_sysdep.h"
-CL_PROVIDE(cl_F_ln10_var)
-
// Specification.
#include "cl_F_tran.h"
namespace cln {
-// Mantisse von ln(10) :
- static const uintD ln10_mantisse [64/intDsize] =
- #include "cl_F_ln10_var.h"
-
-cl_LF cl_LF_ln10 = encode_LF_array(0,2,ln10_mantisse,64/intDsize);
+cl_LF& cl_LF_ln10()
+{
+ // Mantisse von ln(10) :
+ static const uintD ln10_mantisse [64/intDsize] =
+ #include "cl_F_ln10_var.h"
+ static cl_LF val = encode_LF_array(0,2,ln10_mantisse,64/intDsize);
+ return val;
+}
// Problem: If someone changes free_hook, the destructor of this
// will call the new hook, passing it some pointer obtained by the old
// malloc_hook. ??
-const cl_SF cl_SF_ln10 = cl_LF_to_SF(cl_LF_ln10);
-const cl_FF cl_FF_ln10 = cl_LF_to_FF(cl_LF_ln10);
-const cl_DF cl_DF_ln10 = cl_LF_to_DF(cl_LF_ln10);
+const cl_SF& cl_SF_ln10()
+{
+ static const cl_SF val = cl_LF_to_SF(cl_LF_ln10());
+ return val;
+}
+
+const cl_FF& cl_FF_ln10()
+{
+ static const cl_FF val = cl_LF_to_FF(cl_LF_ln10());
+ return val;
+}
+
+const cl_DF& cl_DF_ln10()
+{
+ static const cl_DF val = cl_LF_to_DF(cl_LF_ln10());
+ return val;
+}
} // namespace cln
-CL_PROVIDE_END(cl_F_ln10_var)
extern const cl_F cl_ln2 (float_format_t f);
// ln(10).
-extern const cl_SF cl_SF_ln10;
-extern const cl_FF cl_FF_ln10;
-extern const cl_DF cl_DF_ln10;
-extern cl_LF cl_LF_ln10; // as long as it has ever been computed
+extern const cl_SF& cl_SF_ln10();
+extern const cl_FF& cl_FF_ln10();
+extern const cl_DF& cl_DF_ln10();
+extern cl_LF& cl_LF_ln10(); // as long as it has ever been computed
extern const cl_LF cl_ln10 (uintC len); // computes it even further
-//CL_REQUIRE(cl_F_ln10_var)
// cl_ln10(y) liefert die Zahl ln(10) im selben Float-Format wie y.
// > y: ein Float
const cl_LF cl_ln10 (uintC len)
{
- var uintC oldlen = TheLfloat(cl_LF_ln10)->len; // vorhandene Länge
+ var uintC oldlen = TheLfloat(cl_LF_ln10())->len; // vorhandene Länge
if (len < oldlen)
- return shorten(cl_LF_ln10,len);
+ return shorten(cl_LF_ln10(),len);
if (len == oldlen)
- return cl_LF_ln10;
+ return cl_LF_ln10();
- // TheLfloat(cl_LF_ln10)->len um mindestens einen konstanten Faktor
+ // TheLfloat(cl_LF_ln10())->len um mindestens einen konstanten Faktor
// > 1 wachsen lassen, damit es nicht zu häufig nachberechnet wird:
var uintC newlen = len;
oldlen += floor(oldlen,2); // oldlen * 3/2
newlen = oldlen;
// gewünschte > vorhandene Länge -> muß nachberechnen:
- cl_LF_ln10 = compute_ln10(newlen);
- return (len < newlen ? shorten(cl_LF_ln10,len) : cl_LF_ln10);
+ cl_LF_ln10() = compute_ln10(newlen);
+ return (len < newlen ? shorten(cl_LF_ln10(),len) : cl_LF_ln10());
}
} // namespace cln