--NutsDictDefs.mesa
-- Keep correspondence between sequential definition index and ObjectName
--January 8, 1982 8:43 AM by Pasco

DIRECTORY

IntStorageDefs: FROM "IntStorageDefs" USING [ObjectName];

NutsDictDefs: DEFINITIONS =

BEGIN

AllocateDict: PUBLIC PROCEDURE [entries: CARDINAL];

Record: PUBLIC PROCEDURE [number: CARDINAL, symbol: IntStorageDefs.ObjectName];

Lookup: PUBLIC PROCEDURE [symbol: IntStorageDefs.ObjectName] RETURNS [number: CARDINAL];

What: PUBLIC PROCEDURE [number: CARDINAL] RETURNS [symbol: IntStorageDefs.ObjectName];

FreeDict: PUBLIC PROCEDURE;

END.