RiscAssemblerTokenImpl.mesa
Copyright Ó 1987 by Xerox Corporation. All rights reserved.
Generated by hederman.pa at July 15, 1987 4:53:04 pm PDT
using ThreeCasabaFour [1.2] of June 1, 1987 6:00:00 pm PDT
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;
id
BuildidNode:
PUBLIC
PROC[text: Rope.
ROPE, firstCharPosition:
INT]
RETURNS[idNode] =
{RETURN[NEW[idNodeBody←[text, firstCharPosition, Length[text]]]]};
END..