Include vim/emacs modelines in generated files to open them

in read-only mode. Make vi modelines compatible with non-vim
vi versions.

p4raw-id: //depot/perl@24445

diff --git a/av.c b/av.c
index a03387c..d3f17af 100644 (file)
--- a/av.c
+++ b/av.c
@@ -945,5 +945,5 @@ Perl_av_exists(pTHX_ AV *av, I32 key)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */

diff --git a/bytecode.pl b/bytecode.pl
index aa0e027..d8ce8ed 100644 (file)
--- a/bytecode.pl
+++ b/bytecode.pl
@@ -22,7 +22,8 @@ while (($from, $tos) = each %alias_to) {
 }
 
 my $c_header = <<'EOT';
-/*
+/* -*- buffer-read-only: t -*-
+ *
  *      Copyright (c) 1996-1999 Malcolm Beattie
  *
  *      You may distribute under the terms of either the GNU General Public
@@ -195,6 +196,8 @@ print BYTERUN_C <<'EOT';
     }
     return 0;
 }
+
+/* ex: set ro: */
 EOT
 
 #
@@ -251,6 +254,8 @@ for ($i = 0; $i < @optype - 1; $i++) {
 }
 printf BYTERUN_H "    OPt_%s\t\t/* %d */\n};\n\n", $optype[$i], $i;
 
+print BYTERUN_H "/* ex: set ro: */\n";
+
 #
 # Finish off insn_data and create array initialisers in Asmdata.pm
 #
@@ -326,6 +331,8 @@ or '&PL_sv_undef').
 Malcolm Beattie, C<mbeattie@sable.ox.ac.uk>
 
 =cut
+
+# ex: set ro:
 EOT
 
 

diff --git a/deb.c b/deb.c
index 7788dc1..8696bce 100644 (file)
--- a/deb.c
+++ b/deb.c
@@ -300,5 +300,5 @@ Perl_deb_stack_all(pTHX)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */

diff --git a/doio.c b/doio.c
index d3b27c7..224f72d 100644 (file)
--- a/doio.c
+++ b/doio.c
@@ -2451,5 +2451,5 @@ Perl_start_glob (pTHX_ SV *tmpglob, IO *io)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */

diff --git a/doop.c b/doop.c
index 9a0eac4..22160af 100644 (file)
--- a/doop.c
+++ b/doop.c
@@ -1419,5 +1419,5 @@ Perl_do_kv(pTHX)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */

diff --git a/dump.c b/dump.c
index af0b5e1..8e40bde 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -1693,5 +1693,5 @@ Perl_debprofdump(pTHX)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */

diff --git a/embed.h b/embed.h
index efa138f..f2102c3 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -1,4 +1,5 @@
-/*
+/*  -*- buffer-read-only: t -*-
+ *
  *    embed.h
  *
  *    Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999,
@@ -4054,3 +4055,4 @@
 #  define Perl_sv_setpvf_mg_nocontext  Perl_sv_setpvf_mg
 #endif
 
+/* ex: set ro: */

diff --git a/embed.pl b/embed.pl
index 9cdef07..fd4a917 100755 (executable)
--- a/embed.pl
+++ b/embed.pl
@@ -24,6 +24,7 @@ sub do_not_edit ($)
     $years =~ s/1999,/1999,\n  / if length $years > 40;
 
     my $warning = <<EOW;
+ -*- buffer-read-only: t -*-
 
    $file
 
@@ -79,7 +80,7 @@ sub walk_table (&@) {
        $F = $filename;
     }
     else {
-       safer_unlink $filename;
+       safer_unlink $filename if $filename ne '/dev/null';
        open F, ">$filename" or die "Can't open $filename: $!";
        binmode F;
        $F = \*F;
@@ -120,7 +121,7 @@ sub munge_c_files () {
        if (@_ > 1) {
            $functions->{$_[2]} = \@_ if $_[@_-1] =~ /\.\.\./;
        }
-    } '/dev/null', '';
+    } '/dev/null', '', '';
     local $^I = '.bak';
     while (<>) {
 #      if (/^#\s*include\s+"perl.h"/) {
@@ -250,8 +251,8 @@ sub write_global_sym {
     $ret;
 }
 
-walk_table(\&write_protos,     "proto.h", undef);
-walk_table(\&write_global_sym, "global.sym", undef);
+walk_table(\&write_protos,     "proto.h", undef, "/* ex: set ro: */\n");
+walk_table(\&write_global_sym, "global.sym", undef, "# ex: set ro:\n");
 
 # XXX others that may need adding
 #       warnhook
@@ -601,6 +602,7 @@ print EM <<'END';
 #  define Perl_sv_setpvf_mg_nocontext  Perl_sv_setpvf_mg
 #endif
 
+/* ex: set ro: */
 END
 
 close(EM) or die "Error closing EM: $!";
@@ -710,6 +712,8 @@ for $sym (sort @extvars) {
 print EM <<'END';
 
 #endif /* PERL_POLLUTE */
+
+/* ex: set ro: */
 END
 
 close(EM) or die "Error closing EM: $!";
@@ -829,6 +833,7 @@ print CAPIH <<'EOT';
 
 #endif /* __perlapi_h__ */
 
+/* ex: set ro: */
 EOT
 close CAPIH or die "Error closing CAPIH: $!";
 
@@ -905,6 +910,8 @@ unsigned char** Perl_Gfold_locale_ptr(pTHX) {
 END_EXTERN_C
 
 #endif /* MULTIPLICITY */
+
+/* ex: set ro: */
 EOT
 
 close(CAPI) or die "Error closing CAPI: $!";

diff --git a/embedvar.h b/embedvar.h
index dad8a80..631a245 100644 (file)
--- a/embedvar.h
+++ b/embedvar.h
@@ -1,4 +1,5 @@
-/*
+/*  -*- buffer-read-only: t -*-
+ *
  *    embedvar.h
  *
  *    Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999,
@@ -1020,3 +1021,5 @@
 #define tainting               PL_tainting
 
 #endif /* PERL_POLLUTE */
+
+/* ex: set ro: */

diff --git a/ext/B/B/Asmdata.pm b/ext/B/B/Asmdata.pm
index 7ee1bfe..8c07b22 100644 (file)
--- a/ext/B/B/Asmdata.pm
+++ b/ext/B/B/Asmdata.pm
@@ -1,3 +1,4 @@
+# -#- buffer-read-only: t -#-
 #
 #      Copyright (c) 1996-1999 Malcolm Beattie
 #
@@ -246,3 +247,5 @@ or '&PL_sv_undef').
 Malcolm Beattie, C<mbeattie@sable.ox.ac.uk>
 
 =cut
+
+# ex: set ro:

diff --git a/ext/ByteLoader/byterun.c b/ext/ByteLoader/byterun.c
index a30a6e4..75fe0b3 100644 (file)
--- a/ext/ByteLoader/byterun.c
+++ b/ext/ByteLoader/byterun.c
@@ -1,4 +1,5 @@
-/*
+/* -*- buffer-read-only: t -*-
+ *
  *      Copyright (c) 1996-1999 Malcolm Beattie
  *
  *      You may distribute under the terms of either the GNU General Public
@@ -1136,3 +1137,5 @@ byterun(pTHX_ register struct byteloader_state *bstate)
     }
     return 0;
 }
+
+/* ex: set ro: */

diff --git a/ext/ByteLoader/byterun.h b/ext/ByteLoader/byterun.h
index 334abe6..d47c62c 100644 (file)
--- a/ext/ByteLoader/byterun.h
+++ b/ext/ByteLoader/byterun.h
@@ -1,4 +1,5 @@
-/*
+/* -*- buffer-read-only: t -*-
+ *
  *      Copyright (c) 1996-1999 Malcolm Beattie
  *
  *      You may distribute under the terms of either the GNU General Public
@@ -198,3 +199,4 @@ enum {
     OPt_COP            /* 10 */
 };
 
+/* ex: set ro: */

diff --git a/global.sym b/global.sym
index b953ce7..d1cfb99 100644 (file)
--- a/global.sym
+++ b/global.sym
@@ -1,3 +1,4 @@
+#  -*- buffer-read-only: t -*-
 #
 #    global.sym
 #
@@ -677,3 +678,4 @@ Perl_hv_scalar
 Perl_gv_fetchpvn_flags
 Perl_gv_fetchsv
 Perl_savesvpv
+# ex: set ro:

diff --git a/globals.c b/globals.c
index 8f382bb..afb3f25 100644 (file)
--- a/globals.c
+++ b/globals.c
@@ -61,5 +61,5 @@ Perl_printf_nocontext(const char *format, ...)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */

diff --git a/gv.c b/gv.c
index fe8280e..7d3eccb 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -1997,5 +1997,5 @@ Perl_is_gv_magical(pTHX_ const char *name, STRLEN len, U32 flags)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */

diff --git a/hv.c b/hv.c
index ddaaaf7..f7c3761 100644 (file)
--- a/hv.c
+++ b/hv.c
@@ -2205,5 +2205,5 @@ Perl_hv_assert(pTHX_ HV *hv)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */

diff --git a/keywords.h b/keywords.h
index 654bc76..3af51b8 100644 (file)
--- a/keywords.h
+++ b/keywords.h
@@ -1,4 +1,5 @@
-/*
+/* -*- buffer-read-only: t -*-
+ *
  *    keywords.h
  *
  *    Copyright (C) 1994, 1995, 1996, 1997, 1999, 2000, 2001, 2002,
@@ -258,3 +259,5 @@
 #define KEY_x                  244
 #define KEY_xor                        245
 #define KEY_y                  246
+
+/* ex: set ro: */

diff --git a/keywords.pl b/keywords.pl
index b4b048b..fe745d4 100755 (executable)
--- a/keywords.pl
+++ b/keywords.pl
@@ -7,7 +7,8 @@ binmode KW;
 select KW;
 
 print <<EOM;
-/*
+/* -*- buffer-read-only: t -*-
+ *
  *    keywords.h
  *
  *    Copyright (C) 1994, 1995, 1996, 1997, 1999, 2000, 2001, 2002,
@@ -33,6 +34,8 @@ while (<DATA>) {
     print &tab(5, "#define KEY_$keyword"), $keynum++, "\n";
 }
 
+print KW "\n/* ex: set ro: */\n";
+
 close KW or die "Error closing keywords.h: $!";
 
 ###########################################################################

diff --git a/lib/warnings.pm b/lib/warnings.pm
index 635993b..5fe108d 100644 (file)
--- a/lib/warnings.pm
+++ b/lib/warnings.pm
@@ -1,4 +1,4 @@
-
+# -*- buffer-read-only: t -*-
 # !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 # This file was created by warnings.pl
 # Any changes made here will be lost.
@@ -498,3 +498,4 @@ sub warnif
 }
 
 1;
+# ex: set ro:

diff --git a/locale.c b/locale.c
index 526a568..5282146 100644 (file)
--- a/locale.c
+++ b/locale.c
@@ -627,5 +627,5 @@ Perl_mem_collxfrm(pTHX_ const char *s, STRLEN len, STRLEN *xlen)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */

diff --git a/malloc.c b/malloc.c
index 3731fc2..f5c82b8 100644 (file)
--- a/malloc.c
+++ b/malloc.c
@@ -2581,5 +2581,5 @@ Perl_sbrk(int size)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */

diff --git a/mg.c b/mg.c
index 58301f8..754cb4b 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -2705,5 +2705,5 @@ unwind_handler_stack(pTHX_ const void *p)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */

diff --git a/miniperlmain.c b/miniperlmain.c
index 48993cd..bb49f5b 100644 (file)
--- a/miniperlmain.c
+++ b/miniperlmain.c
@@ -133,5 +133,5 @@ xs_init(pTHX)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */

diff --git a/numeric.c b/numeric.c
index 6f96283..c467825 100644 (file)
--- a/numeric.c
+++ b/numeric.c
@@ -1026,5 +1026,5 @@ Perl_my_frexpl(long double x, int *e) {
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */

diff --git a/op.c b/op.c
index 08f1689..909973d 100644 (file)
--- a/op.c
+++ b/op.c
@@ -7146,5 +7146,5 @@ const_sv_xsub(pTHX_ CV* cv)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */

diff --git a/opcode.h b/opcode.h
index 8c85157..1a4c507 100644 (file)
--- a/opcode.h
+++ b/opcode.h
@@ -1,4 +1,5 @@
-/*
+/* -*- buffer-read-only: t -*-
+ *
  *    opcode.h
  *
  *    Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999,
@@ -752,7 +753,6 @@ END_EXTERN_C
 
 #endif /* !PERL_GLOBAL_STRUCT_INIT */
 
-
 START_EXTERN_C
 
 #ifdef PERL_GLOBAL_STRUCT_INIT
@@ -1854,3 +1854,4 @@ EXT const U32 PL_opargs[] = {
 END_EXTERN_C
 
 #endif /* !PERL_GLOBAL_STRUCT_INIT */
+/* ex: set ro: */

diff --git a/opcode.pl b/opcode.pl
index bda960d..9e8d323 100755 (executable)
--- a/opcode.pl
+++ b/opcode.pl
@@ -37,7 +37,8 @@ while (<DATA>) {
 
 $i = 0;
 print <<"END";
-/*
+/* -*- buffer-read-only: t -*-
+ *
  *    opcode.h
  *
  *    Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999,
@@ -61,7 +62,8 @@ print <<"END";
 END
 
 print ON <<"END";
-/*
+/* -*- buffer-read-only: t -*-
+ *
  *    opnames.h
  *
  *    Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, by Larry Wall and others
@@ -136,7 +138,6 @@ print <<END;
 END_EXTERN_C
 
 #endif /* !PERL_GLOBAL_STRUCT_INIT */
-
 END
 
 # Emit function declarations.
@@ -300,6 +301,9 @@ if (keys %OP_IS_FILETEST) {
     print ON ")\n\n";
 }
 
+print OC "/* ex: set ro: */\n";
+print ON "/* ex: set ro: */\n";
+
 close OC or die "Error closing opcode.h: $!";
 close ON or die "Error closing opnames.h: $!";
 
@@ -318,7 +322,8 @@ open PPSYM, ">$pp_sym_new" or die "Error creating $pp_sym_new: $!";
 binmode PPSYM;
 
 print PP <<"END";
-/* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+/* -*- buffer-read-only: t -*-
+   !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
    This file is built by opcode.pl from its data.  Any changes made here
    will be lost!
 */
@@ -326,6 +331,7 @@ print PP <<"END";
 END
 
 print PPSYM <<"END";
+# -*- buffer-read-only: t -*-
 #
 # !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 #   This file is built by opcode.pl from its data.  Any changes made here
@@ -349,6 +355,8 @@ for (@ops) {
     print PP "PERL_PPDEF(Perl_pp_$_)\n";
     print PPSYM "Perl_pp_$_\n";
 }
+print PP "\n/* ex: set ro: */\n";
+print PPSYM "\n# ex: set ro:\n";
 
 close PP or die "Error closing pp_proto.h: $!";
 close PPSYM or die "Error closing pp.sym: $!";

diff --git a/opnames.h b/opnames.h
index 0f1e98f..ba6a26b 100644 (file)
--- a/opnames.h
+++ b/opnames.h
@@ -1,4 +1,5 @@
-/*
+/* -*- buffer-read-only: t -*-
+ *
  *    opnames.h
  *
  *    Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, by Larry Wall and others
@@ -420,3 +421,4 @@ typedef enum opcode {
         (op) == OP_FTTTY || \
         (op) == OP_FTZERO)
 
+/* ex: set ro: */

diff --git a/pad.c b/pad.c
index 408514b..0473f9a 100644 (file)
--- a/pad.c
+++ b/pad.c
@@ -1622,5 +1622,5 @@ Perl_pad_compname_type(pTHX_ const PADOFFSET po)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */

diff --git a/perl.c b/perl.c
index b11bc34..4937c2a 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -4866,5 +4866,5 @@ read_e_script(pTHX_ int idx, SV *buf_sv, int maxlen)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */

diff --git a/perlapi.c b/perlapi.c
index b1ed782..a131598 100644 (file)
--- a/perlapi.c
+++ b/perlapi.c
@@ -1,4 +1,5 @@
-/*
+/*  -*- buffer-read-only: t -*-
+ *
  *    perlapi.c
  *
  *    Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999,
@@ -92,3 +93,5 @@ unsigned char** Perl_Gfold_locale_ptr(pTHX) {
 END_EXTERN_C
 
 #endif /* MULTIPLICITY */
+
+/* ex: set ro: */

diff --git a/perlapi.h b/perlapi.h
index 662ecdf..2ff02e5 100644 (file)
--- a/perlapi.h
+++ b/perlapi.h
@@ -1,4 +1,5 @@
-/*
+/*  -*- buffer-read-only: t -*-
+ *
  *    perlapi.h
  *
  *    Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999,
@@ -1004,3 +1005,4 @@ END_EXTERN_C
 
 #endif /* __perlapi_h__ */
 
+/* ex: set ro: */

diff --git a/perlio.c b/perlio.c
index a619636..69186ce 100644 (file)
--- a/perlio.c
+++ b/perlio.c
@@ -5048,5 +5048,5 @@ PerlIO_sprintf(char *s, int n, const char *fmt, ...)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */

diff --git a/perly.c b/perly.c
index 12c8443..6b9e376 100644 (file)
--- a/perly.c
+++ b/perly.c
@@ -706,5 +706,5 @@ Perl_yyparse (pTHX)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */

diff --git a/pp.c b/pp.c
index 3b4c65f..60301fc 100644 (file)
--- a/pp.c
+++ b/pp.c
@@ -4834,5 +4834,5 @@ PP(pp_threadsv)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */

diff --git a/pp.sym b/pp.sym
index 00d4e7e..19be260 100644 (file)
--- a/pp.sym
+++ b/pp.sym
@@ -1,3 +1,4 @@
+# -*- buffer-read-only: t -*-
 #
 # !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 #   This file is built by opcode.pl from its data.  Any changes made here
@@ -393,3 +394,5 @@ Perl_pp_setstate
 Perl_pp_method_named
 Perl_pp_dor
 Perl_pp_dorassign
+
+# ex: set ro:

diff --git a/pp_ctl.c b/pp_ctl.c
index 5780a81..d1be0ec 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3946,5 +3946,5 @@ S_path_is_absolute(pTHX_ const char *name)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */

diff --git a/pp_hot.c b/pp_hot.c
index e75b482..1d1a792 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -3130,5 +3130,5 @@ S_method_common(pTHX_ SV* meth, U32* hashp)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */

diff --git a/pp_pack.c b/pp_pack.c
index 34b18fe..d4731a2 100644 (file)
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -3625,5 +3625,5 @@ PP(pp_pack)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */

diff --git a/pp_proto.h b/pp_proto.h
index 2f457c3..dddb013 100644 (file)
--- a/pp_proto.h
+++ b/pp_proto.h
@@ -1,4 +1,5 @@
-/* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+/* -*- buffer-read-only: t -*-
+   !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
    This file is built by opcode.pl from its data.  Any changes made here
    will be lost!
 */
@@ -394,3 +395,5 @@ PERL_PPDEF(Perl_pp_setstate)
 PERL_PPDEF(Perl_pp_method_named)
 PERL_PPDEF(Perl_pp_dor)
 PERL_PPDEF(Perl_pp_dorassign)
+
+/* ex: set ro: */

diff --git a/pp_sort.c b/pp_sort.c
index f14e1a8..6d75650 100644 (file)
--- a/pp_sort.c
+++ b/pp_sort.c
@@ -1927,5 +1927,5 @@ amagic_cmp_locale(pTHX_ register SV *str1, register SV *str2)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */

diff --git a/pp_sys.c b/pp_sys.c
index 28cc6fe..a75b87c 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -5883,5 +5883,5 @@ lockf_emulate_flock(int fd, int operation)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */

diff --git a/proto.h b/proto.h
index ca7cbdf..766d27b 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -1,4 +1,5 @@
-/*
+/*  -*- buffer-read-only: t -*-
+ *
  *    proto.h
  *
  *    Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999,
@@ -2168,3 +2169,4 @@ PERL_CALLCONV bool        Perl_is_gv_magical_sv(pTHX_ SV *name, U32 flags);
 PERL_CALLCONV char*    Perl_savesvpv(pTHX_ SV* sv);
 
 END_EXTERN_C
+/* ex: set ro: */

diff --git a/reentr.c b/reentr.c
index 3aeb5a5..a085b71 100644 (file)
--- a/reentr.c
+++ b/reentr.c
@@ -1,7 +1,8 @@
-/*
+/* -*- buffer-read-only: t -*-
+ *
  *    reentr.c
  *
- *    Copyright (C) 2002, 2003, by Larry Wall and others
+ *    Copyright (C) 2002, 2003, 2005 by Larry Wall and others
  *
  *    You may distribute under the terms of either the GNU General Public
  *    License or the Artistic License, as specified in the README file.
@@ -536,3 +537,4 @@ Perl_reentrant_retry(const char *f, ...)
     return retptr;
 }
 
+/* ex: set ro: */

diff --git a/reentr.h b/reentr.h
index fda1802..6c356c0 100644 (file)
--- a/reentr.h
+++ b/reentr.h
@@ -1,4 +1,5 @@
-/*
+/* -*- buffer-read-only: t -*-
+ *
  *    reentr.h
  *
  *    Copyright (C) 2002, 2003, 2005 by Larry Wall and others
@@ -11,7 +12,7 @@
  */
 
 #ifndef REENTR_H
-#define REENTR_H 
+#define REENTR_H
 
 #ifdef USE_REENTRANT_API
  
@@ -1424,3 +1425,4 @@ typedef struct {
  
 #endif
 
+/* ex: set ro: */

diff --git a/reentr.pl b/reentr.pl
index cd69989..ea98498 100644 (file)
--- a/reentr.pl
+++ b/reentr.pl
@@ -38,7 +38,8 @@ my %map = (
 die "reentr.h: $!" unless open(H, ">reentr.h");
 select H;
 print <<EOF;
-/*
+/* -*- buffer-read-only: t -*-
+ *
  *    reentr.h
  *
  *    Copyright (C) 2002, 2003, 2005 by Larry Wall and others
@@ -51,7 +52,7 @@ print <<EOF;
  */
 
 #ifndef REENTR_H
-#define REENTR_H 
+#define REENTR_H
 
 #ifdef USE_REENTRANT_API
  
@@ -751,6 +752,7 @@ typedef struct {
  
 #endif
 
+/* ex: set ro: */
 EOF
 
 close(H);
@@ -760,10 +762,11 @@ close(H);
 die "reentr.c: $!" unless open(C, ">reentr.c");
 select C;
 print <<EOF;
-/*
+/* -*- buffer-read-only: t -*-
+ *
  *    reentr.c
  *
- *    Copyright (C) 2002, 2003, by Larry Wall and others
+ *    Copyright (C) 2002, 2003, 2005 by Larry Wall and others
  *
  *    You may distribute under the terms of either the GNU General Public
  *    License or the Artistic License, as specified in the README file.
@@ -1042,6 +1045,7 @@ Perl_reentrant_retry(const char *f, ...)
     return retptr;
 }
 
+/* ex: set ro: */
 EOF
 
 __DATA__

diff --git a/regcomp.c b/regcomp.c
index 73ca919..86c165f 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -6386,5 +6386,5 @@ clear_re(pTHX_ void *r)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */

diff --git a/regcomp.pl b/regcomp.pl
index 97403ba..e7a9d05 100644 (file)
--- a/regcomp.pl
+++ b/regcomp.pl
@@ -25,7 +25,8 @@ open OUT, ">$tmp_h";
 binmode OUT;
 
 print OUT <<EOP;
-/* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+/* -*- buffer-read-only: t -*-
+   !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
    This file is built by regcomp.pl from regcomp.sym.
    Any changes made here will be lost!
 */
@@ -115,6 +116,7 @@ static const int reg_num = $tot;
 #endif /* DEBUGGING */
 #endif /* REG_COMP_C */
 
+/* ex: set ro: */
 EOP
 
 close OUT or die "close $tmp_h: $!";

diff --git a/regexec.c b/regexec.c
index 182be28..1e1d18b 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -4970,5 +4970,5 @@ S_to_byte_substr(pTHX_ register regexp *prog)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */

diff --git a/regnodes.h b/regnodes.h
index 0a1111f..8559544 100644 (file)
--- a/regnodes.h
+++ b/regnodes.h
@@ -1,4 +1,5 @@
-/* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+/* -*- buffer-read-only: t -*-
+   !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
    This file is built by regcomp.pl from regcomp.sym.
    Any changes made here will be lost!
 */
@@ -353,3 +354,4 @@ static const int reg_num = 65;
 #endif /* DEBUGGING */
 #endif /* REG_COMP_C */
 
+/* ex: set ro: */

diff --git a/run.c b/run.c
index 0b868ab..95bc676 100644 (file)
--- a/run.c
+++ b/run.c
@@ -49,5 +49,5 @@ Perl_runops_standard(pTHX)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */

diff --git a/scope.c b/scope.c
index 8b3821e..2108d18 100644 (file)
--- a/scope.c
+++ b/scope.c
@@ -1161,5 +1161,5 @@ Perl_cx_dump(pTHX_ PERL_CONTEXT *cx)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */

diff --git a/sv.c b/sv.c
index ed50990..568f81b 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -12489,5 +12489,5 @@ Perl_sv_cat_decode(pTHX_ SV *dsv, SV *encoding,
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */

diff --git a/taint.c b/taint.c
index eafd365..209efb3 100644 (file)
--- a/taint.c
+++ b/taint.c
@@ -175,5 +175,5 @@ Perl_taint_env(pTHX)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */

diff --git a/toke.c b/toke.c
index 6d1576b..72bedd9 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -10998,5 +10998,5 @@ Perl_scan_vstring(pTHX_ const char *s, SV *sv)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */

diff --git a/universal.c b/universal.c
index e79bdae..c26c835 100644 (file)
--- a/universal.c
+++ b/universal.c
@@ -958,5 +958,5 @@ XS(XS_Internals_HvREHASH)   /* Subject to change  */
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */

diff --git a/utf8.c b/utf8.c
index af027b6..21e19ae 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -2037,5 +2037,5 @@ Perl_ibcmp_utf8(pTHX_ const char *s1, char **pe1, register UV l1, bool u1, const
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */

diff --git a/util.c b/util.c
index 03201dd..ca4eb58 100644 (file)
--- a/util.c
+++ b/util.c
@@ -4784,5 +4784,5 @@ Perl_free_global_struct(pTHX_ struct perl_vars *plvarsp)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */

diff --git a/warnings.h b/warnings.h
index 11efe1d..178d1cf 100644 (file)
--- a/warnings.h
+++ b/warnings.h
@@ -1,4 +1,5 @@
-/* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+/* -*- buffer-read-only: t -*-
+   !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
    This file is built by warnings.pl
    Any changes made here will be lost!
 */
@@ -162,4 +163,4 @@
              isWARNf_on(PL_curcop->cop_warnings, unpackWARN4(x))))
 
 /* end of file warnings.h */
-
+/* ex: set ro: */

diff --git a/warnings.pl b/warnings.pl
index e7659b9..e3c0403 100644 (file)
--- a/warnings.pl
+++ b/warnings.pl
@@ -257,7 +257,8 @@ open(PM, ">lib/warnings.pm") || die "Can't create lib/warnings.pm: $!\n";
 binmode PM;
 
 print WARN <<'EOM' ;
-/* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+/* -*- buffer-read-only: t -*-
+   !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
    This file is built by warnings.pl
    Any changes made here will be lost!
 */
@@ -402,7 +403,7 @@ print WARN <<'EOM';
              isWARNf_on(PL_curcop->cop_warnings, unpackWARN4(x))))
 
 /* end of file warnings.h */
-
+/* ex: set ro: */
 EOM
 
 close WARN ;
@@ -465,10 +466,11 @@ while (<DATA>) {
     print PM $_ ;
 }
 
+print PM "# ex: set ro:\n";
 close PM ;
 
 __END__
-
+# -*- buffer-read-only: t -*-
 # !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 # This file was created by warnings.pl
 # Any changes made here will be lost.

diff --git a/xsutils.c b/xsutils.c
index 84c9d7e..5956ff2 100644 (file)
--- a/xsutils.c
+++ b/xsutils.c
@@ -338,5 +338,5 @@ XS(XS_attributes__warn_reserved)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */