Add "magical" chars to l1_char_class_tab.h

Some characters have special meaning to gv_magicalize().  This commit
marks those in PL_charclass.  This allows the next commit to more
quickly than currently rule them out during processing.

Author: khwilliamson

charclass_invlists.inc

@@ -492661,6 +492661,6 @@ static const U8 WB_dfa_table[] = {
  * 03640d8ad18fc65de766f2034a927f7442960e998d3243845ca9b9fe31bfe1ab lib/unicore/mktables
  * 8c30575264b2772c7a69c5bb6069a28f0e0a7a0df735871bde2d99ee674316ac lib/unicore/version
  * 0a6b5ab33bb1026531f816efe81aea1a8ffcd34a27cbea37dd6a70a63d73c844 regen/charset_translations.pl
- * c7ff8e0d207d3538c7feb4a1a152b159e5e902d20293b303569ea8323e84633e regen/mk_PL_charclass.pl
+ * 6c52efdee47313cfde75ff86376008ce53320ebc93176caab45c77ce086a256d regen/mk_PL_charclass.pl
  * 20a6e3d507a66f4594586485568134873485b08e23383f3dc4e6b3047569267b regen/mk_invlists.pl
  * ex: set ro ft=c: */

handy.h

@@ -1542,8 +1542,9 @@ or casts
 #  define CC_BINDIGIT_                 23
 #  define CC_OCTDIGIT_                 24
 #  define CC_MNEMONIC_CNTRL_           25
+#  define CC_MAGICAL_                  26
 
-/* Unused: 26-31
+/* Unused: 27-31
  * If more bits are needed, one could add a second word for non-64bit
  * QUAD_IS_INT systems, using some #ifdefs to distinguish between having a 2nd
  * word or not.  The IS_IN_SOME_FOLD bit is the most easily expendable, as it

l1_char_class_tab.h

@@ -56,6 +56,19 @@
             # These are the control characters that there are mnemonics for
             MNEMONIC_CNTRL          => [ ord "\a", ord "\b", ord "\e", ord "\f",
                                          ord "\n", ord "\r", ord "\t" ],
+            MAGICAL => [ 001, 003, 004, 005, 006, 007, 010, 011, 014, 015,
+                         016, 017, 020, 023, 024, 025, 026, 027,
+                         ord('0'), ord('1'), ord('2'), ord('3'), ord('4'),
+                         ord('5'), ord('6'), ord('7'), ord('8'), ord('9'),
+                         ord('a'), ord('b'),
+                         ord('A'), ord('E'), ord('I'), ord('S'), ord('V'),
+                         ord('!'), ord('#'), ord('%'), ord('&'), ord('('),
+                         ord(')'), ord('*'), ord('+'), ord('-'), ord('.'),
+                         ord('/'), ord(';'), ord(':'), ord('<'), ord('='),
+                         ord('>'), ord('?'), ord('['), ord('\''), ord('\\'),
+                         ord(']'), ord('^'), ord('`'), ord('|'), ord('~'),
+                         ord('$'),
+                       ],
 );
 
 sub uniques {

lib/unicore/uni_keywords.pl

@@ -82,6 +82,6 @@
  * 03640d8ad18fc65de766f2034a927f7442960e998d3243845ca9b9fe31bfe1ab lib/unicore/mktables
  * 8c30575264b2772c7a69c5bb6069a28f0e0a7a0df735871bde2d99ee674316ac lib/unicore/version
  * 0a6b5ab33bb1026531f816efe81aea1a8ffcd34a27cbea37dd6a70a63d73c844 regen/charset_translations.pl
- * c7ff8e0d207d3538c7feb4a1a152b159e5e902d20293b303569ea8323e84633e regen/mk_PL_charclass.pl
+ * 6c52efdee47313cfde75ff86376008ce53320ebc93176caab45c77ce086a256d regen/mk_PL_charclass.pl
  * 20a6e3d507a66f4594586485568134873485b08e23383f3dc4e6b3047569267b regen/mk_invlists.pl
  * ex: set ro ft=c: */