diff options
| -rw-r--r-- | av.c | 4 | ||||
| -rw-r--r-- | bytecode.pl | 9 | ||||
| -rw-r--r-- | deb.c | 4 | ||||
| -rw-r--r-- | doio.c | 4 | ||||
| -rw-r--r-- | doop.c | 4 | ||||
| -rw-r--r-- | dump.c | 4 | ||||
| -rw-r--r-- | embed.h | 4 | ||||
| -rwxr-xr-x | embed.pl | 15 | ||||
| -rw-r--r-- | embedvar.h | 5 | ||||
| -rw-r--r-- | ext/B/B/Asmdata.pm | 3 | ||||
| -rw-r--r-- | ext/ByteLoader/byterun.c | 5 | ||||
| -rw-r--r-- | ext/ByteLoader/byterun.h | 4 | ||||
| -rw-r--r-- | global.sym | 2 | ||||
| -rw-r--r-- | globals.c | 4 | ||||
| -rw-r--r-- | gv.c | 4 | ||||
| -rw-r--r-- | hv.c | 4 | ||||
| -rw-r--r-- | keywords.h | 5 | ||||
| -rwxr-xr-x | keywords.pl | 5 | ||||
| -rw-r--r-- | lib/warnings.pm | 3 | ||||
| -rw-r--r-- | locale.c | 4 | ||||
| -rw-r--r-- | malloc.c | 4 | ||||
| -rw-r--r-- | mg.c | 4 | ||||
| -rw-r--r-- | miniperlmain.c | 4 | ||||
| -rw-r--r-- | numeric.c | 4 | ||||
| -rw-r--r-- | op.c | 4 | ||||
| -rw-r--r-- | opcode.h | 5 | ||||
| -rwxr-xr-x | opcode.pl | 16 | ||||
| -rw-r--r-- | opnames.h | 4 | ||||
| -rw-r--r-- | pad.c | 4 | ||||
| -rw-r--r-- | perl.c | 4 | ||||
| -rw-r--r-- | perlapi.c | 5 | ||||
| -rw-r--r-- | perlapi.h | 4 | ||||
| -rw-r--r-- | perlio.c | 4 | ||||
| -rw-r--r-- | perly.c | 4 | ||||
| -rw-r--r-- | pp.c | 4 | ||||
| -rw-r--r-- | pp.sym | 3 | ||||
| -rw-r--r-- | pp_ctl.c | 4 | ||||
| -rw-r--r-- | pp_hot.c | 4 | ||||
| -rw-r--r-- | pp_pack.c | 4 | ||||
| -rw-r--r-- | pp_proto.h | 5 | ||||
| -rw-r--r-- | pp_sort.c | 4 | ||||
| -rw-r--r-- | pp_sys.c | 4 | ||||
| -rw-r--r-- | proto.h | 4 | ||||
| -rw-r--r-- | reentr.c | 6 | ||||
| -rw-r--r-- | reentr.h | 6 | ||||
| -rw-r--r-- | reentr.pl | 12 | ||||
| -rw-r--r-- | regcomp.c | 4 | ||||
| -rw-r--r-- | regcomp.pl | 4 | ||||
| -rw-r--r-- | regexec.c | 4 | ||||
| -rw-r--r-- | regnodes.h | 4 | ||||
| -rw-r--r-- | run.c | 4 | ||||
| -rw-r--r-- | scope.c | 4 | ||||
| -rw-r--r-- | sv.c | 4 | ||||
| -rw-r--r-- | taint.c | 4 | ||||
| -rw-r--r-- | toke.c | 4 | ||||
| -rw-r--r-- | universal.c | 4 | ||||
| -rw-r--r-- | utf8.c | 4 | ||||
| -rw-r--r-- | util.c | 4 | ||||
| -rw-r--r-- | warnings.h | 5 | ||||
| -rw-r--r-- | warnings.pl | 8 | ||||
| -rw-r--r-- | xsutils.c | 4 |
61 files changed, 183 insertions, 108 deletions
@@ -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 @@ -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: + */ @@ -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: + */ @@ -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: + */ @@ -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: + */ @@ -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: */ @@ -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: @@ -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: + */ @@ -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: + */ @@ -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: @@ -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: + */ @@ -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: + */ @@ -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: + */ @@ -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: + */ @@ -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: + */ @@ -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: */ @@ -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: $!"; @@ -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: */ @@ -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: + */ @@ -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: + */ @@ -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: */ @@ -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: */ @@ -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: + */ @@ -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: + */ @@ -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: + */ @@ -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: @@ -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: + */ @@ -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: + */ @@ -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: */ @@ -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: + */ @@ -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: + */ @@ -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: */ @@ -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: */ @@ -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: */ @@ -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__ @@ -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: $!"; @@ -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: */ @@ -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: + */ @@ -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: + */ @@ -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: + */ @@ -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: + */ @@ -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: + */ @@ -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: + */ @@ -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. @@ -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: + */ |