-- RiscAssemblerParserImpl.mesa
 -- Copyright Ó 1987 by Xerox Corporation.  All rights reserved.
 -- Generated by hederman.pa at July 15, 1987 4:53:12 pm PDT
 --  using ThreeCasabaFour [1.2] of June 1, 1987 6:00:00 pm PDT

DIRECTORY
	IO,
	OneCasabaParser,
	FS,
	ThreeC4Support,
	RiscAssemblerParserDef USING[],
	RiscAssemblerCGDef,
	RiscAssemblerTokenDef;

RiscAssemblerParserImpl: CEDAR PROGRAM IMPORTS IO, OneCasabaParser, FS, ThreeC4Support, RiscAssemblerCGDef, RiscAssemblerTokenDef EXPORTS RiscAssemblerParserDef= 
BEGIN
OPEN IO, OneCasabaParser, FS, ThreeC4Support, RiscAssemblerCGDef, RiscAssemblerTokenDef;
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, 12, debugFlags, debuggingTextTo]]
END;

SetUpLinks: PROC[prodLinkArray: SeeProdLinkArray, tknLinkArray: TokenLinkArray] =
BEGIN
RiscAssemblerTokenLinkProc[prodLinkArray, tknLinkArray];
RiscAssemblerCGLinkProc[prodLinkArray, tknLinkArray];
END;


-- obtain parser table

	BEGIN
	tableStream: IO.STREAM _ FS.StreamOpen["RiscAssemblerParser.kipperedParseTables"];
	ParseTable _ OneCasabaParser.BuildParserTableFromKipperedStream[tableStream];
	IO.Close[tableStream];
	END;

END..