public static void ParseProgramOrClass(TextSourceInfo textSourceInfo, ISearchableReadOnlyList<CodeElementsLine> codeElementsLines, TypeCobolOptions compilerOptions, SymbolTable customSymbols, out Program newProgram, out Class newClass, out IList<ParserDiagnostic> diagnostics)
        {
            // Create an Antlr compatible token source on top a the token iterator
            CodeElementsLinesTokenSource tokenSource = new CodeElementsLinesTokenSource(
                textSourceInfo.Name,
                codeElementsLines);

            // Init parser
            ITokenStream tokenStream = new TokensLinesTokenStream(tokenSource, Token.CHANNEL_SourceTokens);
            ProgramClassParser cobolParser = new ProgramClassParser(tokenStream);
            // -> activate full ambiguities detection
            //parser.Interpreter.PredictionMode = PredictionMode.LlExactAmbigDetection;

            // Register all parse errors in a list in memory
            DiagnosticSyntaxErrorListener errorListener = new DiagnosticSyntaxErrorListener();
            cobolParser.RemoveErrorListeners();
            cobolParser.AddErrorListener(errorListener);

            // Try to parse a Cobol program or class
            ProgramClassParser.CobolCompilationUnitContext codeElementParseTree = cobolParser.cobolCompilationUnit();

            // Visit the parse tree to build a first class object representing a Cobol program or class
            ParseTreeWalker walker = new ParseTreeWalker();
            CobolNodeBuilder programClassBuilder = new CobolNodeBuilder();
            programClassBuilder.CustomSymbols = customSymbols;
            programClassBuilder.Dispatcher = new NodeDispatcher();
            programClassBuilder.Dispatcher.CreateListeners();
            walker.Walk(programClassBuilder, codeElementParseTree);

            // Register compiler results
            newProgram = programClassBuilder.Program;
            newClass = programClassBuilder.Class;
            diagnostics = errorListener.Diagnostics;
        }

 public override void EnterWhenSearchConditionClause(ProgramClassParser.WhenSearchConditionClauseContext context)
 {
     var terminal = context.WhenSearchCondition();
     var condition = terminal != null? (WhenSearchCondition)terminal.Symbol : null;
     Enter(new WhenSearch(condition), context);
     if (context.NextSentenceStatement() != null) {
         Enter(new NextSentence((NextSentenceStatement)context.NextSentenceStatement().Symbol));
         Exit();
     }
 }

 public override void ExitXmlParseStatementConditional(ProgramClassParser.XmlParseStatementConditionalContext context)
 {
     AttachEndIfExists(context.XmlStatementEnd());
 }

 public override void ExitWhenSearchConditionClause(ProgramClassParser.WhenSearchConditionClauseContext context)
 {
     Exit(); // WHEN
 }

 public override void ExitUnstringStatementConditional(ProgramClassParser.UnstringStatementConditionalContext context)
 {
     AttachEndIfExists(context.UnstringStatementEnd());
 }

 public override void ExitStatement(ProgramClassParser.StatementContext context)
 {
     if (skipEmptyStatement) skipEmptyStatement = false;
     else Exit();
 }

 public override void ExitSearchStatementWithBody(ProgramClassParser.SearchStatementWithBodyContext context)
 {
     AttachEndIfExists(context.SearchStatementEnd());
 }

 public override void ExitParagraph(ProgramClassParser.ParagraphContext context)
 {
     if (Program.SyntaxTree.CurrentNode is Paragraph) Exit();
 }

 public override void ExitEvaluateStatementWithBody(ProgramClassParser.EvaluateStatementWithBodyContext context)
 {
     AttachEndIfExists(context.EvaluateStatementEnd());// exit EVALUATE
 }

 public override void ExitEnvironmentDivision(ProgramClassParser.EnvironmentDivisionContext context)
 {
     Exit();
 }

 public override void ExitDataDivision(ProgramClassParser.DataDivisionContext context)
 {
     Exit();
 }

 public override void ExitConfigurationSection(ProgramClassParser.ConfigurationSectionContext context)
 {
     Exit(); // exit ConfigurationSection node
 }

 public override void ExitCobolProgram(ProgramClassParser.CobolProgramContext context)
 {
     AttachEndIfExists(context.ProgramEnd());
     Exit();
     programsStack.Pop();
 }

 public override void EnterXmlGenerateStatementConditional(ProgramClassParser.XmlGenerateStatementConditionalContext context)
 {
     var terminal = context.XmlGenerateStatement();
     var statement = terminal != null? (XmlGenerateStatement)terminal.Symbol : null;
     Enter(new XmlGenerate(statement), context);
 }

 /// <summary>parent: DATA DIVISION</summary>
 /// <param name="context">WORKING-STORAGE SECTION</param>
 public override void EnterWorkingStorageSection(ProgramClassParser.WorkingStorageSectionContext context)
 {
     var terminal = context.WorkingStorageSectionHeader();
     var header = terminal != null? (WorkingStorageSectionHeader)terminal.Symbol : null;
     Enter(new WorkingStorageSection(header), context);
 }

 public override void ExitOnOverflow(ProgramClassParser.OnOverflowContext context)
 {
     Exit();
 }

 public override void ExitOnSizeError(ProgramClassParser.OnSizeErrorContext context)
 {
     Exit();
 }

 public override void ExitFileSection(ProgramClassParser.FileSectionContext context)
 {
     ExitLastLevel1Definition();
     Exit();
 }

 public override void ExitProcedureDivision(ProgramClassParser.ProcedureDivisionContext context)
 {
     Exit();
 }

 public override void ExitFunctionDeclaration(ProgramClassParser.FunctionDeclarationContext context)
 {
     var terminal = context.FunctionDeclarationEnd();
     var end = terminal != null? terminal.Symbol is FunctionDeclarationEnd? (FunctionDeclarationEnd)terminal.Symbol : null : null;
     Enter(new FunctionEnd(end), context);
     Exit();
     Exit();// exit DECLARE FUNCTION
 }