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; BuildnumberNode: PUBLIC PROC[text: Rope.ROPE, firstCharPosition: INT] RETURNS[numberNode] = {RETURN[NEW[numberNodeBody_[text, firstCharPosition, Length[text]]]]}; END.. Ú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 number Ê蘚œ™Jšœ<™