# New Ticket Created by "Paul Cochrane"
# Please include the string: [perl #40349]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=40349 >
Hi,
This is a patch to (attempt to) close the Cage Cleaner's RT ticket
#40278. The files affected by this patch are:
./tools/build/ops2pm.pl
./tools/build/ops2c.pl
./tools/build/pbc2c.pl
./tools/build/c2str.pl
./tools/build/fingerprint_c.pl
./tools/build/jit2c.pl
./tools/build/pmc2c.pl
./tools/build/parrot_config_c.pl
./tools/build/revision_c.pl
./tools/build/list_unjitted.pl
./tools/build/nativecall.pl
./tools/build/vtable_h.pl
./tools/build/vtable_extend.pl
./tools/build/addopstags.pl
./tools/build/headerize.pl
./tools/build/dynpmc.pl
./tools/build/dynoplibs.pl
./tools/docs/pod_errors.pl
./tools/docs/write_docs.pl
./tools/util/smokeserv-client.pl
./tools/util/ncidef2pasm.pl
./tools/util/smokeserv-server.pl
./tools/util/pirtidy.pl
./tools/dev/parrot_coverage.pl
./tools/dev/run_indent.pl
./tools/dev/parrotbench.pl
./tools/dev/nm.pl
./tools/dev/pbc_header.pl
./tools/dev/lib_deps.pl
./tools/dev/gen_charset_tables.pl
./tools/dev/mk_manifests.pl
./tools/dev/manicheck.pl
./tools/dev/symlink.pl
./tools/dev/gen_manifest_skip.pl
./tools/dev/mk_inno.pl
./tools/dev/as2c.pl
./tools/dev/ops_not_tested.pl
./tools/dev/install_files.pl
./tools/dev/rebuild_miniparrot.pl
./tools/dev/gen_class.pl
./tools/dev/parrot_api.pl
./tools/dev/extract_file_descriptions.pl
./tools/dev/check_source_standards.pl
./tools/dev/cc_flags.pl
./tools/dev/mk_manifest_and_skip.pl
./editor/kate_syntax.pl
./editor/ops2vim.pl
./compilers/imcc/rebuild.pl
./languages/m4/tools/frozen2yaml.pl
./languages/m4/tools/scrutinize.pl
./languages/python/pie-thon.pl
./languages/BASIC/interpreter/basic.pl
./languages/BASIC/compiler/compile.pl
./languages/BASIC/compiler/testsuite.pl
./languages/BASIC/compiler/testrun.pl
./languages/lua/luac.pl
./languages/dotnet/build/translator.pl
./languages/dotnet/build/builtins.pl
./languages/dotnet/tools/fail_analysis.pl
./languages/dotnet/tools/benchmark.pl
./languages/dotnet/tools/analysis_latex.pl
./languages/dotnet/tools/analysis.pl
./languages/dotnet/Configure.pl
./languages/tcl/tools/tcl_harness.pl
./languages/tcl/tools/gen_inline.pl
./languages/tcl/tools/tcl_test.pl
./languages/tcl/tools/gen_builtins.pl
./languages/WMLScript/build/translator.pl
./languages/WMLScript/build/stdlibs.pl
./languages/urm/urm-old.pl
./languages/regex/regex.pl
./languages/regex/test.pl
./languages/converter.pl
./languages/APL/tools/gen_operator_defs.pl
./languages/plumhead/plumhead.pl
./languages/plumhead/Configure.pl
./examples/benchmarks/overload.pl
./examples/benchmarks/mops.pl
./examples/benchmarks/freeze.pl
./examples/benchmarks/oo3.pl
./examples/benchmarks/oo2.pl
./examples/benchmarks/fib.pl
./examples/benchmarks/oo6.pl
./examples/benchmarks/primes2.pl
./examples/benchmarks/oo1.pl
./examples/benchmarks/shared_ref.pl
./examples/benchmarks/primes.pl
./examples/benchmarks/oo5.pl
./examples/benchmarks/stress2.pl
./examples/benchmarks/arriter.pl
./examples/benchmarks/stress.pl
./examples/benchmarks/addit.pl
./examples/benchmarks/stress1.pl
./examples/benchmarks/oofib.pl
./examples/benchmarks/oo4.pl
./examples/benchmarks/vpm.pl
./examples/mops/mops.pl
./Configure.pl
The patch was generated with respect to the parrot svn revision 14642.
Hope this helps!
Regards,
Paul
Index: tools/build/jit2c.pl
===================================================================
--- tools/build/jit2c.pl (revision 14642)
+++ tools/build/jit2c.pl (working copy)
@@ -463,3 +463,10 @@
return(($ptr eq '&' ? '&' : '') . sprintf($argmaps{$type_to_arg{$type}}, $index));
}
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/build/ops2pm.pl
===================================================================
--- tools/build/ops2pm.pl (revision 14642)
+++ tools/build/ops2pm.pl (working copy)
@@ -421,4 +421,9 @@
exit 0;
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
# vim: expandtab shiftwidth=4:
Index: tools/build/list_unjitted.pl
===================================================================
--- tools/build/list_unjitted.pl (revision 14642)
+++ tools/build/list_unjitted.pl (working copy)
@@ -52,3 +52,10 @@
print 'Not jitted: ', scalar @not_jitted;
print 'Jitted: ', scalar @jitted;
print 'Total ops: ', scalar @ops;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/build/nativecall.pl
===================================================================
--- tools/build/nativecall.pl (revision 14642)
+++ tools/build/nativecall.pl (working copy)
@@ -719,3 +719,10 @@
}
=cut
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/build/vtable_h.pl
===================================================================
--- tools/build/vtable_h.pl (revision 14642)
+++ tools/build/vtable_h.pl (working copy)
@@ -63,3 +63,10 @@
print OUT "\n#endif\n";
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/build/vtable_extend.pl
===================================================================
--- tools/build/vtable_extend.pl (revision 14642)
+++ tools/build/vtable_extend.pl (working copy)
@@ -142,3 +142,10 @@
EOF
close OUT or die $!;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/build/ops2c.pl
===================================================================
--- tools/build/ops2c.pl (revision 14642)
+++ tools/build/ops2c.pl (working copy)
@@ -730,3 +730,10 @@
rename $source, $final;
exit 0;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/build/pbc2c.pl
===================================================================
--- tools/build/pbc2c.pl (revision 14642)
+++ tools/build/pbc2c.pl (working copy)
@@ -369,3 +369,10 @@
as the Parrot interpreter.
=end ADDITIONAL
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/build/fingerprint_c.pl
===================================================================
--- tools/build/fingerprint_c.pl (revision 14642)
+++ tools/build/fingerprint_c.pl (working copy)
@@ -95,3 +95,10 @@
EOF
} # endif DEVELOPING
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/build/addopstags.pl
===================================================================
--- tools/build/addopstags.pl (revision 14642)
+++ tools/build/addopstags.pl (working copy)
@@ -41,3 +41,9 @@
print T sort @tags;
close T;
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/build/c2str.pl
===================================================================
--- tools/build/c2str.pl (revision 14642)
+++ tools/build/c2str.pl (working copy)
@@ -251,3 +251,10 @@
}
=cut
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/build/parrot_config_c.pl
===================================================================
--- tools/build/parrot_config_c.pl (revision 14642)
+++ tools/build/parrot_config_c.pl (working copy)
@@ -102,3 +102,10 @@
Parrot_set_config_hash_internal(parrot_config, sizeof(parrot_config));
}
EOF
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/build/revision_c.pl
===================================================================
--- tools/build/revision_c.pl (revision 14642)
+++ tools/build/revision_c.pl (working copy)
@@ -51,3 +51,10 @@
}
EOF
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/build/headerize.pl
===================================================================
--- tools/build/headerize.pl (revision 14642)
+++ tools/build/headerize.pl (working copy)
@@ -236,4 +236,9 @@
} # for %files
}
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
# vim: expandtab shiftwidth=4:
Index: tools/build/pmc2c.pl
===================================================================
--- tools/build/pmc2c.pl (revision 14642)
+++ tools/build/pmc2c.pl (working copy)
@@ -959,4 +959,9 @@
}
}
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
# vim: expandtab shiftwidth=4:
Index: tools/docs/pod_errors.pl
===================================================================
--- tools/docs/pod_errors.pl (revision 14642)
+++ tools/docs/pod_errors.pl (working copy)
@@ -42,3 +42,10 @@
}
exit 0;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/docs/write_docs.pl
===================================================================
--- tools/docs/write_docs.pl (revision 14642)
+++ tools/docs/write_docs.pl (working copy)
@@ -31,3 +31,10 @@
$docs->write_docs($silent, $delete);
exit 0;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/util/smokeserv-client.pl
===================================================================
--- tools/util/smokeserv-client.pl (revision 14642)
+++ tools/util/smokeserv-client.pl (working copy)
@@ -97,3 +97,10 @@
eval { require Compress::Zlib; debug "Gzip compression on\n" } and
$compress = sub { Compress::Zlib::memGzip(shift) };
}
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/util/ncidef2pasm.pl
===================================================================
--- tools/util/ncidef2pasm.pl (revision 14642)
+++ tools/util/ncidef2pasm.pl (working copy)
@@ -219,3 +219,10 @@
print OUTPUT "dlfunc P2, P1, '$name', '$signature'\n";
print OUTPUT "store_global '${cur_package}::${name}', P2\n";
}
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/util/smokeserv-server.pl
===================================================================
--- tools/util/smokeserv-server.pl (revision 14642)
+++ tools/util/smokeserv-server.pl (working copy)
@@ -510,3 +510,10 @@
</table>
</body>
</html>
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/util/pirtidy.pl
===================================================================
--- tools/util/pirtidy.pl (revision 14642)
+++ tools/util/pirtidy.pl (working copy)
@@ -66,3 +66,10 @@
=cut
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/dev/mk_manifest_and_skip.pl
===================================================================
--- tools/dev/mk_manifest_and_skip.pl (revision 14642)
+++ tools/dev/mk_manifest_and_skip.pl (working copy)
@@ -175,3 +175,10 @@
close $MANI;
close $SKIP;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/dev/parrotbench.pl
===================================================================
--- tools/dev/parrotbench.pl (revision 14642)
+++ tools/dev/parrotbench.pl (working copy)
@@ -262,3 +262,10 @@
$_[0] = $_[1] and return if ! defined $_[0];
$_[0] = $_[1] if $_[1] > $_[0];
}
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/dev/nm.pl
===================================================================
--- tools/dev/nm.pl (revision 14642)
+++ tools/dev/nm.pl (working copy)
@@ -417,3 +417,10 @@
=cut
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/dev/pbc_header.pl
===================================================================
--- tools/dev/pbc_header.pl (revision 14642)
+++ tools/dev/pbc_header.pl (working copy)
@@ -94,3 +94,10 @@
pbc_info;
}
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/dev/mk_manifests.pl
===================================================================
--- tools/dev/mk_manifests.pl (revision 14642)
+++ tools/dev/mk_manifests.pl (working copy)
@@ -116,3 +116,10 @@
close MANIFEST;
print "Wrote $manifest\n";
}
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/dev/lib_deps.pl
===================================================================
--- tools/dev/lib_deps.pl (revision 14642)
+++ tools/dev/lib_deps.pl (working copy)
@@ -624,3 +624,10 @@
vsscanf stdio.h
UNDEF assert.h
UNDEF stdarg.h
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/dev/parrot_coverage.pl
===================================================================
--- tools/dev/parrot_coverage.pl (revision 14642)
+++ tools/dev/parrot_coverage.pl (working copy)
@@ -429,3 +429,10 @@
"<hr noshade><i>Last Updated: @{[ scalar(localtime) . strftime(' (%Z)', localtime(time)) ]} </i>
</body></html>";
}
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/dev/symlink.pl
===================================================================
--- tools/dev/symlink.pl (revision 14642)
+++ tools/dev/symlink.pl (working copy)
@@ -106,3 +106,10 @@
exit(0);
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/dev/rebuild_miniparrot.pl
===================================================================
--- tools/dev/rebuild_miniparrot.pl (revision 14642)
+++ tools/dev/rebuild_miniparrot.pl (working copy)
@@ -159,3 +159,10 @@
copy($from, $to);
}
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/dev/mk_inno.pl
===================================================================
--- tools/dev/mk_inno.pl (revision 14642)
+++ tools/dev/mk_inno.pl (working copy)
@@ -98,3 +98,10 @@
close $OUT;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/dev/parrot_api.pl
===================================================================
--- tools/dev/parrot_api.pl (revision 14642)
+++ tools/dev/parrot_api.pl (working copy)
@@ -262,3 +262,10 @@
}
exit(0);
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/dev/cc_flags.pl
===================================================================
--- tools/dev/cc_flags.pl (revision 14642)
+++ tools/dev/cc_flags.pl (working copy)
@@ -113,3 +113,10 @@
print "$cfile\n";
}
exit system(@ARGV)/256;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/dev/run_indent.pl
===================================================================
--- tools/dev/run_indent.pl (revision 14642)
+++ tools/dev/run_indent.pl (working copy)
@@ -136,3 +136,10 @@
}
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/dev/gen_charset_tables.pl
===================================================================
--- tools/dev/gen_charset_tables.pl (revision 14642)
+++ tools/dev/gen_charset_tables.pl (working copy)
@@ -148,3 +148,10 @@
}
print "#endif /* PARROT_CHARSET_TABLES_H_GUARD */\n";
close STDOUT;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/dev/manicheck.pl
===================================================================
--- tools/dev/manicheck.pl (revision 14642)
+++ tools/dev/manicheck.pl (working copy)
@@ -65,3 +65,10 @@
}
exit scalar(@missing) or scalar(@extra) ? 1 : 0;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/dev/gen_manifest_skip.pl
===================================================================
--- tools/dev/gen_manifest_skip.pl (revision 14642)
+++ tools/dev/gen_manifest_skip.pl (working copy)
@@ -55,3 +55,10 @@
Bernhard Schmalhofer - <[EMAIL PROTECTED]>
=cut
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/dev/as2c.pl
===================================================================
--- tools/dev/as2c.pl (revision 14642)
+++ tools/dev/as2c.pl (working copy)
@@ -93,3 +93,10 @@
}
close IN;
}
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/dev/install_files.pl
===================================================================
--- tools/dev/install_files.pl (revision 14642)
+++ tools/dev/install_files.pl (working copy)
@@ -238,3 +238,10 @@
my $mode = (stat($src))[2];
chmod $mode, $dest;
}
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/dev/ops_not_tested.pl
===================================================================
--- tools/dev/ops_not_tested.pl (revision 14642)
+++ tools/dev/ops_not_tested.pl (working copy)
@@ -84,4 +84,9 @@
. " are not tested! ("
. int($percent) . "%)\n";
-## vim: expandtab sw=4
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/dev/gen_class.pl
===================================================================
--- tools/dev/gen_class.pl (revision 14642)
+++ tools/dev/gen_class.pl (working copy)
@@ -80,3 +80,10 @@
## emit file footer
print "}\n";
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/dev/extract_file_descriptions.pl
===================================================================
--- tools/dev/extract_file_descriptions.pl (revision 14642)
+++ tools/dev/extract_file_descriptions.pl (working copy)
@@ -247,3 +247,10 @@
if $_[0] =~ tr/\n/\n/ > $cnt;
return undef;
}
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: tools/dev/check_source_standards.pl
===================================================================
--- tools/dev/check_source_standards.pl (revision 14642)
+++ tools/dev/check_source_standards.pl (working copy)
@@ -465,3 +465,10 @@
print "$file:$line (ERROR) " .
Text::Wrap::wrap("", " ", $message) . "\n";
}
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: editor/kate_syntax.pl
===================================================================
--- editor/kate_syntax.pl (revision 14642)
+++ editor/kate_syntax.pl (working copy)
@@ -212,3 +212,10 @@
</language>
END
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: editor/ops2vim.pl
===================================================================
--- editor/ops2vim.pl (revision 14642)
+++ editor/ops2vim.pl (working copy)
@@ -28,3 +28,10 @@
###
print "$cline\n";
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: Configure.pl
===================================================================
--- Configure.pl (revision 14642)
+++ Configure.pl (working copy)
@@ -517,3 +517,10 @@
END
exit(0);
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: compilers/imcc/rebuild.pl
===================================================================
--- compilers/imcc/rebuild.pl (revision 14642)
+++ compilers/imcc/rebuild.pl (working copy)
@@ -83,3 +83,10 @@
}
exit 0;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/m4/tools/frozen2yaml.pl
===================================================================
--- languages/m4/tools/frozen2yaml.pl (revision 14642)
+++ languages/m4/tools/frozen2yaml.pl (working copy)
@@ -109,3 +109,10 @@
=head1 AUTHOR
=cut
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/m4/tools/scrutinize.pl
===================================================================
--- languages/m4/tools/scrutinize.pl (revision 14642)
+++ languages/m4/tools/scrutinize.pl (working copy)
@@ -30,3 +30,10 @@
use Test::Perl::Critic -profile => 'tools/perlcriticrc';
all_critic_ok();
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/python/pie-thon.pl
===================================================================
--- languages/python/pie-thon.pl (revision 14642)
+++ languages/python/pie-thon.pl (working copy)
@@ -1966,4 +1966,9 @@
$code_l++;
}
-# vim: sw=4 tw=70:
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/plumhead/plumhead.pl
===================================================================
--- languages/plumhead/plumhead.pl (revision 14642)
+++ languages/plumhead/plumhead.pl (working copy)
@@ -53,3 +53,10 @@
=head1 AUTHOR
=cut
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/plumhead/Configure.pl
===================================================================
--- languages/plumhead/Configure.pl (revision 14642)
+++ languages/plumhead/Configure.pl (working copy)
@@ -11,3 +11,10 @@
Hi,
I'm Configure.pl. Currently I'm doing nothing.
END_TEXT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/urm/urm-old.pl
===================================================================
--- languages/urm/urm-old.pl (revision 14642)
+++ languages/urm/urm-old.pl (working copy)
@@ -72,3 +72,10 @@
print "Output: $register{$outreg}\n";
#print Dumper %register;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/regex/regex.pl
===================================================================
--- languages/regex/regex.pl (revision 14642)
+++ languages/regex/regex.pl (working copy)
@@ -106,3 +106,10 @@
}
$driver->output_footer(*OUTPUT);
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/regex/test.pl
===================================================================
--- languages/regex/test.pl (revision 14642)
+++ languages/regex/test.pl (working copy)
@@ -190,3 +190,10 @@
return 0;
}
}
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/APL/tools/gen_operator_defs.pl
===================================================================
--- languages/APL/tools/gen_operator_defs.pl (revision 14642)
+++ languages/APL/tools/gen_operator_defs.pl (working copy)
@@ -841,3 +841,10 @@
=cut
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/converter.pl
===================================================================
--- languages/converter.pl (revision 14642)
+++ languages/converter.pl (working copy)
@@ -125,3 +125,10 @@
for(@rules) {
print$parser->rule($_) . "\n\n";
}
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/BASIC/interpreter/basic.pl
===================================================================
--- languages/BASIC/interpreter/basic.pl (revision 14642)
+++ languages/BASIC/interpreter/basic.pl (working copy)
@@ -111,3 +111,10 @@
unlink "basic.pbc";
system("../../../parrot -o basic.pbc merged_basic.pasm");
system("../../../parrot basic.pbc");
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/BASIC/compiler/compile.pl
===================================================================
--- languages/BASIC/compiler/compile.pl (revision 14642)
+++ languages/BASIC/compiler/compile.pl (working copy)
@@ -225,3 +225,10 @@
print "This is the default program. Say 'compile filename.bas' to compile"
print " a BASIC program"
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/BASIC/compiler/testsuite.pl
===================================================================
--- languages/BASIC/compiler/testsuite.pl (revision 14642)
+++ languages/BASIC/compiler/testsuite.pl (working copy)
@@ -1448,3 +1448,10 @@
end select
print "All done."
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/BASIC/compiler/testrun.pl
===================================================================
--- languages/BASIC/compiler/testrun.pl (revision 14642)
+++ languages/BASIC/compiler/testrun.pl (working copy)
@@ -9,3 +9,10 @@
# XXX - This file should be generated at config time, so as to get
# the appropriate path and executable name.
$a=system("$parpath/parrot TARG_test.pir");
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/luac.pl
===================================================================
--- languages/lua/luac.pl (revision 14642)
+++ languages/lua/luac.pl (working copy)
@@ -75,3 +75,10 @@
=cut
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/tcl/tools/tcl_harness.pl
===================================================================
--- languages/tcl/tools/tcl_harness.pl (revision 14642)
+++ languages/tcl/tools/tcl_harness.pl (working copy)
@@ -83,8 +83,8 @@
print "(-clock ($clock_skipped) -deprecated ($deprecated))\n";
# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
-# fill-column: 100
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
# End:
# vim: expandtab shiftwidth=4:
Index: languages/WMLScript/build/translator.pl
===================================================================
--- languages/WMLScript/build/translator.pl (revision 14642)
+++ languages/WMLScript/build/translator.pl (working copy)
@@ -951,3 +951,10 @@
}
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/WMLScript/build/stdlibs.pl
===================================================================
--- languages/WMLScript/build/stdlibs.pl (revision 14642)
+++ languages/WMLScript/build/stdlibs.pl (working copy)
@@ -128,3 +128,10 @@
}
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/dotnet/build/translator.pl
===================================================================
--- languages/dotnet/build/translator.pl (revision 14642)
+++ languages/dotnet/build/translator.pl (working copy)
@@ -1388,3 +1388,10 @@
}
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/dotnet/build/builtins.pl
===================================================================
--- languages/dotnet/build/builtins.pl (revision 14642)
+++ languages/dotnet/build/builtins.pl (working copy)
@@ -205,3 +205,10 @@
exit(1);
}
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/dotnet/tools/benchmark.pl
===================================================================
--- languages/dotnet/tools/benchmark.pl (revision 14642)
+++ languages/dotnet/tools/benchmark.pl (working copy)
@@ -22,3 +22,10 @@
print "AVERAGE: $av\n\n";
}
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/dotnet/tools/fail_analysis.pl
===================================================================
--- languages/dotnet/tools/fail_analysis.pl (revision 14642)
+++ languages/dotnet/tools/fail_analysis.pl (working copy)
@@ -18,3 +18,10 @@
print "$_ & $res{$_} \\\\\n" foreach keys %res;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/dotnet/tools/analysis_latex.pl
===================================================================
--- languages/dotnet/tools/analysis_latex.pl (revision 14642)
+++ languages/dotnet/tools/analysis_latex.pl (working copy)
@@ -28,3 +28,10 @@
my $percent = int(($done / $total) * 100);
print "\\hline\nSummary & $done & $total & $percent\\% \\\\\n";
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/dotnet/tools/analysis.pl
===================================================================
--- languages/dotnet/tools/analysis.pl (revision 14642)
+++ languages/dotnet/tools/analysis.pl (working copy)
@@ -32,3 +32,10 @@
print $done . (' ' x (10 - length($done)));
print $total . (' ' x (10 - length($total)));
print "$percent%\n"
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/dotnet/Configure.pl
===================================================================
--- languages/dotnet/Configure.pl (revision 14642)
+++ languages/dotnet/Configure.pl (working copy)
@@ -164,3 +164,10 @@
return "\techo Oops, I was not configured with the path to Mono class library.\n";
}
}
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: examples/benchmarks/overload.pl
===================================================================
--- examples/benchmarks/overload.pl (revision 14642)
+++ examples/benchmarks/overload.pl (working copy)
@@ -20,3 +20,10 @@
my $r;
for my $i (1..500_000) { $r = $a * $b }
print "$r\n";
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: examples/benchmarks/mops.pl
===================================================================
--- examples/benchmarks/mops.pl (revision 14642)
+++ examples/benchmarks/mops.pl (working copy)
@@ -90,3 +90,10 @@
F<examples/mops/mops.scheme>.
=cut
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: examples/benchmarks/freeze.pl
===================================================================
--- examples/benchmarks/freeze.pl (revision 14642)
+++ examples/benchmarks/freeze.pl (working copy)
@@ -53,3 +53,10 @@
F<examples/benchmarks/freeze.pasm>.
=cut
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: examples/benchmarks/oo3.pl
===================================================================
--- examples/benchmarks/oo3.pl (revision 14642)
+++ examples/benchmarks/oo3.pl (working copy)
@@ -16,3 +16,10 @@
}
1;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: examples/benchmarks/oo2.pl
===================================================================
--- examples/benchmarks/oo2.pl (revision 14642)
+++ examples/benchmarks/oo2.pl (working copy)
@@ -14,3 +14,10 @@
return bless [ 10, 20 ], $self;
}
1;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: examples/benchmarks/fib.pl
===================================================================
--- examples/benchmarks/fib.pl (revision 14642)
+++ examples/benchmarks/fib.pl (working copy)
@@ -33,3 +33,10 @@
F<examples/benchmarks/fib.pir>.
=cut
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: examples/benchmarks/oo6.pl
===================================================================
--- examples/benchmarks/oo6.pl (revision 14642)
+++ examples/benchmarks/oo6.pl (working copy)
@@ -26,3 +26,10 @@
}
1;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: examples/benchmarks/primes2.pl
===================================================================
--- examples/benchmarks/primes2.pl (revision 14642)
+++ examples/benchmarks/primes2.pl (working copy)
@@ -33,3 +33,10 @@
}
return 1;
}
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: examples/benchmarks/oo1.pl
===================================================================
--- examples/benchmarks/oo1.pl (revision 14642)
+++ examples/benchmarks/oo1.pl (working copy)
@@ -14,3 +14,10 @@
return bless [ 10, 20 ], $self;
}
1;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: examples/benchmarks/primes.pl
===================================================================
--- examples/benchmarks/primes.pl (revision 14642)
+++ examples/benchmarks/primes.pl (working copy)
@@ -56,3 +56,10 @@
=cut
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: examples/benchmarks/shared_ref.pl
===================================================================
--- examples/benchmarks/shared_ref.pl (revision 14642)
+++ examples/benchmarks/shared_ref.pl (working copy)
@@ -32,3 +32,10 @@
F<examples/benchmarks/shared_ref.pasm>.
=cut
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: examples/benchmarks/oo5.pl
===================================================================
--- examples/benchmarks/oo5.pl (revision 14642)
+++ examples/benchmarks/oo5.pl (working copy)
@@ -26,3 +26,10 @@
}
1;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: examples/benchmarks/stress2.pl
===================================================================
--- examples/benchmarks/stress2.pl (revision 14642)
+++ examples/benchmarks/stress2.pl (working copy)
@@ -40,3 +40,10 @@
F<examples/benchmarks/stress3.pasm>.
=cut
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: examples/benchmarks/arriter.pl
===================================================================
--- examples/benchmarks/arriter.pl (revision 14642)
+++ examples/benchmarks/arriter.pl (working copy)
@@ -66,3 +66,10 @@
F<examples/benchmarks/arriter_o1.pir>.
=cut
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: examples/benchmarks/stress.pl
===================================================================
--- examples/benchmarks/stress.pl (revision 14642)
+++ examples/benchmarks/stress.pl (working copy)
@@ -48,3 +48,10 @@
F<examples/benchmarks/stress3.pasm>.
=cut
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: examples/benchmarks/addit.pl
===================================================================
--- examples/benchmarks/addit.pl (revision 14642)
+++ examples/benchmarks/addit.pl (working copy)
@@ -44,3 +44,10 @@
F<examples/benchmarks/addit2.pir>.
=cut
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: examples/benchmarks/oofib.pl
===================================================================
--- examples/benchmarks/oofib.pl (revision 14642)
+++ examples/benchmarks/oofib.pl (working copy)
@@ -31,3 +31,10 @@
print "fib($N) = ", $b->fib($N), "\n";
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: examples/benchmarks/oo4.pl
===================================================================
--- examples/benchmarks/oo4.pl (revision 14642)
+++ examples/benchmarks/oo4.pl (working copy)
@@ -16,3 +16,10 @@
}
1;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: examples/benchmarks/vpm.pl
===================================================================
--- examples/benchmarks/vpm.pl (revision 14642)
+++ examples/benchmarks/vpm.pl (working copy)
@@ -20,3 +20,10 @@
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: examples/benchmarks/stress1.pl
===================================================================
--- examples/benchmarks/stress1.pl (revision 14642)
+++ examples/benchmarks/stress1.pl (working copy)
@@ -51,3 +51,10 @@
F<examples/benchmarks/stress3.pasm>.
=cut
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: examples/mops/mops.pl
===================================================================
--- examples/mops/mops.pl (revision 14642)
+++ examples/mops/mops.pl (working copy)
@@ -90,3 +90,10 @@
F<examples/mops/mops.scheme>.
=cut
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
