mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-06-12 14:29:29 +00:00
40 lines
861 B
OpenEdge ABL
40 lines
861 B
OpenEdge ABL
{
|
|
File: AECoercion.p
|
|
|
|
Copyright: © 1990-1992 by Apple Computer, Inc., all rights reserved.
|
|
|
|
Change History (most recent first):
|
|
|
|
<3> 5/29/92 DCL Included TextUtils.p. NumToString was moved for the New Inside
|
|
Mac.
|
|
<2> 5/21/91 gbm Stop using the "empty" units (MemTypes, etc...)
|
|
<1> 12/13/90 Lai first checked in
|
|
|
|
To Do:
|
|
}
|
|
|
|
UNIT AECoercion;
|
|
|
|
INTERFACE
|
|
|
|
USES
|
|
Types, Memory, Packages, Errors, SANE, Aliases, Processes, TextUtils,
|
|
AppleEvents, AEHashTable, AEUtil, AEHandlerTable;
|
|
|
|
|
|
FUNCTION AE_CoercePtr(typeCode: DescType;
|
|
dataPtr: Ptr;
|
|
dataSize: LONGINT;
|
|
toType: DescType;
|
|
VAR result: AEDesc): OSErr;
|
|
|
|
FUNCTION AE_CoerceDesc(VAR desc: AEDesc; { VAR is for efficiency only }
|
|
toType: DescType;
|
|
VAR result: AEDesc): OSErr;
|
|
|
|
|
|
IMPLEMENTATION
|
|
|
|
{$I AECoercion.inc1.p}
|
|
|
|
END. { AECoercion } |