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.
5 # This file was generated from the 'logohighlightstyle.en_US.xml' file of the syntax highlight
6 # engine of the kate text editor (http://www.kate-editor.org
10 #generated: Sun Feb 3 22:02:04 2008, localtime
12 package Syntax::Highlight::Engine::Kate::En_US;
14 our $VERSION = '0.06';
18 use base('Syntax::Highlight::Engine::Kate::Template');
22 my $class = ref($proto) || $proto;
23 my $self = $class->SUPER::new(@_);
25 'Boolean Operators' => 'BString',
26 'Comment' => 'Comment',
27 'Execution Controllers' => 'BaseN',
28 'Expressers' => 'Datatype',
29 'MetaFunctions' => 'Function',
31 'Normal Text' => 'Normal',
33 'Operator' => 'Operator',
34 'Raw String' => 'String',
35 'Scopes' => 'RegionMarker',
36 'Statements' => 'Keyword',
39 $self->listAdd('boolops',
44 $self->listAdd('controllers',
59 $self->listAdd('metafunctions',
62 $self->listAdd('statements',
114 callback => \&parseNormal,
115 attribute => 'Normal Text',
118 callback => \&parseString,
119 attribute => 'String',
122 $self->deliminators('\\s||\\.|\\(|\\)|:|\\!|\\+|,|-|<|=|>|\\%|\\&|\\*|\\/|;|\\?|\\[|\\]|\\^|\\{|\\||\\}|\\~|\\\\');
123 $self->basecontext('Normal');
124 $self->keywordscase(0);
126 bless ($self, $class);
135 my ($self, $text) = @_;
136 # String => 'metafunctions'
137 # attribute => 'MetaFunctions'
140 if ($self->testKeyword($text, 'metafunctions', 0, undef, 0, '#stay', 'MetaFunctions')) {
143 # String => 'statements'
144 # attribute => 'Statements'
147 if ($self->testKeyword($text, 'statements', 0, undef, 0, '#stay', 'Statements')) {
150 # String => 'controllers'
151 # attribute => 'Execution Controllers'
154 if ($self->testKeyword($text, 'controllers', 0, undef, 0, '#stay', 'Execution Controllers')) {
157 # String => 'boolops'
158 # attribute => 'Boolean Operators'
161 if ($self->testKeyword($text, 'boolops', 0, undef, 0, '#stay', 'Boolean Operators')) {
164 # String => '([!=><][=]|[><])'
165 # attribute => 'Expressers'
168 if ($self->testRegExpr($text, '([!=><][=]|[><])', 0, 0, 0, undef, 0, '#stay', 'Expressers')) {
171 # String => '[a-zA-Z_][a-zA-Z_0-9]+'
172 # attribute => 'Normal'
175 if ($self->testRegExpr($text, '[a-zA-Z_][a-zA-Z_0-9]+', 0, 0, 0, undef, 0, '#stay', 'Normal')) {
178 # String => '([0-9]+\.[0-9]*|\.[0-9]+)?|[0-9]*'
179 # attribute => 'Number'
182 if ($self->testRegExpr($text, '([0-9]+\\.[0-9]*|\\.[0-9]+)?|[0-9]*', 0, 0, 0, undef, 0, '#stay', 'Number')) {
186 # attribute => 'Comment'
189 if ($self->testRegExpr($text, '#.*$', 0, 0, 0, undef, 0, '#stay', 'Comment')) {
192 # String => '[+*/\(\)-]'
193 # attribute => 'Operator'
196 if ($self->testRegExpr($text, '[+*/\\(\\)-]', 0, 0, 0, undef, 0, '#stay', 'Operator')) {
200 # attribute => 'Scopes'
203 if ($self->testRegExpr($text, '[\\[\\]]', 0, 0, 0, undef, 0, '#stay', 'Scopes')) {
206 # attribute => 'String'
208 # context => 'String'
209 # type => 'DetectChar'
210 if ($self->testDetectChar($text, '"', 0, 0, 0, undef, 0, 'String', 'String')) {
217 my ($self, $text) = @_;
218 # attribute => 'String'
220 # type => 'HlCStringChar'
221 if ($self->testHlCStringChar($text, 0, undef, 0, '#stay', 'String')) {
224 # String => '%[a-zA-Z]'
225 # attribute => 'Operator'
228 if ($self->testRegExpr($text, '%[a-zA-Z]', 0, 0, 0, undef, 0, '#stay', 'Operator')) {
231 # attribute => 'String'
234 # type => 'DetectChar'
235 if ($self->testDetectChar($text, '"', 0, 0, 0, undef, 0, '#pop', 'String')) {
248 Syntax::Highlight::Engine::Kate::En_US - a Plugin for en_US syntax highlighting
252 require Syntax::Highlight::Engine::Kate::En_US;
253 my $sh = new Syntax::Highlight::Engine::Kate::En_US([
258 Syntax::Highlight::Engine::Kate::En_US is a plugin module that provides syntax highlighting
259 for en_US to the Syntax::Haghlight::Engine::Kate highlighting engine.
261 This code is generated from the syntax definition files used
263 It works quite fine, but can use refinement and optimization.
265 It inherits Syntax::Higlight::Engine::Kate::Template. See also there.
271 Hans Jeuken (haje <at> toneel <dot> demon <dot> nl)
277 Unknown. If you find any, please contact the author