1
// This defines the interface to the QsciLexerFortran77 class.
3
// Copyright (c) 2008 Riverbank Computing Limited <info@riverbankcomputing.com>
5
// This file is part of QScintilla.
7
// This file may be used under the terms of the GNU General Public
8
// License versions 2.0 or 3.0 as published by the Free Software
9
// Foundation and appearing in the files LICENSE.GPL2 and LICENSE.GPL3
10
// included in the packaging of this file. Alternatively you may (at
11
// your option) use any later version of the GNU General Public
12
// License if such license has been publicly approved by Riverbank
13
// Computing Limited (or its successors, if any) and the KDE Free Qt
14
// Foundation. In addition, as a special exception, Riverbank gives you
15
// certain additional rights. These rights are described in the Riverbank
16
// GPL Exception version 1.1, which can be found in the file
17
// GPL_EXCEPTION.txt in this package.
19
// Please review the following information to ensure GNU General
20
// Public Licensing requirements will be met:
21
// http://trolltech.com/products/qt/licenses/licensing/opensource/. If
22
// you are unsure which license is appropriate for your use, please
23
// review the following information:
24
// http://trolltech.com/products/qt/licenses/licensing/licensingoverview
25
// or contact the sales department at sales@riverbankcomputing.com.
27
// This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
28
// INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
29
// A PARTICULAR PURPOSE. Trolltech reserves all rights not expressly
32
// This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
33
// WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
36
#ifndef QSCILEXERFORTRAN77_H
37
#define QSCILEXERFORTRAN77_H
45
#include <Qsci/qsciglobal.h>
46
#include <Qsci/qscilexer.h>
49
//! \brief The QsciLexerFortran77 class encapsulates the Scintilla Fortran77
51
class QSCINTILLA_EXPORT QsciLexerFortran77 : public QsciLexer
56
//! This enum defines the meanings of the different styles used by the
68
//! A single-quoted string.
69
SingleQuotedString = 3,
71
//! A double-quoted string.
72
DoubleQuotedString = 4,
74
//! The end of a line where a string is not closed.
86
//! An intrinsic function.
87
IntrinsicFunction = 9,
89
//! An extended, non-standard or user defined function.
90
ExtendedFunction = 10,
92
//! A pre-processor block.
95
//! An operator in .NAME. format.
105
//! Construct a QsciLexerFortran77 with parent \a parent. \a parent is
106
//! typically the QsciScintilla instance.
107
QsciLexerFortran77(QObject *parent = 0);
109
//! Destroys the QsciLexerFortran77 instance.
110
virtual ~QsciLexerFortran77();
112
//! Returns the name of the language.
113
const char *language() const;
115
//! Returns the name of the lexer. Some lexers support a number of
117
const char *lexer() const;
119
//! \internal Returns the style used for braces for brace matching.
120
int braceStyle() const;
122
//! Returns the foreground colour of the text for style number \a style.
124
//! \sa defaultPaper()
125
QColor defaultColor(int style) const;
127
//! Returns the end-of-line fill for style number \a style.
128
bool defaultEolFill(int style) const;
130
//! Returns the font for style number \a style.
131
QFont defaultFont(int style) const;
133
//! Returns the background colour of the text for style number \a style.
135
//! \sa defaultColor()
136
QColor defaultPaper(int style) const;
138
//! Returns the set of keywords for the keyword set \a set recognised
139
//! by the lexer as a space separated string.
140
const char *keywords(int set) const;
142
//! Returns the descriptive name for style number \a style. If the
143
//! style is invalid for this language then an empty QString is returned.
144
//! This is intended to be used in user preference dialogs.
145
QString description(int style) const;
147
//! Causes all properties to be refreshed by emitting the
148
//! propertyChanged() signal as required.
149
void refreshProperties();
151
//! Returns true if trailing blank lines are included in a fold block.
153
//! \sa setFoldCompact()
154
bool foldCompact() const;
157
//! If \a fold is true then trailing blank lines are included in a fold
158
//! block. The default is true.
160
//! \sa foldCompact()
161
virtual void setFoldCompact(bool fold);
164
//! The lexer's properties are read from the settings \a qs. \a prefix
165
//! (which has a trailing '/') should be used as a prefix to the key of
166
//! each setting. true is returned if there is no error.
168
//! \sa writeProperties()
169
bool readProperties(QSettings &qs,const QString &prefix);
171
//! The lexer's properties are written to the settings \a qs.
172
//! \a prefix (which has a trailing '/') should be used as a prefix to
173
//! the key of each setting. true is returned if there is no error.
175
//! \sa readProperties()
176
bool writeProperties(QSettings &qs,const QString &prefix) const;
179
void setCompactProp();
183
QsciLexerFortran77(const QsciLexerFortran77 &);
184
QsciLexerFortran77 &operator=(const QsciLexerFortran77 &);