mirror of https://github.com/mrkite/regs.git
105 lines
8.3 KiB
OpenEdge ABL
Executable File
105 lines
8.3 KiB
OpenEdge ABL
Executable File
{********************************************
|
|
; File: Types.p
|
|
;
|
|
;
|
|
; Copyright Apple Computer, Inc. 1986-89
|
|
; All Rights Reserved
|
|
;
|
|
********************************************}
|
|
|
|
UNIT TYPES;
|
|
INTERFACE
|
|
|
|
CONST
|
|
noError = $0000;
|
|
|
|
refIsPointer = $0000; {RefDescriptor - }
|
|
refIsHandle = $0001; {RefDescriptor - }
|
|
refIsResource = $0002; {RefDescriptor - }
|
|
refIsNewHandle = $0003; {RefDescriptor - }
|
|
|
|
TYPE
|
|
Byte = 0..255;
|
|
Fixed = Longint ;
|
|
Frac = Longint ;
|
|
ExtendedPtr = ^Extended;
|
|
|
|
SignedByte = -128..127;
|
|
PackedByte = PACKED ARRAY [1..1] of SignedByte;
|
|
Ptr = ^PackedByte;
|
|
PointerPtr = ^Ptr;
|
|
Handle = ^Ptr;
|
|
|
|
HandlePtr = ^Handle;
|
|
|
|
CStringPtr = Ptr;
|
|
CStringHndl = ^CStringPtr;
|
|
CStringHndlPtr = ^CStringHndl;
|
|
ProcPtr = Ptr;
|
|
VoidProcPtr = ProcPtr;
|
|
WordProcPtr = ProcPtr;
|
|
LongProcPtr = ProcPtr;
|
|
|
|
IntPtr = ^Integer;
|
|
FPTPtr = Ptr ;
|
|
String255 = STRING[255];
|
|
String255Ptr = ^String255;
|
|
String255Hndl = ^String255Ptr;
|
|
String255HndlPtr = ^String255Hndl;
|
|
Str255 = String255;
|
|
StringPtr = String255Ptr;
|
|
StringHandle = ^StringPtr;
|
|
String32 = STRING[32];
|
|
String32Ptr = ^String32;
|
|
String32Handle = ^String32Ptr;
|
|
Str32 = String32;
|
|
|
|
PointPtr = ^Point;
|
|
Point = RECORD
|
|
v : Integer;
|
|
h : Integer;
|
|
END;
|
|
RectHndl = ^RectPtr;
|
|
RectPtr = ^Rect;
|
|
Rect = RECORD
|
|
CASE INTEGER OF
|
|
1:
|
|
(top: Integer;
|
|
left: Integer;
|
|
bottom: Integer;
|
|
right: Integer);
|
|
2:
|
|
(topLeft: Point;
|
|
botRight: Point);
|
|
3: (
|
|
v1 : Integer;
|
|
h1 : Integer;
|
|
v2 : Integer;
|
|
h2 : Integer);
|
|
END;
|
|
|
|
TimeRecHndl = ^TimeRecPtr;
|
|
TimeRecPtr = ^TimeRec;
|
|
TimeRec = PACKED RECORD
|
|
second : Byte;
|
|
minute : Byte;
|
|
hour : Byte;
|
|
year : Byte;
|
|
day : Byte;
|
|
month : Byte;
|
|
extra : Byte;
|
|
weekDay : Byte;
|
|
END;
|
|
|
|
RefDescriptor = Integer;
|
|
Ref = RECORD
|
|
CASE Integer OF
|
|
refIsPointer : ( refIsPointer : Ptr ) ;
|
|
refIsHandle : ( refIsHandle : Handle ) ;
|
|
refIsResource : ( refIsResource : Longint ) ;
|
|
refIsNewHandle : ( refIsNewHandle : Handle ) ;
|
|
END;
|
|
|
|
IMPLEMENTATION
|
|
END.
|