File Coverage

blib/lib/Syntax/Highlight/Engine/Kate/LilyPond.pm

Criterion	Covered	Total	%
statement	324	591	54.8
branch	294	548	53.6
condition	1	3	33.3
subroutine	8	15	53.3
pod	0	12	0.0
total	627	1169	53.6

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 'lilypond.xml' file of the syntax highlight
6							# engine of the kate text editor (http://www.kate-editor.org
7
8							#kate xml version 1.01
9							#kate version 2.3
10							#kate author Andrea Primiani (primiani@dag.it)
11							#generated: Sun Feb 3 22:02:05 2008, localtime
12
13							package Syntax::Highlight::Engine::Kate::LilyPond;
14
15							our $VERSION = '0.07';
16
17	1			1		1431	use strict;
	1					4
	1					44
18	1			1		6	use warnings;
	1					2
	1					35
19	1			1		6	use base('Syntax::Highlight::Engine::Kate::Template');
	1					2
	1					6521
20
21							sub new {
22	2			2	0	921	my $proto = shift;
23	2		33			15	my $class = ref($proto) \|\| $proto;
24	2					18	my $self = $class->SUPER::new(@_);
25	2					46	$self->attributes({
26							'Bar' => 'Char',
27							'Chord' => 'BaseN',
28							'Comment' => 'Comment',
29							'Context' => 'DataType',
30							'Decoration' => 'Reserved',
31							'Drums' => 'RegionMarker',
32							'Dynamics' => 'BString',
33							'Header' => 'Float',
34							'Keyword' => 'Keyword',
35							'Lyrics' => 'DecVal',
36							'Normal Text' => 'Normal',
37							'Preprocessor' => 'IString',
38							'Repeat' => 'Operator',
39							'Sharp' => 'Others',
40							'Slur' => 'Variable',
41							'String' => 'String',
42							'Tuplet' => 'Float',
43							});
44	2					14	$self->listAdd('commands',
45							'\\\\clef',
46							'\\\\key',
47							'\\\\tempo',
48							'\\\\time',
49							);
50	2					7	$self->listAdd('repeats',
51							'"percent"',
52							'"tremolo"',
53							'\\\\alternative',
54							'\\\\repeat',
55							'unfold',
56							'volta',
57							);
58	2					53	$self->contextdata({
59							'Command' => {
60							callback => \&parseCommand,
61							attribute => 'Header',
62							},
63							'Comment' => {
64							callback => \&parseComment,
65							attribute => 'Comment',
66							lineending => '#pop',
67							},
68							'Context' => {
69							callback => \&parseContext,
70							attribute => 'Normal Text',
71							},
72							'Header' => {
73							callback => \&parseHeader,
74							attribute => 'Header',
75							},
76							'Keyword' => {
77							callback => \&parseKeyword,
78							attribute => 'Keyword',
79							lineending => '#pop',
80							},
81							'Lyrics' => {
82							callback => \&parseLyrics,
83							attribute => 'Lyrics',
84							},
85							'Normal' => {
86							callback => \&parseNormal,
87							attribute => 'Normal Text',
88							},
89							'Preprocessor' => {
90							callback => \&parsePreprocessor,
91							attribute => 'Preprocessor',
92							lineending => '#pop',
93							},
94							'Repeat' => {
95							callback => \&parseRepeat,
96							attribute => 'Normal Text',
97							},
98							'Slur' => {
99							callback => \&parseSlur,
100							attribute => 'Normal',
101							},
102							});
103	2					14	$self->deliminators('\\s\|\|\\.\|\$\|\$\|:\|\\!\|\\+\|,\|-\|<\|=\|>\|\\%\|\\&\|\\*\|\\/\|;\|\\?\|\\[\|\\]\|\\^\|\\{\|\\\|\|\\}\|\\~\|\\\\');
104	2					9	$self->basecontext('Normal');
105	2					14	$self->keywordscase(1);
106	2					6	$self->initialize;
107	2					6	bless ($self, $class);
108	2					10	return $self;
109							}
110
111							sub language {
112	0			0	0	0	return 'LilyPond';
113							}
114
115							sub parseCommand {
116	34			34	0	51	my ($self, $text) = @_;
117							# attribute => 'Header'
118							# char => '('
119							# context => 'Command'
120							# type => 'DetectChar'
121	34	50				92	if ($self->testDetectChar($text, '(', 0, 0, 0, undef, 0, 'Command', 'Header')) {
122	0					0	return 1
123							}
124							# attribute => 'Header'
125							# char => ')'
126							# context => '#pop'
127							# endRegion => 'command'
128							# type => 'DetectChar'
129	34	100				94	if ($self->testDetectChar($text, ')', 0, 0, 0, undef, 0, '#pop', 'Header')) {
130	2					7	return 1
131							}
132	32					71	return 0;
133							};
134
135							sub parseComment {
136	156			156	0	220	my ($self, $text) = @_;
137	156					356	return 0;
138							};
139
140							sub parseContext {
141	0			0	0	0	my ($self, $text) = @_;
142							# attribute => 'Context'
143							# char => '>'
144							# char1 => '>'
145							# context => '#pop'
146							# endRegion => 'context'
147							# type => 'Detect2Chars'
148	0	0				0	if ($self->testDetect2Chars($text, '>', '>', 0, 0, 0, undef, 0, '#pop', 'Context')) {
149	0					0	return 1
150							}
151	0					0	return 0;
152							};
153
154							sub parseHeader {
155	354			354	0	489	my ($self, $text) = @_;
156							# attribute => 'Keyword'
157							# char => '}'
158							# context => '#pop'
159							# endRegion => 'header'
160							# type => 'DetectChar'
161	354	100				1373	if ($self->testDetectChar($text, '}', 0, 0, 0, undef, 0, '#pop', 'Keyword')) {
162	2					8	return 1
163							}
164	352					1124	return 0;
165							};
166
167							sub parseKeyword {
168	0			0	0	0	my ($self, $text) = @_;
169	0					0	return 0;
170							};
171
172							sub parseLyrics {
173	0			0	0	0	my ($self, $text) = @_;
174							# attribute => 'Comment'
175							# char => '%'
176							# context => 'Comment'
177							# type => 'DetectChar'
178	0	0				0	if ($self->testDetectChar($text, '%', 0, 0, 0, undef, 0, 'Comment', 'Comment')) {
179	0					0	return 1
180							}
181							# attribute => 'Lyrics'
182							# char => '}'
183							# context => '#pop'
184							# endRegion => 'lyrics'
185							# type => 'DetectChar'
186	0	0				0	if ($self->testDetectChar($text, '}', 0, 0, 0, undef, 0, '#pop', 'Lyrics')) {
187	0					0	return 1
188							}
189	0					0	return 0;
190							};
191
192							sub parseNormal {
193	6812			6812	0	17383	my ($self, $text) = @_;
194							# String => 'repeats'
195							# attribute => 'Repeat'
196							# context => '#stay'
197							# type => 'keyword'
198	6812	100				44809	if ($self->testKeyword($text, 'repeats', 0, undef, 0, '#stay', 'Repeat')) {
199	4					14	return 1
200							}
201							# String => 'commands'
202							# attribute => 'Keyword'
203							# context => 'Keyword'
204							# type => 'keyword'
205	6808	50				48341	if ($self->testKeyword($text, 'commands', 0, undef, 0, 'Keyword', 'Keyword')) {
206	0					0	return 1
207							}
208							# String => '\addquote'
209							# attribute => 'Keyword'
210							# context => '#stay'
211							# type => 'StringDetect'
212	6808	50				34274	if ($self->testStringDetect($text, '\\addquote', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
213	0					0	return 1
214							}
215							# String => '\aeolian'
216							# attribute => 'Keyword'
217							# context => '#stay'
218							# type => 'StringDetect'
219	6808	50				32457	if ($self->testStringDetect($text, '\\aeolian', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
220	0					0	return 1
221							}
222							# String => '\applymusic'
223							# attribute => 'Keyword'
224							# context => '#stay'
225							# type => 'StringDetect'
226	6808	50				33548	if ($self->testStringDetect($text, '\\applymusic', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
227	0					0	return 1
228							}
229							# String => '\applyoutput'
230							# attribute => 'Keyword'
231							# context => '#stay'
232							# type => 'StringDetect'
233	6808	50				34309	if ($self->testStringDetect($text, '\\applyoutput', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
234	0					0	return 1
235							}
236							# String => '\autochange'
237							# attribute => 'Keyword'
238							# context => '#stay'
239							# type => 'StringDetect'
240	6808	50				32901	if ($self->testStringDetect($text, '\\autochange', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
241	0					0	return 1
242							}
243							# String => '\bar'
244							# attribute => 'Keyword'
245							# context => '#stay'
246							# type => 'StringDetect'
247	6808	100				26837	if ($self->testStringDetect($text, '\\bar', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
248	8					28	return 1
249							}
250							# String => '\bold'
251							# attribute => 'Keyword'
252							# context => '#stay'
253							# type => 'StringDetect'
254	6800	50				47911	if ($self->testStringDetect($text, '\\bold', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
255	0					0	return 1
256							}
257							# String => '\bookpaper'
258							# attribute => 'Keyword'
259							# context => '#stay'
260							# type => 'StringDetect'
261	6800	50				24509	if ($self->testStringDetect($text, '\\bookpaper', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
262	0					0	return 1
263							}
264							# String => '\book'
265							# attribute => 'Keyword'
266							# context => '#stay'
267							# type => 'StringDetect'
268	6800	50				27929	if ($self->testStringDetect($text, '\\book', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
269	0					0	return 1
270							}
271							# String => '\breathe'
272							# attribute => 'Keyword'
273							# context => '#stay'
274							# type => 'StringDetect'
275	6800	50				39621	if ($self->testStringDetect($text, '\\breathe', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
276	0					0	return 1
277							}
278							# String => '\breve '
279							# attribute => 'Keyword'
280							# context => '#stay'
281							# type => 'StringDetect'
282	6800	50				32580	if ($self->testStringDetect($text, '\\breve ', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
283	0					0	return 1
284							}
285							# String => '\cadenzaOff'
286							# attribute => 'Keyword'
287							# context => '#stay'
288							# type => 'StringDetect'
289	6800	50				26678	if ($self->testStringDetect($text, '\\cadenzaOff', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
290	0					0	return 1
291							}
292							# String => '\cadenzaOn'
293							# attribute => 'Keyword'
294							# context => '#stay'
295							# type => 'StringDetect'
296	6800	50				25317	if ($self->testStringDetect($text, '\\cadenzaOn', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
297	0					0	return 1
298							}
299							# String => '\change'
300							# attribute => 'Keyword'
301							# context => '#stay'
302							# type => 'StringDetect'
303	6800	50				30530	if ($self->testStringDetect($text, '\\change', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
304	0					0	return 1
305							}
306							# String => '\chords'
307							# attribute => 'Keyword'
308							# context => '#stay'
309							# type => 'StringDetect'
310	6800	50				26392	if ($self->testStringDetect($text, '\\chords', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
311	0					0	return 1
312							}
313							# String => '\column'
314							# attribute => 'Keyword'
315							# context => '#stay'
316							# type => 'StringDetect'
317	6800	50				41146	if ($self->testStringDetect($text, '\\column', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
318	0					0	return 1
319							}
320							# String => '\consists'
321							# attribute => 'Keyword'
322							# context => '#stay'
323							# type => 'StringDetect'
324	6800	100				25451	if ($self->testStringDetect($text, '\\consists', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
325	2					8	return 1
326							}
327							# String => '\context'
328							# attribute => 'Keyword'
329							# context => '#stay'
330							# type => 'StringDetect'
331	6798	100				28623	if ($self->testStringDetect($text, '\\context', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
332	12					38	return 1
333							}
334							# String => '\default'
335							# attribute => 'Keyword'
336							# context => '#stay'
337							# type => 'StringDetect'
338	6786	50				26969	if ($self->testStringDetect($text, '\\default', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
339	0					0	return 1
340							}
341							# String => '\dorian'
342							# attribute => 'Keyword'
343							# context => '#stay'
344							# type => 'StringDetect'
345	6786	50				29071	if ($self->testStringDetect($text, '\\dorian', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
346	0					0	return 1
347							}
348							# String => '\dotsBoth'
349							# attribute => 'Keyword'
350							# context => '#stay'
351							# type => 'StringDetect'
352	6786	50				26255	if ($self->testStringDetect($text, '\\dotsBoth', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
353	0					0	return 1
354							}
355							# String => '\dotsDown'
356							# attribute => 'Keyword'
357							# context => '#stay'
358							# type => 'StringDetect'
359	6786	50				27961	if ($self->testStringDetect($text, '\\dotsDown', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
360	0					0	return 1
361							}
362							# String => '\dotsUp'
363							# attribute => 'Keyword'
364							# context => '#stay'
365							# type => 'StringDetect'
366	6786	50				24719	if ($self->testStringDetect($text, '\\dotsUp', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
367	0					0	return 1
368							}
369							# String => '\drums'
370							# attribute => 'Keyword'
371							# context => '#stay'
372							# type => 'StringDetect'
373	6786	50				23814	if ($self->testStringDetect($text, '\\drums', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
374	0					0	return 1
375							}
376							# String => '\dynamicBoth'
377							# attribute => 'Keyword'
378							# context => '#stay'
379							# type => 'StringDetect'
380	6786	50				24901	if ($self->testStringDetect($text, '\\dynamicBoth', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
381	0					0	return 1
382							}
383							# String => '\dynamicDown'
384							# attribute => 'Keyword'
385							# context => '#stay'
386							# type => 'StringDetect'
387	6786	50				26069	if ($self->testStringDetect($text, '\\dynamicDown', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
388	0					0	return 1
389							}
390							# String => '\dynamicUp'
391							# attribute => 'Keyword'
392							# context => '#stay'
393							# type => 'StringDetect'
394	6786	50				35173	if ($self->testStringDetect($text, '\\dynamicUp', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
395	0					0	return 1
396							}
397							# String => '\emptyText'
398							# attribute => 'Keyword'
399							# context => '#stay'
400							# type => 'StringDetect'
401	6786	50				25300	if ($self->testStringDetect($text, '\\emptyText', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
402	0					0	return 1
403							}
404							# String => '\fatText'
405							# attribute => 'Keyword'
406							# context => '#stay'
407							# type => 'StringDetect'
408	6786	50				26393	if ($self->testStringDetect($text, '\\fatText', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
409	0					0	return 1
410							}
411							# String => '\figures'
412							# attribute => 'Keyword'
413							# context => '#stay'
414							# type => 'StringDetect'
415	6786	50				26818	if ($self->testStringDetect($text, '\\figures', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
416	0					0	return 1
417							}
418							# String => '\finger'
419							# attribute => 'Keyword'
420							# context => '#stay'
421							# type => 'StringDetect'
422	6786	50				24191	if ($self->testStringDetect($text, '\\finger', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
423	0					0	return 1
424							}
425							# String => '\flat'
426							# attribute => 'Keyword'
427							# context => '#stay'
428							# type => 'StringDetect'
429	6786	50				31983	if ($self->testStringDetect($text, '\\flat', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
430	0					0	return 1
431							}
432							# String => '\germanChords'
433							# attribute => 'Keyword'
434							# context => '#stay'
435							# type => 'StringDetect'
436	6786	50				40888	if ($self->testStringDetect($text, '\\germanChords', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
437	0					0	return 1
438							}
439							# String => '\include'
440							# attribute => 'Keyword'
441							# context => '#stay'
442							# type => 'StringDetect'
443	6786	50				29227	if ($self->testStringDetect($text, '\\include', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
444	0					0	return 1
445							}
446							# String => '\input'
447							# attribute => 'Keyword'
448							# context => '#stay'
449							# type => 'StringDetect'
450	6786	50				26181	if ($self->testStringDetect($text, '\\input', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
451	0					0	return 1
452							}
453							# String => '\italic'
454							# attribute => 'Keyword'
455							# context => '#stay'
456							# type => 'StringDetect'
457	6786	50				33497	if ($self->testStringDetect($text, '\\italic', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
458	0					0	return 1
459							}
460							# String => '\ionian'
461							# attribute => 'Keyword'
462							# context => '#stay'
463							# type => 'StringDetect'
464	6786	50				26353	if ($self->testStringDetect($text, '\\ionian', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
465	0					0	return 1
466							}
467							# String => '\locrian'
468							# attribute => 'Keyword'
469							# context => '#stay'
470							# type => 'StringDetect'
471	6786	50				22618	if ($self->testStringDetect($text, '\\locrian', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
472	0					0	return 1
473							}
474							# String => '\longa'
475							# attribute => 'Keyword'
476							# context => '#stay'
477							# type => 'StringDetect'
478	6786	50				27844	if ($self->testStringDetect($text, '\\longa', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
479	0					0	return 1
480							}
481							# String => '\lydian'
482							# attribute => 'Keyword'
483							# context => '#stay'
484							# type => 'StringDetect'
485	6786	50				25879	if ($self->testStringDetect($text, '\\lydian', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
486	0					0	return 1
487							}
488							# String => '\lyricsto'
489							# attribute => 'Keyword'
490							# context => '#stay'
491							# type => 'StringDetect'
492	6786	50				34040	if ($self->testStringDetect($text, '\\lyricsto', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
493	0					0	return 1
494							}
495							# String => '\major'
496							# attribute => 'Keyword'
497							# context => '#stay'
498							# type => 'StringDetect'
499	6786	100				30678	if ($self->testStringDetect($text, '\\major', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
500	8					29	return 1
501							}
502							# String => '\mark'
503							# attribute => 'Keyword'
504							# context => '#stay'
505							# type => 'StringDetect'
506	6778	50				31380	if ($self->testStringDetect($text, '\\mark', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
507	0					0	return 1
508							}
509							# String => '\markup'
510							# attribute => 'Keyword'
511							# context => '#stay'
512							# type => 'StringDetect'
513	6778	50				26353	if ($self->testStringDetect($text, '\\markup', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
514	0					0	return 1
515							}
516							# String => '\midi'
517							# attribute => 'Keyword'
518							# context => '#stay'
519							# type => 'StringDetect'
520	6778	50				24243	if ($self->testStringDetect($text, '\\midi', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
521	0					0	return 1
522							}
523							# String => '\minor'
524							# attribute => 'Keyword'
525							# context => '#stay'
526							# type => 'StringDetect'
527	6778	50				25321	if ($self->testStringDetect($text, '\\minor', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
528	0					0	return 1
529							}
530							# String => '\mixolydian'
531							# attribute => 'Keyword'
532							# context => '#stay'
533							# type => 'StringDetect'
534	6778	50				26304	if ($self->testStringDetect($text, '\\mixolydian', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
535	0					0	return 1
536							}
537							# String => '\musicglyph'
538							# attribute => 'Keyword'
539							# context => '#stay'
540							# type => 'StringDetect'
541	6778	50				24510	if ($self->testStringDetect($text, '\\musicglyph', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
542	0					0	return 1
543							}
544							# String => '\newlyrics'
545							# attribute => 'Keyword'
546							# context => '#stay'
547							# type => 'StringDetect'
548	6778	50				24461	if ($self->testStringDetect($text, '\\newlyrics', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
549	0					0	return 1
550							}
551							# String => '\new'
552							# attribute => 'Keyword'
553							# context => '#stay'
554							# type => 'StringDetect'
555	6778	50				25540	if ($self->testStringDetect($text, '\\new', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
556	0					0	return 1
557							}
558							# String => '\noBeam'
559							# attribute => 'Keyword'
560							# context => '#stay'
561							# type => 'StringDetect'
562	6778	50				26524	if ($self->testStringDetect($text, '\\noBeam', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
563	0					0	return 1
564							}
565							# String => '\notes'
566							# attribute => 'Keyword'
567							# context => '#stay'
568							# type => 'StringDetect'
569	6778	100				31120	if ($self->testStringDetect($text, '\\notes', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
570	12					41	return 1
571							}
572							# String => '\octave'
573							# attribute => 'Keyword'
574							# context => '#stay'
575							# type => 'StringDetect'
576	6766	50				28035	if ($self->testStringDetect($text, '\\octave', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
577	0					0	return 1
578							}
579							# String => '\once'
580							# attribute => 'Keyword'
581							# context => '#stay'
582							# type => 'StringDetect'
583	6766	50				24526	if ($self->testStringDetect($text, '\\once', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
584	0					0	return 1
585							}
586							# String => '\oneVoice'
587							# attribute => 'Keyword'
588							# context => '#stay'
589							# type => 'StringDetect'
590	6766	100				24669	if ($self->testStringDetect($text, '\\oneVoice', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
591	6					20	return 1
592							}
593							# String => '\override'
594							# attribute => 'Keyword'
595							# context => '#stay'
596							# type => 'StringDetect'
597	6760	50				22659	if ($self->testStringDetect($text, '\\override', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
598	0					0	return 1
599							}
600							# String => '\pageBreak'
601							# attribute => 'Keyword'
602							# context => '#stay'
603							# type => 'StringDetect'
604	6760	50				33707	if ($self->testStringDetect($text, '\\pageBreak', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
605	0					0	return 1
606							}
607							# String => '\paper'
608							# attribute => 'Keyword'
609							# context => '#stay'
610							# type => 'StringDetect'
611	6760	100				28110	if ($self->testStringDetect($text, '\\paper', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
612	2					8	return 1
613							}
614							# String => '\partcombine'
615							# attribute => 'Keyword'
616							# context => '#stay'
617							# type => 'StringDetect'
618	6758	50				23581	if ($self->testStringDetect($text, '\\partcombine', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
619	0					0	return 1
620							}
621							# String => '\partial'
622							# attribute => 'Keyword'
623							# context => '#stay'
624							# type => 'StringDetect'
625	6758	50				33923	if ($self->testStringDetect($text, '\\partial', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
626	0					0	return 1
627							}
628							# String => '\phrasingSlurBoth'
629							# attribute => 'Keyword'
630							# context => '#stay'
631							# type => 'StringDetect'
632	6758	50				29641	if ($self->testStringDetect($text, '\\phrasingSlurBoth', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
633	0					0	return 1
634							}
635							# String => '\phrasingSlurDown'
636							# attribute => 'Keyword'
637							# context => '#stay'
638							# type => 'StringDetect'
639	6758	50				32629	if ($self->testStringDetect($text, '\\phrasingSlurDown', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
640	0					0	return 1
641							}
642							# String => '\phrasingSlurUp'
643							# attribute => 'Keyword'
644							# context => '#stay'
645							# type => 'StringDetect'
646	6758	50				22993	if ($self->testStringDetect($text, '\\phrasingSlurUp', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
647	0					0	return 1
648							}
649							# String => '\phrigian'
650							# attribute => 'Keyword'
651							# context => '#stay'
652							# type => 'StringDetect'
653	6758	50				27356	if ($self->testStringDetect($text, '\\phrigian', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
654	0					0	return 1
655							}
656							# String => '\property'
657							# attribute => 'Keyword'
658							# context => '#stay'
659							# type => 'StringDetect'
660	6758	50				28358	if ($self->testStringDetect($text, '\\property', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
661	0					0	return 1
662							}
663							# String => '\quote'
664							# attribute => 'Keyword'
665							# context => '#stay'
666							# type => 'StringDetect'
667	6758	50				35938	if ($self->testStringDetect($text, '\\quote', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
668	0					0	return 1
669							}
670							# String => '\raise'
671							# attribute => 'Keyword'
672							# context => '#stay'
673							# type => 'StringDetect'
674	6758	50				29299	if ($self->testStringDetect($text, '\\raise', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
675	0					0	return 1
676							}
677							# String => '\relative'
678							# attribute => 'Keyword'
679							# context => '#stay'
680							# type => 'StringDetect'
681	6758	50				31895	if ($self->testStringDetect($text, '\\relative', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
682	0					0	return 1
683							}
684							# String => '\remove'
685							# attribute => 'Keyword'
686							# context => '#stay'
687							# type => 'StringDetect'
688	6758	50				32605	if ($self->testStringDetect($text, '\\remove', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
689	0					0	return 1
690							}
691							# String => '\renameinput'
692							# attribute => 'Keyword'
693							# context => '#stay'
694							# type => 'StringDetect'
695	6758	50				27345	if ($self->testStringDetect($text, '\\renameinput', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
696	0					0	return 1
697							}
698							# String => '\rest'
699							# attribute => 'Keyword'
700							# context => '#stay'
701							# type => 'StringDetect'
702	6758	50				24357	if ($self->testStringDetect($text, '\\rest', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
703	0					0	return 1
704							}
705							# String => '\revert'
706							# attribute => 'Keyword'
707							# context => '#stay'
708							# type => 'StringDetect'
709	6758	50				32059	if ($self->testStringDetect($text, '\\revert', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
710	0					0	return 1
711							}
712							# String => '\score'
713							# attribute => 'Keyword'
714							# context => '#stay'
715							# type => 'StringDetect'
716	6758	100				28951	if ($self->testStringDetect($text, '\\score', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
717	2					9	return 1
718							}
719							# String => '\scriptBoth'
720							# attribute => 'Keyword'
721							# context => '#stay'
722							# type => 'StringDetect'
723	6756	50				44344	if ($self->testStringDetect($text, '\\scriptBoth', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
724	0					0	return 1
725							}
726							# String => '\scriptDown'
727							# attribute => 'Keyword'
728							# context => '#stay'
729							# type => 'StringDetect'
730	6756	50				26806	if ($self->testStringDetect($text, '\\scriptDown', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
731	0					0	return 1
732							}
733							# String => '\scriptUp'
734							# attribute => 'Keyword'
735							# context => '#stay'
736							# type => 'StringDetect'
737	6756	50				27487	if ($self->testStringDetect($text, '\\scriptUp', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
738	0					0	return 1
739							}
740							# String => '\semiGermanChords'
741							# attribute => 'Keyword'
742							# context => '#stay'
743							# type => 'StringDetect'
744	6756	50				26694	if ($self->testStringDetect($text, '\\semiGermanChords', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
745	0					0	return 1
746							}
747							# String => '\setEasyHeads'
748							# attribute => 'Keyword'
749							# context => '#stay'
750							# type => 'StringDetect'
751	6756	50				36903	if ($self->testStringDetect($text, '\\setEasyHeads', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
752	0					0	return 1
753							}
754							# String => '\setHairpinCresc'
755							# attribute => 'Keyword'
756							# context => '#stay'
757							# type => 'StringDetect'
758	6756	50				30523	if ($self->testStringDetect($text, '\\setHairpinCresc', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
759	0					0	return 1
760							}
761							# String => '\setTextCresc'
762							# attribute => 'Keyword'
763							# context => '#stay'
764							# type => 'StringDetect'
765	6756	50				26486	if ($self->testStringDetect($text, '\\setTextCresc', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
766	0					0	return 1
767							}
768							# String => '\set'
769							# attribute => 'Keyword'
770							# context => '#stay'
771							# type => 'StringDetect'
772	6756	50				26810	if ($self->testStringDetect($text, '\\set', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
773	0					0	return 1
774							}
775							# String => '\shiftOff'
776							# attribute => 'Keyword'
777							# context => '#stay'
778							# type => 'StringDetect'
779	6756	50				27154	if ($self->testStringDetect($text, '\\shiftOff', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
780	0					0	return 1
781							}
782							# String => '\shiftOnnn'
783							# attribute => 'Keyword'
784							# context => '#stay'
785							# type => 'StringDetect'
786	6756	50				25519	if ($self->testStringDetect($text, '\\shiftOnnn', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
787	0					0	return 1
788							}
789							# String => '\shiftOnn'
790							# attribute => 'Keyword'
791							# context => '#stay'
792							# type => 'StringDetect'
793	6756	50				26580	if ($self->testStringDetect($text, '\\shiftOnn', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
794	0					0	return 1
795							}
796							# String => '\shiftOn'
797							# attribute => 'Keyword'
798							# context => '#stay'
799							# type => 'StringDetect'
800	6756	50				34058	if ($self->testStringDetect($text, '\\shiftOn', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
801	0					0	return 1
802							}
803							# String => '\simultaneous'
804							# attribute => 'Keyword'
805							# context => '#stay'
806							# type => 'StringDetect'
807	6756	50				26088	if ($self->testStringDetect($text, '\\simultaneous', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
808	0					0	return 1
809							}
810							# String => '\skip '
811							# attribute => 'Keyword'
812							# context => '#stay'
813							# type => 'StringDetect'
814	6756	50				24182	if ($self->testStringDetect($text, '\\skip ', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
815	0					0	return 1
816							}
817							# String => '\slurBoth'
818							# attribute => 'Keyword'
819							# context => '#stay'
820							# type => 'StringDetect'
821	6756	50				31217	if ($self->testStringDetect($text, '\\slurBoth', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
822	0					0	return 1
823							}
824							# String => '\slurDotted'
825							# attribute => 'Keyword'
826							# context => '#stay'
827							# type => 'StringDetect'
828	6756	50				26681	if ($self->testStringDetect($text, '\\slurDotted', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
829	0					0	return 1
830							}
831							# String => '\slurDown'
832							# attribute => 'Keyword'
833							# context => '#stay'
834							# type => 'StringDetect'
835	6756	50				27693	if ($self->testStringDetect($text, '\\slurDown', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
836	0					0	return 1
837							}
838							# String => '\slurSolid'
839							# attribute => 'Keyword'
840							# context => '#stay'
841							# type => 'StringDetect'
842	6756	50				37825	if ($self->testStringDetect($text, '\\slurSolid', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
843	0					0	return 1
844							}
845							# String => '\slurUp'
846							# attribute => 'Keyword'
847							# context => '#stay'
848							# type => 'StringDetect'
849	6756	50				24277	if ($self->testStringDetect($text, '\\slurUp', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
850	0					0	return 1
851							}
852							# String => '\smaller'
853							# attribute => 'Keyword'
854							# context => '#stay'
855							# type => 'StringDetect'
856	6756	50				38767	if ($self->testStringDetect($text, '\\smaller', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
857	0					0	return 1
858							}
859							# String => '\startGroup'
860							# attribute => 'Keyword'
861							# context => '#stay'
862							# type => 'StringDetect'
863	6756	50				25529	if ($self->testStringDetect($text, '\\startGroup', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
864	0					0	return 1
865							}
866							# String => '\startTextSpan'
867							# attribute => 'Keyword'
868							# context => '#stay'
869							# type => 'StringDetect'
870	6756	50				24512	if ($self->testStringDetect($text, '\\startTextSpan', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
871	0					0	return 1
872							}
873							# String => '\stemBoth'
874							# attribute => 'Keyword'
875							# context => '#stay'
876							# type => 'StringDetect'
877	6756	50				28157	if ($self->testStringDetect($text, '\\stemBoth', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
878	0					0	return 1
879							}
880							# String => '\stemDown'
881							# attribute => 'Keyword'
882							# context => '#stay'
883							# type => 'StringDetect'
884	6756	50				30181	if ($self->testStringDetect($text, '\\stemDown', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
885	0					0	return 1
886							}
887							# String => '\stemUp'
888							# attribute => 'Keyword'
889							# context => '#stay'
890							# type => 'StringDetect'
891	6756	50				28918	if ($self->testStringDetect($text, '\\stemUp', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
892	0					0	return 1
893							}
894							# String => '\stopGroup'
895							# attribute => 'Keyword'
896							# context => '#stay'
897							# type => 'StringDetect'
898	6756	50				28710	if ($self->testStringDetect($text, '\\stopGroup', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
899	0					0	return 1
900							}
901							# String => '\stopTextSpan'
902							# attribute => 'Keyword'
903							# context => '#stay'
904							# type => 'StringDetect'
905	6756	50				26134	if ($self->testStringDetect($text, '\\stopTextSpan', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
906	0					0	return 1
907							}
908							# String => '\tag'
909							# attribute => 'Keyword'
910							# context => '#stay'
911							# type => 'StringDetect'
912	6756	50				24173	if ($self->testStringDetect($text, '\\tag', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
913	0					0	return 1
914							}
915							# String => '\tempo'
916							# attribute => 'Keyword'
917							# context => '#stay'
918							# type => 'StringDetect'
919	6756	50				24307	if ($self->testStringDetect($text, '\\tempo', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
920	0					0	return 1
921							}
922							# String => '\thumb'
923							# attribute => 'Keyword'
924							# context => '#stay'
925							# type => 'StringDetect'
926	6756	50				24174	if ($self->testStringDetect($text, '\\thumb', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
927	0					0	return 1
928							}
929							# String => '\tieBoth'
930							# attribute => 'Keyword'
931							# context => '#stay'
932							# type => 'StringDetect'
933	6756	50				46820	if ($self->testStringDetect($text, '\\tieBoth', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
934	0					0	return 1
935							}
936							# String => '\tieDotted'
937							# attribute => 'Keyword'
938							# context => '#stay'
939							# type => 'StringDetect'
940	6756	50				22960	if ($self->testStringDetect($text, '\\tieDotted', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
941	0					0	return 1
942							}
943							# String => '\tieDown'
944							# attribute => 'Keyword'
945							# context => '#stay'
946							# type => 'StringDetect'
947	6756	50				31175	if ($self->testStringDetect($text, '\\tieDown', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
948	0					0	return 1
949							}
950							# String => '\tieSolid'
951							# attribute => 'Keyword'
952							# context => '#stay'
953							# type => 'StringDetect'
954	6756	50				25992	if ($self->testStringDetect($text, '\\tieSolid', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
955	0					0	return 1
956							}
957							# String => '\tieUp'
958							# attribute => 'Keyword'
959							# context => '#stay'
960							# type => 'StringDetect'
961	6756	50				23963	if ($self->testStringDetect($text, '\\tieUp', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
962	0					0	return 1
963							}
964							# String => '\transpose'
965							# attribute => 'Keyword'
966							# context => '#stay'
967							# type => 'StringDetect'
968	6756	50				32059	if ($self->testStringDetect($text, '\\transpose', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
969	0					0	return 1
970							}
971							# String => '\transposition'
972							# attribute => 'Keyword'
973							# context => '#stay'
974							# type => 'StringDetect'
975	6756	50				30824	if ($self->testStringDetect($text, '\\transposition', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
976	0					0	return 1
977							}
978							# String => '\tupletBoth'
979							# attribute => 'Keyword'
980							# context => '#stay'
981							# type => 'StringDetect'
982	6756	50				29618	if ($self->testStringDetect($text, '\\tupletBoth', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
983	0					0	return 1
984							}
985							# String => '\tupletDown'
986							# attribute => 'Keyword'
987							# context => '#stay'
988							# type => 'StringDetect'
989	6756	50				54009	if ($self->testStringDetect($text, '\\tupletDown', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
990	0					0	return 1
991							}
992							# String => '\tupletUp'
993							# attribute => 'Keyword'
994							# context => '#stay'
995							# type => 'StringDetect'
996	6756	50				25392	if ($self->testStringDetect($text, '\\tupletUp', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
997	0					0	return 1
998							}
999							# String => '\typewriter'
1000							# attribute => 'Keyword'
1001							# context => '#stay'
1002							# type => 'StringDetect'
1003	6756	50				25455	if ($self->testStringDetect($text, '\\typewriter', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
1004	0					0	return 1
1005							}
1006							# String => '\voiceFour'
1007							# attribute => 'Keyword'
1008							# context => '#stay'
1009							# type => 'StringDetect'
1010	6756	50				26277	if ($self->testStringDetect($text, '\\voiceFour', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
1011	0					0	return 1
1012							}
1013							# String => '\unset'
1014							# attribute => 'Keyword'
1015							# context => '#stay'
1016							# type => 'StringDetect'
1017	6756	50				28026	if ($self->testStringDetect($text, '\\unset', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
1018	0					0	return 1
1019							}
1020							# String => '\voiceOne'
1021							# attribute => 'Keyword'
1022							# context => '#stay'
1023							# type => 'StringDetect'
1024	6756	100				25794	if ($self->testStringDetect($text, '\\voiceOne', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
1025	8					28	return 1
1026							}
1027							# String => '\voiceThree'
1028							# attribute => 'Keyword'
1029							# context => '#stay'
1030							# type => 'StringDetect'
1031	6748	50				23011	if ($self->testStringDetect($text, '\\voiceThree', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
1032	0					0	return 1
1033							}
1034							# String => '\voiceTwo'
1035							# attribute => 'Keyword'
1036							# context => '#stay'
1037							# type => 'StringDetect'
1038	6748	100				25129	if ($self->testStringDetect($text, '\\voiceTwo', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
1039	2					9	return 1
1040							}
1041							# String => '\with'
1042							# attribute => 'Keyword'
1043							# context => '#stay'
1044							# type => 'StringDetect'
1045	6746	50				22609	if ($self->testStringDetect($text, '\\with', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
1046	0					0	return 1
1047							}
1048							# String => '\accento'
1049							# attribute => 'Decoration'
1050							# context => '#stay'
1051							# type => 'StringDetect'
1052	6746	50				27602	if ($self->testStringDetect($text, '\\accento', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1053	0					0	return 1
1054							}
1055							# String => '\acciaccatura'
1056							# attribute => 'Decoration'
1057							# context => '#stay'
1058							# type => 'StringDetect'
1059	6746	50				26989	if ($self->testStringDetect($text, '\\acciaccatura', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1060	0					0	return 1
1061							}
1062							# String => '\appoggiatura'
1063							# attribute => 'Decoration'
1064							# context => '#stay'
1065							# type => 'StringDetect'
1066	6746	50				25241	if ($self->testStringDetect($text, '\\appoggiatura', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1067	0					0	return 1
1068							}
1069							# String => '\arpeggioBoth'
1070							# attribute => 'Decoration'
1071							# context => '#stay'
1072							# type => 'StringDetect'
1073	6746	50				28929	if ($self->testStringDetect($text, '\\arpeggioBoth', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1074	0					0	return 1
1075							}
1076							# String => '\arpeggioBracket'
1077							# attribute => 'Decoration'
1078							# context => '#stay'
1079							# type => 'StringDetect'
1080	6746	50				31471	if ($self->testStringDetect($text, '\\arpeggioBracket', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1081	0					0	return 1
1082							}
1083							# String => '\arpeggioDown'
1084							# attribute => 'Decoration'
1085							# context => '#stay'
1086							# type => 'StringDetect'
1087	6746	50				22670	if ($self->testStringDetect($text, '\\arpeggioDown', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1088	0					0	return 1
1089							}
1090							# String => '\arpeggioUp'
1091							# attribute => 'Decoration'
1092							# context => '#stay'
1093							# type => 'StringDetect'
1094	6746	50				28170	if ($self->testStringDetect($text, '\\arpeggioUp', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1095	0					0	return 1
1096							}
1097							# String => '\arpeggio'
1098							# attribute => 'Decoration'
1099							# context => '#stay'
1100							# type => 'StringDetect'
1101	6746	50				22591	if ($self->testStringDetect($text, '\\arpeggio', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1102	0					0	return 1
1103							}
1104							# String => '\coda'
1105							# attribute => 'Decoration'
1106							# context => '#stay'
1107							# type => 'StringDetect'
1108	6746	50				24888	if ($self->testStringDetect($text, '\\coda', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1109	0					0	return 1
1110							}
1111							# String => '\downbow'
1112							# attribute => 'Decoration'
1113							# context => '#stay'
1114							# type => 'StringDetect'
1115	6746	50				26638	if ($self->testStringDetect($text, '\\downbow', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1116	0					0	return 1
1117							}
1118							# String => '\downmordent'
1119							# attribute => 'Decoration'
1120							# context => '#stay'
1121							# type => 'StringDetect'
1122	6746	50				29237	if ($self->testStringDetect($text, '\\downmordent', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1123	0					0	return 1
1124							}
1125							# String => '\downprall'
1126							# attribute => 'Decoration'
1127							# context => '#stay'
1128							# type => 'StringDetect'
1129	6746	50				31741	if ($self->testStringDetect($text, '\\downprall', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1130	0					0	return 1
1131							}
1132							# String => '\fermataMarkup'
1133							# attribute => 'Decoration'
1134							# context => '#stay'
1135							# type => 'StringDetect'
1136	6746	50				26650	if ($self->testStringDetect($text, '\\fermataMarkup', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1137	0					0	return 1
1138							}
1139							# String => '\fermata'
1140							# attribute => 'Decoration'
1141							# context => '#stay'
1142							# type => 'StringDetect'
1143	6746	50				29030	if ($self->testStringDetect($text, '\\fermata', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1144	0					0	return 1
1145							}
1146							# String => '\flageolet'
1147							# attribute => 'Decoration'
1148							# context => '#stay'
1149							# type => 'StringDetect'
1150	6746	50				25701	if ($self->testStringDetect($text, '\\flageolet', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1151	0					0	return 1
1152							}
1153							# String => '\glissando'
1154							# attribute => 'Decoration'
1155							# context => '#stay'
1156							# type => 'StringDetect'
1157	6746	50				23395	if ($self->testStringDetect($text, '\\glissando', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1158	0					0	return 1
1159							}
1160							# String => '\grace'
1161							# attribute => 'Decoration'
1162							# context => '#stay'
1163							# type => 'StringDetect'
1164	6746	50				29675	if ($self->testStringDetect($text, '\\grace', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1165	0					0	return 1
1166							}
1167							# String => '\harmonic'
1168							# attribute => 'Decoration'
1169							# context => '#stay'
1170							# type => 'StringDetect'
1171	6746	50				26073	if ($self->testStringDetect($text, '\\harmonic', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1172	0					0	return 1
1173							}
1174							# String => '\lheel'
1175							# attribute => 'Decoration'
1176							# context => '#stay'
1177							# type => 'StringDetect'
1178	6746	50				23969	if ($self->testStringDetect($text, '\\lheel', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1179	0					0	return 1
1180							}
1181							# String => '\lineprall'
1182							# attribute => 'Decoration'
1183							# context => '#stay'
1184							# type => 'StringDetect'
1185	6746	50				26957	if ($self->testStringDetect($text, '\\lineprall', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1186	0					0	return 1
1187							}
1188							# String => '\longfermata'
1189							# attribute => 'Decoration'
1190							# context => '#stay'
1191							# type => 'StringDetect'
1192	6746	50				23391	if ($self->testStringDetect($text, '\\longfermata', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1193	0					0	return 1
1194							}
1195							# String => '\ltoe'
1196							# attribute => 'Decoration'
1197							# context => '#stay'
1198							# type => 'StringDetect'
1199	6746	50				40352	if ($self->testStringDetect($text, '\\ltoe', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1200	0					0	return 1
1201							}
1202							# String => '\melismaEnd'
1203							# attribute => 'Decoration'
1204							# context => '#stay'
1205							# type => 'StringDetect'
1206	6746	50				41833	if ($self->testStringDetect($text, '\\melismaEnd', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1207	0					0	return 1
1208							}
1209							# String => '\melisma'
1210							# attribute => 'Decoration'
1211							# context => '#stay'
1212							# type => 'StringDetect'
1213	6746	50				34749	if ($self->testStringDetect($text, '\\melisma', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1214	0					0	return 1
1215							}
1216							# String => '\mordent'
1217							# attribute => 'Decoration'
1218							# context => '#stay'
1219							# type => 'StringDetect'
1220	6746	50				33133	if ($self->testStringDetect($text, '\\mordent', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1221	0					0	return 1
1222							}
1223							# String => '\open'
1224							# attribute => 'Decoration'
1225							# context => '#stay'
1226							# type => 'StringDetect'
1227	6746	50				24022	if ($self->testStringDetect($text, '\\open', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1228	0					0	return 1
1229							}
1230							# String => '\portato'
1231							# attribute => 'Decoration'
1232							# context => '#stay'
1233							# type => 'StringDetect'
1234	6746	50				25112	if ($self->testStringDetect($text, '\\portato', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1235	0					0	return 1
1236							}
1237							# String => '\prall'
1238							# attribute => 'Decoration'
1239							# context => '#stay'
1240							# type => 'StringDetect'
1241	6746	50				28034	if ($self->testStringDetect($text, '\\prall', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1242	0					0	return 1
1243							}
1244							# String => '\pralldown'
1245							# attribute => 'Decoration'
1246							# context => '#stay'
1247							# type => 'StringDetect'
1248	6746	50				31233	if ($self->testStringDetect($text, '\\pralldown', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1249	0					0	return 1
1250							}
1251							# String => '\prallmordent'
1252							# attribute => 'Decoration'
1253							# context => '#stay'
1254							# type => 'StringDetect'
1255	6746	50				23958	if ($self->testStringDetect($text, '\\prallmordent', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1256	0					0	return 1
1257							}
1258							# String => '\prallprall'
1259							# attribute => 'Decoration'
1260							# context => '#stay'
1261							# type => 'StringDetect'
1262	6746	50				32371	if ($self->testStringDetect($text, '\\prallprall', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1263	0					0	return 1
1264							}
1265							# String => '\prallup'
1266							# attribute => 'Decoration'
1267							# context => '#stay'
1268							# type => 'StringDetect'
1269	6746	50				23181	if ($self->testStringDetect($text, '\\prallup', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1270	0					0	return 1
1271							}
1272							# String => '\reverseturn'
1273							# attribute => 'Decoration'
1274							# context => '#stay'
1275							# type => 'StringDetect'
1276	6746	50				30591	if ($self->testStringDetect($text, '\\reverseturn', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1277	0					0	return 1
1278							}
1279							# String => '\rheel'
1280							# attribute => 'Decoration'
1281							# context => '#stay'
1282							# type => 'StringDetect'
1283	6746	50				37186	if ($self->testStringDetect($text, '\\rheel', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1284	0					0	return 1
1285							}
1286							# String => '\rtoe'
1287							# attribute => 'Decoration'
1288							# context => '#stay'
1289							# type => 'StringDetect'
1290	6746	50				30297	if ($self->testStringDetect($text, '\\rtoe', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1291	0					0	return 1
1292							}
1293							# String => '\segno'
1294							# attribute => 'Decoration'
1295							# context => '#stay'
1296							# type => 'StringDetect'
1297	6746	50				33268	if ($self->testStringDetect($text, '\\segno', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1298	0					0	return 1
1299							}
1300							# String => '\shortfermata'
1301							# attribute => 'Decoration'
1302							# context => '#stay'
1303							# type => 'StringDetect'
1304	6746	50				39068	if ($self->testStringDetect($text, '\\shortfermata', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1305	0					0	return 1
1306							}
1307							# String => '\signumcongruentiae'
1308							# attribute => 'Decoration'
1309							# context => '#stay'
1310							# type => 'StringDetect'
1311	6746	50				28044	if ($self->testStringDetect($text, '\\signumcongruentiae', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1312	0					0	return 1
1313							}
1314							# String => '\sostenutoDown'
1315							# attribute => 'Decoration'
1316							# context => '#stay'
1317							# type => 'StringDetect'
1318	6746	50				26491	if ($self->testStringDetect($text, '\\sostenutoDown', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1319	0					0	return 1
1320							}
1321							# String => '\sostenutoUp'
1322							# attribute => 'Decoration'
1323							# context => '#stay'
1324							# type => 'StringDetect'
1325	6746	50				26990	if ($self->testStringDetect($text, '\\sostenutoUp', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1326	0					0	return 1
1327							}
1328							# String => '\staccatissimo'
1329							# attribute => 'Decoration'
1330							# context => '#stay'
1331							# type => 'StringDetect'
1332	6746	50				26614	if ($self->testStringDetect($text, '\\staccatissimo', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1333	0					0	return 1
1334							}
1335							# String => '\staccato'
1336							# attribute => 'Decoration'
1337							# context => '#stay'
1338							# type => 'StringDetect'
1339	6746	50				24561	if ($self->testStringDetect($text, '\\staccato', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1340	0					0	return 1
1341							}
1342							# String => '\stopped'
1343							# attribute => 'Decoration'
1344							# context => '#stay'
1345							# type => 'StringDetect'
1346	6746	50				27040	if ($self->testStringDetect($text, '\\stopped', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1347	0					0	return 1
1348							}
1349							# String => '\sustainDown'
1350							# attribute => 'Decoration'
1351							# context => '#stay'
1352							# type => 'StringDetect'
1353	6746	50				27763	if ($self->testStringDetect($text, '\\sustainDown', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1354	0					0	return 1
1355							}
1356							# String => '\sustainUp'
1357							# attribute => 'Decoration'
1358							# context => '#stay'
1359							# type => 'StringDetect'
1360	6746	50				24671	if ($self->testStringDetect($text, '\\sustainUp', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1361	0					0	return 1
1362							}
1363							# String => '\tenuto'
1364							# attribute => 'Decoration'
1365							# context => '#stay'
1366							# type => 'StringDetect'
1367	6746	50				33776	if ($self->testStringDetect($text, '\\tenuto', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1368	0					0	return 1
1369							}
1370							# String => '\thumb'
1371							# attribute => 'Decoration'
1372							# context => '#stay'
1373							# type => 'StringDetect'
1374	6746	50				27570	if ($self->testStringDetect($text, '\\thumb', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1375	0					0	return 1
1376							}
1377							# String => '\trill'
1378							# attribute => 'Decoration'
1379							# context => '#stay'
1380							# type => 'StringDetect'
1381	6746	50				23516	if ($self->testStringDetect($text, '\\trill', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1382	0					0	return 1
1383							}
1384							# String => '\turn'
1385							# attribute => 'Decoration'
1386							# context => '#stay'
1387							# type => 'StringDetect'
1388	6746	50				25965	if ($self->testStringDetect($text, '\\turn', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1389	0					0	return 1
1390							}
1391							# String => '\upbow'
1392							# attribute => 'Decoration'
1393							# context => '#stay'
1394							# type => 'StringDetect'
1395	6746	50				28645	if ($self->testStringDetect($text, '\\upbow', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1396	0					0	return 1
1397							}
1398							# String => '\upmordent'
1399							# attribute => 'Decoration'
1400							# context => '#stay'
1401							# type => 'StringDetect'
1402	6746	50				27372	if ($self->testStringDetect($text, '\\upmordent', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1403	0					0	return 1
1404							}
1405							# String => '\upprall'
1406							# attribute => 'Decoration'
1407							# context => '#stay'
1408							# type => 'StringDetect'
1409	6746	50				25201	if ($self->testStringDetect($text, '\\upprall', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1410	0					0	return 1
1411							}
1412							# String => '\varcoda'
1413							# attribute => 'Decoration'
1414							# context => '#stay'
1415							# type => 'StringDetect'
1416	6746	50				24590	if ($self->testStringDetect($text, '\\varcoda', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1417	0					0	return 1
1418							}
1419							# String => '\verylongfermata'
1420							# attribute => 'Decoration'
1421							# context => '#stay'
1422							# type => 'StringDetect'
1423	6746	50				28640	if ($self->testStringDetect($text, '\\verylongfermata', 0, 0, 0, undef, 0, '#stay', 'Decoration')) {
1424	0					0	return 1
1425							}
1426							# String => ' hihat'
1427							# attribute => 'Drums'
1428							# context => '#stay'
1429							# type => 'StringDetect'
1430	6746	50				22600	if ($self->testStringDetect($text, ' hihat', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1431	0					0	return 1
1432							}
1433							# String => ' snaredrum'
1434							# attribute => 'Drums'
1435							# context => '#stay'
1436							# type => 'StringDetect'
1437	6746	50				28780	if ($self->testStringDetect($text, ' snaredrum', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1438	0					0	return 1
1439							}
1440							# String => ' crashcymbal'
1441							# attribute => 'Drums'
1442							# context => '#stay'
1443							# type => 'StringDetect'
1444	6746	50				30652	if ($self->testStringDetect($text, ' crashcymbal', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1445	0					0	return 1
1446							}
1447							# String => ' openhihat'
1448							# attribute => 'Drums'
1449							# context => '#stay'
1450							# type => 'StringDetect'
1451	6746	50				25433	if ($self->testStringDetect($text, ' openhihat', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1452	0					0	return 1
1453							}
1454							# String => ' halfopenhihat'
1455							# attribute => 'Drums'
1456							# context => '#stay'
1457							# type => 'StringDetect'
1458	6746	50				32928	if ($self->testStringDetect($text, ' halfopenhihat', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1459	0					0	return 1
1460							}
1461							# String => ' closedhihat'
1462							# attribute => 'Drums'
1463							# context => '#stay'
1464							# type => 'StringDetect'
1465	6746	50				31859	if ($self->testStringDetect($text, ' closedhihat', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1466	0					0	return 1
1467							}
1468							# String => ' bassdrum'
1469							# attribute => 'Drums'
1470							# context => '#stay'
1471							# type => 'StringDetect'
1472	6746	50				27441	if ($self->testStringDetect($text, ' bassdrum', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1473	0					0	return 1
1474							}
1475							# String => ' snare'
1476							# attribute => 'Drums'
1477							# context => '#stay'
1478							# type => 'StringDetect'
1479	6746	50				23665	if ($self->testStringDetect($text, ' snare', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1480	0					0	return 1
1481							}
1482							# String => ' bd'
1483							# attribute => 'Drums'
1484							# context => '#stay'
1485							# type => 'StringDetect'
1486	6746	50				29091	if ($self->testStringDetect($text, ' bd', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1487	0					0	return 1
1488							}
1489							# String => ' sn'
1490							# attribute => 'Drums'
1491							# context => '#stay'
1492							# type => 'StringDetect'
1493	6746	50				28093	if ($self->testStringDetect($text, ' sn', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1494	0					0	return 1
1495							}
1496							# String => ' cymc'
1497							# attribute => 'Drums'
1498							# context => '#stay'
1499							# type => 'StringDetect'
1500	6746	50				37584	if ($self->testStringDetect($text, ' cymc', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1501	0					0	return 1
1502							}
1503							# String => ' cyms'
1504							# attribute => 'Drums'
1505							# context => '#stay'
1506							# type => 'StringDetect'
1507	6746	50				26414	if ($self->testStringDetect($text, ' cyms', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1508	0					0	return 1
1509							}
1510							# String => ' cymr'
1511							# attribute => 'Drums'
1512							# context => '#stay'
1513							# type => 'StringDetect'
1514	6746	50				21945	if ($self->testStringDetect($text, ' cymr', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1515	0					0	return 1
1516							}
1517							# String => ' hhho'
1518							# attribute => 'Drums'
1519							# context => '#stay'
1520							# type => 'StringDetect'
1521	6746	50				24471	if ($self->testStringDetect($text, ' hhho', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1522	0					0	return 1
1523							}
1524							# String => ' hhc'
1525							# attribute => 'Drums'
1526							# context => '#stay'
1527							# type => 'StringDetect'
1528	6746	50				34495	if ($self->testStringDetect($text, ' hhc', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1529	0					0	return 1
1530							}
1531							# String => ' hho'
1532							# attribute => 'Drums'
1533							# context => '#stay'
1534							# type => 'StringDetect'
1535	6746	50				28991	if ($self->testStringDetect($text, ' hho', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1536	0					0	return 1
1537							}
1538							# String => ' hhp'
1539							# attribute => 'Drums'
1540							# context => '#stay'
1541							# type => 'StringDetect'
1542	6746	50				30092	if ($self->testStringDetect($text, ' hhp', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1543	0					0	return 1
1544							}
1545							# String => ' hh'
1546							# attribute => 'Drums'
1547							# context => '#stay'
1548							# type => 'StringDetect'
1549	6746	50				30304	if ($self->testStringDetect($text, ' hh', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1550	0					0	return 1
1551							}
1552							# String => ' cb'
1553							# attribute => 'Drums'
1554							# context => '#stay'
1555							# type => 'StringDetect'
1556	6746	50				40089	if ($self->testStringDetect($text, ' cb', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1557	0					0	return 1
1558							}
1559							# String => ' hc'
1560							# attribute => 'Drums'
1561							# context => '#stay'
1562							# type => 'StringDetect'
1563	6746	50				24888	if ($self->testStringDetect($text, ' hc', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1564	0					0	return 1
1565							}
1566							# String => ' ssl'
1567							# attribute => 'Drums'
1568							# context => '#stay'
1569							# type => 'StringDetect'
1570	6746	50				26139	if ($self->testStringDetect($text, ' ssl', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1571	0					0	return 1
1572							}
1573							# String => ' ssh'
1574							# attribute => 'Drums'
1575							# context => '#stay'
1576							# type => 'StringDetect'
1577	6746	50				38499	if ($self->testStringDetect($text, ' ssh', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1578	0					0	return 1
1579							}
1580							# String => ' ss'
1581							# attribute => 'Drums'
1582							# context => '#stay'
1583							# type => 'StringDetect'
1584	6746	50				27278	if ($self->testStringDetect($text, ' ss', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1585	0					0	return 1
1586							}
1587							# String => ' tommmh'
1588							# attribute => 'Drums'
1589							# context => '#stay'
1590							# type => 'StringDetect'
1591	6746	50				28286	if ($self->testStringDetect($text, ' tommmh', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1592	0					0	return 1
1593							}
1594							# String => ' tommh'
1595							# attribute => 'Drums'
1596							# context => '#stay'
1597							# type => 'StringDetect'
1598	6746	50				25113	if ($self->testStringDetect($text, ' tommh', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1599	0					0	return 1
1600							}
1601							# String => ' tomh'
1602							# attribute => 'Drums'
1603							# context => '#stay'
1604							# type => 'StringDetect'
1605	6746	50				27509	if ($self->testStringDetect($text, ' tomh', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1606	0					0	return 1
1607							}
1608							# String => ' toml'
1609							# attribute => 'Drums'
1610							# context => '#stay'
1611							# type => 'StringDetect'
1612	6746	50				25121	if ($self->testStringDetect($text, ' toml', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1613	0					0	return 1
1614							}
1615							# String => ' tomfh'
1616							# attribute => 'Drums'
1617							# context => '#stay'
1618							# type => 'StringDetect'
1619	6746	50				36233	if ($self->testStringDetect($text, ' tomfh', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1620	0					0	return 1
1621							}
1622							# String => ' tomfl'
1623							# attribute => 'Drums'
1624							# context => '#stay'
1625							# type => 'StringDetect'
1626	6746	50				37160	if ($self->testStringDetect($text, ' tomfl', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1627	0					0	return 1
1628							}
1629							# String => ' timh'
1630							# attribute => 'Drums'
1631							# context => '#stay'
1632							# type => 'StringDetect'
1633	6746	50				25379	if ($self->testStringDetect($text, ' timh', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1634	0					0	return 1
1635							}
1636							# String => ' timl'
1637							# attribute => 'Drums'
1638							# context => '#stay'
1639							# type => 'StringDetect'
1640	6746	50				30344	if ($self->testStringDetect($text, ' timl', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1641	0					0	return 1
1642							}
1643							# String => ' cgho'
1644							# attribute => 'Drums'
1645							# context => '#stay'
1646							# type => 'StringDetect'
1647	6746	50				24485	if ($self->testStringDetect($text, ' cgho', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1648	0					0	return 1
1649							}
1650							# String => ' cghm'
1651							# attribute => 'Drums'
1652							# context => '#stay'
1653							# type => 'StringDetect'
1654	6746	50				26606	if ($self->testStringDetect($text, ' cghm', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1655	0					0	return 1
1656							}
1657							# String => ' cgh'
1658							# attribute => 'Drums'
1659							# context => '#stay'
1660							# type => 'StringDetect'
1661	6746	50				25957	if ($self->testStringDetect($text, ' cgh', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1662	0					0	return 1
1663							}
1664							# String => ' cglo'
1665							# attribute => 'Drums'
1666							# context => '#stay'
1667							# type => 'StringDetect'
1668	6746	50				24137	if ($self->testStringDetect($text, ' cglo', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1669	0					0	return 1
1670							}
1671							# String => ' cglm'
1672							# attribute => 'Drums'
1673							# context => '#stay'
1674							# type => 'StringDetect'
1675	6746	50				38744	if ($self->testStringDetect($text, ' cglm', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1676	0					0	return 1
1677							}
1678							# String => ' cgl'
1679							# attribute => 'Drums'
1680							# context => '#stay'
1681							# type => 'StringDetect'
1682	6746	50				27479	if ($self->testStringDetect($text, ' cgl', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1683	0					0	return 1
1684							}
1685							# String => ' boho'
1686							# attribute => 'Drums'
1687							# context => '#stay'
1688							# type => 'StringDetect'
1689	6746	50				26317	if ($self->testStringDetect($text, ' boho', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1690	0					0	return 1
1691							}
1692							# String => ' bohm'
1693							# attribute => 'Drums'
1694							# context => '#stay'
1695							# type => 'StringDetect'
1696	6746	50				32132	if ($self->testStringDetect($text, ' bohm', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1697	0					0	return 1
1698							}
1699							# String => ' boh'
1700							# attribute => 'Drums'
1701							# context => '#stay'
1702							# type => 'StringDetect'
1703	6746	50				24219	if ($self->testStringDetect($text, ' boh', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1704	0					0	return 1
1705							}
1706							# String => ' bolo'
1707							# attribute => 'Drums'
1708							# context => '#stay'
1709							# type => 'StringDetect'
1710	6746	50				26135	if ($self->testStringDetect($text, ' bolo', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1711	0					0	return 1
1712							}
1713							# String => ' bolm'
1714							# attribute => 'Drums'
1715							# context => '#stay'
1716							# type => 'StringDetect'
1717	6746	50				22433	if ($self->testStringDetect($text, ' bolm', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1718	0					0	return 1
1719							}
1720							# String => ' bol'
1721							# attribute => 'Drums'
1722							# context => '#stay'
1723							# type => 'StringDetect'
1724	6746	50				34612	if ($self->testStringDetect($text, ' bol', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1725	0					0	return 1
1726							}
1727							# String => ' trio'
1728							# attribute => 'Drums'
1729							# context => '#stay'
1730							# type => 'StringDetect'
1731	6746	50				29849	if ($self->testStringDetect($text, ' trio', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1732	0					0	return 1
1733							}
1734							# String => ' trim'
1735							# attribute => 'Drums'
1736							# context => '#stay'
1737							# type => 'StringDetect'
1738	6746	50				23581	if ($self->testStringDetect($text, ' trim', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1739	0					0	return 1
1740							}
1741							# String => ' tri'
1742							# attribute => 'Drums'
1743							# context => '#stay'
1744							# type => 'StringDetect'
1745	6746	50				26345	if ($self->testStringDetect($text, ' tri', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1746	0					0	return 1
1747							}
1748							# String => ' guis'
1749							# attribute => 'Drums'
1750							# context => '#stay'
1751							# type => 'StringDetect'
1752	6746	50				24553	if ($self->testStringDetect($text, ' guis', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1753	0					0	return 1
1754							}
1755							# String => ' guil'
1756							# attribute => 'Drums'
1757							# context => '#stay'
1758							# type => 'StringDetect'
1759	6746	50				28382	if ($self->testStringDetect($text, ' guil', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1760	0					0	return 1
1761							}
1762							# String => ' gui'
1763							# attribute => 'Drums'
1764							# context => '#stay'
1765							# type => 'StringDetect'
1766	6746	50				43614	if ($self->testStringDetect($text, ' gui', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1767	0					0	return 1
1768							}
1769							# String => ' cl'
1770							# attribute => 'Drums'
1771							# context => '#stay'
1772							# type => 'StringDetect'
1773	6746	50				27720	if ($self->testStringDetect($text, ' cl', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1774	0					0	return 1
1775							}
1776							# String => ' tamb'
1777							# attribute => 'Drums'
1778							# context => '#stay'
1779							# type => 'StringDetect'
1780	6746	50				25508	if ($self->testStringDetect($text, ' tamb', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1781	0					0	return 1
1782							}
1783							# String => ' cab'
1784							# attribute => 'Drums'
1785							# context => '#stay'
1786							# type => 'StringDetect'
1787	6746	50				22454	if ($self->testStringDetect($text, ' cab', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1788	0					0	return 1
1789							}
1790							# String => ' mar'
1791							# attribute => 'Drums'
1792							# context => '#stay'
1793							# type => 'StringDetect'
1794	6746	50				23079	if ($self->testStringDetect($text, ' mar', 0, 0, 0, undef, 0, '#stay', 'Drums')) {
1795	0					0	return 1
1796							}
1797							# String => '\\times [1-9]?/[1-9]?'
1798							# attribute => 'Tuplet'
1799							# context => '#pop'
1800							# type => 'RegExpr'
1801	6746	50				31713	if ($self->testRegExpr($text, '\\\\times [1-9]?/[1-9]?', 0, 0, 0, undef, 0, '#pop', 'Tuplet')) {
1802	0					0	return 1
1803							}
1804							# String => '\lyrics {'
1805							# attribute => 'Lyrics'
1806							# beginRegion => 'lyrics'
1807							# context => 'Lyrics'
1808							# type => 'StringDetect'
1809	6746	50				31533	if ($self->testStringDetect($text, '\\lyrics {', 0, 0, 0, undef, 0, 'Lyrics', 'Lyrics')) {
1810	0					0	return 1
1811							}
1812							# String => '\newlyrics {'
1813							# attribute => 'Lyrics'
1814							# beginRegion => 'lyrics'
1815							# context => 'Lyrics'
1816							# type => 'StringDetect'
1817	6746	50				28120	if ($self->testStringDetect($text, '\\newlyrics {', 0, 0, 0, undef, 0, 'Lyrics', 'Lyrics')) {
1818	0					0	return 1
1819							}
1820							# String => '\\header\s*{'
1821							# attribute => 'Keyword'
1822							# beginRegion => 'header'
1823							# context => 'Header'
1824							# type => 'RegExpr'
1825	6746	100				26718	if ($self->testRegExpr($text, '\\\\header\\s*{', 0, 0, 0, undef, 0, 'Header', 'Keyword')) {
1826	2					9	return 1
1827							}
1828							# attribute => 'String'
1829							# char => '"'
1830							# char1 => '"'
1831							# context => '#stay'
1832							# type => 'RangeDetect'
1833	6744	100				32959	if ($self->testRangeDetect($text, '"', '"', 0, 0, undef, 0, '#stay', 'String')) {
1834	18					74	return 1
1835							}
1836							# attribute => 'Chord'
1837							# char => '{'
1838							# context => '#stay'
1839							# type => 'DetectChar'
1840	6726	100				36238	if ($self->testDetectChar($text, '{', 0, 0, 0, undef, 0, '#stay', 'Chord')) {
1841	72					274	return 1
1842							}
1843							# attribute => 'Chord'
1844							# char => '}'
1845							# context => '#stay'
1846							# type => 'DetectChar'
1847	6654	100				27495	if ($self->testDetectChar($text, '}', 0, 0, 0, undef, 0, '#stay', 'Chord')) {
1848	70					254	return 1
1849							}
1850							# attribute => 'Chord'
1851							# char => '['
1852							# context => '#stay'
1853							# type => 'DetectChar'
1854	6584	50				24696	if ($self->testDetectChar($text, '[', 0, 0, 0, undef, 0, '#stay', 'Chord')) {
1855	0					0	return 1
1856							}
1857							# attribute => 'Chord'
1858							# char => ']'
1859							# context => '#stay'
1860							# type => 'DetectChar'
1861	6584	50				24924	if ($self->testDetectChar($text, ']', 0, 0, 0, undef, 0, '#stay', 'Chord')) {
1862	0					0	return 1
1863							}
1864							# attribute => 'Chord'
1865							# char => '<'
1866							# context => '#stay'
1867							# type => 'DetectChar'
1868	6584	100				31210	if ($self->testDetectChar($text, '<', 0, 0, 0, undef, 0, '#stay', 'Chord')) {
1869	208					978	return 1
1870							}
1871							# attribute => 'Chord'
1872							# char => '>'
1873							# context => '#stay'
1874							# type => 'DetectChar'
1875	6376	100				23728	if ($self->testDetectChar($text, '>', 0, 0, 0, undef, 0, '#stay', 'Chord')) {
1876	208					800	return 1
1877							}
1878							# attribute => 'Header'
1879							# beginRegion => 'command'
1880							# char => '#'
1881							# char1 => '('
1882							# context => 'Command'
1883							# type => 'Detect2Chars'
1884	6168	100				27339	if ($self->testDetect2Chars($text, '#', '(', 0, 0, 0, undef, 0, 'Command', 'Header')) {
1885	2					9	return 1
1886							}
1887							# attribute => 'Context'
1888							# beginRegion => 'context'
1889							# char => '<'
1890							# char1 => '<'
1891							# context => '#stay'
1892							# type => 'Detect2Chars'
1893	6166	50				31354	if ($self->testDetect2Chars($text, '<', '<', 0, 0, 0, undef, 0, '#stay', 'Context')) {
1894	0					0	return 1
1895							}
1896							# attribute => 'Context'
1897							# char => '>'
1898							# char1 => '>'
1899							# context => '#stay'
1900							# endRegion => 'context'
1901							# type => 'Detect2Chars'
1902	6166	50				29724	if ($self->testDetect2Chars($text, '>', '>', 0, 0, 0, undef, 0, '#stay', 'Context')) {
1903	0					0	return 1
1904							}
1905							# attribute => 'Chord'
1906							# char => '~'
1907							# context => '#stay'
1908							# type => 'DetectChar'
1909	6166	100				23382	if ($self->testDetectChar($text, '~', 0, 0, 0, undef, 0, '#stay', 'Chord')) {
1910	46					268	return 1
1911							}
1912							# attribute => 'Bar'
1913							# char => '\|'
1914							# context => '#stay'
1915							# type => 'DetectChar'
1916	6120	100				22714	if ($self->testDetectChar($text, '\|', 0, 0, 0, undef, 0, '#stay', 'Bar')) {
1917	96					365	return 1
1918							}
1919							# String => '[1-9]+:[1-9]+\b'
1920							# attribute => 'Repeat'
1921							# context => '#stay'
1922							# type => 'RegExpr'
1923	6024	50				28067	if ($self->testRegExpr($text, '[1-9]+:[1-9]+\\b', 0, 0, 0, undef, 0, '#stay', 'Repeat')) {
1924	0					0	return 1
1925							}
1926							# String => '\\?\('
1927							# attribute => 'Slur'
1928							# context => '#stay'
1929							# type => 'RegExpr'
1930	6024	100				43132	if ($self->testRegExpr($text, '\\\\?\\(', 0, 0, 0, undef, 0, '#stay', 'Slur')) {
1931	4					19	return 1
1932							}
1933							# String => '\\?\)'
1934							# attribute => 'Slur'
1935							# context => '#stay'
1936							# type => 'RegExpr'
1937	6020	100				29240	if ($self->testRegExpr($text, '\\\\?\\)', 0, 0, 0, undef, 0, '#stay', 'Slur')) {
1938	4					20	return 1
1939							}
1940							# String => '\\fff\b'
1941							# attribute => 'Dynamics'
1942							# context => '#stay'
1943							# type => 'RegExpr'
1944	6016	50				25553	if ($self->testRegExpr($text, '\\\\fff\\b', 0, 0, 0, undef, 0, '#stay', 'Dynamics')) {
1945	0					0	return 1
1946							}
1947							# String => '\\ff\b'
1948							# attribute => 'Dynamics'
1949							# context => '#stay'
1950							# type => 'RegExpr'
1951	6016	50				24567	if ($self->testRegExpr($text, '\\\\ff\\b', 0, 0, 0, undef, 0, '#stay', 'Dynamics')) {
1952	0					0	return 1
1953							}
1954							# String => '\\ppp\b'
1955							# attribute => 'Dynamics'
1956							# context => '#stay'
1957							# type => 'RegExpr'
1958	6016	50				30529	if ($self->testRegExpr($text, '\\\\ppp\\b', 0, 0, 0, undef, 0, '#stay', 'Dynamics')) {
1959	0					0	return 1
1960							}
1961							# String => '\\pp\b'
1962							# attribute => 'Dynamics'
1963							# context => '#stay'
1964							# type => 'RegExpr'
1965	6016	50				25246	if ($self->testRegExpr($text, '\\\\pp\\b', 0, 0, 0, undef, 0, '#stay', 'Dynamics')) {
1966	0					0	return 1
1967							}
1968							# String => '\\m?[f\|p]\b'
1969							# attribute => 'Dynamics'
1970							# context => '#stay'
1971							# type => 'RegExpr'
1972	6016	100				27296	if ($self->testRegExpr($text, '\\\\m?[f\|p]\\b', 0, 0, 0, undef, 0, '#stay', 'Dynamics')) {
1973	6					36	return 1
1974							}
1975							# String => '\\[s\|r]fz?\b'
1976							# attribute => 'Dynamics'
1977							# context => '#stay'
1978							# type => 'RegExpr'
1979	6010	50				24532	if ($self->testRegExpr($text, '\\\\[s\|r]fz?\\b', 0, 0, 0, undef, 0, '#stay', 'Dynamics')) {
1980	0					0	return 1
1981							}
1982							# String => '_[_.\\|+>^-]\b?'
1983							# attribute => 'Dynamics'
1984							# context => '#stay'
1985							# type => 'RegExpr'
1986	6010	50				25265	if ($self->testRegExpr($text, '_[_.\\\|+>^-]\\b?', 0, 0, 0, undef, 0, '#stay', 'Dynamics')) {
1987	0					0	return 1
1988							}
1989							# String => '\^[_.\\|+>^-]\b?'
1990							# attribute => 'Dynamics'
1991							# context => '#stay'
1992							# type => 'RegExpr'
1993	6010	50				29087	if ($self->testRegExpr($text, '\\^[_.\\\|+>^-]\\b?', 0, 0, 0, undef, 0, '#stay', 'Dynamics')) {
1994	0					0	return 1
1995							}
1996							# String => '-[_.\\|+>^-]\b?'
1997							# attribute => 'Dynamics'
1998							# context => '#stay'
1999							# type => 'RegExpr'
2000	6010	50				25438	if ($self->testRegExpr($text, '-[_.\\\|+>^-]\\b?', 0, 0, 0, undef, 0, '#stay', 'Dynamics')) {
2001	0					0	return 1
2002							}
2003							# attribute => 'Dynamics'
2004							# char => '\'
2005							# char1 => '<'
2006							# context => '#stay'
2007							# type => 'Detect2Chars'
2008	6010	100				27269	if ($self->testDetect2Chars($text, '\\', '<', 0, 0, 0, undef, 0, '#stay', 'Dynamics')) {
2009	4					17	return 1
2010							}
2011							# attribute => 'Dynamics'
2012							# char => '\'
2013							# char1 => '>'
2014							# context => '#stay'
2015							# type => 'Detect2Chars'
2016	6006	100				26122	if ($self->testDetect2Chars($text, '\\', '>', 0, 0, 0, undef, 0, '#stay', 'Dynamics')) {
2017	6					25	return 1
2018							}
2019							# attribute => 'Dynamics'
2020							# char => '\'
2021							# char1 => '!'
2022							# context => '#stay'
2023							# type => 'Detect2Chars'
2024	6000	100				46234	if ($self->testDetect2Chars($text, '\\', '!', 0, 0, 0, undef, 0, '#stay', 'Dynamics')) {
2025	8					38	return 1
2026							}
2027							# String => '-[0-5]\b'
2028							# attribute => 'Dynamics'
2029							# context => '#stay'
2030							# type => 'RegExpr'
2031	5992	50				23806	if ($self->testRegExpr($text, '-[0-5]\\b', 0, 0, 0, undef, 0, '#stay', 'Dynamics')) {
2032	0					0	return 1
2033							}
2034							# attribute => 'Comment'
2035							# char => '%'
2036							# context => 'Comment'
2037							# type => 'DetectChar'
2038	5992	100				24420	if ($self->testDetectChar($text, '%', 0, 0, 0, undef, 0, 'Comment', 'Comment')) {
2039	4					14	return 1
2040							}
2041	5988					26965	return 0;
2042							};
2043
2044							sub parsePreprocessor {
2045	0			0	0		my ($self, $text) = @_;
2046	0						return 0;
2047							};
2048
2049							sub parseRepeat {
2050	0			0	0		my ($self, $text) = @_;
2051							# attribute => 'Normal Text'
2052							# char => '}'
2053							# context => '#pop'
2054							# type => 'DetectChar'
2055	0	0					if ($self->testDetectChar($text, '}', 0, 0, 0, undef, 0, '#pop', 'Normal Text')) {
2056	0						return 1
2057							}
2058							# String => '"tremolo"'
2059							# attribute => 'Repeat'
2060							# context => '#pop'
2061							# type => 'StringDetect'
2062	0	0					if ($self->testStringDetect($text, '"tremolo"', 0, 0, 0, undef, 0, '#pop', 'Repeat')) {
2063	0						return 1
2064							}
2065							# String => '"percent"'
2066							# attribute => 'Repeat'
2067							# context => '#pop'
2068							# type => 'StringDetect'
2069	0	0					if ($self->testStringDetect($text, '"percent"', 0, 0, 0, undef, 0, '#pop', 'Repeat')) {
2070	0						return 1
2071							}
2072							# String => 'volta\b[1-9]\b'
2073							# attribute => 'Repeat'
2074							# context => '#pop'
2075							# type => 'RegExpr'
2076	0	0					if ($self->testRegExpr($text, 'volta\\b[1-9]\\b', 0, 0, 0, undef, 0, '#pop', 'Repeat')) {
2077	0						return 1
2078							}
2079	0						return 0;
2080							};
2081
2082							sub parseSlur {
2083	0			0	0		my ($self, $text) = @_;
2084							# String => '\\?\('
2085							# attribute => 'Slur'
2086							# context => 'Slur'
2087							# type => 'RegExpr'
2088	0	0					if ($self->testRegExpr($text, '\\\\?\\(', 0, 0, 0, undef, 0, 'Slur', 'Slur')) {
2089	0						return 1
2090							}
2091							# String => '\\?\)'
2092							# attribute => 'Slur'
2093							# context => '#pop'
2094							# type => 'RegExpr'
2095	0	0					if ($self->testRegExpr($text, '\\\\?\\)', 0, 0, 0, undef, 0, '#pop', 'Slur')) {
2096	0						return 1
2097							}
2098	0						return 0;
2099							};
2100
2101
2102							1;
2103
2104							__END__