src/float/division/cl_F_ffloor2.cc

   1 // ffloor2().
   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/lfloat/cl_LF.h"
  18
  19 namespace cln {
  20
  21 const cl_F_fdiv_t ffloor2 (const cl_F& x)
  22 {
  23 #if 0 // 3 type dispatches
  24         var cl_F q = ffloor(x);
  25         return cl_F_fdiv_t(q,x-q);
  26 #else // 1 type dispatch
  27         floatcase(x
  28         ,       var cl_SF q = ffloor(x); return cl_F_fdiv_t(q,x-q);
  29         ,       var cl_FF q = ffloor(x); return cl_F_fdiv_t(q,x-q);
  30         ,       var cl_DF q = ffloor(x); return cl_F_fdiv_t(q,x-q);
  31         ,       var cl_LF q = ffloor(x); return cl_F_fdiv_t(q,LF_LF_minus_LF(x,q));
  32         );
  33 #endif
  34 }
  35
  36 }  // namespace cln