-- SaffronGenericDef.mesa
 -- Copyright Ó 1987 by Xerox Corporation.  All rights reserved.
 -- Generated by Rauen.pa at September 1, 1988 6:22:59 pm PDT
 --  using ThreeCasabaFour [1.2] of June 1, 1987 6:00:00 pm PDT

DIRECTORY
	Rope,
	ThreeC4Support;

SaffronGenericDef: CEDAR DEFINITIONS = 
BEGIN
OPEN Rope, ThreeC4Support;
SaffronGenericLinkProc: PROC[SeeProdLinkArray, TokenLinkArray];

--Decimalnum

DecimalnumNode: TYPE = REF DecimalnumNodeBody;
DecimalnumNodeBody: TYPE = RECORD[
	text: Rope.ROPE,
	position, length: INT];


--Octalnum

OctalnumNode: TYPE = REF OctalnumNodeBody;
OctalnumNodeBody: TYPE = RECORD[
	text: Rope.ROPE,
	position, length: INT];


--Hexnum

HexnumNode: TYPE = REF HexnumNodeBody;
HexnumNodeBody: TYPE = RECORD[
	text: Rope.ROPE,
	position, length: INT];


--Id

IdNode: TYPE = REF IdNodeBody;
IdNodeBody: TYPE = RECORD[
	text: Rope.ROPE,
	position, length: INT];


--String

StringNode: TYPE = REF StringNodeBody;
StringNodeBody: TYPE = RECORD[
	text: Rope.ROPE,
	position, length: INT];


--Flnum

FlnumNode: TYPE = REF FlnumNodeBody;
FlnumNodeBody: TYPE = RECORD[
	text: Rope.ROPE,
	position, length: INT];


--Char

CharNode: TYPE = REF CharNodeBody;
CharNodeBody: TYPE = RECORD[
	text: Rope.ROPE,
	position, length: INT];


--Atom

AtomNode: TYPE = REF AtomNodeBody;
AtomNodeBody: TYPE = RECORD[
	text: Rope.ROPE,
	position, length: INT];

END..