src/real/input/cl_R_from_string.cc

   1 // cl_R (const char *) constructor.
   2
   3 // General includes.
   4 #include "cl_sysdep.h"
   5
   6 // Specification.
   7 #include "cln/real_class.h"
   8
   9
  10 // Implementation.
  11
  12 #include "cln/input.h"
  13 #include "cln/real_io.h"
  14
  15 namespace cln {
  16
  17 cl_read_flags cl_R_read_flags = {
  18         syntax_real,
  19         lsyntax_all,
  20         10,
  21         { float_format_ffloat, float_format_lfloat_min, cl_true }
  22 };
  23
  24 cl_R::cl_R (const char * string)
  25 {
  26         pointer = as_cl_private_thing(
  27                 read_real(cl_R_read_flags,string,NULL,NULL));
  28 }
  29
  30 }  // namespace cln