/// <summary>
/// Parses the given VBA expression.
/// </summary>
/// <param name="expression">The expression to parse. NOTE: Call statements are not supported.</param>
/// <returns>The root of the parse tree.</returns>
public ParserRuleContext Parse(string expression)
{
var stream = new AntlrInputStream(expression);
var lexer = new VBALexer(stream);
var tokens = new CommonTokenStream(lexer);
var parser = new VBAParser(tokens);
parser.AddErrorListener(new ExceptionErrorListener());
ParserRuleContext tree = null;
try
{
parser.Interpreter.PredictionMode = PredictionMode.Sll;
tree = parser.expression();
}
catch (Exception ex)
{
Logger.Warn(ex, "SLL mode failed for {0}. Retrying using LL.", expression);
tokens.Reset();
parser.Reset();
parser.Interpreter.PredictionMode = PredictionMode.Ll;
tree = parser.expression();
}
return(tree);
}
public IParseTree Parse(string moduleName, CommonTokenStream moduleTokens, IParseTreeListener[] listeners, BaseErrorListener errorListener, out ITokenStream outStream)
{
moduleTokens.Reset();
var parser = new VBAParser(moduleTokens);
parser.AddErrorListener(errorListener);
ParserRuleContext tree;
try
{
parser.Interpreter.PredictionMode = PredictionMode.Sll;
tree = parser.startRule();
}
catch (Exception ex)
{
Logger.Warn(ex, "SLL mode failed in module {0}. Retrying using LL.", moduleName);
moduleTokens.Reset();
parser.Reset();
parser.Interpreter.PredictionMode = PredictionMode.Ll;
tree = parser.startRule();
}
foreach (var listener in listeners)
{
ParseTreeWalker.Default.Walk(listener, tree);
}
outStream = moduleTokens;
return(tree);
}
public IParseTree Parse(string moduleName, string moduleCode, IParseTreeListener[] listeners, out ITokenStream outStream)
{
var stream = new AntlrInputStream(moduleCode);
var lexer = new VBALexer(stream);
var tokens = new CommonTokenStream(lexer);
var parser = new VBAParser(tokens);
parser.AddErrorListener(new ExceptionErrorListener());
ParserRuleContext tree = null;
try
{
parser.Interpreter.PredictionMode = PredictionMode.Sll;
tree = parser.startRule();
}
catch (Exception ex)
{
Logger.Warn(ex, "SLL mode failed in module {0}. Retrying using LL.", moduleName);
tokens.Reset();
parser.Reset();
parser.Interpreter.PredictionMode = PredictionMode.Ll;
tree = parser.startRule();
}
foreach (var listener in listeners)
{
ParseTreeWalker.Default.Walk(listener, tree);
}
outStream = tokens;
return(tree);
}
public (IParseTree tree, ITokenStream tokenStream) Parse(string moduleName, CommonTokenStream moduleTokens, IParseTreeListener[] listeners, BaseErrorListener errorListener)
{
moduleTokens.Reset();
var parser = new VBAParser(moduleTokens);
parser.AddErrorListener(errorListener);
ParserRuleContext tree;
try
{
parser.Interpreter.PredictionMode = PredictionMode.Sll;
tree = parser.startRule();
}
catch (ParsePassSyntaxErrorException syntaxErrorException)
{
var parsePassText = syntaxErrorException.ParsePass == ParsePass.CodePanePass
? "code pane"
: "exported";
Logger.Warn($"SLL mode failed while parsing the {parsePassText} version of module {moduleName} at symbol {syntaxErrorException.OffendingSymbol.Text} at L{syntaxErrorException.LineNumber}C{syntaxErrorException.Position}. Retrying using LL.");
Logger.Debug(syntaxErrorException, "SLL mode exception");
moduleTokens.Reset();
parser.Reset();
parser.Interpreter.PredictionMode = PredictionMode.Ll;
tree = parser.startRule();
}
catch (Exception exception)
{
Logger.Warn($"SLL mode failed while parsing module {moduleName}. Retrying using LL.");
Logger.Debug(exception, "SLL mode exception");
moduleTokens.Reset();
parser.Reset();
parser.Interpreter.PredictionMode = PredictionMode.Ll;
tree = parser.startRule();
}
foreach (var listener in listeners)
{
ParseTreeWalker.Default.Walk(listener, tree);
}
return(tree, moduleTokens);
}
private static void LogAndReset(string logWarnMessage, Exception exception, VBAParser parser, CommonTokenStream tokenStream)
{
Logger.Warn(logWarnMessage);
var message = "Unknown exception";
if (parser.Interpreter.PredictionMode == PredictionMode.Sll)
{
message = "SLL mode exception";
}
else if (parser.Interpreter.PredictionMode == PredictionMode.Ll)
{
message = "LL mode exception";
}
Logger.Debug(exception, message);
tokenStream.Reset();
parser.Reset();
}
