File Coverage

blib/lib/Syntax/Highlight/Engine/Kate.pm
Criterion Covered Total %
statement 90 100 90.0
branch 20 24 83.3
condition 3 6 50.0
subroutine 16 18 88.8
pod 8 11 72.7
total 137 159 86.1


line stmt bran cond sub pod time code
1              
2             # Copyright (c) 2006 Hans Jeuken. All rights reserved.
3             # This program is free software; you can redistribute it and/or
4             # modify it under the same terms as Perl itself.
5              
6             package Syntax::Highlight::Engine::Kate;
7              
8 5     5   270796 use 5.006;
  5         19  
  5         391  
9             our $VERSION = '0.09';
10 5     5   44 use strict;
  5         11  
  5         228  
11 5     5   28 use warnings;
  5         15  
  5         201  
12 5     5   28 use Carp qw(carp croak);
  5         9  
  5         340  
13 5     5   7613 use Data::Dumper;
  5         67192  
  5         424  
14 5     5   54 use File::Basename;
  5         9  
  5         735  
15              
16 5     5   29 use base('Syntax::Highlight::Engine::Kate::Template');
  5         9  
  5         5342  
17              
18             sub new {
19 12     12 0 209527 my $proto = shift;
20 12   33     106 my $class = ref($proto) || $proto;
21 12         59 my %args = (@_);
22            
23 12         36 my $add = delete $args{'plugins'};
24 12 50       54 unless (defined($add)) { $add = [] };
  12         37  
25 12         35 my $language = delete $args{'language'};
26 12 100       58 unless (defined($language)) { $language = 'Off' };
  2         6  
27            
28 12         153 my $self = $class->SUPER::new(%args);
29              
30 12         52 $self->{'plugins'} = {};
31             #begin autoinsert
32 12         3640 $self->{'extensions'} = {
33             ' *.cls' => ['LaTeX', ],
34             ' *.dtx' => ['LaTeX', ],
35             ' *.ltx' => ['LaTeX', ],
36             ' *.sty' => ['LaTeX', ],
37             '*.4GL' => ['4GL', ],
38             '*.4gl' => ['4GL', ],
39             '*.ABC' => ['ABC', ],
40             '*.ASM' => ['AVR Assembler', 'PicAsm', ],
41             '*.BAS' => ['FreeBASIC', ],
42             '*.BI' => ['FreeBASIC', ],
43             '*.C' => ['C++', 'C', 'ANSI C89', ],
44             '*.D' => ['D', ],
45             '*.F' => ['Fortran', ],
46             '*.F90' => ['Fortran', ],
47             '*.F95' => ['Fortran', ],
48             '*.FOR' => ['Fortran', ],
49             '*.FPP' => ['Fortran', ],
50             '*.GDL' => ['GDL', ],
51             '*.H' => ['C++', ],
52             '*.JSP' => ['JSP', ],
53             '*.LOGO' => ['de_DE', 'en_US', 'nl', ],
54             '*.LY' => ['LilyPond', ],
55             '*.Logo' => ['de_DE', 'en_US', 'nl', ],
56             '*.M' => ['Matlab', 'Octave', ],
57             '*.MAB' => ['MAB-DB', ],
58             '*.Mab' => ['MAB-DB', ],
59             '*.PER' => ['4GL-PER', ],
60             '*.PIC' => ['PicAsm', ],
61             '*.PRG' => ['xHarbour', 'Clipper', ],
62             '*.R' => ['R Script', ],
63             '*.S' => ['GNU Assembler', ],
64             '*.SQL' => ['SQL', 'SQL (MySQL)', 'SQL (PostgreSQL)', ],
65             '*.SRC' => ['PicAsm', ],
66             '*.V' => ['Verilog', ],
67             '*.VCG' => ['GDL', ],
68             '*.a' => ['Ada', ],
69             '*.abc' => ['ABC', ],
70             '*.ada' => ['Ada', ],
71             '*.adb' => ['Ada', ],
72             '*.ado' => ['Stata', ],
73             '*.ads' => ['Ada', ],
74             '*.ahdl' => ['AHDL', ],
75             '*.ai' => ['PostScript', ],
76             '*.ans' => ['Ansys', ],
77             '*.asm' => ['AVR Assembler', 'Asm6502', 'Intel x86 (NASM)', 'PicAsm', ],
78             '*.asm-avr' => ['AVR Assembler', ],
79             '*.asp' => ['ASP', ],
80             '*.awk' => ['AWK', ],
81             '*.bas' => ['FreeBASIC', ],
82             '*.basetest' => ['BaseTest', ],
83             '*.bash' => ['Bash', ],
84             '*.bi' => ['FreeBASIC', ],
85             '*.bib' => ['BibTeX', ],
86             '*.bro' => ['Component-Pascal', ],
87             '*.c' => ['C', 'ANSI C89', 'LPC', ],
88             '*.c++' => ['C++', ],
89             '*.cc' => ['C++', ],
90             '*.cfc' => ['ColdFusion', ],
91             '*.cfg' => ['Quake Script', ],
92             '*.cfm' => ['ColdFusion', ],
93             '*.cfml' => ['ColdFusion', ],
94             '*.cg' => ['Cg', ],
95             '*.cgis' => ['CGiS', ],
96             '*.ch' => ['xHarbour', 'Clipper', ],
97             '*.cis' => ['Cisco', ],
98             '*.cl' => ['Common Lisp', ],
99             '*.cmake' => ['CMake', ],
100             '*.config' => ['Logtalk', ],
101             '*.cp' => ['Component-Pascal', ],
102             '*.cpp' => ['C++', ],
103             '*.cs' => ['C#', ],
104             '*.css' => ['CSS', ],
105             '*.cue' => ['CUE Sheet', ],
106             '*.cxx' => ['C++', ],
107             '*.d' => ['D', ],
108             '*.daml' => ['XML', ],
109             '*.dbm' => ['ColdFusion', ],
110             '*.def' => ['Modula-2', ],
111             '*.desktop' => ['.desktop', ],
112             '*.diff' => ['Diff', ],
113             '*.do' => ['Stata', ],
114             '*.docbook' => ['XML', ],
115             '*.dox' => ['Doxygen', ],
116             '*.doxygen' => ['Doxygen', ],
117             '*.e' => ['E Language', 'Eiffel', 'Euphoria', ],
118             '*.ebuild' => ['Bash', ],
119             '*.eclass' => ['Bash', ],
120             '*.eml' => ['Email', ],
121             '*.eps' => ['PostScript', ],
122             '*.err' => ['4GL', ],
123             '*.ex' => ['Euphoria', ],
124             '*.exu' => ['Euphoria', ],
125             '*.exw' => ['Euphoria', ],
126             '*.f' => ['Fortran', ],
127             '*.f90' => ['Fortran', ],
128             '*.f95' => ['Fortran', ],
129             '*.fe' => ['ferite', ],
130             '*.feh' => ['ferite', ],
131             '*.flex' => ['Lex/Flex', ],
132             '*.for' => ['Fortran', ],
133             '*.fpp' => ['Fortran', ],
134             '*.frag' => ['GLSL', ],
135             '*.gdl' => ['GDL', ],
136             '*.glsl' => ['GLSL', ],
137             '*.guile' => ['Scheme', ],
138             '*.h' => ['C++', 'C', 'ANSI C89', 'Inform', 'LPC', 'Objective-C', ],
139             '*.h++' => ['C++', ],
140             '*.hcc' => ['C++', ],
141             '*.hpp' => ['C++', ],
142             '*.hs' => ['Haskell', ],
143             '*.hsp' => ['Spice', ],
144             '*.ht' => ['Apache Configuration', ],
145             '*.htm' => ['HTML', ],
146             '*.html' => ['HTML', 'Mason', ],
147             '*.hxx' => ['C++', ],
148             '*.i' => ['progress', ],
149             '*.idl' => ['IDL', ],
150             '*.inc' => ['POV-Ray', 'PHP (HTML)', 'LPC', ],
151             '*.inf' => ['Inform', ],
152             '*.ini' => ['INI Files', ],
153             '*.java' => ['Java', ],
154             '*.js' => ['JavaScript', ],
155             '*.jsp' => ['JSP', ],
156             '*.katetemplate' => ['Kate File Template', ],
157             '*.kbasic' => ['KBasic', ],
158             '*.kdelnk' => ['.desktop', ],
159             '*.l' => ['Lex/Flex', ],
160             '*.ldif' => ['LDIF', ],
161             '*.lex' => ['Lex/Flex', ],
162             '*.lgo' => ['de_DE', 'en_US', 'nl', ],
163             '*.lgt' => ['Logtalk', ],
164             '*.lhs' => ['Literate Haskell', ],
165             '*.lisp' => ['Common Lisp', ],
166             '*.logo' => ['de_DE', 'en_US', 'nl', ],
167             '*.lsp' => ['Common Lisp', ],
168             '*.lua' => ['Lua', ],
169             '*.ly' => ['LilyPond', ],
170             '*.m' => ['Matlab', 'Objective-C', 'Octave', ],
171             '*.m3u' => ['M3U', ],
172             '*.mab' => ['MAB-DB', ],
173             '*.md' => ['Modula-2', ],
174             '*.mi' => ['Modula-2', ],
175             '*.ml' => ['Objective Caml', 'SML', ],
176             '*.mli' => ['Objective Caml', ],
177             '*.moc' => ['C++', ],
178             '*.mod' => ['Modula-2', ],
179             '*.mup' => ['Music Publisher', ],
180             '*.not' => ['Music Publisher', ],
181             '*.o' => ['LPC', ],
182             '*.octave' => ['Octave', ],
183             '*.p' => ['Pascal', 'progress', ],
184             '*.pas' => ['Pascal', ],
185             '*.pb' => ['PureBasic', ],
186             '*.per' => ['4GL-PER', ],
187             '*.per.err' => ['4GL-PER', ],
188             '*.php' => ['PHP (HTML)', ],
189             '*.php3' => ['PHP (HTML)', ],
190             '*.phtm' => ['PHP (HTML)', ],
191             '*.phtml' => ['PHP (HTML)', ],
192             '*.pic' => ['PicAsm', ],
193             '*.pike' => ['Pike', ],
194             '*.pl' => ['Perl', ],
195             '*.pls' => ['INI Files', ],
196             '*.pm' => ['Perl', ],
197             '*.po' => ['GNU Gettext', ],
198             '*.pot' => ['GNU Gettext', ],
199             '*.pov' => ['POV-Ray', ],
200             '*.pp' => ['Pascal', ],
201             '*.prg' => ['xHarbour', 'Clipper', ],
202             '*.pro' => ['RSI IDL', ],
203             '*.prolog' => ['Prolog', ],
204             '*.ps' => ['PostScript', ],
205             '*.py' => ['Python', ],
206             '*.pyw' => ['Python', ],
207             '*.rb' => ['Ruby', ],
208             '*.rc' => ['XML', ],
209             '*.rdf' => ['XML', ],
210             '*.reg' => ['WINE Config', ],
211             '*.rex' => ['REXX', ],
212             '*.rib' => ['RenderMan RIB', ],
213             '*.s' => ['GNU Assembler', 'MIPS Assembler', ],
214             '*.sa' => ['Sather', ],
215             '*.sce' => ['scilab', ],
216             '*.scheme' => ['Scheme', ],
217             '*.sci' => ['scilab', ],
218             '*.scm' => ['Scheme', ],
219             '*.sgml' => ['SGML', ],
220             '*.sh' => ['Bash', ],
221             '*.shtm' => ['HTML', ],
222             '*.shtml' => ['HTML', ],
223             '*.siv' => ['Sieve', ],
224             '*.sml' => ['SML', ],
225             '*.sp' => ['Spice', ],
226             '*.spec' => ['RPM Spec', ],
227             '*.sql' => ['SQL', 'SQL (MySQL)', 'SQL (PostgreSQL)', ],
228             '*.src' => ['PicAsm', ],
229             '*.ss' => ['Scheme', ],
230             '*.t2t' => ['txt2tags', ],
231             '*.tcl' => ['Tcl/Tk', ],
232             '*.tdf' => ['AHDL', ],
233             '*.tex' => ['LaTeX', ],
234             '*.tji' => ['TaskJuggler', ],
235             '*.tjp' => ['TaskJuggler', ],
236             '*.tk' => ['Tcl/Tk', ],
237             '*.tst' => ['BaseTestchild', ],
238             '*.uc' => ['UnrealScript', ],
239             '*.v' => ['Verilog', ],
240             '*.vcg' => ['GDL', ],
241             '*.vert' => ['GLSL', ],
242             '*.vhd' => ['VHDL', ],
243             '*.vhdl' => ['VHDL', ],
244             '*.vl' => ['Verilog', ],
245             '*.vm' => ['Velocity', ],
246             '*.w' => ['progress', ],
247             '*.wml' => ['PHP (HTML)', ],
248             '*.wrl' => ['VRML', ],
249             '*.xml' => ['XML', ],
250             '*.xsl' => ['xslt', ],
251             '*.xslt' => ['xslt', ],
252             '*.y' => ['Yacc/Bison', ],
253             '*.ys' => ['yacas', ],
254             '*Makefile*' => ['Makefile', ],
255             '*makefile*' => ['Makefile', ],
256             '*patch' => ['Diff', ],
257             'CMakeLists.txt' => ['CMake', ],
258             'ChangeLog' => ['ChangeLog', ],
259             'QRPGLESRC.*' => ['ILERPG', ],
260             'apache.conf' => ['Apache Configuration', ],
261             'apache2.conf' => ['Apache Configuration', ],
262             'httpd.conf' => ['Apache Configuration', ],
263             'httpd2.conf' => ['Apache Configuration', ],
264             'xorg.conf' => ['x.org Configuration', ],
265             };
266 12         509 $self->{'sections'} = {
267             'Assembler' => [
268             'AVR Assembler',
269             'Asm6502',
270             'GNU Assembler',
271             'Intel x86 (NASM)',
272             'MIPS Assembler',
273             'PicAsm',
274             ],
275             'Configuration' => [
276             '.desktop',
277             'Apache Configuration',
278             'Cisco',
279             'INI Files',
280             'WINE Config',
281             'x.org Configuration',
282             ],
283             'Database' => [
284             '4GL',
285             '4GL-PER',
286             'LDIF',
287             'SQL',
288             'SQL (MySQL)',
289             'SQL (PostgreSQL)',
290             'progress',
291             ],
292             'Hardware' => [
293             'AHDL',
294             'Spice',
295             'VHDL',
296             'Verilog',
297             ],
298             'Logo' => [
299             'de_DE',
300             'en_US',
301             'nl',
302             ],
303             'Markup' => [
304             'ASP',
305             'BibTeX',
306             'CSS',
307             'ColdFusion',
308             'Doxygen',
309             'GNU Gettext',
310             'HTML',
311             'JSP',
312             'Javadoc',
313             'Kate File Template',
314             'LaTeX',
315             'MAB-DB',
316             'PostScript',
317             'SGML',
318             'VRML',
319             'Wikimedia',
320             'XML',
321             'txt2tags',
322             'xslt',
323             ],
324             'Other' => [
325             'ABC',
326             'Alerts',
327             'CMake',
328             'CSS/PHP',
329             'CUE Sheet',
330             'ChangeLog',
331             'Debian Changelog',
332             'Debian Control',
333             'Diff',
334             'Email',
335             'JavaScript/PHP',
336             'LilyPond',
337             'M3U',
338             'Makefile',
339             'Music Publisher',
340             'POV-Ray',
341             'RPM Spec',
342             'RenderMan RIB',
343             ],
344             'Scientific' => [
345             'GDL',
346             'Matlab',
347             'Octave',
348             'TI Basic',
349             'scilab',
350             ],
351             'Script' => [
352             'Ansys',
353             ],
354             'Scripts' => [
355             'AWK',
356             'Bash',
357             'Common Lisp',
358             'Euphoria',
359             'JavaScript',
360             'Lua',
361             'Mason',
362             'PHP (HTML)',
363             'PHP/PHP',
364             'Perl',
365             'Pike',
366             'Python',
367             'Quake Script',
368             'R Script',
369             'REXX',
370             'Ruby',
371             'Scheme',
372             'Sieve',
373             'TaskJuggler',
374             'Tcl/Tk',
375             'UnrealScript',
376             'Velocity',
377             'ferite',
378             ],
379             'Sources' => [
380             'ANSI C89',
381             'Ada',
382             'C',
383             'C#',
384             'C++',
385             'CGiS',
386             'Cg',
387             'Clipper',
388             'Component-Pascal',
389             'D',
390             'E Language',
391             'Eiffel',
392             'Fortran',
393             'FreeBASIC',
394             'GLSL',
395             'Haskell',
396             'IDL',
397             'ILERPG',
398             'Inform',
399             'Java',
400             'KBasic',
401             'LPC',
402             'Lex/Flex',
403             'Literate Haskell',
404             'Logtalk',
405             'Modula-2',
406             'Objective Caml',
407             'Objective-C',
408             'Pascal',
409             'Prolog',
410             'PureBasic',
411             'RSI IDL',
412             'SML',
413             'Sather',
414             'Stata',
415             'Yacc/Bison',
416             'xHarbour',
417             'yacas',
418             ],
419             'Test' => [
420             'BaseTest',
421             'BaseTestchild',
422             ],
423             };
424 12         1140 $self->{'syntaxes'} = {
425             '.desktop' => 'Desktop',
426             '4GL' => 'FourGL',
427             '4GL-PER' => 'FourGLminusPER',
428             'ABC' => 'ABC',
429             'AHDL' => 'AHDL',
430             'ANSI C89' => 'ANSI_C89',
431             'ASP' => 'ASP',
432             'AVR Assembler' => 'AVR_Assembler',
433             'AWK' => 'AWK',
434             'Ada' => 'Ada',
435             'Alerts' => 'Alerts',
436             'Ansys' => 'Ansys',
437             'Apache Configuration' => 'Apache_Configuration',
438             'Asm6502' => 'Asm6502',
439             'BaseTest' => 'BaseTest',
440             'BaseTestchild' => 'BaseTestchild',
441             'Bash' => 'Bash',
442             'BibTeX' => 'BibTeX',
443             'C' => 'C',
444             'C#' => 'Cdash',
445             'C++' => 'Cplusplus',
446             'CGiS' => 'CGiS',
447             'CMake' => 'CMake',
448             'CSS' => 'CSS',
449             'CSS/PHP' => 'CSS_PHP',
450             'CUE Sheet' => 'CUE_Sheet',
451             'Cg' => 'Cg',
452             'ChangeLog' => 'ChangeLog',
453             'Cisco' => 'Cisco',
454             'Clipper' => 'Clipper',
455             'ColdFusion' => 'ColdFusion',
456             'Common Lisp' => 'Common_Lisp',
457             'Component-Pascal' => 'ComponentminusPascal',
458             'D' => 'D',
459             'Debian Changelog' => 'Debian_Changelog',
460             'Debian Control' => 'Debian_Control',
461             'Diff' => 'Diff',
462             'Doxygen' => 'Doxygen',
463             'E Language' => 'E_Language',
464             'Eiffel' => 'Eiffel',
465             'Email' => 'Email',
466             'Euphoria' => 'Euphoria',
467             'Fortran' => 'Fortran',
468             'FreeBASIC' => 'FreeBASIC',
469             'GDL' => 'GDL',
470             'GLSL' => 'GLSL',
471             'GNU Assembler' => 'GNU_Assembler',
472             'GNU Gettext' => 'GNU_Gettext',
473             'HTML' => 'HTML',
474             'Haskell' => 'Haskell',
475             'IDL' => 'IDL',
476             'ILERPG' => 'ILERPG',
477             'INI Files' => 'INI_Files',
478             'Inform' => 'Inform',
479             'Intel x86 (NASM)' => 'Intel_x86_NASM',
480             'JSP' => 'JSP',
481             'Java' => 'Java',
482             'JavaScript' => 'JavaScript',
483             'JavaScript/PHP' => 'JavaScript_PHP',
484             'Javadoc' => 'Javadoc',
485             'KBasic' => 'KBasic',
486             'Kate File Template' => 'Kate_File_Template',
487             'LDIF' => 'LDIF',
488             'LPC' => 'LPC',
489             'LaTeX' => 'LaTeX',
490             'Lex/Flex' => 'Lex_Flex',
491             'LilyPond' => 'LilyPond',
492             'Literate Haskell' => 'Literate_Haskell',
493             'Logtalk' => 'Logtalk',
494             'Lua' => 'Lua',
495             'M3U' => 'M3U',
496             'MAB-DB' => 'MABminusDB',
497             'MIPS Assembler' => 'MIPS_Assembler',
498             'Makefile' => 'Makefile',
499             'Mason' => 'Mason',
500             'Matlab' => 'Matlab',
501             'Modula-2' => 'Modulaminus2',
502             'Music Publisher' => 'Music_Publisher',
503             'Objective Caml' => 'Objective_Caml',
504             'Objective-C' => 'ObjectiveminusC',
505             'Octave' => 'Octave',
506             'PHP (HTML)' => 'PHP_HTML',
507             'PHP/PHP' => 'PHP_PHP',
508             'POV-Ray' => 'POVminusRay',
509             'Pascal' => 'Pascal',
510             'Perl' => 'Perl',
511             'PicAsm' => 'PicAsm',
512             'Pike' => 'Pike',
513             'PostScript' => 'PostScript',
514             'Prolog' => 'Prolog',
515             'PureBasic' => 'PureBasic',
516             'Python' => 'Python',
517             'Quake Script' => 'Quake_Script',
518             'R Script' => 'R_Script',
519             'REXX' => 'REXX',
520             'RPM Spec' => 'RPM_Spec',
521             'RSI IDL' => 'RSI_IDL',
522             'RenderMan RIB' => 'RenderMan_RIB',
523             'Ruby' => 'Ruby',
524             'SGML' => 'SGML',
525             'SML' => 'SML',
526             'SQL' => 'SQL',
527             'SQL (MySQL)' => 'SQL_MySQL',
528             'SQL (PostgreSQL)' => 'SQL_PostgreSQL',
529             'Sather' => 'Sather',
530             'Scheme' => 'Scheme',
531             'Sieve' => 'Sieve',
532             'Spice' => 'Spice',
533             'Stata' => 'Stata',
534             'TI Basic' => 'TI_Basic',
535             'TaskJuggler' => 'TaskJuggler',
536             'Tcl/Tk' => 'Tcl_Tk',
537             'UnrealScript' => 'UnrealScript',
538             'VHDL' => 'VHDL',
539             'VRML' => 'VRML',
540             'Velocity' => 'Velocity',
541             'Verilog' => 'Verilog',
542             'WINE Config' => 'WINE_Config',
543             'Wikimedia' => 'Wikimedia',
544             'XML' => 'XML',
545             'Yacc/Bison' => 'Yacc_Bison',
546             'de_DE' => 'De_DE',
547             'en_US' => 'En_US',
548             'ferite' => 'Ferite',
549             'nl' => 'Nl',
550             'progress' => 'Progress',
551             'scilab' => 'Scilab',
552             'txt2tags' => 'Txt2tags',
553             'x.org Configuration' => 'Xorg_Configuration',
554             'xHarbour' => 'XHarbour',
555             'xslt' => 'Xslt',
556             'yacas' => 'Yacas',
557             };
558             #end autoinsert
559 12         41 $self->{'language '} = '';
560 12         37 bless ($self, $class);
561 12 50       60 if ($language ne '') {
562 12         47 $self->language($language);
563             }
564 10         100 return $self;
565             }
566              
567             sub extensions {
568 6     6 1 10 my $self = shift;
569 6         19 return $self->{'extensions'};
570             }
571              
572             #overriding Template's initialize method. now it should not do anything.
573             sub initialize {
574 12     12 0 33 my $cw = shift;
575             }
576              
577             sub language {
578 186     186 1 1554654 my $self = shift;
579 186 100       520 if (@_) {
580 66         241 $self->{'language'} = shift;
581 66         289 $self->reset;
582             }
583 184         607 return $self->{'language'};
584             }
585              
586             sub languageAutoSet {
587 3     3 1 14161 my ($self, $file) = @_;
588 3         13 my $lang = $self->languagePropose($file);
589 3 50       50 if (defined $lang) {
590 3         12 $self->language($lang)
591             } else {
592 0         0 $self->language('Off')
593             }
594             }
595              
596             sub languageList {
597 0     0 1 0 my $self = shift;
598 0         0 my $l = $self->{'syntaxes'};
599 0         0 return sort {uc($a) cmp uc($b)} keys %$l;
  0         0  
600             }
601              
602             sub languagePropose {
603 6     6 1 2170 my ($self, $file) = @_;
604 6         23 my $hsh = $self->extensions;
605 6         295 foreach my $key (keys %$hsh) {
606 748         1004 my $reg = $key;
607 748         1668 $reg =~ s/\./\\./g;
608 748         981 $reg =~ s/\+/\\+/g;
609 748         1461 $reg =~ s/\*/.*/g;
610 748         865 $reg = "$reg\$";
611 748 100       25991 if ($file =~ /$reg/) {
612 6         39 return $hsh->{$key}->[0]
613             }
614             }
615 0         0 return undef;
616             }
617              
618             sub languagePlug {
619 71     71 1 2069 my ($self, $req, $insensitive) = @_;
620              
621 71 100       295 unless (exists($self->{'syntaxes'}->{$req})) {
622 4 100 66     25 if (defined($insensitive) && $insensitive) {
623 1         3 my $matched = 0;
624 1         2 foreach my $key (keys(%{$self->{'syntaxes'}})) {
  1         35  
625 104 100       187 if (lc($key) eq lc($req)) {
626 1         20 carp "substituting language $key for $req";
627 1         678 $req = $key;
628 1         3 $matched = 1;
629 1         1 last;
630             }
631             }
632              
633 1 50       11 unless ($matched) {
634 0         0 carp "undefined language: '$req'";
635 0         0 return undef;
636             }
637             } else {
638 3         72 carp "undefined language: '$req'";
639 3         3567 return undef;
640             }
641             }
642              
643 68         417 return $self->{'syntaxes'}->{$req};
644             }
645              
646             sub reset {
647 117     117 1 317 my $self = shift;
648 117         376 my $lang = $self->language;
649 117 100       419 if ($lang eq 'Off') {
650 2         23 $self->stack([]);
651             } else {
652 115         1637 my $plug = $self->pluginGet($lang);
653 115 100       528 if (not $plug) {
654 2         38 croak "Plugin for language '$lang' could not be found.";
655             }
656 113         636 my $basecontext = $plug->basecontext;
657 113         1007 $self->stack([
658             [$plug, $basecontext]
659             ]);
660             }
661 115         662 $self->out([]);
662 115         822 $self->snippet('');
663             }
664              
665             sub sections {
666 0     0 1 0 my $self = shift;
667 0         0 return $self->{'sections'};
668             }
669              
670             sub syntaxes {
671 130     130 0 218367 my $self = shift;
672 130         719 return $self->{'syntaxes'}
673             }
674              
675              
676             1;
677              
678             __END__