home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / xco212p.zip / CDEF / float.def < prev    next >
Text File  |  1995-05-30  |  1KB  |  47 lines

  1. (* Copyright (c) xTech 1993,95.  All Rights Reserved *)
  2. <*+ CSTDLIB  *>
  3. <*+ NOHEADER*>
  4. <*+ M2EXTENSIONS*>
  5. DEFINITION MODULE [2] float;
  6.  
  7. FROM SYSTEM IMPORT int;
  8.  
  9. (* it is constants indeed but declared as read-only variables *)
  10. (* to provide portability *)
  11.  
  12. VAR
  13.   FLT_ROUNDS      -: int;
  14.   FLT_RADIX       -: int;
  15.  
  16.   FLT_DIG         -: int;
  17.   FLT_EPSILON     -: LONGREAL;
  18.   FLT_MANT_DIG    -: int;
  19.   FLT_MAX         -: LONGREAL;
  20.   FLT_MAX_10_EXP  -: int;
  21.   FLT_MAX_EXP     -: int;
  22.   FLT_MIN         -: LONGREAL;
  23.   FLT_MIN_10_EXP  -: int;
  24.   FLT_MIN_EXP     -: int;
  25.  
  26.   DBL_DIG         -: int;
  27.   DBL_EPSILON     -: LONGREAL;
  28.   DBL_MANT_DIG    -: int;
  29.   DBL_MAX         -: LONGREAL;
  30.   DBL_MAX_10_EXP  -: int;
  31.   DBL_MAX_EXP     -: int;
  32.   DBL_MIN         -: LONGREAL;
  33.   DBL_MIN_10_EXP  -: int;
  34.   DBL_MIN_EXP     -: int;
  35.  
  36.   LDBL_DIG        -: int;
  37.   LDBL_EPSILON    -: LONGREAL;
  38.   LDBL_MANT_DIG   -: int;
  39.   LDBL_MAX        -: LONGREAL;
  40.   LDBL_MAX_10_EXP -: int;
  41.   LDBL_MAX_EXP    -: int;
  42.   LDBL_MIN        -: LONGREAL;
  43.   LDBL_MIN_10_EXP -: int;
  44.   LDBL_MIN_EXP    -: int;
  45.  
  46. END float.
  47.