mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-06-01 04:41:39 +00:00
131 lines
3.3 KiB
OpenEdge ABL
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}
|
|
|
|
|