<> <> <> <> DIRECTORY Alloc USING [Handle, Selector], ConvertUnsafe USING [SubString], HashTypes USING [HTIndex, htNull]; HashOps: DEFINITIONS={ <> HTIndex: TYPE~HashTypes.HTIndex; htNull: HTIndex~HashTypes.htNull; FindString, FindEquivalentString: PROC [ConvertUnsafe.SubString] RETURNS [HTIndex]; EnterString: PROC [ConvertUnsafe.SubString] RETURNS [HTIndex]; SubStringForHash: PROC [HTIndex] RETURNS[ConvertUnsafe.SubString]; <> Initialize: PROC [ownTable: Alloc.Handle, htTable, ssTable: Alloc.Selector]; Finalize, Reset: PROC; }.