diff options
| -rw-r--r-- | .mailmap | 1 | ||||
| -rw-r--r-- | ebcdic_tables.h | 4 | ||||
| -rw-r--r-- | embed.h | 4 | ||||
| -rw-r--r-- | embedvar.h | 4 | ||||
| -rw-r--r-- | feature.h | 4 | ||||
| -rw-r--r-- | l1_char_class_tab.h | 4 | ||||
| -rw-r--r-- | lib/.gitignore | 4 | ||||
| -rw-r--r-- | lib/B/Op_private.pm | 4 | ||||
| -rw-r--r-- | lib/feature.pm | 4 | ||||
| -rw-r--r-- | lib/overload/numbers.pm | 4 | ||||
| -rw-r--r-- | lib/warnings.pm | 4 | ||||
| -rw-r--r-- | mg_names.inc | 4 | ||||
| -rw-r--r-- | mg_raw.h | 4 | ||||
| -rw-r--r-- | mg_vtable.h | 4 | ||||
| -rw-r--r-- | miniperlmain.c | 4 | ||||
| -rw-r--r-- | opcode.h | 4 | ||||
| -rw-r--r-- | opnames.h | 4 | ||||
| -rw-r--r-- | overload.h | 4 | ||||
| -rw-r--r-- | overload.inc | 4 | ||||
| -rw-r--r-- | packsizetables.inc | 4 | ||||
| -rw-r--r-- | pp_proto.h | 4 | ||||
| -rw-r--r-- | proto.h | 4 | ||||
| -rw-r--r-- | reentr.c | 4 | ||||
| -rw-r--r-- | reentr.h | 4 | ||||
| -rw-r--r-- | regen/regen_lib.pl | 5 | ||||
| -rw-r--r-- | regnodes.h | 4 | ||||
| -rw-r--r-- | scope_types.h | 4 | ||||
| -rw-r--r-- | t/porting/regen.t | 2 | ||||
| -rw-r--r-- | uconfig.h | 2 | ||||
| -rw-r--r-- | unicode_constants.h | 4 | ||||
| -rw-r--r-- | warnings.h | 4 |
31 files changed, 60 insertions, 58 deletions
@@ -292,6 +292,7 @@ Ed J <etj@cpan.org> mohawk2 <mohawk2@users.noreply.github.com> Edward Peschko <edwardp@excitehome.net> <epeschko@elmer.tci.com> Edward Peschko <edwardp@excitehome.net> Ed Peschko <epeschko@den-mdev1> Edward Peschko <edwardp@excitehome.net> Edward S. Peschko <esp5@pge.com> +Elvin Aslanov <rwp.primary@gmail.com> rwp0 <rwp.primary@gmail.com> Enrico Sorcinelli <bepi@perl.it> Enrico Sorcinelli <enrico.sorcinelli@gmail.com> Eric Amick <unknown> Amick, Eric <perlbug@perl.org> Eric Amick <unknown> Amick, Eric <unknown> diff --git a/ebcdic_tables.h b/ebcdic_tables.h index 83aa6a1443..44011b50d8 100644 --- a/ebcdic_tables.h +++ b/ebcdic_tables.h @@ -1,4 +1,4 @@ -/* -*- buffer-read-only: t -*- +/* -*- mode: C; buffer-read-only: t -*- * !!!!!!! DO NOT EDIT THIS FILE !!!!!!! * This file is built by regen/ebcdic.pl. * Any changes made here will be lost! @@ -795,4 +795,4 @@ SOFTWARE. #endif /* PERL_EBCDIC_TABLES_H_ */ -/* ex: set ro: */ +/* ex: set ro ft=C: */ @@ -1,4 +1,4 @@ -/* -*- buffer-read-only: t -*- +/* -*- mode: C; buffer-read-only: t -*- * * embed.h * @@ -2162,4 +2162,4 @@ # endif /* defined(VMS) || defined(WIN32) */ #endif /* !defined(PERL_NO_SHORT_NAMES) */ -/* ex: set ro: */ +/* ex: set ro ft=C: */ diff --git a/embedvar.h b/embedvar.h index 19985da946..1ee8094905 100644 --- a/embedvar.h +++ b/embedvar.h @@ -1,4 +1,4 @@ -/* -*- buffer-read-only: t -*- +/* -*- mode: C; buffer-read-only: t -*- * * embedvar.h * @@ -366,4 +366,4 @@ # endif /* !defined(PL_sawampersand) */ #endif /* defined(MULTIPLICITY) */ -/* ex: set ro: */ +/* ex: set ro ft=C: */ @@ -1,4 +1,4 @@ -/* -*- buffer-read-only: t -*- +/* -*- mode: C; buffer-read-only: t -*- !!!!!!! DO NOT EDIT THIS FILE !!!!!!! This file is built by regen/feature.pl. Any changes made here will be lost! @@ -451,4 +451,4 @@ S_magic_sethint_feature(pTHX_ SV *keysv, const char *keypv, STRLEN keylen, #endif /* PERL_FEATURE_H_ */ -/* ex: set ro: */ +/* ex: set ro ft=C: */ diff --git a/l1_char_class_tab.h b/l1_char_class_tab.h index fb5031443e..d9885e4d68 100644 --- a/l1_char_class_tab.h +++ b/l1_char_class_tab.h @@ -1,4 +1,4 @@ -/* -*- buffer-read-only: t -*- +/* -*- mode: C; buffer-read-only: t -*- * !!!!!!! DO NOT EDIT THIS FILE !!!!!!! * This file is built by regen/mk_PL_charclass.pl from Unicode::UCD. * Any changes made here will be lost! @@ -793,4 +793,4 @@ #endif /* EBCDIC 037 */ -/* ex: set ro: */ +/* ex: set ro ft=C: */ diff --git a/lib/.gitignore b/lib/.gitignore index 7feacc5ceb..2794c275a6 100644 --- a/lib/.gitignore +++ b/lib/.gitignore @@ -1,4 +1,4 @@ -# -*- buffer-read-only: t -*- +# -*- mode: Perl; buffer-read-only: t -*- # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is built by regen/lib_cleanup.pl from MANIFEST and parsing files # in cpan/ dist/ and ext/. @@ -229,4 +229,4 @@ /version.pod /version/ -# ex: set ro: +# ex: set ro ft=Perl: diff --git a/lib/B/Op_private.pm b/lib/B/Op_private.pm index 0bd8128e99..29eaf5d135 100644 --- a/lib/B/Op_private.pm +++ b/lib/B/Op_private.pm @@ -1,4 +1,4 @@ -# -*- buffer-read-only: t -*- +# -*- mode: Perl; buffer-read-only: t -*- # # lib/B/Op_private.pm # @@ -928,4 +928,4 @@ $ops_using{OPpTRANS_IDENTICAL} = $ops_using{OPpTRANS_CAN_FORCE_UTF8}; $ops_using{OPpTRANS_SQUASH} = $ops_using{OPpTRANS_CAN_FORCE_UTF8}; $ops_using{OPpTRANS_USE_SVOP} = $ops_using{OPpTRANS_CAN_FORCE_UTF8}; -# ex: set ro: +# ex: set ro ft=Perl: diff --git a/lib/feature.pm b/lib/feature.pm index 407448832d..ebaae10f4a 100644 --- a/lib/feature.pm +++ b/lib/feature.pm @@ -1,4 +1,4 @@ -# -*- buffer-read-only: t -*- +# -*- mode: Perl; buffer-read-only: t -*- # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is built by regen/feature.pl. # Any changes made here will be lost! @@ -1244,4 +1244,4 @@ sub feature_bundle { 1; -# ex: set ro: +# ex: set ro ft=Perl: diff --git a/lib/overload/numbers.pm b/lib/overload/numbers.pm index ccea9e17bc..db71405f08 100644 --- a/lib/overload/numbers.pm +++ b/lib/overload/numbers.pm @@ -1,4 +1,4 @@ -# -*- buffer-read-only: t -*- +# -*- mode: Perl; buffer-read-only: t -*- # # lib/overload/numbers.pm # @@ -173,4 +173,4 @@ our @enums = qw# { my $i = 0; our %enums = map { $_ => $i++ } @enums } -# ex: set ro: +# ex: set ro ft=Perl: diff --git a/lib/warnings.pm b/lib/warnings.pm index 554cd09500..b0dc1037ed 100644 --- a/lib/warnings.pm +++ b/lib/warnings.pm @@ -1,4 +1,4 @@ -# -*- buffer-read-only: t -*- +# -*- mode: Perl; buffer-read-only: t -*- # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is built by regen/warnings.pl. # Any changes made here will be lost! @@ -1449,4 +1449,4 @@ See also L<perlmodlib/Pragmatic Modules> and L<perldiag>. =cut -# ex: set ro: +# ex: set ro ft=Perl: diff --git a/mg_names.inc b/mg_names.inc index 5a5abb9d86..5dd0c9ae0e 100644 --- a/mg_names.inc +++ b/mg_names.inc @@ -1,4 +1,4 @@ -/* -*- buffer-read-only: t -*- +/* -*- mode: C; buffer-read-only: t -*- * * mg_names.inc * !!!!!!! DO NOT EDIT THIS FILE !!!!!!! @@ -52,4 +52,4 @@ { PERL_MAGIC_extvalue, "extvalue(^)" }, { PERL_MAGIC_ext, "ext(~)" }, -/* ex: set ro: */ +/* ex: set ro ft=C: */ @@ -1,4 +1,4 @@ -/* -*- buffer-read-only: t -*- +/* -*- mode: C; buffer-read-only: t -*- * * mg_raw.h * !!!!!!! DO NOT EDIT THIS FILE !!!!!!! @@ -91,4 +91,4 @@ { '~', "magic_vtable_max | PERL_MAGIC_READONLY_ACCEPTABLE", "/* ext '~' Variable magic available for use by extensions */" }, -/* ex: set ro: */ +/* ex: set ro ft=C: */ diff --git a/mg_vtable.h b/mg_vtable.h index 0497e2942a..b005cb7c69 100644 --- a/mg_vtable.h +++ b/mg_vtable.h @@ -1,4 +1,4 @@ -/* -*- buffer-read-only: t -*- +/* -*- mode: C; buffer-read-only: t -*- * * mg_vtable.h * !!!!!!! DO NOT EDIT THIS FILE !!!!!!! @@ -241,4 +241,4 @@ EXT_MGVTBL PL_magic_vtables[magic_vtable_max]; #define PL_vtbl_uvar PL_magic_vtables[want_vtbl_uvar] #define PL_vtbl_vec PL_magic_vtables[want_vtbl_vec] -/* ex: set ro: */ +/* ex: set ro ft=C: */ diff --git a/miniperlmain.c b/miniperlmain.c index 5064befdfb..074fadc12a 100644 --- a/miniperlmain.c +++ b/miniperlmain.c @@ -1,4 +1,4 @@ -/* -*- buffer-read-only: t -*- +/* -*- mode: C; buffer-read-only: t -*- !!!!!!! DO NOT EDIT THIS FILE !!!!!!! This file is built by regen/miniperlmain.pl and ExtUtils::Miniperl. Any changes made here will be lost! @@ -161,4 +161,4 @@ xs_init(pTHX) PERL_UNUSED_CONTEXT; } -/* ex: set ro: */ +/* ex: set ro ft=C: */ @@ -1,4 +1,4 @@ -/* -*- buffer-read-only: t -*- +/* -*- mode: C; buffer-read-only: t -*- * * opcode.h * @@ -3508,4 +3508,4 @@ END_EXTERN_C -/* ex: set ro: */ +/* ex: set ro ft=C: */ @@ -1,4 +1,4 @@ -/* -*- buffer-read-only: t -*- +/* -*- mode: C; buffer-read-only: t -*- * * opnames.h * @@ -464,4 +464,4 @@ typedef enum opcode { #define OP_IS_INFIX_BIT(op) \ ((op) >= OP_BIT_AND && (op) <= OP_SBIT_OR) -/* ex: set ro: */ +/* ex: set ro ft=C: */ diff --git a/overload.h b/overload.h index 50e7660ad7..5f28c025d8 100644 --- a/overload.h +++ b/overload.h @@ -1,4 +1,4 @@ -/* -*- buffer-read-only: t -*- +/* -*- mode: C; buffer-read-only: t -*- * * overload.h * @@ -95,4 +95,4 @@ enum { #define NofAMmeth max_amg_code -/* ex: set ro: */ +/* ex: set ro ft=C: */ diff --git a/overload.inc b/overload.inc index 2383ef241e..c7362bfad4 100644 --- a/overload.inc +++ b/overload.inc @@ -1,4 +1,4 @@ -/* -*- buffer-read-only: t -*- +/* -*- mode: C; buffer-read-only: t -*- * * overload.inc * @@ -177,4 +177,4 @@ static const char * const PL_AMG_names[NofAMmeth] = { "(qr" }; -/* ex: set ro: */ +/* ex: set ro ft=C: */ diff --git a/packsizetables.inc b/packsizetables.inc index ae74f93296..e0427834aa 100644 --- a/packsizetables.inc +++ b/packsizetables.inc @@ -1,4 +1,4 @@ -/* -*- buffer-read-only: t -*- +/* -*- mode: C; buffer-read-only: t -*- !!!!!!! DO NOT EDIT THIS FILE !!!!!!! This file is built by regen/genpacksizetables.pl from its data. Any changes made here will be lost! @@ -219,4 +219,4 @@ STATIC const packprops_t packprops[512] = { }; #endif -/* ex: set ro: */ +/* ex: set ro ft=C: */ diff --git a/pp_proto.h b/pp_proto.h index 6a8a871e82..6a1f05b702 100644 --- a/pp_proto.h +++ b/pp_proto.h @@ -1,4 +1,4 @@ -/* -*- buffer-read-only: t -*- +/* -*- mode: C; 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! @@ -321,4 +321,4 @@ PERL_CALLCONV OP *Perl_pp_weaken(pTHX) __attribute__visibility__("hidden"); PERL_CALLCONV OP *Perl_pp_xor(pTHX) __attribute__visibility__("hidden"); PERL_CALLCONV OP *Perl_unimplemented_op(pTHX) __attribute__visibility__("hidden"); -/* ex: set ro: */ +/* ex: set ro ft=C: */ @@ -1,4 +1,4 @@ -/* -*- buffer-read-only: t -*- +/* -*- mode: C; buffer-read-only: t -*- * * proto.h * @@ -10521,4 +10521,4 @@ Perl_do_exec3(pTHX_ const char *incmd, int fd, int do_report) #endif END_EXTERN_C -/* ex: set ro: */ +/* ex: set ro ft=C: */ @@ -1,4 +1,4 @@ -/* -*- buffer-read-only: t -*- +/* -*- mode: C; buffer-read-only: t -*- * * reentr.c * @@ -677,4 +677,4 @@ Perl_reentrant_retry(const char *f, ...) return retptr; } -/* ex: set ro: */ +/* ex: set ro ft=C: */ @@ -1,4 +1,4 @@ -/* -*- buffer-read-only: t -*- +/* -*- mode: C; buffer-read-only: t -*- * * reentr.h * @@ -1697,4 +1697,4 @@ typedef struct { #endif -/* ex: set ro: */ +/* ex: set ro ft=C: */ diff --git a/regen/regen_lib.pl b/regen/regen_lib.pl index 37f42c3e06..36ffa9ecfd 100644 --- a/regen/regen_lib.pl +++ b/regen/regen_lib.pl @@ -138,7 +138,8 @@ sub read_only_top { unless exists $lang_opener{$lang}; my $style = $args{style} ? " $args{style} " : ' '; - my $raw = "-*- buffer-read-only: t -*-\n"; + # Generate the "modeline" for syntax highlighting based on the language + my $raw = "-*- mode: $lang; buffer-read-only: t -*-\n"; if ($args{file}) { $raw .= "\n $args{file}\n"; @@ -202,7 +203,7 @@ sub read_only_bottom_close_and_rename { $comment .= "$digest $file\n"; } } - $comment .= "ex: set ro:"; + $comment .= "ex: set ro ft=$lang:"; if (defined $lang && $lang eq 'Perl') { $comment =~ s/^/# /mg; diff --git a/regnodes.h b/regnodes.h index 7000a0988e..cc225b3ec2 100644 --- a/regnodes.h +++ b/regnodes.h @@ -1,4 +1,4 @@ -/* -*- buffer-read-only: t -*- +/* -*- mode: C; buffer-read-only: t -*- !!!!!!! DO NOT EDIT THIS FILE !!!!!!! This file is built by regen/regcomp.pl from regcomp.sym, op_reg_common.h and regexp.h. @@ -2945,4 +2945,4 @@ EXTCONST U32 PL_EXACT_REQ8_bitmask = 0x1E00; #endif /* defined(PERL_CORE) || defined(PERL_EXT_RE_BUILD) */ -/* ex: set ro: */ +/* ex: set ro ft=C: */ diff --git a/scope_types.h b/scope_types.h index 53b9aef7ab..e021954ff0 100644 --- a/scope_types.h +++ b/scope_types.h @@ -1,4 +1,4 @@ -/* -*- buffer-read-only: t -*- +/* -*- mode: C; buffer-read-only: t -*- Copyright (C) 2022 by Larry Wall and others @@ -146,4 +146,4 @@ static const U8 leave_scope_arg_counts[] = { #define MAX_SAVEt 57 -/* ex: set ro: */ +/* ex: set ro ft=C: */ diff --git a/t/porting/regen.t b/t/porting/regen.t index 21a969da5a..31a8e09747 100644 --- a/t/porting/regen.t +++ b/t/porting/regen.t @@ -108,7 +108,7 @@ OUTER: foreach my $file (@files) { } my @bad; while (<$fh>) { - last if /ex: set ro:/; + last if /ex:[^:]+:/; unless (/^(?: \* | #)([0-9a-f]+) (\S+)$/) { chomp $_; fail("Bad line in $file: '$_'"); @@ -5378,4 +5378,4 @@ /* Generated from: * 8cb1765533e123c379f0207fc2a4f75df4be3e84be3a0da71ab37bcf00e13a46 config_h.SH * 9c5779a38fbba64b0a5dcf7ce548120a29ea5039350102827f500c812bda10b2 uconfig.sh - * ex: set ro: */ + * ex: set ro ft=C: */ diff --git a/unicode_constants.h b/unicode_constants.h index 0f176f279a..cc7e9539d4 100644 --- a/unicode_constants.h +++ b/unicode_constants.h @@ -1,4 +1,4 @@ -/* -*- buffer-read-only: t -*- +/* -*- mode: C; buffer-read-only: t -*- * !!!!!!! DO NOT EDIT THIS FILE !!!!!!! * This file is built by regen/unicode_constants.pl from Unicode data. * Any changes made here will be lost! @@ -242,4 +242,4 @@ bytes. #endif /* PERL_UNICODE_CONSTANTS_H_ */ -/* ex: set ro: */ +/* ex: set ro ft=C: */ diff --git a/warnings.h b/warnings.h index e4e4e86053..718112a65e 100644 --- a/warnings.h +++ b/warnings.h @@ -1,4 +1,4 @@ -/* -*- buffer-read-only: t -*- +/* -*- mode: C; buffer-read-only: t -*- !!!!!!! DO NOT EDIT THIS FILE !!!!!!! This file is built by regen/warnings.pl. Any changes made here will be lost! @@ -329,4 +329,4 @@ category parameters passed. /* end of file warnings.h */ -/* ex: set ro: */ +/* ex: set ro ft=C: */ |