--	NutsDictionary.mesa
-- Implements NutsDictDefs.mesa
--	January 12, 1982  5:01 PM by Pasco

DIRECTORY

NutsDictDefs: FROM "NutsDictDefs",
IntStorageDefs: FROM "IntStorageDefs" USING [ObjectName],
Storage: FROM "Storage" USING [Words, FreeWords];

NutsDictionary: PROGRAM IMPORTS Storage EXPORTS NutsDictDefs =

BEGIN

dictEntries: CARDINAL;
dictionary: POINTER TO ARRAY [0..0) OF IntStorageDefs.ObjectName;

AllocateDict: PUBLIC PROCEDURE [entries: CARDINAL] =
	BEGIN
	i: CARDINAL;
	dictEntries _ entries;
	dictionary _ Storage.Words[(entries+1)*SIZE[IntStorageDefs.ObjectName]];
	FOR i IN [0..dictEntries] DO dictionary^[i] _ 0; ENDLOOP;
	END;

Record: PUBLIC PROCEDURE [number: CARDINAL, symbol: IntStorageDefs.ObjectName] =
	BEGIN
	dictionary^[number] _ symbol;
	END;

Lookup: PUBLIC PROCEDURE [symbol: IntStorageDefs.ObjectName] RETURNS [number: CARDINAL] =
	BEGIN
	i: CARDINAL;
	FOR i IN [1..dictEntries] DO
		IF dictionary^[i] = symbol THEN RETURN[i];
		ENDLOOP;
	RETURN[0];	-- not found
	END;

What: PUBLIC PROCEDURE [number: CARDINAL] RETURNS [symbol: IntStorageDefs.ObjectName] =
	BEGIN
	symbol _ dictionary^[number];
	END;

FreeDict: PUBLIC PROCEDURE =
	BEGIN
	dictEntries _ 0;
	Storage.FreeWords[dictionary];
	dictionary _ NIL;
	END;

END.z20814(635)\f8 94b9B146b14B57b11B12b10B57b12B226b6B120b6B223b4B129b8B