supermario/base/SuperMarioProj.1994-02-09/Interfaces/PInterfaces/FileTransferTools.p

110 lines
2.2 KiB
OpenEdge ABL
Raw Normal View History

2019-06-29 15:17:50 +00:00
{************************************************************
FileTransferTools.p
Pascal Interface to the CommToolBox file transfer tools
Copyright Apple Computer, Inc. 1988-1991
All rights reserved
This file is used in these builds: ROM System
Change History (most recent first):
<4> 8/28/91 CH Updated interface headers for consistency.
<3> 7/25/91 JL Checked in database generated file from DSG. Matched format of
file to C file.
<2> 6/26/91 BH added ftSendMsg and ftReceiveMsg constants
<1> 3/14/90 BBH first checked in
To Do:
************************************************************}
{$IFC UNDEFINED UsingIncludes}
{$SETC UsingIncludes := 0}
{$ENDC}
{$IFC NOT UsingIncludes}
UNIT FileTransferTools;
INTERFACE
{$ENDC}
{$IFC UNDEFINED UsingFileTransferTools}
{$SETC UsingFileTransferTools := 1}
{$I+}
{$SETC FileTransferToolsIncludes := UsingIncludes}
{$SETC UsingIncludes := 1}
{$IFC UNDEFINED UsingDialogs}
{$I $$Shell(PInterfaces)Dialogs.p}
{$ENDC}
{$IFC UNDEFINED UsingFileTransfers}
{$I $$Shell(PInterfaces)FileTransfers.p}
{$ENDC}
{$SETC UsingIncludes := FileTransferToolsIncludes}
CONST
{ Control }
ftInitMsg = 0;
ftDisposeMsg = 1;
ftSuspendMsg = 2;
ftResumeMsg = 3;
ftMenuMsg = 4;
ftEventMsg = 5;
ftActivateMsg = 6;
ftDeactivateMsg = 7;
ftGetErrorStringMsg = 8;
ftAbortMsg = 52;
ftStartMsg = 100;
ftExecMsg = 102;
ftSendMsg = 103;
ftReceiveMsg = 104;
{Setup }
ftSpreflightMsg = 0;
ftSsetupMsg = 1;
ftSitemMsg = 2;
ftSfilterMsg = 3;
ftScleanupMsg = 4;
{ validate }
ftValidateMsg = 0;
ftDefaultMsg = 1;
{ scripting }
ftMgetMsg = 0;
ftMsetMsg = 1;
{ localization }
ftL2English = 0;
ftL2Intl = 1;
{ DEFs }
fdefType = 'fdef';
fsetType = 'fset';
fvalType = 'fval';
flocType = 'floc';
fscrType = 'fscr';
fbndType = 'fbnd';
fverType = 'vers';
TYPE
FTSetupPtr = ^FTSetupStruct;
FTSetupStruct = PACKED RECORD
theDialog: DialogPtr; { the dialog form the application }
count: INTEGER; { first appended item }
theConfig: Ptr; { the config record to setup }
procID: INTEGER; { procID of the tool }
END;
{$ENDC} { UsingFileTransferTools }
{$IFC NOT UsingIncludes}
END.
{$ENDC}