summaryrefslogtreecommitdiff
path: root/regen
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2020-02-24 11:20:13 -0700
committerKarl Williamson <khw@cpan.org>2020-03-02 11:45:21 -0700
commit7a15fa9e94accbfe3e87e6c9547a4589e3eef4f1 (patch)
treea816bf2fd1d6fe8b03262fde854cac6c09c8ba01 /regen
parentb619f93d98570480c34b948b01fb808e098a5ed9 (diff)
downloadperl-7a15fa9e94accbfe3e87e6c9547a4589e3eef4f1.tar.gz
char_class_invlists.h: Give re_comp.c access to enums,#defines
The previous commit changed the code so that enums and #defines could be requested to be in re_comp.c. This commit changes to use that new capability.
Diffstat (limited to 'regen')
-rw-r--r--regen/mk_invlists.pl8
1 files changed, 6 insertions, 2 deletions
diff --git a/regen/mk_invlists.pl b/regen/mk_invlists.pl
index 67df77dea7..8c848ccce9 100644
--- a/regen/mk_invlists.pl
+++ b/regen/mk_invlists.pl
@@ -3048,12 +3048,12 @@ foreach my $prop (@props) {
}
}
-switch_pound_if ('binary_property_tables', 'PERL_IN_REGCOMP_C');
-
print $out_fh "\nconst char * const deprecated_property_msgs[] = {\n\t";
print $out_fh join ",\n\t", map { "\"$_\"" } @deprecated_messages;
print $out_fh "\n};\n";
+switch_pound_if ('binary_invlist_enum', 'PERL_IN_REGCOMP_C');
+
my @enums = sort values %enums;
# Save a copy of these before modification
@@ -3091,6 +3091,8 @@ print $out_fh "\n";
print $out_fh "} binary_invlist_enum;\n";
print $out_fh "\n#define MAX_UNI_KEYWORD_INDEX $enums[-1]\n";
+switch_pound_if ('binary_property_tables', 'PERL_IN_REGCOMP_C');
+
output_table_header($out_fh, "UV *", "uni_prop_ptrs");
print $out_fh "\tNULL,\t/* Placeholder */\n";
print $out_fh "\t";
@@ -3099,6 +3101,8 @@ print $out_fh "\n";
output_table_trailer();
+switch_pound_if ('synonym defines', 'PERL_IN_REGCOMP_C');
+
print $out_fh join "\n", "\n",
#'# ifdef DOINIT',
#"\n",