diff options
author | Karl Williamson <khw@cpan.org> | 2020-02-24 11:20:13 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2020-03-02 11:45:21 -0700 |
commit | 7a15fa9e94accbfe3e87e6c9547a4589e3eef4f1 (patch) | |
tree | a816bf2fd1d6fe8b03262fde854cac6c09c8ba01 /regen | |
parent | b619f93d98570480c34b948b01fb808e098a5ed9 (diff) | |
download | perl-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.pl | 8 |
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", |