ExampleGenericImpl.mesa
Copyright Ó 1987 by Xerox Corporation. All rights reserved.
Generated by BJackson.pa at April 22, 1987 2:16:53 am PDT
using ThreeCasabaFour [1.1] of April 14, 1987 6:34:07 pm PDT
DIRECTORY
Rope,
ThreeC4Support,
ExampleGenericDef;
ExampleGenericImpl: CEDAR PROGRAM IMPORTS Rope EXPORTS ExampleGenericDef=
BEGIN
OPEN Rope, ThreeC4Support, ExampleGenericDef;
ExampleGenericLinkProc: PUBLIC PROC[prodLinkArray: SeeProdLinkArray, tknLinkArray: TokenLinkArray] =
BEGIN
tknLinkArray[tokenDECIMAL] ← BuildnumberNode;
END;
number
BuildnumberNode:
PUBLIC
PROC[text: Rope.
ROPE, firstCharPosition:
INT]
RETURNS[numberNode] =
{RETURN[NEW[numberNodeBody←[text, firstCharPosition, Length[text]]]]};
END..