Topspeed_JPI/TS/INCLUDE/OS2DEF.DEF

(* Release 3.10 *)
(*-------------------------------------------------------------------------*
*                                                                          *
*  OS2DEF.DEF - Modula-2 OS/2 Common Definitions file                      *
*                                                                          *
*  COPYRIGHT (C) 1989..1992 Clarion Software Corporation.                  *
*  Copyright (c) 1988  Microsoft Corporation                               *
*  All Rights Reserved                                                     *
*  This file is compatible with OS/2 version 1.2.                          *
*                                                                          *
*--------------------------------------------------------------------------*)

(*# call(o_a_size => off,
         o_a_copy=>off,
         result_optional=>on,
         reg_saved => (si, di, es, ds, st1, st2),
         reg_param => (),
         seg_name => none,
         near_call => off,
         ds_eq_ss => off) *)
(*# module(implementation=>off, init_code => off) *)
(*# name(prefix => os2_lib) *)
(*# data(near_ptr => off) *)

DEFINITION MODULE OS2DEF;

TYPE
  SHANDLE   = CARDINAL;
  LHANDLE   = LONGCARD;
  SEL       = CARDINAL;
  ERRORID   = LONGCARD;
  LSET      = SET OF [0..31];
(*# save, data(var_enum_size=>off) *)
  BOOL      = (B_FALSE,B_TRUE);        (* ie 2 byte BOOLEAN for parameters *)
(*# restore *)
CONST
  SEVERITY_NOERROR       = 00H;
  SEVERITY_WARNING       = 04H;
  SEVERITY_ERROR         = 08H;
  SEVERITY_SEVERE        = 0CH;
  SEVERITY_UNRECOVERABLE = 010H;

TYPE

  HMODULE = CARDINAL;
  PID     = CARDINAL;
  TID     = CARDINAL;
  HSEM    = FarADDRESS;
  HAB     = LHANDLE;
  HPS     = LHANDLE;
  PHPS    = FarADDRESS;
  HDC     = LHANDLE;
  HRGN    = LHANDLE;
  HBITMAP = LHANDLE;
  HMF     = LHANDLE;
  COLOR   = LONGINT;
  POINTL  = RECORD
              x,y : LONGINT;
            END;
  POINTS  = RECORD
              x,y : INTEGER;
            END;
    WPOINT              = RECORD
                            x          : INTEGER;
                            dummy1     : WORD;
                            y          : INTEGER;
                            dummy2     : WORD;
                          END; (*WPOINT*)
  RECTL   = RECORD
              xLeft : LONGINT;
              yBottom : LONGINT;
              xRight : LONGINT;
              yTop : LONGINT;
            END;
    WRECT               = RECORD
                            xLeft      : INTEGER;
                            dummy1     : WORD;
                            yBottom    : INTEGER;
                            dummy2     : WORD;
                            xRight     : INTEGER;
                            dummy3     : WORD;
                            yTop       : INTEGER;
                            dummy4     : WORD;
                          END; (*WRECT*)
  STR8    = ARRAY [0..7]  OF CHAR;
  STR16   = ARRAY [0..15] OF CHAR;
  STR32   = ARRAY [0..31] OF CHAR;
  STR64   = ARRAY [0..63] OF CHAR;
  LPSTR   = POINTER TO STR64;

(* Structure for Device Driver data *)
  DRIVDATA = RECORD
               b             : LONGINT;
               Version       : LONGINT;
               DeviceName    : ARRAY [0..31] OF CHAR;
               GeneralData   : ARRAY [0..0] OF CHAR;
             END;


TYPE


  HWND = LONGCARD;


CONST
   NULL = 0;
VAR
   NullStr[0:0] : ARRAY[0..0] OF CHAR;  (* Null addresses for VAR parameters *)
   NullVar[0:0] : ARRAY[0..0] OF BYTE;
   NullAdr[0:0] : FarADDRESS;

END OS2DEF.