# 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