mirror of
https://github.com/elliotnunn/supermario.git
synced 2024-10-12 11:23:46 +00:00
258 lines
7.0 KiB
OpenEdge ABL
258 lines
7.0 KiB
OpenEdge ABL
{
|
|
|
|
Created: Monday, March 20, 1989 at 9:06 AM
|
|
DatabaseAccess.p
|
|
Pascal Interface to the Macintosh Libraries
|
|
|
|
Copyright Apple Computer, Inc. 1989-1991
|
|
All rights reserved
|
|
|
|
}
|
|
|
|
|
|
{$IFC UNDEFINED UsingIncludes}
|
|
{$SETC UsingIncludes := 0}
|
|
{$ENDC}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
UNIT DatabaseAccess;
|
|
INTERFACE
|
|
{$ENDC}
|
|
|
|
{$IFC UNDEFINED UsingDatabaseAccess}
|
|
{$SETC UsingDatabaseAccess := 1}
|
|
|
|
{$I+}
|
|
{$SETC DatabaseAccessIncludes := UsingIncludes}
|
|
{$SETC UsingIncludes := 1}
|
|
{$IFC UNDEFINED UsingResources}
|
|
{$I $$Shell(PInterfaces)Resources.p}
|
|
{$ENDC}
|
|
{$SETC UsingIncludes := DatabaseAccessIncludes}
|
|
|
|
|
|
CONST
|
|
|
|
{ error and status codes }
|
|
rcDBNull = -800;
|
|
rcDBValue = -801;
|
|
rcDBError = -802;
|
|
rcDBBadType = -803;
|
|
rcDBBreak = -804;
|
|
rcDBExec = -805;
|
|
rcDBBadSessID = -806;
|
|
rcDBBadSessNum = -807; { bad session number for DBGetConnInfo }
|
|
|
|
rcDBBadDDEV = -808; { bad ddev specified on DBInit }
|
|
|
|
rcDBAsyncNotSupp = -809; { ddev does not support async calls }
|
|
rcDBBadAsyncPB = -810; { tried to kill a bad pb }
|
|
|
|
rcDBNoHandler = -811; { no app handler for specified data type }
|
|
|
|
rcDBWrongVersion = -812; { incompatible versions }
|
|
rcDBPackNotInited = -813; { attempt to call other routine before InitDBPack }
|
|
|
|
{ messages for status functions for DBStartQuery }
|
|
kDBUpdateWind = 0;
|
|
kDBAboutToInit = 1;
|
|
kDBInitComplete = 2;
|
|
kDBSendComplete = 3;
|
|
kDBExecComplete = 4;
|
|
kDBStartQueryComplete = 5;
|
|
|
|
{ messages for status functions for DBGetQueryResults }
|
|
kDBGetItemComplete = 6;
|
|
kDBGetQueryResultsComplete = 7;
|
|
|
|
typeNone = 'none';
|
|
typeDate = 'date';
|
|
typeTime = 'time';
|
|
typeTimeStamp = 'tims';
|
|
typeDecimal = 'deci';
|
|
typeMoney = 'mone';
|
|
typeVChar = 'vcha';
|
|
typeVBin = 'vbin';
|
|
typeLChar = 'lcha';
|
|
typeLBin = 'lbin';
|
|
typeDiscard = 'disc';
|
|
|
|
{ "dummy" types for DBResultsToText }
|
|
typeUnknown = 'unkn';
|
|
typeColBreak = 'colb';
|
|
typeRowBreak = 'rowb';
|
|
|
|
{ pass this in to DBGetItem for any data type }
|
|
typeAnyType = 0;
|
|
|
|
{ infinite timeout value for DBGetItem }
|
|
kDBWaitForever = -1;
|
|
|
|
{ flags for DBGetItem }
|
|
kDBLastColFlag = $0001;
|
|
kDBNullFlag = $0004;
|
|
|
|
TYPE
|
|
|
|
DBType = OSType;
|
|
|
|
{ structure for asynchronous parameter block }
|
|
DBAsyncParamBlockRec = RECORD
|
|
completionProc: ProcPtr; { pointer to completion routine }
|
|
result: OSErr; { result of call }
|
|
userRef: LONGINT; { for application's use }
|
|
ddevRef: LONGINT; { for ddev's use }
|
|
reserved: LONGINT; { for internal use }
|
|
END;
|
|
|
|
DBAsyncParmBlkPtr = ^DBAsyncParamBlockRec;
|
|
|
|
{ structure for resource list in QueryRecord }
|
|
|
|
ResListElem = RECORD
|
|
theType: ResType;
|
|
id: INTEGER;
|
|
END;
|
|
|
|
ResListPtr = ^ResListArray;
|
|
ResListHandle = ^ResListPtr;
|
|
ResListArray = ARRAY [0..255] OF ResListElem;
|
|
|
|
{ structure for query list in QueryRecord }
|
|
|
|
QueryListPtr = ^QueryArray;
|
|
QueryListHandle = ^QueryListPtr;
|
|
QueryArray = ARRAY [0..255] OF Handle;
|
|
|
|
QueryPtr = ^QueryRecord;
|
|
QueryHandle = ^QueryPtr;
|
|
QueryRecord = RECORD
|
|
version: INTEGER; { version }
|
|
id: INTEGER; { id of 'qrsc' this came from }
|
|
queryProc: Handle; { handle to query def proc }
|
|
ddevName: Str63; { ddev name }
|
|
host: Str255; { host name }
|
|
user: Str255; { user name }
|
|
password: Str255; { password }
|
|
connStr: Str255; { connection string }
|
|
currQuery: INTEGER; { index of current query }
|
|
numQueries: INTEGER; { number of queries in list }
|
|
queryList: QueryListHandle; { handle to array of handles to text }
|
|
numRes: INTEGER; { number of resources in list }
|
|
resList: ResListHandle; { handle to array of resource list elements }
|
|
dataHandle: Handle; { for use by query def proc }
|
|
refCon: LONGINT; { for use by application }
|
|
END;
|
|
|
|
{ structure of column types array in ResultsRecord }
|
|
|
|
ColTypesPtr = ^ColTypesArray;
|
|
ColTypesHandle = ^ColTypesPtr;
|
|
ColTypesArray = ARRAY [0..255] OF DBType;
|
|
|
|
{ structure for column info in ResultsRecord }
|
|
|
|
DBColInfoRecord = RECORD
|
|
len: INTEGER;
|
|
places: INTEGER;
|
|
flags: INTEGER;
|
|
END;
|
|
|
|
ColInfoPtr = ^ColInfoArray;
|
|
ColInfoHandle = ^ColInfoPtr;
|
|
ColInfoArray = ARRAY [0..255] OF DBColInfoRecord;
|
|
|
|
ResultsRecord = RECORD
|
|
numRows: INTEGER; { number of rows in result }
|
|
numCols: INTEGER; { number of columns per row }
|
|
colTypes: ColTypesHandle; { data type array }
|
|
colData: Handle; { actual results }
|
|
colInfo: ColInfoHandle; { DBColInfoRecord array }
|
|
END;
|
|
|
|
FUNCTION InitDBPack : OSErr;
|
|
INLINE $3F3C,$0004,$303C,$0100,$A82F;
|
|
|
|
FUNCTION DBInit(VAR sessID : LONGINT; ddevName : Str63; host, user, passwd,
|
|
connStr : Str255; asyncPB : DBAsyncParmBlkPtr) : OSErr;
|
|
INLINE $303C,$0E02,$A82F;
|
|
|
|
FUNCTION DBEnd(sessID : LONGINT; asyncPB : DBAsyncParmBlkPtr) : OSErr;
|
|
INLINE $303C,$0403,$A82F;
|
|
|
|
FUNCTION DBGetConnInfo(sessID : LONGINT; sessNum : INTEGER;
|
|
VAR returnedID, version : LONGINT; VAR ddevName : Str63;
|
|
VAR host, user, network, connStr : Str255; VAR start : LONGINT;
|
|
VAR state : OSErr; asyncPB : DBAsyncParmBlkPtr) : OSErr;
|
|
INLINE $303C,$1704,$A82F;
|
|
|
|
FUNCTION DBGetSessionNum(sessID : LONGINT; VAR sessNum : INTEGER;
|
|
asyncPB : DBAsyncParmBlkPtr) : OSErr;
|
|
INLINE $303C,$0605,$A82F;
|
|
|
|
FUNCTION DBSend(sessID : LONGINT; text : Ptr; len : INTEGER;
|
|
asyncPB : DBAsyncParmBlkPtr) : OSErr;
|
|
INLINE $303C,$0706,$A82F;
|
|
|
|
FUNCTION DBSendItem(sessID : LONGINT; dataType : DBType;
|
|
len, places, flags : INTEGER; buffer : Ptr; asyncPB : DBAsyncParmBlkPtr) : OSErr;
|
|
INLINE $303C,$0B07,$A82F;
|
|
|
|
FUNCTION DBExec(sessID : LONGINT; asyncPB : DBAsyncParmBlkPtr) : OSErr;
|
|
INLINE $303C,$0408,$A82F;
|
|
|
|
FUNCTION DBState(sessID : LONGINT; asyncPB : DBAsyncParmBlkPtr) : OSErr;
|
|
INLINE $303C,$0409,$A82F;
|
|
|
|
FUNCTION DBGetErr(sessID : LONGINT; VAR err1, err2 : LONGINT; VAR item1, item2,
|
|
errorMsg : Str255; asyncPB : DBAsyncParmBlkPtr) : OSErr;
|
|
INLINE $303C,$0E0A,$A82F;
|
|
|
|
FUNCTION DBBreak(sessID : LONGINT; abort : BOOLEAN; asyncPB : DBAsyncParmBlkPtr) : OSErr;
|
|
INLINE $303C,$050B,$A82F;
|
|
|
|
FUNCTION DBGetItem(sessID, timeout : LONGINT; VAR dataType : DBType;
|
|
VAR len, places, flags : INTEGER; buffer : Ptr; asyncPB : DBAsyncParmBlkPtr) : OSErr;
|
|
INLINE $303C,$100C,$A82F;
|
|
|
|
FUNCTION DBUnGetItem(sessID : LONGINT; asyncPB : DBAsyncParmBlkPtr) : OSErr;
|
|
INLINE $303C,$040D,$A82F;
|
|
|
|
FUNCTION DBKill(asyncPB : DBAsyncParmBlkPtr) : OSErr;
|
|
INLINE $303C,$020E,$A82F;
|
|
|
|
FUNCTION DBGetNewQuery(queryID : INTEGER; VAR query : QueryHandle) : OSErr;
|
|
INLINE $303C,$030F,$A82F;
|
|
|
|
FUNCTION DBDisposeQuery(query : QueryHandle) : OSErr;
|
|
INLINE $303C,$0210,$A82F;
|
|
|
|
FUNCTION DBStartQuery(VAR sessID : LONGINT; query : QueryHandle;
|
|
statusProc : ProcPtr; asyncPB : DBAsyncParmBlkPtr) : OSErr;
|
|
INLINE $303C,$0811,$A82F;
|
|
|
|
FUNCTION DBGetQueryResults(sessID : LONGINT; VAR results : ResultsRecord;
|
|
timeout : LONGINT; statusProc : ProcPtr; asyncPB : DBAsyncParmBlkPtr) : OSErr;
|
|
INLINE $303C,$0A12,$A82F;
|
|
|
|
FUNCTION DBResultsToText(results : ResultsRecord; VAR theText : Handle) : OSErr;
|
|
INLINE $303C,$0413,$A82F;
|
|
|
|
FUNCTION DBInstallResultHandler(dataType : DBType; theHandler : ProcPtr;
|
|
isSysHandler : BOOLEAN) : OSErr;
|
|
INLINE $303C,$0514,$A82F;
|
|
|
|
FUNCTION DBRemoveResultHandler(dataType : DBType) : OSErr;
|
|
INLINE $303C,$0215,$A82F;
|
|
|
|
FUNCTION DBGetResultHandler(dataType : DBType; VAR theHandler : ProcPtr;
|
|
getSysHandler : BOOLEAN) : OSErr;
|
|
INLINE $303C,$0516,$A82F;
|
|
|
|
{$ENDC} { UsingDatabaseAccess }
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
END.
|
|
{$ENDC}
|
|
|