src/real/conv/cl_R_to_SF.cc

   1 // cl_R_to_SF().
   2
   3 // General includes.
   4 #include "cl_sysdep.h"
   5
   6 // Specification.
   7 #include "cln/real.h"
   8
   9
  10 // Implementation.
  11
  12 #include "cl_R.h"
  13 #include "cl_F.h"
  14 #include "cl_SF.h"
  15
  16 #if 0
  17
  18 namespace cln {
  19
  20 const cl_SF cl_R_to_SF (const cl_R& x)
  21 {
  22         if (rationalp(x)) {
  23                 DeclareType(cl_RA,x);
  24                 return cl_RA_to_SF(x);
  25         } else {
  26                 DeclareType(cl_F,x);
  27                 return cl_F_to_SF(x);
  28         }
  29 }
  30
  31 }  // namespace cln
  32
  33 #else // fully inlined, faster
  34
  35 #include "cl_RA.h"
  36 #include "cl_I.h"
  37
  38 namespace cln {
  39
  40 const cl_SF cl_R_to_SF (const cl_R& x)
  41 {
  42         realcase6(x
  43         ,       return cl_I_to_SF(x);
  44         ,       return cl_RA_to_SF(x);
  45         ,       return x;
  46         ,       return cl_FF_to_SF(x);
  47         ,       return cl_DF_to_SF(x);
  48         ,       return cl_LF_to_SF(x);
  49         );
  50 }
  51
  52 }  // namespace cln
  53
  54 #endif