Initial import.

[mirror_edk2.git] / Tools / Source / Cpptasks / net / sf / antcontrib / cpptasks / parser / FortranParser.java

/*\r
 *\r
 * Copyright 2002-2004 The Ant-Contrib project\r
 *\r
 *  Licensed under the Apache License, Version 2.0 (the "License");\r
 *  you may not use this file except in compliance with the License.\r
 *  You may obtain a copy of the License at\r
 *\r
 *      http://www.apache.org/licenses/LICENSE-2.0\r
 *\r
 *  Unless required by applicable law or agreed to in writing, software\r
 *  distributed under the License is distributed on an "AS IS" BASIS,\r
 *  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.\r
 *  See the License for the specific language governing permissions and\r
 *  limitations under the License.\r
 */\r
package net.sf.antcontrib.cpptasks.parser;\r
\r
import java.io.IOException;\r
import java.io.Reader;\r
import java.util.Vector;\r
\r
/**\r
 * A parser that extracts INCLUDE statements from a Reader.\r
 *\r
 * @author Curt Arnold\r
 */\r
public final class FortranParser\r
    extends AbstractParser\r
    implements Parser {\r
  /**\r
   * List of included filenames.\r
   */\r
  private final Vector includes = new Vector();\r
\r
  /**\r
   * State that starts consuming content at the beginning of a line.\r
   */\r
  private final AbstractParserState newLineState;\r
\r
  /**\r
   * Default constructor.\r
   *\r
   */\r
  public FortranParser() {\r
    AbstractParserState filename = new FilenameState(this, new char[] {'\'',\r
        '/'});\r
    AbstractParserState apos = new WhitespaceOrLetterState(this, '\'',\r
        filename);\r
    AbstractParserState blank = new LetterState(this, ' ', apos, null);\r
    AbstractParserState e = new CaseInsensitiveLetterState(this, 'E',\r
        blank, null);\r
    AbstractParserState d = new CaseInsensitiveLetterState(this, 'D', e,\r
        null);\r
    AbstractParserState u = new CaseInsensitiveLetterState(this, 'U', d,\r
        null);\r
    AbstractParserState l = new CaseInsensitiveLetterState(this, 'L', u,\r
        null);\r
    AbstractParserState c = new CaseInsensitiveLetterState(this, 'C', l,\r
        null);\r
    AbstractParserState n = new CaseInsensitiveLetterState(this, 'N', c,\r
        null);\r
    newLineState = new WhitespaceOrCaseInsensitiveLetterState(this, 'I', n);\r
  }\r
\r
  /**\r
   * Called by FilenameState at completion of file name production.\r
   *\r
   * @param include\r
   *            include file name\r
   */\r
  public void addFilename(final String include) {\r
    includes.addElement(include);\r
  }\r
\r
  /**\r
   * Gets collection of include file names encountered in parse.\r
   * @return include file names\r
   */\r
  public String[] getIncludes() {\r
    String[] retval = new String[includes.size()];\r
    includes.copyInto(retval);\r
    return retval;\r
  }\r
\r
  /**\r
   * Get the state for the beginning of a new line.\r
   * @return start of line state\r
   */\r
  public AbstractParserState getNewLineState() {\r
    return newLineState;\r
  }\r
\r
  /**\r
   * Collects all included files from the content of the reader.\r
   *\r
   * @param reader\r
   *            character reader containing a FORTRAN source module\r
   * @throws IOException\r
   *             throw if I/O error during parse\r
   */\r
  public void parse(final Reader reader) throws IOException {\r
    includes.setSize(0);\r
    super.parse(reader);\r
  }\r
}\r