mirror of
https://github.com/elliotnunn/supermario.git
synced 2025-02-20 10:28:57 +00:00
129 lines
2.4 KiB
OpenEdge ABL
129 lines
2.4 KiB
OpenEdge ABL
{
|
|
ConnectionTools.p
|
|
Pascal Interface to the Connection Manager Tools.
|
|
|
|
Copyright © Apple Computer, Inc. 1988-90
|
|
All rights reserved
|
|
}
|
|
|
|
{$IFC UNDEFINED UsingIncludes}
|
|
{$SETC UsingIncludes := 0}
|
|
{$ENDC}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
UNIT ConnectionTools;
|
|
INTERFACE
|
|
{$ENDC}
|
|
|
|
{$IFC UNDEFINED UsingConnectionTools}
|
|
{$SETC UsingConnectionTools := 1}
|
|
|
|
{$I+}
|
|
{$SETC ConnectionToolsIncludes := UsingIncludes}
|
|
{$SETC UsingIncludes := 1}
|
|
|
|
{$IFC UNDEFINED UsingDialogs}
|
|
{$I $$Shell(PInterfaces)Dialogs.p}
|
|
{$ENDC}
|
|
|
|
{$IFC UNDEFINED UsingConnections}
|
|
{$I $$Shell(PInterfaces)Connections.p}
|
|
{$ENDC}
|
|
|
|
{$SETC UsingIncludes := ConnectionToolsIncludes}
|
|
|
|
CONST
|
|
{ messages }
|
|
|
|
cmInitMsg = 0;
|
|
cmDisposeMsg = 1;
|
|
cmSuspendMsg = 2;
|
|
cmResumeMsg = 3;
|
|
cmMenuMsg = 4;
|
|
cmEventMsg = 5;
|
|
cmActivateMsg = 6;
|
|
cmDeactivateMsg = 7;
|
|
|
|
cmIdleMsg = 50;
|
|
cmResetMsg = 51;
|
|
cmAbortMsg = 52;
|
|
|
|
cmReadMsg = 100;
|
|
cmWriteMsg = 101;
|
|
cmStatusMsg = 102;
|
|
cmListenMsg = 103;
|
|
cmAcceptMsg = 104;
|
|
cmCloseMsg = 105;
|
|
cmOpenMsg = 106;
|
|
cmBreakMsg = 107;
|
|
cmIOKillMsg = 108;
|
|
cmEnvironsMsg = 109;
|
|
|
|
|
|
{ messages for validate DefProc }
|
|
cmValidateMsg = 0;
|
|
cmDefaultMsg = 1;
|
|
|
|
|
|
{ messages for Setup DefProc }
|
|
cmSpreflightMsg = 0;
|
|
cmSsetupMsg = 1;
|
|
cmSitemMsg = 2;
|
|
cmSfilterMsg = 3;
|
|
cmScleanupMsg = 4;
|
|
|
|
{ messages for scripting defProc }
|
|
cmMgetMsg = 0;
|
|
cmMsetMsg = 1;
|
|
|
|
|
|
{ messages for localization defProc }
|
|
cmL2English = 0;
|
|
cmL2Intl = 1;
|
|
|
|
|
|
cdefType = 'cdef'; { main connection definition procedure }
|
|
cvalType = 'cval'; { validation definition procedure }
|
|
csetType = 'cset'; { connection setup definition procedure }
|
|
clocType = 'cloc'; { connection configuration localization defProc }
|
|
cscrType = 'cscr'; { connection scripting defProc interfaces }
|
|
|
|
cbndType = 'cbnd'; { bundle type for connection }
|
|
cverType = 'vers';
|
|
|
|
|
|
TYPE
|
|
CMDataBufferPtr = ^CMDataBuffer;
|
|
CMDataBuffer = RECORD
|
|
thePtr : Ptr;
|
|
count : LONGINT;
|
|
channel : CMChannel;
|
|
flags : CMFlags;
|
|
END;
|
|
|
|
CMCompletorPtr = ^CMCompletorRecord;
|
|
CMCompletorRecord = RECORD
|
|
async : BOOLEAN;
|
|
completionRoutine : ProcPtr;
|
|
END;
|
|
|
|
|
|
|
|
{ Private Data Structure }
|
|
|
|
CMSetupPtr = ^CMSetupStruct;
|
|
CMSetupStruct = RECORD
|
|
theDialog : DialogPtr;
|
|
count : INTEGER;
|
|
theConfig : Ptr;
|
|
procID : INTEGER; { procID of the tool }
|
|
END;
|
|
|
|
{$ENDC} {UsingConnectionTools}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
END.
|
|
{$ENDC}
|
|
|
|
|