DIRECTORY HashTables, Collections, PairCollections; HashPairCollectionsPrivate: CEDAR DEFINITIONS = { OPEN HT:HashTables, Collections, PairCollections; Ability: TYPE ~ {none, image, map}; Abilities: TYPE ~ ARRAY Direction OF Ability; HashRelation: TYPE ~ REF HashRelationPrivate; HashRelationPrivate: TYPE ~ MONITORED RECORD [ spaces: SpacePair, ability: Abilities, bestAbility: Ability, bestDir: Direction, tables: ARRAY Direction OF HT.HashTable, size: LNAT _ 0, freezeCount: NATURAL _ 0 ]; Classes: TYPE ~ ARRAY --leftToRight--Ability OF ARRAY --rightToLeft--Ability OF ARRAY Mutability OF PairCollClass; classes: READONLY REF Classes; FetchClass: PROC [ability: Abilities, mutability: Mutability] RETURNS [class: PairCollClass] ~ INLINE {RETURN [classes[ability[leftToRight]][ability[rightToLeft]][mutability]]}; }. fHashPairCollectionsPrivate.Mesa Last tweaked by Mike Spreitzer on July 10, 1987 4:33:11 pm PDT ΚM– "cedar" style˜code™K™>—K˜KšΟk œ*˜3K˜šΟnœœ œ˜1Kšœœ*˜1K˜Kšœ œ˜#Kšœ œœ œ ˜-K˜Kšœœœ˜-šœœ œœ˜.K˜Kšœ˜Kšœ˜K˜Kšœœ œœ ˜(Kšœœ˜Kšœ œ˜K˜—K˜Kšœ œœΟcœœœŸœœœ œ˜rKšœ œœ ˜K˜Kš ž œœ.œœœD˜±K˜K˜——…—<ο