Commit | Line | Data |
3fea05b9 |
1 | # Copyright (c) 2005 - 2006 Hans Jeuken. All rights reserved. |
2 | # This program is free software; you can redistribute it and/or |
3 | # modify it under the same terms as Perl itself. |
4 | |
5 | # This file was generated from the 'logohighlightstyle.de_DE.xml' file of the syntax highlight |
6 | # engine of the kate text editor (http://www.kate-editor.org |
7 | |
8 | #kate xml version 0.2 |
9 | #kate version 2.1 |
10 | #generated: Sun Feb 3 22:02:04 2008, localtime |
11 | |
12 | package Syntax::Highlight::Engine::Kate::De_DE; |
13 | |
14 | our $VERSION = '0.06'; |
15 | |
16 | use strict; |
17 | use warnings; |
18 | use base('Syntax::Highlight::Engine::Kate::Template'); |
19 | |
20 | sub new { |
21 | my $proto = shift; |
22 | my $class = ref($proto) || $proto; |
23 | my $self = $class->SUPER::new(@_); |
24 | $self->attributes({ |
25 | 'Boolean Operators' => 'BString', |
26 | 'Comment' => 'Comment', |
27 | 'Execution Controllers' => 'BaseN', |
28 | 'Expressers' => 'Datatype', |
29 | 'MetaFunctions' => 'Function', |
30 | 'Normal' => 'Normal', |
31 | 'Normal Text' => 'Normal', |
32 | 'Number' => 'Float', |
33 | 'Operator' => 'Operator', |
34 | 'Raw String' => 'String', |
35 | 'Scopes' => 'RegionMarker', |
36 | 'Statements' => 'Keyword', |
37 | 'String' => 'String', |
38 | }); |
39 | $self->listAdd('boolops', |
40 | 'nicht', |
41 | 'oder', |
42 | 'und', |
43 | ); |
44 | $self->listAdd('controllers', |
45 | 'abbrechen', |
46 | 'bis', |
47 | 'fürjedes', |
48 | 'in', |
49 | 'solange', |
50 | 'sonst', |
51 | 'tue', |
52 | 'von', |
53 | 'warte', |
54 | 'wdh', |
55 | 'wenn', |
56 | 'wiederhole', |
57 | 'zurück', |
58 | ); |
59 | $self->listAdd('metafunctions', |
60 | 'lerne', |
61 | ); |
62 | $self->listAdd('statements', |
63 | 'drucke', |
64 | 'drücke', |
65 | 'eingabefenster', |
66 | 'gehe', |
67 | 'gehex', |
68 | 'gehey', |
69 | 'gx', |
70 | 'gy', |
71 | 'indiemitte', |
72 | 'lauf', |
73 | 'ls', |
74 | 'lösche', |
75 | 'nachlinks', |
76 | 'nachrechts', |
77 | 'nachricht', |
78 | 'nl', |
79 | 'nr', |
80 | 'papierfarbe', |
81 | 'papiergröße', |
82 | 'pf', |
83 | 'pg', |
84 | 'richtung', |
85 | 'rtg', |
86 | 'rw', |
87 | 'rückwärts', |
88 | 'schriftart', |
89 | 'schriftgröße', |
90 | 'stbr', |
91 | 'stf', |
92 | 'sth', |
93 | 'stiftbreite', |
94 | 'stiftfarbe', |
95 | 'stifthoch', |
96 | 'stiftrunter', |
97 | 'str', |
98 | 'umbruchan', |
99 | 'umbruchaus', |
100 | 'verberge', |
101 | 'vg', |
102 | 'vorwärts', |
103 | 'vw', |
104 | 'wc', |
105 | 'wechsle', |
106 | 'zeige', |
107 | 'zg', |
108 | 'zufall', |
109 | 'zurücksetzen', |
110 | ); |
111 | $self->contextdata({ |
112 | 'Normal' => { |
113 | callback => \&parseNormal, |
114 | attribute => 'Normal Text', |
115 | }, |
116 | 'String' => { |
117 | callback => \&parseString, |
118 | attribute => 'String', |
119 | }, |
120 | }); |
121 | $self->deliminators('\\s||\\.|\\(|\\)|:|\\!|\\+|,|-|<|=|>|\\%|\\&|\\*|\\/|;|\\?|\\[|\\]|\\^|\\{|\\||\\}|\\~|\\\\'); |
122 | $self->basecontext('Normal'); |
123 | $self->keywordscase(0); |
124 | $self->initialize; |
125 | bless ($self, $class); |
126 | return $self; |
127 | } |
128 | |
129 | sub language { |
130 | return 'de_DE'; |
131 | } |
132 | |
133 | sub parseNormal { |
134 | my ($self, $text) = @_; |
135 | # String => 'metafunctions' |
136 | # attribute => 'MetaFunctions' |
137 | # context => '#stay' |
138 | # type => 'keyword' |
139 | if ($self->testKeyword($text, 'metafunctions', 0, undef, 0, '#stay', 'MetaFunctions')) { |
140 | return 1 |
141 | } |
142 | # String => 'statements' |
143 | # attribute => 'Statements' |
144 | # context => '#stay' |
145 | # type => 'keyword' |
146 | if ($self->testKeyword($text, 'statements', 0, undef, 0, '#stay', 'Statements')) { |
147 | return 1 |
148 | } |
149 | # String => 'controllers' |
150 | # attribute => 'Execution Controllers' |
151 | # context => '#stay' |
152 | # type => 'keyword' |
153 | if ($self->testKeyword($text, 'controllers', 0, undef, 0, '#stay', 'Execution Controllers')) { |
154 | return 1 |
155 | } |
156 | # String => 'boolops' |
157 | # attribute => 'Boolean Operators' |
158 | # context => '#stay' |
159 | # type => 'keyword' |
160 | if ($self->testKeyword($text, 'boolops', 0, undef, 0, '#stay', 'Boolean Operators')) { |
161 | return 1 |
162 | } |
163 | # String => '([!=><][=]|[><])' |
164 | # attribute => 'Expressers' |
165 | # context => '#stay' |
166 | # type => 'RegExpr' |
167 | if ($self->testRegExpr($text, '([!=><][=]|[><])', 0, 0, 0, undef, 0, '#stay', 'Expressers')) { |
168 | return 1 |
169 | } |
170 | # String => '[a-zA-Z_][a-zA-Z_0-9]+' |
171 | # attribute => 'Normal' |
172 | # context => '#stay' |
173 | # type => 'RegExpr' |
174 | if ($self->testRegExpr($text, '[a-zA-Z_][a-zA-Z_0-9]+', 0, 0, 0, undef, 0, '#stay', 'Normal')) { |
175 | return 1 |
176 | } |
177 | # String => '([0-9]+\.[0-9]*|\.[0-9]+)?|[0-9]*' |
178 | # attribute => 'Number' |
179 | # context => '#stay' |
180 | # type => 'RegExpr' |
181 | if ($self->testRegExpr($text, '([0-9]+\\.[0-9]*|\\.[0-9]+)?|[0-9]*', 0, 0, 0, undef, 0, '#stay', 'Number')) { |
182 | return 1 |
183 | } |
184 | # String => '#.*$' |
185 | # attribute => 'Comment' |
186 | # context => '#stay' |
187 | # type => 'RegExpr' |
188 | if ($self->testRegExpr($text, '#.*$', 0, 0, 0, undef, 0, '#stay', 'Comment')) { |
189 | return 1 |
190 | } |
191 | # String => '[+*/\(\)-]' |
192 | # attribute => 'Operator' |
193 | # context => '#stay' |
194 | # type => 'RegExpr' |
195 | if ($self->testRegExpr($text, '[+*/\\(\\)-]', 0, 0, 0, undef, 0, '#stay', 'Operator')) { |
196 | return 1 |
197 | } |
198 | # String => '[\[\]]' |
199 | # attribute => 'Scopes' |
200 | # context => '#stay' |
201 | # type => 'RegExpr' |
202 | if ($self->testRegExpr($text, '[\\[\\]]', 0, 0, 0, undef, 0, '#stay', 'Scopes')) { |
203 | return 1 |
204 | } |
205 | # attribute => 'String' |
206 | # char => '"' |
207 | # context => 'String' |
208 | # type => 'DetectChar' |
209 | if ($self->testDetectChar($text, '"', 0, 0, 0, undef, 0, 'String', 'String')) { |
210 | return 1 |
211 | } |
212 | return 0; |
213 | }; |
214 | |
215 | sub parseString { |
216 | my ($self, $text) = @_; |
217 | # attribute => 'String' |
218 | # context => '#stay' |
219 | # type => 'HlCStringChar' |
220 | if ($self->testHlCStringChar($text, 0, undef, 0, '#stay', 'String')) { |
221 | return 1 |
222 | } |
223 | # String => '%[a-zA-Z]' |
224 | # attribute => 'Operator' |
225 | # context => '#stay' |
226 | # type => 'RegExpr' |
227 | if ($self->testRegExpr($text, '%[a-zA-Z]', 0, 0, 0, undef, 0, '#stay', 'Operator')) { |
228 | return 1 |
229 | } |
230 | # attribute => 'String' |
231 | # char => '"' |
232 | # context => '#pop' |
233 | # type => 'DetectChar' |
234 | if ($self->testDetectChar($text, '"', 0, 0, 0, undef, 0, '#pop', 'String')) { |
235 | return 1 |
236 | } |
237 | return 0; |
238 | }; |
239 | |
240 | |
241 | 1; |
242 | |
243 | __END__ |
244 | |
245 | =head1 NAME |
246 | |
247 | Syntax::Highlight::Engine::Kate::De_DE - a Plugin for de_DE syntax highlighting |
248 | |
249 | =head1 SYNOPSIS |
250 | |
251 | require Syntax::Highlight::Engine::Kate::De_DE; |
252 | my $sh = new Syntax::Highlight::Engine::Kate::De_DE([ |
253 | ]); |
254 | |
255 | =head1 DESCRIPTION |
256 | |
257 | Syntax::Highlight::Engine::Kate::De_DE is a plugin module that provides syntax highlighting |
258 | for de_DE to the Syntax::Haghlight::Engine::Kate highlighting engine. |
259 | |
260 | This code is generated from the syntax definition files used |
261 | by the Kate project. |
262 | It works quite fine, but can use refinement and optimization. |
263 | |
264 | It inherits Syntax::Higlight::Engine::Kate::Template. See also there. |
265 | |
266 | =cut |
267 | |
268 | =head1 AUTHOR |
269 | |
270 | Hans Jeuken (haje <at> toneel <dot> demon <dot> nl) |
271 | |
272 | =cut |
273 | |
274 | =head1 BUGS |
275 | |
276 | Unknown. If you find any, please contact the author |
277 | |
278 | =cut |
279 | |