Permalink
Browse files

#40278: [CAGE] perl coding standards coda.

Add special comments, for passing info to editors

Courtesy Paul Cochrane" <paultcochrane@gmail.com>


git-svn-id: https://svn.parrot.org/parrot/trunk@14650 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
  • Loading branch information...
1 parent 54d43a5 commit b91d2687fa04b216ed739f6e82db1d4112863816 @bschmalhofer bschmalhofer committed Sep 18, 2006
Showing with 869 additions and 239 deletions.
  1. +7 −0 Configure.pl
  2. +7 −0 compilers/imcc/rebuild.pl
  3. +7 −0 editor/kate_syntax.pl
  4. +7 −0 editor/ops2vim.pl
  5. +7 −0 examples/benchmarks/addit.pl
  6. +7 −0 examples/benchmarks/arriter.pl
  7. +7 −0 examples/benchmarks/fib.pl
  8. +7 −0 examples/benchmarks/freeze.pl
  9. +7 −0 examples/benchmarks/mops.pl
  10. +7 −0 examples/benchmarks/oo1.pl
  11. +7 −0 examples/benchmarks/oo2.pl
  12. +7 −0 examples/benchmarks/oo3.pl
  13. +7 −0 examples/benchmarks/oo4.pl
  14. +7 −0 examples/benchmarks/oo5.pl
  15. +7 −0 examples/benchmarks/oo6.pl
  16. +7 −0 examples/benchmarks/oofib.pl
  17. +7 −0 examples/benchmarks/overload.pl
  18. +7 −0 examples/benchmarks/primes.pl
  19. +7 −0 examples/benchmarks/primes2.pl
  20. +7 −0 examples/benchmarks/shared_ref.pl
  21. +7 −0 examples/benchmarks/stress.pl
  22. +7 −0 examples/benchmarks/stress1.pl
  23. +7 −0 examples/benchmarks/stress2.pl
  24. +7 −0 examples/benchmarks/vpm.pl
  25. +7 −0 examples/mops/mops.pl
  26. +7 −0 languages/APL/tools/gen_operator_defs.pl
  27. +7 −0 languages/BASIC/compiler/compile.pl
  28. +7 −0 languages/BASIC/compiler/testrun.pl
  29. +7 −0 languages/BASIC/compiler/testsuite.pl
  30. +7 −0 languages/BASIC/interpreter/basic.pl
  31. +7 −0 languages/WMLScript/build/stdlibs.pl
  32. +7 −0 languages/WMLScript/build/translator.pl
  33. +7 −0 languages/converter.pl
  34. +51 −44 languages/dotnet/Configure.pl
  35. +7 −0 languages/dotnet/build/builtins.pl
  36. +7 −0 languages/dotnet/build/translator.pl
  37. +41 −34 languages/dotnet/tools/analysis.pl
  38. +36 −30 languages/dotnet/tools/analysis_latex.pl
  39. +30 −24 languages/dotnet/tools/benchmark.pl
  40. +26 −20 languages/dotnet/tools/fail_analysis.pl
  41. +7 −0 languages/lua/luac.pl
  42. +7 −0 languages/m4/tools/frozen2yaml.pl
  43. +7 −0 languages/m4/tools/scrutinize.pl
  44. +7 −0 languages/plumhead/Configure.pl
  45. +7 −0 languages/plumhead/plumhead.pl
  46. +6 −1 languages/python/pie-thon.pl
  47. +7 −0 languages/regex/regex.pl
  48. +7 −0 languages/regex/test.pl
  49. +3 −3 languages/tcl/tools/tcl_harness.pl
  50. +7 −0 languages/urm/urm-old.pl
  51. +6 −0 tools/build/addopstags.pl
  52. +7 −0 tools/build/c2str.pl
  53. +7 −0 tools/build/fingerprint_c.pl
  54. +5 −0 tools/build/headerize.pl
  55. +7 −0 tools/build/jit2c.pl
  56. +7 −0 tools/build/list_unjitted.pl
  57. +7 −0 tools/build/nativecall.pl
  58. +7 −0 tools/build/ops2c.pl
  59. +5 −0 tools/build/ops2pm.pl
  60. +7 −0 tools/build/parrot_config_c.pl
  61. +7 −0 tools/build/pbc2c.pl
  62. +5 −0 tools/build/pmc2c.pl
  63. +7 −0 tools/build/revision_c.pl
  64. +7 −0 tools/build/vtable_extend.pl
  65. +7 −0 tools/build/vtable_h.pl
  66. +7 −0 tools/dev/as2c.pl
  67. +7 −0 tools/dev/cc_flags.pl
  68. +7 −0 tools/dev/check_source_standards.pl
  69. +7 −0 tools/dev/extract_file_descriptions.pl
  70. +7 −0 tools/dev/gen_charset_tables.pl
  71. +89 −82 tools/dev/gen_class.pl
  72. +7 −0 tools/dev/gen_manifest_skip.pl
  73. +7 −0 tools/dev/install_files.pl
  74. +7 −0 tools/dev/lib_deps.pl
  75. +7 −0 tools/dev/manicheck.pl
  76. +7 −0 tools/dev/mk_inno.pl
  77. +7 −0 tools/dev/mk_manifest_and_skip.pl
  78. +7 −0 tools/dev/mk_manifests.pl
  79. +7 −0 tools/dev/nm.pl
  80. +6 −1 tools/dev/ops_not_tested.pl
  81. +7 −0 tools/dev/parrot_api.pl
  82. +7 −0 tools/dev/parrot_coverage.pl
  83. +7 −0 tools/dev/parrotbench.pl
  84. +7 −0 tools/dev/pbc_header.pl
  85. +7 −0 tools/dev/rebuild_miniparrot.pl
  86. +7 −0 tools/dev/run_indent.pl
  87. +7 −0 tools/dev/symlink.pl
  88. +7 −0 tools/docs/pod_errors.pl
  89. +7 −0 tools/docs/write_docs.pl
  90. +7 −0 tools/util/ncidef2pasm.pl
  91. +7 −0 tools/util/pirtidy.pl
  92. +7 −0 tools/util/smokeserv-client.pl
  93. +7 −0 tools/util/smokeserv-server.pl
View
@@ -517,3 +517,10 @@ END
END
exit(0);
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
@@ -83,3 +83,10 @@ =head1 EXAMPLE
}
exit 0;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
View
@@ -212,3 +212,10 @@ END
</language>
END
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
View
@@ -28,3 +28,10 @@
###
print "$cline\n";
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
@@ -44,3 +44,10 @@ =head1 SEE ALSO
F<examples/benchmarks/addit2.pir>.
=cut
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
@@ -66,3 +66,10 @@ =head1 SEE ALSO
F<examples/benchmarks/arriter_o1.pir>.
=cut
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
@@ -33,3 +33,10 @@ =head1 SEE ALSO
F<examples/benchmarks/fib.pir>.
=cut
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
@@ -53,3 +53,10 @@ =head1 SEE ALSO
F<examples/benchmarks/freeze.pasm>.
=cut
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
@@ -90,3 +90,10 @@ =head1 SEE ALSO
F<examples/mops/mops.scheme>.
=cut
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
@@ -14,3 +14,10 @@ sub new {
return bless [ 10, 20 ], $self;
}
1;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
@@ -14,3 +14,10 @@ sub new {
return bless [ 10, 20 ], $self;
}
1;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
@@ -16,3 +16,10 @@ sub new {
}
1;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
@@ -16,3 +16,10 @@ sub new {
}
1;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
@@ -26,3 +26,10 @@ sub j {
}
1;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
@@ -26,3 +26,10 @@ sub j {
}
1;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
@@ -31,3 +31,10 @@ package main;
print "fib($N) = ", $b->fib($N), "\n";
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
@@ -20,3 +20,10 @@ package main;
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:
@@ -56,3 +56,10 @@ =head1 SEE ALSO
=cut
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
@@ -33,3 +33,10 @@ sub isprime1
}
return 1;
}
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
@@ -32,3 +32,10 @@ =head1 SEE ALSO
F<examples/benchmarks/shared_ref.pasm>.
=cut
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
@@ -48,3 +48,10 @@ =head1 SEE ALSO
F<examples/benchmarks/stress3.pasm>.
=cut
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
@@ -51,3 +51,10 @@ =head1 SEE ALSO
F<examples/benchmarks/stress3.pasm>.
=cut
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
@@ -40,3 +40,10 @@ =head1 SEE ALSO
F<examples/benchmarks/stress3.pasm>.
=cut
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
@@ -20,3 +20,10 @@
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
View
@@ -90,3 +90,10 @@ =head1 SEE ALSO
F<examples/mops/mops.scheme>.
=cut
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
@@ -841,3 +841,10 @@ =head1 LICENSE
=cut
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
@@ -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:
@@ -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:
@@ -1448,3 +1448,10 @@ sub foo
end select
print "All done."
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
@@ -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:
@@ -128,3 +128,10 @@ sub usage {
}
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
@@ -951,3 +951,10 @@ sub usage {
}
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
View
@@ -125,3 +125,10 @@ sub strip_quotes {
for(@rules) {
print$parser->rule($_) . "\n\n";
}
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Oops, something went wrong.

0 comments on commit b91d268

Please sign in to comment.