mirror of
https://github.com/elliotnunn/boot3.git
synced 2024-06-09 02:29:27 +00:00
5b0f0cc134
Resource forks are included only for .rsrc files. These are DeRezzed into their data fork. 'ckid' resources, from the Projector VCS, are not included. The Tools directory, containing mostly junk, is also excluded.
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}
|
|
|
|
|