/cln-1.3.2/src/real/conv/cl_F_from_R.cc
C++ | 50 lines | 31 code | 15 blank | 4 comment | 2 complexity | fe2db91378ee73fe7731f87f44483e80 MD5 | raw file
Possible License(s): GPL-2.0
- // cl_float().
- // General includes.
- #include "base/cl_sysdep.h"
- // Specification.
- #include "cln/real.h"
- // Implementation.
- #include "real/cl_R.h"
- #if 0
- namespace cln {
- const cl_F cl_float (const cl_R& x, const cl_F& y)
- {
- if (rationalp(x)) {
- DeclareType(cl_RA,x);
- return cl_float(x,y);
- } else {
- DeclareType(cl_F,x);
- return cl_float(x,y);
- }
- }
- } // namespace cln
- #else // less type dispatch overhead
- #include "float/cl_F.h"
- #include "float/lfloat/cl_LF.h"
- namespace cln {
- const cl_F cl_float (const cl_R& x, const cl_F& y)
- {
- floattypecase(y
- , return cl_R_to_SF(x);
- , return cl_R_to_FF(x);
- , return cl_R_to_DF(x);
- , return cl_R_to_LF(x,TheLfloat(y)->len);
- );
- }
- } // namespace cln
- #endif