[catagits/Gitalist.git] / local-lib5 / lib / perl5 / Syntax / Highlight / Engine / Kate / Tcl_Tk.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 'tcl.xml' file of the syntax highlight
# engine of the kate text editor (http://www.kate-editor.org

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

package Syntax::Highlight::Engine::Kate::Tcl_Tk;

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({
      'Char' => 'Char',
      'Comment' => 'Comment',
      'Decimal' => 'DecVal',
      'Float' => 'Float',
      'Keyword' => 'Keyword',
      'Normal Text' => 'Normal',
      'Parameter' => 'Others',
      'Region Marker' => 'RegionMarker',
      'String' => 'String',
      'Variable' => 'DataType',
   });
   $self->listAdd('keywords',
      'AppleScript',
      'OptProc',
      'after',
      'append',
      'argc',
      'argv',
      'array',
      'auto_execk',
      'auto_load',
      'auto_mkindex',
      'auto_path',
      'auto_reset',
      'beep',
      'bell',
      'bgerror',
      'binary',
      'bind',
      'bindtags',
      'break',
      'button',
      'canvas',
      'case',
      'catch',
      'cd',
      'checkbutton',
      'clipboard',
      'clock',
      'close',
      'concat',
      'console',
      'continue',
      'dde',
      'destroy',
      'else',
      'elseif',
      'encoding',
      'entry',
      'env',
      'eof',
      'error',
      'errorCode',
      'errorInfo',
      'eval',
      'event',
      'exec',
      'exit',
      'expr',
      'fblocked',
      'fconfigure',
      'fcopy',
      'file',
      'fileevent',
      'flush',
      'focus',
      'font',
      'for',
      'foreach',
      'format',
      'frame',
      'gets',
      'glob',
      'global',
      'grab',
      'grid',
      'history',
      'if',
      'image',
      'incr',
      'info',
      'interp',
      'join',
      'label',
      'lappend',
      'lindex',
      'linsert',
      'list',
      'listbox',
      'llength',
      'load',
      'lower',
      'lrange',
      'lreplace',
      'lsearch',
      'lsort',
      'menu',
      'menubutton',
      'message',
      'namespace',
      'open',
      'option',
      'pack',
      'package',
      'parray',
      'pid',
      'pkg_mkindex',
      'place',
      'proc',
      'puts',
      'pwd',
      'radiobutton',
      'raise',
      'read',
      'regexp',
      'registry',
      'regsub',
      'rename',
      'resource',
      'return',
      'scale',
      'scan',
      'scrollbar',
      'seek',
      'selection',
      'send',
      'set',
      'socket',
      'source',
      'split',
      'string',
      'subst',
      'switch',
      'tclLog',
      'tcl_endOfWord',
      'tcl_findLibrary',
      'tcl_library',
      'tcl_patchLevel',
      'tcl_platform',
      'tcl_precision',
      'tcl_rcFileName',
      'tcl_rcRsrcName',
      'tcl_startOfNextWord',
      'tcl_startOfPreviousWord',
      'tcl_traceCompile',
      'tcl_traceExec',
      'tcl_version',
      'tcl_wordBreakAfter',
      'tcl_wordBreakBefore',
      'tell',
      'text',
      'time',
      'tk',
      'tkTabToWindow',
      'tk_chooseColor',
      'tk_chooseDirectory',
      'tk_focusFollowMouse',
      'tk_focusNext',
      'tk_focusPrev',
      'tk_getOpenFile',
      'tk_getSaveFile',
      'tk_library',
      'tk_messageBox',
      'tk_optionMenu',
      'tk_patchLevel',
      'tk_popup',
      'tk_strictMotif',
      'tk_version',
      'tkwait',
      'toplevel',
      'trace',
      'unknown',
      'unset',
      'update',
      'uplevel',
      'upvar',
      'variable',
      'vwait',
      'while',
      'winfo',
      'wm',
   );
   $self->listAdd('keywords-opt',
      'activate',
      'actual',
      'add',
      'addtag',
      'append',
      'appname',
      'args',
      'aspect',
      'atime',
      'atom',
      'atomname',
      'attributes',
      'bbox',
      'bind',
      'body',
      'broadcast',
      'bytelength',
      'cancel',
      'canvasx',
      'canvasy',
      'caret',
      'cells',
      'cget',
      'channels',
      'children',
      'class',
      'clear',
      'clicks',
      'client',
      'clone',
      'cmdcount',
      'colormapfull',
      'colormapwindows',
      'command',
      'commands',
      'compare',
      'complete',
      'configure',
      'containing',
      'convertfrom',
      'convertto',
      'coords',
      'copy',
      'create',
      'current',
      'curselection',
      'dchars',
      'debug',
      'default',
      'deiconify',
      'delete',
      'delta',
      'depth',
      'deselect',
      'dirname',
      'dlineinfo',
      'dtag',
      'dump',
      'edit',
      'entrycget',
      'entryconfigure',
      'equal',
      'executable',
      'exists',
      'extension',
      'families',
      'find',
      'first',
      'flash',
      'focus',
      'focusmodel',
      'forget',
      'format',
      'fpixels',
      'fraction',
      'frame',
      'functions',
      'generate',
      'geometry',
      'get',
      'gettags',
      'globals',
      'grid',
      'group',
      'handle',
      'height',
      'hide',
      'hostname',
      'iconbitmap',
      'iconify',
      'iconmask',
      'iconname',
      'iconposition',
      'iconwindow',
      'icursor',
      'id',
      'identify',
      'idle',
      'ifneeded',
      'image',
      'index',
      'info',
      'insert',
      'interps',
      'inuse',
      'invoke',
      'is',
      'isdirectory',
      'isfile',
      'ismapped',
      'itemcget',
      'itemconfigure',
      'join',
      'keys',
      'last',
      'length',
      'level',
      'library',
      'link',
      'loaded',
      'locals',
      'lower',
      'lstat',
      'manager',
      'map',
      'mark',
      'match',
      'maxsize',
      'measure',
      'metrics',
      'minsize',
      'mkdir',
      'move',
      'mtime',
      'name',
      'nameofexecutable',
      'names',
      'nativename',
      'nearest',
      'normalize',
      'number',
      'overrideredirect',
      'own',
      'owned',
      'panecget',
      'paneconfigure',
      'panes',
      'parent',
      'patchlevel',
      'pathname',
      'pathtype',
      'pixels',
      'pointerx',
      'pointerxy',
      'pointery',
      'positionfrom',
      'post',
      'postcascade',
      'postscript',
      'present',
      'procs',
      'protocol',
      'provide',
      'proxy',
      'raise',
      'range',
      'readable',
      'readlink',
      'release',
      'remove',
      'rename',
      'repeat',
      'replace',
      'reqheight',
      'require',
      'reqwidth',
      'resizable',
      'rgb',
      'rootname',
      'rootx',
      'rooty',
      'scale',
      'scaling',
      'scan',
      'screen',
      'screencells',
      'screendepth',
      'screenheight',
      'screenmmheight',
      'screenmmwidth',
      'screenvisual',
      'screenwidth',
      'script',
      'search',
      'seconds',
      'see',
      'select',
      'selection',
      'separator',
      'server',
      'set',
      'sharedlibextension',
      'show',
      'size',
      'sizefrom',
      'split',
      'stackorder',
      'stat',
      'state',
      'status',
      'system',
      'tag',
      'tail',
      'tclversion',
      'title',
      'tolower',
      'toplevel',
      'totitle',
      'toupper',
      'transient',
      'trim',
      'trimleft',
      'trimright',
      'type',
      'types',
      'unknown',
      'unpost',
      'useinputmethods',
      'validate',
      'values',
      'variable',
      'vars',
      'vcompare',
      'vdelete',
      'versions',
      'viewable',
      'vinfo',
      'visual',
      'visualid',
      'visualsavailable',
      'volumes',
      'vrootheight',
      'vrootwidth',
      'vrootx',
      'vrooty',
      'vsatisfies',
      'width',
      'window',
      'windowingsystem',
      'withdraw',
      'wordend',
      'wordstart',
      'writable',
      'x',
      'xview',
      'y',
   );
   $self->contextdata({
      'Base' => {
         callback => \&parseBase,
         attribute => 'Normal Text',
      },
      'String' => {
         callback => \&parseString,
         attribute => 'String',
      },
   });
   $self->deliminators('\\s||\\.|\\(|\\)|:|\\!|\\+|,|-|<|=|>|\\%|\\&|\\*|\\/|;|\\?|\\[|\\]|\\^|\\{|\\||\\}|\\~|\\\\');
   $self->basecontext('Base');
   $self->keywordscase(0);
   $self->initialize;
   bless ($self, $class);
   return $self;
}

sub language {
   return 'Tcl/Tk';
}

sub parseBase {
   my ($self, $text) = @_;
   # String => '#\s*BEGIN.*$'
   # attribute => 'Region Marker'
   # beginRegion => 'region'
   # context => '#stay'
   # firstNonSpace => 'true'
   # type => 'RegExpr'
   if ($self->testRegExpr($text, '#\\s*BEGIN.*$', 0, 0, 0, undef, 1, '#stay', 'Region Marker')) {
      return 1
   }
   # String => '#\s*END.*$'
   # attribute => 'Region Marker'
   # context => '#stay'
   # endRegion => 'region'
   # firstNonSpace => 'true'
   # type => 'RegExpr'
   if ($self->testRegExpr($text, '#\\s*END.*$', 0, 0, 0, undef, 1, '#stay', 'Region Marker')) {
      return 1
   }
   # String => 'keywords'
   # attribute => 'Keyword'
   # context => '#stay'
   # type => 'keyword'
   if ($self->testKeyword($text, 'keywords', 0, undef, 0, '#stay', 'Keyword')) {
      return 1
   }
   # String => 'keywords-opt'
   # attribute => 'Parameter'
   # context => '#stay'
   # type => 'keyword'
   if ($self->testKeyword($text, 'keywords-opt', 0, undef, 0, '#stay', 'Parameter')) {
      return 1
   }
   # attribute => 'Float'
   # context => '#stay'
   # type => 'Float'
   if ($self->testFloat($text, 0, undef, 0, '#stay', 'Float')) {
      return 1
   }
   # attribute => 'Decimal'
   # context => '#stay'
   # type => 'Int'
   if ($self->testInt($text, 0, undef, 0, '#stay', 'Decimal')) {
      return 1
   }
   # String => '\\.'
   # attribute => 'Char'
   # context => '#stay'
   # type => 'RegExpr'
   if ($self->testRegExpr($text, '\\\\.', 0, 0, 0, undef, 0, '#stay', 'Char')) {
      return 1
   }
   # String => '\W-\w+'
   # attribute => 'Parameter'
   # context => '#stay'
   # type => 'RegExpr'
   if ($self->testRegExpr($text, '\\W-\\w+', 0, 0, 0, undef, 0, '#stay', 'Parameter')) {
      return 1
   }
   # String => '\$\{[^\}]+\}'
   # attribute => 'Variable'
   # context => '#stay'
   # type => 'RegExpr'
   if ($self->testRegExpr($text, '\\$\\{[^\\}]+\\}', 0, 0, 0, undef, 0, '#stay', 'Variable')) {
      return 1
   }
   # String => '\$(::)?[\S\D]\w+'
   # attribute => 'Variable'
   # context => '#stay'
   # type => 'RegExpr'
   if ($self->testRegExpr($text, '\\$(::)?[\\S\\D]\\w+', 0, 0, 0, undef, 0, '#stay', 'Variable')) {
      return 1
   }
   # String => '[^\\]""'
   # attribute => 'String'
   # context => '#stay'
   # type => 'RegExpr'
   if ($self->testRegExpr($text, '[^\\\\]""', 0, 0, 0, undef, 0, '#stay', 'String')) {
      return 1
   }
   # String => '[^\\]"'
   # attribute => 'String'
   # context => 'String'
   # type => 'RegExpr'
   if ($self->testRegExpr($text, '[^\\\\]"', 0, 0, 0, undef, 0, 'String', 'String')) {
      return 1
   }
   # String => '#.*$'
   # attribute => 'Comment'
   # context => '#stay'
   # firstNonSpace => 'true'
   # type => 'RegExpr'
   if ($self->testRegExpr($text, '#.*$', 0, 0, 0, undef, 1, '#stay', 'Comment')) {
      return 1
   }
   # String => ';\s*#.*$'
   # attribute => 'Comment'
   # context => '#stay'
   # type => 'RegExpr'
   if ($self->testRegExpr($text, ';\\s*#.*$', 0, 0, 0, undef, 0, '#stay', 'Comment')) {
      return 1
   }
   # attribute => 'Keyword'
   # beginRegion => 'block'
   # char => '{'
   # context => '#stay'
   # type => 'DetectChar'
   if ($self->testDetectChar($text, '{', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
      return 1
   }
   # attribute => 'Keyword'
   # char => '}'
   # context => '#stay'
   # endRegion => 'block'
   # type => 'DetectChar'
   if ($self->testDetectChar($text, '}', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
      return 1
   }
   # attribute => 'Keyword'
   # char => '['
   # context => '#stay'
   # type => 'DetectChar'
   if ($self->testDetectChar($text, '[', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
      return 1
   }
   # attribute => 'Keyword'
   # char => ']'
   # context => '#stay'
   # type => 'DetectChar'
   if ($self->testDetectChar($text, ']', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
      return 1
   }
   return 0;
};

sub parseString {
   my ($self, $text) = @_;
   # String => '\\.'
   # attribute => 'Char'
   # context => '#stay'
   # type => 'RegExpr'
   if ($self->testRegExpr($text, '\\\\.', 0, 0, 0, undef, 0, '#stay', 'Char')) {
      return 1
   }
   # attribute => 'String'
   # char => '"'
   # context => '#pop'
   # type => 'DetectChar'
   if ($self->testDetectChar($text, '"', 0, 0, 0, undef, 0, '#pop', 'String')) {
      return 1
   }
   # attribute => 'Variable'
   # char => '$'
   # context => '#stay'
   # type => 'DetectChar'
   if ($self->testDetectChar($text, '$', 0, 0, 0, undef, 0, '#stay', 'Variable')) {
      return 1
   }
   return 0;
};


1;

__END__

=head1 NAME

Syntax::Highlight::Engine::Kate::Tcl_Tk - a Plugin for Tcl/Tk syntax highlighting

=head1 SYNOPSIS

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

=head1 DESCRIPTION

Syntax::Highlight::Engine::Kate::Tcl_Tk is a  plugin module that provides syntax highlighting
for Tcl/Tk 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 'tcl.xml' file of the syntax highlight
	6	# engine of the kate text editor (http://www.kate-editor.org
	7
	8	#kate xml version 1.08
	9	#kate version 2.4
	10	#generated: Sun Feb 3 22:02:06 2008, localtime
	11
	12	package Syntax::Highlight::Engine::Kate::Tcl_Tk;
	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	'Char' => 'Char',
	26	'Comment' => 'Comment',
	27	'Decimal' => 'DecVal',
	28	'Float' => 'Float',
	29	'Keyword' => 'Keyword',
	30	'Normal Text' => 'Normal',
	31	'Parameter' => 'Others',
	32	'Region Marker' => 'RegionMarker',
	33	'String' => 'String',
	34	'Variable' => 'DataType',
	35	});
	36	$self->listAdd('keywords',
	37	'AppleScript',
	38	'OptProc',
	39	'after',
	40	'append',
	41	'argc',
	42	'argv',
	43	'array',
	44	'auto_execk',
	45	'auto_load',
	46	'auto_mkindex',
	47	'auto_path',
	48	'auto_reset',
	49	'beep',
	50	'bell',
	51	'bgerror',
	52	'binary',
	53	'bind',
	54	'bindtags',
	55	'break',
	56	'button',
	57	'canvas',
	58	'case',
	59	'catch',
	60	'cd',
	61	'checkbutton',
	62	'clipboard',
	63	'clock',
	64	'close',
65	'concat',
66	'console',
67	'continue',
68	'dde',
69	'destroy',
70	'else',
71	'elseif',
72	'encoding',
73	'entry',
74	'env',
75	'eof',
76	'error',
77	'errorCode',
78	'errorInfo',
79	'eval',
80	'event',
81	'exec',
82	'exit',
83	'expr',
84	'fblocked',
85	'fconfigure',
86	'fcopy',
87	'file',
88	'fileevent',
89	'flush',
90	'focus',
91	'font',
92	'for',
93	'foreach',
94	'format',
95	'frame',
96	'gets',
97	'glob',
98	'global',
99	'grab',
100	'grid',
101	'history',
102	'if',
103	'image',
104	'incr',
105	'info',
106	'interp',
107	'join',
108	'label',
109	'lappend',
110	'lindex',
111	'linsert',
112	'list',
113	'listbox',
114	'llength',
115	'load',
116	'lower',
117	'lrange',
118	'lreplace',
119	'lsearch',
120	'lsort',
121	'menu',
122	'menubutton',
123	'message',
124	'namespace',
125	'open',
126	'option',
127	'pack',
128	'package',
129	'parray',
130	'pid',
131	'pkg_mkindex',
132	'place',
133	'proc',
134	'puts',
135	'pwd',
136	'radiobutton',
137	'raise',
138	'read',
139	'regexp',
140	'registry',
141	'regsub',
142	'rename',
143	'resource',
144	'return',
145	'scale',
146	'scan',
147	'scrollbar',
148	'seek',
149	'selection',
150	'send',
151	'set',
152	'socket',
153	'source',
154	'split',
155	'string',
156	'subst',
157	'switch',
158	'tclLog',
159	'tcl_endOfWord',
160	'tcl_findLibrary',
161	'tcl_library',
162	'tcl_patchLevel',
163	'tcl_platform',
164	'tcl_precision',
165	'tcl_rcFileName',
166	'tcl_rcRsrcName',
167	'tcl_startOfNextWord',
168	'tcl_startOfPreviousWord',
169	'tcl_traceCompile',
170	'tcl_traceExec',
171	'tcl_version',
172	'tcl_wordBreakAfter',
173	'tcl_wordBreakBefore',
174	'tell',
175	'text',
176	'time',
177	'tk',
178	'tkTabToWindow',
179	'tk_chooseColor',
180	'tk_chooseDirectory',
181	'tk_focusFollowMouse',
182	'tk_focusNext',
183	'tk_focusPrev',
184	'tk_getOpenFile',
185	'tk_getSaveFile',
186	'tk_library',
187	'tk_messageBox',
188	'tk_optionMenu',
189	'tk_patchLevel',
190	'tk_popup',
191	'tk_strictMotif',
192	'tk_version',
193	'tkwait',
194	'toplevel',
195	'trace',
196	'unknown',
197	'unset',
198	'update',
199	'uplevel',
200	'upvar',
201	'variable',
202	'vwait',
203	'while',
204	'winfo',
205	'wm',
206	);
207	$self->listAdd('keywords-opt',
208	'activate',
209	'actual',
210	'add',
211	'addtag',
212	'append',
213	'appname',
214	'args',
215	'aspect',
216	'atime',
217	'atom',
218	'atomname',
219	'attributes',
220	'bbox',
221	'bind',
222	'body',
223	'broadcast',
224	'bytelength',
225	'cancel',
226	'canvasx',
227	'canvasy',
228	'caret',
229	'cells',
230	'cget',
231	'channels',
232	'children',
233	'class',
234	'clear',
235	'clicks',
236	'client',
237	'clone',
238	'cmdcount',
239	'colormapfull',
240	'colormapwindows',
241	'command',
242	'commands',
243	'compare',
244	'complete',
245	'configure',
246	'containing',
247	'convertfrom',
248	'convertto',
249	'coords',
250	'copy',
251	'create',
252	'current',
253	'curselection',
254	'dchars',
255	'debug',
256	'default',
257	'deiconify',
258	'delete',
259	'delta',
260	'depth',
261	'deselect',
262	'dirname',
263	'dlineinfo',
264	'dtag',
265	'dump',
266	'edit',
267	'entrycget',
268	'entryconfigure',
269	'equal',
270	'executable',
271	'exists',
272	'extension',
273	'families',
274	'find',
275	'first',
276	'flash',
277	'focus',
278	'focusmodel',
279	'forget',
280	'format',
281	'fpixels',
282	'fraction',
283	'frame',
284	'functions',
285	'generate',
286	'geometry',
287	'get',
288	'gettags',
289	'globals',
290	'grid',
291	'group',
292	'handle',
293	'height',
294	'hide',
295	'hostname',
296	'iconbitmap',
297	'iconify',
298	'iconmask',
299	'iconname',
300	'iconposition',
301	'iconwindow',
302	'icursor',
303	'id',
304	'identify',
305	'idle',
306	'ifneeded',
307	'image',
308	'index',
309	'info',
310	'insert',
311	'interps',
312	'inuse',
313	'invoke',
314	'is',
315	'isdirectory',
316	'isfile',
317	'ismapped',
318	'itemcget',
319	'itemconfigure',
320	'join',
321	'keys',
322	'last',
323	'length',
324	'level',
325	'library',
326	'link',
327	'loaded',
328	'locals',
329	'lower',
330	'lstat',
331	'manager',
332	'map',
333	'mark',
334	'match',
335	'maxsize',
336	'measure',
337	'metrics',
338	'minsize',
339	'mkdir',
340	'move',
341	'mtime',
342	'name',
343	'nameofexecutable',
344	'names',
345	'nativename',
346	'nearest',
347	'normalize',
348	'number',
349	'overrideredirect',
350	'own',
351	'owned',
352	'panecget',
353	'paneconfigure',
354	'panes',
355	'parent',
356	'patchlevel',
357	'pathname',
358	'pathtype',
359	'pixels',
360	'pointerx',
361	'pointerxy',
362	'pointery',
363	'positionfrom',
364	'post',
365	'postcascade',
366	'postscript',
367	'present',
368	'procs',
369	'protocol',
370	'provide',
371	'proxy',
372	'raise',
373	'range',
374	'readable',
375	'readlink',
376	'release',
377	'remove',
378	'rename',
379	'repeat',
380	'replace',
381	'reqheight',
382	'require',
383	'reqwidth',
384	'resizable',
385	'rgb',
386	'rootname',
387	'rootx',
388	'rooty',
389	'scale',
390	'scaling',
391	'scan',
392	'screen',
393	'screencells',
394	'screendepth',
395	'screenheight',
396	'screenmmheight',
397	'screenmmwidth',
398	'screenvisual',
399	'screenwidth',
400	'script',
401	'search',
402	'seconds',
403	'see',
404	'select',
405	'selection',
406	'separator',
407	'server',
408	'set',
409	'sharedlibextension',
410	'show',
411	'size',
412	'sizefrom',
413	'split',
414	'stackorder',
415	'stat',
416	'state',
417	'status',
418	'system',
419	'tag',
420	'tail',
421	'tclversion',
422	'title',
423	'tolower',
424	'toplevel',
425	'totitle',
426	'toupper',
427	'transient',
428	'trim',
429	'trimleft',
430	'trimright',
431	'type',
432	'types',
433	'unknown',
434	'unpost',
435	'useinputmethods',
436	'validate',
437	'values',
438	'variable',
439	'vars',
440	'vcompare',
441	'vdelete',
442	'versions',
443	'viewable',
444	'vinfo',
445	'visual',
446	'visualid',
447	'visualsavailable',
448	'volumes',
449	'vrootheight',
450	'vrootwidth',
451	'vrootx',
452	'vrooty',
453	'vsatisfies',
454	'width',
455	'window',
456	'windowingsystem',
457	'withdraw',
458	'wordend',
459	'wordstart',
460	'writable',
461	'x',
462	'xview',
463	'y',
464	);
465	$self->contextdata({
466	'Base' => {
467	callback => \&parseBase,
468	attribute => 'Normal Text',
469	},
470	'String' => {
471	callback => \&parseString,
472	attribute => 'String',
473	},
474	});
475	$self->deliminators('\\s\|\|\\.\|\\(\|\\)\|:\|\\!\|\\+\|,\|-\|<\|=\|>\|\\%\|\\&\|\\*\|\\/\|;\|\\?\|\\[\|\\]\|\\^\|\\{\|\\\|\|\\}\|\\~\|\\\\');
476	$self->basecontext('Base');
477	$self->keywordscase(0);
478	$self->initialize;
479	bless ($self, $class);
480	return $self;
481	}
482
483	sub language {
484	return 'Tcl/Tk';
485	}
486
487	sub parseBase {
488	my ($self, $text) = @_;
489	# String => '#\sBEGIN.$'
490	# attribute => 'Region Marker'
491	# beginRegion => 'region'
492	# context => '#stay'
493	# firstNonSpace => 'true'
494	# type => 'RegExpr'
495	if ($self->testRegExpr($text, '#\\sBEGIN.$', 0, 0, 0, undef, 1, '#stay', 'Region Marker')) {
496	return 1
497	}
498	# String => '#\sEND.$'
499	# attribute => 'Region Marker'
500	# context => '#stay'
501	# endRegion => 'region'
502	# firstNonSpace => 'true'
503	# type => 'RegExpr'
504	if ($self->testRegExpr($text, '#\\sEND.$', 0, 0, 0, undef, 1, '#stay', 'Region Marker')) {
505	return 1
506	}
507	# String => 'keywords'
508	# attribute => 'Keyword'
509	# context => '#stay'
510	# type => 'keyword'
511	if ($self->testKeyword($text, 'keywords', 0, undef, 0, '#stay', 'Keyword')) {
512	return 1
513	}
514	# String => 'keywords-opt'
515	# attribute => 'Parameter'
516	# context => '#stay'
517	# type => 'keyword'
518	if ($self->testKeyword($text, 'keywords-opt', 0, undef, 0, '#stay', 'Parameter')) {
519	return 1
520	}
521	# attribute => 'Float'
522	# context => '#stay'
523	# type => 'Float'
524	if ($self->testFloat($text, 0, undef, 0, '#stay', 'Float')) {
525	return 1
526	}
527	# attribute => 'Decimal'
528	# context => '#stay'
529	# type => 'Int'
530	if ($self->testInt($text, 0, undef, 0, '#stay', 'Decimal')) {
531	return 1
532	}
533	# String => '\\.'
534	# attribute => 'Char'
535	# context => '#stay'
536	# type => 'RegExpr'
537	if ($self->testRegExpr($text, '\\\\.', 0, 0, 0, undef, 0, '#stay', 'Char')) {
538	return 1
539	}
540	# String => '\W-\w+'
541	# attribute => 'Parameter'
542	# context => '#stay'
543	# type => 'RegExpr'
544	if ($self->testRegExpr($text, '\\W-\\w+', 0, 0, 0, undef, 0, '#stay', 'Parameter')) {
545	return 1
546	}
547	# String => '\$\{[^\}]+\}'
548	# attribute => 'Variable'
549	# context => '#stay'
550	# type => 'RegExpr'
551	if ($self->testRegExpr($text, '\\$\\{[^\\}]+\\}', 0, 0, 0, undef, 0, '#stay', 'Variable')) {
552	return 1
553	}
554	# String => '\$(::)?[\S\D]\w+'
555	# attribute => 'Variable'
556	# context => '#stay'
557	# type => 'RegExpr'
558	if ($self->testRegExpr($text, '\\$(::)?[\\S\\D]\\w+', 0, 0, 0, undef, 0, '#stay', 'Variable')) {
559	return 1
560	}
561	# String => '[^\\]""'
562	# attribute => 'String'
563	# context => '#stay'
564	# type => 'RegExpr'
565	if ($self->testRegExpr($text, '[^\\\\]""', 0, 0, 0, undef, 0, '#stay', 'String')) {
566	return 1
567	}
568	# String => '[^\\]"'
569	# attribute => 'String'
570	# context => 'String'
571	# type => 'RegExpr'
572	if ($self->testRegExpr($text, '[^\\\\]"', 0, 0, 0, undef, 0, 'String', 'String')) {
573	return 1
574	}
575	# String => '#.*$'
576	# attribute => 'Comment'
577	# context => '#stay'
578	# firstNonSpace => 'true'
579	# type => 'RegExpr'
580	if ($self->testRegExpr($text, '#.*$', 0, 0, 0, undef, 1, '#stay', 'Comment')) {
581	return 1
582	}
583	# String => ';\s#.$'
584	# attribute => 'Comment'
585	# context => '#stay'
586	# type => 'RegExpr'
587	if ($self->testRegExpr($text, ';\\s#.$', 0, 0, 0, undef, 0, '#stay', 'Comment')) {
588	return 1
589	}
590	# attribute => 'Keyword'
591	# beginRegion => 'block'
592	# char => '{'
593	# context => '#stay'
594	# type => 'DetectChar'
595	if ($self->testDetectChar($text, '{', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
596	return 1
597	}
598	# attribute => 'Keyword'
599	# char => '}'
600	# context => '#stay'
601	# endRegion => 'block'
602	# type => 'DetectChar'
603	if ($self->testDetectChar($text, '}', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
604	return 1
605	}
606	# attribute => 'Keyword'
607	# char => '['
608	# context => '#stay'
609	# type => 'DetectChar'
610	if ($self->testDetectChar($text, '[', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
611	return 1
612	}
613	# attribute => 'Keyword'
614	# char => ']'
615	# context => '#stay'
616	# type => 'DetectChar'
617	if ($self->testDetectChar($text, ']', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
618	return 1
619	}
620	return 0;
621	};
622
623	sub parseString {
624	my ($self, $text) = @_;
625	# String => '\\.'
626	# attribute => 'Char'
627	# context => '#stay'
628	# type => 'RegExpr'
629	if ($self->testRegExpr($text, '\\\\.', 0, 0, 0, undef, 0, '#stay', 'Char')) {
630	return 1
631	}
632	# attribute => 'String'
633	# char => '"'
634	# context => '#pop'
635	# type => 'DetectChar'
636	if ($self->testDetectChar($text, '"', 0, 0, 0, undef, 0, '#pop', 'String')) {
637	return 1
638	}
639	# attribute => 'Variable'
640	# char => '$'
641	# context => '#stay'
642	# type => 'DetectChar'
643	if ($self->testDetectChar($text, '$', 0, 0, 0, undef, 0, '#stay', 'Variable')) {
644	return 1
645	}
646	return 0;
647	};
648
649
650	1;
651
652	__END__
653
654	=head1 NAME
655
656	Syntax::Highlight::Engine::Kate::Tcl_Tk - a Plugin for Tcl/Tk syntax highlighting
657
658	=head1 SYNOPSIS
659
660	require Syntax::Highlight::Engine::Kate::Tcl_Tk;
661	my $sh = new Syntax::Highlight::Engine::Kate::Tcl_Tk([
662	]);
663
664	=head1 DESCRIPTION
665
666	Syntax::Highlight::Engine::Kate::Tcl_Tk is a plugin module that provides syntax highlighting
667	for Tcl/Tk to the Syntax::Haghlight::Engine::Kate highlighting engine.
668
669	This code is generated from the syntax definition files used
670	by the Kate project.
671	It works quite fine, but can use refinement and optimization.
672
673	It inherits Syntax::Higlight::Engine::Kate::Template. See also there.
674
675	=cut
676
677	=head1 AUTHOR
678
679	Hans Jeuken (haje <at> toneel <dot> demon <dot> nl)
680
681	=cut
682
683	=head1 BUGS
684
685	Unknown. If you find any, please contact the author
686
687	=cut
688