<> <> <> <> DIRECTORY Rope, ThreeC4Support, RiscAssemblerTokenDef; RiscAssemblerTokenImpl: CEDAR PROGRAM IMPORTS Rope EXPORTS RiscAssemblerTokenDef= BEGIN OPEN Rope, ThreeC4Support, RiscAssemblerTokenDef; RiscAssemblerTokenLinkProc: PUBLIC PROC[prodLinkArray: SeeProdLinkArray, tknLinkArray: TokenLinkArray] = BEGIN tknLinkArray[tokenID] _ BuildidNode; END; <> BuildidNode: PUBLIC PROC[text: Rope.ROPE, firstCharPosition: INT] RETURNS[idNode] = {RETURN[NEW[idNodeBody_[text, firstCharPosition, Length[text]]]]}; END..