mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-06-01 07:41:58 +00:00
4325cdcc78
Resource forks are included only for .rsrc files. These are DeRezzed into their data fork. 'ckid' resources, from the Projector VCS, are not included. The Tools directory, containing mostly junk, is also excluded.
110 lines
2.2 KiB
OpenEdge ABL
110 lines
2.2 KiB
OpenEdge ABL
{************************************************************
|
|
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}
|
|
|