# New Ticket Created by "Mehmet Yavuz Selim Soyturk"
# Please include the string: [perl #43002]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=43002 >
file: editor/kate_syntax.pl
* .ops files are now searched in the correct path
* single-quoted string literals are ended correcty
--
Mehmet
Index: editor/kate_syntax.pl
===================================================================
--- editor/kate_syntax.pl (revision 18588)
+++ editor/kate_syntax.pl (working copy)
@@ -29,12 +29,13 @@
.pcc_end_yield .loadlib .namespace .endnamespace .macro .include);
my @pod_start = qw(head[1-6] over back item for begin end pod);
my $pod_start_rx = join '|', @pod_start;
-my @imcc_basic_types = qw(int float string);
+my @imcc_basic_types = qw(int float string pmc);
my $parrot_pmcsh_file = "include/parrot/core_pmcs.h";
my $date = localtime(time);
-opendir PARROT, "$parrot" or die "Supply Parrot directory as argument!";
-my @ops_files = map { "$parrot/$_" } grep /\.ops$/, readdir PARROT;
+my $ops_dir="$parrot/src/ops";
+opendir PARROT, "$ops_dir" or die "Supply Parrot directory as argument!";
+my @ops_files = map { "$ops_dir/$_" } grep /\.ops$/, readdir PARROT;
closedir PARROT;
print <<END;
@@ -43,7 +44,7 @@
<!-- Created automatically by kate_syntax.pl $date -->
<language name="IMCC" version="0.2" kateversion="2.0"
- section="Sources" extensions="*.imc;*.pasm" mimetype="">
+ section="Sources" extensions="*.imc;*.pasm;*.pir" mimetype="">
<highlighting>
@@ -152,7 +153,7 @@
print <<END;
<context name="string" attribute="String" lineEndContext="#pop">
- <RegExpr attribute="String" context="#stay" String="'" />
+ <RegExpr attribute="String" context="#pop" String="'" />
</context>
END
