mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-06-11 07:29:33 +00:00
443 lines
10 KiB
Plaintext
443 lines
10 KiB
Plaintext
;
|
|
; File: FileTransferMgrGlue.a
|
|
;
|
|
; Contains: xxx put contents here xxx
|
|
;
|
|
; Written by: xxx put writers here xxx
|
|
;
|
|
; Copyright: © 1990 by Apple Computer, Inc., all rights reserved.
|
|
;
|
|
; Change History (most recent first):
|
|
;
|
|
; <1> 3/14/90 BBH first checked in
|
|
;
|
|
; To Do:
|
|
;
|
|
|
|
; ~@~Projector~@~ Copyright © 1987, 1988, 1989 Apple Computer, Inc. All rights reserved.
|
|
; ~@~Projector~@~ File: ftgrglue.a,26+ (3/27/89 9:41:39 AM)
|
|
; File : FTGRGlue.a
|
|
;--------------------------------
|
|
;
|
|
; Glue for File Transfer Manager
|
|
;
|
|
; Written by Carol Lee June 1988,1989
|
|
;
|
|
; (c) 1988 by Apple Computer, Inc. All rights reserved.
|
|
;
|
|
;
|
|
; MODIFICATION HISTORY :
|
|
;
|
|
; 4/7/89 JNG Changed FTGetName to FTGetToolName
|
|
; 4/11/89 JNG Changed FTGetRefCon, FTSetRefCon, FTGetUserData, FTSetUserData,
|
|
; FTGetVersion to trap into the CTBCore version of the call.
|
|
; 4/12/89 JNG Changed FTGetToolName to trap into CTBCore
|
|
; 4/17/89 JNG Changed FTValidate and FTDefault to trap into CTBCore
|
|
; 4/20/89 BBH Changed FTSetupXXXXX into core
|
|
; Changed FTGetProcID, FTSetConfig, FTGetConfig, FTValidate into core
|
|
; Changed FTDefault into core
|
|
; FTGetVersion now passes mgrsel into core
|
|
; Ooops - SetConfig was passing wrong selector (passed one for getconfig)
|
|
; 4/24/89 JNG Moved FTResume FTEvent FTMenu FTAbort to ctbcore
|
|
; 4/24/89 BBH Modified FTNew and file transfer record to add environsProc
|
|
; 4/25/89 BBH Fix FTNew glue. screwed up # local storage
|
|
; 4/28/89 BBH Added FTActivate glue
|
|
; Changed FTNew to add theFlags
|
|
; 5/31/89 JNG New Glue/Entry scheme.
|
|
; 6/2/89 JNG Finished Glue
|
|
; 6/26/89 BBH Added FTPChoose routine
|
|
;
|
|
;1 BRA @InitFT
|
|
;2 BRA @FTSetRefCon
|
|
;3 BRA @FTGetRefCon
|
|
;4 BRA @FTSetUserData
|
|
;5 BRA @FTGetUserData
|
|
;6 BRA @FTGetToolName
|
|
;7 BRA @FTGetProcID
|
|
;8 BRA @FTNew
|
|
;9 BRA @FTDispose
|
|
;A BRA @FTExec
|
|
;B BRA @FTStart
|
|
;C BRA @FTCleanup
|
|
;D BRA @FTAbort
|
|
;E BRA @FTResume
|
|
;F BRA @FTValidate
|
|
;10 BRA @FTDefault
|
|
;11 BRA @FTSetupPreflight
|
|
;12 BRA @FTSetupSetup
|
|
;13 BRA @FTSetupFilter
|
|
;14 BRA @FTSetupItem
|
|
;15 BRA @FTSetupCleanup
|
|
;16 BRA @FTGetConfig
|
|
;17 BRA @FTSetConfig
|
|
;18 BRA @FTIntlToEnglish
|
|
;19 BRA @FTEnglishToIntl
|
|
;1A BRA @FTGetVersion
|
|
;1B BRA @FTGetFTVersion
|
|
;1C BRA @FTChoose
|
|
;1D BRA @FTEvent
|
|
;1E BRA @FTSetupPostflight
|
|
;1F BRA @FTMenu
|
|
;20 BRA @FTActivate
|
|
;21 BRA @FTPChoose
|
|
;22 BRA @FTSetupXCleanup
|
|
|
|
|
|
INCLUDE 'Traps.a'
|
|
INCLUDE 'CommToolboxPriv.a'
|
|
|
|
; FUNCTION InitFT: FTErr
|
|
; Major Selector -> 2;
|
|
; Minor Selector -> 1;
|
|
;
|
|
InitFT FUNC EXPORT
|
|
_CTBTrap #$201 ; major selector = 2, minor selector = 1
|
|
EndCTBTrap #$2,W
|
|
ENDFUNC
|
|
|
|
|
|
; PROCEDURE FTSetRefCon(hFT : FTHandle; rC : LONGINT);
|
|
; Major Selector -> 2;
|
|
; Minor Selector -> 2;
|
|
;
|
|
FTSetRefCon PROC EXPORT
|
|
_CTBTrap #$202
|
|
EndCTBTrap #$A
|
|
ENDPROC
|
|
|
|
|
|
; FUNCTION FTGetRefCon(hFT : FTHandle) : LONGINT;
|
|
; Major Selector -> 2;
|
|
; Minor Selector -> 3;
|
|
;
|
|
FTGetRefCon FUNC EXPORT
|
|
_CTBTrap #$203
|
|
EndCTBTrap #$6,L
|
|
ENDFUNC
|
|
|
|
|
|
; PROCEDURE FTSetUserData(hFT : FTHandle; uD : LONGINT);
|
|
; Major Selector -> 2;
|
|
; Minor Selector -> 4;
|
|
;
|
|
FTSetUserData PROC EXPORT
|
|
_CTBTrap #$204
|
|
EndCTBTrap #$A
|
|
ENDPROC
|
|
|
|
|
|
; FUNCTION FTGetUserData(hFT : FTHandle) : LONGINT;
|
|
; Major Selector -> 2;
|
|
; Minor Selector -> 5;
|
|
;
|
|
FTGetUserData FUNC EXPORT
|
|
_CTBTrap #$205
|
|
EndCTBTrap #$6,L
|
|
ENDFUNC
|
|
|
|
|
|
; PROCEDURE FTGetToolName(procID : INTEGER; VAR name : STR255);
|
|
; Major Selector -> 2;
|
|
; Minor Selector -> 6;
|
|
;
|
|
FTGetToolName PROC EXPORT
|
|
_CTBTrap #$206
|
|
EndCTBTrap #$8
|
|
ENDPROC
|
|
|
|
|
|
; FUNCTION FTGetProcID(name : STR255) : INTEGER;
|
|
; Major Selector -> 2;
|
|
; Minor Selector -> 7;
|
|
;
|
|
FTGetProcID FUNC EXPORT
|
|
_CTBTrap #$207
|
|
EndCTBTrap #$6,W
|
|
ENDFUNC
|
|
|
|
|
|
; FUNCTION FTNew(ProcID : INTEGER; theFlags: LONGINT;
|
|
; theSendProc : ProcPtr; theRecvProc : ProcPtr;
|
|
; theReadProc : ProcPtr; theWriteProc : ProcPtr; theEnvironsProc: ProcPtr;
|
|
; owner : WindowPtr; theRefCon : LONGINT; theUserData : LONGINT) : FTHandle;
|
|
; Major Selector -> 2;
|
|
; Minor Selector -> 8;
|
|
FTNew FUNC EXPORT
|
|
|
|
_CTBTrap #$208 ; major selector = 2, minor selector = 8
|
|
EndCTBTrap #$28,L
|
|
ENDFUNC
|
|
|
|
|
|
; PROCEDURE FTDispose(hFT : FTHandle);
|
|
; Major Selector -> 2;
|
|
; Minor Selector -> 9;
|
|
;
|
|
FTDispose PROC EXPORT
|
|
_CTBTrap #$209 ; major selector = 2, minor selector = 9
|
|
EndCTBTrap #$6
|
|
ENDPROC
|
|
|
|
|
|
; PROCEDURE FTExec(hFT : FTHandle);
|
|
; Major Selector -> 2;
|
|
; Minor Selector -> 0xA;
|
|
FTExec PROC EXPORT
|
|
_CTBTrap #$20A ; major selector = 2, minor selector = 10
|
|
EndCTBTrap #$6
|
|
ENDPROC
|
|
|
|
|
|
; FUNCTION FTStart(hFT : FTHandle,what : short, fileInfo : ReplyPtr) : FTErr;
|
|
; Major Selector -> 2;
|
|
; Minor Selector -> 0xB;
|
|
;
|
|
FTStart FUNC EXPORT
|
|
_CTBTrap #$20B ; major selector = 2, minor selector = 11
|
|
EndCTBTrap #$C,W
|
|
ENDFUNC
|
|
|
|
|
|
; FUNCTION FTCleanup(hFT : FTHandle; now : BOOLEAN) : FTErr;
|
|
; Major Selector -> 2;
|
|
; Minor Selector -> 0xC;
|
|
;
|
|
FTCleanup FUNC EXPORT
|
|
_CTBTrap #$20C ; major selector = 2, minor selector = 12
|
|
EndCTBTrap #$8,W
|
|
ENDFUNC
|
|
|
|
; FUNCTION FTAbort(hFT : FTHandle) : FTErr;
|
|
; Major Selector -> 2;
|
|
; Minor Selector -> 0xD;
|
|
;
|
|
FTAbort FUNC EXPORT
|
|
_CTBTrap #$20D
|
|
EndCTBTrap #$6,W
|
|
ENDFUNC
|
|
|
|
; PROCEDURE FTResume(hFT : FTHandle; res : BOOLEAN);
|
|
; Major Selector -> 2;
|
|
; Minor Selector -> E;
|
|
;
|
|
FTResume PROC EXPORT
|
|
_CTBTrap #$20E
|
|
EndCTBTrap #$8
|
|
ENDPROC
|
|
|
|
; FUNCTION FTValidate(hFT : FTHandle) : BOOLEAN;
|
|
; Major Selector -> 2;
|
|
; Minor Selector -> f;
|
|
FTValidate FUNC EXPORT
|
|
_CTBTrap #$20F
|
|
EndCTBTrap #$6,B
|
|
ENDFUNC
|
|
|
|
|
|
; PROCEDURE FTDefault(ConfPtr : Ptr; procID : INTEGER; allocate : BOOLEAN);
|
|
; Major Selector -> 2;
|
|
; Minor Selector -> 10;
|
|
;
|
|
FTDefault PROC EXPORT
|
|
_CTBTrap #$210
|
|
EndCTBTrap #$A
|
|
ENDPROC
|
|
|
|
; FUNCTION FTSetupPreflight(procID:INTEGER; VAR magicCookie:LONGINT) : Handle;
|
|
; Major Selector -> 2;
|
|
; Minor Selector -> 11;
|
|
;
|
|
FTSetupPreflight FUNC EXPORT
|
|
_CTBTrap #$211
|
|
EndCTBTrap #$8,L
|
|
ENDFUNC
|
|
|
|
|
|
|
|
; PROCEDURE FTSetupSetup(procID:INTEGER; theConfig:Ptr; count:INTEGER;
|
|
; theDialog:DialogPtr; VAR magicCookie:LONGINT);
|
|
;
|
|
; Major Selector -> 2;
|
|
; Minor Selector -> 12;
|
|
;
|
|
FTSetupSetup FUNC EXPORT
|
|
_CTBTrap #$212
|
|
EndCTBTrap #$12
|
|
ENDFUNC
|
|
|
|
|
|
; FUNCTION FTSetupFilter(procID:INTEGER; theConfig:Ptr; count:INTEGER; theDialog:DialogPtr;
|
|
; VAR theEvent:EventRecord; VAR theItem:INTEGER; VAR magicCookie:LONGINT) : BOOLEAN;
|
|
;
|
|
; Major Selector -> 2;
|
|
; Minor Selector -> 13;
|
|
FTSetupFilter FUNC EXPORT
|
|
_CTBTrap #$213
|
|
EndCTBTrap #$1A,B
|
|
ENDFUNC
|
|
|
|
|
|
; PROCEDURE FTSetupItem(procID : INTEGER; theConfig : Ptr; count : INTEGER; theDialog : DialogPtr;
|
|
; VAR theItem : INTEGER; VAR magicCookie:LONGINT);
|
|
; Major Selector -> 2;
|
|
; Minor Selector -> 14;
|
|
;
|
|
FTSetupItem PROC EXPORT
|
|
_CTBTrap #$214
|
|
EndCTBTrap #$16
|
|
ENDPROC
|
|
|
|
|
|
; PROCEDURE FTSetupCleanup(procID : INTEGER; theConfig : Ptr; count : INTEGER; theDialog : DialogPtr;
|
|
; VAR magicCookie:LONGINT);
|
|
;
|
|
; Major Selector -> 2;
|
|
; Minor Selector -> 15;
|
|
FTSetupCleanup PROC EXPORT
|
|
_CTBTrap #$215
|
|
EndCTBTrap #$12
|
|
ENDPROC
|
|
|
|
; PROCEDURE FTSetupXCleanup(procID : INTEGER; theConfig : Ptr; count : INTEGER;
|
|
; theDialog : DialogPtr; OKed: BOOLEAN;
|
|
; VAR magicCookie:LONGINT);
|
|
;
|
|
; Major Selector -> 2;
|
|
; Minor Selector -> 22;
|
|
FTSetupXCleanup PROC EXPORT
|
|
_CTBTrap #$222
|
|
EndCTBTrap #$14
|
|
ENDPROC
|
|
|
|
|
|
; FUNCTION FTGetConfig(hFT : FTHandle) : Ptr;
|
|
;
|
|
; Major Selector -> 2;
|
|
; Minor Selector -> 16;
|
|
;
|
|
FTGetConfig FUNC EXPORT
|
|
_CTBTrap #$216
|
|
EndCTBTrap #$6,L
|
|
ENDFUNC
|
|
|
|
|
|
; FUNCTION FTSetConfig(hFT : FTHandle; thePtr : Ptr) : INTEGER;
|
|
;
|
|
; Major Selector -> 2;
|
|
; Minor Selector -> 17;
|
|
;
|
|
FTSetConfig FUNC EXPORT
|
|
_CTBTrap #$217
|
|
EndCTBTrap #$A,W
|
|
ENDFUNC
|
|
|
|
|
|
; FUNCTION FTIntlToEnglish(hFT : FTHandle; inputPtr : Ptr; outputPtr : Ptr;
|
|
; language : INTEGER) : INTEGER;
|
|
; Major Selector -> 2;
|
|
; Minor Selector -> 18;
|
|
;
|
|
FTIntlToEnglish FUNC EXPORT
|
|
_CTBTrap #$218
|
|
EndCTBTrap #$10,W
|
|
ENDFUNC
|
|
|
|
|
|
; FUNCTION FTEnglishToIntl(hFT : FTHandle; inputPtr : Ptr; outputPtr : Ptr;
|
|
; language : INTEGER) : INTEGER;
|
|
;
|
|
; Major Selector -> 2;
|
|
; Minor Selector -> 19;
|
|
;
|
|
FTEnglishToIntl FUNC EXPORT
|
|
_CTBTrap #$219
|
|
EndCTBTrap #$A,W
|
|
ENDFUNC
|
|
|
|
|
|
; FUNCTION FTGetVersion( hFT : FTHandle ) : Handle;
|
|
;
|
|
; Major Selector -> 2;
|
|
; Minor Selector -> 1ahex;
|
|
;
|
|
FTGetVersion FUNC EXPORT
|
|
_CTBTrap #$21A
|
|
EndCTBTrap #$6,L
|
|
ENDFUNC
|
|
|
|
; FUNCTION FTGetFTVersion : INTEGER;
|
|
; Major Selector -> 2;
|
|
; Minor Selector -> 1B hex;
|
|
;
|
|
FTGetFTVersion FUNC EXPORT
|
|
_CTBTrap #$21B ; major selector 2, minor 1B hex
|
|
EndCTBTrap #$2,W
|
|
ENDFUNC
|
|
|
|
|
|
|
|
; Function FTChoose( VAR hFT : FTHandle; where: Point; idleProc:ProcPtr) : INTEGER;
|
|
;
|
|
; Major Selector -> 2;
|
|
; Minor Selector -> 1C hex;
|
|
;
|
|
FTChoose FUNC EXPORT
|
|
_CTBTrap #$21C
|
|
EndCTBTrap #$E,W
|
|
ENDFUNC
|
|
|
|
; Function FTPChoose( VAR hFT : FTHandle; where: Point; VAR cRec: ChooseRec) : INTEGER;
|
|
;
|
|
; Major Selector -> 2;
|
|
; Minor Selector -> 21 hex;
|
|
;
|
|
FTPChoose FUNC EXPORT
|
|
_CTBTrap #$221
|
|
EndCTBTrap #$E,W
|
|
ENDFUNC
|
|
|
|
; PROCEDURE FTEvent(hFT : FTHandle, theEvent : EventRecord);
|
|
;
|
|
; Major Selector -> 2;
|
|
; Minor Selector -> 1D
|
|
;
|
|
FTEvent PROC EXPORT ; this procedure should be eliminated soon!
|
|
_CTBTrap #$21D
|
|
EndCTBTrap #$A
|
|
ENDPROC
|
|
|
|
|
|
; Procedure FTSetupPostflight( procID: INTEGER );
|
|
;
|
|
; Major Selector -> 2;
|
|
; Minor Selector -> 1E;
|
|
;
|
|
FTSetupPostflight PROC EXPORT
|
|
_CTBTrap #$21E
|
|
EndCTBTrap #$4
|
|
ENDPROC
|
|
|
|
|
|
; Function FTMenu( hFT : FTHandle; menuID : integer; item : integer ) : Boolean;
|
|
;
|
|
; Major Selector -> 2;
|
|
; Minor Selector -> 1F;
|
|
;
|
|
FTMenu PROC EXPORT
|
|
_CTBTrap #$21F
|
|
EndCTBTrap #$A,B
|
|
ENDPROC
|
|
|
|
; Procedure FTActivate( hFT : FTHandle; activate : Boolean );
|
|
;
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 7;
|
|
;
|
|
FTActivate PROC EXPORT
|
|
_CTBTrap #$220
|
|
EndCTBTrap #$8
|
|
ENDPROC
|
|
|
|
|
|
|
|
END |