Topspeed_JPI/TS/INCLUDE/VALUES.DEF

(* Release 3.10 *)
(*-------------------------------------------------------------------------*
*                                                                          *
*  VALUES.DEF - Modula-2 interface to VALUES.H                             *
*                                                                          *
*  COPYRIGHT (C) 1989..1992 Clarion Software Corporation.                  *
*  All Rights Reserved                                                     *
*                                                                          *
*--------------------------------------------------------------------------*)

(*# project("#set tsc='on'") *)
(*# call(o_a_size=>off, o_a_copy=>off, c_conv=>on, result_optional=>on) *)
(*# module(implementation=>off, init_code=>off) *)
(*# name(prefix=>c) *)


DEFINITION MODULE values;

CONST
    MAXCHAR   = 127;
    MINCHAR   = -128;
    MAXUCHAR  = 255;
    MINUCHAR  = 0;
    MAXSHORT  = 32767;
    MINSHORT  = ((-32767)-1);
    MAXINT    = 32767;
    MININT    = ((-32767)-1);
    MAXUINT   = 65535;
    MINUINT   = 0;
    MAXLONG   = 2147483647;
    MINLONG   = ((-2147483647)-1);
    MAXULONG  = 4294967295;
    MINULONG  = 0;
    DMAXEXP   = 308;
    FMAXEXP   = 38;
    DMINEXP   = -307;
    FMINEXP   = -37;
    MAXDOUBLE = 1.797693E+308;
    MAXFLOAT  = 3.402823E+38;
    MINDOUBLE = 2.225074E-308;
    MINFLOAT  = 1.175494E-38;

END values.