// read_float().
// General includes.
-#include "cl_sysdep.h"
+#include "base/cl_sysdep.h"
// Specification.
#include "cln/float_io.h"
// Implementation.
#include "cln/integer.h"
-#include "cl_I.h"
+#include "integer/cl_I.h"
#include "cln/rational.h"
-#include "cl_RA.h"
+#include "rational/cl_RA.h"
#include "cln/float.h"
#include "cln/sfloat.h"
#include "cln/ffloat.h"
#include "cln/dfloat.h"
#include "cln/lfloat.h"
-#include "cl_F.h"
-#include "cl_SF.h"
-#include "cl_FF.h"
-#include "cl_DF.h"
-#include "cl_LF.h"
+#include "float/cl_F.h"
+#include "float/sfloat/cl_SF.h"
+#include "float/ffloat/cl_FF.h"
+#include "float/dfloat/cl_DF.h"
+#include "float/lfloat/cl_LF.h"
namespace cln {
-#if intCsize > intLsize
-const cl_F read_float (unsigned int base, float_format_t prec, cl_signean sign, const char * string, uintL index1, uintL index4, uintL index2, uintL index3)
-{
- // XXX: This signature is for binary compatibility with CLN-1.2.0 only.
- return read_float(base, prec, sign, string, uintC(index1), uintC(index4), uintC(index2), uintC(index3));
-}
-#endif
-
const cl_F read_float (unsigned int base, float_format_t prec, cl_signean sign, const char * string, uintC index1, uintC index4, uintC index2, uintC index3)
{
var cl_I exponent;
ptr++; exp_len--; // Exponentmarker überlesen
var cl_signean exp_sign = 0; // Exponenten-Vorzeichen
switch (*ptr) {
- case '-': exp_sign = ~exp_sign; // Vorzeichen := negativ
+ case '-': exp_sign = ~exp_sign; // fallthrough
case '+': ptr++; exp_len--; // Exponenten-Vorzeichen überlesen
default: ;
}