<> <> <> <> <> <> <> 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.