[catagits/Gitalist.git] / local-lib5 / lib / perl5 / Syntax / Highlight / Engine / Kate / Wikimedia.pm

# Copyright (c) 2005 - 2006 Hans Jeuken. All rights reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.

# This file was generated from the 'mediawiki.xml' file of the syntax highlight
# engine of the kate text editor (http://www.kate-editor.org

#kate xml version 1.00
#kate version 2.4
#generated: Sun Feb  3 22:02:06 2008, localtime

package Syntax::Highlight::Engine::Kate::Wikimedia;

our $VERSION = '0.06';

use strict;
use warnings;
use base('Syntax::Highlight::Engine::Kate::Template');

sub new {
   my $proto = shift;
   my $class = ref($proto) || $proto;
   my $self = $class->SUPER::new(@_);
   $self->attributes({
      'Comment' => 'Comment',
      'Error' => 'Error',
      'HTML-Entity' => 'DecVal',
      'HTML-Tag' => 'Keyword',
      'Link' => 'Others',
      'NoWiki' => 'Normal',
      'Normal' => 'Normal',
      'Section' => 'Keyword',
      'URL' => 'Others',
      'Unformatted' => 'Normal',
      'Wiki-Tag' => 'DecVal',
   });
   $self->contextdata({
      'Error' => {
         callback => \&parseError,
         attribute => 'Error',
         lineending => '#pop',
      },
      'Link' => {
         callback => \&parseLink,
         attribute => 'Template',
      },
      'NoWiki' => {
         callback => \&parseNoWiki,
         attribute => 'NoWiki',
      },
      'Pre' => {
         callback => \&parsePre,
         attribute => 'NoWiki',
      },
      'Table' => {
         callback => \&parseTable,
         attribute => 'Normal',
      },
      'Template' => {
         callback => \&parseTemplate,
         attribute => 'Link',
      },
      'URL' => {
         callback => \&parseURL,
         attribute => 'Link',
      },
      'Unformatted' => {
         callback => \&parseUnformatted,
         attribute => 'Unformatted',
         lineending => '#pop',
      },
      'WikiLink' => {
         callback => \&parseWikiLink,
         attribute => 'Link',
      },
      'comment' => {
         callback => \&parsecomment,
         attribute => 'Comment',
      },
      'normal' => {
         callback => \&parsenormal,
         attribute => 'Normal',
      },
   });
   $self->deliminators('\\s||\\.|\\(|\\)|:|\\!|\\+|,|-|<|=|>|\\%|\\&|\\*|\\/|;|\\?|\\[|\\]|\\^|\\{|\\||\\}|\\~|\\\\');
   $self->basecontext('normal');
   $self->keywordscase(0);
   $self->initialize;
   bless ($self, $class);
   return $self;
}

sub language {
   return 'Wikimedia';
}

sub parseError {
   my ($self, $text) = @_;
   return 0;
};

sub parseLink {
   my ($self, $text) = @_;
   # attribute => 'Wiki-Tag'
   # char => '}'
   # char1 => '}'
   # context => '#pop'
   # type => 'Detect2Chars'
   if ($self->testDetect2Chars($text, '}', '}', 0, 0, 0, undef, 0, '#pop', 'Wiki-Tag')) {
      return 1
   }
   # String => ''[]'
   # attribute => 'Error'
   # context => 'Error'
   # type => 'AnyChar'
   if ($self->testAnyChar($text, '\'[]', 0, 0, undef, 0, 'Error', 'Error')) {
      return 1
   }
   return 0;
};

sub parseNoWiki {
   my ($self, $text) = @_;
   # String => '<!--[^-]*-->'
   # attribute => 'NoWiki'
   # type => 'RegExpr'
   if ($self->testRegExpr($text, '<!--[^-]*-->', 0, 0, 0, undef, 0, '#stay', 'NoWiki')) {
      return 1
   }
   # String => '</nowiki>'
   # attribute => 'Wiki-Tag'
   # context => '#pop'
   # type => 'StringDetect'
   if ($self->testStringDetect($text, '</nowiki>', 0, 0, 0, undef, 0, '#pop', 'Wiki-Tag')) {
      return 1
   }
   # String => '[<][^>]+[>]'
   # attribute => 'HTML-Tag'
   # context => '#stay'
   # type => 'RegExpr'
   if ($self->testRegExpr($text, '[<][^>]+[>]', 0, 0, 0, undef, 0, '#stay', 'HTML-Tag')) {
      return 1
   }
   # String => '<pre>'
   # attribute => 'HTML-Tag'
   # context => 'Pre'
   # type => 'StringDetect'
   if ($self->testStringDetect($text, '<pre>', 0, 0, 0, undef, 0, 'Pre', 'HTML-Tag')) {
      return 1
   }
   return 0;
};

sub parsePre {
   my ($self, $text) = @_;
   # String => '</pre>'
   # attribute => 'Wiki-Tag'
   # context => '#pop'
   # type => 'StringDetect'
   if ($self->testStringDetect($text, '</pre>', 0, 0, 0, undef, 0, '#pop', 'Wiki-Tag')) {
      return 1
   }
   return 0;
};

sub parseTable {
   my ($self, $text) = @_;
   # String => '<!--'
   # attribute => 'Comment'
   # context => 'comment'
   # type => 'StringDetect'
   if ($self->testStringDetect($text, '<!--', 0, 0, 0, undef, 0, 'comment', 'Comment')) {
      return 1
   }
   # String => '([=]{2,2}[^=]+[=]{2,2}|[=]{3,3}[^=]+[=]{3,3}|[=]{4,4}[^=]+[=]{4,4}|[=]{5,5}[^=]+[=]{5,5})'
   # attribute => 'Section'
   # column => '0'
   # context => '#stay'
   # type => 'RegExpr'
   if ($self->testRegExpr($text, '([=]{2,2}[^=]+[=]{2,2}|[=]{3,3}[^=]+[=]{3,3}|[=]{4,4}[^=]+[=]{4,4}|[=]{5,5}[^=]+[=]{5,5})', 0, 0, 0, 0, 0, '#stay', 'Section')) {
      return 1
   }
   # String => '[*#;:\s]*[*#:]+'
   # attribute => 'Wiki-Tag'
   # column => '0'
   # context => '#stay'
   # type => 'RegExpr'
   if ($self->testRegExpr($text, '[*#;:\\s]*[*#:]+', 0, 0, 0, 0, 0, '#stay', 'Wiki-Tag')) {
      return 1
   }
   # String => '[[](?![[])'
   # attribute => 'Wiki-Tag'
   # context => 'URL'
   # type => 'RegExpr'
   if ($self->testRegExpr($text, '[[](?![[])', 0, 0, 0, undef, 0, 'URL', 'Wiki-Tag')) {
      return 1
   }
   # String => '(http:|ftp:|mailto:)[\S]*($|[\s])'
   # attribute => 'URL'
   # context => '#stay'
   # type => 'RegExpr'
   if ($self->testRegExpr($text, '(http:|ftp:|mailto:)[\\S]*($|[\\s])', 0, 0, 0, undef, 0, '#stay', 'URL')) {
      return 1
   }
   # String => '[']{2,}'
   # attribute => 'Wiki-Tag'
   # context => '#stay'
   # type => 'RegExpr'
   if ($self->testRegExpr($text, '[\']{2,}', 0, 0, 0, undef, 0, '#stay', 'Wiki-Tag')) {
      return 1
   }
   # attribute => 'Wiki-Tag'
   # char => '|'
   # char1 => '}'
   # column => '0'
   # context => '#pop'
   # endRegion => 'table'
   # type => 'Detect2Chars'
   if ($self->testDetect2Chars($text, '|', '}', 0, 0, 0, 0, 0, '#pop', 'Wiki-Tag')) {
      return 1
   }
   # attribute => 'Wiki-Tag'
   # char => '|'
   # context => '#stay'
   # type => 'DetectChar'
   if ($self->testDetectChar($text, '|', 0, 0, 0, undef, 0, '#stay', 'Wiki-Tag')) {
      return 1
   }
   # attribute => 'Wiki-Tag'
   # char => '{'
   # char1 => '{'
   # context => 'Template'
   # type => 'Detect2Chars'
   if ($self->testDetect2Chars($text, '{', '{', 0, 0, 0, undef, 0, 'Template', 'Wiki-Tag')) {
      return 1
   }
   # attribute => 'Wiki-Tag'
   # char => '['
   # char1 => '['
   # context => 'WikiLink'
   # type => 'Detect2Chars'
   if ($self->testDetect2Chars($text, '[', '[', 0, 0, 0, undef, 0, 'WikiLink', 'Wiki-Tag')) {
      return 1
   }
   # attribute => 'HTML-Entity'
   # char => '&'
   # char1 => ';'
   # context => '#stay'
   # type => 'RangeDetect'
   if ($self->testRangeDetect($text, '&', ';', 0, 0, undef, 0, '#stay', 'HTML-Entity')) {
      return 1
   }
   # String => '<nowiki>'
   # attribute => 'Wiki-Tag'
   # context => 'NoWiki'
   # type => 'StringDetect'
   if ($self->testStringDetect($text, '<nowiki>', 0, 0, 0, undef, 0, 'NoWiki', 'Wiki-Tag')) {
      return 1
   }
   # String => '<pre>'
   # attribute => 'HTML-Tag'
   # context => 'Pre'
   # type => 'StringDetect'
   if ($self->testStringDetect($text, '<pre>', 0, 0, 0, undef, 0, 'Pre', 'HTML-Tag')) {
      return 1
   }
   # String => '[<][^>]+[>]'
   # attribute => 'HTML-Tag'
   # context => '#stay'
   # type => 'RegExpr'
   if ($self->testRegExpr($text, '[<][^>]+[>]', 0, 0, 0, undef, 0, '#stay', 'HTML-Tag')) {
      return 1
   }
   # String => '[\s]'
   # column => '0'
   # context => 'Unformatted'
   # type => 'RegExpr'
   if ($self->testRegExpr($text, '[\\s]', 0, 0, 0, 0, 0, 'Unformatted', undef)) {
      return 1
   }
   # String => '[~]{3,4}'
   # attribute => 'Wiki-Tag'
   # context => '#stay'
   # type => 'RegExpr'
   if ($self->testRegExpr($text, '[~]{3,4}', 0, 0, 0, undef, 0, '#stay', 'Wiki-Tag')) {
      return 1
   }
   # String => '[-]{4,}'
   # attribute => 'Wiki-Tag'
   # context => '#stay'
   # type => 'RegExpr'
   if ($self->testRegExpr($text, '[-]{4,}', 0, 0, 0, undef, 0, '#stay', 'Wiki-Tag')) {
      return 1
   }
   # attribute => 'Wiki-Tag'
   # char => '!'
   # column => '0'
   # context => '#stay'
   # type => 'DetectChar'
   if ($self->testDetectChar($text, '!', 0, 0, 0, 0, 0, '#stay', 'Wiki-Tag')) {
      return 1
   }
   return 0;
};

sub parseTemplate {
   my ($self, $text) = @_;
   # attribute => 'Wiki-Tag'
   # char => '}'
   # char1 => '}'
   # context => '#pop'
   # type => 'Detect2Chars'
   if ($self->testDetect2Chars($text, '}', '}', 0, 0, 0, undef, 0, '#pop', 'Wiki-Tag')) {
      return 1
   }
   # attribute => 'Error'
   # char => '''
   # context => 'Error'
   # type => 'DetectChar'
   if ($self->testDetectChar($text, '\'', 0, 0, 0, undef, 0, 'Error', 'Error')) {
      return 1
   }
   return 0;
};

sub parseURL {
   my ($self, $text) = @_;
   # attribute => 'Wiki-Tag'
   # char => ']'
   # context => '#pop'
   # type => 'DetectChar'
   if ($self->testDetectChar($text, ']', 0, 0, 0, undef, 0, '#pop', 'Wiki-Tag')) {
      return 1
   }
   # attribute => 'Error'
   # char => '''
   # context => 'Error'
   # type => 'DetectChar'
   if ($self->testDetectChar($text, '\'', 0, 0, 0, undef, 0, 'Error', 'Error')) {
      return 1
   }
   return 0;
};

sub parseUnformatted {
   my ($self, $text) = @_;
   return 0;
};

sub parseWikiLink {
   my ($self, $text) = @_;
   # attribute => 'Wiki-Tag'
   # char => '|'
   # context => '#stay'
   # type => 'DetectChar'
   if ($self->testDetectChar($text, '|', 0, 0, 0, undef, 0, '#stay', 'Wiki-Tag')) {
      return 1
   }
   # attribute => 'Wiki-Tag'
   # char => ']'
   # char1 => ']'
   # context => '#pop'
   # type => 'Detect2Chars'
   if ($self->testDetect2Chars($text, ']', ']', 0, 0, 0, undef, 0, '#pop', 'Wiki-Tag')) {
      return 1
   }
   # attribute => 'Error'
   # char => '''
   # context => 'Error'
   # type => 'DetectChar'
   if ($self->testDetectChar($text, '\'', 0, 0, 0, undef, 0, 'Error', 'Error')) {
      return 1
   }
   return 0;
};

sub parsecomment {
   my ($self, $text) = @_;
   # String => '-->'
   # attribute => 'Comment'
   # context => '#pop'
   # endRegion => 'comment'
   # type => 'StringDetect'
   if ($self->testStringDetect($text, '-->', 0, 0, 0, undef, 0, '#pop', 'Comment')) {
      return 1
   }
   return 0;
};

sub parsenormal {
   my ($self, $text) = @_;
   # String => '<!--'
   # attribute => 'Comment'
   # beginRegion => 'comment'
   # context => 'comment'
   # type => 'StringDetect'
   if ($self->testStringDetect($text, '<!--', 0, 0, 0, undef, 0, 'comment', 'Comment')) {
      return 1
   }
   # String => '([=]{2,2}[^=]+[=]{2,2}|[=]{3,3}[^=]+[=]{3,3}|[=]{4,4}[^=]+[=]{4,4}|[=]{5,5}[^=]+[=]{5,5})'
   # attribute => 'Section'
   # column => '0'
   # type => 'RegExpr'
   if ($self->testRegExpr($text, '([=]{2,2}[^=]+[=]{2,2}|[=]{3,3}[^=]+[=]{3,3}|[=]{4,4}[^=]+[=]{4,4}|[=]{5,5}[^=]+[=]{5,5})', 0, 0, 0, 0, 0, '#stay', 'Section')) {
      return 1
   }
   # String => '[~]{3,4}'
   # attribute => 'Wiki-Tag'
   # context => '#stay'
   # type => 'RegExpr'
   if ($self->testRegExpr($text, '[~]{3,4}', 0, 0, 0, undef, 0, '#stay', 'Wiki-Tag')) {
      return 1
   }
   # String => '[*#;:\s]*[*#:]+'
   # attribute => 'Wiki-Tag'
   # column => '0'
   # context => '#stay'
   # type => 'RegExpr'
   if ($self->testRegExpr($text, '[*#;:\\s]*[*#:]+', 0, 0, 0, 0, 0, '#stay', 'Wiki-Tag')) {
      return 1
   }
   # String => '[[](?![[])'
   # attribute => 'Wiki-Tag'
   # context => 'URL'
   # type => 'RegExpr'
   if ($self->testRegExpr($text, '[[](?![[])', 0, 0, 0, undef, 0, 'URL', 'Wiki-Tag')) {
      return 1
   }
   # String => '(http:|ftp:|mailto:)[\S]*($|[\s])'
   # attribute => 'URL'
   # context => '#stay'
   # type => 'RegExpr'
   if ($self->testRegExpr($text, '(http:|ftp:|mailto:)[\\S]*($|[\\s])', 0, 0, 0, undef, 0, '#stay', 'URL')) {
      return 1
   }
   # String => '[']{2,}'
   # attribute => 'Wiki-Tag'
   # context => '#stay'
   # type => 'RegExpr'
   if ($self->testRegExpr($text, '[\']{2,}', 0, 0, 0, undef, 0, '#stay', 'Wiki-Tag')) {
      return 1
   }
   # attribute => 'Wiki-Tag'
   # beginRegion => 'table'
   # char => '{'
   # char1 => '|'
   # column => '0'
   # context => 'Table'
   # type => 'Detect2Chars'
   if ($self->testDetect2Chars($text, '{', '|', 0, 0, 0, 0, 0, 'Table', 'Wiki-Tag')) {
      return 1
   }
   # attribute => 'Wiki-Tag'
   # char => '{'
   # char1 => '{'
   # context => 'Template'
   # type => 'Detect2Chars'
   if ($self->testDetect2Chars($text, '{', '{', 0, 0, 0, undef, 0, 'Template', 'Wiki-Tag')) {
      return 1
   }
   # attribute => 'Wiki-Tag'
   # char => '['
   # char1 => '['
   # context => 'WikiLink'
   # type => 'Detect2Chars'
   if ($self->testDetect2Chars($text, '[', '[', 0, 0, 0, undef, 0, 'WikiLink', 'Wiki-Tag')) {
      return 1
   }
   # attribute => 'HTML-Entity'
   # char => '&'
   # char1 => ';'
   # context => '#stay'
   # type => 'RangeDetect'
   if ($self->testRangeDetect($text, '&', ';', 0, 0, undef, 0, '#stay', 'HTML-Entity')) {
      return 1
   }
   # String => '<nowiki>'
   # attribute => 'Wiki-Tag'
   # context => 'NoWiki'
   # type => 'StringDetect'
   if ($self->testStringDetect($text, '<nowiki>', 0, 0, 0, undef, 0, 'NoWiki', 'Wiki-Tag')) {
      return 1
   }
   # String => '<pre>'
   # attribute => 'HTML-Tag'
   # context => 'Pre'
   # type => 'StringDetect'
   if ($self->testStringDetect($text, '<pre>', 0, 0, 0, undef, 0, 'Pre', 'HTML-Tag')) {
      return 1
   }
   # String => '[<][^>]+[>]'
   # attribute => 'HTML-Tag'
   # context => '#stay'
   # type => 'RegExpr'
   if ($self->testRegExpr($text, '[<][^>]+[>]', 0, 0, 0, undef, 0, '#stay', 'HTML-Tag')) {
      return 1
   }
   # String => '[\s]'
   # column => '0'
   # context => 'Unformatted'
   # type => 'RegExpr'
   if ($self->testRegExpr($text, '[\\s]', 0, 0, 0, 0, 0, 'Unformatted', undef)) {
      return 1
   }
   return 0;
};


1;

__END__

=head1 NAME

Syntax::Highlight::Engine::Kate::Wikimedia - a Plugin for Wikimedia syntax highlighting

=head1 SYNOPSIS

 require Syntax::Highlight::Engine::Kate::Wikimedia;
 my $sh = new Syntax::Highlight::Engine::Kate::Wikimedia([
 ]);

=head1 DESCRIPTION

Syntax::Highlight::Engine::Kate::Wikimedia is a  plugin module that provides syntax highlighting
for Wikimedia to the Syntax::Haghlight::Engine::Kate highlighting engine.

This code is generated from the syntax definition files used
by the Kate project.
It works quite fine, but can use refinement and optimization.

It inherits Syntax::Higlight::Engine::Kate::Template. See also there.

=cut

=head1 AUTHOR

Hans Jeuken (haje <at> toneel <dot> demon <dot> nl)

=cut

=head1 BUGS

Unknown. If you find any, please contact the author

=cut
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 'mediawiki.xml' file of the syntax highlight
	6	# engine of the kate text editor (http://www.kate-editor.org
	7
	8	#kate xml version 1.00
	9	#kate version 2.4
	10	#generated: Sun Feb 3 22:02:06 2008, localtime
	11
	12	package Syntax::Highlight::Engine::Kate::Wikimedia;
	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	'Comment' => 'Comment',
	26	'Error' => 'Error',
	27	'HTML-Entity' => 'DecVal',
	28	'HTML-Tag' => 'Keyword',
	29	'Link' => 'Others',
	30	'NoWiki' => 'Normal',
	31	'Normal' => 'Normal',
	32	'Section' => 'Keyword',
	33	'URL' => 'Others',
	34	'Unformatted' => 'Normal',
	35	'Wiki-Tag' => 'DecVal',
	36	});
	37	$self->contextdata({
	38	'Error' => {
	39	callback => \&parseError,
	40	attribute => 'Error',
	41	lineending => '#pop',
	42	},
	43	'Link' => {
	44	callback => \&parseLink,
	45	attribute => 'Template',
	46	},
	47	'NoWiki' => {
	48	callback => \&parseNoWiki,
	49	attribute => 'NoWiki',
	50	},
	51	'Pre' => {
	52	callback => \&parsePre,
	53	attribute => 'NoWiki',
	54	},
	55	'Table' => {
	56	callback => \&parseTable,
	57	attribute => 'Normal',
	58	},
	59	'Template' => {
	60	callback => \&parseTemplate,
	61	attribute => 'Link',
	62	},
	63	'URL' => {
	64	callback => \&parseURL,
65	attribute => 'Link',
66	},
67	'Unformatted' => {
68	callback => \&parseUnformatted,
69	attribute => 'Unformatted',
70	lineending => '#pop',
71	},
72	'WikiLink' => {
73	callback => \&parseWikiLink,
74	attribute => 'Link',
75	},
76	'comment' => {
77	callback => \&parsecomment,
78	attribute => 'Comment',
79	},
80	'normal' => {
81	callback => \&parsenormal,
82	attribute => 'Normal',
83	},
84	});
85	$self->deliminators('\\s\|\|\\.\|\\(\|\\)\|:\|\\!\|\\+\|,\|-\|<\|=\|>\|\\%\|\\&\|\\*\|\\/\|;\|\\?\|\\[\|\\]\|\\^\|\\{\|\\\|\|\\}\|\\~\|\\\\');
86	$self->basecontext('normal');
87	$self->keywordscase(0);
88	$self->initialize;
89	bless ($self, $class);
90	return $self;
91	}
92
93	sub language {
94	return 'Wikimedia';
95	}
96
97	sub parseError {
98	my ($self, $text) = @_;
99	return 0;
100	};
101
102	sub parseLink {
103	my ($self, $text) = @_;
104	# attribute => 'Wiki-Tag'
105	# char => '}'
106	# char1 => '}'
107	# context => '#pop'
108	# type => 'Detect2Chars'
109	if ($self->testDetect2Chars($text, '}', '}', 0, 0, 0, undef, 0, '#pop', 'Wiki-Tag')) {
110	return 1
111	}
112	# String => ''[]'
113	# attribute => 'Error'
114	# context => 'Error'
115	# type => 'AnyChar'
116	if ($self->testAnyChar($text, '\'[]', 0, 0, undef, 0, 'Error', 'Error')) {
117	return 1
118	}
119	return 0;
120	};
121
122	sub parseNoWiki {
123	my ($self, $text) = @_;
124	# String => '<!--[^-]*-->'
125	# attribute => 'NoWiki'
126	# type => 'RegExpr'
127	if ($self->testRegExpr($text, '<!--[^-]*-->', 0, 0, 0, undef, 0, '#stay', 'NoWiki')) {
128	return 1
129	}
130	# String => '</nowiki>'
131	# attribute => 'Wiki-Tag'
132	# context => '#pop'
133	# type => 'StringDetect'
134	if ($self->testStringDetect($text, '</nowiki>', 0, 0, 0, undef, 0, '#pop', 'Wiki-Tag')) {
135	return 1
136	}
137	# String => '[<][^>]+[>]'
138	# attribute => 'HTML-Tag'
139	# context => '#stay'
140	# type => 'RegExpr'
141	if ($self->testRegExpr($text, '[<][^>]+[>]', 0, 0, 0, undef, 0, '#stay', 'HTML-Tag')) {
142	return 1
143	}
144	# String => '<pre>'
145	# attribute => 'HTML-Tag'
146	# context => 'Pre'
147	# type => 'StringDetect'
148	if ($self->testStringDetect($text, '<pre>', 0, 0, 0, undef, 0, 'Pre', 'HTML-Tag')) {
149	return 1
150	}
151	return 0;
152	};
153
154	sub parsePre {
155	my ($self, $text) = @_;
156	# String => '</pre>'
157	# attribute => 'Wiki-Tag'
158	# context => '#pop'
159	# type => 'StringDetect'
160	if ($self->testStringDetect($text, '</pre>', 0, 0, 0, undef, 0, '#pop', 'Wiki-Tag')) {
161	return 1
162	}
163	return 0;
164	};
165
166	sub parseTable {
167	my ($self, $text) = @_;
168	# String => '<!--'
169	# attribute => 'Comment'
170	# context => 'comment'
171	# type => 'StringDetect'
172	if ($self->testStringDetect($text, '<!--', 0, 0, 0, undef, 0, 'comment', 'Comment')) {
173	return 1
174	}
175	# String => '([=]{2,2}[^=]+[=]{2,2}\|[=]{3,3}[^=]+[=]{3,3}\|[=]{4,4}[^=]+[=]{4,4}\|[=]{5,5}[^=]+[=]{5,5})'
176	# attribute => 'Section'
177	# column => '0'
178	# context => '#stay'
179	# type => 'RegExpr'
180	if ($self->testRegExpr($text, '([=]{2,2}[^=]+[=]{2,2}\|[=]{3,3}[^=]+[=]{3,3}\|[=]{4,4}[^=]+[=]{4,4}\|[=]{5,5}[^=]+[=]{5,5})', 0, 0, 0, 0, 0, '#stay', 'Section')) {
181	return 1
182	}
183	# String => '[#;:\s][*#:]+'
184	# attribute => 'Wiki-Tag'
185	# column => '0'
186	# context => '#stay'
187	# type => 'RegExpr'
188	if ($self->testRegExpr($text, '[#;:\\s][*#:]+', 0, 0, 0, 0, 0, '#stay', 'Wiki-Tag')) {
189	return 1
190	}
191	# String => '[[](?![[])'
192	# attribute => 'Wiki-Tag'
193	# context => 'URL'
194	# type => 'RegExpr'
195	if ($self->testRegExpr($text, '[[](?![[])', 0, 0, 0, undef, 0, 'URL', 'Wiki-Tag')) {
196	return 1
197	}
198	# String => '(http:\|ftp:\|mailto:)[\S]*($\|[\s])'
199	# attribute => 'URL'
200	# context => '#stay'
201	# type => 'RegExpr'
202	if ($self->testRegExpr($text, '(http:\|ftp:\|mailto:)[\\S]*($\|[\\s])', 0, 0, 0, undef, 0, '#stay', 'URL')) {
203	return 1
204	}
205	# String => '[']{2,}'
206	# attribute => 'Wiki-Tag'
207	# context => '#stay'
208	# type => 'RegExpr'
209	if ($self->testRegExpr($text, '[\']{2,}', 0, 0, 0, undef, 0, '#stay', 'Wiki-Tag')) {
210	return 1
211	}
212	# attribute => 'Wiki-Tag'
213	# char => '\|'
214	# char1 => '}'
215	# column => '0'
216	# context => '#pop'
217	# endRegion => 'table'
218	# type => 'Detect2Chars'
219	if ($self->testDetect2Chars($text, '\|', '}', 0, 0, 0, 0, 0, '#pop', 'Wiki-Tag')) {
220	return 1
221	}
222	# attribute => 'Wiki-Tag'
223	# char => '\|'
224	# context => '#stay'
225	# type => 'DetectChar'
226	if ($self->testDetectChar($text, '\|', 0, 0, 0, undef, 0, '#stay', 'Wiki-Tag')) {
227	return 1
228	}
229	# attribute => 'Wiki-Tag'
230	# char => '{'
231	# char1 => '{'
232	# context => 'Template'
233	# type => 'Detect2Chars'
234	if ($self->testDetect2Chars($text, '{', '{', 0, 0, 0, undef, 0, 'Template', 'Wiki-Tag')) {
235	return 1
236	}
237	# attribute => 'Wiki-Tag'
238	# char => '['
239	# char1 => '['
240	# context => 'WikiLink'
241	# type => 'Detect2Chars'
242	if ($self->testDetect2Chars($text, '[', '[', 0, 0, 0, undef, 0, 'WikiLink', 'Wiki-Tag')) {
243	return 1
244	}
245	# attribute => 'HTML-Entity'
246	# char => '&'
247	# char1 => ';'
248	# context => '#stay'
249	# type => 'RangeDetect'
250	if ($self->testRangeDetect($text, '&', ';', 0, 0, undef, 0, '#stay', 'HTML-Entity')) {
251	return 1
252	}
253	# String => '<nowiki>'
254	# attribute => 'Wiki-Tag'
255	# context => 'NoWiki'
256	# type => 'StringDetect'
257	if ($self->testStringDetect($text, '<nowiki>', 0, 0, 0, undef, 0, 'NoWiki', 'Wiki-Tag')) {
258	return 1
259	}
260	# String => '<pre>'
261	# attribute => 'HTML-Tag'
262	# context => 'Pre'
263	# type => 'StringDetect'
264	if ($self->testStringDetect($text, '<pre>', 0, 0, 0, undef, 0, 'Pre', 'HTML-Tag')) {
265	return 1
266	}
267	# String => '[<][^>]+[>]'
268	# attribute => 'HTML-Tag'
269	# context => '#stay'
270	# type => 'RegExpr'
271	if ($self->testRegExpr($text, '[<][^>]+[>]', 0, 0, 0, undef, 0, '#stay', 'HTML-Tag')) {
272	return 1
273	}
274	# String => '[\s]'
275	# column => '0'
276	# context => 'Unformatted'
277	# type => 'RegExpr'
278	if ($self->testRegExpr($text, '[\\s]', 0, 0, 0, 0, 0, 'Unformatted', undef)) {
279	return 1
280	}
281	# String => '[~]{3,4}'
282	# attribute => 'Wiki-Tag'
283	# context => '#stay'
284	# type => 'RegExpr'
285	if ($self->testRegExpr($text, '[~]{3,4}', 0, 0, 0, undef, 0, '#stay', 'Wiki-Tag')) {
286	return 1
287	}
288	# String => '[-]{4,}'
289	# attribute => 'Wiki-Tag'
290	# context => '#stay'
291	# type => 'RegExpr'
292	if ($self->testRegExpr($text, '[-]{4,}', 0, 0, 0, undef, 0, '#stay', 'Wiki-Tag')) {
293	return 1
294	}
295	# attribute => 'Wiki-Tag'
296	# char => '!'
297	# column => '0'
298	# context => '#stay'
299	# type => 'DetectChar'
300	if ($self->testDetectChar($text, '!', 0, 0, 0, 0, 0, '#stay', 'Wiki-Tag')) {
301	return 1
302	}
303	return 0;
304	};
305
306	sub parseTemplate {
307	my ($self, $text) = @_;
308	# attribute => 'Wiki-Tag'
309	# char => '}'
310	# char1 => '}'
311	# context => '#pop'
312	# type => 'Detect2Chars'
313	if ($self->testDetect2Chars($text, '}', '}', 0, 0, 0, undef, 0, '#pop', 'Wiki-Tag')) {
314	return 1
315	}
316	# attribute => 'Error'
317	# char => '''
318	# context => 'Error'
319	# type => 'DetectChar'
320	if ($self->testDetectChar($text, '\'', 0, 0, 0, undef, 0, 'Error', 'Error')) {
321	return 1
322	}
323	return 0;
324	};
325
326	sub parseURL {
327	my ($self, $text) = @_;
328	# attribute => 'Wiki-Tag'
329	# char => ']'
330	# context => '#pop'
331	# type => 'DetectChar'
332	if ($self->testDetectChar($text, ']', 0, 0, 0, undef, 0, '#pop', 'Wiki-Tag')) {
333	return 1
334	}
335	# attribute => 'Error'
336	# char => '''
337	# context => 'Error'
338	# type => 'DetectChar'
339	if ($self->testDetectChar($text, '\'', 0, 0, 0, undef, 0, 'Error', 'Error')) {
340	return 1
341	}
342	return 0;
343	};
344
345	sub parseUnformatted {
346	my ($self, $text) = @_;
347	return 0;
348	};
349
350	sub parseWikiLink {
351	my ($self, $text) = @_;
352	# attribute => 'Wiki-Tag'
353	# char => '\|'
354	# context => '#stay'
355	# type => 'DetectChar'
356	if ($self->testDetectChar($text, '\|', 0, 0, 0, undef, 0, '#stay', 'Wiki-Tag')) {
357	return 1
358	}
359	# attribute => 'Wiki-Tag'
360	# char => ']'
361	# char1 => ']'
362	# context => '#pop'
363	# type => 'Detect2Chars'
364	if ($self->testDetect2Chars($text, ']', ']', 0, 0, 0, undef, 0, '#pop', 'Wiki-Tag')) {
365	return 1
366	}
367	# attribute => 'Error'
368	# char => '''
369	# context => 'Error'
370	# type => 'DetectChar'
371	if ($self->testDetectChar($text, '\'', 0, 0, 0, undef, 0, 'Error', 'Error')) {
372	return 1
373	}
374	return 0;
375	};
376
377	sub parsecomment {
378	my ($self, $text) = @_;
379	# String => '-->'
380	# attribute => 'Comment'
381	# context => '#pop'
382	# endRegion => 'comment'
383	# type => 'StringDetect'
384	if ($self->testStringDetect($text, '-->', 0, 0, 0, undef, 0, '#pop', 'Comment')) {
385	return 1
386	}
387	return 0;
388	};
389
390	sub parsenormal {
391	my ($self, $text) = @_;
392	# String => '<!--'
393	# attribute => 'Comment'
394	# beginRegion => 'comment'
395	# context => 'comment'
396	# type => 'StringDetect'
397	if ($self->testStringDetect($text, '<!--', 0, 0, 0, undef, 0, 'comment', 'Comment')) {
398	return 1
399	}
400	# String => '([=]{2,2}[^=]+[=]{2,2}\|[=]{3,3}[^=]+[=]{3,3}\|[=]{4,4}[^=]+[=]{4,4}\|[=]{5,5}[^=]+[=]{5,5})'
401	# attribute => 'Section'
402	# column => '0'
403	# type => 'RegExpr'
404	if ($self->testRegExpr($text, '([=]{2,2}[^=]+[=]{2,2}\|[=]{3,3}[^=]+[=]{3,3}\|[=]{4,4}[^=]+[=]{4,4}\|[=]{5,5}[^=]+[=]{5,5})', 0, 0, 0, 0, 0, '#stay', 'Section')) {
405	return 1
406	}
407	# String => '[~]{3,4}'
408	# attribute => 'Wiki-Tag'
409	# context => '#stay'
410	# type => 'RegExpr'
411	if ($self->testRegExpr($text, '[~]{3,4}', 0, 0, 0, undef, 0, '#stay', 'Wiki-Tag')) {
412	return 1
413	}
414	# String => '[#;:\s][*#:]+'
415	# attribute => 'Wiki-Tag'
416	# column => '0'
417	# context => '#stay'
418	# type => 'RegExpr'
419	if ($self->testRegExpr($text, '[#;:\\s][*#:]+', 0, 0, 0, 0, 0, '#stay', 'Wiki-Tag')) {
420	return 1
421	}
422	# String => '[[](?![[])'
423	# attribute => 'Wiki-Tag'
424	# context => 'URL'
425	# type => 'RegExpr'
426	if ($self->testRegExpr($text, '[[](?![[])', 0, 0, 0, undef, 0, 'URL', 'Wiki-Tag')) {
427	return 1
428	}
429	# String => '(http:\|ftp:\|mailto:)[\S]*($\|[\s])'
430	# attribute => 'URL'
431	# context => '#stay'
432	# type => 'RegExpr'
433	if ($self->testRegExpr($text, '(http:\|ftp:\|mailto:)[\\S]*($\|[\\s])', 0, 0, 0, undef, 0, '#stay', 'URL')) {
434	return 1
435	}
436	# String => '[']{2,}'
437	# attribute => 'Wiki-Tag'
438	# context => '#stay'
439	# type => 'RegExpr'
440	if ($self->testRegExpr($text, '[\']{2,}', 0, 0, 0, undef, 0, '#stay', 'Wiki-Tag')) {
441	return 1
442	}
443	# attribute => 'Wiki-Tag'
444	# beginRegion => 'table'
445	# char => '{'
446	# char1 => '\|'
447	# column => '0'
448	# context => 'Table'
449	# type => 'Detect2Chars'
450	if ($self->testDetect2Chars($text, '{', '\|', 0, 0, 0, 0, 0, 'Table', 'Wiki-Tag')) {
451	return 1
452	}
453	# attribute => 'Wiki-Tag'
454	# char => '{'
455	# char1 => '{'
456	# context => 'Template'
457	# type => 'Detect2Chars'
458	if ($self->testDetect2Chars($text, '{', '{', 0, 0, 0, undef, 0, 'Template', 'Wiki-Tag')) {
459	return 1
460	}
461	# attribute => 'Wiki-Tag'
462	# char => '['
463	# char1 => '['
464	# context => 'WikiLink'
465	# type => 'Detect2Chars'
466	if ($self->testDetect2Chars($text, '[', '[', 0, 0, 0, undef, 0, 'WikiLink', 'Wiki-Tag')) {
467	return 1
468	}
469	# attribute => 'HTML-Entity'
470	# char => '&'
471	# char1 => ';'
472	# context => '#stay'
473	# type => 'RangeDetect'
474	if ($self->testRangeDetect($text, '&', ';', 0, 0, undef, 0, '#stay', 'HTML-Entity')) {
475	return 1
476	}
477	# String => '<nowiki>'
478	# attribute => 'Wiki-Tag'
479	# context => 'NoWiki'
480	# type => 'StringDetect'
481	if ($self->testStringDetect($text, '<nowiki>', 0, 0, 0, undef, 0, 'NoWiki', 'Wiki-Tag')) {
482	return 1
483	}
484	# String => '<pre>'
485	# attribute => 'HTML-Tag'
486	# context => 'Pre'
487	# type => 'StringDetect'
488	if ($self->testStringDetect($text, '<pre>', 0, 0, 0, undef, 0, 'Pre', 'HTML-Tag')) {
489	return 1
490	}
491	# String => '[<][^>]+[>]'
492	# attribute => 'HTML-Tag'
493	# context => '#stay'
494	# type => 'RegExpr'
495	if ($self->testRegExpr($text, '[<][^>]+[>]', 0, 0, 0, undef, 0, '#stay', 'HTML-Tag')) {
496	return 1
497	}
498	# String => '[\s]'
499	# column => '0'
500	# context => 'Unformatted'
501	# type => 'RegExpr'
502	if ($self->testRegExpr($text, '[\\s]', 0, 0, 0, 0, 0, 'Unformatted', undef)) {
503	return 1
504	}
505	return 0;
506	};
507
508
509	1;
510
511	__END__
512
513	=head1 NAME
514
515	Syntax::Highlight::Engine::Kate::Wikimedia - a Plugin for Wikimedia syntax highlighting
516
517	=head1 SYNOPSIS
518
519	require Syntax::Highlight::Engine::Kate::Wikimedia;
520	my $sh = new Syntax::Highlight::Engine::Kate::Wikimedia([
521	]);
522
523	=head1 DESCRIPTION
524
525	Syntax::Highlight::Engine::Kate::Wikimedia is a plugin module that provides syntax highlighting
526	for Wikimedia to the Syntax::Haghlight::Engine::Kate highlighting engine.
527
528	This code is generated from the syntax definition files used
529	by the Kate project.
530	It works quite fine, but can use refinement and optimization.
531
532	It inherits Syntax::Higlight::Engine::Kate::Template. See also there.
533
534	=cut
535
536	=head1 AUTHOR
537
538	Hans Jeuken (haje <at> toneel <dot> demon <dot> nl)
539
540	=cut
541
542	=head1 BUGS
543
544	Unknown. If you find any, please contact the author
545
546	=cut
547