local-lib5/lib/perl5/Syntax/Highlight/Engine/Kate/Alerts.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 'alert.xml' file of the syntax highlight
   6 # engine of the kate text editor (http://www.kate-editor.org
   7
   8 #kate xml version 1.06
   9 #kate version 2.3
  10 #kate author Dominik Haumann (dhdev@gmx.de)
  11 #generated: Sun Feb  3 22:02:04 2008, localtime
  12
  13 package Syntax::Highlight::Engine::Kate::Alerts;
  14
  15 our $VERSION = '0.06';
  16
  17 use strict;
  18 use warnings;
  19 use base('Syntax::Highlight::Engine::Kate::Template');
  20
  21 sub new {
  22    my $proto = shift;
  23    my $class = ref($proto) || $proto;
  24    my $self = $class->SUPER::new(@_);
  25    $self->attributes({
  26       'Alert' => 'Alert',
  27       'Normal Text' => 'Normal',
  28    });
  29    $self->listAdd('alerts',
  30       '###',
  31       'FIXME',
  32       'HACK',
  33       'NOTE',
  34       'NOTICE',
  35       'TASK',
  36       'TODO',
  37    );
  38    $self->contextdata({
  39       'Normal Text' => {
  40          callback => \&parseNormalText,
  41          attribute => 'Normal Text',
  42          lineending => '#pop',
  43       },
  44    });
  45    $self->deliminators('\\s||\\.|\\(|\\)|:|\\!|\\+|,|-|<|=|>|\\%|\\&|\\*|\\/|;|\\?|\\[|\\]|\\^|\\{|\\||\\}|\\~|\\\\');
  46    $self->basecontext('Normal Text');
  47    $self->keywordscase(0);
  48    $self->initialize;
  49    bless ($self, $class);
  50    return $self;
  51 }
  52
  53 sub language {
  54    return 'Alerts';
  55 }
  56
  57 sub parseNormalText {
  58    my ($self, $text) = @_;
  59    # String => 'alerts'
  60    # attribute => 'Alert'
  61    # context => '#stay'
  62    # type => 'keyword'
  63    if ($self->testKeyword($text, 'alerts', 0, undef, 0, '#stay', 'Alert')) {
  64       return 1
  65    }
  66    return 0;
  67 };
  68
  69
  70 1;
  71
  72 __END__
  73
  74 =head1 NAME
  75
  76 Syntax::Highlight::Engine::Kate::Alerts - a Plugin for Alerts syntax highlighting
  77
  78 =head1 SYNOPSIS
  79
  80  require Syntax::Highlight::Engine::Kate::Alerts;
  81  my $sh = new Syntax::Highlight::Engine::Kate::Alerts([
  82  ]);
  83
  84 =head1 DESCRIPTION
  85
  86 Syntax::Highlight::Engine::Kate::Alerts is a  plugin module that provides syntax highlighting
  87 for Alerts to the Syntax::Haghlight::Engine::Kate highlighting engine.
  88
  89 This code is generated from the syntax definition files used
  90 by the Kate project.
  91 It works quite fine, but can use refinement and optimization.
  92
  93 It inherits Syntax::Higlight::Engine::Kate::Template. See also there.
  94
  95 =cut
  96
  97 =head1 AUTHOR
  98
  99 Hans Jeuken (haje <at> toneel <dot> demon <dot> nl)
 100
 101 =cut
 102
 103 =head1 BUGS
 104
 105 Unknown. If you find any, please contact the author
 106
 107 =cut
 108