-- TestParserEtc.mesa
-- August 24, 1983 4:48 pm

DIRECTORY ParseWindow,  ViewerTools;

TestParserEtc: PROGRAM IMPORTS ParseWindow, ViewerTools =
BEGIN

pw: ParseWindow.Handle ←
    ParseWindow.NewHandle
    [ViewerTools.MakeNewTextViewer[[file: "active.parser", name: "active"]]];
    
pw.grammerfilename ← "grammar.text";

ParseWindow.GenerateParser[pw];
    
END.