This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regen/mk_invlists.pl: White space only
authorKarl Williamson <khw@cpan.org>
Fri, 23 Mar 2018 18:26:12 +0000 (12:26 -0600)
committerKarl Williamson <khw@cpan.org>
Mon, 26 Mar 2018 22:26:54 +0000 (16:26 -0600)
This properly indents some code blocks.

charclass_invlists.h
regen/mk_invlists.pl

index 307f3a5..bfd130d 100644 (file)
@@ -109391,5 +109391,5 @@ static const U8 WB_table[24][24] = {
  * ea4dc61a00d2db9bd46f3ddec706b5b7b11e8fcf848fb384b54b507fb70d8e90 lib/unicore/mktables
  * 21653d2744fdd071f9ef138c805393901bb9547cf3e777ebf50215a191f986ea lib/unicore/version
  * 913d2f93f3cb6cdf1664db888bf840bc4eb074eef824e082fceda24a9445e60c regen/charset_translations.pl
- * 728e75804fe9f14dd9e925cef7927cf044ba7ca75a4dad39016f237c7374b37c regen/mk_invlists.pl
+ * 5394a4e4112dcb8d442ce0e71700e980e26b34d98e6b7c074856c9b1aedb4417 regen/mk_invlists.pl
  * ex: set ro: */
index c88bdba..87282ef 100644 (file)
@@ -209,20 +209,20 @@ sub output_invmap ($$$$$$$) {
         # lists, we can just get the unique values.  Otherwise, we have to
         # expand the sublists first.
         if ($input_format !~ / ^ a /x) {
-        if ($input_format ne 'sl') {
-            @input_enums = sort(uniques(@$invmap));
-        }
-        else {
-            foreach my $element (@$invmap) {
-                if (ref $element) {
-                    push @input_enums, @$element;
-                }
-                else {
-                    push @input_enums, $element;
+            if ($input_format ne 'sl') {
+                @input_enums = sort(uniques(@$invmap));
+            }
+            else {
+                foreach my $element (@$invmap) {
+                    if (ref $element) {
+                        push @input_enums, @$element;
+                    }
+                    else {
+                        push @input_enums, $element;
+                    }
                 }
+                @input_enums = sort(uniques(@input_enums));
             }
-            @input_enums = sort(uniques(@input_enums));
-        }
         }
 
         # The internal enums come last, and in the order specified.
@@ -2019,40 +2019,40 @@ for my $charset (get_supported_code_pages()) {
         # of 0..256, as the remap will also include all of 0..256  (256 not
         # 255 because a re-ordering could cause 256 to need to be in the same
         # range as 255.)
-        if ((@invmap && $maps_to_code_point)
-            || (! $nonl1_only || ($invlist[0] < 256
-                                  && ! ($invlist[0] == 0 && $invlist[1] > 256))))
+        if (          (@invmap && $maps_to_code_point)
+            || (     ! $nonl1_only
+                || (   $invlist[0] < 256
+                    && ! ($invlist[0] == 0 && $invlist[1] > 256))))
         {
-
             if (! @invmap) {    # Straight inversion list
-            # Look at all the ranges that start before 257.
-            my @latin1_list;
-            while (@invlist) {
-                last if $invlist[0] > 256;
-                my $upper = @invlist > 1
-                            ? $invlist[1] - 1      # In range
-
-                              # To infinity.  You may want to stop much much
-                              # earlier; going this high may expose perl
-                              # deficiencies with very large numbers.
-                            : $Unicode::UCD::MAX_CP;
-                for my $j ($invlist[0] .. $upper) {
-                    push @latin1_list, a2n($j);
-                }
+                # Look at all the ranges that start before 257.
+                my @latin1_list;
+                while (@invlist) {
+                    last if $invlist[0] > 256;
+                    my $upper = @invlist > 1
+                                ? $invlist[1] - 1      # In range
+
+                                # To infinity.  You may want to stop much much
+                                # earlier; going this high may expose perl
+                                # deficiencies with very large numbers.
+                                : $Unicode::UCD::MAX_CP;
+                    for my $j ($invlist[0] .. $upper) {
+                        push @latin1_list, a2n($j);
+                    }
 
-                shift @invlist; # Shift off the range that's in the list
-                shift @invlist; # Shift off the range not in the list
-            }
+                    shift @invlist; # Shift off the range that's in the list
+                    shift @invlist; # Shift off the range not in the list
+                }
 
-            # Here @invlist contains all the ranges in the original that start
-            # at code points above 256, and @latin1_list contains all the
-            # native code points for ranges that start with a Unicode code
-            # point below 257.  We sort the latter and convert it to inversion
-            # list format.  Then simply prepend it to the list of the higher
-            # code points.
-            @latin1_list = sort { $a <=> $b } @latin1_list;
-            @latin1_list = mk_invlist_from_sorted_cp_list(\@latin1_list);
-            unshift @invlist, @latin1_list;
+                # Here @invlist contains all the ranges in the original that
+                # start at code points above 256, and @latin1_list contains
+                # all the native code points for ranges that start with a
+                # Unicode code point below 257.  We sort the latter and
+                # convert it to inversion list format.  Then simply prepend it
+                # to the list of the higher code points.
+                @latin1_list = sort { $a <=> $b } @latin1_list;
+                @latin1_list = mk_invlist_from_sorted_cp_list(\@latin1_list);
+                unshift @invlist, @latin1_list;
             }
             else {  # Is an inversion map