// This defines the interface to the QsciLexerFortran77 class. // // Copyright (c) 2018 Riverbank Computing Limited <info@riverbankcomputing.com> // // This file is part of QScintilla. // // This file may be used under the terms of the GNU General Public License // version 3.0 as published by the Free Software Foundation and appearing in // the file LICENSE included in the packaging of this file. Please review the // following information to ensure the GNU General Public License version 3.0 // requirements will be met: http://www.gnu.org/copyleft/gpl.html. // // If you do not wish to use this file under the terms of the GPL version 3.0 // then you may purchase a commercial license. For more information contact // info@riverbankcomputing.com. // // This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE // WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. #ifndef QSCILEXERFORTRAN77_H #define QSCILEXERFORTRAN77_H #include <QObject> #include <Qsci/qsciglobal.h> #include <Qsci/qscilexer.h> //! \brief The QsciLexerFortran77 class encapsulates the Scintilla Fortran77 //! lexer. class QSCINTILLA_EXPORT QsciLexerFortran77 : public QsciLexer { Q_OBJECT public: //! This enum defines the meanings of the different styles used by the //! Fortran77 lexer. enum { //! The default. Default = 0, //! A comment. Comment = 1, //! A number. Number = 2, //! A single-quoted string. SingleQuotedString = 3, //! A double-quoted string. DoubleQuotedString = 4, //! The end of a line where a string is not closed. UnclosedString = 5, //! An operator. Operator = 6, //! An identifier Identifier = 7, //! A keyword. Keyword = 8, //! An intrinsic function. IntrinsicFunction = 9, //! An extended, non-standard or user defined function. ExtendedFunction = 10, //! A pre-processor block. PreProcessor = 11, //! An operator in .NAME. format. DottedOperator = 12, //! A label. Label = 13, //! A continuation. Continuation = 14 }; //! Construct a QsciLexerFortran77 with parent \a parent. \a parent is //! typically the QsciScintilla instance. QsciLexerFortran77(QObject *parent = 0); //! Destroys the QsciLexerFortran77 instance. virtual ~QsciLexerFortran77(); //! Returns the name of the language. const char *language() const; //! Returns the name of the lexer. Some lexers support a number of //! languages. const char *lexer() const; //! \internal Returns the style used for braces for brace matching. int braceStyle() const; //! Returns the foreground colour of the text for style number \a style. //! //! \sa defaultPaper() QColor defaultColor(int style) const; //! Returns the end-of-line fill for style number \a style. bool defaultEolFill(int style) const; //! Returns the font for style number \a style. QFont defaultFont(int style) const; //! Returns the background colour of the text for style number \a style. //! //! \sa defaultColor() QColor defaultPaper(int style) const; //! Returns the set of keywords for the keyword set \a set recognised //! by the lexer as a space separated string. const char *keywords(int set) const; //! Returns the descriptive name for style number \a style. If the //! style is invalid for this language then an empty QString is returned. //! This is intended to be used in user preference dialogs. QString description(int style) const; //! Causes all properties to be refreshed by emitting the //! propertyChanged() signal as required. void refreshProperties(); //! Returns true if trailing blank lines are included in a fold block. //! //! \sa setFoldCompact() bool foldCompact() const; public slots: //! If \a fold is true then trailing blank lines are included in a fold //! block. The default is true. //! //! \sa foldCompact() virtual void setFoldCompact(bool fold); protected: //! The lexer's properties are read from the settings \a qs. \a prefix //! (which has a trailing '/') should be used as a prefix to the key of //! each setting. true is returned if there is no error. //! //! \sa writeProperties() bool readProperties(QSettings &qs,const QString &prefix); //! The lexer's properties are written to the settings \a qs. //! \a prefix (which has a trailing '/') should be used as a prefix to //! the key of each setting. true is returned if there is no error. //! //! \sa readProperties() bool writeProperties(QSettings &qs,const QString &prefix) const; private: void setCompactProp(); bool fold_compact; QsciLexerFortran77(const QsciLexerFortran77 &); QsciLexerFortran77 &operator=(const QsciLexerFortran77 &); }; #endif