src/float/division/cl_F_trunc2.cc

   1 // truncate2().
   2
   3 // General includes.
   4 #include "base/cl_sysdep.h"
   5
   6 // Specification.
   7 #include "cln/float.h"
   8
   9
  10 // Implementation.
  11
  12 #include "float/cl_F.h"
  13 #include "cln/sfloat.h"
  14 #include "cln/ffloat.h"
  15 #include "cln/dfloat.h"
  16 #include "cln/lfloat.h"
  17 #include "float/sfloat/cl_SF.h"
  18 #include "float/ffloat/cl_FF.h"
  19 #include "float/dfloat/cl_DF.h"
  20 #include "float/lfloat/cl_LF.h"
  21
  22 namespace cln {
  23
  24 const cl_F_div_t truncate2 (const cl_F& x)
  25 {
  26         floatcase(x
  27         ,       var cl_SF q = ftruncate(x); return cl_F_div_t(cl_SF_to_I(q),x-q);
  28         ,       var cl_FF q = ftruncate(x); return cl_F_div_t(cl_FF_to_I(q),x-q);
  29         ,       var cl_DF q = ftruncate(x); return cl_F_div_t(cl_DF_to_I(q),x-q);
  30         ,       var cl_LF q = ftruncate(x); return cl_F_div_t(cl_LF_to_I(q),LF_LF_minus_LF(x,q));
  31         );
  32 }
  33
  34 }  // namespace cln