mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-05-31 13:41:30 +00:00
72 lines
1.3 KiB
OpenEdge ABL
72 lines
1.3 KiB
OpenEdge ABL
|
|
{
|
|
Created: Saturday, July 27, 1991 at 11:18 PM
|
|
Scrap.p
|
|
Pascal Interface to the Macintosh Libraries
|
|
|
|
Copyright Apple Computer, Inc. 1985-1991
|
|
All rights reserved
|
|
This file is used in these builds: Mac32 BigBang Sys606
|
|
|
|
|
|
Change History (most recent first):
|
|
|
|
<3> 7/31/91 JL Updated Copyright.
|
|
<2> 1/27/91 LN Checked in Database generate file from DSG.
|
|
|
|
To Do:
|
|
}
|
|
|
|
|
|
{$IFC UNDEFINED UsingIncludes}
|
|
{$SETC UsingIncludes := 0}
|
|
{$ENDC}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
UNIT Scrap;
|
|
INTERFACE
|
|
{$ENDC}
|
|
|
|
{$IFC UNDEFINED UsingScrap}
|
|
{$SETC UsingScrap := 1}
|
|
|
|
{$I+}
|
|
{$SETC ScrapIncludes := UsingIncludes}
|
|
{$SETC UsingIncludes := 1}
|
|
{$IFC UNDEFINED UsingTypes}
|
|
{$I $$Shell(PInterfaces)Types.p}
|
|
{$ENDC}
|
|
{$SETC UsingIncludes := ScrapIncludes}
|
|
|
|
TYPE
|
|
PScrapStuff = ^ScrapStuff;
|
|
ScrapStuff = RECORD
|
|
scrapSize: LONGINT;
|
|
scrapHandle: Handle;
|
|
scrapCount: INTEGER;
|
|
scrapState: INTEGER;
|
|
scrapName: StringPtr;
|
|
END;
|
|
|
|
|
|
FUNCTION InfoScrap: PScrapStuff;
|
|
INLINE $A9F9;
|
|
FUNCTION UnloadScrap: LONGINT;
|
|
INLINE $A9FA;
|
|
FUNCTION LoadScrap: LONGINT;
|
|
INLINE $A9FB;
|
|
FUNCTION GetScrap(hDest: Handle;theType: ResType;VAR offset: LONGINT): LONGINT;
|
|
INLINE $A9FD;
|
|
FUNCTION ZeroScrap: LONGINT;
|
|
INLINE $A9FC;
|
|
FUNCTION PutScrap(length: LONGINT;theType: ResType;source: Ptr): LONGINT;
|
|
INLINE $A9FE;
|
|
|
|
|
|
{$ENDC} { UsingScrap }
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
END.
|
|
{$ENDC}
|
|
|