File Coverage

blib/lib/Syntax/Highlight/Engine/Kate/Cisco.pm
Criterion Covered Total %
statement 23 98 23.4
branch 0 64 0.0
condition 1 3 33.3
subroutine 4 10 40.0
pod 0 7 0.0
total 28 182 15.3


line stmt bran cond sub pod time code
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 'cisco.xml' file of the syntax highlight
6             # engine of the kate text editor (http://www.kate-editor.org
7              
8             #kate xml version 1.10
9             #kate version 2.4
10             #kate author Raphaël GRAPINET
11             #generated: Sun Feb 3 22:02:04 2008, localtime
12              
13             package Syntax::Highlight::Engine::Kate::Cisco;
14              
15             our $VERSION = '0.07';
16              
17 1     1   916 use strict;
  1         3  
  1         31  
18 1     1   5 use warnings;
  1         1  
  1         30  
19 1     1   4 use base('Syntax::Highlight::Engine::Kate::Template');
  1         2  
  1         1443  
20              
21             sub new {
22 1     1 0 519 my $proto = shift;
23 1   33     8 my $class = ref($proto) || $proto;
24 1         12 my $self = $class->SUPER::new(@_);
25 1         16 $self->attributes({
26             'Char' => 'Char',
27             'Command' => 'Normal',
28             'Comment' => 'Comment',
29             'Decimal' => 'DecVal',
30             'Float' => 'Float',
31             'Keyword' => 'Keyword',
32             'Normal Text' => 'Normal',
33             'Operator' => 'Others',
34             'Parameter' => 'Others',
35             'String' => 'String',
36             'Substitution' => 'Others',
37             });
38 1         9 $self->listAdd('commands',
39             'aaa',
40             'access-list',
41             'address',
42             'alias',
43             'arp',
44             'async-bootp',
45             'banner',
46             'boot',
47             'bridge',
48             'buffers',
49             'busy-message',
50             'call-history-mib',
51             'cdp',
52             'chat-script',
53             'class-map',
54             'clock',
55             'cns',
56             'config-register',
57             'controller',
58             'crypto',
59             'default',
60             'default-value',
61             'dialer',
62             'dialer-list',
63             'dnsix-dmdp',
64             'dnsix-nat',
65             'downward-compatible-config',
66             'enable',
67             'end',
68             'exception',
69             'exit',
70             'file',
71             'frame-relay',
72             'help',
73             'hostname',
74             'interface',
75             'ip',
76             'isdn',
77             'isdn-mib',
78             'kerberos',
79             'key',
80             'line',
81             'logging',
82             'login-string',
83             'map-class',
84             'map-list',
85             'memory-size',
86             'menu',
87             'modemcap',
88             'multilink',
89             'netbios',
90             'no',
91             'ntp',
92             'partition',
93             'policy-map',
94             'priority-list',
95             'privilege',
96             'process-max-time',
97             'prompt',
98             'queue-list',
99             'resume-string',
100             'rlogin',
101             'rmon',
102             'route-map',
103             'router',
104             'rtr',
105             'scheduler',
106             'service',
107             'snmp-server',
108             'sntp',
109             'stackmaker',
110             'state-machine',
111             'subscriber-policy',
112             'tacacs-server',
113             'template',
114             'terminal-queue',
115             'tftp-server',
116             'time-range',
117             'username',
118             'virtual-profile',
119             'virtual-template',
120             'vpdn',
121             'vpdn-group',
122             'x25',
123             'x29',
124             );
125 1         6 $self->listAdd('options',
126             'accounting',
127             'accounting-list',
128             'accounting-threshold',
129             'accounting-transits',
130             'address-pool',
131             'as-path',
132             'audit',
133             'auth-proxy',
134             'authentication',
135             'authorization',
136             'bgp-community',
137             'bootp',
138             'cef',
139             'classless',
140             'community-list',
141             'default-gateway',
142             'default-network',
143             'dhcp',
144             'dhcp-server',
145             'domain-list',
146             'domain-lookup',
147             'domain-name',
148             'dvmrp',
149             'exec-callback',
150             'extcommunity-list',
151             'finger',
152             'flow-aggregation',
153             'flow-cache',
154             'flow-export',
155             'forward-protocol',
156             'ftp',
157             'gratuitous-arps',
158             'host',
159             'host-routing',
160             'hp-host',
161             'http',
162             'icmp',
163             'inspect',
164             'local',
165             'mrm',
166             'mroute',
167             'msdp',
168             'multicast',
169             'multicast-routing',
170             'name-server',
171             'nat',
172             'new-model',
173             'ospf',
174             'password',
175             'password-encryption',
176             'pgm',
177             'pim',
178             'port-map',
179             'prefix-list',
180             'radius',
181             'rcmd',
182             'reflexive-list',
183             'route',
184             'routing',
185             'rsvp',
186             'rtcp',
187             'sap',
188             'sdr',
189             'security',
190             'source-route',
191             'subnet-zero',
192             'tacacs',
193             'tcp',
194             'tcp-small-servers',
195             'telnet',
196             'tftp',
197             'timestamps',
198             'udp-small-servers',
199             'vrf',
200             'wccp',
201             );
202 1         7 $self->listAdd('parameters',
203             'accounting',
204             'accounting-list',
205             'accounting-threshold',
206             'accounting-transits',
207             'address-pool',
208             'as-path',
209             'audit',
210             'auth-proxy',
211             'authentication',
212             'authorization',
213             'bgp-community',
214             'bootp',
215             'cef',
216             'classless',
217             'community-list',
218             'default-gateway',
219             'default-network',
220             'dhcp',
221             'dhcp-server',
222             'domain-list',
223             'domain-lookup',
224             'domain-name',
225             'dvmrp',
226             'exec-callback',
227             'extcommunity-list',
228             'finger',
229             'flow-aggregation',
230             'flow-cache',
231             'flow-export',
232             'forward-protocol',
233             'ftp',
234             'gratuitous-arps',
235             'host',
236             'host-routing',
237             'hp-host',
238             'http',
239             'icmp',
240             'inspect',
241             'local',
242             'mrm',
243             'mroute',
244             'msdp',
245             'multicast',
246             'multicast-routing',
247             'name-server',
248             'nat',
249             'new-model',
250             'ospf',
251             'password',
252             'password-encryption',
253             'pgm',
254             'pim',
255             'port-map',
256             'prefix-list',
257             'radius',
258             'rcmd',
259             'reflexive-list',
260             'route',
261             'routing',
262             'rsvp',
263             'rtcp',
264             'sap',
265             'sdr',
266             'security',
267             'source-route',
268             'subnet-zero',
269             'tacacs',
270             'tcp',
271             'tcp-small-servers',
272             'telnet',
273             'tftp',
274             'timestamps',
275             'udp-small-servers',
276             'vrf',
277             'wccp',
278             );
279 1         14 $self->contextdata({
280             'Base' => {
281             callback => \&parseBase,
282             attribute => 'Normal Text',
283             },
284             'Parameter' => {
285             callback => \&parseParameter,
286             attribute => 'Parameter',
287             },
288             'Single Quote' => {
289             callback => \&parseSingleQuote,
290             attribute => 'String',
291             },
292             'String' => {
293             callback => \&parseString,
294             attribute => 'String',
295             },
296             'Substitution' => {
297             callback => \&parseSubstitution,
298             attribute => 'Substitution',
299             },
300             });
301 1         7 $self->deliminators('\\s||\\.|\\(|\\)|:|\\!|\\+|,|-|<|=|>|\\%|\\&|\\*|\\/|;|\\?|\\[|\\]|\\^|\\{|\\||\\}|\\~|\\\\');
302 1         2 $self->basecontext('Base');
303 1         7 $self->keywordscase(0);
304 1         3 $self->initialize;
305 1         4 bless ($self, $class);
306 1         2 return $self;
307             }
308              
309             sub language {
310 0     0 0   return 'Cisco';
311             }
312              
313             sub parseBase {
314 0     0 0   my ($self, $text) = @_;
315             # String => '\bdone\b'
316             # attribute => 'Keyword'
317             # context => '#stay'
318             # endRegion => 'dodone1'
319             # insensitive => 'TRUE'
320             # type => 'RegExpr'
321 0 0         if ($self->testRegExpr($text, '\\bdone\\b', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
322 0           return 1
323             }
324             # String => '\bdo\b'
325             # attribute => 'Keyword'
326             # beginRegion => 'dodone1'
327             # context => '#stay'
328             # insensitive => 'TRUE'
329             # type => 'RegExpr'
330 0 0         if ($self->testRegExpr($text, '\\bdo\\b', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
331 0           return 1
332             }
333             # String => '\belif\b'
334             # attribute => 'Keyword'
335             # beginRegion => 'iffi1'
336             # context => '#stay'
337             # endRegion => 'iffi1'
338             # insensitive => 'TRUE'
339             # type => 'RegExpr'
340 0 0         if ($self->testRegExpr($text, '\\belif\\b', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
341 0           return 1
342             }
343             # String => '\bif\b'
344             # attribute => 'Keyword'
345             # beginRegion => 'iffi1'
346             # context => '#stay'
347             # insensitive => 'TRUE'
348             # type => 'RegExpr'
349 0 0         if ($self->testRegExpr($text, '\\bif\\b', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
350 0           return 1
351             }
352             # String => '\bfi\b'
353             # attribute => 'Keyword'
354             # context => '#stay'
355             # endRegion => 'iffi1'
356             # insensitive => 'TRUE'
357             # type => 'RegExpr'
358 0 0         if ($self->testRegExpr($text, '\\bfi\\b', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
359 0           return 1
360             }
361             # String => '\bcase\b'
362             # attribute => 'Keyword'
363             # beginRegion => 'case1'
364             # context => '#stay'
365             # insensitive => 'TRUE'
366             # type => 'RegExpr'
367 0 0         if ($self->testRegExpr($text, '\\bcase\\b', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
368 0           return 1
369             }
370             # String => '\besac\b'
371             # attribute => 'Keyword'
372             # context => '#stay'
373             # endRegion => 'case1'
374             # insensitive => 'TRUE'
375             # type => 'RegExpr'
376 0 0         if ($self->testRegExpr($text, '\\besac\\b', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
377 0           return 1
378             }
379             # String => '[^()]+\)'
380             # attribute => 'Keyword'
381             # beginRegion => 'subcase1'
382             # column => '0'
383             # context => '#stay'
384             # insensitive => 'TRUE'
385             # type => 'RegExpr'
386 0 0         if ($self->testRegExpr($text, '[^()]+\\)', 1, 0, 0, 0, 0, '#stay', 'Keyword')) {
387 0           return 1
388             }
389             # attribute => 'Keyword'
390             # char => ';'
391             # char1 => ';'
392             # context => '#stay'
393             # endRegion => 'subcase1'
394             # type => 'Detect2Chars'
395 0 0         if ($self->testDetect2Chars($text, ';', ';', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
396 0           return 1
397             }
398             # attribute => 'Keyword'
399             # beginRegion => 'func1'
400             # char => '{'
401             # context => '#stay'
402             # type => 'DetectChar'
403 0 0         if ($self->testDetectChar($text, '{', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
404 0           return 1
405             }
406             # attribute => 'Keyword'
407             # char => '}'
408             # context => '#stay'
409             # endRegion => 'func1'
410             # type => 'DetectChar'
411 0 0         if ($self->testDetectChar($text, '}', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
412 0           return 1
413             }
414             # String => 'commands'
415             # attribute => 'Command'
416             # context => '#stay'
417             # type => 'keyword'
418 0 0         if ($self->testKeyword($text, 'commands', 0, undef, 0, '#stay', 'Command')) {
419 0           return 1
420             }
421             # String => 'parameters'
422             # attribute => 'Parameter'
423             # context => '#stay'
424             # type => 'keyword'
425 0 0         if ($self->testKeyword($text, 'parameters', 0, undef, 0, '#stay', 'Parameter')) {
426 0           return 1
427             }
428             # String => 'options'
429             # attribute => 'Keyword'
430             # context => '#stay'
431             # type => 'keyword'
432 0 0         if ($self->testKeyword($text, 'options', 0, undef, 0, '#stay', 'Keyword')) {
433 0           return 1
434             }
435             # attribute => 'Decimal'
436             # context => '#stay'
437             # type => 'Int'
438 0 0         if ($self->testInt($text, 0, undef, 0, '#stay', 'Decimal')) {
439 0           return 1
440             }
441             # String => '\$[A-Za-z0-9_?{}!]+'
442             # attribute => 'Parameter'
443             # context => '#stay'
444             # type => 'RegExpr'
445 0 0         if ($self->testRegExpr($text, '\\$[A-Za-z0-9_?{}!]+', 0, 0, 0, undef, 0, '#stay', 'Parameter')) {
446 0           return 1
447             }
448             # attribute => 'String'
449             # char => '"'
450             # char1 => '"'
451             # context => '#stay'
452             # type => 'RangeDetect'
453 0 0         if ($self->testRangeDetect($text, '"', '"', 0, 0, undef, 0, '#stay', 'String')) {
454 0           return 1
455             }
456             # String => '|<>=;'
457             # attribute => 'Operator'
458             # context => '#stay'
459             # type => 'AnyChar'
460 0 0         if ($self->testAnyChar($text, '|<>=;', 0, 0, undef, 0, '#stay', 'Operator')) {
461 0           return 1
462             }
463             # attribute => 'String'
464             # char => '''
465             # context => 'Single Quote'
466             # type => 'DetectChar'
467 0 0         if ($self->testDetectChar($text, '\'', 0, 0, 0, undef, 0, 'Single Quote', 'String')) {
468 0           return 1
469             }
470             # attribute => 'Substitution'
471             # char => '`'
472             # context => 'Substitution'
473             # type => 'DetectChar'
474 0 0         if ($self->testDetectChar($text, '`', 0, 0, 0, undef, 0, 'Substitution', 'Substitution')) {
475 0           return 1
476             }
477             # attribute => 'Normal Text'
478             # char => '\'
479             # char1 => '#'
480             # context => '#stay'
481             # type => 'Detect2Chars'
482 0 0         if ($self->testDetect2Chars($text, '\\', '#', 0, 0, 0, undef, 0, '#stay', 'Normal Text')) {
483 0           return 1
484             }
485             # String => '#.*$'
486             # attribute => 'Comment'
487             # context => '#stay'
488             # type => 'RegExpr'
489 0 0         if ($self->testRegExpr($text, '#.*$', 0, 0, 0, undef, 0, '#stay', 'Comment')) {
490 0           return 1
491             }
492 0           return 0;
493             };
494              
495             sub parseParameter {
496 0     0 0   my ($self, $text) = @_;
497             # String => '\$[A-Za-z0-9_?]+'
498             # attribute => 'Parameter'
499             # context => '#pop'
500             # type => 'RegExpr'
501 0 0         if ($self->testRegExpr($text, '\\$[A-Za-z0-9_?]+', 0, 0, 0, undef, 0, '#pop', 'Parameter')) {
502 0           return 1
503             }
504 0           return 0;
505             };
506              
507             sub parseSingleQuote {
508 0     0 0   my ($self, $text) = @_;
509             # attribute => 'String'
510             # char => '\'
511             # char1 => '\'
512             # context => '#stay'
513             # type => 'Detect2Chars'
514 0 0         if ($self->testDetect2Chars($text, '\\', '\\', 0, 0, 0, undef, 0, '#stay', 'String')) {
515 0           return 1
516             }
517             # attribute => 'String'
518             # char => '\'
519             # char1 => '''
520             # context => '#stay'
521             # type => 'Detect2Chars'
522 0 0         if ($self->testDetect2Chars($text, '\\', '\'', 0, 0, 0, undef, 0, '#stay', 'String')) {
523 0           return 1
524             }
525             # attribute => 'String'
526             # char => '''
527             # context => '#pop'
528             # type => 'DetectChar'
529 0 0         if ($self->testDetectChar($text, '\'', 0, 0, 0, undef, 0, '#pop', 'String')) {
530 0           return 1
531             }
532 0           return 0;
533             };
534              
535             sub parseString {
536 0     0 0   my ($self, $text) = @_;
537             # attribute => 'String'
538             # char => '\'
539             # char1 => '\'
540             # context => '#stay'
541             # type => 'Detect2Chars'
542 0 0         if ($self->testDetect2Chars($text, '\\', '\\', 0, 0, 0, undef, 0, '#stay', 'String')) {
543 0           return 1
544             }
545             # attribute => 'String'
546             # char => '\'
547             # char1 => '"'
548             # context => '#stay'
549             # type => 'Detect2Chars'
550 0 0         if ($self->testDetect2Chars($text, '\\', '"', 0, 0, 0, undef, 0, '#stay', 'String')) {
551 0           return 1
552             }
553             # attribute => 'String'
554             # char => '"'
555             # context => '#pop'
556             # type => 'DetectChar'
557 0 0         if ($self->testDetectChar($text, '"', 0, 0, 0, undef, 0, '#pop', 'String')) {
558 0           return 1
559             }
560 0           return 0;
561             };
562              
563             sub parseSubstitution {
564 0     0 0   my ($self, $text) = @_;
565             # attribute => 'String'
566             # char => '\'
567             # char1 => '\'
568             # context => '#stay'
569             # type => 'Detect2Chars'
570 0 0         if ($self->testDetect2Chars($text, '\\', '\\', 0, 0, 0, undef, 0, '#stay', 'String')) {
571 0           return 1
572             }
573             # attribute => 'String'
574             # char => '\'
575             # char1 => '`'
576             # context => '#stay'
577             # type => 'Detect2Chars'
578 0 0         if ($self->testDetect2Chars($text, '\\', '`', 0, 0, 0, undef, 0, '#stay', 'String')) {
579 0           return 1
580             }
581             # attribute => 'Substitution'
582             # char => '`'
583             # context => '#pop'
584             # type => 'DetectChar'
585 0 0         if ($self->testDetectChar($text, '`', 0, 0, 0, undef, 0, '#pop', 'Substitution')) {
586 0           return 1
587             }
588 0           return 0;
589             };
590              
591              
592             1;
593              
594             __END__