DIRECTORY
Rope,
ThreeC4Support,
WartDef;

WartImpl: CEDAR PROGRAM IMPORTS Rope EXPORTS WartDef= 
BEGIN
OPEN Rope, ThreeC4Support, WartDef;
WartLinkProc: PUBLIC PROC[prodLinkArray: SeeProdLinkArray, tknLinkArray: TokenLinkArray] =
BEGIN
tknLinkArray[tokenID] _ BuildidentifierNode;
tknLinkArray[tokenDECIMAL] _ BuildnumberDNode;
tknLinkArray[tokenOCTAL] _ BuildnumberONode;
tknLinkArray[tokenHEX] _ BuildnumberHNode;
tknLinkArray[tokenROPE] _ BuildRopeNode;
END;


<<identifier>>

BuildidentifierNode: PUBLIC PROC[text: Rope.ROPE, firstCharPosition: INT] RETURNS[identifierNode] =
{RETURN[NEW[identifierNodeBody_[text, firstCharPosition, Length[text]]]]};


<<numberD>>

BuildnumberDNode: PUBLIC PROC[text: Rope.ROPE, firstCharPosition: INT] RETURNS[numberDNode] =
{RETURN[NEW[numberDNodeBody_[text, firstCharPosition, Length[text]]]]};


<<numberO>>

BuildnumberONode: PUBLIC PROC[text: Rope.ROPE, firstCharPosition: INT] RETURNS[numberONode] =
{RETURN[NEW[numberONodeBody_[text, firstCharPosition, Length[text]]]]};


<<numberH>>

BuildnumberHNode: PUBLIC PROC[text: Rope.ROPE, firstCharPosition: INT] RETURNS[numberHNode] =
{RETURN[NEW[numberHNodeBody_[text, firstCharPosition, Length[text]]]]};


<<Rope>>

BuildRopeNode: PUBLIC PROC[text: Rope.ROPE, firstCharPosition: INT] RETURNS[RopeNode] =
{RETURN[NEW[RopeNodeBody_[text, firstCharPosition, Length[text]]]]};

END..