+++ /dev/null
-/*\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