MobHashOps.mesa
Copyright Ó 1989, 1991 by Xerox Corporation. All rights reserved.
Satterthwaite, December 22, 1982 11:28 am
Maxwell, August 4, 1983 11:04 am
Russ Atkinson (RRA) March 7, 1985 0:01:15 am PST
Andy Litman March 4, 1988 7:50:04 pm PST
JKF July 22, 1989 3:54:02 pm PDT
DIRECTORY
Alloc USING [Handle, Selector],
ConvertUnsafe USING [SubString],
MobHashTypes USING [HTIndex, HTNull];
MobHashOps: DEFINITIONS={
hash manipulation
HTIndex: TYPE~MobHashTypes.HTIndex;
HTNull: HTIndex~MobHashTypes.HTNull;
FindString, FindEquivalentString: PROC [ConvertUnsafe.SubString] RETURNS [HTIndex];
EnterString: PROC [ConvertUnsafe.SubString] RETURNS [HTIndex];
SubStringForHash: PROC [HTIndex] RETURNS[ConvertUnsafe.SubString];
administration
Initialize: PROC [ownTable: Alloc.Handle, htTable, ssTable: Alloc.Selector];
Finalize, Reset: PROC;
}.