-- NameSymbolTable.Mesa
-- written by Paxton.  June 1981
-- last written by Paxton. 14-Aug-81 11:12:01

NameSymbolTable: DEFINITIONS =
BEGIN

Name: TYPE [1];
nullName: Name = LOOPHOLE[0];

MakeName: PROC [text: REF READONLY TEXT] RETURNS [Name];

FromName: PROC [name: Name, text: REF TEXT];
	-- fills the text with the characters used to create the name
	-- generates TextOverflow if text too short

TextOverflow: ERROR;


-- ***** Initialization

Start: PROC; -- for initialization only

END.