public ParserState(string input)
{
var inputStream = new AntlrInputStream(input);
lexer = new TheLexer(inputStream);
var commonTokenStream = new CommonTokenStream(lexer);
parser = new TheParser(commonTokenStream);
errorListener = new ErrorListener(commonTokenStream);
lexer.RemoveErrorListeners();
parser.RemoveErrorListeners();
parser.AddErrorListener(errorListener);
}
/// <summary>
/// Will convert the input to a Regular Expression String, but will not enclose it with reuired options. Used for testing purposes.
/// </summary>
/// <param name="input">A string in Impression format.</param>
public static string ConvertNoOptions(string input)
{
var inputStream = new AntlrInputStream(input);
var lexer = new TheLexer(inputStream);
var commonTokenStream = new CommonTokenStream(lexer);
var parser = new TheParser(commonTokenStream);
var errorListener = new ErrorListener(commonTokenStream);
lexer.RemoveErrorListeners();
parser.RemoveErrorListeners();
parser.AddErrorListener(errorListener);
var context = parser.expressionSeq();
var visitor = new Visitor(errorListener);
var result = visitor.Visit(context);
if (visitor.errorListener.hadErrors)
{
throw new InvalidOperationException(visitor.errorListener.PrintErrors());
}
return(result);
}
private static void Execute_Worker(bool doParse, bool doAST, bool doScope, bool autoContinue, bool chartOutput)
{
KGui.gui.GuiBeginningExecution();
lastExecution = null;
KGui.gui.GuiSaveInput();
KGui.gui.GuiOutputClear();
DateTime startTime = DateTime.Now;
if (TheParser.Parser().Parse(KGui.gui.GuiInputGetText(), out IReduction root))
{
if (doParse)
{
root.DrawReductionTree();
}
else
{
Netlist netlist = new Netlist(autoContinue);
try
{
Statements statements = Parser.ParseTop(root);
if (doAST)
{
KGui.gui.GuiOutputAppendText(statements.Format());
}
else
{
SampleValue vessel = Vessel(KControls.SelectNoiseSelectedItem != Noise.None);
Env initialEnv = new ValueEnv("vessel", Type.Sample, vessel, new BuiltinEnv(new NullEnv()));
Scope initialScope = initialEnv.ToScope();
Scope scope = statements.Scope(initialScope);
if (doScope)
{
KGui.gui.GuiOutputAppendText(scope.Format());
}
else
{
Style style = new Style(varchar: scopeVariants ? defaultVarchar : null, new SwapMap(),
map: remapVariants ? new AlphaMap() : null, numberFormat: "G4", dataFormat: "full", // we want it full for samples, but maybe only headers for functions/networks?
exportTarget: ExportTarget.Standard, traceFull: false, chartOutput: chartOutput);
KChartHandler.ChartClear("", "s", "M", style);
KChartHandler.LegendUpdate(style);
KScoreHandler.ScoreClear();
KControls.ParametersClear(style);
KDeviceHandler.Clear(style);
KDeviceHandler.Sample(vessel, style);
netlist.Emit(new SampleEntry(vessel));
DateTime evalTime = DateTime.Now;
lastExecution = new ExecutionInstance(vessel, netlist, style, startTime, evalTime);
lastExecution.environment = statements.EvalReject(initialEnv, netlist, style, 0);
if (lastExecution.environment == null)
{
throw new Error("Top level reject");
}
lastExecution.EndTime();
if (style.chartOutput)
{
foreach (ParameterEntry parameter in netlist.Parameters())
{
KControls.AddParameter(parameter.symbol.Format(style), (parameter.value as NumberValue).value, parameter.distribution, style);
}
KGui.gui.GuiParametersUpdate(); // calls back KControls.ParametersUpdate, but only on Win/Mac
}
KGui.gui.GuiProcessOutput();
}
}
}
catch (ExecutionEnded) { lastExecution.EndTime(); KGui.gui.GuiOutputAppendText(lastExecution.ElapsedTime()); }
catch (ConstantEvaluation ex) { string cat = "Does not have a value: "; netlist.Emit(new CommentEntry(cat + ": " + ex.Message)); KGui.gui.GuiInputSetErrorSelection(-1, -1, 0, cat, ex.Message); }
catch (Error ex) { netlist.Emit(new CommentEntry(ex.Message)); KGui.gui.GuiInputSetErrorSelection(-1, -1, 0, "Error", ex.Message); try { KGui.gui.GuiProcessOutput(); } catch { }; }
catch (StackOverflowException ex) { netlist.Emit(new CommentEntry(ex.Message)); KGui.gui.GuiInputSetErrorSelection(-1, -1, 0, "Stack Overflow", ex.Message); }
catch (Exception ex) { string cat = "Something happened"; netlist.Emit(new CommentEntry(cat + ": " + ex.Message)); KGui.gui.GuiInputSetErrorSelection(-1, -1, 0, cat, ex.Message); }
}
}
else
{
KGui.gui.GuiInputSetErrorSelection(TheParser.Parser().FailLineNumber(), TheParser.Parser().FailColumnNumber(), TheParser.Parser().FailLength(), TheParser.Parser().FailCategory(), TheParser.Parser().FailMessage());
}
EndingExecution();
}
