DIRECTORY TJaMBasic USING [NameID], Rope USING [ROPE]; NameSymbolTable: CEDAR DEFINITIONS = BEGIN Name: TYPE = TJaMBasic.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]; TextOverflow: ERROR; AtomFromName: PROC [name: Name] RETURNS [ATOM]; RopeFromName: PROC [name: Name] RETURNS [rope: Rope.ROPE]; Object: TYPE [4]; MakeObject: PROC [text: REF READONLY TEXT] RETURNS [Object]; NullObject: PROC RETURNS [Object]; END. ͺNameSymbolTable.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. written by Paxton. June 1981 last written by Paxton. September 22, 1982 2:37 pm Last Edited by: Maxwell, January 5, 1983 8:43 am Doug Wyatt, March 2, 1985 1:45:49 pm PST Plass, March 1, 1985 4:30:15 pm PST fills the text with the characters used to create the name generates TextOverflow if text too short no inverse available currently Κ ˜codešœ™Kšœ Οmœ1™