mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-06-01 23:41:27 +00:00
4325cdcc78
Resource forks are included only for .rsrc files. These are DeRezzed into their data fork. 'ckid' resources, from the Projector VCS, are not included. The Tools directory, containing mostly junk, is also excluded.
40 lines
860 B
OpenEdge ABL
40 lines
860 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 } |