Topspeed_JPI/TS-V3/INCLUDE/VALUES.LST

Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  VALUES.DEF - Modula-2 interface to VALUES.H                             *
    5  *                                                                          *
    6  *  COPYRIGHT (C) 1989..1992 Clarion Software Corporation.                  *
    7  *  All Rights Reserved                                                     *
    8  *                                                                          *
    9  *--------------------------------------------------------------------------*)
   10  
   11  (*# project("#set tsc='on'") *)
   12  (*# call(o_a_size=>off, o_a_copy=>off, c_conv=>on, result_optional=>on) *)
   13  (*# module(implementation=>off, init_code=>off) *)
   14  (*# name(prefix=>c) *)
   15  
   16  
   17  DEFINITION MODULE values;
   18  
   19  CONST
   20      MAXCHAR   = 127;
   21      MINCHAR   = -128;
   22      MAXUCHAR  = 255;
   23      MINUCHAR  = 0;
   24      MAXSHORT  = 32767;
   25      MINSHORT  = ((-32767)-1);
*****                             ^ not supported yet
   26      MAXINT    = 32767;
   27      MININT    = ((-32767)-1);
*****                             ^ not supported yet
   28      MAXUINT   = 65535;
   29      MINUINT   = 0;
   30      MAXLONG   = 2147483647;
   31      MINLONG   = ((-2147483647)-1);
*****                                  ^ not supported yet
   32      MAXULONG  = 4294967295;
   33      MINULONG  = 0;
   34      DMAXEXP   = 308;
   35      FMAXEXP   = 38;
   36      DMINEXP   = -307;
   37      FMINEXP   = -37;
   38      MAXDOUBLE = 1.797693E+308;
   39      MAXFLOAT  = 3.402823E+38;
   40      MINDOUBLE = 2.225074E-308;
   41      MINFLOAT  = 1.175494E-38;
   42  
   43  END values.
*****      ^ not supported yet

    4 errors