mirror of
https://github.com/elliotnunn/BuildCubeE.git
synced 2026-01-23 19:16:18 +00:00
82 lines
2.2 KiB
OpenEdge ABL
82 lines
2.2 KiB
OpenEdge ABL
{———————————————————————————————————————————————————————————————————————————————————}
|
|
{
|
|
©Apple Computer, Inc. 11/2/90
|
|
All Rights Reserved.
|
|
|
|
{[r+,l+,k+,v+,t=4,0=150] Pasmat options}
|
|
|
|
|
|
{$IFC UNDEFINED UsingIncludes}
|
|
{$SETC UsingIncludes := 0}
|
|
{$ENDC}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
UNIT AEPackObject;
|
|
INTERFACE
|
|
{$ENDC}
|
|
|
|
{$IFC UNDEFINED UsingAEObjectPacking}
|
|
{$SETC UsingAEObjectPacking := 1}
|
|
|
|
{$I+}
|
|
{$SETC AEObjectIncludes := UsingIncludes}
|
|
{$SETC UsingIncludes := 1}
|
|
{$IFC UNDEFINED UsingTypes}
|
|
{$I $$Shell(PInterfaces)Types.p}
|
|
{$ENDC}
|
|
{$IFC UNDEFINED UsingMemory}
|
|
{$I $$Shell(PInterfaces)Memory.p}
|
|
{$ENDC}
|
|
{$IFC UNDEFINED UsingOSUtils}
|
|
{$I $$Shell(PInterfaces)OSUtils.p}
|
|
{$ENDC}
|
|
{$IFC UNDEFINED UsingEvents}
|
|
{$I $$Shell(PInterfaces)Events.p}
|
|
{$ENDC}
|
|
{$IFC UNDEFINED UsingEPPC}
|
|
{$I $$Shell(PInterfaces)EPPC.p}
|
|
{$ENDC}
|
|
{$IFC UNDEFINED UsingAppleEvents}
|
|
{$I $$Shell(PInterfaces)AppleEvents.p}
|
|
{$ENDC}
|
|
|
|
{$SETC UsingIncludes := AEObjectIncludes}
|
|
|
|
|
|
{ These are the object packing routines. }
|
|
|
|
FUNCTION CreateOffsetDescriptor( theOffset: LONGINT;
|
|
VAR theDescriptor: AEDesc) : OSErr;
|
|
|
|
FUNCTION CreateCompDescriptor( comparisonOperator: DescType;
|
|
VAR operand1: AEDesc;
|
|
VAR operand2: AEDesc;
|
|
disposeInputs: BOOLEAN;
|
|
VAR theDescriptor: AEDesc) : OSErr;
|
|
|
|
FUNCTION CreateLogicalDescriptor(
|
|
VAR theLogicalTerms: AEDescList; {a list of comb and logi terms}
|
|
theLogicOperator: DescType; {the operator, e.g. AND}
|
|
disposeInputs: BOOLEAN;
|
|
VAR theDescriptor: AEDesc ) : OSErr;
|
|
|
|
|
|
FUNCTION CreateObjSpecifier( desiredClass: DescType;
|
|
VAR theContainer: AEDesc;
|
|
keyForm: DescType;
|
|
VAR keyData: AEDesc;
|
|
disposeInputs: BOOLEAN;
|
|
VAR objSpecifier: AEDesc) : OSErr;
|
|
|
|
FUNCTION CreateRangeDescriptor( VAR rangeStart: AEDesc;
|
|
VAR rangeStop: AEDesc;
|
|
disposeInputs: BOOLEAN;
|
|
VAR theDescriptor: AEDesc): OSErr;
|
|
|
|
|
|
{$ENDC} { UsingAEObjects }
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
END.
|
|
{$ENDC}
|