/*
* Note on Option:
* - Option Base 1: Not supported in VB.Net, raise warning for manual handling.
* - Option Explicit: Already set as default in VB.Net, no need to copy.
* - Option Compare: Defaults to Binary in VB.Net. Only copy if it is set as Text.
* - Option Private Module: Similar to "Friend" scope, but apply to the entire standard module. Not for class module.
*/
public override object VisitOptionBaseStmt([NotNull] VisualBasic6Parser.OptionBaseStmtContext context)
{
if (context.INTEGERLITERAL() != null)
{
if (context.INTEGERLITERAL().GetText() != "0")
{
_rootModule.AddConversionMessage(new UnSupportedNonZeroOptionBase(context.Start.Line, context.Start.Column));
}
}
return(null);
}
public override object VisitOptionBaseStmt([NotNull] VisualBasic6Parser.OptionBaseStmtContext context)
{
return(base.VisitOptionBaseStmt(context));
}
public override void EnterOptionBaseStmt([NotNull] VisualBasic6Parser.OptionBaseStmtContext context)
{
}
