diff -r 3fc8dfeb6ebe -r b99e7fd55fd3 src/eric7/QScintilla/Lexers/LexerFortran.py
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/src/eric7/QScintilla/Lexers/LexerFortran.py Thu Jul 07 11:23:56 2022 +0200
@@ -0,0 +1,78 @@
+# -*- coding: utf-8 -*-
+
+# Copyright (c) 2008 - 2022 Detlev Offenbach <detlev@die-offenbachs.de>
+#
+
+"""
+Module implementing a Fortran lexer with some additional methods.
+"""
+
+from PyQt6.Qsci import QsciLexerFortran
+
+from .Lexer import Lexer
+import Preferences
+
+
+class LexerFortran(Lexer, QsciLexerFortran):
+ """
+ Subclass to implement some additional lexer dependant methods.
+ """
+ def __init__(self, parent=None):
+ """
+ Constructor
+
+ @param parent parent widget of this lexer
+ """
+ QsciLexerFortran.__init__(self, parent)
+ Lexer.__init__(self)
+
+ self.commentString = "c "
+
+ self.keywordSetDescriptions = [
+ self.tr("Primary keywords and identifiers"),
+ self.tr("Intrinsic functions"),
+ self.tr("Extended and user defined functions"),
+ ]
+
+ def initProperties(self):
+ """
+ Public slot to initialize the properties.
+ """
+ self.setFoldCompact(Preferences.getEditor("AllFoldCompact"))
+
+ def autoCompletionWordSeparators(self):
+ """
+ Public method to return the list of separators for autocompletion.
+
+ @return list of separators (list of strings)
+ """
+ return ['.']
+
+ def isCommentStyle(self, style):
+ """
+ Public method to check, if a style is a comment style.
+
+ @param style style to check (integer)
+ @return flag indicating a comment style (boolean)
+ """
+ return style in [QsciLexerFortran.Comment]
+
+ def isStringStyle(self, style):
+ """
+ Public method to check, if a style is a string style.
+
+ @param style style to check (integer)
+ @return flag indicating a string style (boolean)
+ """
+ return style in [QsciLexerFortran.DoubleQuotedString,
+ QsciLexerFortran.SingleQuotedString,
+ QsciLexerFortran.UnclosedString]
+
+ def defaultKeywords(self, kwSet):
+ """
+ Public method to get the default keywords.
+
+ @param kwSet number of the keyword set (integer)
+ @return string giving the keywords (string) or None
+ """
+ return QsciLexerFortran.keywords(self, kwSet)
