DIRECTORY IO, OneCasabaParser, SiroccoCGDef, FS, SiroccoParserDef USING[], ThreeC4Support; SiroccoParserImpl: CEDAR PROGRAM IMPORTS IO, OneCasabaParser, SiroccoCGDef, FS, ThreeC4Support EXPORTS SiroccoParserDef= BEGIN OPEN IO, OneCasabaParser, SiroccoCGDef, FS, ThreeC4Support; ParseTable: OneCasabaParser.ParserTable _ NIL; ParseOneStream: PUBLIC PROC[from: IO.STREAM, debugFlags: CARDINAL, debuggingTextTo: IO.STREAM] RETURNS[REF ANY] = BEGIN RETURN[ThreeC4Support.ParseOneStream[from, ParseTable, SetUpLinks, 84, debugFlags, debuggingTextTo]] END; SetUpLinks: PROC[prodLinkArray: SeeProdLinkArray, tknLinkArray: TokenLinkArray] = BEGIN SiroccoCGLinkProc[prodLinkArray, tknLinkArray]; END; BEGIN tableStream: IO.STREAM _ FS.StreamOpen["SiroccoParser.kipperedParseTables"]; ParseTable _ OneCasabaParser.BuildParserTableFromKipperedStream[tableStream]; IO.Close[tableStream]; END; END.. äSiroccoParserImpl.mesa Copyright Ó 1987 by Xerox Corporation. All rights reserved. Generated by BJackson.pa at August 26, 1987 3:38:11 pm PDT using ThreeCasabaFour [1.2] of June 1, 1987 6:00:00 pm PDT obtain parser table Êq˜šœ™Jšœ<™