169 lines
4.9 KiB
C++
169 lines
4.9 KiB
C++
// This defines the interface to the QsciLexerFortran77 class.
|
|
//
|
|
// Copyright (c) 2023 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
|