src/real/output/cl_R_cprint.cc

   1 // print_real().
   2
   3 // General includes.
   4 #include "cl_sysdep.h"
   5
   6 // Specification.
   7 #include "cl_real_io.h"
   8
   9
  10 // Implementation.
  11
  12 #include "cl_real.h"
  13 #include "cl_R.h"
  14 #include "cl_rational_io.h"
  15 #include "cl_float_io.h"
  16
  17 void print_real (cl_ostream stream, const cl_print_real_flags& flags, const cl_R& z)
  18 {
  19         if (rationalp(z)) {
  20                 DeclareType(cl_RA,z);
  21                 // rationale Zahl
  22                 print_rational(stream,flags,z);
  23         } else {
  24                 DeclareType(cl_F,z);
  25                 // Float
  26                 print_float(stream,flags,z);
  27         }
  28 }