_pascal.py
5.43 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
###############################################################################
# Name: pascal.py #
# Purpose: Define Pascal syntax for highlighting and other features #
# Author: Cody Precord <cprecord@editra.org> #
# Copyright: (c) 2007 Cody Precord <staff@editra.org> #
# License: wxWindows License #
###############################################################################
"""
FILE: pascal.py
AUTHOR: Cody Precord
@summary: Lexer configuration module for Pacal.
@todo: Add Support for Turbo Pascal
"""
__author__ = "Cody Precord <cprecord@editra.org>"
__svnid__ = "$Id: _pascal.py 66108 2010-11-10 21:04:54Z CJP $"
__revision__ = "$Revision: 66108 $"
#-----------------------------------------------------------------------------#
# Imports
import wx
import wx.stc as stc
# Local Imports
import syndata
#-----------------------------------------------------------------------------#
#---- Keyword Specifications ----#
# Pascal Keywords
PAS_KEYWORDS = (0, "and array asm begin case cdecl class const constructor "
"default destructor div do downto else end end. except exit "
"exports external far file finalization finally for "
"function goto if implementation in index inherited "
"initialization inline interface label library message mod "
"near nil not object of on or out overload override packed "
"pascal private procedure program property protected public "
"published raise read record register repeat resourcestring "
"safecall set shl shr stdcall stored string then threadvar "
"to try type unit until uses var virtual while with write "
"xor")
# Pascal Classwords (Types)
PAS_CLASSWORDS = (1, "array boolean char integer file pointer real set string "
"text variant write read default public protected private "
"property published stored")
# Pascal Std Functions
PAS_FUNCT = ("pack unpack Dispose New Abs Arctan Cos Exp Ln Sin Sqr Sqrt Eof "
"Eoln Write Writeln Input Output Get Page Put Odd Pred Succ Chr "
"Ord Round Trunc")
#---- Syntax Style Specs ----#
if wx.VERSION >= (2, 9, 0, 0, ''):
SYNTAX_ITEMS = [ (stc.STC_PAS_ASM, 'default_style'), #TODO
(stc.STC_PAS_CHARACTER, 'char_style'),
(stc.STC_PAS_COMMENT, 'comment_style'),
(stc.STC_PAS_COMMENT2, 'comment_style'),
(stc.STC_PAS_COMMENTLINE, 'comment_style'),
(stc.STC_PAS_DEFAULT, 'default_style'),
(stc.STC_PAS_HEXNUMBER, 'number_style'), #TODO?
(stc.STC_PAS_IDENTIFIER, 'default_style'),
(stc.STC_PAS_NUMBER, 'number_style'),
(stc.STC_PAS_OPERATOR, 'operator_style'),
(stc.STC_PAS_PREPROCESSOR, 'pre_style'),
(stc.STC_PAS_PREPROCESSOR2, 'default_style'), #TODO
(stc.STC_PAS_STRING, 'string_style'),
(stc.STC_PAS_STRINGEOL, 'stringeol_style'),
(stc.STC_PAS_WORD, 'keyword_style'), ]
else:
# Pascal Lexer Uses C values, but need to adjust styles accordingly
SYNTAX_ITEMS = [ (stc.STC_C_DEFAULT, 'default_style'),
(stc.STC_C_COMMENT, 'comment_style'),
(stc.STC_C_COMMENTDOC, 'comment_style'),
(stc.STC_C_COMMENTDOCKEYWORD, 'dockey_style'),
(stc.STC_C_COMMENTDOCKEYWORDERROR, 'error_style'),
(stc.STC_C_COMMENTLINE, 'comment_style'),
(stc.STC_C_COMMENTLINEDOC, 'comment_style'),
(stc.STC_C_CHARACTER, 'char_style'),
(stc.STC_C_GLOBALCLASS, 'global_style'),
(stc.STC_C_IDENTIFIER, 'default_style'),
(stc.STC_C_NUMBER, 'number_style'),
(stc.STC_C_OPERATOR, 'operator_style'),
(stc.STC_C_PREPROCESSOR, 'pre_style'),
(stc.STC_C_REGEX, 'pre_style'),
(stc.STC_C_STRING, 'string_style'),
(stc.STC_C_STRINGEOL, 'stringeol_style'),
(stc.STC_C_UUID, 'pre_style'),
(stc.STC_C_VERBATIM, 'number2_style'),
(stc.STC_C_WORD, 'keyword_style'),
(stc.STC_C_WORD2, 'keyword2_style') ]
#---- Extra Properties ----#
FOLD = ("fold", "1")
FLD_COMMENT = ("fold.comment", "1")
#-----------------------------------------------------------------------------#
class SyntaxData(syndata.SyntaxDataBase):
"""SyntaxData object for Pascal"""
def __init__(self, langid):
super(SyntaxData, self).__init__(langid)
# Setup
self.SetLexer(stc.STC_LEX_PASCAL)
def GetKeywords(self):
"""Returns Specified Keywords List """
return [PAS_KEYWORDS, PAS_CLASSWORDS]
def GetSyntaxSpec(self):
"""Syntax Specifications """
return SYNTAX_ITEMS
def GetProperties(self):
"""Returns a list of Extra Properties to set """
return [FOLD, FLD_COMMENT]
def GetCommentPattern(self):
"""Returns a list of characters used to comment a block of code """
return [u'{', u'}']