regen: add emacs modeline to vim ft=c

rurban · rurban · commit 1b6e61678c58 · 2017-08-13T10:53:21.000+02:00
I'd really like to have C formatting for perly.tab and .act
diff --git a/charclass_invlists.h b/charclass_invlists.h
@@ -1,4 +1,4 @@
-/* ex: set ro ft=c: -*- buffer-read-only: t -*-
+/* ex: set ro ft=c: -*- mode: c; buffer-read-only: t -*-
  * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
  * This file is built by regen/mk_invlists.pl from Unicode::UCD.
  * Any changes made here will be lost!
diff --git a/ebcdic_tables.h b/ebcdic_tables.h
@@ -1,4 +1,4 @@
-/* ex: set ro ft=c: -*- buffer-read-only: t -*-
+/* ex: set ro ft=c: -*- 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!
diff --git a/embed.h b/embed.h
@@ -1,4 +1,4 @@
-/* ex: set ro ft=c: -*- buffer-read-only: t -*-
+/* ex: set ro ft=c: -*- mode: c; buffer-read-only: t -*-
  *
  *    embed.h
  *
diff --git a/embedvar.h b/embedvar.h
@@ -1,4 +1,4 @@
-/* ex: set ro ft=c: -*- buffer-read-only: t -*-
+/* ex: set ro ft=c: -*- mode: c; buffer-read-only: t -*-
  *
  *    embedvar.h
  *
diff --git a/ext/Config/Config_xs.out b/ext/Config/Config_xs.out
@@ -7187,10 +7187,12 @@ PROTOTYPES: DISABLE
 BOOT:
 {
   STATIC_ASSERT_STMT(sizeof (stringpool_contents) <= 1 << 15);
-#if PTRSIZE == 8
+#ifndef _MSC_VER /* MSVC packing?  Fails on my MSVC110FREE WIN64 box */
+# if PTRSIZE == 8
   STATIC_ASSERT_STMT(sizeof (struct Perl_Config) == 16);
-#else
+# else
   STATIC_ASSERT_STMT(sizeof (struct Perl_Config) == 8);
+# endif
 #endif
 #if BYTEORDER == 0x4321 || BYTEORDER == 0x87654321  /* big-endian */
 /* an inline string better be negative on BE */
diff --git a/feature.h b/feature.h
@@ -1,4 +1,4 @@
-/* ex: set ro ft=c: -*- buffer-read-only: t -*-
+/* ex: set ro ft=c: -*- 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!
diff --git a/keywords.c b/keywords.c
@@ -1,4 +1,4 @@
-/* ex: set ro ft=c: -*- buffer-read-only: t -*-
+/* ex: set ro ft=c: -*- mode: c; buffer-read-only: t -*-
  * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
  * This file is built by regen/keywords.pl from its data.
  * Any changes made here will be lost!
diff --git a/keywords.h b/keywords.h
@@ -1,4 +1,4 @@
-/* ex: set ro ft=c: -*- buffer-read-only: t -*-
+/* ex: set ro ft=c: -*- mode: c; buffer-read-only: t -*-
  *
  *    keywords.h
  *
diff --git a/l1_char_class_tab.h b/l1_char_class_tab.h
@@ -1,4 +1,4 @@
-/* ex: set ro ft=c: -*- buffer-read-only: t -*-
+/* ex: set ro ft=c: -*- mode: c; buffer-read-only: t -*-
  * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
  * This file is built by regen/mk_PL_charclass.pl from property
  * definitions.
diff --git a/lib/.gitignore b/lib/.gitignore
@@ -1,4 +1,4 @@
-# ex: set ro ft=c: -*- buffer-read-only: t -*-
+# ex: set ro ft=perl: -*- 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/.
diff --git a/lib/B/Op_private.pm b/lib/B/Op_private.pm
@@ -1,4 +1,4 @@
-# ex: set ro ft=c: -*- buffer-read-only: t -*-
+# ex: set ro ft=perl: -*- mode: perl; buffer-read-only: t -*-
 #
 #    lib/B/Op_private.pm
 #
diff --git a/lib/feature.pm b/lib/feature.pm
@@ -1,4 +1,4 @@
-# ex: set ro ft=c: -*- buffer-read-only: t -*-
+# ex: set ro ft=perl: -*- 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!
diff --git a/lib/overload/numbers.pm b/lib/overload/numbers.pm
@@ -1,4 +1,4 @@
-# ex: set ro ft=c: -*- buffer-read-only: t -*-
+# ex: set ro ft=perl: -*- mode: perl; buffer-read-only: t -*-
 #
 #    lib/overload/numbers.pm
 #
diff --git a/lib/warnings.pm b/lib/warnings.pm
@@ -1,4 +1,4 @@
-# ex: set ro ft=c: -*- buffer-read-only: t -*-
+# ex: set ro ft=perl: -*- 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!
diff --git a/mg_names.inc b/mg_names.inc
@@ -1,4 +1,4 @@
-/* ex: set ro ft=c: -*- buffer-read-only: t -*-
+/* ex: set ro ft=c: -*- mode: c; buffer-read-only: t -*-
  *
  *    mg_names.inc
  * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
diff --git a/mg_raw.h b/mg_raw.h
@@ -1,4 +1,4 @@
-/* ex: set ro ft=c: -*- buffer-read-only: t -*-
+/* ex: set ro ft=c: -*- mode: c; buffer-read-only: t -*-
  *
  *    mg_raw.h
  * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
diff --git a/mg_vtable.h b/mg_vtable.h
@@ -1,4 +1,4 @@
-/* ex: set ro ft=c: -*- buffer-read-only: t -*-
+/* ex: set ro ft=c: -*- mode: c; buffer-read-only: t -*-
  *
  *    mg_vtable.h
  * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
diff --git a/miniperlmain.c b/miniperlmain.c
@@ -1,4 +1,4 @@
-/* ex: set ro ft=c: -*- buffer-read-only: t -*-
+/* ex: set ro ft=c: -*- 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!
diff --git a/opcode.h b/opcode.h
@@ -1,4 +1,4 @@
-/* ex: set ro ft=c: -*- buffer-read-only: t -*-
+/* ex: set ro ft=c: -*- mode: c; buffer-read-only: t -*-
  *
  *    opcode.h
  *
diff --git a/opnames.h b/opnames.h
@@ -1,4 +1,4 @@
-/* ex: set ro ft=c: -*- buffer-read-only: t -*-
+/* ex: set ro ft=c: -*- mode: c; buffer-read-only: t -*-
  *
  *    opnames.h
  *
diff --git a/overload.h b/overload.h
@@ -1,4 +1,4 @@
-/* ex: set ro ft=c: -*- buffer-read-only: t -*-
+/* ex: set ro ft=c: -*- mode: c; buffer-read-only: t -*-
  *
  *    overload.h
  *
diff --git a/overload.inc b/overload.inc
@@ -1,4 +1,4 @@
-/* ex: set ro ft=c: -*- buffer-read-only: t -*-
+/* ex: set ro ft=c: -*- mode: c; buffer-read-only: t -*-
  *
  *    overload.inc
  *
diff --git a/packsizetables.inc b/packsizetables.inc
@@ -1,4 +1,4 @@
-/* ex: set ro ft=c: -*- buffer-read-only: t -*-
+/* ex: set ro ft=c: -*- 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!
diff --git a/perlapi.c b/perlapi.c
@@ -1,4 +1,4 @@
-/* ex: set ro ft=c: -*- buffer-read-only: t -*-
+/* ex: set ro ft=c: -*- mode: c; buffer-read-only: t -*-
  *
  *    perlapi.c
  *
diff --git a/perlapi.h b/perlapi.h
@@ -1,4 +1,4 @@
-/* ex: set ro ft=c: -*- buffer-read-only: t -*-
+/* ex: set ro ft=c: -*- mode: c; buffer-read-only: t -*-
  *
  *    perlapi.h
  *
diff --git a/perly.act b/perly.act
@@ -1,4 +1,4 @@
-/* ex: set ro ft=c: -*- buffer-read-only: t -*-
+/* ex: set ro ft=c: -*- mode: c; buffer-read-only: t -*-
    !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
    This file is built by regen_perly.pl from perly.y.
    Any changes made here will be lost!
diff --git a/perly.h b/perly.h
@@ -1,4 +1,4 @@
-/* ex: set ro ft=c: -*- buffer-read-only: t -*-
+/* ex: set ro ft=c: -*- mode: c; buffer-read-only: t -*-
    !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
    This file is built by regen_perly.pl from perly.y.
    Any changes made here will be lost!
diff --git a/perly.tab b/perly.tab
@@ -1,4 +1,4 @@
-/* ex: set ro ft=c: -*- buffer-read-only: t -*-
+/* ex: set ro ft=c: -*- mode: c; buffer-read-only: t -*-
    !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
    This file is built by regen_perly.pl from perly.y.
    Any changes made here will be lost!
diff --git a/pp_proto.h b/pp_proto.h
@@ -1,4 +1,4 @@
-/* ex: set ro ft=c: -*- buffer-read-only: t -*-
+/* ex: set ro ft=c: -*- 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!
diff --git a/proto.h b/proto.h
@@ -1,4 +1,4 @@
-/* ex: set ro ft=c: -*- buffer-read-only: t -*-
+/* ex: set ro ft=c: -*- mode: c; buffer-read-only: t -*-
  *
  *    proto.h
  *
diff --git a/reentr.c b/reentr.c
@@ -1,4 +1,4 @@
-/* ex: set ro ft=c: -*- buffer-read-only: t -*-
+/* ex: set ro ft=c: -*- mode: c; buffer-read-only: t -*-
  *
  *    reentr.c
  *
diff --git a/reentr.h b/reentr.h
@@ -1,4 +1,4 @@
-/* ex: set ro ft=c: -*- buffer-read-only: t -*-
+/* ex: set ro ft=c: -*- mode: c; buffer-read-only: t -*-
  *
  *    reentr.h
  *
diff --git a/regcharclass.h b/regcharclass.h
@@ -1,4 +1,4 @@
-/* ex: set ro ft=c: -*- buffer-read-only: t -*-
+/* ex: set ro ft=c: -*- mode: c; buffer-read-only: t -*-
  *
  *    regcharclass.h
  *
diff --git a/regen/regen_lib.pl b/regen/regen_lib.pl
@@ -128,11 +128,10 @@ sub read_only_top {
         unless exists $lang_opener{$lang};
     my $style = $args{style} ? " $args{style} " : '   ';
 
-    my $raw = "ex: set ro ft=c: -*- buffer-read-only: t -*-\n";
+    my $lc = lc $lang; # C, Pod or Perl
+    my $raw = "ex: set ro ft=$lc: -*- mode: $lc; buffer-read-only: t -*-\n";
+    $raw .= "\n   $args{file}\n" if $args{file};
 
-    if ($args{file}) {
-	$raw .= "\n   $args{file}\n";
-    }
     if ($args{copyright}) {
 	local $" = ', ';
          $raw .= wrap(75, '   ', '   ', <<"EOM") . "\n";
diff --git a/regnodes.h b/regnodes.h
@@ -1,4 +1,4 @@
-/* ex: set ro ft=c: -*- buffer-read-only: t -*-
+/* ex: set ro ft=c: -*- mode: c; buffer-read-only: t -*-
    !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
    This file is built by regen/regcomp.pl from regcomp.sym.
    Any changes made here will be lost!
diff --git a/unicode_constants.h b/unicode_constants.h
@@ -1,4 +1,4 @@
-/* ex: set ro ft=c: -*- buffer-read-only: t -*-
+/* ex: set ro ft=c: -*- 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!
diff --git a/warnings.h b/warnings.h
@@ -1,4 +1,4 @@
-/* ex: set ro ft=c: -*- buffer-read-only: t -*-
+/* ex: set ro ft=c: -*- 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!

Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,4 @@`
`1`		`-/* ex: set ro ft=c: -- buffer-read-only: t --`
	`1`	`+/* ex: set ro ft=c: -- mode: c; buffer-read-only: t --`
`2`	`2`	`* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!`
`3`	`3`	`* This file is built by regen/mk_invlists.pl from Unicode::UCD.`
`4`	`4`	`* Any changes made here will be lost!`
Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,4 @@`
`1`		`-# ex: set ro ft=c: -- buffer-read-only: t --`
	`1`	`+# ex: set ro ft=perl: -- mode: perl; buffer-read-only: t --`
`2`	`2`	`# !!!!!!! DO NOT EDIT THIS FILE !!!!!!!`
`3`	`3`	`# This file is built by regen/lib_cleanup.pl from MANIFEST and parsing files`
`4`	`4`	`# in cpan/ dist/ and ext/.`