From: Rafael Garcia-Suarez Date: Wed, 11 May 2005 07:54:19 +0000 (+0000) Subject: Include vim/emacs modelines in generated files to open them X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=37442d52629699d89ef62d315d35efbc0facec21;p=p5sagit%2Fp5-mst-13.2.git 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 --- 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 --- 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 =cut + +# ex: set ro: EOT diff --git a/deb.c b/deb.c index 7788dc1..8696bce 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 d3b27c7..224f72d 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 9a0eac4..22160af 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 af0b5e1..8e40bde 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 efa138f..f2102c3 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 9cdef07..fd4a917 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 = <$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 --- 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 --- 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 =cut + +# ex: set ro: diff --git a/ext/ByteLoader/byterun.c b/ext/ByteLoader/byterun.c index a30a6e4..75fe0b3 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 334abe6..d47c62c 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 b953ce7..d1cfb99 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 8f382bb..afb3f25 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 fe8280e..7d3eccb 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 ddaaaf7..f7c3761 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 654bc76..3af51b8 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 b4b048b..fe745d4 100755 --- a/keywords.pl +++ b/keywords.pl @@ -7,7 +7,8 @@ binmode KW; select KW; print <) { 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- a/opcode.pl +++ b/opcode.pl @@ -37,7 +37,8 @@ while () { $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 <$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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- a/reentr.pl +++ b/reentr.pl @@ -38,7 +38,8 @@ my %map = ( die "reentr.h: $!" unless open(H, ">reentr.h"); select H; print <reentr.c"); select C; print <$tmp_h"; binmode OUT; print OUT <cop_warnings, unpackWARN4(x)))) /* end of file warnings.h */ - +/* ex: set ro: */ diff --git a/warnings.pl b/warnings.pl index e7659b9..e3c0403 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 () { 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 --- 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: + */