///users/koo.pa/TypeHash.mesa
created by Koo, June 28, 1984 10:29:39 am PDT
DIRECTORY
TypeStrings USING[TypeString];
TypeHash: DEFINITIONS =
BEGIN OPEN TypeStrings;
TypeKey: TYPE = ARRAY [0 .. WordPerKey) OF CARDINAL;
WordPerKey: PUBLIC CARDINAL = 4;
nullKey: TypeKey = ALL[0];
TypeStrHash: PROCEDURE[ts: TypeString] RETURNS[key: TypeKey];
END.