7 #include "cln/float_io.h"
12 #include "cln/integer.h"
14 #include "cln/rational.h"
16 #include "cln/float.h"
17 #include "cln/sfloat.h"
18 #include "cln/ffloat.h"
19 #include "cln/dfloat.h"
20 #include "cln/lfloat.h"
29 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)
33 var uintL exp_len = index2-index4; // Anzahl Stellen des Exponenten
35 var const char * ptr = &string[index4]; // zeigt auf den Exponentmarker
36 ptr++; exp_len--; // Exponentmarker überlesen
37 var cl_signean exp_sign = 0; // Exponenten-Vorzeichen
39 case '-': exp_sign = ~exp_sign; // Vorzeichen := negativ
40 case '+': ptr++; exp_len--; // Exponenten-Vorzeichen überlesen
43 exponent = digits_to_I(ptr,exp_len,(uintD)base); // Exponent in Integer umwandeln
45 exponent = -exponent; // incl. Vorzeichen
51 // exponent = Exponent als Integer.
52 var cl_RA base_power = expt(base,exponent-(index4-index3)); // zu multiplizierende Zehnerpotenz
53 var cl_I mantisse = // Mantisse als Integer
54 digits_to_I(&string[index1],index4-index1,(uintD)base);
55 // Mantisse (Integer) und Zehnerpotenz (rational >0) unelegant zusammenmultiplizieren:
57 if (integerp(base_power)) {
58 DeclareType(cl_I,base_power);
59 ratvalue = mantisse * base_power;
61 // falls mantisse/=0, in exponent=1/10^i den Zähler durch mantisse
62 // ersetzen (liefert ungekürzten Bruch, Vorsicht!)
63 DeclareType(cl_RT,base_power);
67 ASSERT(TheRatio(base_power)->refcount == 1);
68 TheRatio(base_power)->numerator = mantisse;
69 ratvalue = base_power;
72 // ratvalue = Mantisse * Zehnerpotenz, als ungekürzte rationale Zahl!
74 , // in Short-Float umwandeln
76 var cl_SF x = cl_RA_to_SF(ratvalue);
77 if (sign==0) { return x; } else { return -x; }
79 , // in Single-Float umwandeln
81 var cl_FF x = cl_RA_to_FF(ratvalue);
82 if (sign==0) { return x; } else { return -x; }
84 , // in Double-Float umwandeln
86 var cl_DF x = cl_RA_to_DF(ratvalue);
87 if (sign==0) { return x; } else { return -x; }
89 , // in Long-Float umwandeln
91 var cl_LF x = cl_RA_to_LF(ratvalue,len);
92 if (sign==0) { return x; } else { return -x; }