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
|
<?xml version="1.0"?>
<!DOCTYPE CodeBlocks_lexer_properties>
<CodeBlocks_lexer_properties>
<Lexer name="Pascal"
index="18"
filemasks="*.pas,*.inc">
<Style name="Default"
index="0"
fg="0,0,0"
bg="255,255,255"
bold="0"
italics="0"
underlined="0"/>
<Style name="Number"
index="3"
fg="240,0,240"/>
<Style mame="Preprocessor"
index = "9"
fg="0,160,0"/>
<Style name ="Identifier"
index = "11"
fg = "0,0,0"/>
<Style name = "Instruction word"
index = "5"
fg="0,0,160"
bold="1"/>
<Style name = "Character"
index="7"
fg="0,0,255"/>
<Style name = "Operator"
index="10"
fg="255,0,0"
bold="1"/>
<Style name = "Regex"
index="14"
fg="0,0,0"
bold="1"/>
<Style name = "Comment (normal)"
index="1,2"
fg="0,128,0"/>
<Style name = "Comment (documentation)"
index="3"
fg="128,128,255"
bold="1"/>
<Style name="Comment keyword (documentation)"
index="17"
fg="0,128,128"/>
<Style name="Comment keyword error (documentation)"
index="18"
fg="128,0,0"/>
<Style name="Selection"
index="-99"
bg="192,192,192"/>
<Style name="Active line"
index="-98"
bg="255,255,160"/>
<Style name="Breakpoint line"
index="-2"
bg="255,160,160"/>
<Style name="Debugger active line"
index="-3"
bg="160,160,255"/>
<Style name="Compiler error line"
index="-4"
bg="255,128,0"/>
<Style name="Matching brace highlight"
index="34"
bg="128,255,255"
bold="1"/>
<Style name="No matching brace highlight"
index="35"
fg="255,255,255"
bg="255,0,0"
bold="1"/>
<Keywords>
<!-- Primary keywords and identifiers -->
<Set index="0"
value = "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"/>
</Keywords>
<SampleCode value="lexer_pascal.sample"
breakpoint_line="3"
debug_line="6"
error_line="7"/>
<LanguageAttributes
LineComment="//"
StreamCommentStart="{"
StreamCommentEnd="}"
BoxCommentStart="(* "
BoxCommentMid=" * "
BoxCommentEnd=" *)"
CaseSensitive="0"/>
</Lexer>
</CodeBlocks_lexer_properties>
|