This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regen/mk_invlists.pl: Extract code into subs
authorKarl Williamson <khw@cpan.org>
Thu, 19 Apr 2018 23:06:39 +0000 (17:06 -0600)
committerKarl Williamson <khw@cpan.org>
Fri, 20 Apr 2018 07:11:51 +0000 (01:11 -0600)
This is in preparation for it to be used in more places

charclass_invlists.h
regen/mk_invlists.pl

index 797be59..34c8497 100644 (file)
@@ -170534,5 +170534,5 @@ static const U8 WB_table[24][24] = {
  * ba5b13123afb59ea004c14fcbac80b5ff428c5b8f1b84bf8602b4ffb7da0407f lib/unicore/mktables
  * 21653d2744fdd071f9ef138c805393901bb9547cf3e777ebf50215a191f986ea lib/unicore/version
  * 913d2f93f3cb6cdf1664db888bf840bc4eb074eef824e082fceda24a9445e60c regen/charset_translations.pl
- * 04d2f5ff19b435dea6213d012d11f8a5316cc6b59e7a9d5822e554ba2e7faa07 regen/mk_invlists.pl
+ * f6f9ed8c80102fe459b458fc65750a9f6435bfa5a86eb6bef35212ec02448eb5 regen/mk_invlists.pl
  * ex: set ro: */
index 2e0eed8..de0e0b6 100644 (file)
@@ -95,6 +95,10 @@ sub end_file_pound_if {
     }
 }
 
+sub end_charset_pound_if {
+    print $out_fh "\n" . get_conditional_compile_line_end();
+}
+
 sub switch_pound_if ($$) {
     my $name = shift;
     my $new_pound_if = shift;
@@ -128,6 +132,10 @@ sub switch_pound_if ($$) {
     }
 }
 
+sub start_charset_pound_if ($;$) {
+    print $out_fh "\n" . get_conditional_compile_line_start(shift, shift);
+}
+
 sub output_invlist ($$;$) {
     my $name = shift;
     my $invlist = shift;     # Reference to inversion list array
@@ -2055,7 +2063,7 @@ end_file_pound_if;
 # official inversion list.
 
 for my $charset (get_supported_code_pages()) {
-    print $out_fh "\n" . get_conditional_compile_line_start($charset);
+    start_charset_pound_if($charset);
 
     @a2n = @{get_a2n($charset)};
     # Below is the list of property names to generate.  '&' means to use the
@@ -2478,7 +2486,7 @@ for my $charset (get_supported_code_pages()) {
         output_invmap($prop_name, \@invmap, $lookup_prop, $map_format, $map_default, $extra_enums, $charset) if @invmap;
     }
     end_file_pound_if;
-    print $out_fh "\n" . get_conditional_compile_line_end();
+    end_charset_pound_if;
 }
 
 switch_pound_if('Boundary_pair_tables', 'PERL_IN_REGEXEC_C');