DIRECTORY IO, SaffronGenericDef, OneCasabaParser, FS, ThreeC4Support, SaffronCG7Def, SaffronCG6Def, SaffronCG5Def, SaffronCG4Def, SaffronCG3Def, SaffronCG2Def, SaffronCG1Def, SaffronCentralDef USING[]; SaffronCentralImpl: CEDAR PROGRAM IMPORTS IO, SaffronGenericDef, OneCasabaParser, FS, ThreeC4Support, SaffronCG7Def, SaffronCG6Def, SaffronCG5Def, SaffronCG4Def, SaffronCG3Def, SaffronCG2Def, SaffronCG1Def EXPORTS SaffronCentralDef= BEGIN OPEN IO, SaffronGenericDef, OneCasabaParser, FS, ThreeC4Support, SaffronCG7Def, SaffronCG6Def, SaffronCG5Def, SaffronCG4Def, SaffronCG3Def, SaffronCG2Def, SaffronCG1Def; 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, 458, debugFlags, debuggingTextTo]] END; SetUpLinks: PROC[prodLinkArray: SeeProdLinkArray, tknLinkArray: TokenLinkArray] = BEGIN SaffronCG1LinkProc[prodLinkArray, tknLinkArray]; SaffronCG2LinkProc[prodLinkArray, tknLinkArray]; SaffronCG3LinkProc[prodLinkArray, tknLinkArray]; SaffronCG4LinkProc[prodLinkArray, tknLinkArray]; SaffronCG5LinkProc[prodLinkArray, tknLinkArray]; SaffronCG6LinkProc[prodLinkArray, tknLinkArray]; SaffronCG7LinkProc[prodLinkArray, tknLinkArray]; SaffronGenericLinkProc[prodLinkArray, tknLinkArray]; END; BEGIN tableStream: IO.STREAM _ FS.StreamOpen["SaffronCentral.kipperedParseTables"]; ParseTable _ OneCasabaParser.BuildParserTableFromKipperedStream[tableStream]; IO.Close[tableStream]; END; END.. èSaffronCentralImpl.mesa Copyright Ó 1987 by Xerox Corporation. All rights reserved. Generated by BJackson.pa at April 27, 1987 10:57:05 pm PDT using ThreeCasabaFour [1.1] of April 14, 1987 6:34:07 pm PDT obtain parser table ʘšœ™Jšœ<™