DIRECTORY
Rope,
ThreeC4Support;

WartDef: CEDAR DEFINITIONS = 
BEGIN
OPEN Rope, ThreeC4Support;
WartLinkProc: PROC[SeeProdLinkArray, TokenLinkArray];
Generic: TYPE = {array, boolean, bulkDataSink, bulkDataSource, cardinal, choice, enumeration, error, integer, longCardinal, 
longInteger, procedure, record, sequence, string, unspecified};

<<identifier>>

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


<<numberD>>

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


<<numberO>>

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


<<numberH>>

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


<<Rope>>

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

END..