mktables: Generate tables for chars that aren't in final fold pos

This starts with the existing table that mktables generates that lists
all the characters in Unicode that occur in multi-character folds, and
aren't in the final positions of any such fold.

It generates data structures with this information to make it quickly
available to code that wants to use it.  Future commits will use these
tables.

1 files changed, 9 insertions, 2 deletions

diff --git a/regen/mk_PL_charclass.pl b/regen/mk_PL_charclass.pl
index 53c08f78be..e272033e45 100644
--- a/regen/mk_PL_charclass.pl
+++ b/regen/mk_PL_charclass.pl
@@ -1,5 +1,5 @@
 #!perl -w
-use 5.012;
+use v5.15.8;
 use strict;
 use warnings;
 require 'regen/regen_lib.pl';
@@ -32,6 +32,7 @@ my @properties = qw(
     GRAPH
     IDFIRST
     LOWER
+    NON_FINAL_FOLD
     PRINT
     PSXSPC
     PUNCT
@@ -166,13 +167,19 @@ for my $ord (0..255) {
             $re = qr/\p{Alnum}/;
         } elsif ($name eq 'QUOTEMETA') {
             $re = qr/\p{_Perl_Quotemeta}/;
+        } elsif ($name eq 'NON_FINAL_FOLD') {
+            $re = qr/\p{_Perl_Non_Final_Folds}/;
         } else {    # The remainder have the same name and values as Unicode
             $re = eval "qr/\\p{$name}/";
             use Carp;
             carp $@ if ! defined $re;
         }
         #print "$ord, $name $property, $re\n";
-        if ($char =~ $re) {  # Add this property if matches
+        if ($char =~ $re  # Add this property if matches
+            || ($name eq 'NON_FINAL_FOLD'
+                # Also include chars that fold to the non-final
+                && CORE::fc($char) =~ $re))
+        {
             $bits[$ord] .= '|' if $bits[$ord];
             $bits[$ord] .= "(1U<<_CC_$property)";
         }