QScintilla/Lexers/LexerPerl.py

changeset 0
de9c2efb9d02
child 12
1d8dd9706f46
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/QScintilla/Lexers/LexerPerl.py	Mon Dec 28 16:03:33 2009 +0000
@@ -0,0 +1,72 @@
+# -*- coding: utf-8 -*-
+
+# Copyright (c) 2004 - 2009 Detlev Offenbach <detlev@die-offenbachs.de>
+#
+
+"""
+Module implementing a Perl lexer with some additional methods.
+"""
+
+from PyQt4.Qsci import QsciLexerPerl
+
+from Lexer import Lexer
+import Preferences
+
+class LexerPerl(QsciLexerPerl, Lexer):
+    """ 
+    Subclass to implement some additional lexer dependant methods.
+    """
+    def __init__(self, parent=None):
+        """
+        Constructor
+        
+        @param parent parent widget of this lexer
+        """
+        QsciLexerPerl.__init__(self, parent)
+        Lexer.__init__(self)
+        
+        self.commentString = "#"
+    
+    def initProperties(self):
+        """
+        Public slot to initialize the properties.
+        """
+        self.setFoldComments(Preferences.getEditor("PerlFoldComment"))
+        self.setFoldCompact(Preferences.getEditor("AllFoldCompact"))
+        try:
+            self.setFoldPackages(Preferences.getEditor("PerlFoldPackages"))
+            self.setFoldPODBlocks(Preferences.getEditor("PerlFoldPODBlocks"))
+        except AttributeError:
+            pass
+    
+    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.
+        
+        @return flag indicating a comment style (boolean)
+        """
+        return style in [QsciLexerPerl.Comment]
+    
+    def isStringStyle(self, style):
+        """
+        Public method to check, if a style is a string style.
+        
+        @return flag indicating a string style (boolean)
+        """
+        return style in [QsciLexerPerl.DoubleQuotedHereDocument, 
+                         QsciLexerPerl.DoubleQuotedString, 
+                         QsciLexerPerl.QuotedStringQ, 
+                         QsciLexerPerl.QuotedStringQQ, 
+                         QsciLexerPerl.QuotedStringQR, 
+                         QsciLexerPerl.QuotedStringQW, 
+                         QsciLexerPerl.QuotedStringQX, 
+                         QsciLexerPerl.SingleQuotedHereDocument, 
+                         QsciLexerPerl.SingleQuotedString]

eric ide

mercurial