13 #include "cl_R_div_t.h"
15 #if 0 // 2 type dispatches
17 #include "cln/rational.h"
18 #include "cln/float.h"
19 #include "cl_R_div_t.h"
23 const cl_R_fdiv_t ftruncate2 (const cl_R& x)
27 var cl_RA_div_t q_r = truncate2(x);
28 var cl_I& q = q_r.quotient;
29 var cl_RA& r = q_r.remainder;
30 return cl_R_fdiv_t(cl_float(q),r);
39 #else // 1 type dispatch
42 #include "cln/integer.h"
43 #include "cln/sfloat.h"
44 #include "cln/ffloat.h"
45 #include "cln/dfloat.h"
46 #include "cln/lfloat.h"
51 const cl_R_fdiv_t ftruncate2 (const cl_R& x)
54 , return cl_R_fdiv_t(cl_float(x),0);
55 , var const cl_I& a = numerator(x);
56 var const cl_I& b = denominator(x);
57 var cl_I_div_t q_r = truncate2(a,b);
58 var cl_I& q = q_r.quotient;
59 var cl_I& r = q_r.remainder;
60 return cl_R_fdiv_t(cl_float(q),I_I_to_RT(r,b));
61 , var cl_SF q = ftruncate(x); return cl_R_fdiv_t(q,x-q);
62 , var cl_FF q = ftruncate(x); return cl_R_fdiv_t(q,x-q);
63 , var cl_DF q = ftruncate(x); return cl_R_fdiv_t(q,x-q);
64 , var cl_LF q = ftruncate(x); return cl_R_fdiv_t(q,LF_LF_minus_LF(x,q));