supermario/base/SuperMarioProj.1994-02-09/Interfaces/PInterfaces/Dictionary.p
2019-06-29 23:17:50 +08:00

131 lines
3.3 KiB
OpenEdge ABL

{
File: Dictionary.p
Contains: xxx put contents here xxx
Written by: xxx put writers here xxx
Copyright: © 1992 by Apple Computer, Inc., all rights reserved.
Change History (most recent first):
<2> 10/22/92 KST Make the .p file consistent with .h file per technical writer's
request.
<1> 5/27/92 hsK first checked in
}
{$IFC UNDEFINED UsingIncludes}
{$SETC UsingIncludes := 0}
{$ENDC}
{$IFC NOT UsingIncludes}
UNIT Dictionary;
INTERFACE
{$ENDC}
{$IFC UNDEFINED UsingDictionary}
{$SETC UsingDictionary := 1}
{$I+}
{$SETC DictionaryIncludes := UsingIncludes}
{$SETC UsingIncludes := 1}
{$IFC UNDEFINED UsingTypes}
{$I $$Shell(PInterfaces)Types.p}
{$ENDC}
{$IFC UNDEFINED UsingFiles}
{$I $$Shell(PInterfaces)Files.p}
{$ENDC}
{$SETC UsingIncludes := DictionaryIncludes}
CONST
{ Dictionary data insertion modes }
kInsert = 0; {Only insert the input entry if there is nothing in the dictionary that matches the key.}
kReplace = 1; {Only replace the entries which match the key with the input entry.}
kInsertOrReplace = 2; {Insert the entry if there is nothing in the dictionary which matches the key.}
{If there is already matched entries, replace the existing matched entries with the input entry.}
{ Key attribute constants }
kIsCaseSensitive = $10; {case sensitive = 16}
kIsNotDiacriticalSensitive = $20; {diac not sensitive = 32}
{ Registered attribute type constants }
kNoun = -1;
kVerb = -2;
kAdjective = -3;
kAdverb = -4;
TYPE
InsertMode = INTEGER; {#2}
AttributeType = INTEGER; {#2}
{ Dictionary information record }
DictionaryInformation = RECORD
dictionaryFSSpec: FSSpec;
numberOfRecords: LONGINT;
currentGarbageSize: LONGINT;
script: ScriptCode;
maximumKeyLength: INTEGER;
keyAttributes: Byte;
END;
{ Dictionary Manager routines }
FUNCTION InitializeDictionary( theFsspecPtr: FSSpecPtr;
maximumKeyLength: INTEGER;
keyAttributes: Byte;
script: ScriptCode): OSErr;
INLINE $303C,$0500,$AA53;
FUNCTION OpenDictionary( theFsspecPtr: FSSpecPtr;
accessPermission: SignedByte;
VAR dictionaryReference: LONGINT): OSErr;
INLINE $303C,$0501,$AA53;
FUNCTION CloseDictionary( dictionaryReference: LONGINT): OSErr;
INLINE $303C,$0202,$AA53;
FUNCTION InsertRecordToDictionary( dictionaryReference: LONGINT;
key: Str255;
recordDataHandle: Handle;
whichMode: InsertMode): OSErr; {#2}
INLINE $303C,$0703,$AA53;
FUNCTION DeleteRecordFromDictionary( dictionaryReference: LONGINT;
key: Str255): OSErr;
INLINE $303C,$0404,$AA53;
FUNCTION FindRecordInDictionary( dictionaryReference: LONGINT;
key: Str255;
requestedAttributeTablePointer: Ptr;
recordDataHandle: Handle): OSErr;
INLINE $303C,$0805,$AA53;
FUNCTION FindRecordByIndexInDictionary( dictionaryReference: LONGINT;
recordIndex: LONGINT;
requestedAttributeTablePointer: Ptr;
VAR recordKey: Str255;
recordDataHandle: Handle): OSErr;
INLINE $303C,$0A06,$AA53;
FUNCTION GetDictionaryInformation( dictionaryReference: LONGINT;
VAR theDictionaryInformation: DictionaryInformation): OSErr;
INLINE $303C,$0407,$AA53;
FUNCTION CompactDictionary( dictionaryReference: LONGINT): OSErr;
INLINE $303C,$0208,$AA53;
{$ENDC} { UsingDictionary }
{$IFC NOT UsingIncludes}
END.
{$ENDC}