diff options
| author | Bruce Momjian | 2017-05-17 23:01:23 +0000 |
|---|---|---|
| committer | Bruce Momjian | 2017-05-17 23:01:23 +0000 |
| commit | ce554810329b9b8e862eade08b598148931eb456 (patch) | |
| tree | ddc702112bdabfcdf78d1c4648614b92fd11dadd /src/common | |
| parent | a6fd7b7a5f7bf3a8aa3f3d076cf09d922c1c6dd2 (diff) | |
Post-PG 10 beta1 pgperltidy run
Diffstat (limited to 'src/common')
| -rw-r--r-- | src/common/unicode/generate-unicode_norm_table.pl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/common/unicode/generate-unicode_norm_table.pl b/src/common/unicode/generate-unicode_norm_table.pl index caf591bb22c..1d77bb6380e 100644 --- a/src/common/unicode/generate-unicode_norm_table.pl +++ b/src/common/unicode/generate-unicode_norm_table.pl @@ -32,9 +32,11 @@ close $FH; # and character decomposition mapping my @characters = (); my %character_hash = (); -open($FH, '<', "UnicodeData.txt") or die "Could not open UnicodeData.txt: $!."; +open($FH, '<', "UnicodeData.txt") + or die "Could not open UnicodeData.txt: $!."; while (my $line = <$FH>) { + # Split the line wanted and get the fields needed: # - Unicode code value # - Canonical Combining Class @@ -141,6 +143,7 @@ foreach my $char (@characters) if ($decomp_size == 2) { + # Should this be used for recomposition? if ($compat) { @@ -173,6 +176,7 @@ foreach my $char (@characters) } elsif ($decomp_size == 1 && length($first_decomp) <= 4) { + # The decomposition consists of a single codepoint, and it fits # in a uint16, so we can store it "inline" in the main table. $flags .= " | DECOMP_INLINE"; @@ -201,6 +205,7 @@ foreach my $char (@characters) print $OUTPUT "," unless ($code eq $last_code); if ($comment ne "") { + # If the line is wide already, indent the comment with one tab, # otherwise with two. This is to make the output match the way # pgindent would mangle it. (This is quite hacky. To do this |