Copyright (C) 1994, Digital Equipment Corp.
by Stephen Harrison
INTERFACESome basic type definitions for WinDef.i3 and WinNT.i3. These types are reexported from those modules as appropiate.WinBaseTypes ;
IMPORT Ctypes; TYPE BOOL = Ctypes.int; BYTE = Ctypes.unsigned_char; CCHAR = Ctypes.char; DWORD = Ctypes.unsigned_long; HANDLE = Ctypes.void_star; INT = Ctypes.int; LONG = Ctypes.long; LPBOOL = UNTRACED REF BOOL; LPBYTE = UNTRACED REF BYTE; LPDWORD = UNTRACED REF DWORD; LPINT = UNTRACED REF Ctypes.int; LPLONG = UNTRACED REF Ctypes.long; LPVOID = Ctypes.void_star; LPWORD = UNTRACED REF WORD; PBOOL = UNTRACED REF BOOL; PBYTE = UNTRACED REF BYTE; PDWORD = UNTRACED REF DWORD; PFLOAT = UNTRACED REF WFLOAT; PHANDLE = UNTRACED REF HANDLE; PINT = UNTRACED REF Ctypes.int; PLONG = Ctypes.long_star; PSHORT = Ctypes.short_star; PSZ = Ctypes.char_star; PUCHAR = UNTRACED REF UCHAR; PUINT = Ctypes.unsigned_int_star; PULONG = UNTRACED REF ULONG; PUSHORT = UNTRACED REF USHORT; PWORD = UNTRACED REF WORD; SHORT = Ctypes.short; UCHAR = Ctypes.unsigned_char; UINT = Ctypes.unsigned_int; ULONG = Ctypes.unsigned_long; USHORT = Ctypes.unsigned_short; (* !!! Name clash with Modula-3 builtin. FLOAT -> WFLOAT *) WFLOAT = Ctypes.float; WORD = Ctypes.unsigned_short;
(* Types use for passing & returning polymorphic values
TYPE WPARAM = UINT; LPARAM = LONG; LRESULT = LONG; TYPE ATOM = WORD; HANDLE = Ctypes.void_star; PHANDLE = UNTRACED REF HANDLE; SPHANDLE = UNTRACED REF HANDLE; LPHANDLE = UNTRACED REF HANDLE; HGLOBAL = HANDLE; HLOCAL = HANDLE; GLOBALHANDLE = HANDLE; LOCALHANDLE = HANDLE; PROC = PROCEDURE (); NEARPROC = PROCEDURE (); FARPROC = PROCEDURE (); *) END WinBaseTypes.