sys7.1-doc-wip/Interfaces/AIncludes/FileTransfers.a
2019-07-27 22:37:48 +08:00

357 lines
6.2 KiB
Plaintext
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

;_____________________________________________
; File: FileTransfers.a
;
; Contains: Assembler Interface to the File Transfer Manager
;
; Written by: Byron Han
;
; Copyright: © 1988-1991 by Apple Computer, Inc.
; All rights reserved.
;
; Change History (most recent first):
;
; <15> 8/27/91 CH Updated interface header for consistency
; <14> 8/20/91 BH remove FTSetupCleanup from public interfaces
; <13> 8/18/91 MH Reordered the definitions and corrected the values of
; ftXXXXGetFPost and ftXXXXSetFPos to match C and Pascal
; interfaces.
; <12> 8/15/91 MH Remove outer parens from conditional assembly predicates to
; match standard form
; <11> 8/15/91 MH Minor formatting changes
; <10> 8/15/91 MH change the conditinal include var for StandardFile.a from
; __INCLUDINGSTANDARDFILE to __INCLUDINGSTANDARDFILE__ as defined
; in StandardFile.a
; <9> 7/9/91 BH reinclude ftWriteFileInfo and renumber ftXXXXGetFPost and
; ftXXXXSetFPos
; <8> 7/3/91 BH removed ftFullDuplex
; <7> 6/26/91 BH added FTSend, FTReceive, and constants for read and write procs
; and new constant for ftMultipleFileSend
; <6> 6/25/91 JNG Add ftConfigChanged
; <5> 6/24/91 BH change theReply field of file transfer record to be of type
; SFReply instead of just 74 bytes. Also include StandardFile.a.
; Also change conditional assembler wrapper to conform to
; standards
; <4> 6/18/91 BH remove FTPChoose
; <3> 6/14/91 JL Checked in official MPW 3.2ƒ version. Corrected the casing of
; _InitFT.
; <2> 1/30/91 gbm sab, #38: Change the already including this file variable to
; all uppercase (for security reasons)
; <1> 3/14/90 BBH first checked in
;
; To Do:
;_____________________________________________
IF &TYPE('__INCLUDINGFILETRANSFERS__') = 'UNDEFINED' THEN
__INCLUDINGFILETRANSFERS__ SET 1
IF &TYPE('__INCLUDINGCTBUTILITIES__') = 'UNDEFINED' THEN
INCLUDE 'CTBUtilities.a'
ENDIF
IF &TYPE('__INCLUDINGSTANDARDFILE__') = 'UNDEFINED' THEN
INCLUDE 'StandardFile.a'
ENDIF
; current file transfer manager version
curFTVersion EQU 2
; FTErr
ftGenericError EQU -1
ftNoErr EQU 0
ftRejected EQU 1
ftFailed EQU 2
ftTimeOut EQU 3
ftTooManyRetry EQU 4
ftNotEnoughDSpace EQU 5
ftRemoteCancel EQU 6
ftWrongFormat EQU 7
ftNoTools EQU 8
ftUserCancel EQU 9
ftNotSupported EQU 10
ftUnknownError EQU 11
; FTflags
ftIsFTMode EQU $00000001
ftNoMenus EQU $00000002
ftQuiet EQU $00000004
ftConfigChanged EQU $00000010
ftSucc EQU $00000080
; FTAttributes
ftSameCircuit EQU $0001
ftSendDisable EQU $0002
ftReceiveDisable EQU $0004
ftTextOnly EQU $0008
ftNoStdFile EQU $0010
ftMultipleFileSend EQU $0020
; FTDirection
ftReceiving EQU 0
ftTransmitting EQU 1
; FTReadProc constants
ftReadOpenFile EQU 0
ftReadDataFork EQU 1
ftReadRsrcFork EQU 2
ftReadAbort EQU 3
ftReadComplete EQU 4
ftReadSetFPos EQU 6
ftReadGetFPos EQU 7
ftOpenDataFork EQU 1
ftOpenRsrcFork EQU 2
; FTWriteProc constants
ftWriteOpenFile EQU 0
ftWriteDataFork EQU 1
ftWriteRsrcFork EQU 2
ftWriteAbort EQU 3
ftWriteComplete EQU 4
ftWriteFileInfo EQU 5
ftWriteSetFPos EQU 6
ftWriteGetFPos EQU 7
FTRecord Record 0
procID ds.w 1
flags ds.l 1
errCode ds.w 1
refCon ds.l 1
userData ds.l 1
defProc ds.l 1
config ds.l 1
oldConfig ds.l 1
environsProc ds.l 1
reserved1 ds.l 1
reserved2 ds.l 1
ftPrivate ds.l 1
sendProc ds.l 1
recvProc ds.l 1
writeProc ds.l 1
readProc ds.l 1
owner ds.l 1
direction ds.w 1
theReply ds SFReply ;
writePtr ds.l 1
readPtr ds.l 1
theBuf ds.l 1
bufSize ds.l 1
autoRec ds.b 256
attributes ds.w 1
FTRecordSize EQU *
ENDR
InitFT EQU $201
FTSetRefCon EQU $202
FTGetRefCon EQU $203
FTSetUserData EQU $204
FTGetUserData EQU $205
FTGetToolName EQU $206
FTGetProcID EQU $207
FTNew EQU $208
FTDispose EQU $209
FTExec EQU $20A
FTStart EQU $20B
FTAbort EQU $20D
FTResume EQU $20E
FTValidate EQU $20F
FTDefault EQU $210
FTSetupPreflight EQU $211
FTSetupSetup EQU $212
FTSetupFilter EQU $213
FTSetupItem EQU $214
FTGetConfig EQU $216
FTSetConfig EQU $217
FTIntlToEnglish EQU $218
FTEnglishToIntl EQU $219
FTGetVersion EQU $21A
FTGetFTVersion EQU $21B
FTChoose EQU $21C
FTEvent EQU $21D
FTSetupPostflight EQU $21E
FTMenu EQU $21F
FTActivate EQU $220
FTSetupXCleanup EQU $222
FTGetErrorString EQU $223
FTSend EQU $224
FTReceive EQU $225
MACRO
_InitFT
_CTBCall #InitFT
ENDM
MACRO
_FTSetRefCon
_CTBCall #FTSetRefCon
ENDM
MACRO
_FTGetRefCon
_CTBCall #FTGetRefCon
ENDM
MACRO
_FTSetUserData
_CTBCall #FTSetUserData
ENDM
MACRO
_FTGetUserData
_CTBCall #FTGetUserData
ENDM
MACRO
_FTGetToolName
_CTBCall #FTGetToolName
ENDM
MACRO
_FTGetProcID
_CTBCall #FTGetProcID
ENDM
MACRO
_FTNew
_CTBCall #FTNew
ENDM
MACRO
_FTDispose
_CTBCall #FTDispose
ENDM
MACRO
_FTExec
_CTBCall #FTExec
ENDM
MACRO
_FTStart
_CTBCall #FTStart
ENDM
MACRO
_FTAbort
_CTBCall #FTAbort
ENDM
MACRO
_FTResume
_CTBCall #FTResume
ENDM
MACRO
_FTValidate
_CTBCall #FTValidate
ENDM
MACRO
_FTDefault
_CTBCall #FTDefault
ENDM
MACRO
_FTSetupPreflight
_CTBCall #FTSetupPreflight
ENDM
MACRO
_FTSetupSetup
_CTBCall #FTSetupSetup
ENDM
MACRO
_FTSetupFilter
_CTBCall #FTSetupFilter
ENDM
MACRO
_FTSetupItem
_CTBCall #FTSetupItem
ENDM
MACRO
_FTGetConfig
_CTBCall #FTGetConfig
ENDM
MACRO
_FTSetConfig
_CTBCall #FTSetConfig
ENDM
MACRO
_FTIntlToEnglish
_CTBCall #FTIntlToEnglish
ENDM
MACRO
_FTEnglishToIntl
_CTBCall #FTEnglishToIntl
ENDM
MACRO
_FTGetVersion
_CTBCall #FTGetVersion
ENDM
MACRO
_FTGetFTVersion
_CTBCall #FTGetFTVersion
ENDM
MACRO
_FTChoose
_CTBCall #FTChoose
ENDM
MACRO
_FTEvent
_CTBCall #FTEvent
ENDM
MACRO
_FTSetupPostflight
_CTBCall #FTSetupPostflight
ENDM
MACRO
_FTMenu
_CTBCall #FTMenu
ENDM
MACRO
_FTActivate
_CTBCall #FTActivate
ENDM
MACRO
_FTSetupXCleanup
_CTBCall #FTSetupXCleanup
ENDM
MACRO
_FTGetErrorString
_CTBCall #FTGetErrorString
ENDM
MACRO
_FTSend
_CTBCall #FTSend
ENDM
MACRO
_FTReceive
_CTBCall #FTReceive
ENDM
ENDIF ; already included