Restructuring for better separation of Tool packages.

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

diff --git a/Tools/Java/Source/Cpptasks/net/sf/antcontrib/cpptasks/parser/FortranParser.java b/Tools/Java/Source/Cpptasks/net/sf/antcontrib/cpptasks/parser/FortranParser.java
new file mode 100644 (file)
index 0000000..261e95a
--- /dev/null
+++ b/Tools/Java/Source/Cpptasks/net/sf/antcontrib/cpptasks/parser/FortranParser.java
@@ -0,0 +1,106 @@
+/*\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