mirror of
https://github.com/elliotnunn/BuildCubeE.git
synced 2024-06-28 16:29:30 +00:00
262 lines
6.9 KiB
OpenEdge ABL
262 lines
6.9 KiB
OpenEdge ABL
{
|
|
Connections.p
|
|
Pascal Interface to the Connection Manager
|
|
|
|
Copyright © Apple Computer, Inc. 1988-90
|
|
All rights reserved
|
|
}
|
|
{$IFC UNDEFINED UsingIncludes}
|
|
{$SETC UsingIncludes := 0}
|
|
{$ENDC}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
UNIT Connections;
|
|
INTERFACE
|
|
{$ENDC}
|
|
|
|
{$IFC UNDEFINED UsingConnections}
|
|
{$SETC UsingConnections := 1}
|
|
|
|
{$I+}
|
|
{$SETC ConnectionsIncludes := UsingIncludes}
|
|
{$SETC UsingIncludes := 1}
|
|
{$IFC UNDEFINED UsingDialogs}
|
|
{$I $$Shell(PInterfaces)Dialogs.p}
|
|
{$ENDC}
|
|
|
|
{$IFC UNDEFINED UsingCTBUtilities}
|
|
{$I $$Shell(PInterfaces)CTBUtilities.p}
|
|
{$ENDC}
|
|
|
|
{$SETC UsingIncludes := ConnectionsIncludes}
|
|
|
|
CONST
|
|
{ current Connection Manager version }
|
|
curCMVersion = 2;
|
|
|
|
{ current Connection Manager Environment Record version }
|
|
curConnEnvRecVers = 0;
|
|
|
|
{ error codes }
|
|
cmGenericError = -1;
|
|
cmNoErr = 0;
|
|
cmRejected = 1;
|
|
cmFailed = 2;
|
|
cmTimeOut = 3;
|
|
cmNotOpen = 4;
|
|
cmNotClosed = 5;
|
|
cmNoRequestPending = 6;
|
|
cmNotSupported = 7;
|
|
cmNoTools = 8;
|
|
cmUserCancel = 9;
|
|
cmUnknownError = 11;
|
|
|
|
{ CMRecFlags / CMChannel}
|
|
{ Low word of CMRecFlags is same as CMChannel }
|
|
cmData = $00000001;
|
|
cmCntl = $00000002;
|
|
cmAttn = $00000004;
|
|
|
|
cmDataNoTimeout = $00000010;
|
|
cmCntlNoTimeout = $00000020;
|
|
cmAttnNoTimeout = $00000040;
|
|
|
|
cmDataClean = $00000100;
|
|
cmCntlClean = $00000200;
|
|
cmAttnClean = $00000400;
|
|
|
|
{ only for CMRecFlags (not CMChannel) below this point }
|
|
cmNoMenus = $00010000;
|
|
cmQuiet = $00020000;
|
|
|
|
{ CMStatFlags}
|
|
cmStatusOpening = $00000001;
|
|
cmStatusOpen = $00000002;
|
|
cmStatusClosing = $00000004;
|
|
cmStatusDataAvail = $00000008;
|
|
cmStatusCntlAvail = $00000010;
|
|
cmStatusAttnAvail = $00000020;
|
|
|
|
cmStatusDRPend = $00000040; {data read pending}
|
|
cmStatusDWPend = $00000080; {data write pending}
|
|
cmStatusCRPend = $00000100; {cntl read pending}
|
|
cmStatusCWPend = $00000200; {cntl write pending}
|
|
cmStatusARPend = $00000400; {attn read pending}
|
|
cmStatusAWPend = $00000800; {attn write pending}
|
|
|
|
cmStatusBreakPend = $00001000;
|
|
cmStatusListenPend = $00002000;
|
|
cmStatusIncomingCallPresent
|
|
= $00004000;
|
|
|
|
cmStatusReserved0 = $00008000;
|
|
|
|
{ CMSearchFlags}
|
|
cmSearchSevenBit = $0001;
|
|
|
|
{ CMFlags}
|
|
cmFlagsEOM = $0001;
|
|
|
|
TYPE
|
|
CMErr = OSErr;
|
|
|
|
CMBufFields = (
|
|
cmDataIn,
|
|
cmDataOut,
|
|
|
|
cmCntlIn,
|
|
cmCntlOut,
|
|
|
|
cmAttnIn,
|
|
cmAttnOut,
|
|
|
|
cmRsrvIn,
|
|
cmRsrvOut
|
|
);
|
|
|
|
CMBuffers = ARRAY[CMBufFields] OF Ptr;
|
|
CMBufferSizes = ARRAY[CMBufFields] OF LONGINT;
|
|
|
|
CMStatFlags = LONGINT;
|
|
CMRecFlags = LONGINT;
|
|
CMChannel = INTEGER;
|
|
CMSearchFlags = INTEGER;
|
|
CMFlags = INTEGER;
|
|
|
|
ConnEnvironRecPtr
|
|
= ^ConnEnvironRec;
|
|
ConnEnvironRec = RECORD
|
|
version : INTEGER;
|
|
baudRate : LONGINT;
|
|
dataBits : INTEGER;
|
|
channels : CMChannel;
|
|
swFlowControl : BOOLEAN;
|
|
hwFlowControl : BOOLEAN;
|
|
flags : CMFlags;
|
|
END;
|
|
|
|
ConnHandle = ^ConnPtr;
|
|
ConnPtr = ^ConnRecord;
|
|
ConnRecord = RECORD
|
|
procID : INTEGER;
|
|
|
|
flags : CMRecFlags;
|
|
errCode : CMErr;
|
|
|
|
refCon : LONGINT;
|
|
userData : LONGINT;
|
|
|
|
defProc : ProcPtr;
|
|
|
|
config : Ptr;
|
|
oldConfig : Ptr;
|
|
|
|
asyncEOM : LONGINT;
|
|
|
|
reserved1 : LONGINT;
|
|
reserved2 : LONGINT;
|
|
|
|
cmPrivate : Ptr;
|
|
|
|
bufferArray : CMBuffers;
|
|
bufSizes : CMBufferSizes;
|
|
|
|
mluField : LONGINT;
|
|
|
|
asyncCount : CMBufferSizes;
|
|
END;
|
|
|
|
|
|
|
|
FUNCTION InitCM: CMErr;
|
|
FUNCTION CMGetVersion(hConn: ConnHandle): Handle;
|
|
FUNCTION CMGetCMVersion: INTEGER;
|
|
|
|
FUNCTION CMNew(procID: INTEGER; flags: CMRecFlags;
|
|
desiredSizes: CMBufferSizes; refCon: LONGINT;
|
|
userData: LONGINT): ConnHandle;
|
|
PROCEDURE CMDispose(hConn: ConnHandle);
|
|
|
|
FUNCTION CMListen(hConn: ConnHandle; async: BOOLEAN; completor: ProcPTr;
|
|
timeout: LONGINT): CMErr;
|
|
FUNCTION CMAccept(hConn: ConnHandle; accept: BOOLEAN): CMErr;
|
|
|
|
FUNCTION CMOpen(hConn: ConnHandle; async: BOOLEAN; completor: ProcPtr;
|
|
timeout: LONGINT): CMErr;
|
|
FUNCTION CMClose(hConn: ConnHandle; async: BOOLEAN; completor: ProcPtr;
|
|
timeout: LONGINT; now: BOOLEAN): CMErr;
|
|
|
|
FUNCTION CMAbort(hConn: ConnHandle): CMErr;
|
|
|
|
FUNCTION CMStatus(hConn: ConnHandle; VAR sizes: CMBufferSizes;
|
|
VAR flags: CMStatFlags): CMErr;
|
|
PROCEDURE CMIdle(hConn: ConnHandle);
|
|
|
|
PROCEDURE CMReset(hConn: ConnHandle);
|
|
|
|
PROCEDURE CMBreak(hConn: ConnHandle; duration: LONGINT; async: BOOLEAN;
|
|
completor: ProcPtr);
|
|
|
|
FUNCTION CMRead(hConn: ConnHandle; theBuffer: Ptr; VAR toRead: LONGINT;
|
|
theChannel: CMChannel; async: BOOLEAN;
|
|
completor: ProcPtr; timeout: LONGINT; VAR flags: CMFlags): CMErr;
|
|
FUNCTION CMWrite(hConn: ConnHandle; theBuffer: Ptr; VAR toWrite: LONGINT;
|
|
theChannel: CMChannel; async: BOOLEAN;
|
|
completor: ProcPtr; timeout: LONGINT; flags: CMFlags): CMErr;
|
|
FUNCTION CMIOKill(hConn: ConnHandle; which: INTEGER): CMErr;
|
|
|
|
PROCEDURE CMActivate(hConn: ConnHandle; activate: BOOLEAN);
|
|
PROCEDURE CMResume(hConn: ConnHandle; resume: BOOLEAN);
|
|
FUNCTION CMMenu(hConn: ConnHandle; menuID: INTEGER; item: INTEGER): BOOLEAN;
|
|
|
|
FUNCTION CMValidate(hConn: ConnHandle): BOOLEAN;
|
|
PROCEDURE CMDefault(VAR theConfig: Ptr ; procID: INTEGER; allocate: BOOLEAN);
|
|
|
|
FUNCTION CMSetupPreflight(procID: INTEGER; VAR magicCookie: LONGINT):Handle;
|
|
PROCEDURE CMSetupSetup(procID: INTEGER; theConfig: Ptr; count: INTEGER; theDialog: DialogPtr;
|
|
VAR magicCookie:LONGINT);
|
|
FUNCTION CMSetupFilter(procID: INTEGER; theConfig: Ptr; count: INTEGER;
|
|
theDialog: DialogPtr; VAR theEvent: EventRecord; VAR theItem: INTEGER;
|
|
VAR magicCookie: LONGINT): BOOLEAN;
|
|
PROCEDURE CMSetupItem(procID: INTEGER; theConfig: Ptr; count: INTEGER; theDialog: DialogPtr;
|
|
VAR theItem: INTEGER; VAR magicCookie: LONGINT);
|
|
PROCEDURE CMSetupCleanup(procID: INTEGER; theConfig: Ptr; count: INTEGER; theDialog: DialogPtr;
|
|
VAR magicCookie: LONGINT);
|
|
PROCEDURE CMSetupPostflight(procID: INTEGER);
|
|
|
|
FUNCTION CMGetConfig(hConn: ConnHandle): Ptr;
|
|
FUNCTION CMSetConfig(hConn: ConnHandle; thePtr: Ptr): INTEGER;
|
|
|
|
FUNCTION CMIntlToEnglish(hConn: ConnHandle; inputPtr: Ptr; VAR outputPtr: Ptr;
|
|
language: INTEGER): OSErr;
|
|
FUNCTION CMEnglishToIntl(hConn: ConnHandle; inputPtr: Ptr; VAR outputPtr: Ptr;
|
|
language: INTEGER): OSErr;
|
|
|
|
FUNCTION CMAddSearch(hConn: ConnHandle; theString: Str255; flags: CMSearchFlags;
|
|
callBack: ProcPtr): LONGINT;
|
|
PROCEDURE CMRemoveSearch(hConn: ConnHandle; refnum: LONGINT);
|
|
PROCEDURE CMClearSearch(hConn: ConnHandle);
|
|
|
|
FUNCTION CMGetConnEnvirons(hConn: ConnHandle; VAR theEnvirons: ConnEnvironRec): CMErr;
|
|
|
|
FUNCTION CMChoose(VAR hConn: ConnHandle; where: Point; idleProc: ProcPtr): INTEGER;
|
|
|
|
PROCEDURE CMEvent(hConn: ConnHandle; theEvent: EventRecord);
|
|
|
|
PROCEDURE CMGetToolName(procID: INTEGER; VAR name: Str255);
|
|
FUNCTION CMGetProcID(name: Str255): INTEGER;
|
|
|
|
PROCEDURE CMSetRefCon(hConn: ConnHandle; refCon: LONGINT);
|
|
FUNCTION CMGetRefCon(hConn: ConnHandle): LONGINT;
|
|
|
|
PROCEDURE CMSetUserData(hConn: ConnHandle; userData: LONGINT);
|
|
FUNCTION CMGetUserData(hConn: ConnHandle): LONGINT;
|
|
|
|
|
|
{$ENDC} {UsingConnections}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
END.
|
|
{$ENDC}
|
|
|