Changeset View
Changeset View
Standalone View
Standalone View
autotests/folding/highlight.pl.fold
| 1 | #!/usr/bin/perl -w | 1 | #!/usr/bin/perl -w | ||
|---|---|---|---|---|---|
| 2 | # This is a pseudo Perl file to test Kate's Perl syntax highlighting. | 2 | # This is a pseudo Perl file to test Kate's Perl syntax highlighting. | ||
| 3 | # TODO: this is incomplete, add more syntax examples! | 3 | # TODO: this is incomplete, add more syntax examples! | ||
| 4 | 4 | | |||
| 5 | sub prg($) | 5 | sub prg($) | ||
| 6 | <beginfold id='4'>{</beginfold id='4'> | 6 | <beginfold id='4'>{</beginfold id='4'> | ||
| 7 | my $var = shift; | 7 | my $var = shift; | ||
| 8 | 8 | | |||
| 9 | $var =~ s<beginfold id='5'>/</beginfold id='5'>bla<endfold id='5'>/</endfold id='5'>foo/igs;<beginfold id='7'>/</beginfold id='7'>foo<endfold id='7'>/igs</endfold id='7'>; | 9 | $var =~ s<beginfold id='5'>/</beginfold id='5'>bla<endfold id='5'></endfold id='5'><beginfold id='7'>/</beginfold id='7'>foo<endfold id='7'>/igs</endfold id='7'>; | ||
| 10 | $var =~ s<beginfold id='5'>!</beginfold id='5'>bla<endfold id='5'>!</endfold id='5'>foo!igs;<beginfold id='7'>!</beginfold id='7'>foo<endfold id='7'>!igs</endfold id='7'>; | 10 | $var =~ s<beginfold id='5'>!</beginfold id='5'>bla<endfold id='5'></endfold id='5'><beginfold id='7'>!</beginfold id='7'>foo<endfold id='7'>!igs</endfold id='7'>; | ||
| 11 | $var =~ s<beginfold id='5'>#</beginfold id='5'>bla<endfold id='5'>#</endfold id='5'>foo#igs;<beginfold id='7'>#</beginfold id='7'>foo<endfold id='7'>#igs</endfold id='7'>; | 11 | $var =~ s<beginfold id='5'>#</beginfold id='5'>bla<endfold id='5'></endfold id='5'><beginfold id='7'>#</beginfold id='7'>foo<endfold id='7'>#igs</endfold id='7'>; | ||
| 12 | $var =~ tr/a-z/A-Z/; | 12 | $var =~ tr/a-z/A-Z/; | ||
| 13 | ($match) = ($var =~ m<beginfold id='5'>/</beginfold id='5'>(.*?)<endfold id='5'>/igs</endfold id='5'>); | 13 | ($match) = ($var =~ m<beginfold id='5'>/</beginfold id='5'>(.*?)<endfold id='5'>/igs</endfold id='5'>); | ||
| 14 | 14 | | |||
| 15 | $test = 2/453453.21; | 15 | $test = 2/453453.21; | ||
| 16 | $test /= 2; | 16 | $test /= 2; | ||
| 17 | 17 | | |||
| 18 | print qq<beginfold id='2'>~</beginfold id='2'>d fsd fsdf sdfl sd<endfold id='2'>~</endfold id='2'> | 18 | print qq<beginfold id='2'>~</beginfold id='2'>d fsd fsdf sdfl sd<endfold id='2'>~</endfold id='2'> | ||
| 19 | 19 | | |||
| ▲ Show 20 Lines • Show All 56 Lines • Show Last 20 Lines | |||||