DIRECTORY JaMBasic, Rope; NameSymbolTable: CEDAR DEFINITIONS = BEGIN 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]; 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]; Start: PROC; -- for initialization only END. j-- NameSymbolTable.Mesa -- 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 -- ***** Names -- fills the text with the characters used to create the name -- generates TextOverflow if text too short -- ***** Objects -- no inverse available currently -- ***** Initialization Ę™˜JšĪc™Jš ™ Jš5™5JšĪk0™0Jšž ˜ J˜ J˜J˜Jšœžœ˜$Jšž˜J˜Jš™J˜Jšœžœ˜Jšœžœ ˜*J˜Jš Īnœžœžœžœžœžœ˜8J˜JšŸœžœ žœžœ˜8J˜šŸœžœžœžœ˜,Jš=™=Jš+™+J˜—Jšœžœ˜J˜JšŸ œžœžœžœ˜/J˜JšŸ œžœžœ žœ˜:J˜Jš™J˜Jšœžœ˜J˜š Ÿ œžœžœžœžœžœ ˜