local-lib5/lib/perl5/Syntax/Highlight/Engine/Kate/Xorg_Configuration.pm

   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 'xorg.xml' file of the syntax highlight
   6 # engine of the kate text editor (http://www.kate-editor.org
   7
   8 #kate xml version 1.01
   9 #kate author Jan Janssen (medhefgo@web.de)
  10 #generated: Sun Feb  3 22:02:06 2008, localtime
  11
  12 package Syntax::Highlight::Engine::Kate::Xorg_Configuration;
  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       'Alert' => 'Error',
  26       'Comment' => 'Comment',
  27       'Float' => 'Float',
  28       'Int' => 'DecVal',
  29       'Keyword' => 'Keyword',
  30       'Normal Text' => 'Normal',
  31       'Section' => 'Function',
  32       'Section Name' => 'String',
  33       'Value' => 'DataType',
  34       'Value2' => 'Others',
  35    });
  36    $self->contextdata({
  37       'Comment' => {
  38          callback => \&parseComment,
  39          attribute => 'Comment',
  40          lineending => '#pop',
  41       },
  42       'Keyword' => {
  43          callback => \&parseKeyword,
  44          attribute => 'Keyword',
  45          lineending => '#pop',
  46       },
  47       'Section' => {
  48          callback => \&parseSection,
  49          attribute => 'Normal Text',
  50       },
  51       'Section Content' => {
  52          callback => \&parseSectionContent,
  53          attribute => 'Normal Text',
  54       },
  55       'xorg' => {
  56          callback => \&parsexorg,
  57          attribute => 'Normal Text',
  58       },
  59    });
  60    $self->deliminators('\\s||\\.|\\(|\\)|:|\\!|\\+|,|-|<|=|>|\\%|\\&|\\*|\\/|;|\\?|\\[|\\]|\\^|\\{|\\||\\}|\\~|\\\\');
  61    $self->basecontext('xorg');
  62    $self->keywordscase(1);
  63    $self->initialize;
  64    bless ($self, $class);
  65    return $self;
  66 }
  67
  68 sub language {
  69    return 'x.org Configuration';
  70 }
  71
  72 sub parseComment {
  73    my ($self, $text) = @_;
  74    # type => 'DetectSpaces'
  75    if ($self->testDetectSpaces($text, 0, undef, 0, '#stay', undef)) {
  76       return 1
  77    }
  78    # context => '##Alerts'
  79    # type => 'IncludeRules'
  80    if ($self->includePlugin('Alerts', $text)) {
  81       return 1
  82    }
  83    # type => 'DetectIdentifier'
  84    if ($self->testDetectIdentifier($text, 0, undef, 0, '#stay', undef)) {
  85       return 1
  86    }
  87    return 0;
  88 };
  89
  90 sub parseKeyword {
  91    my ($self, $text) = @_;
  92    # attribute => 'Value'
  93    # char => '"'
  94    # char1 => '"'
  95    # type => 'RangeDetect'
  96    if ($self->testRangeDetect($text, '"', '"', 0, 0, undef, 0, '#stay', 'Value')) {
  97       return 1
  98    }
  99    # attribute => 'Value'
 100    # char => '''
 101    # char1 => '''
 102    # type => 'RangeDetect'
 103    if ($self->testRangeDetect($text, '\'', '\'', 0, 0, undef, 0, '#stay', 'Value')) {
 104       return 1
 105    }
 106    # attribute => 'Float'
 107    # type => 'Float'
 108    if ($self->testFloat($text, 0, undef, 0, '#stay', 'Float')) {
 109       return 1
 110    }
 111    # attribute => 'Int'
 112    # type => 'Int'
 113    if ($self->testInt($text, 0, undef, 0, '#stay', 'Int')) {
 114       return 1
 115    }
 116    # String => '[\w\d]+'
 117    # attribute => 'Value2'
 118    # type => 'RegExpr'
 119    if ($self->testRegExpr($text, '[\\w\\d]+', 0, 0, 0, undef, 0, '#stay', 'Value2')) {
 120       return 1
 121    }
 122    # char => '#'
 123    # context => 'Comment'
 124    # type => 'DetectChar'
 125    if ($self->testDetectChar($text, '#', 0, 0, 0, undef, 0, 'Comment', undef)) {
 126       return 1
 127    }
 128    return 0;
 129 };
 130
 131 sub parseSection {
 132    my ($self, $text) = @_;
 133    # attribute => 'Section Name'
 134    # char => '"'
 135    # char1 => '"'
 136    # context => 'Section Content'
 137    # type => 'RangeDetect'
 138    if ($self->testRangeDetect($text, '"', '"', 0, 0, undef, 0, 'Section Content', 'Section Name')) {
 139       return 1
 140    }
 141    # attribute => 'Section Name'
 142    # char => '''
 143    # char1 => '''
 144    # context => 'Section Content'
 145    # type => 'RangeDetect'
 146    if ($self->testRangeDetect($text, '\'', '\'', 0, 0, undef, 0, 'Section Content', 'Section Name')) {
 147       return 1
 148    }
 149    # attribute => 'Alert'
 150    # type => 'DetectIdentifier'
 151    if ($self->testDetectIdentifier($text, 0, undef, 0, '#stay', 'Alert')) {
 152       return 1
 153    }
 154    # char => '#'
 155    # context => 'Comment'
 156    # type => 'DetectChar'
 157    if ($self->testDetectChar($text, '#', 0, 0, 0, undef, 0, 'Comment', undef)) {
 158       return 1
 159    }
 160    return 0;
 161 };
 162
 163 sub parseSectionContent {
 164    my ($self, $text) = @_;
 165    # String => 'EndSection'
 166    # attribute => 'Section'
 167    # context => '#pop#pop'
 168    # endRegion => 'Section'
 169    # insensitive => 'true'
 170    # type => 'StringDetect'
 171    if ($self->testStringDetect($text, 'EndSection', 1, 0, 0, undef, 0, '#pop#pop', 'Section')) {
 172       return 1
 173    }
 174    # String => 'EndSubSection'
 175    # attribute => 'Section'
 176    # context => '#pop#pop'
 177    # endRegion => 'SubSection'
 178    # insensitive => 'true'
 179    # type => 'StringDetect'
 180    if ($self->testStringDetect($text, 'EndSubSection', 1, 0, 0, undef, 0, '#pop#pop', 'Section')) {
 181       return 1
 182    }
 183    # String => 'SubSection'
 184    # attribute => 'Section'
 185    # beginRegion => 'SubSection'
 186    # context => 'Section'
 187    # insensitive => 'true'
 188    # type => 'StringDetect'
 189    if ($self->testStringDetect($text, 'SubSection', 1, 0, 0, undef, 0, 'Section', 'Section')) {
 190       return 1
 191    }
 192    # String => '\b\w+\b'
 193    # context => 'Keyword'
 194    # type => 'RegExpr'
 195    if ($self->testRegExpr($text, '\\b\\w+\\b', 0, 0, 0, undef, 0, 'Keyword', undef)) {
 196       return 1
 197    }
 198    # char => '#'
 199    # context => 'Comment'
 200    # type => 'DetectChar'
 201    if ($self->testDetectChar($text, '#', 0, 0, 0, undef, 0, 'Comment', undef)) {
 202       return 1
 203    }
 204    return 0;
 205 };
 206
 207 sub parsexorg {
 208    my ($self, $text) = @_;
 209    # String => 'Section'
 210    # attribute => 'Section'
 211    # beginRegion => 'Section'
 212    # context => 'Section'
 213    # insensitive => 'true'
 214    # type => 'StringDetect'
 215    if ($self->testStringDetect($text, 'Section', 1, 0, 0, undef, 0, 'Section', 'Section')) {
 216       return 1
 217    }
 218    # char => '#'
 219    # context => 'Comment'
 220    # type => 'DetectChar'
 221    if ($self->testDetectChar($text, '#', 0, 0, 0, undef, 0, 'Comment', undef)) {
 222       return 1
 223    }
 224    return 0;
 225 };
 226
 227
 228 1;
 229
 230 __END__
 231
 232 =head1 NAME
 233
 234 Syntax::Highlight::Engine::Kate::Xorg_Configuration - a Plugin for x.org Configuration syntax highlighting
 235
 236 =head1 SYNOPSIS
 237
 238  require Syntax::Highlight::Engine::Kate::Xorg_Configuration;
 239  my $sh = new Syntax::Highlight::Engine::Kate::Xorg_Configuration([
 240  ]);
 241
 242 =head1 DESCRIPTION
 243
 244 Syntax::Highlight::Engine::Kate::Xorg_Configuration is a  plugin module that provides syntax highlighting
 245 for x.org Configuration to the Syntax::Haghlight::Engine::Kate highlighting engine.
 246
 247 This code is generated from the syntax definition files used
 248 by the Kate project.
 249 It works quite fine, but can use refinement and optimization.
 250
 251 It inherits Syntax::Higlight::Engine::Kate::Template. See also there.
 252
 253 =cut
 254
 255 =head1 AUTHOR
 256
 257 Hans Jeuken (haje <at> toneel <dot> demon <dot> nl)
 258
 259 =cut
 260
 261 =head1 BUGS
 262
 263 Unknown. If you find any, please contact the author
 264
 265 =cut
 266