mirror of https://github.com/mrkite/regs.git
41 lines
3.2 KiB
OpenEdge ABL
Executable File
41 lines
3.2 KiB
OpenEdge ABL
Executable File
{********************************************
|
|
; File: Scrap.p
|
|
;
|
|
;
|
|
; Copyright Apple Computer, Inc. 1986-89
|
|
; All Rights Reserved
|
|
;
|
|
********************************************}
|
|
|
|
UNIT SCRAP;
|
|
INTERFACE
|
|
USES TYPES;
|
|
CONST
|
|
|
|
(* *** Toolset Errors ***
|
|
badScrapType = $1610; {error - No scrap of this type. }
|
|
*** Toolset Errors *** *)
|
|
|
|
textScrap = $0000; {scrapType - }
|
|
picScrap = $0001; {scrapType - }
|
|
PROCEDURE ScrapBootInit ; Tool $16,$01;
|
|
PROCEDURE ScrapStartUp ; Tool $16,$02;
|
|
PROCEDURE ScrapShutDown ; Tool $16,$03;
|
|
FUNCTION ScrapVersion : Integer ; Tool $16,$04;
|
|
PROCEDURE ScrapReset ; Tool $16,$05;
|
|
FUNCTION ScrapStatus : Boolean ; Tool $16,$06;
|
|
PROCEDURE GetScrap ( destHandle:Handle; scrapType:Integer) ; Tool $16,$0D;
|
|
FUNCTION GetScrapCount : Integer ; Tool $16,$12;
|
|
FUNCTION GetScrapHandle ( scrapType:Integer) : handle ; Tool $16,$0E;
|
|
FUNCTION GetScrapPath : Ptr ; Tool $16,$10;
|
|
FUNCTION GetScrapSize ( scrapType:Integer) : Longint ; Tool $16,$0F;
|
|
FUNCTION GetScrapState : Integer ; Tool $16,$13;
|
|
PROCEDURE LoadScrap ; Tool $16,$0A;
|
|
PROCEDURE PutScrap ( numBytes:Longint; scrapType:Integer; srcPtr:Ptr) ; Tool
|
|
$16,$0C;
|
|
PROCEDURE SetScrapPath ( path:Str255) ; Tool $16,$11;
|
|
PROCEDURE UnloadScrap ; Tool $16,$09;
|
|
PROCEDURE ZeroScrap ; Tool $16,$0B;
|
|
IMPLEMENTATION
|
|
END.
|