summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2005-05-11 07:54:19 +0000
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2005-05-11 07:54:19 +0000
commit37442d52629699d89ef62d315d35efbc0facec21 (patch)
tree9a628dce9299a88717fc402055910fb432a0b326
parent24801a4b9a14a56208916a537c4c237993c25186 (diff)
downloadperl-37442d52629699d89ef62d315d35efbc0facec21.tar.gz
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
-rw-r--r--av.c4
-rw-r--r--bytecode.pl9
-rw-r--r--deb.c4
-rw-r--r--doio.c4
-rw-r--r--doop.c4
-rw-r--r--dump.c4
-rw-r--r--embed.h4
-rwxr-xr-xembed.pl15
-rw-r--r--embedvar.h5
-rw-r--r--ext/B/B/Asmdata.pm3
-rw-r--r--ext/ByteLoader/byterun.c5
-rw-r--r--ext/ByteLoader/byterun.h4
-rw-r--r--global.sym2
-rw-r--r--globals.c4
-rw-r--r--gv.c4
-rw-r--r--hv.c4
-rw-r--r--keywords.h5
-rwxr-xr-xkeywords.pl5
-rw-r--r--lib/warnings.pm3
-rw-r--r--locale.c4
-rw-r--r--malloc.c4
-rw-r--r--mg.c4
-rw-r--r--miniperlmain.c4
-rw-r--r--numeric.c4
-rw-r--r--op.c4
-rw-r--r--opcode.h5
-rwxr-xr-xopcode.pl16
-rw-r--r--opnames.h4
-rw-r--r--pad.c4
-rw-r--r--perl.c4
-rw-r--r--perlapi.c5
-rw-r--r--perlapi.h4
-rw-r--r--perlio.c4
-rw-r--r--perly.c4
-rw-r--r--pp.c4
-rw-r--r--pp.sym3
-rw-r--r--pp_ctl.c4
-rw-r--r--pp_hot.c4
-rw-r--r--pp_pack.c4
-rw-r--r--pp_proto.h5
-rw-r--r--pp_sort.c4
-rw-r--r--pp_sys.c4
-rw-r--r--proto.h4
-rw-r--r--reentr.c6
-rw-r--r--reentr.h6
-rw-r--r--reentr.pl12
-rw-r--r--regcomp.c4
-rw-r--r--regcomp.pl4
-rw-r--r--regexec.c4
-rw-r--r--regnodes.h4
-rw-r--r--run.c4
-rw-r--r--scope.c4
-rw-r--r--sv.c4
-rw-r--r--taint.c4
-rw-r--r--toke.c4
-rw-r--r--universal.c4
-rw-r--r--utf8.c4
-rw-r--r--util.c4
-rw-r--r--warnings.h5
-rw-r--r--warnings.pl8
-rw-r--r--xsutils.c4
61 files changed, 183 insertions, 108 deletions
diff --git a/av.c b/av.c
index a03387c4e5..d3f17af3de 100644
--- 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 aa0e02723d..d8ce8edc94 100644
--- 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 7788dc119a..8696bce0b4 100644
--- 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 d3b27c7927..224f72d64f 100644
--- 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 9a0eac498e..22160aff63 100644
--- 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 af0b5e1013..8e40bde99e 100644
--- 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 efa138fd06..f2102c3b8d 100644
--- 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 9cdef0782a..fd4a91718f 100755
--- 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 dad8a80db0..631a2457f1 100644
--- 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 7ee1bfecdf..8c07b22f63 100644
--- 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 a30a6e4e25..75fe0b3702 100644
--- 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 334abe6d55..d47c62cf30 100644
--- 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 b953ce7a7f..d1cfb99e45 100644
--- 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 8f382bb4ec..afb3f25158 100644
--- 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 fe8280e4bd..7d3eccbf9d 100644
--- 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 ddaaaf7850..f7c3761864 100644
--- 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 654bc7672c..3af51b8c9d 100644
--- 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 b4b048b08a..fe745d470b 100755
--- 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 635993bbd8..5fe108d83e 100644
--- 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 526a56855b..5282146f66 100644
--- 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 3731fc26b7..f5c82b8cc3 100644
--- 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 58301f81b1..754cb4b57e 100644
--- 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 48993cdc8a..bb49f5b88f 100644
--- 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 6f962837f5..c467825c9b 100644
--- 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 08f1689255..909973dcbd 100644
--- 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 8c851570c4..1a4c5077ff 100644
--- 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 bda960d4ac..9e8d323f91 100755
--- 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 0f1e98f4b1..ba6a26b03f 100644
--- 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 408514beca..0473f9af4e 100644
--- 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 b11bc34532..4937c2a441 100644
--- 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 b1ed782f38..a131598471 100644
--- 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 662ecdfbc0..2ff02e5349 100644
--- 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 a619636097..69186cee04 100644
--- 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 12c8443056..6b9e376625 100644
--- 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 3b4c65fecc..60301fc2c9 100644
--- 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 00d4e7eef3..19be260b70 100644
--- 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 5780a81c5f..d1be0ec1b5 100644
--- 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 e75b482279..1d1a792b57 100644
--- 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 34b18fefbd..d4731a2eac 100644
--- 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 2f457c37fd..dddb013eeb 100644
--- 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 f14e1a874a..6d7565042f 100644
--- 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 28cc6feb12..a75b87c23e 100644
--- 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 ca7cbdf2ba..766d27b331 100644
--- 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 3aeb5a5329..a085b711af 100644
--- 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 fda1802056..6c356c0e0c 100644
--- 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 cd6998990c..ea98498495 100644
--- 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 73ca9197ab..86c165fe85 100644
--- 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 97403ba7d4..e7a9d0588c 100644
--- 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 182be28216..1e1d18be43 100644
--- 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 0a1111f3c4..85595448c3 100644
--- 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 0b868abb1c..95bc6760b1 100644
--- 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 8b3821e2ea..2108d18d9f 100644
--- 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 ed509908ca..568f81b4e3 100644
--- 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 eafd365db3..209efb3eec 100644
--- 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 6d1576b269..72bedd9950 100644
--- 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 e79bdae02c..c26c835e38 100644
--- 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 af027b67cb..21e19ae208 100644
--- 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 03201dd513..ca4eb58dfe 100644
--- 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 11efe1dc7e..178d1cf25c 100644
--- 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 e7659b9374..e3c0403669 100644
--- 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 84c9d7e044..5956ff2762 100644
--- 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:
+ */