NameSymbolTable.mesa
Copyright © 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
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];
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];
Object: TYPE [4];
MakeObject:
PROC [text:
REF
READONLY
TEXT]
RETURNS [Object];
no inverse available currently
NullObject: PROC RETURNS [Object];
END.