<<-- NameSymbolTable.Mesa>> <<-- written by Paxton. June 1981>> <<-- last written by Paxton. September 22, 1982 2:37 pm>> <> DIRECTORY JaMBasic, Rope; NameSymbolTable: CEDAR DEFINITIONS = BEGIN <<-- ***** Names>> Name: TYPE = JaMBasic.NameID; nullName: Name = [local: FALSE, index: 0]; MakeName: PROC [text: REF READONLY TEXT] RETURNS [Name]; MakeNameFromRope: PROC [rope: Rope.ROPE] 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; AtomFromName: PROC [name: Name] RETURNS [ATOM]; RopeFromName: PROC [name: Name] RETURNS [rope: Rope.ROPE]; <<-- ***** Objects>> Object: TYPE [4]; MakeObject: PROC [text: REF READONLY TEXT] RETURNS [Object]; <<-- no inverse available currently>> NullObject: PROC RETURNS [Object]; <<-- ***** Initialization>> Start: PROC; -- for initialization only END.