mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-12-26 21:30:58 +00:00
86 lines
1.9 KiB
Plaintext
86 lines
1.9 KiB
Plaintext
;_____________________________________________
|
||
; File: FileTransferTools.a
|
||
;
|
||
; Contains: Assembler Interface to the File Transfer Manager Tools
|
||
;
|
||
; Written by: Byron Han
|
||
;
|
||
; Copyright: © 1988-1991 by Apple Computer, Inc.
|
||
; All rights reserved.
|
||
;
|
||
; Change History (most recent first):
|
||
;
|
||
; <6> 8/27/91 CH Updated interface headers for consistency.
|
||
; <5> 8/15/91 MH Remove outer parens from conditional assembly predicates to
|
||
; match standard form
|
||
; <4> 6/26/91 BH added messages for ftSendMsg and ftReceiveMsg
|
||
; <3> 6/24/91 BH change conditional wrapper to conform to standards
|
||
; <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('__INCLUDINGFILETRANSFERTOOLS__') = 'UNDEFINED' THEN
|
||
__INCLUDINGFILETRANSFERTOOLS__ SET 1
|
||
|
||
; messages for fDEFs
|
||
ftInitMsg EQU 0
|
||
ftDisposeMsg EQU 1
|
||
ftSuspendMsg EQU 2
|
||
ftResumeMsg EQU 3
|
||
ftMenuMsg EQU 4
|
||
ftEventMsg EQU 5
|
||
ftActivateMsg EQU 6
|
||
ftDeactivateMsg EQU 7
|
||
ftGetErrorStringMsg EQU 8
|
||
|
||
ftAbortMsg EQU 52
|
||
|
||
ftStartMsg EQU 100
|
||
ftExecMsg EQU 102
|
||
ftSendMsg EQU 103
|
||
ftReceiveMsg EQU 104
|
||
|
||
; messages for validate DefProc
|
||
|
||
ftValidateMsg EQU 0
|
||
ftDefaultMsg EQU 1
|
||
|
||
; messages for Setup DefProc
|
||
|
||
ftSpreflightMsg EQU 0
|
||
ftSsetupMsg EQU 1
|
||
ftSitemMsg EQU 2
|
||
ftSfilterMsg EQU 3
|
||
ftScleanupMsg EQU 4
|
||
|
||
; messages for scripting defProc
|
||
ftMgetMsg EQU 0
|
||
ftMsetMsg EQU 1
|
||
|
||
; messages for localization defProc
|
||
|
||
ftL2English EQU 0
|
||
ftL2Intl EQU 1
|
||
|
||
; def type
|
||
|
||
fsetType EQU 'fset'
|
||
fvalType EQU 'fval'
|
||
flocType EQU 'floc'
|
||
fscrType EQU 'fscr'
|
||
fdefType EQU 'fdef'
|
||
fbndType EQU 'fbnd'
|
||
fverType EQU 'vers'
|
||
|
||
FTSetupStruct Record 0
|
||
theDialog ds.l 1
|
||
count ds.w 1
|
||
theConfig ds.l 1
|
||
procID ds.w 1
|
||
FTSetupStructSize EQU *
|
||
EndR
|
||
|
||
ENDIF ; already included |