TypeHash.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Koo, June 28, 1984 10:29:39 am PDT
Russ Atkinson (RRA) February 1, 1985 1:52:55 pm PST
Beach, February 22, 1985 2:56:36 pm PST
Doug Wyatt, February 24, 1985 8:46:30 pm PST
DIRECTORY
TypeStrings USING [TypeString];
TypeHash: DEFINITIONS
= BEGIN
TypeKey: TYPE = ARRAY [0 .. WordPerKey) OF CARDINAL;
WordPerKey: PUBLIC CARDINAL = 4;
nullKey: TypeKey = ALL[0];
TypeStrHash: PROC[ts: TypeStrings.TypeString] RETURNS[key: TypeKey];
END.