mktables: Add count() method to Range class

There is already this method for lists of Ranges, so this is is just so
callers don't need to know which they are operating on.

Author: khwilliamson

charclass_invlists.inc

@@ -436055,7 +436055,7 @@ static const U8 WB_table[23][23] = {
  * 3f4f32ed2a577344a508114527e721d7a8b633d32f38945d47fe0c743650c585 lib/unicore/extracted/DLineBreak.txt
  * 710abf2d581ac9c57f244c0834f9d9969d9781e0396adccd330eaae658ac7d6b lib/unicore/extracted/DNumType.txt
  * 6bd30f385f3baf3ab5d5308c111a81de87bea5f494ba0ba69e8ab45263b8c34d lib/unicore/extracted/DNumValues.txt
- * c1557a0885bf627ece862b3a80ee1bd24449b656e01159d4c6753c3a1ed54335 lib/unicore/mktables
+ * 4b2ad6e7689bea5acec1b52fa813a60fdac125a5cc6901cc02be3093b1697894 lib/unicore/mktables
  * 55d90fdc3f902e5c0b16b3378f9eaa36e970a1c09723c33de7d47d0370044012 lib/unicore/version
  * 0a6b5ab33bb1026531f816efe81aea1a8ffcd34a27cbea37dd6a70a63d73c844 regen/charset_translations.pl
  * c7ff8e0d207d3538c7feb4a1a152b159e5e902d20293b303569ea8323e84633e regen/mk_PL_charclass.pl

lib/unicore/mktables

@@ -3627,6 +3627,11 @@ sub trace { return main::trace(@_); }
         return $standard_form{$addr} = main::standardize($value);
     }
 
+    sub count($self) {
+        my $addr = pack 'J', refaddr $self;
+        return $end{$addr} - $start{$addr} + 1;
+    }
+
     sub dump($self, $indent) {
         # Human, not machine readable.  For machine readable, comment out this
         # entire routine and let the standard one take effect.
@@ -4811,7 +4816,7 @@ sub trace { return main::trace(@_); }
 
         my $count = 0;
         foreach my $range (@{$ranges{$addr}}) {
-            $count += $range->end - $range->start + 1;
+            $count += $range->count;
         }
         return $count;
     }
@@ -6028,7 +6033,7 @@ END
                         # points"
                         my $count = ($set->type != 0)
                                     ? 1
-                                    : $set->end - $set->start + 1;
+                                    : $set->count;
                         $widths{$this_width} += $count;
                         $total += $count;
                         $max_map_width = $this_width

lib/unicore/uni_keywords.pl

@@ -78,7 +78,7 @@
  * 3f4f32ed2a577344a508114527e721d7a8b633d32f38945d47fe0c743650c585 lib/unicore/extracted/DLineBreak.txt
  * 710abf2d581ac9c57f244c0834f9d9969d9781e0396adccd330eaae658ac7d6b lib/unicore/extracted/DNumType.txt
  * 6bd30f385f3baf3ab5d5308c111a81de87bea5f494ba0ba69e8ab45263b8c34d lib/unicore/extracted/DNumValues.txt
- * c1557a0885bf627ece862b3a80ee1bd24449b656e01159d4c6753c3a1ed54335 lib/unicore/mktables
+ * 4b2ad6e7689bea5acec1b52fa813a60fdac125a5cc6901cc02be3093b1697894 lib/unicore/mktables
  * 55d90fdc3f902e5c0b16b3378f9eaa36e970a1c09723c33de7d47d0370044012 lib/unicore/version
  * 0a6b5ab33bb1026531f816efe81aea1a8ffcd34a27cbea37dd6a70a63d73c844 regen/charset_translations.pl
  * c7ff8e0d207d3538c7feb4a1a152b159e5e902d20293b303569ea8323e84633e regen/mk_PL_charclass.pl