fortranscanner.h 2.45 KB
Newer Older
1 2
/******************************************************************************
 *
3
 * 
4
 *
Dimitri van Heesch's avatar
Dimitri van Heesch committed
5
 * Copyright (C) 1997-2014 by Dimitri van Heesch.
6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
 *
 * Permission to use, copy, modify, and distribute this software and its
 * documentation under the terms of the GNU General Public License is hereby 
 * granted. No representations are made about the suitability of this software 
 * for any purpose. It is provided "as is" without express or implied warranty.
 * See the GNU General Public License for more details.
 *
 * Documents produced by Doxygen are derivative works derived from the
 * input used in their production; they are not affected by this license.
 *
 */

#ifndef SCANNER_FORTRAN_H
#define SCANNER_FORTRAN_H

#include "parserintf.h"

/** \brief Fortran language parser using state-based lexical scanning.
 *
 *  This is the Fortran language parser for doxygen.
 */
class FortranLanguageScanner : public ParserInterface
{
  public:
30 31
    FortranLanguageScanner(FortranFormat format=FortranFormat_Unknown) : m_format(format) { }
    virtual ~FortranLanguageScanner() {}
32
    void startTranslationUnit(const char *) {}
33
    void finishTranslationUnit() {}
34 35
    void parseInput(const char *fileName,
                    const char *fileBuf,
36 37 38
                    Entry *root,
                    bool sameTranslationUnit,
                    QStrList &filesInSameTranslationUnit);
39 40 41 42
    bool needsPreprocessing(const QCString &extension);
    void parseCode(CodeOutputInterface &codeOutIntf,
                   const char *scopeName,
                   const QCString &input,
43
                   SrcLangExt lang,
44 45 46 47 48 49
                   bool isExampleBlock,
                   const char *exampleName=0,
                   FileDef *fileDef=0,
                   int startLine=-1,
                   int endLine=-1,
                   bool inlineFragment=FALSE,
50
                   MemberDef *memberDef=0,
Dimitri van Heesch's avatar
Dimitri van Heesch committed
51
                   bool showLineNumbers=TRUE,
52 53
                   Definition *searchCtx=0,
                   bool collectXRefs=TRUE
54
                  );
55
    void resetCodeParserState();
56
    void parsePrototype(const char *text);
57

58 59
  private:
    FortranFormat m_format;
60 61 62 63 64
};

class FortranLanguageScannerFree : public FortranLanguageScanner
{
  public:
65
    FortranLanguageScannerFree() : FortranLanguageScanner(FortranFormat_Free) { }
66 67 68 69 70
};

class FortranLanguageScannerFixed : public FortranLanguageScanner
{
  public:
71
    FortranLanguageScannerFixed() : FortranLanguageScanner(FortranFormat_Fixed) { }
72 73 74
};

#endif