/projects/netbeans-7.3/cnd.modelimpl/src/org/netbeans/modules/cnd/modelimpl/parser/FortranParserEx.java

/*
 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS HEADER.
 *
 * Copyright 1997-2010 Oracle and/or its affiliates. All rights reserved.
 *
 * Oracle and Java are registered trademarks of Oracle and/or its affiliates.
 * Other names may be trademarks of their respective owners.
 *
 * The contents of this file are subject to the terms of either the GNU
 * General Public License Version 2 only ("GPL") or the Common
 * Development and Distribution License("CDDL") (collectively, the
 * "License"). You may not use this file except in compliance with the
 * License. You can obtain a copy of the License at
 * http://www.netbeans.org/cddl-gplv2.html
 * or nbbuild/licenses/CDDL-GPL-2-CP. See the License for the
 * specific language governing permissions and limitations under the
 * License.  When distributing the software, include this License Header
 * Notice in each file and include the License file at
 * nbbuild/licenses/CDDL-GPL-2-CP.  Oracle designates this
 * particular file as subject to the "Classpath" exception as provided
 * by Oracle in the GPL Version 2 section of the License file that
 * accompanied this code. If applicable, add the following below the
 * License Header, with the fields enclosed by brackets [] replaced by
 * your own identifying information:
 * "Portions Copyrighted [year] [name of copyright owner]"
 *
 * Contributor(s):
 *
 * The Original Software is NetBeans. The Initial Developer of the Original
 * Software is Sun Microsystems, Inc. Portions Copyright 1997-2007 Sun
 * Microsystems, Inc. All Rights Reserved.
 *
 * If you wish your version of this file to be governed by only the CDDL
 * or only the GPL Version 2, indicate your decision by adding
 * "[Contributor] elects to include this software in this distribution
 * under the [CDDL or GPL Version 2] license." If you do not indicate a
 * single choice of license, a recipient has the option to distribute
 * your version of this file under either the CDDL, the GPL Version 2 or
 * to extend the choice of license to its licensees as provided above.
 * However, if you add GPL Version 2 code and therefore, elected the GPL
 * Version 2 license, then the option applies only if the new code is
 * made subject to such option by the copyright holder.
 */

package org.netbeans.modules.cnd.modelimpl.parser;

import java.util.ArrayList;
import java.util.HashMap;
import java.util.List;
import java.util.Map;
import java.util.Stack;
import org.antlr.runtime.CharStream;
import org.antlr.runtime.RecognitionException;
import org.antlr.runtime.Token;
import org.antlr.runtime.TokenSource;
import org.netbeans.modules.cnd.antlr.TokenBuffer;
import org.netbeans.modules.cnd.antlr.TokenStream;
import org.netbeans.modules.cnd.antlr.TokenStreamException;
import org.netbeans.modules.cnd.apt.support.APTToken;
import org.netbeans.modules.cnd.apt.support.APTTokenTypes;
import org.netbeans.modules.cnd.apt.utils.APTUtils;
import org.netbeans.modules.cnd.modelimpl.parser.generated.FortranParser;
import org.netbeans.modules.cnd.modelimpl.parser.generated.FortranParser.program_return;
import org.openide.util.Exceptions;

/**
 *
 * @author nk220367
 */
public class FortranParserEx {
    
    public static final int UNKNOWN_SOURCE_FORM = -1;
    public static final int FREE_FORM = 1;
    public static final int FIXED_FORM = 2;

    public List<Object> parsedObjects = new ArrayList<Object>();

    private FortranParser parser;

    private final int form;
    
    public program_return program() throws RecognitionException {
        return parser.program();
    }

    int getNumberOfSyntaxErrors() {
        return parser.getNumberOfSyntaxErrors();
    }
    
    public class ProgramData {
        public String name;
        public int startOffset;
        public int endOffset;
        
        public List<Object> members = null;
    }

    public class SubroutineData {
        public String name;
        public int startOffset;
        public int endOffset;

        public List<String> args = null;
    }

    public class ModuleData {
        public String name;
        public int startOffset;
        public int endOffset;

        public List<Object> members = null;
    }

    public static class MyTokenSource implements TokenSource {

        TokenStream ts;

        public MyTokenSource(TokenStream ts) {
            this.ts = ts;
        }

        @Override
        public Token nextToken() {
            org.netbeans.modules.cnd.antlr.Token nextToken = null;
            try {
                nextToken = ts.nextToken();
            } catch (TokenStreamException ex) {
                Exceptions.printStackTrace(ex);
            }
            return (nextToken != null) ? new MyToken(nextToken) : null;
        }

        @Override
        public String getSourceName() {
            return "my token source"; // NOI18N
        }

    }

    public FortranParserEx(TokenStream ts, int form) {
        this.form = form;
        MyTokenSource myts = new MyTokenSource(ts);
        FortranTokenStream tokens = new FortranTokenStream(myts);
        tokens.fill();
        tokens.toString();
        parser = new FortranParser(tokens);
        try {
            FortranLexicalPrepass prepass = new FortranLexicalPrepass(tokens);
            prepass.setSourceForm(form);
            prepass.performPrepass();
            tokens.finalizeTokenStream();
            
//            int i = 0;
//            Token token = tokens.get(i);
//            while (token.getType() != -1) {
//                System.out.println(token.getType() + " " + token.getText() + " " + token.getLine() + " " + (token.getCharPositionInLine()));
//                i++;
//                token = tokens.get(i);
//            }
//            System.out.println(token.getType() + " " + token.getText() + " " + token.getLine() + " " + (token.getCharPositionInLine()));
            
        } catch (Throwable t) {
            System.out.println(t);
            t.printStackTrace(System.out);
        }
        
        parser.inputStreams = new Stack<String>();

        parser.action = new IFortranParserAction() {

            // Proogram

            ProgramData programData = null;

            @Override
            public void program_stmt(Token label, Token programKeyword, Token id, Token eos) {
                if (id != null && programKeyword instanceof MyToken && ((MyToken) programKeyword).t instanceof APTToken) {
                    programData = new ProgramData();
                    programData.name = id.getText();
                    programData.startOffset = ((APTToken) ((MyToken) programKeyword).t).getOffset();
                    
                    programData.members = new ArrayList<Object>();
                    // System.out.println("program " + id);
                }
            }

            @Override
            public void end_program_stmt(Token label, Token endKeyword, Token programKeyword, Token id, Token eos) {

                if(programData != null) {
                    if(endKeyword instanceof APTToken) {
                        programData.endOffset = ((APTToken)endKeyword).getEndOffset();
                    } else if(endKeyword instanceof MyToken && ((MyToken) endKeyword).t instanceof APTToken) {
                        programData.endOffset = ((APTToken)((MyToken)endKeyword).t).getEndOffset();
                    }
                    parsedObjects.add(programData);
                }
                programData = null;

                if(subroutineData != null && subroutineData.name != null) {
                    if(endKeyword instanceof APTToken) {
                        subroutineData.endOffset = ((APTToken)endKeyword).getEndOffset();
                    } else if(endKeyword instanceof MyToken && ((MyToken) endKeyword).t instanceof APTToken) {
                        subroutineData.endOffset = ((APTToken)((MyToken)endKeyword).t).getEndOffset();
                    }
                    if(moduleData != null && moduleData.members != null) {
                        moduleData.members.add(subroutineData);
                    } else if(programData != null && programData.members != null) {
                        programData.members.add(subroutineData);
                    } else {
                        parsedObjects.add(subroutineData);
                    }
                }
                subroutineData = null;

                if(functionData != null && functionData.name != null) {
                    if(endKeyword instanceof APTToken) {
                        functionData.endOffset = ((APTToken)endKeyword).getEndOffset();
                    } else if(endKeyword instanceof MyToken && ((MyToken) endKeyword).t instanceof APTToken) {
                        functionData.endOffset = ((APTToken)((MyToken)endKeyword).t).getEndOffset();
                    }
                    if(moduleData != null && moduleData.members != null) {
                        moduleData.members.add(functionData);
                    } else if(programData != null && programData.members != null) {
                        programData.members.add(functionData);
                    } else {
                        parsedObjects.add(functionData);
                    }
                }
                functionData = null;

                if(moduleData != null && moduleData.name != null) {
                    if(endKeyword instanceof APTToken) {
                        moduleData.endOffset = ((APTToken)endKeyword).getEndOffset();
                    } else if(endKeyword instanceof MyToken && ((MyToken) endKeyword).t instanceof APTToken) {
                        moduleData.endOffset = ((APTToken)((MyToken)endKeyword).t).getEndOffset();
                    }
                    parsedObjects.add(moduleData);
                }
                moduleData = null;
            }

            // Subroutine

            SubroutineData subroutineData = null;

            @Override
            public void subroutine_stmt__begin() {
                subroutineData = new SubroutineData();
            }

            @Override
            public void subroutine_stmt(Token label, Token keyword, Token name, Token eos, boolean hasPrefix, boolean hasDummyArgList, boolean hasBindingSpec, boolean hasArgSpecifier) {
                if (subroutineData != null && name != null && name.getText() != null && keyword instanceof MyToken && ((MyToken) keyword).t instanceof APTToken) {
                    subroutineData.name = name.getText();
                    subroutineData.startOffset = ((APTToken) ((MyToken) keyword).t).getOffset();
                }
            }

            @Override
            public void end_subroutine_stmt(Token label, Token keyword1, Token keyword2, Token name, Token eos) {
                if(subroutineData != null && subroutineData.name != null) {
                    if (keyword2 instanceof MyToken && ((MyToken) keyword2).t instanceof APTToken) {
                        subroutineData.endOffset = ((APTToken) ((MyToken) keyword2).t).getEndOffset();
                    } else if(keyword1 instanceof MyToken && ((MyToken) keyword1).t instanceof APTToken) {
                        subroutineData.endOffset = ((APTToken)((MyToken)keyword1).t).getEndOffset();
                    }
                    if(moduleData != null && moduleData.members != null) {
                        moduleData.members.add(subroutineData);
                    } else if(programData != null && programData.members != null) {
                        programData.members.add(subroutineData);
                    } else {
                        parsedObjects.add(subroutineData);
                    }
                }
                subroutineData = null;
            }

            // Function

            SubroutineData functionData = null;

            @Override
            public void function_stmt__begin() {
                functionData = new SubroutineData();
            }

            @Override
            public void function_stmt(Token label, Token keyword, Token name, Token eos, boolean hasGenericNameList, boolean hasSuffix) {
                if (functionData != null && name != null && name.getText() != null && keyword instanceof MyToken && ((MyToken) keyword).t instanceof APTToken) {
                    functionData.name = name.getText();
                    functionData.startOffset = ((APTToken) ((MyToken) keyword).t).getOffset();
                }
            }

            @Override
            public void end_function_stmt(Token label, Token keyword1, Token keyword2, Token name, Token eos) {
                if(functionData != null && functionData.name != null) {
                    if (keyword2 instanceof MyToken && ((MyToken) keyword2).t instanceof APTToken) {
                        functionData.endOffset = ((APTToken) ((MyToken) keyword2).t).getEndOffset();
                    } else if(keyword1 instanceof MyToken && ((MyToken) keyword1).t instanceof APTToken) {
                        functionData.endOffset = ((APTToken)((MyToken)keyword1).t).getEndOffset();
                    }
                    if(moduleData != null && moduleData.members != null) {
                        moduleData.members.add(functionData);
                    } else if(programData != null && programData.members != null) {
                        programData.members.add(functionData);
                    } else {
                        parsedObjects.add(functionData);
                    }
                }
                functionData = null;
            }

            // Subroutine arguments

            @Override
            public void dummy_arg(Token dummy) {
                if(dummy!= null && subroutineData != null && subroutineData.args != null) {
                    subroutineData.args.add(dummy.getText());
                }
                if(dummy!= null && functionData != null && functionData.args != null) {
                    functionData.args.add(dummy.getText());
                }
            }

            @Override
            public void dummy_arg_list__begin() {
                if(subroutineData != null) {
                    if(subroutineData.args == null) {
                        subroutineData.args = new ArrayList<String>();
                    }
                }
                if(functionData != null) {
                    if(functionData.args == null) {
                        functionData.args = new ArrayList<String>();
                    }
                }
            }

            @Override
            public void dummy_arg_list(int count) {
            }

            // Function arguments

            @Override
            public void generic_name_list_part(Token ident) {
                if(ident!= null && subroutineData != null && subroutineData.args != null) {
                    subroutineData.args.add(ident.getText());
                }
                if(ident!= null && functionData != null && functionData.args != null) {
                    functionData.args.add(ident.getText());
                }
            }

            @Override
            public void generic_name_list__begin() {
                if(subroutineData != null) {
                    if(subroutineData.args == null) {
                        subroutineData.args = new ArrayList<String>();
                    }
                }
                if(functionData != null) {
                    if(functionData.args == null) {
                        functionData.args = new ArrayList<String>();
                    }
                }
            }

            @Override
            public void generic_name_list(int count) {
            }

            // Module

            ModuleData moduleData = null;

            @Override
            public void module() {

            }

            @Override
            public void module_stmt__begin() {
                moduleData = new ModuleData();
            }

            @Override
            public void module_stmt(Token label, Token moduleKeyword, Token id, Token eos) {
                if (moduleData != null && id != null && moduleKeyword instanceof MyToken && ((MyToken) moduleKeyword).t instanceof APTToken) {
                    moduleData.name = id.getText();
                    moduleData.startOffset = ((APTToken) ((MyToken) moduleKeyword).t).getOffset();
                    moduleData.members = new ArrayList<Object>();
                }
            }

            @Override
            public void end_module_stmt(Token label, Token endKeyword, Token moduleKeyword, Token id, Token eos) {

                if(subroutineData != null && subroutineData.name != null) {
                    if(endKeyword instanceof APTToken) {
                        subroutineData.endOffset = ((APTToken)endKeyword).getEndOffset();
                    } else if(endKeyword instanceof MyToken && ((MyToken) endKeyword).t instanceof APTToken) {
                        subroutineData.endOffset = ((APTToken)((MyToken)endKeyword).t).getEndOffset();
                    }
                    if(moduleData != null && moduleData.members != null) {
                        moduleData.members.add(subroutineData);
                    } else if(programData != null && programData.members != null) {
                        programData.members.add(subroutineData);
                    } else {
                        parsedObjects.add(subroutineData);
                    }
                }
                subroutineData = null;

                if(functionData != null && functionData.name != null) {
                    if(endKeyword instanceof APTToken) {
                        functionData.endOffset = ((APTToken)endKeyword).getEndOffset();
                    } else if(endKeyword instanceof MyToken && ((MyToken) endKeyword).t instanceof APTToken) {
                        functionData.endOffset = ((APTToken)((MyToken)endKeyword).t).getEndOffset();
                    }
                    if(moduleData != null && moduleData.members != null) {
                        moduleData.members.add(functionData);
                    } else if(programData != null && programData.members != null) {
                        programData.members.add(functionData);
                    } else {
                        parsedObjects.add(functionData);
                    }
                }
                functionData = null;

                if(moduleData != null && moduleData.name != null) {
                    if(endKeyword instanceof APTToken) {
                        moduleData.endOffset = ((APTToken)endKeyword).getEndOffset();
                    } else if(endKeyword instanceof MyToken && ((MyToken) endKeyword).t instanceof APTToken) {
                        moduleData.endOffset = ((APTToken)((MyToken)endKeyword).t).getEndOffset();
                    }
                    parsedObjects.add(moduleData);
                }
                moduleData = null;
            }

            @Override
            public void module_subprogram_part() {

            }

            @Override
            public void module_subprogram(boolean hasPrefix) {

            }




            @Override
            public void specification_part(int numUseStmts, int numImportStmts, int numDeclConstructs) {

            }

            @Override
            public void declaration_construct() {

            }

            @Override
            public void execution_part() {

            }

            @Override
            public void execution_part_construct() {

            }

            @Override
            public void internal_subprogram_part(int count) {

            }

            @Override
            public void internal_subprogram() {

            }

            @Override
            public void specification_stmt() {

            }

            @Override
            public void executable_construct() {

            }

            @Override
            public void action_stmt() {

            }

            @Override
            public void keyword() {

            }

            @Override
            public void name(Token id) {

            }

            @Override
            public void constant(Token id) {

            }

            @Override
            public void scalar_constant() {

            }

            @Override
            public void literal_constant() {

            }

            @Override
            public void int_constant(Token id) {

            }

            @Override
            public void char_constant(Token id) {

            }

            @Override
            public void intrinsic_operator() {

            }

            @Override
            public void defined_operator(Token definedOp, boolean isExtended) {

            }

            @Override
            public void extended_intrinsic_op() {

            }

            @Override
            public void label(Token lbl) {

            }

            @Override
            public void label_list__begin() {

            }

            @Override
            public void label_list(int count) {

            }

            @Override
            public void type_spec() {

            }

            @Override
            public void type_param_value(boolean hasExpr, boolean hasAsterisk, boolean hasColon) {

            }

            @Override
            public void intrinsic_type_spec(Token keyword1, Token keyword2, int type, boolean hasKindSelector) {

            }

            @Override
            public void kind_selector(Token token1, Token token2, boolean hasExpression) {

            }

            @Override
            public void signed_int_literal_constant(Token sign) {

            }

            @Override
            public void int_literal_constant(Token digitString, Token kindParam) {

            }

            @Override
            public void kind_param(Token kind) {

            }

            @Override
            public void boz_literal_constant(Token constant) {

            }

            @Override
            public void signed_real_literal_constant(Token sign) {

            }

            @Override
            public void real_literal_constant(Token realConstant, Token kindParam) {

            }

            @Override
            public void complex_literal_constant() {

            }

            @Override
            public void real_part(boolean hasIntConstant, boolean hasRealConstant, Token id) {

            }

            @Override
            public void imag_part(boolean hasIntConstant, boolean hasRealConstant, Token id) {

            }

            @Override
            public void char_selector(Token tk1, Token tk2, int kindOrLen1, int kindOrLen2, boolean hasAsterisk) {

            }

            @Override
            public void length_selector(Token len, int kindOrLen, boolean hasAsterisk) {

            }

            @Override
            public void char_length(boolean hasTypeParamValue) {

            }

            @Override
            public void scalar_int_literal_constant() {

            }

            @Override
            public void char_literal_constant(Token digitString, Token id, Token str) {

            }

            @Override
            public void logical_literal_constant(Token logicalValue, boolean isTrue, Token kindParam) {

            }

            @Override
            public void derived_type_def() {

            }

            @Override
            public void type_param_or_comp_def_stmt(Token eos, int type) {

            }

            @Override
            public void type_param_or_comp_def_stmt_list() {

            }

            @Override
            public void derived_type_stmt(Token label, Token keyword, Token id, Token eos, boolean hasTypeAttrSpecList, boolean hasGenericNameList) {

            }

            @Override
            public void type_attr_spec(Token keyword, Token id, int specType) {

            }

            @Override
            public void type_attr_spec_list__begin() {

            }

            @Override
            public void type_attr_spec_list(int count) {

            }

            @Override
            public void private_or_sequence() {

            }

            @Override
            public void end_type_stmt(Token label, Token endKeyword, Token typeKeyword, Token id, Token eos) {

            }

            @Override
            public void sequence_stmt(Token label, Token sequenceKeyword, Token eos) {

            }

            @Override
            public void type_param_decl(Token id, boolean hasInit) {

            }

            @Override
            public void type_param_decl_list__begin() {

            }

            @Override
            public void type_param_decl_list(int count) {

            }

            @Override
            public void type_param_attr_spec(Token kindOrLen) {

            }

            @Override
            public void component_def_stmt(int type) {

            }

            @Override
            public void data_component_def_stmt(Token label, Token eos, boolean hasSpec) {

            }

            @Override
            public void component_attr_spec(Token attrKeyword, int specType) {

            }

            @Override
            public void component_attr_spec_list__begin() {

            }

            @Override
            public void component_attr_spec_list(int count) {

            }

            @Override
            public void component_decl(Token id, boolean hasComponentArraySpec, boolean hasCoArraySpec, boolean hasCharLength, boolean hasComponentInitialization) {

            }

            @Override
            public void component_decl_list__begin() {

            }

            @Override
            public void component_decl_list(int count) {

            }

            @Override
            public void component_array_spec(boolean isExplicit) {

            }

            @Override
            public void deferred_shape_spec_list__begin() {

            }

            @Override
            public void deferred_shape_spec_list(int count) {

            }

            @Override
            public void component_initialization() {

            }

            @Override
            public void proc_component_def_stmt(Token label, Token procedureKeyword, Token eos, boolean hasInterface) {

            }

            @Override
            public void proc_component_attr_spec(Token attrSpecKeyword, Token id, int specType) {

            }

            @Override
            public void proc_component_attr_spec_list__begin() {

            }

            @Override
            public void proc_component_attr_spec_list(int count) {

            }

            @Override
            public void private_components_stmt(Token label, Token privateKeyword, Token eos) {

            }

            @Override
            public void type_bound_procedure_part(int count, boolean hasBindingPrivateStmt) {

            }

            @Override
            public void binding_private_stmt(Token label, Token privateKeyword, Token eos) {

            }

            @Override
            public void proc_binding_stmt(Token label, int type, Token eos) {

            }

            @Override
            public void specific_binding(Token procedureKeyword, Token interfaceName, Token bindingName, Token procedureName, boolean hasBindingAttrList) {

            }

            @Override
            public void generic_binding(Token genericKeyword, boolean hasAccessSpec) {

            }

            @Override
            public void binding_attr(Token bindingAttr, int attr, Token id) {

            }

            @Override
            public void binding_attr_list__begin() {

            }

            @Override
            public void binding_attr_list(int count) {

            }

            @Override
            public void final_binding(Token finalKeyword) {

            }

            @Override
            public void derived_type_spec(Token typeName, boolean hasTypeParamSpecList) {

            }

            @Override
            public void type_param_spec(Token keyword) {

            }

            @Override
            public void type_param_spec_list__begin() {

            }

            @Override
            public void type_param_spec_list(int count) {

            }

            @Override
            public void structure_constructor(Token id) {

            }

            @Override
            public void component_spec(Token id) {

            }

            @Override
            public void component_spec_list__begin() {

            }

            @Override
            public void component_spec_list(int count) {

            }

            @Override
            public void component_data_source() {

            }

            @Override
            public void enum_def(int numEls) {

            }

            @Override
            public void enum_def_stmt(Token label, Token enumKeyword, Token bindKeyword, Token id, Token eos) {

            }

            @Override
            public void enumerator_def_stmt(Token label, Token enumeratorKeyword, Token eos) {

            }

            @Override
            public void enumerator(Token id, boolean hasExpr) {

            }

            @Override
            public void enumerator_list__begin() {

            }

            @Override
            public void enumerator_list(int count) {

            }

            @Override
            public void end_enum_stmt(Token label, Token endKeyword, Token enumKeyword, Token eos) {

            }

            @Override
            public void array_constructor() {

            }

            @Override
            public void ac_spec() {

            }

            @Override
            public void ac_value() {

            }

            @Override
            public void ac_value_list__begin() {

            }

            @Override
            public void ac_value_list(int count) {

            }

            @Override
            public void ac_implied_do() {

            }

            @Override
            public void ac_implied_do_control(boolean hasStride) {

            }

            @Override
            public void scalar_int_variable() {

            }

            @Override
            public void type_declaration_stmt(Token label, int numAttributes, Token eos) {

            }

            @Override
            public void declaration_type_spec(Token udtKeyword, int type) {

            }

            @Override
            public void attr_spec(Token attrKeyword, int attr) {

            }

            @Override
            public void entity_decl(Token id) {

            }

            @Override
            public void entity_decl_list__begin() {

            }

            @Override
            public void entity_decl_list(int count) {

            }

            @Override
            public void initialization(boolean hasExpr, boolean hasNullInit) {

            }

            @Override
            public void null_init(Token id) {

            }

            @Override
            public void access_spec(Token keyword, int type) {

            }

            @Override
            public void language_binding_spec(Token keyword, Token id, boolean hasName) {

            }

            @Override
            public void array_spec(int count) {

            }

            @Override
            public void array_spec_element(int type) {

            }

            @Override
            public void explicit_shape_spec(boolean hasUpperBound) {

            }

            @Override
            public void explicit_shape_spec_list__begin() {

            }

            @Override
            public void explicit_shape_spec_list(int count) {

            }

            @Override
            public void co_array_spec() {

            }

            @Override
            public void intent_spec(Token intentKeyword1, Token intentKeyword2, int intent) {

            }

            @Override
            public void access_stmt(Token label, Token eos, boolean hasList) {

            }

            @Override
            public void deferred_co_shape_spec() {

            }

            @Override
            public void deferred_co_shape_spec_list__begin() {

            }

            @Override
            public void deferred_co_shape_spec_list(int count) {

            }

            @Override
            public void explicit_co_shape_spec() {

            }

            @Override
            public void explicit_co_shape_spec_suffix() {

            }

            @Override
            public void access_id() {

            }

            @Override
            public void access_id_list__begin() {

            }

            @Override
            public void access_id_list(int count) {

            }

            @Override
            public void allocatable_stmt(Token label, Token keyword, Token eos, int count) {

            }

            @Override
            public void allocatable_decl(Token id, boolean hasArraySpec, boolean hasCoArraySpec) {

            }

            @Override
            public void asynchronous_stmt(Token label, Token keyword, Token eos) {

            }

            @Override
            public void bind_stmt(Token label, Token eos) {

            }

            @Override
            public void bind_entity(Token entity, boolean isCommonBlockName) {

            }

            @Override
            public void bind_entity_list__begin() {

            }

            @Override
            public void bind_entity_list(int count) {

            }

            @Override
            public void data_stmt(Token label, Token keyword, Token eos, int count) {

            }

            @Override
            public void data_stmt_set() {

            }

            @Override
            public void data_stmt_object() {

            }

            @Override
            public void data_stmt_object_list__begin() {

            }

            @Override
            public void data_stmt_object_list(int count) {

            }

            @Override
            public void data_implied_do(Token id, boolean hasThirdExpr) {

            }

            @Override
            public void data_i_do_object() {

            }

            @Override
            public void data_i_do_object_list__begin() {

            }

            @Override
            public void data_i_do_object_list(int count) {

            }

            @Override
            public void data_stmt_value(Token asterisk) {

            }

            @Override
            public void data_stmt_value_list__begin() {

            }

            @Override
            public void data_stmt_value_list(int count) {

            }

            @Override
            public void scalar_int_constant() {

            }

            @Override
            public void hollerith_constant(Token hollerithConstant) {

            }

            @Override
            public void data_stmt_constant() {

            }

            @Override
            public void dimension_stmt(Token label, Token keyword, Token eos, int count) {

            }

            @Override
            public void dimension_decl(Token id, boolean hasArraySpec, boolean hasCoArraySpec) {

            }

            @Override
            public void dimension_spec(Token dimensionKeyword) {

            }

            @Override
            public void intent_stmt(Token label, Token keyword, Token eos) {

            }

            @Override
            public void optional_stmt(Token label, Token keyword, Token eos) {

            }

            @Override
            public void parameter_stmt(Token label, Token keyword, Token eos) {

            }

            @Override
            public void named_constant_def_list__begin() {

            }

            @Override
            public void named_constant_def_list(int count) {

            }

            @Override
            public void named_constant_def(Token id) {

            }

            @Override
            public void pointer_stmt(Token label, Token keyword, Token eos) {

            }

            @Override
            public void pointer_decl_list__begin() {

            }

            @Override
            public void pointer_decl_list(int count) {

            }

            @Override
            public void pointer_decl(Token id, boolean hasSpecList) {

            }

            @Override
            public void protected_stmt(Token label, Token keyword, Token eos) {

            }

            @Override
            public void save_stmt(Token label, Token keyword, Token eos, boolean hasSavedEntityList) {

            }

            @Override
            public void saved_entity_list__begin() {

            }

            @Override
            public void saved_entity_list(int count) {

            }

            @Override
            public void saved_entity(Token id, boolean isCommonBlockName) {

            }

            @Override
            public void target_stmt(Token label, Token keyword, Token eos, int count) {

            }

            @Override
            public void target_decl(Token id, boolean hasArraySpec, boolean hasCoArraySpec) {

            }

            @Override
            public void value_stmt(Token label, Token keyword, Token eos) {

            }

            @Override
            public void volatile_stmt(Token label, Token keyword, Token eos) {

            }

            @Override
            public void implicit_stmt(Token label, Token implicitKeyword, Token noneKeyword, Token eos, boolean hasImplicitSpecList) {

            }

            @Override
            public void implicit_spec() {

            }

            @Override
            public void implicit_spec_list__begin() {

            }

            @Override
            public void implicit_spec_list(int count) {

            }

            @Override
            public void letter_spec(Token id1, Token id2) {

            }

            @Override
            public void letter_spec_list__begin() {

            }

            @Override
            public void letter_spec_list(int count) {

            }

            @Override
            public void namelist_stmt(Token label, Token keyword, Token eos, int count) {

            }

            @Override
            public void namelist_group_name(Token id) {

            }

            @Override
            public void namelist_group_object(Token id) {

            }

            @Override
            public void namelist_group_object_list__begin() {

            }

            @Override
            public void namelist_group_object_list(int count) {

            }

            @Override
            public void equivalence_stmt(Token label, Token equivalenceKeyword, Token eos) {

            }

            @Override
            public void equivalence_set() {

            }

            @Override
            public void equivalence_set_list__begin() {

            }

            @Override
            public void equivalence_set_list(int count) {

            }

            @Override
            public void equivalence_object() {

            }

            @Override
            public void equivalence_object_list__begin() {

            }

            @Override
            public void equivalence_object_list(int count) {

            }

            @Override
            public void common_stmt(Token label, Token commonKeyword, Token eos, int numBlocks) {

            }

            @Override
            public void common_block_name(Token id) {

            }

            @Override
            public void common_block_object_list__begin() {

            }

            @Override
            public void common_block_object_list(int count) {

            }

            @Override
            public void common_block_object(Token id, boolean hasShapeSpecList) {

            }

            @Override
            public void variable() {

            }

            @Override
            public void designator(boolean hasSubstringRange) {

            }

            @Override
            public void designator_or_func_ref() {

            }

            @Override
            public void substring_range_or_arg_list() {

            }

            @Override
            public void substr_range_or_arg_list_suffix() {

            }

            @Override
            public void logical_variable() {

            }

            @Override
            public void default_logical_variable() {

            }

            @Override
            public void scalar_default_logical_variable() {

            }

            @Override
            public void char_variable() {

            }

            @Override
            public void default_char_variable() {

            }

            @Override
            public void scalar_default_char_variable() {

            }

            @Override
            public void int_variable() {

            }

            @Override
            public void substring(boolean hasSubstringRange) {

            }

            @Override
            public void substring_range(boolean hasLowerBound, boolean hasUpperBound) {

            }

            @Override
            public void data_ref(int numPartRef) {

            }

            @Override
            public void part_ref(Token id, boolean hasSelectionSubscriptList, boolean hasImageSelector) {

            }

            @Override
            public void section_subscript(boolean hasLowerBound, boolean hasUpperBound, boolean hasStride, boolean isAmbiguous) {

            }

            @Override
            public void section_subscript_list__begin() {

            }

            @Override
            public void section_subscript_list(int count) {

            }

            @Override
            public void vector_subscript() {

            }

            @Override
            public void allocate_stmt(Token label, Token allocateKeyword, Token eos, boolean hasTypeSpec, boolean hasAllocOptList) {

            }

            @Override
            public void image_selector(int exprCount) {

            }

            @Override
            public void alloc_opt(Token allocOpt) {

            }

            @Override
            public void alloc_opt_list__begin() {

            }

            @Override
            public void alloc_opt_list(int count) {

            }

            @Override
            public void allocation(boolean hasAllocateShapeSpecList, boolean hasAllocateCoArraySpec) {

            }

            @Override
            public void allocation_list__begin() {

            }

            @Override
            public void allocation_list(int count) {

            }

            @Override
            public void allocate_object() {

            }

            @Override
            public void allocate_object_list__begin() {

            }

            @Override
            public void allocate_object_list(int count) {

            }

            @Override
            public void allocate_shape_spec(boolean hasLowerBound, boolean hasUpperBound) {

            }

            @Override
            public void allocate_shape_spec_list__begin() {

            }

            @Override
            public void allocate_shape_spec_list(int count) {

            }

            @Override
            public void nullify_stmt(Token label, Token nullifyKeyword, Token eos) {

            }

            @Override
            public void pointer_object() {

            }

            @Override
            public void pointer_object_list__begin() {

            }

            @Override
            public void pointer_object_list(int count) {

            }

            @Override
            public void deallocate_stmt(Token label, Token deallocateKeyword, Token eos, boolean hasDeallocOptList) {

            }

            @Override
            public void dealloc_opt(Token id) {

            }

            @Override
            public void dealloc_opt_list__begin() {

            }

            @Override
            public void dealloc_opt_list(int count) {

            }

            @Override
            public void allocate_co_array_spec() {

            }

            @Override
            public void allocate_co_shape_spec(boolean hasExpr) {

            }

            @Override
            public void allocate_co_shape_spec_list__begin() {

            }

            @Override
            public void allocate_co_shape_spec_list(int count) {

            }

            @Override
            public void primary() {

            }

            @Override
            public void level_1_expr(Token definedUnaryOp) {

            }

            @Override
            public void defined_unary_op(Token definedOp) {

            }

            @Override
            public void power_operand(boolean hasPowerOperand) {

            }

            @Override
            public void power_operand__power_op(Token powerOp) {

            }

            @Override
            public void mult_operand(int numMultOps) {

            }

            @Override
            public void mult_operand__mult_op(Token multOp) {

            }

            @Override
            public void add_operand(Token addOp, int numAddOps) {

            }

            @Override
            public void add_operand__add_op(Token addOp) {

            }

            @Override
            public void level_2_expr(int numConcatOps) {

            }

            @Override
            public void power_op(Token powerKeyword) {

            }

            @Override
            public void mult_op(Token multKeyword) {

            }

            @Override
            public void add_op(Token addKeyword) {

            }

            @Override
            public void level_3_expr(Token relOp) {

            }

            @Override
            public void concat_op(Token concatKeyword) {

            }

            @Override
            public void rel_op(Token relOp) {

            }

            @Override
            public void and_operand(boolean hasNotOp, int numAndOps) {

            }

            @Override
            public void and_operand__not_op(boolean hasNotOp) {

            }

            @Override
            public void or_operand(int numOrOps) {

            }

            @Override
            public void equiv_operand(int numEquivOps) {

            }

            @Override
            public void equiv_operand__equiv_op(Token equivOp) {

            }

            @Override
            public void level_5_expr(int numDefinedBinaryOps) {

            }

            @Override
            public void level_5_expr__defined_binary_op(Token definedBinaryOp) {

            }

            @Override
            public void not_op(Token notOp) {

            }

            @Override
            public void and_op(Token andOp) {

            }

            @Override
            public void or_op(Token orOp) {

            }

            @Override
            public void equiv_op(Token equivOp) {

            }

            @Override
            public void expr() {

            }

            @Override
            public void defined_binary_op(Token binaryOp) {

            }

            @Override
            public void assignment_stmt(Token label, Token eos) {

            }

            @Override
            public void pointer_assignment_stmt(Token label, Token eos, boolean hasBoundsSpecList, boolean hasBRList) {

            }

            @Override
            public void data_pointer_object() {

            }

            @Override
            public void bounds_spec() {

            }

            @Override
            public void bounds_spec_list__begin() {

            }

            @Override
            public void bounds_spec_list(int count) {

            }

            @Override
            public void bounds_remapping() {

            }

            @Override
            public void bounds_remapping_list__begin() {

            }

            @Override
            public void bounds_remapping_list(int count) {

            }

            @Override
            public void proc_pointer_object() {

            }

            @Override
            public void where_stmt__begin() {

            }

            @Override
            public void where_stmt(Token label, Token whereKeyword) {

            }

            @Override
            public void where_construct(int numConstructs, boolean hasMaskedElsewhere, boolean hasElsewhere) {

            }

            @Override
            public void where_construct_stmt(Token id, Token whereKeyword, Token eos) {

            }

            @Override
            public void where_body_construct() {

            }

            @Override
            public void masked_elsewhere_stmt(Token label, Token elseKeyword, Token whereKeyword, Token id, Token eos) {

            }

            @Override
            public void masked_elsewhere_stmt__end(int numBodyConstructs) {

            }

            @Override
            public void elsewhere_stmt(Token label, Token elseKeyword, Token whereKeyword, Token id, Token eos) {

            }

            @Override
            public void elsewhere_stmt__end(int numBodyConstructs) {

            }

            @Override
            public void end_where_stmt(Token label, Token endKeyword, Token whereKeyword, Token id, Token eos) {

            }

            @Override
            public void forall_construct() {

            }

            @Override
            public void forall_construct_stmt(Token label, Token id, Token forallKeyword, Token eos) {

            }

            @Override
            public void forall_header() {

            }

            @Override
            public void forall_triplet_spec(Token id, bool