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
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;
obtain parser table
BEGIN
tableStream: IO.STREAM ← FS.StreamOpen["SiroccoParser.kipperedParseTables"];
ParseTable ← OneCasabaParser.BuildParserTableFromKipperedStream[tableStream];
IO.Close[tableStream];
END;
END..