[Cyan]<PreISLCedar>TempTioga>NameSymbolTable.mesa!1

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

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.