mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-12-13 11:29:15 +00:00
109 lines
2.0 KiB
OpenEdge ABL
109 lines
2.0 KiB
OpenEdge ABL
{
|
|
|
|
Created: Tuesday, March 21, 1989 at 9:39 AM
|
|
DDEV.p
|
|
Pascal Interface to the Macintosh Libraries
|
|
|
|
|
|
Copyright Apple Computer, Inc. 1989-90
|
|
All rights reserved
|
|
|
|
Change History (most recent first):
|
|
|
|
<2> 1/4/90 JSM Change some variable names in response to suggestions from
|
|
documentation.
|
|
<1> 12/19/89 JSM Adding to public includes for the first time.
|
|
|
|
}
|
|
|
|
{$IFC UNDEFINED UsingIncludes}
|
|
{$SETC UsingIncludes := 0}
|
|
{$ENDC}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
UNIT DDEV;
|
|
INTERFACE
|
|
{$ENDC}
|
|
|
|
{$IFC UNDEFINED UsingDDEV}
|
|
{$SETC UsingDDEV := 1}
|
|
|
|
{$I+}
|
|
{$SETC DDEVIncludes := UsingIncludes}
|
|
{$SETC UsingIncludes := 1}
|
|
{$IFC UNDEFINED UsingDatabaseAccess}
|
|
{$I $$Shell(PInterfaces)DatabaseAccess.p}
|
|
{$ENDC}
|
|
{$SETC UsingIncludes := DDEVIncludes}
|
|
|
|
CONST
|
|
|
|
{ messages for ddev }
|
|
kDBInit = 0;
|
|
kDBEnd = 1;
|
|
kDBGetConnInfo = 2;
|
|
kDBGetSessionNum = 3;
|
|
kDBSend = 4;
|
|
kDBSendItem = 5;
|
|
kDBExec = 6;
|
|
kDBState = 7;
|
|
kDBGetErr = 8;
|
|
kDBBreak = 9;
|
|
kDBGetItem = 10;
|
|
kDBUnGetItem = 11;
|
|
kDBKill = 12;
|
|
kDBOpen = 100;
|
|
kDBClose = 101;
|
|
kDBIdle = 102;
|
|
|
|
{ resource IDs of misc. resources }
|
|
kDDEVName = 128; { ID of 'STR ' resource with ddev name }
|
|
kDDEVID = 128; { ID of 'ddev' resource }
|
|
kDDEVFlags = 128; { ID of 'dflg' resource }
|
|
|
|
kAsyncSupported = $00000001; { bit for async support }
|
|
|
|
TYPE
|
|
|
|
{ structure of 'dflg' resource }
|
|
DDEVFlags = RECORD
|
|
version: LONGINT; { always 0 for this release }
|
|
flags: LONGINT; { flags }
|
|
END;
|
|
|
|
DDEVParams = RECORD
|
|
message: INTEGER;
|
|
ddevStorage: LONGINT;
|
|
asyncPB: DBAsyncParmBlkPtr;
|
|
sessID: LONGINT;
|
|
returnedID: LONGINT;
|
|
version: LONGINT;
|
|
start: LONGINT;
|
|
host: StringPtr;
|
|
user: StringPtr;
|
|
password: StringPtr;
|
|
connStr: StringPtr;
|
|
network: StringPtr;
|
|
buffer: Ptr;
|
|
err1: LONGINT;
|
|
err2: LONGINT;
|
|
item1: StringPtr;
|
|
item2: StringPtr;
|
|
errorMsg: StringPtr;
|
|
timeout: LONGINT;
|
|
dataType: DBType;
|
|
sessNum: INTEGER;
|
|
state: INTEGER;
|
|
len: INTEGER;
|
|
places: INTEGER;
|
|
flags: INTEGER;
|
|
abort: Boolean;
|
|
END;
|
|
|
|
{$ENDC} { UsingDDEV }
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
END.
|
|
{$ENDC}
|
|
|