mktables: Update comments
authorKarl Williamson <khw@cpan.org>
Mon, 19 Oct 2015 14:11:26 +0000 (08:11 -0600)
committerKarl Williamson <khw@cpan.org>
Mon, 19 Oct 2015 18:33:33 +0000 (12:33 -0600)
This function's capabilities has expanded beyond its original use, but
the descriptive comments weren't until now.

charclass_invlists.h
lib/unicore/mktables
regcharclass.h

index a9ff0ca..0e9fba9 100644 (file)
@@ -99537,7 +99537,7 @@ static const UV XPosixXDigit_invlist[] = { /* for EBCDIC POSIX-BC */
  * 1a0687fb9c6c4567e853913549df0944fe40821279a3e9cdaa6ab8679bc286fd lib/unicore/extracted/DLineBreak.txt
  * 40bcfed3ca727c19e1331f6c33806231d5f7eeeabd2e6a9e06a3740c85d0c250 lib/unicore/extracted/DNumType.txt
  * a18d502bad39d527ac5586d7bc93e29f565859e3bcc24ada627eff606d6f5fed lib/unicore/extracted/DNumValues.txt
- * 00c1bda0498082b8245a27cca31028ec97b90ad717b00281ea023d25e11428f1 lib/unicore/mktables
+ * cae93c34bc4271a3f8c63a3152788b3f2c2ad706423ae747c80f7ca56aa3e992 lib/unicore/mktables
  * 462c9aaa608fb2014cd9649af1c5c009485c60b9c8b15b89401fdc10cf6161c6 lib/unicore/version
  * c6884f4d629f04d1316f3476cb1050b6a1b98ca30c903262955d4eae337c6b1e regen/charset_translations.pl
  * 8a097f8f726bb1619af2f27f149ab87e60a1602f790147e3a561358be16abd27 regen/mk_invlists.pl
index 449e411..6b7bfcd 100644 (file)
@@ -19546,16 +19546,19 @@ eval { require "./loc_tools.pl" };
 $utf8_locale = &find_utf8_ctype_locale if defined &find_utf8_ctype_locale;
 
 sub _test_break($$) {
-    # Test qr/\X/ matches.  The input is a line from auxiliary/GCBTest.txt
-    # Each such line is a sequence of code points given by their hex numbers,
-    # separated by the two characters defined just before this subroutine that
-    # indicate that either there can or cannot be a break between the adjacent
-    # code points.  If there isn't a break, that means the sequence forms an
-    # extended grapheme cluster, which means that \X should match the whole
-    # thing.  If there is a break, \X should stop there.  This is all
-    # converted by this routine into a match:
-    #   $string =~ /(\X)/,
-    # Each \X should match the next cluster; and that is what is checked.
+    # Test various break property matches.  The 2nd parameter gives the
+    # property name.  The input is a line from auxiliary/*Test.txt for the
+    # given property.  Each such line is a sequence of code points given by
+    # their hex numbers, separated by the two characters defined just before
+    # this subroutine that indicate that either there can or cannot be a break
+    # between the adjacent code points.  All these are tested.
+    #
+    # For the gcb property extra tests are made.  if there isn't a break, that
+    # means the sequence forms an extended grapheme cluster, which means that
+    # \X should match the whole thing.  If there is a break, \X should stop
+    # there.  This is all converted by this routine into a match: $string =~
+    # /(\X)/, Each \X should match the next cluster; and that is what is
+    # checked.
 
     my $template = shift;
     my $break_type = shift;
index ab653ae..738dc7d 100644 (file)
  * 1a0687fb9c6c4567e853913549df0944fe40821279a3e9cdaa6ab8679bc286fd lib/unicore/extracted/DLineBreak.txt
  * 40bcfed3ca727c19e1331f6c33806231d5f7eeeabd2e6a9e06a3740c85d0c250 lib/unicore/extracted/DNumType.txt
  * a18d502bad39d527ac5586d7bc93e29f565859e3bcc24ada627eff606d6f5fed lib/unicore/extracted/DNumValues.txt
- * 00c1bda0498082b8245a27cca31028ec97b90ad717b00281ea023d25e11428f1 lib/unicore/mktables
+ * cae93c34bc4271a3f8c63a3152788b3f2c2ad706423ae747c80f7ca56aa3e992 lib/unicore/mktables
  * 462c9aaa608fb2014cd9649af1c5c009485c60b9c8b15b89401fdc10cf6161c6 lib/unicore/version
  * c6884f4d629f04d1316f3476cb1050b6a1b98ca30c903262955d4eae337c6b1e regen/charset_translations.pl
  * d9c04ac46bdd81bb3e26519f2b8eb6242cb12337205add3f7cf092b0c58dccc4 regen/regcharclass.pl