-- NameSymbolTableImpl.Mesa
-- written by Paxton.  June 1981
-- last written by Paxton. 14-Aug-81 11:17:48

DIRECTORY
NameSymbolTable,
JaMOtherDefs;

NameSymbolTableImpl: PROGRAM
	IMPORTS JaMOtherDefs
	EXPORTS NameSymbolTable =
BEGIN OPEN NameSymbolTable;

MakeName: PUBLIC PROC [text: REF READONLY TEXT] RETURNS [Name] = {
	RETURN [IF text=NIL OR text.length=0 THEN nullName
		ELSE LOOPHOLE[JaMOtherDefs.CreateName[LOOPHOLE[text]]]] };

TextOverflow: PUBLIC ERROR = CODE;

FromName: PUBLIC PROC [name: Name, text: REF TEXT] = {
	JaMOtherDefs.TextForName[LOOPHOLE[text], LOOPHOLE[name] !
		JaMOtherDefs.TextOverflow => ERROR TextOverflow] };

-- ***** Initialization

Start: PUBLIC PROC = {
	};

END.