src/OSD/OSD_Real2String.cdl

   1 -- File:        OSD_Real2String.cdl
   2 -- Created:     Fri Jan 25 12:55:44 2002
   3 -- Author:      doneux <doneux@samcef.com>
   4
   5
   6 -- sccsid[] = "@(#) OSD_Real2String.cdl    %V%-1, 06/17/02@(#)";
   7
   8 class Real2String from OSD
   9
  10         ---Purpose:  Convertion of CString to Real and reciprocally
  11
  12 is
  13
  14     Create
  15         returns Real2String from OSD;
  16
  17     RealToCString(me;
  18                   aReal: Real;
  19                   aString:out PCharacter)
  20      returns Boolean ;
  21     ---Purpose:
  22     --  Converts aReal into aCstring in exponential format with maximum
  23     --  17 digits. The size of the destination string must be sufficient (at least 23 characters)
  24     --  The decimal separator account for locale setting, but
  25     --  neither thousand separator nor grouping of digits in the output string.
  26     --
  27
  28     CStringToReal(me: in out;
  29                   aString: CString;
  30                   aReal: out Real) returns Boolean ;
  31     ---Purpose:
  32     --  Converts aCstring representing a real. The first occurence of the decimal separator
  33     --  (comma or period) defines it values for further readings.
  34    --  Neither thousand separator nor grouping of digits are allowed in the CString
  35
  36 fields
  37
  38     myReadDecimalPoint: Integer from Standard;
  39     myLocalDecimalPoint: Integer from Standard;
  40
  41 end Real2String;