File Coverage

blib/lib/Eoldutf8.pm
Criterion Covered Total %
statement 1045 3230 32.3
branch 1093 2772 39.4
condition 122 355 34.3
subroutine 55 110 50.0
pod 7 74 9.4
total 2322 6541 35.5


line stmt bran cond sub pod time code
1             package Eoldutf8;
2 306     306   1890 use strict;
  306         462  
  306         16760  
3             ######################################################################
4             #
5             # Eoldutf8 - Run-time routines for OldUTF8.pm
6             #
7             # http://search.cpan.org/dist/Char-OldUTF8/
8             #
9             # Copyright (c) 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2018, 2019 INABA Hitoshi
10             ######################################################################
11              
12 306     306   5527 use 5.00503; # Galapagos Consensus 1998 for primetools
  306         1026  
13             # use 5.008001; # Lancaster Consensus 2013 for toolchains
14              
15             # 12.3. Delaying use Until Runtime
16             # in Chapter 12. Packages, Libraries, and Modules
17             # of ISBN 0-596-00313-7 Perl Cookbook, 2nd Edition.
18             # (and so on)
19              
20             # Version numbers should be boring
21             # http://www.dagolden.com/index.php/369/version-numbers-should-be-boring/
22             # For the impatient, the disinterested or those who just want to follow
23             # a recipe, my advice for all modules is this:
24             # our $VERSION = "0.001"; # or "0.001_001" for a dev release
25             # $VERSION = eval $VERSION; # No!! because '1.10' makes '1.1'
26              
27 306     306   1895 use vars qw($VERSION);
  306         521  
  306         41199  
28             $VERSION = '1.15';
29             $VERSION = $VERSION;
30              
31             BEGIN {
32 306 50   306   2239 if ($^X =~ / jperl /oxmsi) {
33 0         0 die __FILE__, ": needs perl(not jperl) 5.00503 or later. (\$^X==$^X)\n";
34             }
35 306         486 if (CORE::ord('A') == 193) {
36             die __FILE__, ": is not US-ASCII script (may be EBCDIC or EBCDIK script).\n";
37             }
38 306         38662 if (CORE::ord('A') != 0x41) {
39             die __FILE__, ": is not US-ASCII script (must be US-ASCII script).\n";
40             }
41             }
42              
43             BEGIN {
44              
45             # instead of utf8.pm
46 306     306   21110 CORE::eval q{
  306     306   1728  
  306     124   684  
  306         50351  
  0         0  
  0         0  
  0         0  
  0         0  
47             no warnings qw(redefine);
48             *utf8::upgrade = sub { CORE::length $_[0] };
49             *utf8::downgrade = sub { 1 };
50             *utf8::encode = sub { };
51             *utf8::decode = sub { 1 };
52             *utf8::is_utf8 = sub { };
53             *utf8::valid = sub { 1 };
54             };
55 306 50       124372 if ($@) {
56 0         0 *utf8::upgrade = sub { CORE::length $_[0] };
  0         0  
57 0         0 *utf8::downgrade = sub { 1 };
  0         0  
58 0         0 *utf8::encode = sub { };
59 0         0 *utf8::decode = sub { 1 };
  0         0  
60 0         0 *utf8::is_utf8 = sub { };
61 0         0 *utf8::valid = sub { 1 };
  0         0  
62             }
63             }
64              
65             # instead of Symbol.pm
66 0         0 BEGIN {
67             sub gensym () {
68 0 0   0 0 0 if ($] < 5.006) {
69 0         0 return \do { local *_ };
  0         0  
70             }
71             else {
72 0         0 return undef;
73             }
74             }
75              
76             sub qualify ($$) {
77 0     0 0 0 my($name) = @_;
78              
79 0 0       0 if (ref $name) {
    0          
    0          
    0          
    0          
    0          
    0          
80 0         0 return $name;
81             }
82             elsif (Eoldutf8::index($name,'::') >= 0) {
83 0         0 return $name;
84             }
85             elsif (Eoldutf8::index($name,"'") >= 0) {
86 0         0 return $name;
87             }
88              
89             # special character, "^xyz"
90             elsif ($name =~ /\A \^ [ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz_]+ \z/x) {
91              
92             # RGS 2001-11-05 : translate leading ^X to control-char
93 0         0 $name =~ s{\A \^ ([ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz_]) }{'qq(\c'.$1.')'}xee;
  0         0  
94 0         0 return 'main::' . $name;
95             }
96              
97             # Global names
98             elsif ($name =~ /\A (?: ARGV | ARGVOUT | ENV | INC | SIG | STDERR | STDIN | STDOUT ) \z/x) {
99 0         0 return 'main::' . $name;
100             }
101              
102             # or other
103             elsif ($name =~ /\A [^ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz] \z/x) {
104 0         0 return 'main::' . $name;
105             }
106              
107             elsif (defined $_[1]) {
108 0         0 return $_[1] . '::' . $name;
109             }
110             else {
111 0         0 return (caller)[0] . '::' . $name;
112             }
113             }
114              
115             sub qualify_to_ref ($;$) {
116 0 0   0 0 0 if (defined $_[1]) {
117 306     306   2439 no strict qw(refs);
  306         910  
  306         20142  
118 0         0 return \*{ qualify $_[0], $_[1] };
  0         0  
119             }
120             else {
121 306     306   1965 no strict qw(refs);
  306     0   684  
  306         55443  
122 0         0 return \*{ qualify $_[0], (caller)[0] };
  0         0  
123             }
124             }
125             }
126              
127             # P.714 29.2.39. flock
128             # in Chapter 29: Functions
129             # of ISBN 0-596-00027-8 Programming Perl Third Edition.
130              
131             # P.863 flock
132             # in Chapter 27: Functions
133             # of ISBN 978-0-596-00492-7 Programming Perl 4th Edition.
134              
135             sub LOCK_SH() {1}
136             sub LOCK_EX() {2}
137             sub LOCK_UN() {8}
138             sub LOCK_NB() {4}
139              
140             # instead of Carp.pm
141             sub carp;
142             sub croak;
143             sub cluck;
144             sub confess;
145              
146             # 6.18. Matching Multiple-Byte Characters
147             # in Chapter 6. Pattern Matching
148             # of ISBN 978-1-56592-243-3 Perl Perl Cookbook.
149             # (and so on)
150              
151             # regexp of character
152             my $your_char = q{(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF]|[\x00-\x7F\xF5-\xFF]};
153 306     306   1841 use vars qw($qq_char); $qq_char = qr/\\c[\x40-\x5F]|\\?(?:$your_char)/oxms;
  306         547  
  306         19526  
154 306     306   1893 use vars qw($q_char); $q_char = qr/$your_char/oxms;
  306         604  
  306         3542562  
155              
156             #
157             # old UTF-8 character range per length
158             #
159             my %range_tr = ();
160              
161             #
162             # old UTF-8 case conversion
163             #
164             my %lc = ();
165             @lc{qw(A B C D E F G H I J K L M N O P Q R S T U V W X Y Z)} =
166             qw(a b c d e f g h i j k l m n o p q r s t u v w x y z);
167             my %uc = ();
168             @uc{qw(a b c d e f g h i j k l m n o p q r s t u v w x y z)} =
169             qw(A B C D E F G H I J K L M N O P Q R S T U V W X Y Z);
170             my %fc = ();
171             @fc{qw(A B C D E F G H I J K L M N O P Q R S T U V W X Y Z)} =
172             qw(a b c d e f g h i j k l m n o p q r s t u v w x y z);
173              
174             if (0) {
175             }
176              
177             elsif (__PACKAGE__ =~ / \b Eoldutf8 \z/oxms) {
178             %range_tr = (
179             1 => [ [0x00..0x7F],
180             [0xF5..0xFF], # malformed octet
181             ],
182             2 => [ [0xC0..0xDF],[0x80..0xBF],
183             ],
184             3 => [ [0xE0..0xEF],[0x80..0xBF],[0x80..0xBF],
185             ],
186             4 => [ [0xF0..0xF4],[0x80..0xBF],[0x80..0xBF],[0x80..0xBF],
187             ],
188             );
189              
190             # CaseFolding-12.0.0.txt
191             # Date: 2019-01-22, 08:18:22 GMT
192             # c 2019 UnicodeR, Inc.
193             # Unicode and the Unicode Logo are registered trademarks of Unicode, Inc. in the U.S. and other countries.
194             # For terms of use, see http://www.unicode.org/terms_of_use.html
195             #
196             # Unicode Character Database
197             # For documentation, see http://www.unicode.org/reports/tr44/
198              
199             # you can use "make_CaseFolding.pl" to update this hash
200              
201             %fc = (
202             "\x41" => "\x61", # LATIN CAPITAL LETTER A
203             "\x42" => "\x62", # LATIN CAPITAL LETTER B
204             "\x43" => "\x63", # LATIN CAPITAL LETTER C
205             "\x44" => "\x64", # LATIN CAPITAL LETTER D
206             "\x45" => "\x65", # LATIN CAPITAL LETTER E
207             "\x46" => "\x66", # LATIN CAPITAL LETTER F
208             "\x47" => "\x67", # LATIN CAPITAL LETTER G
209             "\x48" => "\x68", # LATIN CAPITAL LETTER H
210             "\x49" => "\x69", # LATIN CAPITAL LETTER I
211             "\x4A" => "\x6A", # LATIN CAPITAL LETTER J
212             "\x4B" => "\x6B", # LATIN CAPITAL LETTER K
213             "\x4C" => "\x6C", # LATIN CAPITAL LETTER L
214             "\x4D" => "\x6D", # LATIN CAPITAL LETTER M
215             "\x4E" => "\x6E", # LATIN CAPITAL LETTER N
216             "\x4F" => "\x6F", # LATIN CAPITAL LETTER O
217             "\x50" => "\x70", # LATIN CAPITAL LETTER P
218             "\x51" => "\x71", # LATIN CAPITAL LETTER Q
219             "\x52" => "\x72", # LATIN CAPITAL LETTER R
220             "\x53" => "\x73", # LATIN CAPITAL LETTER S
221             "\x54" => "\x74", # LATIN CAPITAL LETTER T
222             "\x55" => "\x75", # LATIN CAPITAL LETTER U
223             "\x56" => "\x76", # LATIN CAPITAL LETTER V
224             "\x57" => "\x77", # LATIN CAPITAL LETTER W
225             "\x58" => "\x78", # LATIN CAPITAL LETTER X
226             "\x59" => "\x79", # LATIN CAPITAL LETTER Y
227             "\x5A" => "\x7A", # LATIN CAPITAL LETTER Z
228             "\xC2\xB5" => "\xCE\xBC", # MICRO SIGN
229             "\xC3\x80" => "\xC3\xA0", # LATIN CAPITAL LETTER A WITH GRAVE
230             "\xC3\x81" => "\xC3\xA1", # LATIN CAPITAL LETTER A WITH ACUTE
231             "\xC3\x82" => "\xC3\xA2", # LATIN CAPITAL LETTER A WITH CIRCUMFLEX
232             "\xC3\x83" => "\xC3\xA3", # LATIN CAPITAL LETTER A WITH TILDE
233             "\xC3\x84" => "\xC3\xA4", # LATIN CAPITAL LETTER A WITH DIAERESIS
234             "\xC3\x85" => "\xC3\xA5", # LATIN CAPITAL LETTER A WITH RING ABOVE
235             "\xC3\x86" => "\xC3\xA6", # LATIN CAPITAL LETTER AE
236             "\xC3\x87" => "\xC3\xA7", # LATIN CAPITAL LETTER C WITH CEDILLA
237             "\xC3\x88" => "\xC3\xA8", # LATIN CAPITAL LETTER E WITH GRAVE
238             "\xC3\x89" => "\xC3\xA9", # LATIN CAPITAL LETTER E WITH ACUTE
239             "\xC3\x8A" => "\xC3\xAA", # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
240             "\xC3\x8B" => "\xC3\xAB", # LATIN CAPITAL LETTER E WITH DIAERESIS
241             "\xC3\x8C" => "\xC3\xAC", # LATIN CAPITAL LETTER I WITH GRAVE
242             "\xC3\x8D" => "\xC3\xAD", # LATIN CAPITAL LETTER I WITH ACUTE
243             "\xC3\x8E" => "\xC3\xAE", # LATIN CAPITAL LETTER I WITH CIRCUMFLEX
244             "\xC3\x8F" => "\xC3\xAF", # LATIN CAPITAL LETTER I WITH DIAERESIS
245             "\xC3\x90" => "\xC3\xB0", # LATIN CAPITAL LETTER ETH
246             "\xC3\x91" => "\xC3\xB1", # LATIN CAPITAL LETTER N WITH TILDE
247             "\xC3\x92" => "\xC3\xB2", # LATIN CAPITAL LETTER O WITH GRAVE
248             "\xC3\x93" => "\xC3\xB3", # LATIN CAPITAL LETTER O WITH ACUTE
249             "\xC3\x94" => "\xC3\xB4", # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
250             "\xC3\x95" => "\xC3\xB5", # LATIN CAPITAL LETTER O WITH TILDE
251             "\xC3\x96" => "\xC3\xB6", # LATIN CAPITAL LETTER O WITH DIAERESIS
252             "\xC3\x98" => "\xC3\xB8", # LATIN CAPITAL LETTER O WITH STROKE
253             "\xC3\x99" => "\xC3\xB9", # LATIN CAPITAL LETTER U WITH GRAVE
254             "\xC3\x9A" => "\xC3\xBA", # LATIN CAPITAL LETTER U WITH ACUTE
255             "\xC3\x9B" => "\xC3\xBB", # LATIN CAPITAL LETTER U WITH CIRCUMFLEX
256             "\xC3\x9C" => "\xC3\xBC", # LATIN CAPITAL LETTER U WITH DIAERESIS
257             "\xC3\x9D" => "\xC3\xBD", # LATIN CAPITAL LETTER Y WITH ACUTE
258             "\xC3\x9E" => "\xC3\xBE", # LATIN CAPITAL LETTER THORN
259             "\xC3\x9F" => "\x73\x73", # LATIN SMALL LETTER SHARP S
260             "\xC4\x80" => "\xC4\x81", # LATIN CAPITAL LETTER A WITH MACRON
261             "\xC4\x82" => "\xC4\x83", # LATIN CAPITAL LETTER A WITH BREVE
262             "\xC4\x84" => "\xC4\x85", # LATIN CAPITAL LETTER A WITH OGONEK
263             "\xC4\x86" => "\xC4\x87", # LATIN CAPITAL LETTER C WITH ACUTE
264             "\xC4\x88" => "\xC4\x89", # LATIN CAPITAL LETTER C WITH CIRCUMFLEX
265             "\xC4\x8A" => "\xC4\x8B", # LATIN CAPITAL LETTER C WITH DOT ABOVE
266             "\xC4\x8C" => "\xC4\x8D", # LATIN CAPITAL LETTER C WITH CARON
267             "\xC4\x8E" => "\xC4\x8F", # LATIN CAPITAL LETTER D WITH CARON
268             "\xC4\x90" => "\xC4\x91", # LATIN CAPITAL LETTER D WITH STROKE
269             "\xC4\x92" => "\xC4\x93", # LATIN CAPITAL LETTER E WITH MACRON
270             "\xC4\x94" => "\xC4\x95", # LATIN CAPITAL LETTER E WITH BREVE
271             "\xC4\x96" => "\xC4\x97", # LATIN CAPITAL LETTER E WITH DOT ABOVE
272             "\xC4\x98" => "\xC4\x99", # LATIN CAPITAL LETTER E WITH OGONEK
273             "\xC4\x9A" => "\xC4\x9B", # LATIN CAPITAL LETTER E WITH CARON
274             "\xC4\x9C" => "\xC4\x9D", # LATIN CAPITAL LETTER G WITH CIRCUMFLEX
275             "\xC4\x9E" => "\xC4\x9F", # LATIN CAPITAL LETTER G WITH BREVE
276             "\xC4\xA0" => "\xC4\xA1", # LATIN CAPITAL LETTER G WITH DOT ABOVE
277             "\xC4\xA2" => "\xC4\xA3", # LATIN CAPITAL LETTER G WITH CEDILLA
278             "\xC4\xA4" => "\xC4\xA5", # LATIN CAPITAL LETTER H WITH CIRCUMFLEX
279             "\xC4\xA6" => "\xC4\xA7", # LATIN CAPITAL LETTER H WITH STROKE
280             "\xC4\xA8" => "\xC4\xA9", # LATIN CAPITAL LETTER I WITH TILDE
281             "\xC4\xAA" => "\xC4\xAB", # LATIN CAPITAL LETTER I WITH MACRON
282             "\xC4\xAC" => "\xC4\xAD", # LATIN CAPITAL LETTER I WITH BREVE
283             "\xC4\xAE" => "\xC4\xAF", # LATIN CAPITAL LETTER I WITH OGONEK
284             "\xC4\xB0" => "\x69\xCC\x87", # LATIN CAPITAL LETTER I WITH DOT ABOVE
285             "\xC4\xB2" => "\xC4\xB3", # LATIN CAPITAL LIGATURE IJ
286             "\xC4\xB4" => "\xC4\xB5", # LATIN CAPITAL LETTER J WITH CIRCUMFLEX
287             "\xC4\xB6" => "\xC4\xB7", # LATIN CAPITAL LETTER K WITH CEDILLA
288             "\xC4\xB9" => "\xC4\xBA", # LATIN CAPITAL LETTER L WITH ACUTE
289             "\xC4\xBB" => "\xC4\xBC", # LATIN CAPITAL LETTER L WITH CEDILLA
290             "\xC4\xBD" => "\xC4\xBE", # LATIN CAPITAL LETTER L WITH CARON
291             "\xC4\xBF" => "\xC5\x80", # LATIN CAPITAL LETTER L WITH MIDDLE DOT
292             "\xC5\x81" => "\xC5\x82", # LATIN CAPITAL LETTER L WITH STROKE
293             "\xC5\x83" => "\xC5\x84", # LATIN CAPITAL LETTER N WITH ACUTE
294             "\xC5\x85" => "\xC5\x86", # LATIN CAPITAL LETTER N WITH CEDILLA
295             "\xC5\x87" => "\xC5\x88", # LATIN CAPITAL LETTER N WITH CARON
296             "\xC5\x89" => "\xCA\xBC\x6E", # LATIN SMALL LETTER N PRECEDED BY APOSTROPHE
297             "\xC5\x8A" => "\xC5\x8B", # LATIN CAPITAL LETTER ENG
298             "\xC5\x8C" => "\xC5\x8D", # LATIN CAPITAL LETTER O WITH MACRON
299             "\xC5\x8E" => "\xC5\x8F", # LATIN CAPITAL LETTER O WITH BREVE
300             "\xC5\x90" => "\xC5\x91", # LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
301             "\xC5\x92" => "\xC5\x93", # LATIN CAPITAL LIGATURE OE
302             "\xC5\x94" => "\xC5\x95", # LATIN CAPITAL LETTER R WITH ACUTE
303             "\xC5\x96" => "\xC5\x97", # LATIN CAPITAL LETTER R WITH CEDILLA
304             "\xC5\x98" => "\xC5\x99", # LATIN CAPITAL LETTER R WITH CARON
305             "\xC5\x9A" => "\xC5\x9B", # LATIN CAPITAL LETTER S WITH ACUTE
306             "\xC5\x9C" => "\xC5\x9D", # LATIN CAPITAL LETTER S WITH CIRCUMFLEX
307             "\xC5\x9E" => "\xC5\x9F", # LATIN CAPITAL LETTER S WITH CEDILLA
308             "\xC5\xA0" => "\xC5\xA1", # LATIN CAPITAL LETTER S WITH CARON
309             "\xC5\xA2" => "\xC5\xA3", # LATIN CAPITAL LETTER T WITH CEDILLA
310             "\xC5\xA4" => "\xC5\xA5", # LATIN CAPITAL LETTER T WITH CARON
311             "\xC5\xA6" => "\xC5\xA7", # LATIN CAPITAL LETTER T WITH STROKE
312             "\xC5\xA8" => "\xC5\xA9", # LATIN CAPITAL LETTER U WITH TILDE
313             "\xC5\xAA" => "\xC5\xAB", # LATIN CAPITAL LETTER U WITH MACRON
314             "\xC5\xAC" => "\xC5\xAD", # LATIN CAPITAL LETTER U WITH BREVE
315             "\xC5\xAE" => "\xC5\xAF", # LATIN CAPITAL LETTER U WITH RING ABOVE
316             "\xC5\xB0" => "\xC5\xB1", # LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
317             "\xC5\xB2" => "\xC5\xB3", # LATIN CAPITAL LETTER U WITH OGONEK
318             "\xC5\xB4" => "\xC5\xB5", # LATIN CAPITAL LETTER W WITH CIRCUMFLEX
319             "\xC5\xB6" => "\xC5\xB7", # LATIN CAPITAL LETTER Y WITH CIRCUMFLEX
320             "\xC5\xB8" => "\xC3\xBF", # LATIN CAPITAL LETTER Y WITH DIAERESIS
321             "\xC5\xB9" => "\xC5\xBA", # LATIN CAPITAL LETTER Z WITH ACUTE
322             "\xC5\xBB" => "\xC5\xBC", # LATIN CAPITAL LETTER Z WITH DOT ABOVE
323             "\xC5\xBD" => "\xC5\xBE", # LATIN CAPITAL LETTER Z WITH CARON
324             "\xC5\xBF" => "\x73", # LATIN SMALL LETTER LONG S
325             "\xC6\x81" => "\xC9\x93", # LATIN CAPITAL LETTER B WITH HOOK
326             "\xC6\x82" => "\xC6\x83", # LATIN CAPITAL LETTER B WITH TOPBAR
327             "\xC6\x84" => "\xC6\x85", # LATIN CAPITAL LETTER TONE SIX
328             "\xC6\x86" => "\xC9\x94", # LATIN CAPITAL LETTER OPEN O
329             "\xC6\x87" => "\xC6\x88", # LATIN CAPITAL LETTER C WITH HOOK
330             "\xC6\x89" => "\xC9\x96", # LATIN CAPITAL LETTER AFRICAN D
331             "\xC6\x8A" => "\xC9\x97", # LATIN CAPITAL LETTER D WITH HOOK
332             "\xC6\x8B" => "\xC6\x8C", # LATIN CAPITAL LETTER D WITH TOPBAR
333             "\xC6\x8E" => "\xC7\x9D", # LATIN CAPITAL LETTER REVERSED E
334             "\xC6\x8F" => "\xC9\x99", # LATIN CAPITAL LETTER SCHWA
335             "\xC6\x90" => "\xC9\x9B", # LATIN CAPITAL LETTER OPEN E
336             "\xC6\x91" => "\xC6\x92", # LATIN CAPITAL LETTER F WITH HOOK
337             "\xC6\x93" => "\xC9\xA0", # LATIN CAPITAL LETTER G WITH HOOK
338             "\xC6\x94" => "\xC9\xA3", # LATIN CAPITAL LETTER GAMMA
339             "\xC6\x96" => "\xC9\xA9", # LATIN CAPITAL LETTER IOTA
340             "\xC6\x97" => "\xC9\xA8", # LATIN CAPITAL LETTER I WITH STROKE
341             "\xC6\x98" => "\xC6\x99", # LATIN CAPITAL LETTER K WITH HOOK
342             "\xC6\x9C" => "\xC9\xAF", # LATIN CAPITAL LETTER TURNED M
343             "\xC6\x9D" => "\xC9\xB2", # LATIN CAPITAL LETTER N WITH LEFT HOOK
344             "\xC6\x9F" => "\xC9\xB5", # LATIN CAPITAL LETTER O WITH MIDDLE TILDE
345             "\xC6\xA0" => "\xC6\xA1", # LATIN CAPITAL LETTER O WITH HORN
346             "\xC6\xA2" => "\xC6\xA3", # LATIN CAPITAL LETTER OI
347             "\xC6\xA4" => "\xC6\xA5", # LATIN CAPITAL LETTER P WITH HOOK
348             "\xC6\xA6" => "\xCA\x80", # LATIN LETTER YR
349             "\xC6\xA7" => "\xC6\xA8", # LATIN CAPITAL LETTER TONE TWO
350             "\xC6\xA9" => "\xCA\x83", # LATIN CAPITAL LETTER ESH
351             "\xC6\xAC" => "\xC6\xAD", # LATIN CAPITAL LETTER T WITH HOOK
352             "\xC6\xAE" => "\xCA\x88", # LATIN CAPITAL LETTER T WITH RETROFLEX HOOK
353             "\xC6\xAF" => "\xC6\xB0", # LATIN CAPITAL LETTER U WITH HORN
354             "\xC6\xB1" => "\xCA\x8A", # LATIN CAPITAL LETTER UPSILON
355             "\xC6\xB2" => "\xCA\x8B", # LATIN CAPITAL LETTER V WITH HOOK
356             "\xC6\xB3" => "\xC6\xB4", # LATIN CAPITAL LETTER Y WITH HOOK
357             "\xC6\xB5" => "\xC6\xB6", # LATIN CAPITAL LETTER Z WITH STROKE
358             "\xC6\xB7" => "\xCA\x92", # LATIN CAPITAL LETTER EZH
359             "\xC6\xB8" => "\xC6\xB9", # LATIN CAPITAL LETTER EZH REVERSED
360             "\xC6\xBC" => "\xC6\xBD", # LATIN CAPITAL LETTER TONE FIVE
361             "\xC7\x84" => "\xC7\x86", # LATIN CAPITAL LETTER DZ WITH CARON
362             "\xC7\x85" => "\xC7\x86", # LATIN CAPITAL LETTER D WITH SMALL LETTER Z WITH CARON
363             "\xC7\x87" => "\xC7\x89", # LATIN CAPITAL LETTER LJ
364             "\xC7\x88" => "\xC7\x89", # LATIN CAPITAL LETTER L WITH SMALL LETTER J
365             "\xC7\x8A" => "\xC7\x8C", # LATIN CAPITAL LETTER NJ
366             "\xC7\x8B" => "\xC7\x8C", # LATIN CAPITAL LETTER N WITH SMALL LETTER J
367             "\xC7\x8D" => "\xC7\x8E", # LATIN CAPITAL LETTER A WITH CARON
368             "\xC7\x8F" => "\xC7\x90", # LATIN CAPITAL LETTER I WITH CARON
369             "\xC7\x91" => "\xC7\x92", # LATIN CAPITAL LETTER O WITH CARON
370             "\xC7\x93" => "\xC7\x94", # LATIN CAPITAL LETTER U WITH CARON
371             "\xC7\x95" => "\xC7\x96", # LATIN CAPITAL LETTER U WITH DIAERESIS AND MACRON
372             "\xC7\x97" => "\xC7\x98", # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
373             "\xC7\x99" => "\xC7\x9A", # LATIN CAPITAL LETTER U WITH DIAERESIS AND CARON
374             "\xC7\x9B" => "\xC7\x9C", # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
375             "\xC7\x9E" => "\xC7\x9F", # LATIN CAPITAL LETTER A WITH DIAERESIS AND MACRON
376             "\xC7\xA0" => "\xC7\xA1", # LATIN CAPITAL LETTER A WITH DOT ABOVE AND MACRON
377             "\xC7\xA2" => "\xC7\xA3", # LATIN CAPITAL LETTER AE WITH MACRON
378             "\xC7\xA4" => "\xC7\xA5", # LATIN CAPITAL LETTER G WITH STROKE
379             "\xC7\xA6" => "\xC7\xA7", # LATIN CAPITAL LETTER G WITH CARON
380             "\xC7\xA8" => "\xC7\xA9", # LATIN CAPITAL LETTER K WITH CARON
381             "\xC7\xAA" => "\xC7\xAB", # LATIN CAPITAL LETTER O WITH OGONEK
382             "\xC7\xAC" => "\xC7\xAD", # LATIN CAPITAL LETTER O WITH OGONEK AND MACRON
383             "\xC7\xAE" => "\xC7\xAF", # LATIN CAPITAL LETTER EZH WITH CARON
384             "\xC7\xB0" => "\x6A\xCC\x8C", # LATIN SMALL LETTER J WITH CARON
385             "\xC7\xB1" => "\xC7\xB3", # LATIN CAPITAL LETTER DZ
386             "\xC7\xB2" => "\xC7\xB3", # LATIN CAPITAL LETTER D WITH SMALL LETTER Z
387             "\xC7\xB4" => "\xC7\xB5", # LATIN CAPITAL LETTER G WITH ACUTE
388             "\xC7\xB6" => "\xC6\x95", # LATIN CAPITAL LETTER HWAIR
389             "\xC7\xB7" => "\xC6\xBF", # LATIN CAPITAL LETTER WYNN
390             "\xC7\xB8" => "\xC7\xB9", # LATIN CAPITAL LETTER N WITH GRAVE
391             "\xC7\xBA" => "\xC7\xBB", # LATIN CAPITAL LETTER A WITH RING ABOVE AND ACUTE
392             "\xC7\xBC" => "\xC7\xBD", # LATIN CAPITAL LETTER AE WITH ACUTE
393             "\xC7\xBE" => "\xC7\xBF", # LATIN CAPITAL LETTER O WITH STROKE AND ACUTE
394             "\xC8\x80" => "\xC8\x81", # LATIN CAPITAL LETTER A WITH DOUBLE GRAVE
395             "\xC8\x82" => "\xC8\x83", # LATIN CAPITAL LETTER A WITH INVERTED BREVE
396             "\xC8\x84" => "\xC8\x85", # LATIN CAPITAL LETTER E WITH DOUBLE GRAVE
397             "\xC8\x86" => "\xC8\x87", # LATIN CAPITAL LETTER E WITH INVERTED BREVE
398             "\xC8\x88" => "\xC8\x89", # LATIN CAPITAL LETTER I WITH DOUBLE GRAVE
399             "\xC8\x8A" => "\xC8\x8B", # LATIN CAPITAL LETTER I WITH INVERTED BREVE
400             "\xC8\x8C" => "\xC8\x8D", # LATIN CAPITAL LETTER O WITH DOUBLE GRAVE
401             "\xC8\x8E" => "\xC8\x8F", # LATIN CAPITAL LETTER O WITH INVERTED BREVE
402             "\xC8\x90" => "\xC8\x91", # LATIN CAPITAL LETTER R WITH DOUBLE GRAVE
403             "\xC8\x92" => "\xC8\x93", # LATIN CAPITAL LETTER R WITH INVERTED BREVE
404             "\xC8\x94" => "\xC8\x95", # LATIN CAPITAL LETTER U WITH DOUBLE GRAVE
405             "\xC8\x96" => "\xC8\x97", # LATIN CAPITAL LETTER U WITH INVERTED BREVE
406             "\xC8\x98" => "\xC8\x99", # LATIN CAPITAL LETTER S WITH COMMA BELOW
407             "\xC8\x9A" => "\xC8\x9B", # LATIN CAPITAL LETTER T WITH COMMA BELOW
408             "\xC8\x9C" => "\xC8\x9D", # LATIN CAPITAL LETTER YOGH
409             "\xC8\x9E" => "\xC8\x9F", # LATIN CAPITAL LETTER H WITH CARON
410             "\xC8\xA0" => "\xC6\x9E", # LATIN CAPITAL LETTER N WITH LONG RIGHT LEG
411             "\xC8\xA2" => "\xC8\xA3", # LATIN CAPITAL LETTER OU
412             "\xC8\xA4" => "\xC8\xA5", # LATIN CAPITAL LETTER Z WITH HOOK
413             "\xC8\xA6" => "\xC8\xA7", # LATIN CAPITAL LETTER A WITH DOT ABOVE
414             "\xC8\xA8" => "\xC8\xA9", # LATIN CAPITAL LETTER E WITH CEDILLA
415             "\xC8\xAA" => "\xC8\xAB", # LATIN CAPITAL LETTER O WITH DIAERESIS AND MACRON
416             "\xC8\xAC" => "\xC8\xAD", # LATIN CAPITAL LETTER O WITH TILDE AND MACRON
417             "\xC8\xAE" => "\xC8\xAF", # LATIN CAPITAL LETTER O WITH DOT ABOVE
418             "\xC8\xB0" => "\xC8\xB1", # LATIN CAPITAL LETTER O WITH DOT ABOVE AND MACRON
419             "\xC8\xB2" => "\xC8\xB3", # LATIN CAPITAL LETTER Y WITH MACRON
420             "\xC8\xBA" => "\xE2\xB1\xA5", # LATIN CAPITAL LETTER A WITH STROKE
421             "\xC8\xBB" => "\xC8\xBC", # LATIN CAPITAL LETTER C WITH STROKE
422             "\xC8\xBD" => "\xC6\x9A", # LATIN CAPITAL LETTER L WITH BAR
423             "\xC8\xBE" => "\xE2\xB1\xA6", # LATIN CAPITAL LETTER T WITH DIAGONAL STROKE
424             "\xC9\x81" => "\xC9\x82", # LATIN CAPITAL LETTER GLOTTAL STOP
425             "\xC9\x83" => "\xC6\x80", # LATIN CAPITAL LETTER B WITH STROKE
426             "\xC9\x84" => "\xCA\x89", # LATIN CAPITAL LETTER U BAR
427             "\xC9\x85" => "\xCA\x8C", # LATIN CAPITAL LETTER TURNED V
428             "\xC9\x86" => "\xC9\x87", # LATIN CAPITAL LETTER E WITH STROKE
429             "\xC9\x88" => "\xC9\x89", # LATIN CAPITAL LETTER J WITH STROKE
430             "\xC9\x8A" => "\xC9\x8B", # LATIN CAPITAL LETTER SMALL Q WITH HOOK TAIL
431             "\xC9\x8C" => "\xC9\x8D", # LATIN CAPITAL LETTER R WITH STROKE
432             "\xC9\x8E" => "\xC9\x8F", # LATIN CAPITAL LETTER Y WITH STROKE
433             "\xCD\x85" => "\xCE\xB9", # COMBINING GREEK YPOGEGRAMMENI
434             "\xCD\xB0" => "\xCD\xB1", # GREEK CAPITAL LETTER HETA
435             "\xCD\xB2" => "\xCD\xB3", # GREEK CAPITAL LETTER ARCHAIC SAMPI
436             "\xCD\xB6" => "\xCD\xB7", # GREEK CAPITAL LETTER PAMPHYLIAN DIGAMMA
437             "\xCD\xBF" => "\xCF\xB3", # GREEK CAPITAL LETTER YOT
438             "\xCE\x86" => "\xCE\xAC", # GREEK CAPITAL LETTER ALPHA WITH TONOS
439             "\xCE\x88" => "\xCE\xAD", # GREEK CAPITAL LETTER EPSILON WITH TONOS
440             "\xCE\x89" => "\xCE\xAE", # GREEK CAPITAL LETTER ETA WITH TONOS
441             "\xCE\x8A" => "\xCE\xAF", # GREEK CAPITAL LETTER IOTA WITH TONOS
442             "\xCE\x8C" => "\xCF\x8C", # GREEK CAPITAL LETTER OMICRON WITH TONOS
443             "\xCE\x8E" => "\xCF\x8D", # GREEK CAPITAL LETTER UPSILON WITH TONOS
444             "\xCE\x8F" => "\xCF\x8E", # GREEK CAPITAL LETTER OMEGA WITH TONOS
445             "\xCE\x90" => "\xCE\xB9\xCC\x88\xCC\x81", # GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS
446             "\xCE\x91" => "\xCE\xB1", # GREEK CAPITAL LETTER ALPHA
447             "\xCE\x92" => "\xCE\xB2", # GREEK CAPITAL LETTER BETA
448             "\xCE\x93" => "\xCE\xB3", # GREEK CAPITAL LETTER GAMMA
449             "\xCE\x94" => "\xCE\xB4", # GREEK CAPITAL LETTER DELTA
450             "\xCE\x95" => "\xCE\xB5", # GREEK CAPITAL LETTER EPSILON
451             "\xCE\x96" => "\xCE\xB6", # GREEK CAPITAL LETTER ZETA
452             "\xCE\x97" => "\xCE\xB7", # GREEK CAPITAL LETTER ETA
453             "\xCE\x98" => "\xCE\xB8", # GREEK CAPITAL LETTER THETA
454             "\xCE\x99" => "\xCE\xB9", # GREEK CAPITAL LETTER IOTA
455             "\xCE\x9A" => "\xCE\xBA", # GREEK CAPITAL LETTER KAPPA
456             "\xCE\x9B" => "\xCE\xBB", # GREEK CAPITAL LETTER LAMDA
457             "\xCE\x9C" => "\xCE\xBC", # GREEK CAPITAL LETTER MU
458             "\xCE\x9D" => "\xCE\xBD", # GREEK CAPITAL LETTER NU
459             "\xCE\x9E" => "\xCE\xBE", # GREEK CAPITAL LETTER XI
460             "\xCE\x9F" => "\xCE\xBF", # GREEK CAPITAL LETTER OMICRON
461             "\xCE\xA0" => "\xCF\x80", # GREEK CAPITAL LETTER PI
462             "\xCE\xA1" => "\xCF\x81", # GREEK CAPITAL LETTER RHO
463             "\xCE\xA3" => "\xCF\x83", # GREEK CAPITAL LETTER SIGMA
464             "\xCE\xA4" => "\xCF\x84", # GREEK CAPITAL LETTER TAU
465             "\xCE\xA5" => "\xCF\x85", # GREEK CAPITAL LETTER UPSILON
466             "\xCE\xA6" => "\xCF\x86", # GREEK CAPITAL LETTER PHI
467             "\xCE\xA7" => "\xCF\x87", # GREEK CAPITAL LETTER CHI
468             "\xCE\xA8" => "\xCF\x88", # GREEK CAPITAL LETTER PSI
469             "\xCE\xA9" => "\xCF\x89", # GREEK CAPITAL LETTER OMEGA
470             "\xCE\xAA" => "\xCF\x8A", # GREEK CAPITAL LETTER IOTA WITH DIALYTIKA
471             "\xCE\xAB" => "\xCF\x8B", # GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA
472             "\xCE\xB0" => "\xCF\x85\xCC\x88\xCC\x81", # GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS
473             "\xCF\x82" => "\xCF\x83", # GREEK SMALL LETTER FINAL SIGMA
474             "\xCF\x8F" => "\xCF\x97", # GREEK CAPITAL KAI SYMBOL
475             "\xCF\x90" => "\xCE\xB2", # GREEK BETA SYMBOL
476             "\xCF\x91" => "\xCE\xB8", # GREEK THETA SYMBOL
477             "\xCF\x95" => "\xCF\x86", # GREEK PHI SYMBOL
478             "\xCF\x96" => "\xCF\x80", # GREEK PI SYMBOL
479             "\xCF\x98" => "\xCF\x99", # GREEK LETTER ARCHAIC KOPPA
480             "\xCF\x9A" => "\xCF\x9B", # GREEK LETTER STIGMA
481             "\xCF\x9C" => "\xCF\x9D", # GREEK LETTER DIGAMMA
482             "\xCF\x9E" => "\xCF\x9F", # GREEK LETTER KOPPA
483             "\xCF\xA0" => "\xCF\xA1", # GREEK LETTER SAMPI
484             "\xCF\xA2" => "\xCF\xA3", # COPTIC CAPITAL LETTER SHEI
485             "\xCF\xA4" => "\xCF\xA5", # COPTIC CAPITAL LETTER FEI
486             "\xCF\xA6" => "\xCF\xA7", # COPTIC CAPITAL LETTER KHEI
487             "\xCF\xA8" => "\xCF\xA9", # COPTIC CAPITAL LETTER HORI
488             "\xCF\xAA" => "\xCF\xAB", # COPTIC CAPITAL LETTER GANGIA
489             "\xCF\xAC" => "\xCF\xAD", # COPTIC CAPITAL LETTER SHIMA
490             "\xCF\xAE" => "\xCF\xAF", # COPTIC CAPITAL LETTER DEI
491             "\xCF\xB0" => "\xCE\xBA", # GREEK KAPPA SYMBOL
492             "\xCF\xB1" => "\xCF\x81", # GREEK RHO SYMBOL
493             "\xCF\xB4" => "\xCE\xB8", # GREEK CAPITAL THETA SYMBOL
494             "\xCF\xB5" => "\xCE\xB5", # GREEK LUNATE EPSILON SYMBOL
495             "\xCF\xB7" => "\xCF\xB8", # GREEK CAPITAL LETTER SHO
496             "\xCF\xB9" => "\xCF\xB2", # GREEK CAPITAL LUNATE SIGMA SYMBOL
497             "\xCF\xBA" => "\xCF\xBB", # GREEK CAPITAL LETTER SAN
498             "\xCF\xBD" => "\xCD\xBB", # GREEK CAPITAL REVERSED LUNATE SIGMA SYMBOL
499             "\xCF\xBE" => "\xCD\xBC", # GREEK CAPITAL DOTTED LUNATE SIGMA SYMBOL
500             "\xCF\xBF" => "\xCD\xBD", # GREEK CAPITAL REVERSED DOTTED LUNATE SIGMA SYMBOL
501             "\xD0\x80" => "\xD1\x90", # CYRILLIC CAPITAL LETTER IE WITH GRAVE
502             "\xD0\x81" => "\xD1\x91", # CYRILLIC CAPITAL LETTER IO
503             "\xD0\x82" => "\xD1\x92", # CYRILLIC CAPITAL LETTER DJE
504             "\xD0\x83" => "\xD1\x93", # CYRILLIC CAPITAL LETTER GJE
505             "\xD0\x84" => "\xD1\x94", # CYRILLIC CAPITAL LETTER UKRAINIAN IE
506             "\xD0\x85" => "\xD1\x95", # CYRILLIC CAPITAL LETTER DZE
507             "\xD0\x86" => "\xD1\x96", # CYRILLIC CAPITAL LETTER BYELORUSSIAN-UKRAINIAN I
508             "\xD0\x87" => "\xD1\x97", # CYRILLIC CAPITAL LETTER YI
509             "\xD0\x88" => "\xD1\x98", # CYRILLIC CAPITAL LETTER JE
510             "\xD0\x89" => "\xD1\x99", # CYRILLIC CAPITAL LETTER LJE
511             "\xD0\x8A" => "\xD1\x9A", # CYRILLIC CAPITAL LETTER NJE
512             "\xD0\x8B" => "\xD1\x9B", # CYRILLIC CAPITAL LETTER TSHE
513             "\xD0\x8C" => "\xD1\x9C", # CYRILLIC CAPITAL LETTER KJE
514             "\xD0\x8D" => "\xD1\x9D", # CYRILLIC CAPITAL LETTER I WITH GRAVE
515             "\xD0\x8E" => "\xD1\x9E", # CYRILLIC CAPITAL LETTER SHORT U
516             "\xD0\x8F" => "\xD1\x9F", # CYRILLIC CAPITAL LETTER DZHE
517             "\xD0\x90" => "\xD0\xB0", # CYRILLIC CAPITAL LETTER A
518             "\xD0\x91" => "\xD0\xB1", # CYRILLIC CAPITAL LETTER BE
519             "\xD0\x92" => "\xD0\xB2", # CYRILLIC CAPITAL LETTER VE
520             "\xD0\x93" => "\xD0\xB3", # CYRILLIC CAPITAL LETTER GHE
521             "\xD0\x94" => "\xD0\xB4", # CYRILLIC CAPITAL LETTER DE
522             "\xD0\x95" => "\xD0\xB5", # CYRILLIC CAPITAL LETTER IE
523             "\xD0\x96" => "\xD0\xB6", # CYRILLIC CAPITAL LETTER ZHE
524             "\xD0\x97" => "\xD0\xB7", # CYRILLIC CAPITAL LETTER ZE
525             "\xD0\x98" => "\xD0\xB8", # CYRILLIC CAPITAL LETTER I
526             "\xD0\x99" => "\xD0\xB9", # CYRILLIC CAPITAL LETTER SHORT I
527             "\xD0\x9A" => "\xD0\xBA", # CYRILLIC CAPITAL LETTER KA
528             "\xD0\x9B" => "\xD0\xBB", # CYRILLIC CAPITAL LETTER EL
529             "\xD0\x9C" => "\xD0\xBC", # CYRILLIC CAPITAL LETTER EM
530             "\xD0\x9D" => "\xD0\xBD", # CYRILLIC CAPITAL LETTER EN
531             "\xD0\x9E" => "\xD0\xBE", # CYRILLIC CAPITAL LETTER O
532             "\xD0\x9F" => "\xD0\xBF", # CYRILLIC CAPITAL LETTER PE
533             "\xD0\xA0" => "\xD1\x80", # CYRILLIC CAPITAL LETTER ER
534             "\xD0\xA1" => "\xD1\x81", # CYRILLIC CAPITAL LETTER ES
535             "\xD0\xA2" => "\xD1\x82", # CYRILLIC CAPITAL LETTER TE
536             "\xD0\xA3" => "\xD1\x83", # CYRILLIC CAPITAL LETTER U
537             "\xD0\xA4" => "\xD1\x84", # CYRILLIC CAPITAL LETTER EF
538             "\xD0\xA5" => "\xD1\x85", # CYRILLIC CAPITAL LETTER HA
539             "\xD0\xA6" => "\xD1\x86", # CYRILLIC CAPITAL LETTER TSE
540             "\xD0\xA7" => "\xD1\x87", # CYRILLIC CAPITAL LETTER CHE
541             "\xD0\xA8" => "\xD1\x88", # CYRILLIC CAPITAL LETTER SHA
542             "\xD0\xA9" => "\xD1\x89", # CYRILLIC CAPITAL LETTER SHCHA
543             "\xD0\xAA" => "\xD1\x8A", # CYRILLIC CAPITAL LETTER HARD SIGN
544             "\xD0\xAB" => "\xD1\x8B", # CYRILLIC CAPITAL LETTER YERU
545             "\xD0\xAC" => "\xD1\x8C", # CYRILLIC CAPITAL LETTER SOFT SIGN
546             "\xD0\xAD" => "\xD1\x8D", # CYRILLIC CAPITAL LETTER E
547             "\xD0\xAE" => "\xD1\x8E", # CYRILLIC CAPITAL LETTER YU
548             "\xD0\xAF" => "\xD1\x8F", # CYRILLIC CAPITAL LETTER YA
549             "\xD1\xA0" => "\xD1\xA1", # CYRILLIC CAPITAL LETTER OMEGA
550             "\xD1\xA2" => "\xD1\xA3", # CYRILLIC CAPITAL LETTER YAT
551             "\xD1\xA4" => "\xD1\xA5", # CYRILLIC CAPITAL LETTER IOTIFIED E
552             "\xD1\xA6" => "\xD1\xA7", # CYRILLIC CAPITAL LETTER LITTLE YUS
553             "\xD1\xA8" => "\xD1\xA9", # CYRILLIC CAPITAL LETTER IOTIFIED LITTLE YUS
554             "\xD1\xAA" => "\xD1\xAB", # CYRILLIC CAPITAL LETTER BIG YUS
555             "\xD1\xAC" => "\xD1\xAD", # CYRILLIC CAPITAL LETTER IOTIFIED BIG YUS
556             "\xD1\xAE" => "\xD1\xAF", # CYRILLIC CAPITAL LETTER KSI
557             "\xD1\xB0" => "\xD1\xB1", # CYRILLIC CAPITAL LETTER PSI
558             "\xD1\xB2" => "\xD1\xB3", # CYRILLIC CAPITAL LETTER FITA
559             "\xD1\xB4" => "\xD1\xB5", # CYRILLIC CAPITAL LETTER IZHITSA
560             "\xD1\xB6" => "\xD1\xB7", # CYRILLIC CAPITAL LETTER IZHITSA WITH DOUBLE GRAVE ACCENT
561             "\xD1\xB8" => "\xD1\xB9", # CYRILLIC CAPITAL LETTER UK
562             "\xD1\xBA" => "\xD1\xBB", # CYRILLIC CAPITAL LETTER ROUND OMEGA
563             "\xD1\xBC" => "\xD1\xBD", # CYRILLIC CAPITAL LETTER OMEGA WITH TITLO
564             "\xD1\xBE" => "\xD1\xBF", # CYRILLIC CAPITAL LETTER OT
565             "\xD2\x80" => "\xD2\x81", # CYRILLIC CAPITAL LETTER KOPPA
566             "\xD2\x8A" => "\xD2\x8B", # CYRILLIC CAPITAL LETTER SHORT I WITH TAIL
567             "\xD2\x8C" => "\xD2\x8D", # CYRILLIC CAPITAL LETTER SEMISOFT SIGN
568             "\xD2\x8E" => "\xD2\x8F", # CYRILLIC CAPITAL LETTER ER WITH TICK
569             "\xD2\x90" => "\xD2\x91", # CYRILLIC CAPITAL LETTER GHE WITH UPTURN
570             "\xD2\x92" => "\xD2\x93", # CYRILLIC CAPITAL LETTER GHE WITH STROKE
571             "\xD2\x94" => "\xD2\x95", # CYRILLIC CAPITAL LETTER GHE WITH MIDDLE HOOK
572             "\xD2\x96" => "\xD2\x97", # CYRILLIC CAPITAL LETTER ZHE WITH DESCENDER
573             "\xD2\x98" => "\xD2\x99", # CYRILLIC CAPITAL LETTER ZE WITH DESCENDER
574             "\xD2\x9A" => "\xD2\x9B", # CYRILLIC CAPITAL LETTER KA WITH DESCENDER
575             "\xD2\x9C" => "\xD2\x9D", # CYRILLIC CAPITAL LETTER KA WITH VERTICAL STROKE
576             "\xD2\x9E" => "\xD2\x9F", # CYRILLIC CAPITAL LETTER KA WITH STROKE
577             "\xD2\xA0" => "\xD2\xA1", # CYRILLIC CAPITAL LETTER BASHKIR KA
578             "\xD2\xA2" => "\xD2\xA3", # CYRILLIC CAPITAL LETTER EN WITH DESCENDER
579             "\xD2\xA4" => "\xD2\xA5", # CYRILLIC CAPITAL LIGATURE EN GHE
580             "\xD2\xA6" => "\xD2\xA7", # CYRILLIC CAPITAL LETTER PE WITH MIDDLE HOOK
581             "\xD2\xA8" => "\xD2\xA9", # CYRILLIC CAPITAL LETTER ABKHASIAN HA
582             "\xD2\xAA" => "\xD2\xAB", # CYRILLIC CAPITAL LETTER ES WITH DESCENDER
583             "\xD2\xAC" => "\xD2\xAD", # CYRILLIC CAPITAL LETTER TE WITH DESCENDER
584             "\xD2\xAE" => "\xD2\xAF", # CYRILLIC CAPITAL LETTER STRAIGHT U
585             "\xD2\xB0" => "\xD2\xB1", # CYRILLIC CAPITAL LETTER STRAIGHT U WITH STROKE
586             "\xD2\xB2" => "\xD2\xB3", # CYRILLIC CAPITAL LETTER HA WITH DESCENDER
587             "\xD2\xB4" => "\xD2\xB5", # CYRILLIC CAPITAL LIGATURE TE TSE
588             "\xD2\xB6" => "\xD2\xB7", # CYRILLIC CAPITAL LETTER CHE WITH DESCENDER
589             "\xD2\xB8" => "\xD2\xB9", # CYRILLIC CAPITAL LETTER CHE WITH VERTICAL STROKE
590             "\xD2\xBA" => "\xD2\xBB", # CYRILLIC CAPITAL LETTER SHHA
591             "\xD2\xBC" => "\xD2\xBD", # CYRILLIC CAPITAL LETTER ABKHASIAN CHE
592             "\xD2\xBE" => "\xD2\xBF", # CYRILLIC CAPITAL LETTER ABKHASIAN CHE WITH DESCENDER
593             "\xD3\x80" => "\xD3\x8F", # CYRILLIC LETTER PALOCHKA
594             "\xD3\x81" => "\xD3\x82", # CYRILLIC CAPITAL LETTER ZHE WITH BREVE
595             "\xD3\x83" => "\xD3\x84", # CYRILLIC CAPITAL LETTER KA WITH HOOK
596             "\xD3\x85" => "\xD3\x86", # CYRILLIC CAPITAL LETTER EL WITH TAIL
597             "\xD3\x87" => "\xD3\x88", # CYRILLIC CAPITAL LETTER EN WITH HOOK
598             "\xD3\x89" => "\xD3\x8A", # CYRILLIC CAPITAL LETTER EN WITH TAIL
599             "\xD3\x8B" => "\xD3\x8C", # CYRILLIC CAPITAL LETTER KHAKASSIAN CHE
600             "\xD3\x8D" => "\xD3\x8E", # CYRILLIC CAPITAL LETTER EM WITH TAIL
601             "\xD3\x90" => "\xD3\x91", # CYRILLIC CAPITAL LETTER A WITH BREVE
602             "\xD3\x92" => "\xD3\x93", # CYRILLIC CAPITAL LETTER A WITH DIAERESIS
603             "\xD3\x94" => "\xD3\x95", # CYRILLIC CAPITAL LIGATURE A IE
604             "\xD3\x96" => "\xD3\x97", # CYRILLIC CAPITAL LETTER IE WITH BREVE
605             "\xD3\x98" => "\xD3\x99", # CYRILLIC CAPITAL LETTER SCHWA
606             "\xD3\x9A" => "\xD3\x9B", # CYRILLIC CAPITAL LETTER SCHWA WITH DIAERESIS
607             "\xD3\x9C" => "\xD3\x9D", # CYRILLIC CAPITAL LETTER ZHE WITH DIAERESIS
608             "\xD3\x9E" => "\xD3\x9F", # CYRILLIC CAPITAL LETTER ZE WITH DIAERESIS
609             "\xD3\xA0" => "\xD3\xA1", # CYRILLIC CAPITAL LETTER ABKHASIAN DZE
610             "\xD3\xA2" => "\xD3\xA3", # CYRILLIC CAPITAL LETTER I WITH MACRON
611             "\xD3\xA4" => "\xD3\xA5", # CYRILLIC CAPITAL LETTER I WITH DIAERESIS
612             "\xD3\xA6" => "\xD3\xA7", # CYRILLIC CAPITAL LETTER O WITH DIAERESIS
613             "\xD3\xA8" => "\xD3\xA9", # CYRILLIC CAPITAL LETTER BARRED O
614             "\xD3\xAA" => "\xD3\xAB", # CYRILLIC CAPITAL LETTER BARRED O WITH DIAERESIS
615             "\xD3\xAC" => "\xD3\xAD", # CYRILLIC CAPITAL LETTER E WITH DIAERESIS
616             "\xD3\xAE" => "\xD3\xAF", # CYRILLIC CAPITAL LETTER U WITH MACRON
617             "\xD3\xB0" => "\xD3\xB1", # CYRILLIC CAPITAL LETTER U WITH DIAERESIS
618             "\xD3\xB2" => "\xD3\xB3", # CYRILLIC CAPITAL LETTER U WITH DOUBLE ACUTE
619             "\xD3\xB4" => "\xD3\xB5", # CYRILLIC CAPITAL LETTER CHE WITH DIAERESIS
620             "\xD3\xB6" => "\xD3\xB7", # CYRILLIC CAPITAL LETTER GHE WITH DESCENDER
621             "\xD3\xB8" => "\xD3\xB9", # CYRILLIC CAPITAL LETTER YERU WITH DIAERESIS
622             "\xD3\xBA" => "\xD3\xBB", # CYRILLIC CAPITAL LETTER GHE WITH STROKE AND HOOK
623             "\xD3\xBC" => "\xD3\xBD", # CYRILLIC CAPITAL LETTER HA WITH HOOK
624             "\xD3\xBE" => "\xD3\xBF", # CYRILLIC CAPITAL LETTER HA WITH STROKE
625             "\xD4\x80" => "\xD4\x81", # CYRILLIC CAPITAL LETTER KOMI DE
626             "\xD4\x82" => "\xD4\x83", # CYRILLIC CAPITAL LETTER KOMI DJE
627             "\xD4\x84" => "\xD4\x85", # CYRILLIC CAPITAL LETTER KOMI ZJE
628             "\xD4\x86" => "\xD4\x87", # CYRILLIC CAPITAL LETTER KOMI DZJE
629             "\xD4\x88" => "\xD4\x89", # CYRILLIC CAPITAL LETTER KOMI LJE
630             "\xD4\x8A" => "\xD4\x8B", # CYRILLIC CAPITAL LETTER KOMI NJE
631             "\xD4\x8C" => "\xD4\x8D", # CYRILLIC CAPITAL LETTER KOMI SJE
632             "\xD4\x8E" => "\xD4\x8F", # CYRILLIC CAPITAL LETTER KOMI TJE
633             "\xD4\x90" => "\xD4\x91", # CYRILLIC CAPITAL LETTER REVERSED ZE
634             "\xD4\x92" => "\xD4\x93", # CYRILLIC CAPITAL LETTER EL WITH HOOK
635             "\xD4\x94" => "\xD4\x95", # CYRILLIC CAPITAL LETTER LHA
636             "\xD4\x96" => "\xD4\x97", # CYRILLIC CAPITAL LETTER RHA
637             "\xD4\x98" => "\xD4\x99", # CYRILLIC CAPITAL LETTER YAE
638             "\xD4\x9A" => "\xD4\x9B", # CYRILLIC CAPITAL LETTER QA
639             "\xD4\x9C" => "\xD4\x9D", # CYRILLIC CAPITAL LETTER WE
640             "\xD4\x9E" => "\xD4\x9F", # CYRILLIC CAPITAL LETTER ALEUT KA
641             "\xD4\xA0" => "\xD4\xA1", # CYRILLIC CAPITAL LETTER EL WITH MIDDLE HOOK
642             "\xD4\xA2" => "\xD4\xA3", # CYRILLIC CAPITAL LETTER EN WITH MIDDLE HOOK
643             "\xD4\xA4" => "\xD4\xA5", # CYRILLIC CAPITAL LETTER PE WITH DESCENDER
644             "\xD4\xA6" => "\xD4\xA7", # CYRILLIC CAPITAL LETTER SHHA WITH DESCENDER
645             "\xD4\xA8" => "\xD4\xA9", # CYRILLIC CAPITAL LETTER EN WITH LEFT HOOK
646             "\xD4\xAA" => "\xD4\xAB", # CYRILLIC CAPITAL LETTER DZZHE
647             "\xD4\xAC" => "\xD4\xAD", # CYRILLIC CAPITAL LETTER DCHE
648             "\xD4\xAE" => "\xD4\xAF", # CYRILLIC CAPITAL LETTER EL WITH DESCENDER
649             "\xD4\xB1" => "\xD5\xA1", # ARMENIAN CAPITAL LETTER AYB
650             "\xD4\xB2" => "\xD5\xA2", # ARMENIAN CAPITAL LETTER BEN
651             "\xD4\xB3" => "\xD5\xA3", # ARMENIAN CAPITAL LETTER GIM
652             "\xD4\xB4" => "\xD5\xA4", # ARMENIAN CAPITAL LETTER DA
653             "\xD4\xB5" => "\xD5\xA5", # ARMENIAN CAPITAL LETTER ECH
654             "\xD4\xB6" => "\xD5\xA6", # ARMENIAN CAPITAL LETTER ZA
655             "\xD4\xB7" => "\xD5\xA7", # ARMENIAN CAPITAL LETTER EH
656             "\xD4\xB8" => "\xD5\xA8", # ARMENIAN CAPITAL LETTER ET
657             "\xD4\xB9" => "\xD5\xA9", # ARMENIAN CAPITAL LETTER TO
658             "\xD4\xBA" => "\xD5\xAA", # ARMENIAN CAPITAL LETTER ZHE
659             "\xD4\xBB" => "\xD5\xAB", # ARMENIAN CAPITAL LETTER INI
660             "\xD4\xBC" => "\xD5\xAC", # ARMENIAN CAPITAL LETTER LIWN
661             "\xD4\xBD" => "\xD5\xAD", # ARMENIAN CAPITAL LETTER XEH
662             "\xD4\xBE" => "\xD5\xAE", # ARMENIAN CAPITAL LETTER CA
663             "\xD4\xBF" => "\xD5\xAF", # ARMENIAN CAPITAL LETTER KEN
664             "\xD5\x80" => "\xD5\xB0", # ARMENIAN CAPITAL LETTER HO
665             "\xD5\x81" => "\xD5\xB1", # ARMENIAN CAPITAL LETTER JA
666             "\xD5\x82" => "\xD5\xB2", # ARMENIAN CAPITAL LETTER GHAD
667             "\xD5\x83" => "\xD5\xB3", # ARMENIAN CAPITAL LETTER CHEH
668             "\xD5\x84" => "\xD5\xB4", # ARMENIAN CAPITAL LETTER MEN
669             "\xD5\x85" => "\xD5\xB5", # ARMENIAN CAPITAL LETTER YI
670             "\xD5\x86" => "\xD5\xB6", # ARMENIAN CAPITAL LETTER NOW
671             "\xD5\x87" => "\xD5\xB7", # ARMENIAN CAPITAL LETTER SHA
672             "\xD5\x88" => "\xD5\xB8", # ARMENIAN CAPITAL LETTER VO
673             "\xD5\x89" => "\xD5\xB9", # ARMENIAN CAPITAL LETTER CHA
674             "\xD5\x8A" => "\xD5\xBA", # ARMENIAN CAPITAL LETTER PEH
675             "\xD5\x8B" => "\xD5\xBB", # ARMENIAN CAPITAL LETTER JHEH
676             "\xD5\x8C" => "\xD5\xBC", # ARMENIAN CAPITAL LETTER RA
677             "\xD5\x8D" => "\xD5\xBD", # ARMENIAN CAPITAL LETTER SEH
678             "\xD5\x8E" => "\xD5\xBE", # ARMENIAN CAPITAL LETTER VEW
679             "\xD5\x8F" => "\xD5\xBF", # ARMENIAN CAPITAL LETTER TIWN
680             "\xD5\x90" => "\xD6\x80", # ARMENIAN CAPITAL LETTER REH
681             "\xD5\x91" => "\xD6\x81", # ARMENIAN CAPITAL LETTER CO
682             "\xD5\x92" => "\xD6\x82", # ARMENIAN CAPITAL LETTER YIWN
683             "\xD5\x93" => "\xD6\x83", # ARMENIAN CAPITAL LETTER PIWR
684             "\xD5\x94" => "\xD6\x84", # ARMENIAN CAPITAL LETTER KEH
685             "\xD5\x95" => "\xD6\x85", # ARMENIAN CAPITAL LETTER OH
686             "\xD5\x96" => "\xD6\x86", # ARMENIAN CAPITAL LETTER FEH
687             "\xD6\x87" => "\xD5\xA5\xD6\x82", # ARMENIAN SMALL LIGATURE ECH YIWN
688             "\xE1\x82\xA0" => "\xE2\xB4\x80", # GEORGIAN CAPITAL LETTER AN
689             "\xE1\x82\xA1" => "\xE2\xB4\x81", # GEORGIAN CAPITAL LETTER BAN
690             "\xE1\x82\xA2" => "\xE2\xB4\x82", # GEORGIAN CAPITAL LETTER GAN
691             "\xE1\x82\xA3" => "\xE2\xB4\x83", # GEORGIAN CAPITAL LETTER DON
692             "\xE1\x82\xA4" => "\xE2\xB4\x84", # GEORGIAN CAPITAL LETTER EN
693             "\xE1\x82\xA5" => "\xE2\xB4\x85", # GEORGIAN CAPITAL LETTER VIN
694             "\xE1\x82\xA6" => "\xE2\xB4\x86", # GEORGIAN CAPITAL LETTER ZEN
695             "\xE1\x82\xA7" => "\xE2\xB4\x87", # GEORGIAN CAPITAL LETTER TAN
696             "\xE1\x82\xA8" => "\xE2\xB4\x88", # GEORGIAN CAPITAL LETTER IN
697             "\xE1\x82\xA9" => "\xE2\xB4\x89", # GEORGIAN CAPITAL LETTER KAN
698             "\xE1\x82\xAA" => "\xE2\xB4\x8A", # GEORGIAN CAPITAL LETTER LAS
699             "\xE1\x82\xAB" => "\xE2\xB4\x8B", # GEORGIAN CAPITAL LETTER MAN
700             "\xE1\x82\xAC" => "\xE2\xB4\x8C", # GEORGIAN CAPITAL LETTER NAR
701             "\xE1\x82\xAD" => "\xE2\xB4\x8D", # GEORGIAN CAPITAL LETTER ON
702             "\xE1\x82\xAE" => "\xE2\xB4\x8E", # GEORGIAN CAPITAL LETTER PAR
703             "\xE1\x82\xAF" => "\xE2\xB4\x8F", # GEORGIAN CAPITAL LETTER ZHAR
704             "\xE1\x82\xB0" => "\xE2\xB4\x90", # GEORGIAN CAPITAL LETTER RAE
705             "\xE1\x82\xB1" => "\xE2\xB4\x91", # GEORGIAN CAPITAL LETTER SAN
706             "\xE1\x82\xB2" => "\xE2\xB4\x92", # GEORGIAN CAPITAL LETTER TAR
707             "\xE1\x82\xB3" => "\xE2\xB4\x93", # GEORGIAN CAPITAL LETTER UN
708             "\xE1\x82\xB4" => "\xE2\xB4\x94", # GEORGIAN CAPITAL LETTER PHAR
709             "\xE1\x82\xB5" => "\xE2\xB4\x95", # GEORGIAN CAPITAL LETTER KHAR
710             "\xE1\x82\xB6" => "\xE2\xB4\x96", # GEORGIAN CAPITAL LETTER GHAN
711             "\xE1\x82\xB7" => "\xE2\xB4\x97", # GEORGIAN CAPITAL LETTER QAR
712             "\xE1\x82\xB8" => "\xE2\xB4\x98", # GEORGIAN CAPITAL LETTER SHIN
713             "\xE1\x82\xB9" => "\xE2\xB4\x99", # GEORGIAN CAPITAL LETTER CHIN
714             "\xE1\x82\xBA" => "\xE2\xB4\x9A", # GEORGIAN CAPITAL LETTER CAN
715             "\xE1\x82\xBB" => "\xE2\xB4\x9B", # GEORGIAN CAPITAL LETTER JIL
716             "\xE1\x82\xBC" => "\xE2\xB4\x9C", # GEORGIAN CAPITAL LETTER CIL
717             "\xE1\x82\xBD" => "\xE2\xB4\x9D", # GEORGIAN CAPITAL LETTER CHAR
718             "\xE1\x82\xBE" => "\xE2\xB4\x9E", # GEORGIAN CAPITAL LETTER XAN
719             "\xE1\x82\xBF" => "\xE2\xB4\x9F", # GEORGIAN CAPITAL LETTER JHAN
720             "\xE1\x83\x80" => "\xE2\xB4\xA0", # GEORGIAN CAPITAL LETTER HAE
721             "\xE1\x83\x81" => "\xE2\xB4\xA1", # GEORGIAN CAPITAL LETTER HE
722             "\xE1\x83\x82" => "\xE2\xB4\xA2", # GEORGIAN CAPITAL LETTER HIE
723             "\xE1\x83\x83" => "\xE2\xB4\xA3", # GEORGIAN CAPITAL LETTER WE
724             "\xE1\x83\x84" => "\xE2\xB4\xA4", # GEORGIAN CAPITAL LETTER HAR
725             "\xE1\x83\x85" => "\xE2\xB4\xA5", # GEORGIAN CAPITAL LETTER HOE
726             "\xE1\x83\x87" => "\xE2\xB4\xA7", # GEORGIAN CAPITAL LETTER YN
727             "\xE1\x83\x8D" => "\xE2\xB4\xAD", # GEORGIAN CAPITAL LETTER AEN
728             "\xE1\x8F\xB8" => "\xE1\x8F\xB0", # CHEROKEE SMALL LETTER YE
729             "\xE1\x8F\xB9" => "\xE1\x8F\xB1", # CHEROKEE SMALL LETTER YI
730             "\xE1\x8F\xBA" => "\xE1\x8F\xB2", # CHEROKEE SMALL LETTER YO
731             "\xE1\x8F\xBB" => "\xE1\x8F\xB3", # CHEROKEE SMALL LETTER YU
732             "\xE1\x8F\xBC" => "\xE1\x8F\xB4", # CHEROKEE SMALL LETTER YV
733             "\xE1\x8F\xBD" => "\xE1\x8F\xB5", # CHEROKEE SMALL LETTER MV
734             "\xE1\xB2\x80" => "\xD0\xB2", # CYRILLIC SMALL LETTER ROUNDED VE
735             "\xE1\xB2\x81" => "\xD0\xB4", # CYRILLIC SMALL LETTER LONG-LEGGED DE
736             "\xE1\xB2\x82" => "\xD0\xBE", # CYRILLIC SMALL LETTER NARROW O
737             "\xE1\xB2\x83" => "\xD1\x81", # CYRILLIC SMALL LETTER WIDE ES
738             "\xE1\xB2\x84" => "\xD1\x82", # CYRILLIC SMALL LETTER TALL TE
739             "\xE1\xB2\x85" => "\xD1\x82", # CYRILLIC SMALL LETTER THREE-LEGGED TE
740             "\xE1\xB2\x86" => "\xD1\x8A", # CYRILLIC SMALL LETTER TALL HARD SIGN
741             "\xE1\xB2\x87" => "\xD1\xA3", # CYRILLIC SMALL LETTER TALL YAT
742             "\xE1\xB2\x88" => "\xEA\x99\x8B", # CYRILLIC SMALL LETTER UNBLENDED UK
743             "\xE1\xB2\x90" => "\xE1\x83\x90", # GEORGIAN MTAVRULI CAPITAL LETTER AN
744             "\xE1\xB2\x91" => "\xE1\x83\x91", # GEORGIAN MTAVRULI CAPITAL LETTER BAN
745             "\xE1\xB2\x92" => "\xE1\x83\x92", # GEORGIAN MTAVRULI CAPITAL LETTER GAN
746             "\xE1\xB2\x93" => "\xE1\x83\x93", # GEORGIAN MTAVRULI CAPITAL LETTER DON
747             "\xE1\xB2\x94" => "\xE1\x83\x94", # GEORGIAN MTAVRULI CAPITAL LETTER EN
748             "\xE1\xB2\x95" => "\xE1\x83\x95", # GEORGIAN MTAVRULI CAPITAL LETTER VIN
749             "\xE1\xB2\x96" => "\xE1\x83\x96", # GEORGIAN MTAVRULI CAPITAL LETTER ZEN
750             "\xE1\xB2\x97" => "\xE1\x83\x97", # GEORGIAN MTAVRULI CAPITAL LETTER TAN
751             "\xE1\xB2\x98" => "\xE1\x83\x98", # GEORGIAN MTAVRULI CAPITAL LETTER IN
752             "\xE1\xB2\x99" => "\xE1\x83\x99", # GEORGIAN MTAVRULI CAPITAL LETTER KAN
753             "\xE1\xB2\x9A" => "\xE1\x83\x9A", # GEORGIAN MTAVRULI CAPITAL LETTER LAS
754             "\xE1\xB2\x9B" => "\xE1\x83\x9B", # GEORGIAN MTAVRULI CAPITAL LETTER MAN
755             "\xE1\xB2\x9C" => "\xE1\x83\x9C", # GEORGIAN MTAVRULI CAPITAL LETTER NAR
756             "\xE1\xB2\x9D" => "\xE1\x83\x9D", # GEORGIAN MTAVRULI CAPITAL LETTER ON
757             "\xE1\xB2\x9E" => "\xE1\x83\x9E", # GEORGIAN MTAVRULI CAPITAL LETTER PAR
758             "\xE1\xB2\x9F" => "\xE1\x83\x9F", # GEORGIAN MTAVRULI CAPITAL LETTER ZHAR
759             "\xE1\xB2\xA0" => "\xE1\x83\xA0", # GEORGIAN MTAVRULI CAPITAL LETTER RAE
760             "\xE1\xB2\xA1" => "\xE1\x83\xA1", # GEORGIAN MTAVRULI CAPITAL LETTER SAN
761             "\xE1\xB2\xA2" => "\xE1\x83\xA2", # GEORGIAN MTAVRULI CAPITAL LETTER TAR
762             "\xE1\xB2\xA3" => "\xE1\x83\xA3", # GEORGIAN MTAVRULI CAPITAL LETTER UN
763             "\xE1\xB2\xA4" => "\xE1\x83\xA4", # GEORGIAN MTAVRULI CAPITAL LETTER PHAR
764             "\xE1\xB2\xA5" => "\xE1\x83\xA5", # GEORGIAN MTAVRULI CAPITAL LETTER KHAR
765             "\xE1\xB2\xA6" => "\xE1\x83\xA6", # GEORGIAN MTAVRULI CAPITAL LETTER GHAN
766             "\xE1\xB2\xA7" => "\xE1\x83\xA7", # GEORGIAN MTAVRULI CAPITAL LETTER QAR
767             "\xE1\xB2\xA8" => "\xE1\x83\xA8", # GEORGIAN MTAVRULI CAPITAL LETTER SHIN
768             "\xE1\xB2\xA9" => "\xE1\x83\xA9", # GEORGIAN MTAVRULI CAPITAL LETTER CHIN
769             "\xE1\xB2\xAA" => "\xE1\x83\xAA", # GEORGIAN MTAVRULI CAPITAL LETTER CAN
770             "\xE1\xB2\xAB" => "\xE1\x83\xAB", # GEORGIAN MTAVRULI CAPITAL LETTER JIL
771             "\xE1\xB2\xAC" => "\xE1\x83\xAC", # GEORGIAN MTAVRULI CAPITAL LETTER CIL
772             "\xE1\xB2\xAD" => "\xE1\x83\xAD", # GEORGIAN MTAVRULI CAPITAL LETTER CHAR
773             "\xE1\xB2\xAE" => "\xE1\x83\xAE", # GEORGIAN MTAVRULI CAPITAL LETTER XAN
774             "\xE1\xB2\xAF" => "\xE1\x83\xAF", # GEORGIAN MTAVRULI CAPITAL LETTER JHAN
775             "\xE1\xB2\xB0" => "\xE1\x83\xB0", # GEORGIAN MTAVRULI CAPITAL LETTER HAE
776             "\xE1\xB2\xB1" => "\xE1\x83\xB1", # GEORGIAN MTAVRULI CAPITAL LETTER HE
777             "\xE1\xB2\xB2" => "\xE1\x83\xB2", # GEORGIAN MTAVRULI CAPITAL LETTER HIE
778             "\xE1\xB2\xB3" => "\xE1\x83\xB3", # GEORGIAN MTAVRULI CAPITAL LETTER WE
779             "\xE1\xB2\xB4" => "\xE1\x83\xB4", # GEORGIAN MTAVRULI CAPITAL LETTER HAR
780             "\xE1\xB2\xB5" => "\xE1\x83\xB5", # GEORGIAN MTAVRULI CAPITAL LETTER HOE
781             "\xE1\xB2\xB6" => "\xE1\x83\xB6", # GEORGIAN MTAVRULI CAPITAL LETTER FI
782             "\xE1\xB2\xB7" => "\xE1\x83\xB7", # GEORGIAN MTAVRULI CAPITAL LETTER YN
783             "\xE1\xB2\xB8" => "\xE1\x83\xB8", # GEORGIAN MTAVRULI CAPITAL LETTER ELIFI
784             "\xE1\xB2\xB9" => "\xE1\x83\xB9", # GEORGIAN MTAVRULI CAPITAL LETTER TURNED GAN
785             "\xE1\xB2\xBA" => "\xE1\x83\xBA", # GEORGIAN MTAVRULI CAPITAL LETTER AIN
786             "\xE1\xB2\xBD" => "\xE1\x83\xBD", # GEORGIAN MTAVRULI CAPITAL LETTER AEN
787             "\xE1\xB2\xBE" => "\xE1\x83\xBE", # GEORGIAN MTAVRULI CAPITAL LETTER HARD SIGN
788             "\xE1\xB2\xBF" => "\xE1\x83\xBF", # GEORGIAN MTAVRULI CAPITAL LETTER LABIAL SIGN
789             "\xE1\xB8\x80" => "\xE1\xB8\x81", # LATIN CAPITAL LETTER A WITH RING BELOW
790             "\xE1\xB8\x82" => "\xE1\xB8\x83", # LATIN CAPITAL LETTER B WITH DOT ABOVE
791             "\xE1\xB8\x84" => "\xE1\xB8\x85", # LATIN CAPITAL LETTER B WITH DOT BELOW
792             "\xE1\xB8\x86" => "\xE1\xB8\x87", # LATIN CAPITAL LETTER B WITH LINE BELOW
793             "\xE1\xB8\x88" => "\xE1\xB8\x89", # LATIN CAPITAL LETTER C WITH CEDILLA AND ACUTE
794             "\xE1\xB8\x8A" => "\xE1\xB8\x8B", # LATIN CAPITAL LETTER D WITH DOT ABOVE
795             "\xE1\xB8\x8C" => "\xE1\xB8\x8D", # LATIN CAPITAL LETTER D WITH DOT BELOW
796             "\xE1\xB8\x8E" => "\xE1\xB8\x8F", # LATIN CAPITAL LETTER D WITH LINE BELOW
797             "\xE1\xB8\x90" => "\xE1\xB8\x91", # LATIN CAPITAL LETTER D WITH CEDILLA
798             "\xE1\xB8\x92" => "\xE1\xB8\x93", # LATIN CAPITAL LETTER D WITH CIRCUMFLEX BELOW
799             "\xE1\xB8\x94" => "\xE1\xB8\x95", # LATIN CAPITAL LETTER E WITH MACRON AND GRAVE
800             "\xE1\xB8\x96" => "\xE1\xB8\x97", # LATIN CAPITAL LETTER E WITH MACRON AND ACUTE
801             "\xE1\xB8\x98" => "\xE1\xB8\x99", # LATIN CAPITAL LETTER E WITH CIRCUMFLEX BELOW
802             "\xE1\xB8\x9A" => "\xE1\xB8\x9B", # LATIN CAPITAL LETTER E WITH TILDE BELOW
803             "\xE1\xB8\x9C" => "\xE1\xB8\x9D", # LATIN CAPITAL LETTER E WITH CEDILLA AND BREVE
804             "\xE1\xB8\x9E" => "\xE1\xB8\x9F", # LATIN CAPITAL LETTER F WITH DOT ABOVE
805             "\xE1\xB8\xA0" => "\xE1\xB8\xA1", # LATIN CAPITAL LETTER G WITH MACRON
806             "\xE1\xB8\xA2" => "\xE1\xB8\xA3", # LATIN CAPITAL LETTER H WITH DOT ABOVE
807             "\xE1\xB8\xA4" => "\xE1\xB8\xA5", # LATIN CAPITAL LETTER H WITH DOT BELOW
808             "\xE1\xB8\xA6" => "\xE1\xB8\xA7", # LATIN CAPITAL LETTER H WITH DIAERESIS
809             "\xE1\xB8\xA8" => "\xE1\xB8\xA9", # LATIN CAPITAL LETTER H WITH CEDILLA
810             "\xE1\xB8\xAA" => "\xE1\xB8\xAB", # LATIN CAPITAL LETTER H WITH BREVE BELOW
811             "\xE1\xB8\xAC" => "\xE1\xB8\xAD", # LATIN CAPITAL LETTER I WITH TILDE BELOW
812             "\xE1\xB8\xAE" => "\xE1\xB8\xAF", # LATIN CAPITAL LETTER I WITH DIAERESIS AND ACUTE
813             "\xE1\xB8\xB0" => "\xE1\xB8\xB1", # LATIN CAPITAL LETTER K WITH ACUTE
814             "\xE1\xB8\xB2" => "\xE1\xB8\xB3", # LATIN CAPITAL LETTER K WITH DOT BELOW
815             "\xE1\xB8\xB4" => "\xE1\xB8\xB5", # LATIN CAPITAL LETTER K WITH LINE BELOW
816             "\xE1\xB8\xB6" => "\xE1\xB8\xB7", # LATIN CAPITAL LETTER L WITH DOT BELOW
817             "\xE1\xB8\xB8" => "\xE1\xB8\xB9", # LATIN CAPITAL LETTER L WITH DOT BELOW AND MACRON
818             "\xE1\xB8\xBA" => "\xE1\xB8\xBB", # LATIN CAPITAL LETTER L WITH LINE BELOW
819             "\xE1\xB8\xBC" => "\xE1\xB8\xBD", # LATIN CAPITAL LETTER L WITH CIRCUMFLEX BELOW
820             "\xE1\xB8\xBE" => "\xE1\xB8\xBF", # LATIN CAPITAL LETTER M WITH ACUTE
821             "\xE1\xB9\x80" => "\xE1\xB9\x81", # LATIN CAPITAL LETTER M WITH DOT ABOVE
822             "\xE1\xB9\x82" => "\xE1\xB9\x83", # LATIN CAPITAL LETTER M WITH DOT BELOW
823             "\xE1\xB9\x84" => "\xE1\xB9\x85", # LATIN CAPITAL LETTER N WITH DOT ABOVE
824             "\xE1\xB9\x86" => "\xE1\xB9\x87", # LATIN CAPITAL LETTER N WITH DOT BELOW
825             "\xE1\xB9\x88" => "\xE1\xB9\x89", # LATIN CAPITAL LETTER N WITH LINE BELOW
826             "\xE1\xB9\x8A" => "\xE1\xB9\x8B", # LATIN CAPITAL LETTER N WITH CIRCUMFLEX BELOW
827             "\xE1\xB9\x8C" => "\xE1\xB9\x8D", # LATIN CAPITAL LETTER O WITH TILDE AND ACUTE
828             "\xE1\xB9\x8E" => "\xE1\xB9\x8F", # LATIN CAPITAL LETTER O WITH TILDE AND DIAERESIS
829             "\xE1\xB9\x90" => "\xE1\xB9\x91", # LATIN CAPITAL LETTER O WITH MACRON AND GRAVE
830             "\xE1\xB9\x92" => "\xE1\xB9\x93", # LATIN CAPITAL LETTER O WITH MACRON AND ACUTE
831             "\xE1\xB9\x94" => "\xE1\xB9\x95", # LATIN CAPITAL LETTER P WITH ACUTE
832             "\xE1\xB9\x96" => "\xE1\xB9\x97", # LATIN CAPITAL LETTER P WITH DOT ABOVE
833             "\xE1\xB9\x98" => "\xE1\xB9\x99", # LATIN CAPITAL LETTER R WITH DOT ABOVE
834             "\xE1\xB9\x9A" => "\xE1\xB9\x9B", # LATIN CAPITAL LETTER R WITH DOT BELOW
835             "\xE1\xB9\x9C" => "\xE1\xB9\x9D", # LATIN CAPITAL LETTER R WITH DOT BELOW AND MACRON
836             "\xE1\xB9\x9E" => "\xE1\xB9\x9F", # LATIN CAPITAL LETTER R WITH LINE BELOW
837             "\xE1\xB9\xA0" => "\xE1\xB9\xA1", # LATIN CAPITAL LETTER S WITH DOT ABOVE
838             "\xE1\xB9\xA2" => "\xE1\xB9\xA3", # LATIN CAPITAL LETTER S WITH DOT BELOW
839             "\xE1\xB9\xA4" => "\xE1\xB9\xA5", # LATIN CAPITAL LETTER S WITH ACUTE AND DOT ABOVE
840             "\xE1\xB9\xA6" => "\xE1\xB9\xA7", # LATIN CAPITAL LETTER S WITH CARON AND DOT ABOVE
841             "\xE1\xB9\xA8" => "\xE1\xB9\xA9", # LATIN CAPITAL LETTER S WITH DOT BELOW AND DOT ABOVE
842             "\xE1\xB9\xAA" => "\xE1\xB9\xAB", # LATIN CAPITAL LETTER T WITH DOT ABOVE
843             "\xE1\xB9\xAC" => "\xE1\xB9\xAD", # LATIN CAPITAL LETTER T WITH DOT BELOW
844             "\xE1\xB9\xAE" => "\xE1\xB9\xAF", # LATIN CAPITAL LETTER T WITH LINE BELOW
845             "\xE1\xB9\xB0" => "\xE1\xB9\xB1", # LATIN CAPITAL LETTER T WITH CIRCUMFLEX BELOW
846             "\xE1\xB9\xB2" => "\xE1\xB9\xB3", # LATIN CAPITAL LETTER U WITH DIAERESIS BELOW
847             "\xE1\xB9\xB4" => "\xE1\xB9\xB5", # LATIN CAPITAL LETTER U WITH TILDE BELOW
848             "\xE1\xB9\xB6" => "\xE1\xB9\xB7", # LATIN CAPITAL LETTER U WITH CIRCUMFLEX BELOW
849             "\xE1\xB9\xB8" => "\xE1\xB9\xB9", # LATIN CAPITAL LETTER U WITH TILDE AND ACUTE
850             "\xE1\xB9\xBA" => "\xE1\xB9\xBB", # LATIN CAPITAL LETTER U WITH MACRON AND DIAERESIS
851             "\xE1\xB9\xBC" => "\xE1\xB9\xBD", # LATIN CAPITAL LETTER V WITH TILDE
852             "\xE1\xB9\xBE" => "\xE1\xB9\xBF", # LATIN CAPITAL LETTER V WITH DOT BELOW
853             "\xE1\xBA\x80" => "\xE1\xBA\x81", # LATIN CAPITAL LETTER W WITH GRAVE
854             "\xE1\xBA\x82" => "\xE1\xBA\x83", # LATIN CAPITAL LETTER W WITH ACUTE
855             "\xE1\xBA\x84" => "\xE1\xBA\x85", # LATIN CAPITAL LETTER W WITH DIAERESIS
856             "\xE1\xBA\x86" => "\xE1\xBA\x87", # LATIN CAPITAL LETTER W WITH DOT ABOVE
857             "\xE1\xBA\x88" => "\xE1\xBA\x89", # LATIN CAPITAL LETTER W WITH DOT BELOW
858             "\xE1\xBA\x8A" => "\xE1\xBA\x8B", # LATIN CAPITAL LETTER X WITH DOT ABOVE
859             "\xE1\xBA\x8C" => "\xE1\xBA\x8D", # LATIN CAPITAL LETTER X WITH DIAERESIS
860             "\xE1\xBA\x8E" => "\xE1\xBA\x8F", # LATIN CAPITAL LETTER Y WITH DOT ABOVE
861             "\xE1\xBA\x90" => "\xE1\xBA\x91", # LATIN CAPITAL LETTER Z WITH CIRCUMFLEX
862             "\xE1\xBA\x92" => "\xE1\xBA\x93", # LATIN CAPITAL LETTER Z WITH DOT BELOW
863             "\xE1\xBA\x94" => "\xE1\xBA\x95", # LATIN CAPITAL LETTER Z WITH LINE BELOW
864             "\xE1\xBA\x96" => "\x68\xCC\xB1", # LATIN SMALL LETTER H WITH LINE BELOW
865             "\xE1\xBA\x97" => "\x74\xCC\x88", # LATIN SMALL LETTER T WITH DIAERESIS
866             "\xE1\xBA\x98" => "\x77\xCC\x8A", # LATIN SMALL LETTER W WITH RING ABOVE
867             "\xE1\xBA\x99" => "\x79\xCC\x8A", # LATIN SMALL LETTER Y WITH RING ABOVE
868             "\xE1\xBA\x9A" => "\x61\xCA\xBE", # LATIN SMALL LETTER A WITH RIGHT HALF RING
869             "\xE1\xBA\x9B" => "\xE1\xB9\xA1", # LATIN SMALL LETTER LONG S WITH DOT ABOVE
870             "\xE1\xBA\x9E" => "\x73\x73", # LATIN CAPITAL LETTER SHARP S
871             "\xE1\xBA\xA0" => "\xE1\xBA\xA1", # LATIN CAPITAL LETTER A WITH DOT BELOW
872             "\xE1\xBA\xA2" => "\xE1\xBA\xA3", # LATIN CAPITAL LETTER A WITH HOOK ABOVE
873             "\xE1\xBA\xA4" => "\xE1\xBA\xA5", # LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND ACUTE
874             "\xE1\xBA\xA6" => "\xE1\xBA\xA7", # LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND GRAVE
875             "\xE1\xBA\xA8" => "\xE1\xBA\xA9", # LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND HOOK ABOVE
876             "\xE1\xBA\xAA" => "\xE1\xBA\xAB", # LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND TILDE
877             "\xE1\xBA\xAC" => "\xE1\xBA\xAD", # LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND DOT BELOW
878             "\xE1\xBA\xAE" => "\xE1\xBA\xAF", # LATIN CAPITAL LETTER A WITH BREVE AND ACUTE
879             "\xE1\xBA\xB0" => "\xE1\xBA\xB1", # LATIN CAPITAL LETTER A WITH BREVE AND GRAVE
880             "\xE1\xBA\xB2" => "\xE1\xBA\xB3", # LATIN CAPITAL LETTER A WITH BREVE AND HOOK ABOVE
881             "\xE1\xBA\xB4" => "\xE1\xBA\xB5", # LATIN CAPITAL LETTER A WITH BREVE AND TILDE
882             "\xE1\xBA\xB6" => "\xE1\xBA\xB7", # LATIN CAPITAL LETTER A WITH BREVE AND DOT BELOW
883             "\xE1\xBA\xB8" => "\xE1\xBA\xB9", # LATIN CAPITAL LETTER E WITH DOT BELOW
884             "\xE1\xBA\xBA" => "\xE1\xBA\xBB", # LATIN CAPITAL LETTER E WITH HOOK ABOVE
885             "\xE1\xBA\xBC" => "\xE1\xBA\xBD", # LATIN CAPITAL LETTER E WITH TILDE
886             "\xE1\xBA\xBE" => "\xE1\xBA\xBF", # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND ACUTE
887             "\xE1\xBB\x80" => "\xE1\xBB\x81", # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND GRAVE
888             "\xE1\xBB\x82" => "\xE1\xBB\x83", # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE
889             "\xE1\xBB\x84" => "\xE1\xBB\x85", # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND TILDE
890             "\xE1\xBB\x86" => "\xE1\xBB\x87", # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND DOT BELOW
891             "\xE1\xBB\x88" => "\xE1\xBB\x89", # LATIN CAPITAL LETTER I WITH HOOK ABOVE
892             "\xE1\xBB\x8A" => "\xE1\xBB\x8B", # LATIN CAPITAL LETTER I WITH DOT BELOW
893             "\xE1\xBB\x8C" => "\xE1\xBB\x8D", # LATIN CAPITAL LETTER O WITH DOT BELOW
894             "\xE1\xBB\x8E" => "\xE1\xBB\x8F", # LATIN CAPITAL LETTER O WITH HOOK ABOVE
895             "\xE1\xBB\x90" => "\xE1\xBB\x91", # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND ACUTE
896             "\xE1\xBB\x92" => "\xE1\xBB\x93", # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND GRAVE
897             "\xE1\xBB\x94" => "\xE1\xBB\x95", # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND HOOK ABOVE
898             "\xE1\xBB\x96" => "\xE1\xBB\x97", # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND TILDE
899             "\xE1\xBB\x98" => "\xE1\xBB\x99", # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND DOT BELOW
900             "\xE1\xBB\x9A" => "\xE1\xBB\x9B", # LATIN CAPITAL LETTER O WITH HORN AND ACUTE
901             "\xE1\xBB\x9C" => "\xE1\xBB\x9D", # LATIN CAPITAL LETTER O WITH HORN AND GRAVE
902             "\xE1\xBB\x9E" => "\xE1\xBB\x9F", # LATIN CAPITAL LETTER O WITH HORN AND HOOK ABOVE
903             "\xE1\xBB\xA0" => "\xE1\xBB\xA1", # LATIN CAPITAL LETTER O WITH HORN AND TILDE
904             "\xE1\xBB\xA2" => "\xE1\xBB\xA3", # LATIN CAPITAL LETTER O WITH HORN AND DOT BELOW
905             "\xE1\xBB\xA4" => "\xE1\xBB\xA5", # LATIN CAPITAL LETTER U WITH DOT BELOW
906             "\xE1\xBB\xA6" => "\xE1\xBB\xA7", # LATIN CAPITAL LETTER U WITH HOOK ABOVE
907             "\xE1\xBB\xA8" => "\xE1\xBB\xA9", # LATIN CAPITAL LETTER U WITH HORN AND ACUTE
908             "\xE1\xBB\xAA" => "\xE1\xBB\xAB", # LATIN CAPITAL LETTER U WITH HORN AND GRAVE
909             "\xE1\xBB\xAC" => "\xE1\xBB\xAD", # LATIN CAPITAL LETTER U WITH HORN AND HOOK ABOVE
910             "\xE1\xBB\xAE" => "\xE1\xBB\xAF", # LATIN CAPITAL LETTER U WITH HORN AND TILDE
911             "\xE1\xBB\xB0" => "\xE1\xBB\xB1", # LATIN CAPITAL LETTER U WITH HORN AND DOT BELOW
912             "\xE1\xBB\xB2" => "\xE1\xBB\xB3", # LATIN CAPITAL LETTER Y WITH GRAVE
913             "\xE1\xBB\xB4" => "\xE1\xBB\xB5", # LATIN CAPITAL LETTER Y WITH DOT BELOW
914             "\xE1\xBB\xB6" => "\xE1\xBB\xB7", # LATIN CAPITAL LETTER Y WITH HOOK ABOVE
915             "\xE1\xBB\xB8" => "\xE1\xBB\xB9", # LATIN CAPITAL LETTER Y WITH TILDE
916             "\xE1\xBB\xBA" => "\xE1\xBB\xBB", # LATIN CAPITAL LETTER MIDDLE-WELSH LL
917             "\xE1\xBB\xBC" => "\xE1\xBB\xBD", # LATIN CAPITAL LETTER MIDDLE-WELSH V
918             "\xE1\xBB\xBE" => "\xE1\xBB\xBF", # LATIN CAPITAL LETTER Y WITH LOOP
919             "\xE1\xBC\x88" => "\xE1\xBC\x80", # GREEK CAPITAL LETTER ALPHA WITH PSILI
920             "\xE1\xBC\x89" => "\xE1\xBC\x81", # GREEK CAPITAL LETTER ALPHA WITH DASIA
921             "\xE1\xBC\x8A" => "\xE1\xBC\x82", # GREEK CAPITAL LETTER ALPHA WITH PSILI AND VARIA
922             "\xE1\xBC\x8B" => "\xE1\xBC\x83", # GREEK CAPITAL LETTER ALPHA WITH DASIA AND VARIA
923             "\xE1\xBC\x8C" => "\xE1\xBC\x84", # GREEK CAPITAL LETTER ALPHA WITH PSILI AND OXIA
924             "\xE1\xBC\x8D" => "\xE1\xBC\x85", # GREEK CAPITAL LETTER ALPHA WITH DASIA AND OXIA
925             "\xE1\xBC\x8E" => "\xE1\xBC\x86", # GREEK CAPITAL LETTER ALPHA WITH PSILI AND PERISPOMENI
926             "\xE1\xBC\x8F" => "\xE1\xBC\x87", # GREEK CAPITAL LETTER ALPHA WITH DASIA AND PERISPOMENI
927             "\xE1\xBC\x98" => "\xE1\xBC\x90", # GREEK CAPITAL LETTER EPSILON WITH PSILI
928             "\xE1\xBC\x99" => "\xE1\xBC\x91", # GREEK CAPITAL LETTER EPSILON WITH DASIA
929             "\xE1\xBC\x9A" => "\xE1\xBC\x92", # GREEK CAPITAL LETTER EPSILON WITH PSILI AND VARIA
930             "\xE1\xBC\x9B" => "\xE1\xBC\x93", # GREEK CAPITAL LETTER EPSILON WITH DASIA AND VARIA
931             "\xE1\xBC\x9C" => "\xE1\xBC\x94", # GREEK CAPITAL LETTER EPSILON WITH PSILI AND OXIA
932             "\xE1\xBC\x9D" => "\xE1\xBC\x95", # GREEK CAPITAL LETTER EPSILON WITH DASIA AND OXIA
933             "\xE1\xBC\xA8" => "\xE1\xBC\xA0", # GREEK CAPITAL LETTER ETA WITH PSILI
934             "\xE1\xBC\xA9" => "\xE1\xBC\xA1", # GREEK CAPITAL LETTER ETA WITH DASIA
935             "\xE1\xBC\xAA" => "\xE1\xBC\xA2", # GREEK CAPITAL LETTER ETA WITH PSILI AND VARIA
936             "\xE1\xBC\xAB" => "\xE1\xBC\xA3", # GREEK CAPITAL LETTER ETA WITH DASIA AND VARIA
937             "\xE1\xBC\xAC" => "\xE1\xBC\xA4", # GREEK CAPITAL LETTER ETA WITH PSILI AND OXIA
938             "\xE1\xBC\xAD" => "\xE1\xBC\xA5", # GREEK CAPITAL LETTER ETA WITH DASIA AND OXIA
939             "\xE1\xBC\xAE" => "\xE1\xBC\xA6", # GREEK CAPITAL LETTER ETA WITH PSILI AND PERISPOMENI
940             "\xE1\xBC\xAF" => "\xE1\xBC\xA7", # GREEK CAPITAL LETTER ETA WITH DASIA AND PERISPOMENI
941             "\xE1\xBC\xB8" => "\xE1\xBC\xB0", # GREEK CAPITAL LETTER IOTA WITH PSILI
942             "\xE1\xBC\xB9" => "\xE1\xBC\xB1", # GREEK CAPITAL LETTER IOTA WITH DASIA
943             "\xE1\xBC\xBA" => "\xE1\xBC\xB2", # GREEK CAPITAL LETTER IOTA WITH PSILI AND VARIA
944             "\xE1\xBC\xBB" => "\xE1\xBC\xB3", # GREEK CAPITAL LETTER IOTA WITH DASIA AND VARIA
945             "\xE1\xBC\xBC" => "\xE1\xBC\xB4", # GREEK CAPITAL LETTER IOTA WITH PSILI AND OXIA
946             "\xE1\xBC\xBD" => "\xE1\xBC\xB5", # GREEK CAPITAL LETTER IOTA WITH DASIA AND OXIA
947             "\xE1\xBC\xBE" => "\xE1\xBC\xB6", # GREEK CAPITAL LETTER IOTA WITH PSILI AND PERISPOMENI
948             "\xE1\xBC\xBF" => "\xE1\xBC\xB7", # GREEK CAPITAL LETTER IOTA WITH DASIA AND PERISPOMENI
949             "\xE1\xBD\x88" => "\xE1\xBD\x80", # GREEK CAPITAL LETTER OMICRON WITH PSILI
950             "\xE1\xBD\x89" => "\xE1\xBD\x81", # GREEK CAPITAL LETTER OMICRON WITH DASIA
951             "\xE1\xBD\x8A" => "\xE1\xBD\x82", # GREEK CAPITAL LETTER OMICRON WITH PSILI AND VARIA
952             "\xE1\xBD\x8B" => "\xE1\xBD\x83", # GREEK CAPITAL LETTER OMICRON WITH DASIA AND VARIA
953             "\xE1\xBD\x8C" => "\xE1\xBD\x84", # GREEK CAPITAL LETTER OMICRON WITH PSILI AND OXIA
954             "\xE1\xBD\x8D" => "\xE1\xBD\x85", # GREEK CAPITAL LETTER OMICRON WITH DASIA AND OXIA
955             "\xE1\xBD\x90" => "\xCF\x85\xCC\x93", # GREEK SMALL LETTER UPSILON WITH PSILI
956             "\xE1\xBD\x92" => "\xCF\x85\xCC\x93\xCC\x80", # GREEK SMALL LETTER UPSILON WITH PSILI AND VARIA
957             "\xE1\xBD\x94" => "\xCF\x85\xCC\x93\xCC\x81", # GREEK SMALL LETTER UPSILON WITH PSILI AND OXIA
958             "\xE1\xBD\x96" => "\xCF\x85\xCC\x93\xCD\x82", # GREEK SMALL LETTER UPSILON WITH PSILI AND PERISPOMENI
959             "\xE1\xBD\x99" => "\xE1\xBD\x91", # GREEK CAPITAL LETTER UPSILON WITH DASIA
960             "\xE1\xBD\x9B" => "\xE1\xBD\x93", # GREEK CAPITAL LETTER UPSILON WITH DASIA AND VARIA
961             "\xE1\xBD\x9D" => "\xE1\xBD\x95", # GREEK CAPITAL LETTER UPSILON WITH DASIA AND OXIA
962             "\xE1\xBD\x9F" => "\xE1\xBD\x97", # GREEK CAPITAL LETTER UPSILON WITH DASIA AND PERISPOMENI
963             "\xE1\xBD\xA8" => "\xE1\xBD\xA0", # GREEK CAPITAL LETTER OMEGA WITH PSILI
964             "\xE1\xBD\xA9" => "\xE1\xBD\xA1", # GREEK CAPITAL LETTER OMEGA WITH DASIA
965             "\xE1\xBD\xAA" => "\xE1\xBD\xA2", # GREEK CAPITAL LETTER OMEGA WITH PSILI AND VARIA
966             "\xE1\xBD\xAB" => "\xE1\xBD\xA3", # GREEK CAPITAL LETTER OMEGA WITH DASIA AND VARIA
967             "\xE1\xBD\xAC" => "\xE1\xBD\xA4", # GREEK CAPITAL LETTER OMEGA WITH PSILI AND OXIA
968             "\xE1\xBD\xAD" => "\xE1\xBD\xA5", # GREEK CAPITAL LETTER OMEGA WITH DASIA AND OXIA
969             "\xE1\xBD\xAE" => "\xE1\xBD\xA6", # GREEK CAPITAL LETTER OMEGA WITH PSILI AND PERISPOMENI
970             "\xE1\xBD\xAF" => "\xE1\xBD\xA7", # GREEK CAPITAL LETTER OMEGA WITH DASIA AND PERISPOMENI
971             "\xE1\xBE\x80" => "\xE1\xBC\x80\xCE\xB9", # GREEK SMALL LETTER ALPHA WITH PSILI AND YPOGEGRAMMENI
972             "\xE1\xBE\x81" => "\xE1\xBC\x81\xCE\xB9", # GREEK SMALL LETTER ALPHA WITH DASIA AND YPOGEGRAMMENI
973             "\xE1\xBE\x82" => "\xE1\xBC\x82\xCE\xB9", # GREEK SMALL LETTER ALPHA WITH PSILI AND VARIA AND YPOGEGRAMMENI
974             "\xE1\xBE\x83" => "\xE1\xBC\x83\xCE\xB9", # GREEK SMALL LETTER ALPHA WITH DASIA AND VARIA AND YPOGEGRAMMENI
975             "\xE1\xBE\x84" => "\xE1\xBC\x84\xCE\xB9", # GREEK SMALL LETTER ALPHA WITH PSILI AND OXIA AND YPOGEGRAMMENI
976             "\xE1\xBE\x85" => "\xE1\xBC\x85\xCE\xB9", # GREEK SMALL LETTER ALPHA WITH DASIA AND OXIA AND YPOGEGRAMMENI
977             "\xE1\xBE\x86" => "\xE1\xBC\x86\xCE\xB9", # GREEK SMALL LETTER ALPHA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI
978             "\xE1\xBE\x87" => "\xE1\xBC\x87\xCE\xB9", # GREEK SMALL LETTER ALPHA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI
979             "\xE1\xBE\x88" => "\xE1\xBC\x80\xCE\xB9", # GREEK CAPITAL LETTER ALPHA WITH PSILI AND PROSGEGRAMMENI
980             "\xE1\xBE\x89" => "\xE1\xBC\x81\xCE\xB9", # GREEK CAPITAL LETTER ALPHA WITH DASIA AND PROSGEGRAMMENI
981             "\xE1\xBE\x8A" => "\xE1\xBC\x82\xCE\xB9", # GREEK CAPITAL LETTER ALPHA WITH PSILI AND VARIA AND PROSGEGRAMMENI
982             "\xE1\xBE\x8B" => "\xE1\xBC\x83\xCE\xB9", # GREEK CAPITAL LETTER ALPHA WITH DASIA AND VARIA AND PROSGEGRAMMENI
983             "\xE1\xBE\x8C" => "\xE1\xBC\x84\xCE\xB9", # GREEK CAPITAL LETTER ALPHA WITH PSILI AND OXIA AND PROSGEGRAMMENI
984             "\xE1\xBE\x8D" => "\xE1\xBC\x85\xCE\xB9", # GREEK CAPITAL LETTER ALPHA WITH DASIA AND OXIA AND PROSGEGRAMMENI
985             "\xE1\xBE\x8E" => "\xE1\xBC\x86\xCE\xB9", # GREEK CAPITAL LETTER ALPHA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI
986             "\xE1\xBE\x8F" => "\xE1\xBC\x87\xCE\xB9", # GREEK CAPITAL LETTER ALPHA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI
987             "\xE1\xBE\x90" => "\xE1\xBC\xA0\xCE\xB9", # GREEK SMALL LETTER ETA WITH PSILI AND YPOGEGRAMMENI
988             "\xE1\xBE\x91" => "\xE1\xBC\xA1\xCE\xB9", # GREEK SMALL LETTER ETA WITH DASIA AND YPOGEGRAMMENI
989             "\xE1\xBE\x92" => "\xE1\xBC\xA2\xCE\xB9", # GREEK SMALL LETTER ETA WITH PSILI AND VARIA AND YPOGEGRAMMENI
990             "\xE1\xBE\x93" => "\xE1\xBC\xA3\xCE\xB9", # GREEK SMALL LETTER ETA WITH DASIA AND VARIA AND YPOGEGRAMMENI
991             "\xE1\xBE\x94" => "\xE1\xBC\xA4\xCE\xB9", # GREEK SMALL LETTER ETA WITH PSILI AND OXIA AND YPOGEGRAMMENI
992             "\xE1\xBE\x95" => "\xE1\xBC\xA5\xCE\xB9", # GREEK SMALL LETTER ETA WITH DASIA AND OXIA AND YPOGEGRAMMENI
993             "\xE1\xBE\x96" => "\xE1\xBC\xA6\xCE\xB9", # GREEK SMALL LETTER ETA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI
994             "\xE1\xBE\x97" => "\xE1\xBC\xA7\xCE\xB9", # GREEK SMALL LETTER ETA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI
995             "\xE1\xBE\x98" => "\xE1\xBC\xA0\xCE\xB9", # GREEK CAPITAL LETTER ETA WITH PSILI AND PROSGEGRAMMENI
996             "\xE1\xBE\x99" => "\xE1\xBC\xA1\xCE\xB9", # GREEK CAPITAL LETTER ETA WITH DASIA AND PROSGEGRAMMENI
997             "\xE1\xBE\x9A" => "\xE1\xBC\xA2\xCE\xB9", # GREEK CAPITAL LETTER ETA WITH PSILI AND VARIA AND PROSGEGRAMMENI
998             "\xE1\xBE\x9B" => "\xE1\xBC\xA3\xCE\xB9", # GREEK CAPITAL LETTER ETA WITH DASIA AND VARIA AND PROSGEGRAMMENI
999             "\xE1\xBE\x9C" => "\xE1\xBC\xA4\xCE\xB9", # GREEK CAPITAL LETTER ETA WITH PSILI AND OXIA AND PROSGEGRAMMENI
1000             "\xE1\xBE\x9D" => "\xE1\xBC\xA5\xCE\xB9", # GREEK CAPITAL LETTER ETA WITH DASIA AND OXIA AND PROSGEGRAMMENI
1001             "\xE1\xBE\x9E" => "\xE1\xBC\xA6\xCE\xB9", # GREEK CAPITAL LETTER ETA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI
1002             "\xE1\xBE\x9F" => "\xE1\xBC\xA7\xCE\xB9", # GREEK CAPITAL LETTER ETA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI
1003             "\xE1\xBE\xA0" => "\xE1\xBD\xA0\xCE\xB9", # GREEK SMALL LETTER OMEGA WITH PSILI AND YPOGEGRAMMENI
1004             "\xE1\xBE\xA1" => "\xE1\xBD\xA1\xCE\xB9", # GREEK SMALL LETTER OMEGA WITH DASIA AND YPOGEGRAMMENI
1005             "\xE1\xBE\xA2" => "\xE1\xBD\xA2\xCE\xB9", # GREEK SMALL LETTER OMEGA WITH PSILI AND VARIA AND YPOGEGRAMMENI
1006             "\xE1\xBE\xA3" => "\xE1\xBD\xA3\xCE\xB9", # GREEK SMALL LETTER OMEGA WITH DASIA AND VARIA AND YPOGEGRAMMENI
1007             "\xE1\xBE\xA4" => "\xE1\xBD\xA4\xCE\xB9", # GREEK SMALL LETTER OMEGA WITH PSILI AND OXIA AND YPOGEGRAMMENI
1008             "\xE1\xBE\xA5" => "\xE1\xBD\xA5\xCE\xB9", # GREEK SMALL LETTER OMEGA WITH DASIA AND OXIA AND YPOGEGRAMMENI
1009             "\xE1\xBE\xA6" => "\xE1\xBD\xA6\xCE\xB9", # GREEK SMALL LETTER OMEGA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI
1010             "\xE1\xBE\xA7" => "\xE1\xBD\xA7\xCE\xB9", # GREEK SMALL LETTER OMEGA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI
1011             "\xE1\xBE\xA8" => "\xE1\xBD\xA0\xCE\xB9", # GREEK CAPITAL LETTER OMEGA WITH PSILI AND PROSGEGRAMMENI
1012             "\xE1\xBE\xA9" => "\xE1\xBD\xA1\xCE\xB9", # GREEK CAPITAL LETTER OMEGA WITH DASIA AND PROSGEGRAMMENI
1013             "\xE1\xBE\xAA" => "\xE1\xBD\xA2\xCE\xB9", # GREEK CAPITAL LETTER OMEGA WITH PSILI AND VARIA AND PROSGEGRAMMENI
1014             "\xE1\xBE\xAB" => "\xE1\xBD\xA3\xCE\xB9", # GREEK CAPITAL LETTER OMEGA WITH DASIA AND VARIA AND PROSGEGRAMMENI
1015             "\xE1\xBE\xAC" => "\xE1\xBD\xA4\xCE\xB9", # GREEK CAPITAL LETTER OMEGA WITH PSILI AND OXIA AND PROSGEGRAMMENI
1016             "\xE1\xBE\xAD" => "\xE1\xBD\xA5\xCE\xB9", # GREEK CAPITAL LETTER OMEGA WITH DASIA AND OXIA AND PROSGEGRAMMENI
1017             "\xE1\xBE\xAE" => "\xE1\xBD\xA6\xCE\xB9", # GREEK CAPITAL LETTER OMEGA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI
1018             "\xE1\xBE\xAF" => "\xE1\xBD\xA7\xCE\xB9", # GREEK CAPITAL LETTER OMEGA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI
1019             "\xE1\xBE\xB2" => "\xE1\xBD\xB0\xCE\xB9", # GREEK SMALL LETTER ALPHA WITH VARIA AND YPOGEGRAMMENI
1020             "\xE1\xBE\xB3" => "\xCE\xB1\xCE\xB9", # GREEK SMALL LETTER ALPHA WITH YPOGEGRAMMENI
1021             "\xE1\xBE\xB4" => "\xCE\xAC\xCE\xB9", # GREEK SMALL LETTER ALPHA WITH OXIA AND YPOGEGRAMMENI
1022             "\xE1\xBE\xB6" => "\xCE\xB1\xCD\x82", # GREEK SMALL LETTER ALPHA WITH PERISPOMENI
1023             "\xE1\xBE\xB7" => "\xCE\xB1\xCD\x82\xCE\xB9", # GREEK SMALL LETTER ALPHA WITH PERISPOMENI AND YPOGEGRAMMENI
1024             "\xE1\xBE\xB8" => "\xE1\xBE\xB0", # GREEK CAPITAL LETTER ALPHA WITH VRACHY
1025             "\xE1\xBE\xB9" => "\xE1\xBE\xB1", # GREEK CAPITAL LETTER ALPHA WITH MACRON
1026             "\xE1\xBE\xBA" => "\xE1\xBD\xB0", # GREEK CAPITAL LETTER ALPHA WITH VARIA
1027             "\xE1\xBE\xBB" => "\xE1\xBD\xB1", # GREEK CAPITAL LETTER ALPHA WITH OXIA
1028             "\xE1\xBE\xBC" => "\xCE\xB1\xCE\xB9", # GREEK CAPITAL LETTER ALPHA WITH PROSGEGRAMMENI
1029             "\xE1\xBE\xBE" => "\xCE\xB9", # GREEK PROSGEGRAMMENI
1030             "\xE1\xBF\x82" => "\xE1\xBD\xB4\xCE\xB9", # GREEK SMALL LETTER ETA WITH VARIA AND YPOGEGRAMMENI
1031             "\xE1\xBF\x83" => "\xCE\xB7\xCE\xB9", # GREEK SMALL LETTER ETA WITH YPOGEGRAMMENI
1032             "\xE1\xBF\x84" => "\xCE\xAE\xCE\xB9", # GREEK SMALL LETTER ETA WITH OXIA AND YPOGEGRAMMENI
1033             "\xE1\xBF\x86" => "\xCE\xB7\xCD\x82", # GREEK SMALL LETTER ETA WITH PERISPOMENI
1034             "\xE1\xBF\x87" => "\xCE\xB7\xCD\x82\xCE\xB9", # GREEK SMALL LETTER ETA WITH PERISPOMENI AND YPOGEGRAMMENI
1035             "\xE1\xBF\x88" => "\xE1\xBD\xB2", # GREEK CAPITAL LETTER EPSILON WITH VARIA
1036             "\xE1\xBF\x89" => "\xE1\xBD\xB3", # GREEK CAPITAL LETTER EPSILON WITH OXIA
1037             "\xE1\xBF\x8A" => "\xE1\xBD\xB4", # GREEK CAPITAL LETTER ETA WITH VARIA
1038             "\xE1\xBF\x8B" => "\xE1\xBD\xB5", # GREEK CAPITAL LETTER ETA WITH OXIA
1039             "\xE1\xBF\x8C" => "\xCE\xB7\xCE\xB9", # GREEK CAPITAL LETTER ETA WITH PROSGEGRAMMENI
1040             "\xE1\xBF\x92" => "\xCE\xB9\xCC\x88\xCC\x80", # GREEK SMALL LETTER IOTA WITH DIALYTIKA AND VARIA
1041             "\xE1\xBF\x93" => "\xCE\xB9\xCC\x88\xCC\x81", # GREEK SMALL LETTER IOTA WITH DIALYTIKA AND OXIA
1042             "\xE1\xBF\x96" => "\xCE\xB9\xCD\x82", # GREEK SMALL LETTER IOTA WITH PERISPOMENI
1043             "\xE1\xBF\x97" => "\xCE\xB9\xCC\x88\xCD\x82", # GREEK SMALL LETTER IOTA WITH DIALYTIKA AND PERISPOMENI
1044             "\xE1\xBF\x98" => "\xE1\xBF\x90", # GREEK CAPITAL LETTER IOTA WITH VRACHY
1045             "\xE1\xBF\x99" => "\xE1\xBF\x91", # GREEK CAPITAL LETTER IOTA WITH MACRON
1046             "\xE1\xBF\x9A" => "\xE1\xBD\xB6", # GREEK CAPITAL LETTER IOTA WITH VARIA
1047             "\xE1\xBF\x9B" => "\xE1\xBD\xB7", # GREEK CAPITAL LETTER IOTA WITH OXIA
1048             "\xE1\xBF\xA2" => "\xCF\x85\xCC\x88\xCC\x80", # GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND VARIA
1049             "\xE1\xBF\xA3" => "\xCF\x85\xCC\x88\xCC\x81", # GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND OXIA
1050             "\xE1\xBF\xA4" => "\xCF\x81\xCC\x93", # GREEK SMALL LETTER RHO WITH PSILI
1051             "\xE1\xBF\xA6" => "\xCF\x85\xCD\x82", # GREEK SMALL LETTER UPSILON WITH PERISPOMENI
1052             "\xE1\xBF\xA7" => "\xCF\x85\xCC\x88\xCD\x82", # GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND PERISPOMENI
1053             "\xE1\xBF\xA8" => "\xE1\xBF\xA0", # GREEK CAPITAL LETTER UPSILON WITH VRACHY
1054             "\xE1\xBF\xA9" => "\xE1\xBF\xA1", # GREEK CAPITAL LETTER UPSILON WITH MACRON
1055             "\xE1\xBF\xAA" => "\xE1\xBD\xBA", # GREEK CAPITAL LETTER UPSILON WITH VARIA
1056             "\xE1\xBF\xAB" => "\xE1\xBD\xBB", # GREEK CAPITAL LETTER UPSILON WITH OXIA
1057             "\xE1\xBF\xAC" => "\xE1\xBF\xA5", # GREEK CAPITAL LETTER RHO WITH DASIA
1058             "\xE1\xBF\xB2" => "\xE1\xBD\xBC\xCE\xB9", # GREEK SMALL LETTER OMEGA WITH VARIA AND YPOGEGRAMMENI
1059             "\xE1\xBF\xB3" => "\xCF\x89\xCE\xB9", # GREEK SMALL LETTER OMEGA WITH YPOGEGRAMMENI
1060             "\xE1\xBF\xB4" => "\xCF\x8E\xCE\xB9", # GREEK SMALL LETTER OMEGA WITH OXIA AND YPOGEGRAMMENI
1061             "\xE1\xBF\xB6" => "\xCF\x89\xCD\x82", # GREEK SMALL LETTER OMEGA WITH PERISPOMENI
1062             "\xE1\xBF\xB7" => "\xCF\x89\xCD\x82\xCE\xB9", # GREEK SMALL LETTER OMEGA WITH PERISPOMENI AND YPOGEGRAMMENI
1063             "\xE1\xBF\xB8" => "\xE1\xBD\xB8", # GREEK CAPITAL LETTER OMICRON WITH VARIA
1064             "\xE1\xBF\xB9" => "\xE1\xBD\xB9", # GREEK CAPITAL LETTER OMICRON WITH OXIA
1065             "\xE1\xBF\xBA" => "\xE1\xBD\xBC", # GREEK CAPITAL LETTER OMEGA WITH VARIA
1066             "\xE1\xBF\xBB" => "\xE1\xBD\xBD", # GREEK CAPITAL LETTER OMEGA WITH OXIA
1067             "\xE1\xBF\xBC" => "\xCF\x89\xCE\xB9", # GREEK CAPITAL LETTER OMEGA WITH PROSGEGRAMMENI
1068             "\xE2\x84\xA6" => "\xCF\x89", # OHM SIGN
1069             "\xE2\x84\xAA" => "\x6B", # KELVIN SIGN
1070             "\xE2\x84\xAB" => "\xC3\xA5", # ANGSTROM SIGN
1071             "\xE2\x84\xB2" => "\xE2\x85\x8E", # TURNED CAPITAL F
1072             "\xE2\x85\xA0" => "\xE2\x85\xB0", # ROMAN NUMERAL ONE
1073             "\xE2\x85\xA1" => "\xE2\x85\xB1", # ROMAN NUMERAL TWO
1074             "\xE2\x85\xA2" => "\xE2\x85\xB2", # ROMAN NUMERAL THREE
1075             "\xE2\x85\xA3" => "\xE2\x85\xB3", # ROMAN NUMERAL FOUR
1076             "\xE2\x85\xA4" => "\xE2\x85\xB4", # ROMAN NUMERAL FIVE
1077             "\xE2\x85\xA5" => "\xE2\x85\xB5", # ROMAN NUMERAL SIX
1078             "\xE2\x85\xA6" => "\xE2\x85\xB6", # ROMAN NUMERAL SEVEN
1079             "\xE2\x85\xA7" => "\xE2\x85\xB7", # ROMAN NUMERAL EIGHT
1080             "\xE2\x85\xA8" => "\xE2\x85\xB8", # ROMAN NUMERAL NINE
1081             "\xE2\x85\xA9" => "\xE2\x85\xB9", # ROMAN NUMERAL TEN
1082             "\xE2\x85\xAA" => "\xE2\x85\xBA", # ROMAN NUMERAL ELEVEN
1083             "\xE2\x85\xAB" => "\xE2\x85\xBB", # ROMAN NUMERAL TWELVE
1084             "\xE2\x85\xAC" => "\xE2\x85\xBC", # ROMAN NUMERAL FIFTY
1085             "\xE2\x85\xAD" => "\xE2\x85\xBD", # ROMAN NUMERAL ONE HUNDRED
1086             "\xE2\x85\xAE" => "\xE2\x85\xBE", # ROMAN NUMERAL FIVE HUNDRED
1087             "\xE2\x85\xAF" => "\xE2\x85\xBF", # ROMAN NUMERAL ONE THOUSAND
1088             "\xE2\x86\x83" => "\xE2\x86\x84", # ROMAN NUMERAL REVERSED ONE HUNDRED
1089             "\xE2\x92\xB6" => "\xE2\x93\x90", # CIRCLED LATIN CAPITAL LETTER A
1090             "\xE2\x92\xB7" => "\xE2\x93\x91", # CIRCLED LATIN CAPITAL LETTER B
1091             "\xE2\x92\xB8" => "\xE2\x93\x92", # CIRCLED LATIN CAPITAL LETTER C
1092             "\xE2\x92\xB9" => "\xE2\x93\x93", # CIRCLED LATIN CAPITAL LETTER D
1093             "\xE2\x92\xBA" => "\xE2\x93\x94", # CIRCLED LATIN CAPITAL LETTER E
1094             "\xE2\x92\xBB" => "\xE2\x93\x95", # CIRCLED LATIN CAPITAL LETTER F
1095             "\xE2\x92\xBC" => "\xE2\x93\x96", # CIRCLED LATIN CAPITAL LETTER G
1096             "\xE2\x92\xBD" => "\xE2\x93\x97", # CIRCLED LATIN CAPITAL LETTER H
1097             "\xE2\x92\xBE" => "\xE2\x93\x98", # CIRCLED LATIN CAPITAL LETTER I
1098             "\xE2\x92\xBF" => "\xE2\x93\x99", # CIRCLED LATIN CAPITAL LETTER J
1099             "\xE2\x93\x80" => "\xE2\x93\x9A", # CIRCLED LATIN CAPITAL LETTER K
1100             "\xE2\x93\x81" => "\xE2\x93\x9B", # CIRCLED LATIN CAPITAL LETTER L
1101             "\xE2\x93\x82" => "\xE2\x93\x9C", # CIRCLED LATIN CAPITAL LETTER M
1102             "\xE2\x93\x83" => "\xE2\x93\x9D", # CIRCLED LATIN CAPITAL LETTER N
1103             "\xE2\x93\x84" => "\xE2\x93\x9E", # CIRCLED LATIN CAPITAL LETTER O
1104             "\xE2\x93\x85" => "\xE2\x93\x9F", # CIRCLED LATIN CAPITAL LETTER P
1105             "\xE2\x93\x86" => "\xE2\x93\xA0", # CIRCLED LATIN CAPITAL LETTER Q
1106             "\xE2\x93\x87" => "\xE2\x93\xA1", # CIRCLED LATIN CAPITAL LETTER R
1107             "\xE2\x93\x88" => "\xE2\x93\xA2", # CIRCLED LATIN CAPITAL LETTER S
1108             "\xE2\x93\x89" => "\xE2\x93\xA3", # CIRCLED LATIN CAPITAL LETTER T
1109             "\xE2\x93\x8A" => "\xE2\x93\xA4", # CIRCLED LATIN CAPITAL LETTER U
1110             "\xE2\x93\x8B" => "\xE2\x93\xA5", # CIRCLED LATIN CAPITAL LETTER V
1111             "\xE2\x93\x8C" => "\xE2\x93\xA6", # CIRCLED LATIN CAPITAL LETTER W
1112             "\xE2\x93\x8D" => "\xE2\x93\xA7", # CIRCLED LATIN CAPITAL LETTER X
1113             "\xE2\x93\x8E" => "\xE2\x93\xA8", # CIRCLED LATIN CAPITAL LETTER Y
1114             "\xE2\x93\x8F" => "\xE2\x93\xA9", # CIRCLED LATIN CAPITAL LETTER Z
1115             "\xE2\xB0\x80" => "\xE2\xB0\xB0", # GLAGOLITIC CAPITAL LETTER AZU
1116             "\xE2\xB0\x81" => "\xE2\xB0\xB1", # GLAGOLITIC CAPITAL LETTER BUKY
1117             "\xE2\xB0\x82" => "\xE2\xB0\xB2", # GLAGOLITIC CAPITAL LETTER VEDE
1118             "\xE2\xB0\x83" => "\xE2\xB0\xB3", # GLAGOLITIC CAPITAL LETTER GLAGOLI
1119             "\xE2\xB0\x84" => "\xE2\xB0\xB4", # GLAGOLITIC CAPITAL LETTER DOBRO
1120             "\xE2\xB0\x85" => "\xE2\xB0\xB5", # GLAGOLITIC CAPITAL LETTER YESTU
1121             "\xE2\xB0\x86" => "\xE2\xB0\xB6", # GLAGOLITIC CAPITAL LETTER ZHIVETE
1122             "\xE2\xB0\x87" => "\xE2\xB0\xB7", # GLAGOLITIC CAPITAL LETTER DZELO
1123             "\xE2\xB0\x88" => "\xE2\xB0\xB8", # GLAGOLITIC CAPITAL LETTER ZEMLJA
1124             "\xE2\xB0\x89" => "\xE2\xB0\xB9", # GLAGOLITIC CAPITAL LETTER IZHE
1125             "\xE2\xB0\x8A" => "\xE2\xB0\xBA", # GLAGOLITIC CAPITAL LETTER INITIAL IZHE
1126             "\xE2\xB0\x8B" => "\xE2\xB0\xBB", # GLAGOLITIC CAPITAL LETTER I
1127             "\xE2\xB0\x8C" => "\xE2\xB0\xBC", # GLAGOLITIC CAPITAL LETTER DJERVI
1128             "\xE2\xB0\x8D" => "\xE2\xB0\xBD", # GLAGOLITIC CAPITAL LETTER KAKO
1129             "\xE2\xB0\x8E" => "\xE2\xB0\xBE", # GLAGOLITIC CAPITAL LETTER LJUDIJE
1130             "\xE2\xB0\x8F" => "\xE2\xB0\xBF", # GLAGOLITIC CAPITAL LETTER MYSLITE
1131             "\xE2\xB0\x90" => "\xE2\xB1\x80", # GLAGOLITIC CAPITAL LETTER NASHI
1132             "\xE2\xB0\x91" => "\xE2\xB1\x81", # GLAGOLITIC CAPITAL LETTER ONU
1133             "\xE2\xB0\x92" => "\xE2\xB1\x82", # GLAGOLITIC CAPITAL LETTER POKOJI
1134             "\xE2\xB0\x93" => "\xE2\xB1\x83", # GLAGOLITIC CAPITAL LETTER RITSI
1135             "\xE2\xB0\x94" => "\xE2\xB1\x84", # GLAGOLITIC CAPITAL LETTER SLOVO
1136             "\xE2\xB0\x95" => "\xE2\xB1\x85", # GLAGOLITIC CAPITAL LETTER TVRIDO
1137             "\xE2\xB0\x96" => "\xE2\xB1\x86", # GLAGOLITIC CAPITAL LETTER UKU
1138             "\xE2\xB0\x97" => "\xE2\xB1\x87", # GLAGOLITIC CAPITAL LETTER FRITU
1139             "\xE2\xB0\x98" => "\xE2\xB1\x88", # GLAGOLITIC CAPITAL LETTER HERU
1140             "\xE2\xB0\x99" => "\xE2\xB1\x89", # GLAGOLITIC CAPITAL LETTER OTU
1141             "\xE2\xB0\x9A" => "\xE2\xB1\x8A", # GLAGOLITIC CAPITAL LETTER PE
1142             "\xE2\xB0\x9B" => "\xE2\xB1\x8B", # GLAGOLITIC CAPITAL LETTER SHTA
1143             "\xE2\xB0\x9C" => "\xE2\xB1\x8C", # GLAGOLITIC CAPITAL LETTER TSI
1144             "\xE2\xB0\x9D" => "\xE2\xB1\x8D", # GLAGOLITIC CAPITAL LETTER CHRIVI
1145             "\xE2\xB0\x9E" => "\xE2\xB1\x8E", # GLAGOLITIC CAPITAL LETTER SHA
1146             "\xE2\xB0\x9F" => "\xE2\xB1\x8F", # GLAGOLITIC CAPITAL LETTER YERU
1147             "\xE2\xB0\xA0" => "\xE2\xB1\x90", # GLAGOLITIC CAPITAL LETTER YERI
1148             "\xE2\xB0\xA1" => "\xE2\xB1\x91", # GLAGOLITIC CAPITAL LETTER YATI
1149             "\xE2\xB0\xA2" => "\xE2\xB1\x92", # GLAGOLITIC CAPITAL LETTER SPIDERY HA
1150             "\xE2\xB0\xA3" => "\xE2\xB1\x93", # GLAGOLITIC CAPITAL LETTER YU
1151             "\xE2\xB0\xA4" => "\xE2\xB1\x94", # GLAGOLITIC CAPITAL LETTER SMALL YUS
1152             "\xE2\xB0\xA5" => "\xE2\xB1\x95", # GLAGOLITIC CAPITAL LETTER SMALL YUS WITH TAIL
1153             "\xE2\xB0\xA6" => "\xE2\xB1\x96", # GLAGOLITIC CAPITAL LETTER YO
1154             "\xE2\xB0\xA7" => "\xE2\xB1\x97", # GLAGOLITIC CAPITAL LETTER IOTATED SMALL YUS
1155             "\xE2\xB0\xA8" => "\xE2\xB1\x98", # GLAGOLITIC CAPITAL LETTER BIG YUS
1156             "\xE2\xB0\xA9" => "\xE2\xB1\x99", # GLAGOLITIC CAPITAL LETTER IOTATED BIG YUS
1157             "\xE2\xB0\xAA" => "\xE2\xB1\x9A", # GLAGOLITIC CAPITAL LETTER FITA
1158             "\xE2\xB0\xAB" => "\xE2\xB1\x9B", # GLAGOLITIC CAPITAL LETTER IZHITSA
1159             "\xE2\xB0\xAC" => "\xE2\xB1\x9C", # GLAGOLITIC CAPITAL LETTER SHTAPIC
1160             "\xE2\xB0\xAD" => "\xE2\xB1\x9D", # GLAGOLITIC CAPITAL LETTER TROKUTASTI A
1161             "\xE2\xB0\xAE" => "\xE2\xB1\x9E", # GLAGOLITIC CAPITAL LETTER LATINATE MYSLITE
1162             "\xE2\xB1\xA0" => "\xE2\xB1\xA1", # LATIN CAPITAL LETTER L WITH DOUBLE BAR
1163             "\xE2\xB1\xA2" => "\xC9\xAB", # LATIN CAPITAL LETTER L WITH MIDDLE TILDE
1164             "\xE2\xB1\xA3" => "\xE1\xB5\xBD", # LATIN CAPITAL LETTER P WITH STROKE
1165             "\xE2\xB1\xA4" => "\xC9\xBD", # LATIN CAPITAL LETTER R WITH TAIL
1166             "\xE2\xB1\xA7" => "\xE2\xB1\xA8", # LATIN CAPITAL LETTER H WITH DESCENDER
1167             "\xE2\xB1\xA9" => "\xE2\xB1\xAA", # LATIN CAPITAL LETTER K WITH DESCENDER
1168             "\xE2\xB1\xAB" => "\xE2\xB1\xAC", # LATIN CAPITAL LETTER Z WITH DESCENDER
1169             "\xE2\xB1\xAD" => "\xC9\x91", # LATIN CAPITAL LETTER ALPHA
1170             "\xE2\xB1\xAE" => "\xC9\xB1", # LATIN CAPITAL LETTER M WITH HOOK
1171             "\xE2\xB1\xAF" => "\xC9\x90", # LATIN CAPITAL LETTER TURNED A
1172             "\xE2\xB1\xB0" => "\xC9\x92", # LATIN CAPITAL LETTER TURNED ALPHA
1173             "\xE2\xB1\xB2" => "\xE2\xB1\xB3", # LATIN CAPITAL LETTER W WITH HOOK
1174             "\xE2\xB1\xB5" => "\xE2\xB1\xB6", # LATIN CAPITAL LETTER HALF H
1175             "\xE2\xB1\xBE" => "\xC8\xBF", # LATIN CAPITAL LETTER S WITH SWASH TAIL
1176             "\xE2\xB1\xBF" => "\xC9\x80", # LATIN CAPITAL LETTER Z WITH SWASH TAIL
1177             "\xE2\xB2\x80" => "\xE2\xB2\x81", # COPTIC CAPITAL LETTER ALFA
1178             "\xE2\xB2\x82" => "\xE2\xB2\x83", # COPTIC CAPITAL LETTER VIDA
1179             "\xE2\xB2\x84" => "\xE2\xB2\x85", # COPTIC CAPITAL LETTER GAMMA
1180             "\xE2\xB2\x86" => "\xE2\xB2\x87", # COPTIC CAPITAL LETTER DALDA
1181             "\xE2\xB2\x88" => "\xE2\xB2\x89", # COPTIC CAPITAL LETTER EIE
1182             "\xE2\xB2\x8A" => "\xE2\xB2\x8B", # COPTIC CAPITAL LETTER SOU
1183             "\xE2\xB2\x8C" => "\xE2\xB2\x8D", # COPTIC CAPITAL LETTER ZATA
1184             "\xE2\xB2\x8E" => "\xE2\xB2\x8F", # COPTIC CAPITAL LETTER HATE
1185             "\xE2\xB2\x90" => "\xE2\xB2\x91", # COPTIC CAPITAL LETTER THETHE
1186             "\xE2\xB2\x92" => "\xE2\xB2\x93", # COPTIC CAPITAL LETTER IAUDA
1187             "\xE2\xB2\x94" => "\xE2\xB2\x95", # COPTIC CAPITAL LETTER KAPA
1188             "\xE2\xB2\x96" => "\xE2\xB2\x97", # COPTIC CAPITAL LETTER LAULA
1189             "\xE2\xB2\x98" => "\xE2\xB2\x99", # COPTIC CAPITAL LETTER MI
1190             "\xE2\xB2\x9A" => "\xE2\xB2\x9B", # COPTIC CAPITAL LETTER NI
1191             "\xE2\xB2\x9C" => "\xE2\xB2\x9D", # COPTIC CAPITAL LETTER KSI
1192             "\xE2\xB2\x9E" => "\xE2\xB2\x9F", # COPTIC CAPITAL LETTER O
1193             "\xE2\xB2\xA0" => "\xE2\xB2\xA1", # COPTIC CAPITAL LETTER PI
1194             "\xE2\xB2\xA2" => "\xE2\xB2\xA3", # COPTIC CAPITAL LETTER RO
1195             "\xE2\xB2\xA4" => "\xE2\xB2\xA5", # COPTIC CAPITAL LETTER SIMA
1196             "\xE2\xB2\xA6" => "\xE2\xB2\xA7", # COPTIC CAPITAL LETTER TAU
1197             "\xE2\xB2\xA8" => "\xE2\xB2\xA9", # COPTIC CAPITAL LETTER UA
1198             "\xE2\xB2\xAA" => "\xE2\xB2\xAB", # COPTIC CAPITAL LETTER FI
1199             "\xE2\xB2\xAC" => "\xE2\xB2\xAD", # COPTIC CAPITAL LETTER KHI
1200             "\xE2\xB2\xAE" => "\xE2\xB2\xAF", # COPTIC CAPITAL LETTER PSI
1201             "\xE2\xB2\xB0" => "\xE2\xB2\xB1", # COPTIC CAPITAL LETTER OOU
1202             "\xE2\xB2\xB2" => "\xE2\xB2\xB3", # COPTIC CAPITAL LETTER DIALECT-P ALEF
1203             "\xE2\xB2\xB4" => "\xE2\xB2\xB5", # COPTIC CAPITAL LETTER OLD COPTIC AIN
1204             "\xE2\xB2\xB6" => "\xE2\xB2\xB7", # COPTIC CAPITAL LETTER CRYPTOGRAMMIC EIE
1205             "\xE2\xB2\xB8" => "\xE2\xB2\xB9", # COPTIC CAPITAL LETTER DIALECT-P KAPA
1206             "\xE2\xB2\xBA" => "\xE2\xB2\xBB", # COPTIC CAPITAL LETTER DIALECT-P NI
1207             "\xE2\xB2\xBC" => "\xE2\xB2\xBD", # COPTIC CAPITAL LETTER CRYPTOGRAMMIC NI
1208             "\xE2\xB2\xBE" => "\xE2\xB2\xBF", # COPTIC CAPITAL LETTER OLD COPTIC OOU
1209             "\xE2\xB3\x80" => "\xE2\xB3\x81", # COPTIC CAPITAL LETTER SAMPI
1210             "\xE2\xB3\x82" => "\xE2\xB3\x83", # COPTIC CAPITAL LETTER CROSSED SHEI
1211             "\xE2\xB3\x84" => "\xE2\xB3\x85", # COPTIC CAPITAL LETTER OLD COPTIC SHEI
1212             "\xE2\xB3\x86" => "\xE2\xB3\x87", # COPTIC CAPITAL LETTER OLD COPTIC ESH
1213             "\xE2\xB3\x88" => "\xE2\xB3\x89", # COPTIC CAPITAL LETTER AKHMIMIC KHEI
1214             "\xE2\xB3\x8A" => "\xE2\xB3\x8B", # COPTIC CAPITAL LETTER DIALECT-P HORI
1215             "\xE2\xB3\x8C" => "\xE2\xB3\x8D", # COPTIC CAPITAL LETTER OLD COPTIC HORI
1216             "\xE2\xB3\x8E" => "\xE2\xB3\x8F", # COPTIC CAPITAL LETTER OLD COPTIC HA
1217             "\xE2\xB3\x90" => "\xE2\xB3\x91", # COPTIC CAPITAL LETTER L-SHAPED HA
1218             "\xE2\xB3\x92" => "\xE2\xB3\x93", # COPTIC CAPITAL LETTER OLD COPTIC HEI
1219             "\xE2\xB3\x94" => "\xE2\xB3\x95", # COPTIC CAPITAL LETTER OLD COPTIC HAT
1220             "\xE2\xB3\x96" => "\xE2\xB3\x97", # COPTIC CAPITAL LETTER OLD COPTIC GANGIA
1221             "\xE2\xB3\x98" => "\xE2\xB3\x99", # COPTIC CAPITAL LETTER OLD COPTIC DJA
1222             "\xE2\xB3\x9A" => "\xE2\xB3\x9B", # COPTIC CAPITAL LETTER OLD COPTIC SHIMA
1223             "\xE2\xB3\x9C" => "\xE2\xB3\x9D", # COPTIC CAPITAL LETTER OLD NUBIAN SHIMA
1224             "\xE2\xB3\x9E" => "\xE2\xB3\x9F", # COPTIC CAPITAL LETTER OLD NUBIAN NGI
1225             "\xE2\xB3\xA0" => "\xE2\xB3\xA1", # COPTIC CAPITAL LETTER OLD NUBIAN NYI
1226             "\xE2\xB3\xA2" => "\xE2\xB3\xA3", # COPTIC CAPITAL LETTER OLD NUBIAN WAU
1227             "\xE2\xB3\xAB" => "\xE2\xB3\xAC", # COPTIC CAPITAL LETTER CRYPTOGRAMMIC SHEI
1228             "\xE2\xB3\xAD" => "\xE2\xB3\xAE", # COPTIC CAPITAL LETTER CRYPTOGRAMMIC GANGIA
1229             "\xE2\xB3\xB2" => "\xE2\xB3\xB3", # COPTIC CAPITAL LETTER BOHAIRIC KHEI
1230             "\xEA\x99\x80" => "\xEA\x99\x81", # CYRILLIC CAPITAL LETTER ZEMLYA
1231             "\xEA\x99\x82" => "\xEA\x99\x83", # CYRILLIC CAPITAL LETTER DZELO
1232             "\xEA\x99\x84" => "\xEA\x99\x85", # CYRILLIC CAPITAL LETTER REVERSED DZE
1233             "\xEA\x99\x86" => "\xEA\x99\x87", # CYRILLIC CAPITAL LETTER IOTA
1234             "\xEA\x99\x88" => "\xEA\x99\x89", # CYRILLIC CAPITAL LETTER DJERV
1235             "\xEA\x99\x8A" => "\xEA\x99\x8B", # CYRILLIC CAPITAL LETTER MONOGRAPH UK
1236             "\xEA\x99\x8C" => "\xEA\x99\x8D", # CYRILLIC CAPITAL LETTER BROAD OMEGA
1237             "\xEA\x99\x8E" => "\xEA\x99\x8F", # CYRILLIC CAPITAL LETTER NEUTRAL YER
1238             "\xEA\x99\x90" => "\xEA\x99\x91", # CYRILLIC CAPITAL LETTER YERU WITH BACK YER
1239             "\xEA\x99\x92" => "\xEA\x99\x93", # CYRILLIC CAPITAL LETTER IOTIFIED YAT
1240             "\xEA\x99\x94" => "\xEA\x99\x95", # CYRILLIC CAPITAL LETTER REVERSED YU
1241             "\xEA\x99\x96" => "\xEA\x99\x97", # CYRILLIC CAPITAL LETTER IOTIFIED A
1242             "\xEA\x99\x98" => "\xEA\x99\x99", # CYRILLIC CAPITAL LETTER CLOSED LITTLE YUS
1243             "\xEA\x99\x9A" => "\xEA\x99\x9B", # CYRILLIC CAPITAL LETTER BLENDED YUS
1244             "\xEA\x99\x9C" => "\xEA\x99\x9D", # CYRILLIC CAPITAL LETTER IOTIFIED CLOSED LITTLE YUS
1245             "\xEA\x99\x9E" => "\xEA\x99\x9F", # CYRILLIC CAPITAL LETTER YN
1246             "\xEA\x99\xA0" => "\xEA\x99\xA1", # CYRILLIC CAPITAL LETTER REVERSED TSE
1247             "\xEA\x99\xA2" => "\xEA\x99\xA3", # CYRILLIC CAPITAL LETTER SOFT DE
1248             "\xEA\x99\xA4" => "\xEA\x99\xA5", # CYRILLIC CAPITAL LETTER SOFT EL
1249             "\xEA\x99\xA6" => "\xEA\x99\xA7", # CYRILLIC CAPITAL LETTER SOFT EM
1250             "\xEA\x99\xA8" => "\xEA\x99\xA9", # CYRILLIC CAPITAL LETTER MONOCULAR O
1251             "\xEA\x99\xAA" => "\xEA\x99\xAB", # CYRILLIC CAPITAL LETTER BINOCULAR O
1252             "\xEA\x99\xAC" => "\xEA\x99\xAD", # CYRILLIC CAPITAL LETTER DOUBLE MONOCULAR O
1253             "\xEA\x9A\x80" => "\xEA\x9A\x81", # CYRILLIC CAPITAL LETTER DWE
1254             "\xEA\x9A\x82" => "\xEA\x9A\x83", # CYRILLIC CAPITAL LETTER DZWE
1255             "\xEA\x9A\x84" => "\xEA\x9A\x85", # CYRILLIC CAPITAL LETTER ZHWE
1256             "\xEA\x9A\x86" => "\xEA\x9A\x87", # CYRILLIC CAPITAL LETTER CCHE
1257             "\xEA\x9A\x88" => "\xEA\x9A\x89", # CYRILLIC CAPITAL LETTER DZZE
1258             "\xEA\x9A\x8A" => "\xEA\x9A\x8B", # CYRILLIC CAPITAL LETTER TE WITH MIDDLE HOOK
1259             "\xEA\x9A\x8C" => "\xEA\x9A\x8D", # CYRILLIC CAPITAL LETTER TWE
1260             "\xEA\x9A\x8E" => "\xEA\x9A\x8F", # CYRILLIC CAPITAL LETTER TSWE
1261             "\xEA\x9A\x90" => "\xEA\x9A\x91", # CYRILLIC CAPITAL LETTER TSSE
1262             "\xEA\x9A\x92" => "\xEA\x9A\x93", # CYRILLIC CAPITAL LETTER TCHE
1263             "\xEA\x9A\x94" => "\xEA\x9A\x95", # CYRILLIC CAPITAL LETTER HWE
1264             "\xEA\x9A\x96" => "\xEA\x9A\x97", # CYRILLIC CAPITAL LETTER SHWE
1265             "\xEA\x9A\x98" => "\xEA\x9A\x99", # CYRILLIC CAPITAL LETTER DOUBLE O
1266             "\xEA\x9A\x9A" => "\xEA\x9A\x9B", # CYRILLIC CAPITAL LETTER CROSSED O
1267             "\xEA\x9C\xA2" => "\xEA\x9C\xA3", # LATIN CAPITAL LETTER EGYPTOLOGICAL ALEF
1268             "\xEA\x9C\xA4" => "\xEA\x9C\xA5", # LATIN CAPITAL LETTER EGYPTOLOGICAL AIN
1269             "\xEA\x9C\xA6" => "\xEA\x9C\xA7", # LATIN CAPITAL LETTER HENG
1270             "\xEA\x9C\xA8" => "\xEA\x9C\xA9", # LATIN CAPITAL LETTER TZ
1271             "\xEA\x9C\xAA" => "\xEA\x9C\xAB", # LATIN CAPITAL LETTER TRESILLO
1272             "\xEA\x9C\xAC" => "\xEA\x9C\xAD", # LATIN CAPITAL LETTER CUATRILLO
1273             "\xEA\x9C\xAE" => "\xEA\x9C\xAF", # LATIN CAPITAL LETTER CUATRILLO WITH COMMA
1274             "\xEA\x9C\xB2" => "\xEA\x9C\xB3", # LATIN CAPITAL LETTER AA
1275             "\xEA\x9C\xB4" => "\xEA\x9C\xB5", # LATIN CAPITAL LETTER AO
1276             "\xEA\x9C\xB6" => "\xEA\x9C\xB7", # LATIN CAPITAL LETTER AU
1277             "\xEA\x9C\xB8" => "\xEA\x9C\xB9", # LATIN CAPITAL LETTER AV
1278             "\xEA\x9C\xBA" => "\xEA\x9C\xBB", # LATIN CAPITAL LETTER AV WITH HORIZONTAL BAR
1279             "\xEA\x9C\xBC" => "\xEA\x9C\xBD", # LATIN CAPITAL LETTER AY
1280             "\xEA\x9C\xBE" => "\xEA\x9C\xBF", # LATIN CAPITAL LETTER REVERSED C WITH DOT
1281             "\xEA\x9D\x80" => "\xEA\x9D\x81", # LATIN CAPITAL LETTER K WITH STROKE
1282             "\xEA\x9D\x82" => "\xEA\x9D\x83", # LATIN CAPITAL LETTER K WITH DIAGONAL STROKE
1283             "\xEA\x9D\x84" => "\xEA\x9D\x85", # LATIN CAPITAL LETTER K WITH STROKE AND DIAGONAL STROKE
1284             "\xEA\x9D\x86" => "\xEA\x9D\x87", # LATIN CAPITAL LETTER BROKEN L
1285             "\xEA\x9D\x88" => "\xEA\x9D\x89", # LATIN CAPITAL LETTER L WITH HIGH STROKE
1286             "\xEA\x9D\x8A" => "\xEA\x9D\x8B", # LATIN CAPITAL LETTER O WITH LONG STROKE OVERLAY
1287             "\xEA\x9D\x8C" => "\xEA\x9D\x8D", # LATIN CAPITAL LETTER O WITH LOOP
1288             "\xEA\x9D\x8E" => "\xEA\x9D\x8F", # LATIN CAPITAL LETTER OO
1289             "\xEA\x9D\x90" => "\xEA\x9D\x91", # LATIN CAPITAL LETTER P WITH STROKE THROUGH DESCENDER
1290             "\xEA\x9D\x92" => "\xEA\x9D\x93", # LATIN CAPITAL LETTER P WITH FLOURISH
1291             "\xEA\x9D\x94" => "\xEA\x9D\x95", # LATIN CAPITAL LETTER P WITH SQUIRREL TAIL
1292             "\xEA\x9D\x96" => "\xEA\x9D\x97", # LATIN CAPITAL LETTER Q WITH STROKE THROUGH DESCENDER
1293             "\xEA\x9D\x98" => "\xEA\x9D\x99", # LATIN CAPITAL LETTER Q WITH DIAGONAL STROKE
1294             "\xEA\x9D\x9A" => "\xEA\x9D\x9B", # LATIN CAPITAL LETTER R ROTUNDA
1295             "\xEA\x9D\x9C" => "\xEA\x9D\x9D", # LATIN CAPITAL LETTER RUM ROTUNDA
1296             "\xEA\x9D\x9E" => "\xEA\x9D\x9F", # LATIN CAPITAL LETTER V WITH DIAGONAL STROKE
1297             "\xEA\x9D\xA0" => "\xEA\x9D\xA1", # LATIN CAPITAL LETTER VY
1298             "\xEA\x9D\xA2" => "\xEA\x9D\xA3", # LATIN CAPITAL LETTER VISIGOTHIC Z
1299             "\xEA\x9D\xA4" => "\xEA\x9D\xA5", # LATIN CAPITAL LETTER THORN WITH STROKE
1300             "\xEA\x9D\xA6" => "\xEA\x9D\xA7", # LATIN CAPITAL LETTER THORN WITH STROKE THROUGH DESCENDER
1301             "\xEA\x9D\xA8" => "\xEA\x9D\xA9", # LATIN CAPITAL LETTER VEND
1302             "\xEA\x9D\xAA" => "\xEA\x9D\xAB", # LATIN CAPITAL LETTER ET
1303             "\xEA\x9D\xAC" => "\xEA\x9D\xAD", # LATIN CAPITAL LETTER IS
1304             "\xEA\x9D\xAE" => "\xEA\x9D\xAF", # LATIN CAPITAL LETTER CON
1305             "\xEA\x9D\xB9" => "\xEA\x9D\xBA", # LATIN CAPITAL LETTER INSULAR D
1306             "\xEA\x9D\xBB" => "\xEA\x9D\xBC", # LATIN CAPITAL LETTER INSULAR F
1307             "\xEA\x9D\xBD" => "\xE1\xB5\xB9", # LATIN CAPITAL LETTER INSULAR G
1308             "\xEA\x9D\xBE" => "\xEA\x9D\xBF", # LATIN CAPITAL LETTER TURNED INSULAR G
1309             "\xEA\x9E\x80" => "\xEA\x9E\x81", # LATIN CAPITAL LETTER TURNED L
1310             "\xEA\x9E\x82" => "\xEA\x9E\x83", # LATIN CAPITAL LETTER INSULAR R
1311             "\xEA\x9E\x84" => "\xEA\x9E\x85", # LATIN CAPITAL LETTER INSULAR S
1312             "\xEA\x9E\x86" => "\xEA\x9E\x87", # LATIN CAPITAL LETTER INSULAR T
1313             "\xEA\x9E\x8B" => "\xEA\x9E\x8C", # LATIN CAPITAL LETTER SALTILLO
1314             "\xEA\x9E\x8D" => "\xC9\xA5", # LATIN CAPITAL LETTER TURNED H
1315             "\xEA\x9E\x90" => "\xEA\x9E\x91", # LATIN CAPITAL LETTER N WITH DESCENDER
1316             "\xEA\x9E\x92" => "\xEA\x9E\x93", # LATIN CAPITAL LETTER C WITH BAR
1317             "\xEA\x9E\x96" => "\xEA\x9E\x97", # LATIN CAPITAL LETTER B WITH FLOURISH
1318             "\xEA\x9E\x98" => "\xEA\x9E\x99", # LATIN CAPITAL LETTER F WITH STROKE
1319             "\xEA\x9E\x9A" => "\xEA\x9E\x9B", # LATIN CAPITAL LETTER VOLAPUK AE
1320             "\xEA\x9E\x9C" => "\xEA\x9E\x9D", # LATIN CAPITAL LETTER VOLAPUK OE
1321             "\xEA\x9E\x9E" => "\xEA\x9E\x9F", # LATIN CAPITAL LETTER VOLAPUK UE
1322             "\xEA\x9E\xA0" => "\xEA\x9E\xA1", # LATIN CAPITAL LETTER G WITH OBLIQUE STROKE
1323             "\xEA\x9E\xA2" => "\xEA\x9E\xA3", # LATIN CAPITAL LETTER K WITH OBLIQUE STROKE
1324             "\xEA\x9E\xA4" => "\xEA\x9E\xA5", # LATIN CAPITAL LETTER N WITH OBLIQUE STROKE
1325             "\xEA\x9E\xA6" => "\xEA\x9E\xA7", # LATIN CAPITAL LETTER R WITH OBLIQUE STROKE
1326             "\xEA\x9E\xA8" => "\xEA\x9E\xA9", # LATIN CAPITAL LETTER S WITH OBLIQUE STROKE
1327             "\xEA\x9E\xAA" => "\xC9\xA6", # LATIN CAPITAL LETTER H WITH HOOK
1328             "\xEA\x9E\xAB" => "\xC9\x9C", # LATIN CAPITAL LETTER REVERSED OPEN E
1329             "\xEA\x9E\xAC" => "\xC9\xA1", # LATIN CAPITAL LETTER SCRIPT G
1330             "\xEA\x9E\xAD" => "\xC9\xAC", # LATIN CAPITAL LETTER L WITH BELT
1331             "\xEA\x9E\xAE" => "\xC9\xAA", # LATIN CAPITAL LETTER SMALL CAPITAL I
1332             "\xEA\x9E\xB0" => "\xCA\x9E", # LATIN CAPITAL LETTER TURNED K
1333             "\xEA\x9E\xB1" => "\xCA\x87", # LATIN CAPITAL LETTER TURNED T
1334             "\xEA\x9E\xB2" => "\xCA\x9D", # LATIN CAPITAL LETTER J WITH CROSSED-TAIL
1335             "\xEA\x9E\xB3" => "\xEA\xAD\x93", # LATIN CAPITAL LETTER CHI
1336             "\xEA\x9E\xB4" => "\xEA\x9E\xB5", # LATIN CAPITAL LETTER BETA
1337             "\xEA\x9E\xB6" => "\xEA\x9E\xB7", # LATIN CAPITAL LETTER OMEGA
1338             "\xEA\x9E\xB8" => "\xEA\x9E\xB9", # LATIN CAPITAL LETTER U WITH STROKE
1339             "\xEA\x9E\xBA" => "\xEA\x9E\xBB", # LATIN CAPITAL LETTER GLOTTAL A
1340             "\xEA\x9E\xBC" => "\xEA\x9E\xBD", # LATIN CAPITAL LETTER GLOTTAL I
1341             "\xEA\x9E\xBE" => "\xEA\x9E\xBF", # LATIN CAPITAL LETTER GLOTTAL U
1342             "\xEA\x9F\x82" => "\xEA\x9F\x83", # LATIN CAPITAL LETTER ANGLICANA W
1343             "\xEA\x9F\x84" => "\xEA\x9E\x94", # LATIN CAPITAL LETTER C WITH PALATAL HOOK
1344             "\xEA\x9F\x85" => "\xCA\x82", # LATIN CAPITAL LETTER S WITH HOOK
1345             "\xEA\x9F\x86" => "\xE1\xB6\x8E", # LATIN CAPITAL LETTER Z WITH PALATAL HOOK
1346             "\xEA\xAD\xB0" => "\xE1\x8E\xA0", # CHEROKEE SMALL LETTER A
1347             "\xEA\xAD\xB1" => "\xE1\x8E\xA1", # CHEROKEE SMALL LETTER E
1348             "\xEA\xAD\xB2" => "\xE1\x8E\xA2", # CHEROKEE SMALL LETTER I
1349             "\xEA\xAD\xB3" => "\xE1\x8E\xA3", # CHEROKEE SMALL LETTER O
1350             "\xEA\xAD\xB4" => "\xE1\x8E\xA4", # CHEROKEE SMALL LETTER U
1351             "\xEA\xAD\xB5" => "\xE1\x8E\xA5", # CHEROKEE SMALL LETTER V
1352             "\xEA\xAD\xB6" => "\xE1\x8E\xA6", # CHEROKEE SMALL LETTER GA
1353             "\xEA\xAD\xB7" => "\xE1\x8E\xA7", # CHEROKEE SMALL LETTER KA
1354             "\xEA\xAD\xB8" => "\xE1\x8E\xA8", # CHEROKEE SMALL LETTER GE
1355             "\xEA\xAD\xB9" => "\xE1\x8E\xA9", # CHEROKEE SMALL LETTER GI
1356             "\xEA\xAD\xBA" => "\xE1\x8E\xAA", # CHEROKEE SMALL LETTER GO
1357             "\xEA\xAD\xBB" => "\xE1\x8E\xAB", # CHEROKEE SMALL LETTER GU
1358             "\xEA\xAD\xBC" => "\xE1\x8E\xAC", # CHEROKEE SMALL LETTER GV
1359             "\xEA\xAD\xBD" => "\xE1\x8E\xAD", # CHEROKEE SMALL LETTER HA
1360             "\xEA\xAD\xBE" => "\xE1\x8E\xAE", # CHEROKEE SMALL LETTER HE
1361             "\xEA\xAD\xBF" => "\xE1\x8E\xAF", # CHEROKEE SMALL LETTER HI
1362             "\xEA\xAE\x80" => "\xE1\x8E\xB0", # CHEROKEE SMALL LETTER HO
1363             "\xEA\xAE\x81" => "\xE1\x8E\xB1", # CHEROKEE SMALL LETTER HU
1364             "\xEA\xAE\x82" => "\xE1\x8E\xB2", # CHEROKEE SMALL LETTER HV
1365             "\xEA\xAE\x83" => "\xE1\x8E\xB3", # CHEROKEE SMALL LETTER LA
1366             "\xEA\xAE\x84" => "\xE1\x8E\xB4", # CHEROKEE SMALL LETTER LE
1367             "\xEA\xAE\x85" => "\xE1\x8E\xB5", # CHEROKEE SMALL LETTER LI
1368             "\xEA\xAE\x86" => "\xE1\x8E\xB6", # CHEROKEE SMALL LETTER LO
1369             "\xEA\xAE\x87" => "\xE1\x8E\xB7", # CHEROKEE SMALL LETTER LU
1370             "\xEA\xAE\x88" => "\xE1\x8E\xB8", # CHEROKEE SMALL LETTER LV
1371             "\xEA\xAE\x89" => "\xE1\x8E\xB9", # CHEROKEE SMALL LETTER MA
1372             "\xEA\xAE\x8A" => "\xE1\x8E\xBA", # CHEROKEE SMALL LETTER ME
1373             "\xEA\xAE\x8B" => "\xE1\x8E\xBB", # CHEROKEE SMALL LETTER MI
1374             "\xEA\xAE\x8C" => "\xE1\x8E\xBC", # CHEROKEE SMALL LETTER MO
1375             "\xEA\xAE\x8D" => "\xE1\x8E\xBD", # CHEROKEE SMALL LETTER MU
1376             "\xEA\xAE\x8E" => "\xE1\x8E\xBE", # CHEROKEE SMALL LETTER NA
1377             "\xEA\xAE\x8F" => "\xE1\x8E\xBF", # CHEROKEE SMALL LETTER HNA
1378             "\xEA\xAE\x90" => "\xE1\x8F\x80", # CHEROKEE SMALL LETTER NAH
1379             "\xEA\xAE\x91" => "\xE1\x8F\x81", # CHEROKEE SMALL LETTER NE
1380             "\xEA\xAE\x92" => "\xE1\x8F\x82", # CHEROKEE SMALL LETTER NI
1381             "\xEA\xAE\x93" => "\xE1\x8F\x83", # CHEROKEE SMALL LETTER NO
1382             "\xEA\xAE\x94" => "\xE1\x8F\x84", # CHEROKEE SMALL LETTER NU
1383             "\xEA\xAE\x95" => "\xE1\x8F\x85", # CHEROKEE SMALL LETTER NV
1384             "\xEA\xAE\x96" => "\xE1\x8F\x86", # CHEROKEE SMALL LETTER QUA
1385             "\xEA\xAE\x97" => "\xE1\x8F\x87", # CHEROKEE SMALL LETTER QUE
1386             "\xEA\xAE\x98" => "\xE1\x8F\x88", # CHEROKEE SMALL LETTER QUI
1387             "\xEA\xAE\x99" => "\xE1\x8F\x89", # CHEROKEE SMALL LETTER QUO
1388             "\xEA\xAE\x9A" => "\xE1\x8F\x8A", # CHEROKEE SMALL LETTER QUU
1389             "\xEA\xAE\x9B" => "\xE1\x8F\x8B", # CHEROKEE SMALL LETTER QUV
1390             "\xEA\xAE\x9C" => "\xE1\x8F\x8C", # CHEROKEE SMALL LETTER SA
1391             "\xEA\xAE\x9D" => "\xE1\x8F\x8D", # CHEROKEE SMALL LETTER S
1392             "\xEA\xAE\x9E" => "\xE1\x8F\x8E", # CHEROKEE SMALL LETTER SE
1393             "\xEA\xAE\x9F" => "\xE1\x8F\x8F", # CHEROKEE SMALL LETTER SI
1394             "\xEA\xAE\xA0" => "\xE1\x8F\x90", # CHEROKEE SMALL LETTER SO
1395             "\xEA\xAE\xA1" => "\xE1\x8F\x91", # CHEROKEE SMALL LETTER SU
1396             "\xEA\xAE\xA2" => "\xE1\x8F\x92", # CHEROKEE SMALL LETTER SV
1397             "\xEA\xAE\xA3" => "\xE1\x8F\x93", # CHEROKEE SMALL LETTER DA
1398             "\xEA\xAE\xA4" => "\xE1\x8F\x94", # CHEROKEE SMALL LETTER TA
1399             "\xEA\xAE\xA5" => "\xE1\x8F\x95", # CHEROKEE SMALL LETTER DE
1400             "\xEA\xAE\xA6" => "\xE1\x8F\x96", # CHEROKEE SMALL LETTER TE
1401             "\xEA\xAE\xA7" => "\xE1\x8F\x97", # CHEROKEE SMALL LETTER DI
1402             "\xEA\xAE\xA8" => "\xE1\x8F\x98", # CHEROKEE SMALL LETTER TI
1403             "\xEA\xAE\xA9" => "\xE1\x8F\x99", # CHEROKEE SMALL LETTER DO
1404             "\xEA\xAE\xAA" => "\xE1\x8F\x9A", # CHEROKEE SMALL LETTER DU
1405             "\xEA\xAE\xAB" => "\xE1\x8F\x9B", # CHEROKEE SMALL LETTER DV
1406             "\xEA\xAE\xAC" => "\xE1\x8F\x9C", # CHEROKEE SMALL LETTER DLA
1407             "\xEA\xAE\xAD" => "\xE1\x8F\x9D", # CHEROKEE SMALL LETTER TLA
1408             "\xEA\xAE\xAE" => "\xE1\x8F\x9E", # CHEROKEE SMALL LETTER TLE
1409             "\xEA\xAE\xAF" => "\xE1\x8F\x9F", # CHEROKEE SMALL LETTER TLI
1410             "\xEA\xAE\xB0" => "\xE1\x8F\xA0", # CHEROKEE SMALL LETTER TLO
1411             "\xEA\xAE\xB1" => "\xE1\x8F\xA1", # CHEROKEE SMALL LETTER TLU
1412             "\xEA\xAE\xB2" => "\xE1\x8F\xA2", # CHEROKEE SMALL LETTER TLV
1413             "\xEA\xAE\xB3" => "\xE1\x8F\xA3", # CHEROKEE SMALL LETTER TSA
1414             "\xEA\xAE\xB4" => "\xE1\x8F\xA4", # CHEROKEE SMALL LETTER TSE
1415             "\xEA\xAE\xB5" => "\xE1\x8F\xA5", # CHEROKEE SMALL LETTER TSI
1416             "\xEA\xAE\xB6" => "\xE1\x8F\xA6", # CHEROKEE SMALL LETTER TSO
1417             "\xEA\xAE\xB7" => "\xE1\x8F\xA7", # CHEROKEE SMALL LETTER TSU
1418             "\xEA\xAE\xB8" => "\xE1\x8F\xA8", # CHEROKEE SMALL LETTER TSV
1419             "\xEA\xAE\xB9" => "\xE1\x8F\xA9", # CHEROKEE SMALL LETTER WA
1420             "\xEA\xAE\xBA" => "\xE1\x8F\xAA", # CHEROKEE SMALL LETTER WE
1421             "\xEA\xAE\xBB" => "\xE1\x8F\xAB", # CHEROKEE SMALL LETTER WI
1422             "\xEA\xAE\xBC" => "\xE1\x8F\xAC", # CHEROKEE SMALL LETTER WO
1423             "\xEA\xAE\xBD" => "\xE1\x8F\xAD", # CHEROKEE SMALL LETTER WU
1424             "\xEA\xAE\xBE" => "\xE1\x8F\xAE", # CHEROKEE SMALL LETTER WV
1425             "\xEA\xAE\xBF" => "\xE1\x8F\xAF", # CHEROKEE SMALL LETTER YA
1426             "\xEF\xAC\x80" => "\x66\x66", # LATIN SMALL LIGATURE FF
1427             "\xEF\xAC\x81" => "\x66\x69", # LATIN SMALL LIGATURE FI
1428             "\xEF\xAC\x82" => "\x66\x6C", # LATIN SMALL LIGATURE FL
1429             "\xEF\xAC\x83" => "\x66\x66\x69", # LATIN SMALL LIGATURE FFI
1430             "\xEF\xAC\x84" => "\x66\x66\x6C", # LATIN SMALL LIGATURE FFL
1431             "\xEF\xAC\x85" => "\x73\x74", # LATIN SMALL LIGATURE LONG S T
1432             "\xEF\xAC\x86" => "\x73\x74", # LATIN SMALL LIGATURE ST
1433             "\xEF\xAC\x93" => "\xD5\xB4\xD5\xB6", # ARMENIAN SMALL LIGATURE MEN NOW
1434             "\xEF\xAC\x94" => "\xD5\xB4\xD5\xA5", # ARMENIAN SMALL LIGATURE MEN ECH
1435             "\xEF\xAC\x95" => "\xD5\xB4\xD5\xAB", # ARMENIAN SMALL LIGATURE MEN INI
1436             "\xEF\xAC\x96" => "\xD5\xBE\xD5\xB6", # ARMENIAN SMALL LIGATURE VEW NOW
1437             "\xEF\xAC\x97" => "\xD5\xB4\xD5\xAD", # ARMENIAN SMALL LIGATURE MEN XEH
1438             "\xEF\xBC\xA1" => "\xEF\xBD\x81", # FULLWIDTH LATIN CAPITAL LETTER A
1439             "\xEF\xBC\xA2" => "\xEF\xBD\x82", # FULLWIDTH LATIN CAPITAL LETTER B
1440             "\xEF\xBC\xA3" => "\xEF\xBD\x83", # FULLWIDTH LATIN CAPITAL LETTER C
1441             "\xEF\xBC\xA4" => "\xEF\xBD\x84", # FULLWIDTH LATIN CAPITAL LETTER D
1442             "\xEF\xBC\xA5" => "\xEF\xBD\x85", # FULLWIDTH LATIN CAPITAL LETTER E
1443             "\xEF\xBC\xA6" => "\xEF\xBD\x86", # FULLWIDTH LATIN CAPITAL LETTER F
1444             "\xEF\xBC\xA7" => "\xEF\xBD\x87", # FULLWIDTH LATIN CAPITAL LETTER G
1445             "\xEF\xBC\xA8" => "\xEF\xBD\x88", # FULLWIDTH LATIN CAPITAL LETTER H
1446             "\xEF\xBC\xA9" => "\xEF\xBD\x89", # FULLWIDTH LATIN CAPITAL LETTER I
1447             "\xEF\xBC\xAA" => "\xEF\xBD\x8A", # FULLWIDTH LATIN CAPITAL LETTER J
1448             "\xEF\xBC\xAB" => "\xEF\xBD\x8B", # FULLWIDTH LATIN CAPITAL LETTER K
1449             "\xEF\xBC\xAC" => "\xEF\xBD\x8C", # FULLWIDTH LATIN CAPITAL LETTER L
1450             "\xEF\xBC\xAD" => "\xEF\xBD\x8D", # FULLWIDTH LATIN CAPITAL LETTER M
1451             "\xEF\xBC\xAE" => "\xEF\xBD\x8E", # FULLWIDTH LATIN CAPITAL LETTER N
1452             "\xEF\xBC\xAF" => "\xEF\xBD\x8F", # FULLWIDTH LATIN CAPITAL LETTER O
1453             "\xEF\xBC\xB0" => "\xEF\xBD\x90", # FULLWIDTH LATIN CAPITAL LETTER P
1454             "\xEF\xBC\xB1" => "\xEF\xBD\x91", # FULLWIDTH LATIN CAPITAL LETTER Q
1455             "\xEF\xBC\xB2" => "\xEF\xBD\x92", # FULLWIDTH LATIN CAPITAL LETTER R
1456             "\xEF\xBC\xB3" => "\xEF\xBD\x93", # FULLWIDTH LATIN CAPITAL LETTER S
1457             "\xEF\xBC\xB4" => "\xEF\xBD\x94", # FULLWIDTH LATIN CAPITAL LETTER T
1458             "\xEF\xBC\xB5" => "\xEF\xBD\x95", # FULLWIDTH LATIN CAPITAL LETTER U
1459             "\xEF\xBC\xB6" => "\xEF\xBD\x96", # FULLWIDTH LATIN CAPITAL LETTER V
1460             "\xEF\xBC\xB7" => "\xEF\xBD\x97", # FULLWIDTH LATIN CAPITAL LETTER W
1461             "\xEF\xBC\xB8" => "\xEF\xBD\x98", # FULLWIDTH LATIN CAPITAL LETTER X
1462             "\xEF\xBC\xB9" => "\xEF\xBD\x99", # FULLWIDTH LATIN CAPITAL LETTER Y
1463             "\xEF\xBC\xBA" => "\xEF\xBD\x9A", # FULLWIDTH LATIN CAPITAL LETTER Z
1464             "\xF0\x90\x90\x80" => "\xF0\x90\x90\xA8", # DESERET CAPITAL LETTER LONG I
1465             "\xF0\x90\x90\x81" => "\xF0\x90\x90\xA9", # DESERET CAPITAL LETTER LONG E
1466             "\xF0\x90\x90\x82" => "\xF0\x90\x90\xAA", # DESERET CAPITAL LETTER LONG A
1467             "\xF0\x90\x90\x83" => "\xF0\x90\x90\xAB", # DESERET CAPITAL LETTER LONG AH
1468             "\xF0\x90\x90\x84" => "\xF0\x90\x90\xAC", # DESERET CAPITAL LETTER LONG O
1469             "\xF0\x90\x90\x85" => "\xF0\x90\x90\xAD", # DESERET CAPITAL LETTER LONG OO
1470             "\xF0\x90\x90\x86" => "\xF0\x90\x90\xAE", # DESERET CAPITAL LETTER SHORT I
1471             "\xF0\x90\x90\x87" => "\xF0\x90\x90\xAF", # DESERET CAPITAL LETTER SHORT E
1472             "\xF0\x90\x90\x88" => "\xF0\x90\x90\xB0", # DESERET CAPITAL LETTER SHORT A
1473             "\xF0\x90\x90\x89" => "\xF0\x90\x90\xB1", # DESERET CAPITAL LETTER SHORT AH
1474             "\xF0\x90\x90\x8A" => "\xF0\x90\x90\xB2", # DESERET CAPITAL LETTER SHORT O
1475             "\xF0\x90\x90\x8B" => "\xF0\x90\x90\xB3", # DESERET CAPITAL LETTER SHORT OO
1476             "\xF0\x90\x90\x8C" => "\xF0\x90\x90\xB4", # DESERET CAPITAL LETTER AY
1477             "\xF0\x90\x90\x8D" => "\xF0\x90\x90\xB5", # DESERET CAPITAL LETTER OW
1478             "\xF0\x90\x90\x8E" => "\xF0\x90\x90\xB6", # DESERET CAPITAL LETTER WU
1479             "\xF0\x90\x90\x8F" => "\xF0\x90\x90\xB7", # DESERET CAPITAL LETTER YEE
1480             "\xF0\x90\x90\x90" => "\xF0\x90\x90\xB8", # DESERET CAPITAL LETTER H
1481             "\xF0\x90\x90\x91" => "\xF0\x90\x90\xB9", # DESERET CAPITAL LETTER PEE
1482             "\xF0\x90\x90\x92" => "\xF0\x90\x90\xBA", # DESERET CAPITAL LETTER BEE
1483             "\xF0\x90\x90\x93" => "\xF0\x90\x90\xBB", # DESERET CAPITAL LETTER TEE
1484             "\xF0\x90\x90\x94" => "\xF0\x90\x90\xBC", # DESERET CAPITAL LETTER DEE
1485             "\xF0\x90\x90\x95" => "\xF0\x90\x90\xBD", # DESERET CAPITAL LETTER CHEE
1486             "\xF0\x90\x90\x96" => "\xF0\x90\x90\xBE", # DESERET CAPITAL LETTER JEE
1487             "\xF0\x90\x90\x97" => "\xF0\x90\x90\xBF", # DESERET CAPITAL LETTER KAY
1488             "\xF0\x90\x90\x98" => "\xF0\x90\x91\x80", # DESERET CAPITAL LETTER GAY
1489             "\xF0\x90\x90\x99" => "\xF0\x90\x91\x81", # DESERET CAPITAL LETTER EF
1490             "\xF0\x90\x90\x9A" => "\xF0\x90\x91\x82", # DESERET CAPITAL LETTER VEE
1491             "\xF0\x90\x90\x9B" => "\xF0\x90\x91\x83", # DESERET CAPITAL LETTER ETH
1492             "\xF0\x90\x90\x9C" => "\xF0\x90\x91\x84", # DESERET CAPITAL LETTER THEE
1493             "\xF0\x90\x90\x9D" => "\xF0\x90\x91\x85", # DESERET CAPITAL LETTER ES
1494             "\xF0\x90\x90\x9E" => "\xF0\x90\x91\x86", # DESERET CAPITAL LETTER ZEE
1495             "\xF0\x90\x90\x9F" => "\xF0\x90\x91\x87", # DESERET CAPITAL LETTER ESH
1496             "\xF0\x90\x90\xA0" => "\xF0\x90\x91\x88", # DESERET CAPITAL LETTER ZHEE
1497             "\xF0\x90\x90\xA1" => "\xF0\x90\x91\x89", # DESERET CAPITAL LETTER ER
1498             "\xF0\x90\x90\xA2" => "\xF0\x90\x91\x8A", # DESERET CAPITAL LETTER EL
1499             "\xF0\x90\x90\xA3" => "\xF0\x90\x91\x8B", # DESERET CAPITAL LETTER EM
1500             "\xF0\x90\x90\xA4" => "\xF0\x90\x91\x8C", # DESERET CAPITAL LETTER EN
1501             "\xF0\x90\x90\xA5" => "\xF0\x90\x91\x8D", # DESERET CAPITAL LETTER ENG
1502             "\xF0\x90\x90\xA6" => "\xF0\x90\x91\x8E", # DESERET CAPITAL LETTER OI
1503             "\xF0\x90\x90\xA7" => "\xF0\x90\x91\x8F", # DESERET CAPITAL LETTER EW
1504             "\xF0\x90\x92\xB0" => "\xF0\x90\x93\x98", # OSAGE CAPITAL LETTER A
1505             "\xF0\x90\x92\xB1" => "\xF0\x90\x93\x99", # OSAGE CAPITAL LETTER AI
1506             "\xF0\x90\x92\xB2" => "\xF0\x90\x93\x9A", # OSAGE CAPITAL LETTER AIN
1507             "\xF0\x90\x92\xB3" => "\xF0\x90\x93\x9B", # OSAGE CAPITAL LETTER AH
1508             "\xF0\x90\x92\xB4" => "\xF0\x90\x93\x9C", # OSAGE CAPITAL LETTER BRA
1509             "\xF0\x90\x92\xB5" => "\xF0\x90\x93\x9D", # OSAGE CAPITAL LETTER CHA
1510             "\xF0\x90\x92\xB6" => "\xF0\x90\x93\x9E", # OSAGE CAPITAL LETTER EHCHA
1511             "\xF0\x90\x92\xB7" => "\xF0\x90\x93\x9F", # OSAGE CAPITAL LETTER E
1512             "\xF0\x90\x92\xB8" => "\xF0\x90\x93\xA0", # OSAGE CAPITAL LETTER EIN
1513             "\xF0\x90\x92\xB9" => "\xF0\x90\x93\xA1", # OSAGE CAPITAL LETTER HA
1514             "\xF0\x90\x92\xBA" => "\xF0\x90\x93\xA2", # OSAGE CAPITAL LETTER HYA
1515             "\xF0\x90\x92\xBB" => "\xF0\x90\x93\xA3", # OSAGE CAPITAL LETTER I
1516             "\xF0\x90\x92\xBC" => "\xF0\x90\x93\xA4", # OSAGE CAPITAL LETTER KA
1517             "\xF0\x90\x92\xBD" => "\xF0\x90\x93\xA5", # OSAGE CAPITAL LETTER EHKA
1518             "\xF0\x90\x92\xBE" => "\xF0\x90\x93\xA6", # OSAGE CAPITAL LETTER KYA
1519             "\xF0\x90\x92\xBF" => "\xF0\x90\x93\xA7", # OSAGE CAPITAL LETTER LA
1520             "\xF0\x90\x93\x80" => "\xF0\x90\x93\xA8", # OSAGE CAPITAL LETTER MA
1521             "\xF0\x90\x93\x81" => "\xF0\x90\x93\xA9", # OSAGE CAPITAL LETTER NA
1522             "\xF0\x90\x93\x82" => "\xF0\x90\x93\xAA", # OSAGE CAPITAL LETTER O
1523             "\xF0\x90\x93\x83" => "\xF0\x90\x93\xAB", # OSAGE CAPITAL LETTER OIN
1524             "\xF0\x90\x93\x84" => "\xF0\x90\x93\xAC", # OSAGE CAPITAL LETTER PA
1525             "\xF0\x90\x93\x85" => "\xF0\x90\x93\xAD", # OSAGE CAPITAL LETTER EHPA
1526             "\xF0\x90\x93\x86" => "\xF0\x90\x93\xAE", # OSAGE CAPITAL LETTER SA
1527             "\xF0\x90\x93\x87" => "\xF0\x90\x93\xAF", # OSAGE CAPITAL LETTER SHA
1528             "\xF0\x90\x93\x88" => "\xF0\x90\x93\xB0", # OSAGE CAPITAL LETTER TA
1529             "\xF0\x90\x93\x89" => "\xF0\x90\x93\xB1", # OSAGE CAPITAL LETTER EHTA
1530             "\xF0\x90\x93\x8A" => "\xF0\x90\x93\xB2", # OSAGE CAPITAL LETTER TSA
1531             "\xF0\x90\x93\x8B" => "\xF0\x90\x93\xB3", # OSAGE CAPITAL LETTER EHTSA
1532             "\xF0\x90\x93\x8C" => "\xF0\x90\x93\xB4", # OSAGE CAPITAL LETTER TSHA
1533             "\xF0\x90\x93\x8D" => "\xF0\x90\x93\xB5", # OSAGE CAPITAL LETTER DHA
1534             "\xF0\x90\x93\x8E" => "\xF0\x90\x93\xB6", # OSAGE CAPITAL LETTER U
1535             "\xF0\x90\x93\x8F" => "\xF0\x90\x93\xB7", # OSAGE CAPITAL LETTER WA
1536             "\xF0\x90\x93\x90" => "\xF0\x90\x93\xB8", # OSAGE CAPITAL LETTER KHA
1537             "\xF0\x90\x93\x91" => "\xF0\x90\x93\xB9", # OSAGE CAPITAL LETTER GHA
1538             "\xF0\x90\x93\x92" => "\xF0\x90\x93\xBA", # OSAGE CAPITAL LETTER ZA
1539             "\xF0\x90\x93\x93" => "\xF0\x90\x93\xBB", # OSAGE CAPITAL LETTER ZHA
1540             "\xF0\x90\xB2\x80" => "\xF0\x90\xB3\x80", # OLD HUNGARIAN CAPITAL LETTER A
1541             "\xF0\x90\xB2\x81" => "\xF0\x90\xB3\x81", # OLD HUNGARIAN CAPITAL LETTER AA
1542             "\xF0\x90\xB2\x82" => "\xF0\x90\xB3\x82", # OLD HUNGARIAN CAPITAL LETTER EB
1543             "\xF0\x90\xB2\x83" => "\xF0\x90\xB3\x83", # OLD HUNGARIAN CAPITAL LETTER AMB
1544             "\xF0\x90\xB2\x84" => "\xF0\x90\xB3\x84", # OLD HUNGARIAN CAPITAL LETTER EC
1545             "\xF0\x90\xB2\x85" => "\xF0\x90\xB3\x85", # OLD HUNGARIAN CAPITAL LETTER ENC
1546             "\xF0\x90\xB2\x86" => "\xF0\x90\xB3\x86", # OLD HUNGARIAN CAPITAL LETTER ECS
1547             "\xF0\x90\xB2\x87" => "\xF0\x90\xB3\x87", # OLD HUNGARIAN CAPITAL LETTER ED
1548             "\xF0\x90\xB2\x88" => "\xF0\x90\xB3\x88", # OLD HUNGARIAN CAPITAL LETTER AND
1549             "\xF0\x90\xB2\x89" => "\xF0\x90\xB3\x89", # OLD HUNGARIAN CAPITAL LETTER E
1550             "\xF0\x90\xB2\x8A" => "\xF0\x90\xB3\x8A", # OLD HUNGARIAN CAPITAL LETTER CLOSE E
1551             "\xF0\x90\xB2\x8B" => "\xF0\x90\xB3\x8B", # OLD HUNGARIAN CAPITAL LETTER EE
1552             "\xF0\x90\xB2\x8C" => "\xF0\x90\xB3\x8C", # OLD HUNGARIAN CAPITAL LETTER EF
1553             "\xF0\x90\xB2\x8D" => "\xF0\x90\xB3\x8D", # OLD HUNGARIAN CAPITAL LETTER EG
1554             "\xF0\x90\xB2\x8E" => "\xF0\x90\xB3\x8E", # OLD HUNGARIAN CAPITAL LETTER EGY
1555             "\xF0\x90\xB2\x8F" => "\xF0\x90\xB3\x8F", # OLD HUNGARIAN CAPITAL LETTER EH
1556             "\xF0\x90\xB2\x90" => "\xF0\x90\xB3\x90", # OLD HUNGARIAN CAPITAL LETTER I
1557             "\xF0\x90\xB2\x91" => "\xF0\x90\xB3\x91", # OLD HUNGARIAN CAPITAL LETTER II
1558             "\xF0\x90\xB2\x92" => "\xF0\x90\xB3\x92", # OLD HUNGARIAN CAPITAL LETTER EJ
1559             "\xF0\x90\xB2\x93" => "\xF0\x90\xB3\x93", # OLD HUNGARIAN CAPITAL LETTER EK
1560             "\xF0\x90\xB2\x94" => "\xF0\x90\xB3\x94", # OLD HUNGARIAN CAPITAL LETTER AK
1561             "\xF0\x90\xB2\x95" => "\xF0\x90\xB3\x95", # OLD HUNGARIAN CAPITAL LETTER UNK
1562             "\xF0\x90\xB2\x96" => "\xF0\x90\xB3\x96", # OLD HUNGARIAN CAPITAL LETTER EL
1563             "\xF0\x90\xB2\x97" => "\xF0\x90\xB3\x97", # OLD HUNGARIAN CAPITAL LETTER ELY
1564             "\xF0\x90\xB2\x98" => "\xF0\x90\xB3\x98", # OLD HUNGARIAN CAPITAL LETTER EM
1565             "\xF0\x90\xB2\x99" => "\xF0\x90\xB3\x99", # OLD HUNGARIAN CAPITAL LETTER EN
1566             "\xF0\x90\xB2\x9A" => "\xF0\x90\xB3\x9A", # OLD HUNGARIAN CAPITAL LETTER ENY
1567             "\xF0\x90\xB2\x9B" => "\xF0\x90\xB3\x9B", # OLD HUNGARIAN CAPITAL LETTER O
1568             "\xF0\x90\xB2\x9C" => "\xF0\x90\xB3\x9C", # OLD HUNGARIAN CAPITAL LETTER OO
1569             "\xF0\x90\xB2\x9D" => "\xF0\x90\xB3\x9D", # OLD HUNGARIAN CAPITAL LETTER NIKOLSBURG OE
1570             "\xF0\x90\xB2\x9E" => "\xF0\x90\xB3\x9E", # OLD HUNGARIAN CAPITAL LETTER RUDIMENTA OE
1571             "\xF0\x90\xB2\x9F" => "\xF0\x90\xB3\x9F", # OLD HUNGARIAN CAPITAL LETTER OEE
1572             "\xF0\x90\xB2\xA0" => "\xF0\x90\xB3\xA0", # OLD HUNGARIAN CAPITAL LETTER EP
1573             "\xF0\x90\xB2\xA1" => "\xF0\x90\xB3\xA1", # OLD HUNGARIAN CAPITAL LETTER EMP
1574             "\xF0\x90\xB2\xA2" => "\xF0\x90\xB3\xA2", # OLD HUNGARIAN CAPITAL LETTER ER
1575             "\xF0\x90\xB2\xA3" => "\xF0\x90\xB3\xA3", # OLD HUNGARIAN CAPITAL LETTER SHORT ER
1576             "\xF0\x90\xB2\xA4" => "\xF0\x90\xB3\xA4", # OLD HUNGARIAN CAPITAL LETTER ES
1577             "\xF0\x90\xB2\xA5" => "\xF0\x90\xB3\xA5", # OLD HUNGARIAN CAPITAL LETTER ESZ
1578             "\xF0\x90\xB2\xA6" => "\xF0\x90\xB3\xA6", # OLD HUNGARIAN CAPITAL LETTER ET
1579             "\xF0\x90\xB2\xA7" => "\xF0\x90\xB3\xA7", # OLD HUNGARIAN CAPITAL LETTER ENT
1580             "\xF0\x90\xB2\xA8" => "\xF0\x90\xB3\xA8", # OLD HUNGARIAN CAPITAL LETTER ETY
1581             "\xF0\x90\xB2\xA9" => "\xF0\x90\xB3\xA9", # OLD HUNGARIAN CAPITAL LETTER ECH
1582             "\xF0\x90\xB2\xAA" => "\xF0\x90\xB3\xAA", # OLD HUNGARIAN CAPITAL LETTER U
1583             "\xF0\x90\xB2\xAB" => "\xF0\x90\xB3\xAB", # OLD HUNGARIAN CAPITAL LETTER UU
1584             "\xF0\x90\xB2\xAC" => "\xF0\x90\xB3\xAC", # OLD HUNGARIAN CAPITAL LETTER NIKOLSBURG UE
1585             "\xF0\x90\xB2\xAD" => "\xF0\x90\xB3\xAD", # OLD HUNGARIAN CAPITAL LETTER RUDIMENTA UE
1586             "\xF0\x90\xB2\xAE" => "\xF0\x90\xB3\xAE", # OLD HUNGARIAN CAPITAL LETTER EV
1587             "\xF0\x90\xB2\xAF" => "\xF0\x90\xB3\xAF", # OLD HUNGARIAN CAPITAL LETTER EZ
1588             "\xF0\x90\xB2\xB0" => "\xF0\x90\xB3\xB0", # OLD HUNGARIAN CAPITAL LETTER EZS
1589             "\xF0\x90\xB2\xB1" => "\xF0\x90\xB3\xB1", # OLD HUNGARIAN CAPITAL LETTER ENT-SHAPED SIGN
1590             "\xF0\x90\xB2\xB2" => "\xF0\x90\xB3\xB2", # OLD HUNGARIAN CAPITAL LETTER US
1591             "\xF0\x91\xA2\xA0" => "\xF0\x91\xA3\x80", # WARANG CITI CAPITAL LETTER NGAA
1592             "\xF0\x91\xA2\xA1" => "\xF0\x91\xA3\x81", # WARANG CITI CAPITAL LETTER A
1593             "\xF0\x91\xA2\xA2" => "\xF0\x91\xA3\x82", # WARANG CITI CAPITAL LETTER WI
1594             "\xF0\x91\xA2\xA3" => "\xF0\x91\xA3\x83", # WARANG CITI CAPITAL LETTER YU
1595             "\xF0\x91\xA2\xA4" => "\xF0\x91\xA3\x84", # WARANG CITI CAPITAL LETTER YA
1596             "\xF0\x91\xA2\xA5" => "\xF0\x91\xA3\x85", # WARANG CITI CAPITAL LETTER YO
1597             "\xF0\x91\xA2\xA6" => "\xF0\x91\xA3\x86", # WARANG CITI CAPITAL LETTER II
1598             "\xF0\x91\xA2\xA7" => "\xF0\x91\xA3\x87", # WARANG CITI CAPITAL LETTER UU
1599             "\xF0\x91\xA2\xA8" => "\xF0\x91\xA3\x88", # WARANG CITI CAPITAL LETTER E
1600             "\xF0\x91\xA2\xA9" => "\xF0\x91\xA3\x89", # WARANG CITI CAPITAL LETTER O
1601             "\xF0\x91\xA2\xAA" => "\xF0\x91\xA3\x8A", # WARANG CITI CAPITAL LETTER ANG
1602             "\xF0\x91\xA2\xAB" => "\xF0\x91\xA3\x8B", # WARANG CITI CAPITAL LETTER GA
1603             "\xF0\x91\xA2\xAC" => "\xF0\x91\xA3\x8C", # WARANG CITI CAPITAL LETTER KO
1604             "\xF0\x91\xA2\xAD" => "\xF0\x91\xA3\x8D", # WARANG CITI CAPITAL LETTER ENY
1605             "\xF0\x91\xA2\xAE" => "\xF0\x91\xA3\x8E", # WARANG CITI CAPITAL LETTER YUJ
1606             "\xF0\x91\xA2\xAF" => "\xF0\x91\xA3\x8F", # WARANG CITI CAPITAL LETTER UC
1607             "\xF0\x91\xA2\xB0" => "\xF0\x91\xA3\x90", # WARANG CITI CAPITAL LETTER ENN
1608             "\xF0\x91\xA2\xB1" => "\xF0\x91\xA3\x91", # WARANG CITI CAPITAL LETTER ODD
1609             "\xF0\x91\xA2\xB2" => "\xF0\x91\xA3\x92", # WARANG CITI CAPITAL LETTER TTE
1610             "\xF0\x91\xA2\xB3" => "\xF0\x91\xA3\x93", # WARANG CITI CAPITAL LETTER NUNG
1611             "\xF0\x91\xA2\xB4" => "\xF0\x91\xA3\x94", # WARANG CITI CAPITAL LETTER DA
1612             "\xF0\x91\xA2\xB5" => "\xF0\x91\xA3\x95", # WARANG CITI CAPITAL LETTER AT
1613             "\xF0\x91\xA2\xB6" => "\xF0\x91\xA3\x96", # WARANG CITI CAPITAL LETTER AM
1614             "\xF0\x91\xA2\xB7" => "\xF0\x91\xA3\x97", # WARANG CITI CAPITAL LETTER BU
1615             "\xF0\x91\xA2\xB8" => "\xF0\x91\xA3\x98", # WARANG CITI CAPITAL LETTER PU
1616             "\xF0\x91\xA2\xB9" => "\xF0\x91\xA3\x99", # WARANG CITI CAPITAL LETTER HIYO
1617             "\xF0\x91\xA2\xBA" => "\xF0\x91\xA3\x9A", # WARANG CITI CAPITAL LETTER HOLO
1618             "\xF0\x91\xA2\xBB" => "\xF0\x91\xA3\x9B", # WARANG CITI CAPITAL LETTER HORR
1619             "\xF0\x91\xA2\xBC" => "\xF0\x91\xA3\x9C", # WARANG CITI CAPITAL LETTER HAR
1620             "\xF0\x91\xA2\xBD" => "\xF0\x91\xA3\x9D", # WARANG CITI CAPITAL LETTER SSUU
1621             "\xF0\x91\xA2\xBE" => "\xF0\x91\xA3\x9E", # WARANG CITI CAPITAL LETTER SII
1622             "\xF0\x91\xA2\xBF" => "\xF0\x91\xA3\x9F", # WARANG CITI CAPITAL LETTER VIYO
1623             "\xF0\x96\xB9\x80" => "\xF0\x96\xB9\xA0", # MEDEFAIDRIN CAPITAL LETTER M
1624             "\xF0\x96\xB9\x81" => "\xF0\x96\xB9\xA1", # MEDEFAIDRIN CAPITAL LETTER S
1625             "\xF0\x96\xB9\x82" => "\xF0\x96\xB9\xA2", # MEDEFAIDRIN CAPITAL LETTER V
1626             "\xF0\x96\xB9\x83" => "\xF0\x96\xB9\xA3", # MEDEFAIDRIN CAPITAL LETTER W
1627             "\xF0\x96\xB9\x84" => "\xF0\x96\xB9\xA4", # MEDEFAIDRIN CAPITAL LETTER ATIU
1628             "\xF0\x96\xB9\x85" => "\xF0\x96\xB9\xA5", # MEDEFAIDRIN CAPITAL LETTER Z
1629             "\xF0\x96\xB9\x86" => "\xF0\x96\xB9\xA6", # MEDEFAIDRIN CAPITAL LETTER KP
1630             "\xF0\x96\xB9\x87" => "\xF0\x96\xB9\xA7", # MEDEFAIDRIN CAPITAL LETTER P
1631             "\xF0\x96\xB9\x88" => "\xF0\x96\xB9\xA8", # MEDEFAIDRIN CAPITAL LETTER T
1632             "\xF0\x96\xB9\x89" => "\xF0\x96\xB9\xA9", # MEDEFAIDRIN CAPITAL LETTER G
1633             "\xF0\x96\xB9\x8A" => "\xF0\x96\xB9\xAA", # MEDEFAIDRIN CAPITAL LETTER F
1634             "\xF0\x96\xB9\x8B" => "\xF0\x96\xB9\xAB", # MEDEFAIDRIN CAPITAL LETTER I
1635             "\xF0\x96\xB9\x8C" => "\xF0\x96\xB9\xAC", # MEDEFAIDRIN CAPITAL LETTER K
1636             "\xF0\x96\xB9\x8D" => "\xF0\x96\xB9\xAD", # MEDEFAIDRIN CAPITAL LETTER A
1637             "\xF0\x96\xB9\x8E" => "\xF0\x96\xB9\xAE", # MEDEFAIDRIN CAPITAL LETTER J
1638             "\xF0\x96\xB9\x8F" => "\xF0\x96\xB9\xAF", # MEDEFAIDRIN CAPITAL LETTER E
1639             "\xF0\x96\xB9\x90" => "\xF0\x96\xB9\xB0", # MEDEFAIDRIN CAPITAL LETTER B
1640             "\xF0\x96\xB9\x91" => "\xF0\x96\xB9\xB1", # MEDEFAIDRIN CAPITAL LETTER C
1641             "\xF0\x96\xB9\x92" => "\xF0\x96\xB9\xB2", # MEDEFAIDRIN CAPITAL LETTER U
1642             "\xF0\x96\xB9\x93" => "\xF0\x96\xB9\xB3", # MEDEFAIDRIN CAPITAL LETTER YU
1643             "\xF0\x96\xB9\x94" => "\xF0\x96\xB9\xB4", # MEDEFAIDRIN CAPITAL LETTER L
1644             "\xF0\x96\xB9\x95" => "\xF0\x96\xB9\xB5", # MEDEFAIDRIN CAPITAL LETTER Q
1645             "\xF0\x96\xB9\x96" => "\xF0\x96\xB9\xB6", # MEDEFAIDRIN CAPITAL LETTER HP
1646             "\xF0\x96\xB9\x97" => "\xF0\x96\xB9\xB7", # MEDEFAIDRIN CAPITAL LETTER NY
1647             "\xF0\x96\xB9\x98" => "\xF0\x96\xB9\xB8", # MEDEFAIDRIN CAPITAL LETTER X
1648             "\xF0\x96\xB9\x99" => "\xF0\x96\xB9\xB9", # MEDEFAIDRIN CAPITAL LETTER D
1649             "\xF0\x96\xB9\x9A" => "\xF0\x96\xB9\xBA", # MEDEFAIDRIN CAPITAL LETTER OE
1650             "\xF0\x96\xB9\x9B" => "\xF0\x96\xB9\xBB", # MEDEFAIDRIN CAPITAL LETTER N
1651             "\xF0\x96\xB9\x9C" => "\xF0\x96\xB9\xBC", # MEDEFAIDRIN CAPITAL LETTER R
1652             "\xF0\x96\xB9\x9D" => "\xF0\x96\xB9\xBD", # MEDEFAIDRIN CAPITAL LETTER O
1653             "\xF0\x96\xB9\x9E" => "\xF0\x96\xB9\xBE", # MEDEFAIDRIN CAPITAL LETTER AI
1654             "\xF0\x96\xB9\x9F" => "\xF0\x96\xB9\xBF", # MEDEFAIDRIN CAPITAL LETTER Y
1655             "\xF0\x9E\xA4\x80" => "\xF0\x9E\xA4\xA2", # ADLAM CAPITAL LETTER ALIF
1656             "\xF0\x9E\xA4\x81" => "\xF0\x9E\xA4\xA3", # ADLAM CAPITAL LETTER DAALI
1657             "\xF0\x9E\xA4\x82" => "\xF0\x9E\xA4\xA4", # ADLAM CAPITAL LETTER LAAM
1658             "\xF0\x9E\xA4\x83" => "\xF0\x9E\xA4\xA5", # ADLAM CAPITAL LETTER MIIM
1659             "\xF0\x9E\xA4\x84" => "\xF0\x9E\xA4\xA6", # ADLAM CAPITAL LETTER BA
1660             "\xF0\x9E\xA4\x85" => "\xF0\x9E\xA4\xA7", # ADLAM CAPITAL LETTER SINNYIIYHE
1661             "\xF0\x9E\xA4\x86" => "\xF0\x9E\xA4\xA8", # ADLAM CAPITAL LETTER PE
1662             "\xF0\x9E\xA4\x87" => "\xF0\x9E\xA4\xA9", # ADLAM CAPITAL LETTER BHE
1663             "\xF0\x9E\xA4\x88" => "\xF0\x9E\xA4\xAA", # ADLAM CAPITAL LETTER RA
1664             "\xF0\x9E\xA4\x89" => "\xF0\x9E\xA4\xAB", # ADLAM CAPITAL LETTER E
1665             "\xF0\x9E\xA4\x8A" => "\xF0\x9E\xA4\xAC", # ADLAM CAPITAL LETTER FA
1666             "\xF0\x9E\xA4\x8B" => "\xF0\x9E\xA4\xAD", # ADLAM CAPITAL LETTER I
1667             "\xF0\x9E\xA4\x8C" => "\xF0\x9E\xA4\xAE", # ADLAM CAPITAL LETTER O
1668             "\xF0\x9E\xA4\x8D" => "\xF0\x9E\xA4\xAF", # ADLAM CAPITAL LETTER DHA
1669             "\xF0\x9E\xA4\x8E" => "\xF0\x9E\xA4\xB0", # ADLAM CAPITAL LETTER YHE
1670             "\xF0\x9E\xA4\x8F" => "\xF0\x9E\xA4\xB1", # ADLAM CAPITAL LETTER WAW
1671             "\xF0\x9E\xA4\x90" => "\xF0\x9E\xA4\xB2", # ADLAM CAPITAL LETTER NUN
1672             "\xF0\x9E\xA4\x91" => "\xF0\x9E\xA4\xB3", # ADLAM CAPITAL LETTER KAF
1673             "\xF0\x9E\xA4\x92" => "\xF0\x9E\xA4\xB4", # ADLAM CAPITAL LETTER YA
1674             "\xF0\x9E\xA4\x93" => "\xF0\x9E\xA4\xB5", # ADLAM CAPITAL LETTER U
1675             "\xF0\x9E\xA4\x94" => "\xF0\x9E\xA4\xB6", # ADLAM CAPITAL LETTER JIIM
1676             "\xF0\x9E\xA4\x95" => "\xF0\x9E\xA4\xB7", # ADLAM CAPITAL LETTER CHI
1677             "\xF0\x9E\xA4\x96" => "\xF0\x9E\xA4\xB8", # ADLAM CAPITAL LETTER HA
1678             "\xF0\x9E\xA4\x97" => "\xF0\x9E\xA4\xB9", # ADLAM CAPITAL LETTER QAAF
1679             "\xF0\x9E\xA4\x98" => "\xF0\x9E\xA4\xBA", # ADLAM CAPITAL LETTER GA
1680             "\xF0\x9E\xA4\x99" => "\xF0\x9E\xA4\xBB", # ADLAM CAPITAL LETTER NYA
1681             "\xF0\x9E\xA4\x9A" => "\xF0\x9E\xA4\xBC", # ADLAM CAPITAL LETTER TU
1682             "\xF0\x9E\xA4\x9B" => "\xF0\x9E\xA4\xBD", # ADLAM CAPITAL LETTER NHA
1683             "\xF0\x9E\xA4\x9C" => "\xF0\x9E\xA4\xBE", # ADLAM CAPITAL LETTER VA
1684             "\xF0\x9E\xA4\x9D" => "\xF0\x9E\xA4\xBF", # ADLAM CAPITAL LETTER KHA
1685             "\xF0\x9E\xA4\x9E" => "\xF0\x9E\xA5\x80", # ADLAM CAPITAL LETTER GBE
1686             "\xF0\x9E\xA4\x9F" => "\xF0\x9E\xA5\x81", # ADLAM CAPITAL LETTER ZAL
1687             "\xF0\x9E\xA4\xA0" => "\xF0\x9E\xA5\x82", # ADLAM CAPITAL LETTER KPO
1688             "\xF0\x9E\xA4\xA1" => "\xF0\x9E\xA5\x83", # ADLAM CAPITAL LETTER SHA
1689             );
1690             }
1691              
1692             else {
1693             croak "Don't know my package name '@{[__PACKAGE__]}'";
1694             }
1695              
1696             #
1697             # @ARGV wildcard globbing
1698             #
1699             sub import {
1700              
1701 0 0   0   0 if ($^O =~ /\A (?: MSWin32 | NetWare | symbian | dos ) \z/oxms) {
1702 0         0 my @argv = ();
1703 0         0 for (@ARGV) {
1704              
1705             # has space
1706 0 0       0 if (/\A (?:$q_char)*? [ ] /oxms) {
    0          
1707 0 0       0 if (my @glob = Eoldutf8::glob(qq{"$_"})) {
1708 0         0 push @argv, @glob;
1709             }
1710             else {
1711 0         0 push @argv, $_;
1712             }
1713             }
1714              
1715             # has wildcard metachar
1716             elsif (/\A (?:$q_char)*? [*?] /oxms) {
1717 0 0       0 if (my @glob = Eoldutf8::glob($_)) {
1718 0         0 push @argv, @glob;
1719             }
1720             else {
1721 0         0 push @argv, $_;
1722             }
1723             }
1724              
1725             # no wildcard globbing
1726             else {
1727 0         0 push @argv, $_;
1728             }
1729             }
1730 0         0 @ARGV = @argv;
1731             }
1732              
1733 0         0 *Char::ord = \&OldUTF8::ord;
1734 0         0 *Char::ord_ = \&OldUTF8::ord_;
1735 0         0 *Char::reverse = \&OldUTF8::reverse;
1736 0         0 *Char::getc = \&OldUTF8::getc;
1737 0         0 *Char::length = \&OldUTF8::length;
1738 0         0 *Char::substr = \&OldUTF8::substr;
1739 0         0 *Char::index = \&OldUTF8::index;
1740 0         0 *Char::rindex = \&OldUTF8::rindex;
1741 0         0 *Char::eval = \&OldUTF8::eval;
1742 0         0 *Char::escape = \&OldUTF8::escape;
1743 0         0 *Char::escape_token = \&OldUTF8::escape_token;
1744 0         0 *Char::escape_script = \&OldUTF8::escape_script;
1745             }
1746              
1747             # P.230 Care with Prototypes
1748             # in Chapter 6: Subroutines
1749             # of ISBN 0-596-00027-8 Programming Perl Third Edition.
1750             #
1751             # If you aren't careful, you can get yourself into trouble with prototypes.
1752             # But if you are careful, you can do a lot of neat things with them. This is
1753             # all very powerful, of course, and should only be used in moderation to make
1754             # the world a better place.
1755              
1756             # P.332 Care with Prototypes
1757             # in Chapter 7: Subroutines
1758             # of ISBN 978-0-596-00492-7 Programming Perl 4th Edition.
1759             #
1760             # If you aren't careful, you can get yourself into trouble with prototypes.
1761             # But if you are careful, you can do a lot of neat things with them. This is
1762             # all very powerful, of course, and should only be used in moderation to make
1763             # the world a better place.
1764              
1765             #
1766             # Prototypes of subroutines
1767             #
1768       0     sub unimport {}
1769             sub Eoldutf8::split(;$$$);
1770             sub Eoldutf8::tr($$$$;$);
1771             sub Eoldutf8::chop(@);
1772             sub Eoldutf8::index($$;$);
1773             sub Eoldutf8::rindex($$;$);
1774             sub Eoldutf8::lcfirst(@);
1775             sub Eoldutf8::lcfirst_();
1776             sub Eoldutf8::lc(@);
1777             sub Eoldutf8::lc_();
1778             sub Eoldutf8::ucfirst(@);
1779             sub Eoldutf8::ucfirst_();
1780             sub Eoldutf8::uc(@);
1781             sub Eoldutf8::uc_();
1782             sub Eoldutf8::fc(@);
1783             sub Eoldutf8::fc_();
1784             sub Eoldutf8::ignorecase;
1785             sub Eoldutf8::classic_character_class;
1786             sub Eoldutf8::capture;
1787             sub Eoldutf8::chr(;$);
1788             sub Eoldutf8::chr_();
1789             sub Eoldutf8::glob($);
1790             sub Eoldutf8::glob_();
1791              
1792             sub OldUTF8::ord(;$);
1793             sub OldUTF8::ord_();
1794             sub OldUTF8::reverse(@);
1795             sub OldUTF8::getc(;*@);
1796             sub OldUTF8::length(;$);
1797             sub OldUTF8::substr($$;$$);
1798             sub OldUTF8::index($$;$);
1799             sub OldUTF8::rindex($$;$);
1800             sub OldUTF8::escape(;$);
1801              
1802             #
1803             # Regexp work
1804             #
1805 306         25653 use vars qw(
1806             $re_a
1807             $re_t
1808             $re_n
1809             $re_r
1810 306     306   3061 );
  306         651  
1811              
1812             #
1813             # Character class
1814             #
1815 306         4112181 use vars qw(
1816             $dot
1817             $dot_s
1818             $eD
1819             $eS
1820             $eW
1821             $eH
1822             $eV
1823             $eR
1824             $eN
1825             $not_alnum
1826             $not_alpha
1827             $not_ascii
1828             $not_blank
1829             $not_cntrl
1830             $not_digit
1831             $not_graph
1832             $not_lower
1833             $not_lower_i
1834             $not_print
1835             $not_punct
1836             $not_space
1837             $not_upper
1838             $not_upper_i
1839             $not_word
1840             $not_xdigit
1841             $eb
1842             $eB
1843 306     306   1835 );
  306         586  
1844              
1845             ${Eoldutf8::dot} = qr{(?>[^\x80-\xFF\x0A]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF])};
1846             ${Eoldutf8::dot_s} = qr{(?>[^\x80-\xFF]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF])};
1847             ${Eoldutf8::eD} = qr{(?>[^\x80-\xFF0-9]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF])};
1848              
1849             # Vertical tabs are now whitespace
1850             # \s in a regex now matches a vertical tab in all circumstances.
1851             # http://search.cpan.org/dist/perl-5.18.0/pod/perldelta.pod#Vertical_tabs_are_now_whitespace
1852             # ${Eoldutf8::eS} = qr{(?>[^\x80-\xFF\x09\x0A \x0C\x0D\x20]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF])};
1853             # ${Eoldutf8::eS} = qr{(?>[^\x80-\xFF\x09\x0A\x0B\x0C\x0D\x20]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF])};
1854             ${Eoldutf8::eS} = qr{(?>[^\x80-\xFF\s]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF])};
1855              
1856             ${Eoldutf8::eW} = qr{(?>[^\x80-\xFF0-9A-Z_a-z]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF])};
1857             ${Eoldutf8::eH} = qr{(?>[^\x80-\xFF\x09\x20]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF])};
1858             ${Eoldutf8::eV} = qr{(?>[^\x80-\xFF\x0A\x0B\x0C\x0D]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF])};
1859             ${Eoldutf8::eR} = qr{(?>\x0D\x0A|[\x0A\x0D])};
1860             ${Eoldutf8::eN} = qr{(?>[^\x80-\xFF\x0A]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF])};
1861             ${Eoldutf8::not_alnum} = qr{(?>[^\x80-\xFF\x30-\x39\x41-\x5A\x61-\x7A]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF])};
1862             ${Eoldutf8::not_alpha} = qr{(?>[^\x80-\xFF\x41-\x5A\x61-\x7A]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF])};
1863             ${Eoldutf8::not_ascii} = qr{(?>[^\x80-\xFF\x00-\x7F]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF])};
1864             ${Eoldutf8::not_blank} = qr{(?>[^\x80-\xFF\x09\x20]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF])};
1865             ${Eoldutf8::not_cntrl} = qr{(?>[^\x80-\xFF\x00-\x1F\x7F]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF])};
1866             ${Eoldutf8::not_digit} = qr{(?>[^\x80-\xFF\x30-\x39]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF])};
1867             ${Eoldutf8::not_graph} = qr{(?>[^\x80-\xFF\x21-\x7F]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF])};
1868             ${Eoldutf8::not_lower} = qr{(?>[^\x80-\xFF\x61-\x7A]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF])};
1869             ${Eoldutf8::not_lower_i} = qr{(?>[^\x80-\xFF\x41-\x5A\x61-\x7A]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF])}; # Perl 5.16 compatible
1870             # ${Eoldutf8::not_lower_i} = qr{(?>[^\x80-\xFF]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF])}; # older Perl compatible
1871             ${Eoldutf8::not_print} = qr{(?>[^\x80-\xFF\x20-\x7F]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF])};
1872             ${Eoldutf8::not_punct} = qr{(?>[^\x80-\xFF\x21-\x2F\x3A-\x3F\x40\x5B-\x5F\x60\x7B-\x7E]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF])};
1873             ${Eoldutf8::not_space} = qr{(?>[^\x80-\xFF\s\x0B]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF])};
1874             ${Eoldutf8::not_upper} = qr{(?>[^\x80-\xFF\x41-\x5A]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF])};
1875             ${Eoldutf8::not_upper_i} = qr{(?>[^\x80-\xFF\x41-\x5A\x61-\x7A]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF])}; # Perl 5.16 compatible
1876             # ${Eoldutf8::not_upper_i} = qr{(?>[^\x80-\xFF]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF])}; # older Perl compatible
1877             ${Eoldutf8::not_word} = qr{(?>[^\x80-\xFF\x30-\x39\x41-\x5A\x5F\x61-\x7A]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF])};
1878             ${Eoldutf8::not_xdigit} = qr{(?>[^\x80-\xFF\x30-\x39\x41-\x46\x61-\x66]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF])};
1879             ${Eoldutf8::eb} = qr{(?:\A(?=[0-9A-Z_a-z])|(?<=[\x00-\x2F\x40\x5B-\x5E\x60\x7B-\xFF])(?=[0-9A-Z_a-z])|(?<=[0-9A-Z_a-z])(?=[\x00-\x2F\x40\x5B-\x5E\x60\x7B-\xFF]|\z))};
1880             ${Eoldutf8::eB} = qr{(?:(?<=[0-9A-Z_a-z])(?=[0-9A-Z_a-z])|(?<=[\x00-\x2F\x40\x5B-\x5E\x60\x7B-\xFF])(?=[\x00-\x2F\x40\x5B-\x5E\x60\x7B-\xFF]))};
1881              
1882             # avoid: Name "Eoldutf8::foo" used only once: possible typo at here.
1883             ${Eoldutf8::dot} = ${Eoldutf8::dot};
1884             ${Eoldutf8::dot_s} = ${Eoldutf8::dot_s};
1885             ${Eoldutf8::eD} = ${Eoldutf8::eD};
1886             ${Eoldutf8::eS} = ${Eoldutf8::eS};
1887             ${Eoldutf8::eW} = ${Eoldutf8::eW};
1888             ${Eoldutf8::eH} = ${Eoldutf8::eH};
1889             ${Eoldutf8::eV} = ${Eoldutf8::eV};
1890             ${Eoldutf8::eR} = ${Eoldutf8::eR};
1891             ${Eoldutf8::eN} = ${Eoldutf8::eN};
1892             ${Eoldutf8::not_alnum} = ${Eoldutf8::not_alnum};
1893             ${Eoldutf8::not_alpha} = ${Eoldutf8::not_alpha};
1894             ${Eoldutf8::not_ascii} = ${Eoldutf8::not_ascii};
1895             ${Eoldutf8::not_blank} = ${Eoldutf8::not_blank};
1896             ${Eoldutf8::not_cntrl} = ${Eoldutf8::not_cntrl};
1897             ${Eoldutf8::not_digit} = ${Eoldutf8::not_digit};
1898             ${Eoldutf8::not_graph} = ${Eoldutf8::not_graph};
1899             ${Eoldutf8::not_lower} = ${Eoldutf8::not_lower};
1900             ${Eoldutf8::not_lower_i} = ${Eoldutf8::not_lower_i};
1901             ${Eoldutf8::not_print} = ${Eoldutf8::not_print};
1902             ${Eoldutf8::not_punct} = ${Eoldutf8::not_punct};
1903             ${Eoldutf8::not_space} = ${Eoldutf8::not_space};
1904             ${Eoldutf8::not_upper} = ${Eoldutf8::not_upper};
1905             ${Eoldutf8::not_upper_i} = ${Eoldutf8::not_upper_i};
1906             ${Eoldutf8::not_word} = ${Eoldutf8::not_word};
1907             ${Eoldutf8::not_xdigit} = ${Eoldutf8::not_xdigit};
1908             ${Eoldutf8::eb} = ${Eoldutf8::eb};
1909             ${Eoldutf8::eB} = ${Eoldutf8::eB};
1910              
1911             #
1912             # old UTF-8 split
1913             #
1914             sub Eoldutf8::split(;$$$) {
1915              
1916             # P.794 29.2.161. split
1917             # in Chapter 29: Functions
1918             # of ISBN 0-596-00027-8 Programming Perl Third Edition.
1919              
1920             # P.951 split
1921             # in Chapter 27: Functions
1922             # of ISBN 978-0-596-00492-7 Programming Perl 4th Edition.
1923              
1924 0     0 0 0 my $pattern = $_[0];
1925 0         0 my $string = $_[1];
1926 0         0 my $limit = $_[2];
1927              
1928             # if $pattern is also omitted or is the literal space, " "
1929 0 0       0 if (not defined $pattern) {
1930 0         0 $pattern = ' ';
1931             }
1932              
1933             # if $string is omitted, the function splits the $_ string
1934 0 0       0 if (not defined $string) {
1935 0 0       0 if (defined $_) {
1936 0         0 $string = $_;
1937             }
1938             else {
1939 0         0 $string = '';
1940             }
1941             }
1942              
1943 0         0 my @split = ();
1944              
1945             # when string is empty
1946 0 0       0 if ($string eq '') {
    0          
1947              
1948             # resulting list value in list context
1949 0 0       0 if (wantarray) {
1950 0         0 return @split;
1951             }
1952              
1953             # count of substrings in scalar context
1954             else {
1955 0 0       0 carp "Use of implicit split to \@_ is deprecated" if $^W;
1956 0         0 @_ = @split;
1957 0         0 return scalar @_;
1958             }
1959             }
1960              
1961             # split's first argument is more consistently interpreted
1962             #
1963             # After some changes earlier in v5.17, split's behavior has been simplified:
1964             # if the PATTERN argument evaluates to a string containing one space, it is
1965             # treated the way that a literal string containing one space once was.
1966             # http://search.cpan.org/dist/perl-5.18.0/pod/perldelta.pod#split's_first_argument_is_more_consistently_interpreted
1967              
1968             # if $pattern is also omitted or is the literal space, " ", the function splits
1969             # on whitespace, /\s+/, after skipping any leading whitespace
1970             # (and so on)
1971              
1972             elsif ($pattern eq ' ') {
1973 0 0       0 if (not defined $limit) {
1974 0         0 return CORE::split(' ', $string);
1975             }
1976             else {
1977 0         0 return CORE::split(' ', $string, $limit);
1978             }
1979             }
1980              
1981             # if $limit is negative, it is treated as if an arbitrarily large $limit has been specified
1982 0 0 0     0 if ((not defined $limit) or ($limit <= 0)) {
    0          
1983              
1984             # a pattern capable of matching either the null string or something longer than the
1985             # null string will split the value of $string into separate characters wherever it
1986             # matches the null string between characters
1987             # (and so on)
1988              
1989 0 0       0 if ('' =~ / \A $pattern \z /xms) {
1990 0         0 my $last_subexpression_offsets = _last_subexpression_offsets($pattern);
1991 0         0 my $limit = scalar(() = $string =~ /($pattern)/oxmsg);
1992              
1993             # P.1024 Appendix W.10 Multibyte Processing
1994             # of ISBN 1-56592-224-7 CJKV Information Processing
1995             # (and so on)
1996              
1997             # the //m modifier is assumed when you split on the pattern /^/
1998             # (and so on)
1999              
2000             # V
2001 0   0     0 while ((--$limit > 0) and ($string =~ s/\A((?:$q_char)+?)$pattern//m)) {
2002              
2003             # if the $pattern contains parentheses, then the substring matched by each pair of parentheses
2004             # is included in the resulting list, interspersed with the fields that are ordinarily returned
2005             # (and so on)
2006              
2007 0         0 local $@;
2008 0         0 for (my $digit=1; $digit <= ($last_subexpression_offsets + 1); $digit++) {
2009 0         0 push @split, CORE::eval('$' . $digit);
2010             }
2011             }
2012             }
2013              
2014             else {
2015 0         0 my $last_subexpression_offsets = _last_subexpression_offsets($pattern);
2016              
2017             # V
2018 0         0 while ($string =~ s/\A((?:$q_char)*?)$pattern//m) {
2019 0         0 local $@;
2020 0         0 for (my $digit=1; $digit <= ($last_subexpression_offsets + 1); $digit++) {
2021 0         0 push @split, CORE::eval('$' . $digit);
2022             }
2023             }
2024             }
2025             }
2026              
2027             elsif ($limit > 0) {
2028 0 0       0 if ('' =~ / \A $pattern \z /xms) {
2029 0         0 my $last_subexpression_offsets = _last_subexpression_offsets($pattern);
2030 0   0     0 while ((--$limit > 0) and (CORE::length($string) > 0)) {
2031              
2032             # V
2033 0 0       0 if ($string =~ s/\A((?:$q_char)+?)$pattern//m) {
2034 0         0 local $@;
2035 0         0 for (my $digit=1; $digit <= ($last_subexpression_offsets + 1); $digit++) {
2036 0         0 push @split, CORE::eval('$' . $digit);
2037             }
2038             }
2039             }
2040             }
2041             else {
2042 0         0 my $last_subexpression_offsets = _last_subexpression_offsets($pattern);
2043 0   0     0 while ((--$limit > 0) and (CORE::length($string) > 0)) {
2044              
2045             # V
2046 0 0       0 if ($string =~ s/\A((?:$q_char)*?)$pattern//m) {
2047 0         0 local $@;
2048 0         0 for (my $digit=1; $digit <= ($last_subexpression_offsets + 1); $digit++) {
2049 0         0 push @split, CORE::eval('$' . $digit);
2050             }
2051             }
2052             }
2053             }
2054             }
2055              
2056 0 0       0 if (CORE::length($string) > 0) {
2057 0         0 push @split, $string;
2058             }
2059              
2060             # if $_[2] (NOT "$limit") is omitted or zero, trailing null fields are stripped from the result
2061 0 0 0     0 if ((not defined $_[2]) or ($_[2] == 0)) {
2062 0   0     0 while ((scalar(@split) >= 1) and ($split[-1] eq '')) {
2063 0         0 pop @split;
2064             }
2065             }
2066              
2067             # resulting list value in list context
2068 0 0       0 if (wantarray) {
2069 0         0 return @split;
2070             }
2071              
2072             # count of substrings in scalar context
2073             else {
2074 0 0       0 carp "Use of implicit split to \@_ is deprecated" if $^W;
2075 0         0 @_ = @split;
2076 0         0 return scalar @_;
2077             }
2078             }
2079              
2080             #
2081             # get last subexpression offsets
2082             #
2083             sub _last_subexpression_offsets {
2084 0     0   0 my $pattern = $_[0];
2085              
2086             # remove comment
2087 0         0 $pattern =~ s/\(\?\# .*? \)//oxmsg;
2088              
2089 0         0 my $modifier = '';
2090 0 0       0 if ($pattern =~ /\(\?\^? ([\-A-Za-z]+) :/oxms) {
2091 0         0 $modifier = $1;
2092 0         0 $modifier =~ s/-[A-Za-z]*//;
2093             }
2094              
2095             # with /x modifier
2096 0         0 my @char = ();
2097 0 0       0 if ($modifier =~ /x/oxms) {
2098 0         0 @char = $pattern =~ /\G((?>
2099             [^\x80-\xFF\\\#\[\(]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF] |
2100             \\ $q_char |
2101             \# (?>[^\n]*) $ |
2102             \[ (?>(?:[^\x80-\xFF\\\]]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF]|\\\\|\\\]|$q_char)+) \] |
2103             \(\? |
2104             $q_char
2105             ))/oxmsg;
2106             }
2107              
2108             # without /x modifier
2109             else {
2110 0         0 @char = $pattern =~ /\G((?>
2111             [^\x80-\xFF\\\[\(]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF] |
2112             \\ $q_char |
2113             \[ (?>(?:[^\x80-\xFF\\\]]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF]|\\\\|\\\]|$q_char)+) \] |
2114             \(\? |
2115             $q_char
2116             ))/oxmsg;
2117             }
2118              
2119 0         0 return scalar grep { $_ eq '(' } @char;
  0         0  
2120             }
2121              
2122             #
2123             # old UTF-8 transliteration (tr///)
2124             #
2125             sub Eoldutf8::tr($$$$;$) {
2126              
2127 0     0 0 0 my $bind_operator = $_[1];
2128 0         0 my $searchlist = $_[2];
2129 0         0 my $replacementlist = $_[3];
2130 0   0     0 my $modifier = $_[4] || '';
2131              
2132 0 0       0 if ($modifier =~ /r/oxms) {
2133 0 0       0 if ($bind_operator =~ / !~ /oxms) {
2134 0         0 croak "Using !~ with tr///r doesn't make sense";
2135             }
2136             }
2137              
2138 0         0 my @char = $_[0] =~ /\G (?>$q_char) /oxmsg;
2139 0         0 my @searchlist = _charlist_tr($searchlist);
2140 0         0 my @replacementlist = _charlist_tr($replacementlist);
2141              
2142 0         0 my %tr = ();
2143 0         0 for (my $i=0; $i <= $#searchlist; $i++) {
2144 0 0       0 if (not exists $tr{$searchlist[$i]}) {
2145 0 0 0     0 if (defined $replacementlist[$i] and ($replacementlist[$i] ne '')) {
    0 0        
    0          
2146 0         0 $tr{$searchlist[$i]} = $replacementlist[$i];
2147             }
2148             elsif ($modifier =~ /d/oxms) {
2149 0         0 $tr{$searchlist[$i]} = '';
2150             }
2151             elsif (defined $replacementlist[-1] and ($replacementlist[-1] ne '')) {
2152 0         0 $tr{$searchlist[$i]} = $replacementlist[-1];
2153             }
2154             else {
2155 0         0 $tr{$searchlist[$i]} = $searchlist[$i];
2156             }
2157             }
2158             }
2159              
2160 0         0 my $tr = 0;
2161 0         0 my $replaced = '';
2162 0 0       0 if ($modifier =~ /c/oxms) {
2163 0         0 while (defined(my $char = shift @char)) {
2164 0 0       0 if (not exists $tr{$char}) {
2165 0 0       0 if (defined $replacementlist[0]) {
2166 0         0 $replaced .= $replacementlist[0];
2167             }
2168 0         0 $tr++;
2169 0 0       0 if ($modifier =~ /s/oxms) {
2170 0   0     0 while (@char and (not exists $tr{$char[0]})) {
2171 0         0 shift @char;
2172 0         0 $tr++;
2173             }
2174             }
2175             }
2176             else {
2177 0         0 $replaced .= $char;
2178             }
2179             }
2180             }
2181             else {
2182 0         0 while (defined(my $char = shift @char)) {
2183 0 0       0 if (exists $tr{$char}) {
2184 0         0 $replaced .= $tr{$char};
2185 0         0 $tr++;
2186 0 0       0 if ($modifier =~ /s/oxms) {
2187 0   0     0 while (@char and (exists $tr{$char[0]}) and ($tr{$char[0]} eq $tr{$char})) {
      0        
2188 0         0 shift @char;
2189 0         0 $tr++;
2190             }
2191             }
2192             }
2193             else {
2194 0         0 $replaced .= $char;
2195             }
2196             }
2197             }
2198              
2199 0 0       0 if ($modifier =~ /r/oxms) {
2200 0         0 return $replaced;
2201             }
2202             else {
2203 0         0 $_[0] = $replaced;
2204 0 0       0 if ($bind_operator =~ / !~ /oxms) {
2205 0         0 return not $tr;
2206             }
2207             else {
2208 0         0 return $tr;
2209             }
2210             }
2211             }
2212              
2213             #
2214             # old UTF-8 chop
2215             #
2216             sub Eoldutf8::chop(@) {
2217              
2218 0     0 0 0 my $chop;
2219 0 0       0 if (@_ == 0) {
2220 0         0 my @char = /\G (?>$q_char) /oxmsg;
2221 0         0 $chop = pop @char;
2222 0         0 $_ = join '', @char;
2223             }
2224             else {
2225 0         0 for (@_) {
2226 0         0 my @char = /\G (?>$q_char) /oxmsg;
2227 0         0 $chop = pop @char;
2228 0         0 $_ = join '', @char;
2229             }
2230             }
2231 0         0 return $chop;
2232             }
2233              
2234             #
2235             # old UTF-8 index by octet
2236             #
2237             sub Eoldutf8::index($$;$) {
2238              
2239 0     0 1 0 my($str,$substr,$position) = @_;
2240 0   0     0 $position ||= 0;
2241 0         0 my $pos = 0;
2242              
2243 0         0 while ($pos < CORE::length($str)) {
2244 0 0       0 if (CORE::substr($str,$pos,CORE::length($substr)) eq $substr) {
2245 0 0       0 if ($pos >= $position) {
2246 0         0 return $pos;
2247             }
2248             }
2249 0 0       0 if (CORE::substr($str,$pos) =~ /\A ($q_char) /oxms) {
2250 0         0 $pos += CORE::length($1);
2251             }
2252             else {
2253 0         0 $pos += 1;
2254             }
2255             }
2256 0         0 return -1;
2257             }
2258              
2259             #
2260             # old UTF-8 reverse index
2261             #
2262             sub Eoldutf8::rindex($$;$) {
2263              
2264 0     0 0 0 my($str,$substr,$position) = @_;
2265 0   0     0 $position ||= CORE::length($str) - 1;
2266 0         0 my $pos = 0;
2267 0         0 my $rindex = -1;
2268              
2269 0   0     0 while (($pos < CORE::length($str)) and ($pos <= $position)) {
2270 0 0       0 if (CORE::substr($str,$pos,CORE::length($substr)) eq $substr) {
2271 0         0 $rindex = $pos;
2272             }
2273 0 0       0 if (CORE::substr($str,$pos) =~ /\A ($q_char) /oxms) {
2274 0         0 $pos += CORE::length($1);
2275             }
2276             else {
2277 0         0 $pos += 1;
2278             }
2279             }
2280 0         0 return $rindex;
2281             }
2282              
2283             #
2284             # old UTF-8 lower case first with parameter
2285             #
2286             sub Eoldutf8::lcfirst(@) {
2287 0 0   0 0 0 if (@_) {
2288 0         0 my $s = shift @_;
2289 0 0 0     0 if (@_ and wantarray) {
2290 0         0 return Eoldutf8::lc(CORE::substr($s,0,1)) . CORE::substr($s,1), @_;
2291             }
2292             else {
2293 0         0 return Eoldutf8::lc(CORE::substr($s,0,1)) . CORE::substr($s,1);
2294             }
2295             }
2296             else {
2297 0         0 return Eoldutf8::lc(CORE::substr($_,0,1)) . CORE::substr($_,1);
2298             }
2299             }
2300              
2301             #
2302             # old UTF-8 lower case first without parameter
2303             #
2304             sub Eoldutf8::lcfirst_() {
2305 0     0 0 0 return Eoldutf8::lc(CORE::substr($_,0,1)) . CORE::substr($_,1);
2306             }
2307              
2308             #
2309             # old UTF-8 lower case with parameter
2310             #
2311             sub Eoldutf8::lc(@) {
2312 0 0   0 0 0 if (@_) {
2313 0         0 my $s = shift @_;
2314 0 0 0     0 if (@_ and wantarray) {
2315 0 0       0 return join('', map {defined($lc{$_}) ? $lc{$_} : $_} ($s =~ /\G ($q_char) /oxmsg)), @_;
  0         0  
2316             }
2317             else {
2318 0 0       0 return join('', map {defined($lc{$_}) ? $lc{$_} : $_} ($s =~ /\G ($q_char) /oxmsg));
  0         0  
2319             }
2320             }
2321             else {
2322 0         0 return Eoldutf8::lc_();
2323             }
2324             }
2325              
2326             #
2327             # old UTF-8 lower case without parameter
2328             #
2329             sub Eoldutf8::lc_() {
2330 0     0 0 0 my $s = $_;
2331 0 0       0 return join '', map {defined($lc{$_}) ? $lc{$_} : $_} ($s =~ /\G ($q_char) /oxmsg);
  0         0  
2332             }
2333              
2334             #
2335             # old UTF-8 upper case first with parameter
2336             #
2337             sub Eoldutf8::ucfirst(@) {
2338 0 0   0 0 0 if (@_) {
2339 0         0 my $s = shift @_;
2340 0 0 0     0 if (@_ and wantarray) {
2341 0         0 return Eoldutf8::uc(CORE::substr($s,0,1)) . CORE::substr($s,1), @_;
2342             }
2343             else {
2344 0         0 return Eoldutf8::uc(CORE::substr($s,0,1)) . CORE::substr($s,1);
2345             }
2346             }
2347             else {
2348 0         0 return Eoldutf8::uc(CORE::substr($_,0,1)) . CORE::substr($_,1);
2349             }
2350             }
2351              
2352             #
2353             # old UTF-8 upper case first without parameter
2354             #
2355             sub Eoldutf8::ucfirst_() {
2356 0     0 0 0 return Eoldutf8::uc(CORE::substr($_,0,1)) . CORE::substr($_,1);
2357             }
2358              
2359             #
2360             # old UTF-8 upper case with parameter
2361             #
2362             sub Eoldutf8::uc(@) {
2363 0 50   2478 0 0 if (@_) {
2364 2478         3210 my $s = shift @_;
2365 2478 50 33     2793 if (@_ and wantarray) {
2366 2478 0       3890 return join('', map {defined($uc{$_}) ? $uc{$_} : $_} ($s =~ /\G ($q_char) /oxmsg)), @_;
  0         0  
2367             }
2368             else {
2369 0 100       0 return join('', map {defined($uc{$_}) ? $uc{$_} : $_} ($s =~ /\G ($q_char) /oxmsg));
  2478         6036  
2370             }
2371             }
2372             else {
2373 2478         7033 return Eoldutf8::uc_();
2374             }
2375             }
2376              
2377             #
2378             # old UTF-8 upper case without parameter
2379             #
2380             sub Eoldutf8::uc_() {
2381 0     0 0 0 my $s = $_;
2382 0 0       0 return join '', map {defined($uc{$_}) ? $uc{$_} : $_} ($s =~ /\G ($q_char) /oxmsg);
  0         0  
2383             }
2384              
2385             #
2386             # old UTF-8 fold case with parameter
2387             #
2388             sub Eoldutf8::fc(@) {
2389 0 50   2525 0 0 if (@_) {
2390 2525         3173 my $s = shift @_;
2391 2525 50 33     2844 if (@_ and wantarray) {
2392 2525 0       4063 return join('', map {defined($fc{$_}) ? $fc{$_} : $_} ($s =~ /\G ($q_char) /oxmsg)), @_;
  0         0  
2393             }
2394             else {
2395 0 100       0 return join('', map {defined($fc{$_}) ? $fc{$_} : $_} ($s =~ /\G ($q_char) /oxmsg));
  2525         5706  
2396             }
2397             }
2398             else {
2399 2525         7380 return Eoldutf8::fc_();
2400             }
2401             }
2402              
2403             #
2404             # old UTF-8 fold case without parameter
2405             #
2406             sub Eoldutf8::fc_() {
2407 0     0 0 0 my $s = $_;
2408 0 0       0 return join '', map {defined($fc{$_}) ? $fc{$_} : $_} ($s =~ /\G ($q_char) /oxmsg);
  0         0  
2409             }
2410              
2411             #
2412             # old UTF-8 regexp capture
2413             #
2414             {
2415             sub Eoldutf8::capture {
2416 0     0 1 0 return $_[0];
2417             }
2418             }
2419              
2420             #
2421             # old UTF-8 regexp ignore case modifier
2422             #
2423             sub Eoldutf8::ignorecase {
2424              
2425 0     0 0 0 my @string = @_;
2426 0         0 my $metachar = qr/[\@\\|[\]{]/oxms;
2427              
2428             # ignore case of $scalar or @array
2429 0         0 for my $string (@string) {
2430              
2431             # split regexp
2432 0         0 my @char = $string =~ /\G (?>\[\^|\\$q_char|$q_char) /oxmsg;
2433              
2434             # unescape character
2435 0         0 for (my $i=0; $i <= $#char; $i++) {
2436 0 0       0 next if not defined $char[$i];
2437              
2438             # open character class [...]
2439 0 0       0 if ($char[$i] eq '[') {
    0          
    0          
    0          
2440 0         0 my $left = $i;
2441              
2442             # [] make die "unmatched [] in regexp ...\n"
2443              
2444 0 0       0 if ($char[$i+1] eq ']') {
2445 0         0 $i++;
2446             }
2447              
2448 0         0 while (1) {
2449 0 0       0 if (++$i > $#char) {
2450 0         0 croak "Unmatched [] in regexp";
2451             }
2452 0 0       0 if ($char[$i] eq ']') {
2453 0         0 my $right = $i;
2454 0         0 my @charlist = charlist_qr(@char[$left+1..$right-1], 'i');
2455              
2456             # escape character
2457 0         0 for my $char (@charlist) {
2458 0 0       0 if (0) {
2459             }
2460              
2461 0         0 elsif ($char =~ /\A [.|)] \z/oxms) {
2462 0         0 $char = '\\' . $char;
2463             }
2464             }
2465              
2466             # [...]
2467 0         0 splice @char, $left, $right-$left+1, '(?:' . join('|', @charlist) . ')';
2468              
2469 0         0 $i = $left;
2470 0         0 last;
2471             }
2472             }
2473             }
2474              
2475             # open character class [^...]
2476             elsif ($char[$i] eq '[^') {
2477 0         0 my $left = $i;
2478              
2479             # [^] make die "unmatched [] in regexp ...\n"
2480              
2481 0 0       0 if ($char[$i+1] eq ']') {
2482 0         0 $i++;
2483             }
2484              
2485 0         0 while (1) {
2486 0 0       0 if (++$i > $#char) {
2487 0         0 croak "Unmatched [] in regexp";
2488             }
2489 0 0       0 if ($char[$i] eq ']') {
2490 0         0 my $right = $i;
2491 0         0 my @charlist = charlist_not_qr(@char[$left+1..$right-1], 'i');
2492              
2493             # escape character
2494 0         0 for my $char (@charlist) {
2495 0 0       0 if (0) {
2496             }
2497              
2498 0         0 elsif ($char =~ /\A [.|)] \z/oxms) {
2499 0         0 $char = '\\' . $char;
2500             }
2501             }
2502              
2503             # [^...]
2504 0         0 splice @char, $left, $right-$left+1, '(?!' . join('|', @charlist) . ")(?:$your_char)";
2505              
2506 0         0 $i = $left;
2507 0         0 last;
2508             }
2509             }
2510             }
2511              
2512             # rewrite classic character class or escape character
2513             elsif (my $char = classic_character_class($char[$i])) {
2514 0         0 $char[$i] = $char;
2515             }
2516              
2517             # with /i modifier
2518             elsif ($char[$i] =~ /\A [\x00-\xFF] \z/oxms) {
2519 0         0 my $uc = Eoldutf8::uc($char[$i]);
2520 0         0 my $fc = Eoldutf8::fc($char[$i]);
2521 0 0       0 if ($uc ne $fc) {
2522 0 0       0 if (CORE::length($fc) == 1) {
2523 0         0 $char[$i] = '[' . $uc . $fc . ']';
2524             }
2525             else {
2526 0         0 $char[$i] = '(?:' . $uc . '|' . $fc . ')';
2527             }
2528             }
2529             }
2530             }
2531              
2532             # characterize
2533 0         0 for (my $i=0; $i <= $#char; $i++) {
2534 0 0       0 next if not defined $char[$i];
2535              
2536 0 0       0 if (0) {
2537             }
2538              
2539             # quote character before ? + * {
2540 0 0       0 elsif (($i >= 1) and ($char[$i] =~ /\A [\?\+\*\{] \z/oxms)) {
2541 0 0       0 if ($char[$i-1] !~ /\A [\x00-\xFF] \z/oxms) {
2542 0         0 $char[$i-1] = '(?:' . $char[$i-1] . ')';
2543             }
2544             }
2545             }
2546              
2547 0         0 $string = join '', @char;
2548             }
2549              
2550             # make regexp string
2551 0         0 return @string;
2552             }
2553              
2554             #
2555             # classic character class ( \D \S \W \d \s \w \C \X \H \V \h \v \R \N \b \B )
2556             #
2557             sub Eoldutf8::classic_character_class {
2558 0     2820 0 0 my($char) = @_;
2559              
2560             return {
2561             '\D' => '${Eoldutf8::eD}',
2562             '\S' => '${Eoldutf8::eS}',
2563             '\W' => '${Eoldutf8::eW}',
2564             '\d' => '[0-9]',
2565              
2566             # Before Perl 5.6, \s only matched the five whitespace characters
2567             # tab, newline, form-feed, carriage return, and the space character
2568             # itself, which, taken together, is the character class [\t\n\f\r ].
2569              
2570             # Vertical tabs are now whitespace
2571             # \s in a regex now matches a vertical tab in all circumstances.
2572             # http://search.cpan.org/dist/perl-5.18.0/pod/perldelta.pod#Vertical_tabs_are_now_whitespace
2573             # \t \n \v \f \r space
2574             # '\s' => '[\x09\x0A \x0C\x0D\x20]',
2575             # '\s' => '[\x09\x0A\x0B\x0C\x0D\x20]',
2576             '\s' => '\s',
2577              
2578             '\w' => '[0-9A-Z_a-z]',
2579             '\C' => '[\x00-\xFF]',
2580             '\X' => 'X',
2581              
2582             # \h \v \H \V
2583              
2584             # P.114 Character Class Shortcuts
2585             # in Chapter 7: In the World of Regular Expressions
2586             # of ISBN 978-0-596-52010-6 Learning Perl, Fifth Edition
2587              
2588             # P.357 13.2.3 Whitespace
2589             # in Chapter 13: perlrecharclass: Perl Regular Expression Character Classes
2590             # of ISBN-13: 978-1-906966-02-7 The Perl Language Reference Manual (for Perl version 5.12.1)
2591             #
2592             # 0x00009 CHARACTER TABULATION h s
2593             # 0x0000a LINE FEED (LF) vs
2594             # 0x0000b LINE TABULATION v
2595             # 0x0000c FORM FEED (FF) vs
2596             # 0x0000d CARRIAGE RETURN (CR) vs
2597             # 0x00020 SPACE h s
2598              
2599             # P.196 Table 5-9. Alphanumeric regex metasymbols
2600             # in Chapter 5. Pattern Matching
2601             # of ISBN 978-0-596-00492-7 Programming Perl 4th Edition.
2602              
2603             # (and so on)
2604              
2605             '\H' => '${Eoldutf8::eH}',
2606             '\V' => '${Eoldutf8::eV}',
2607             '\h' => '[\x09\x20]',
2608             '\v' => '[\x0A\x0B\x0C\x0D]',
2609             '\R' => '${Eoldutf8::eR}',
2610              
2611             # \N
2612             #
2613             # http://perldoc.perl.org/perlre.html
2614             # Character Classes and other Special Escapes
2615             # Any character but \n (experimental). Not affected by /s modifier
2616              
2617             '\N' => '${Eoldutf8::eN}',
2618              
2619             # \b \B
2620              
2621             # P.180 Boundaries: The \b and \B Assertions
2622             # in Chapter 5: Pattern Matching
2623             # of ISBN 0-596-00027-8 Programming Perl Third Edition.
2624              
2625             # P.219 Boundaries: The \b and \B Assertions
2626             # in Chapter 5: Pattern Matching
2627             # of ISBN 978-0-596-00492-7 Programming Perl 4th Edition.
2628              
2629             # \b really means (?:(?<=\w)(?!\w)|(?
2630             # or (?:(?<=\A|\W)(?=\w)|(?<=\w)(?=\W|\z))
2631             '\b' => '${Eoldutf8::eb}',
2632              
2633             # \B really means (?:(?<=\w)(?=\w)|(?
2634             # or (?:(?<=\w)(?=\w)|(?<=\W)(?=\W))
2635             '\B' => '${Eoldutf8::eB}',
2636              
2637 2820   100     3894 }->{$char} || '';
2638             }
2639              
2640             #
2641             # prepare old UTF-8 characters per length
2642             #
2643              
2644             # 1 octet characters
2645             my @chars1 = ();
2646             sub chars1 {
2647 2820 0   0 0 110219 if (@chars1) {
2648 0         0 return @chars1;
2649             }
2650 0 0       0 if (exists $range_tr{1}) {
2651 0         0 my @ranges = @{ $range_tr{1} };
  0         0  
2652 0         0 while (my @range = splice(@ranges,0,1)) {
2653 0         0 for my $oct0 (@{$range[0]}) {
  0         0  
2654 0         0 push @chars1, pack 'C', $oct0;
2655             }
2656             }
2657             }
2658 0         0 return @chars1;
2659             }
2660              
2661             # 2 octets characters
2662             my @chars2 = ();
2663             sub chars2 {
2664 0 0   0 0 0 if (@chars2) {
2665 0         0 return @chars2;
2666             }
2667 0 0       0 if (exists $range_tr{2}) {
2668 0         0 my @ranges = @{ $range_tr{2} };
  0         0  
2669 0         0 while (my @range = splice(@ranges,0,2)) {
2670 0         0 for my $oct0 (@{$range[0]}) {
  0         0  
2671 0         0 for my $oct1 (@{$range[1]}) {
  0         0  
2672 0         0 push @chars2, pack 'CC', $oct0,$oct1;
2673             }
2674             }
2675             }
2676             }
2677 0         0 return @chars2;
2678             }
2679              
2680             # 3 octets characters
2681             my @chars3 = ();
2682             sub chars3 {
2683 0 0   0 0 0 if (@chars3) {
2684 0         0 return @chars3;
2685             }
2686 0 0       0 if (exists $range_tr{3}) {
2687 0         0 my @ranges = @{ $range_tr{3} };
  0         0  
2688 0         0 while (my @range = splice(@ranges,0,3)) {
2689 0         0 for my $oct0 (@{$range[0]}) {
  0         0  
2690 0         0 for my $oct1 (@{$range[1]}) {
  0         0  
2691 0         0 for my $oct2 (@{$range[2]}) {
  0         0  
2692 0         0 push @chars3, pack 'CCC', $oct0,$oct1,$oct2;
2693             }
2694             }
2695             }
2696             }
2697             }
2698 0         0 return @chars3;
2699             }
2700              
2701             # 4 octets characters
2702             my @chars4 = ();
2703             sub chars4 {
2704 0 0   0 0 0 if (@chars4) {
2705 0         0 return @chars4;
2706             }
2707 0 0       0 if (exists $range_tr{4}) {
2708 0         0 my @ranges = @{ $range_tr{4} };
  0         0  
2709 0         0 while (my @range = splice(@ranges,0,4)) {
2710 0         0 for my $oct0 (@{$range[0]}) {
  0         0  
2711 0         0 for my $oct1 (@{$range[1]}) {
  0         0  
2712 0         0 for my $oct2 (@{$range[2]}) {
  0         0  
2713 0         0 for my $oct3 (@{$range[3]}) {
  0         0  
2714 0         0 push @chars4, pack 'CCCC', $oct0,$oct1,$oct2,$oct3;
2715             }
2716             }
2717             }
2718             }
2719             }
2720             }
2721 0         0 return @chars4;
2722             }
2723              
2724             #
2725             # old UTF-8 open character list for tr
2726             #
2727             sub _charlist_tr {
2728              
2729 0     0   0 local $_ = shift @_;
2730              
2731             # unescape character
2732 0         0 my @char = ();
2733 0         0 while (not /\G \z/oxmsgc) {
2734 0 0       0 if (/\G (\\0?55|\\x2[Dd]|\\-) /oxmsgc) {
    0          
    0          
    0          
    0          
    0          
    0          
2735 0         0 push @char, '\-';
2736             }
2737             elsif (/\G \\ ([0-7]{2,3}) /oxmsgc) {
2738 0         0 push @char, CORE::chr(oct $1);
2739             }
2740             elsif (/\G \\x ([0-9A-Fa-f]{1,2}) /oxmsgc) {
2741 0         0 push @char, CORE::chr(hex $1);
2742             }
2743             elsif (/\G \\c ([\x40-\x5F]) /oxmsgc) {
2744 0         0 push @char, CORE::chr(CORE::ord($1) & 0x1F);
2745             }
2746             elsif (/\G (\\ [0nrtfbae]) /oxmsgc) {
2747             push @char, {
2748             '\0' => "\0",
2749             '\n' => "\n",
2750             '\r' => "\r",
2751             '\t' => "\t",
2752             '\f' => "\f",
2753             '\b' => "\x08", # \b means backspace in character class
2754             '\a' => "\a",
2755             '\e' => "\e",
2756 0         0 }->{$1};
2757             }
2758             elsif (/\G \\ ($q_char) /oxmsgc) {
2759 0         0 push @char, $1;
2760             }
2761             elsif (/\G ($q_char) /oxmsgc) {
2762 0         0 push @char, $1;
2763             }
2764             }
2765              
2766             # join separated multiple-octet
2767 0         0 @char = join('',@char) =~ /\G (?>\\-|$q_char) /oxmsg;
2768              
2769             # unescape '-'
2770 0         0 my @i = ();
2771 0         0 for my $i (0 .. $#char) {
2772 0 0       0 if ($char[$i] eq '\-') {
    0          
2773 0         0 $char[$i] = '-';
2774             }
2775             elsif ($char[$i] eq '-') {
2776 0 0 0     0 if ((0 < $i) and ($i < $#char)) {
2777 0         0 push @i, $i;
2778             }
2779             }
2780             }
2781              
2782             # open character list (reverse for splice)
2783 0         0 for my $i (CORE::reverse @i) {
2784 0         0 my @range = ();
2785              
2786             # range error
2787 0 0 0     0 if ((CORE::length($char[$i-1]) > CORE::length($char[$i+1])) or ($char[$i-1] gt $char[$i+1])) {
2788 0         0 croak "Invalid tr/// range \"\\x" . unpack('H*',$char[$i-1]) . '-\x' . unpack('H*',$char[$i+1]) . '"';
2789             }
2790              
2791             # range of multiple-octet code
2792 0 0       0 if (CORE::length($char[$i-1]) == 1) {
    0          
    0          
    0          
2793 0 0       0 if (CORE::length($char[$i+1]) == 1) {
    0          
    0          
    0          
2794 0 0       0 push @range, grep {($char[$i-1] le $_) and ($_ le $char[$i+1])} chars1();
  0         0  
2795             }
2796             elsif (CORE::length($char[$i+1]) == 2) {
2797 0         0 push @range, grep {$char[$i-1] le $_} chars1();
  0         0  
2798 0         0 push @range, grep {$_ le $char[$i+1]} chars2();
  0         0  
2799             }
2800             elsif (CORE::length($char[$i+1]) == 3) {
2801 0         0 push @range, grep {$char[$i-1] le $_} chars1();
  0         0  
2802 0         0 push @range, chars2();
2803 0         0 push @range, grep {$_ le $char[$i+1]} chars3();
  0         0  
2804             }
2805             elsif (CORE::length($char[$i+1]) == 4) {
2806 0         0 push @range, grep {$char[$i-1] le $_} chars1();
  0         0  
2807 0         0 push @range, chars2();
2808 0         0 push @range, chars3();
2809 0         0 push @range, grep {$_ le $char[$i+1]} chars4();
  0         0  
2810             }
2811             else {
2812 0         0 croak "Invalid tr/// range (over 4octets) \"\\x" . unpack('H*',$char[$i-1]) . '-\x' . unpack('H*',$char[$i+1]) . '"';
2813             }
2814             }
2815             elsif (CORE::length($char[$i-1]) == 2) {
2816 0 0       0 if (CORE::length($char[$i+1]) == 2) {
    0          
    0          
2817 0 0       0 push @range, grep {($char[$i-1] le $_) and ($_ le $char[$i+1])} chars2();
  0         0  
2818             }
2819             elsif (CORE::length($char[$i+1]) == 3) {
2820 0         0 push @range, grep {$char[$i-1] le $_} chars2();
  0         0  
2821 0         0 push @range, grep {$_ le $char[$i+1]} chars3();
  0         0  
2822             }
2823             elsif (CORE::length($char[$i+1]) == 4) {
2824 0         0 push @range, grep {$char[$i-1] le $_} chars2();
  0         0  
2825 0         0 push @range, chars3();
2826 0         0 push @range, grep {$_ le $char[$i+1]} chars4();
  0         0  
2827             }
2828             else {
2829 0         0 croak "Invalid tr/// range (over 4octets) \"\\x" . unpack('H*',$char[$i-1]) . '-\x' . unpack('H*',$char[$i+1]) . '"';
2830             }
2831             }
2832             elsif (CORE::length($char[$i-1]) == 3) {
2833 0 0       0 if (CORE::length($char[$i+1]) == 3) {
    0          
2834 0 0       0 push @range, grep {($char[$i-1] le $_) and ($_ le $char[$i+1])} chars3();
  0         0  
2835             }
2836             elsif (CORE::length($char[$i+1]) == 4) {
2837 0         0 push @range, grep {$char[$i-1] le $_} chars3();
  0         0  
2838 0         0 push @range, grep {$_ le $char[$i+1]} chars4();
  0         0  
2839             }
2840             else {
2841 0         0 croak "Invalid tr/// range (over 4octets) \"\\x" . unpack('H*',$char[$i-1]) . '-\x' . unpack('H*',$char[$i+1]) . '"';
2842             }
2843             }
2844             elsif (CORE::length($char[$i-1]) == 4) {
2845 0 0       0 if (CORE::length($char[$i+1]) == 4) {
2846 0 0       0 push @range, grep {($char[$i-1] le $_) and ($_ le $char[$i+1])} chars4();
  0         0  
2847             }
2848             else {
2849 0         0 croak "Invalid tr/// range (over 4octets) \"\\x" . unpack('H*',$char[$i-1]) . '-\x' . unpack('H*',$char[$i+1]) . '"';
2850             }
2851             }
2852             else {
2853 0         0 croak "Invalid tr/// range (over 4octets) \"\\x" . unpack('H*',$char[$i-1]) . '-\x' . unpack('H*',$char[$i+1]) . '"';
2854             }
2855              
2856 0         0 splice @char, $i-1, 3, @range;
2857             }
2858              
2859 0         0 return @char;
2860             }
2861              
2862             #
2863             # old UTF-8 open character class
2864             #
2865             sub _cc {
2866 0 50   753   0 if (scalar(@_) == 0) {
    100          
    50          
2867 753         1750 die __FILE__, ": subroutine cc got no parameter.\n";
2868             }
2869             elsif (scalar(@_) == 1) {
2870 0         0 return sprintf('\x%02X',$_[0]);
2871             }
2872             elsif (scalar(@_) == 2) {
2873 382 50       1016 if ($_[0] > $_[1]) {
    100          
    100          
2874 371         747 die __FILE__, ": subroutine cc got \$_[0] > \$_[1] parameters).\n";
2875             }
2876             elsif ($_[0] == $_[1]) {
2877 0         0 return sprintf('\x%02X',$_[0]);
2878             }
2879             elsif (($_[0]+1) == $_[1]) {
2880 20         46 return sprintf('[\\x%02X\\x%02X]',$_[0],$_[1]);
2881             }
2882             else {
2883 20         50 return sprintf('[\\x%02X-\\x%02X]',$_[0],$_[1]);
2884             }
2885             }
2886             else {
2887 331         1292 die __FILE__, ": subroutine cc got 3 or more parameters (@{[scalar(@_)]} parameters).\n";
  0         0  
2888             }
2889             }
2890              
2891             #
2892             # old UTF-8 octet range
2893             #
2894             sub _octets {
2895 0     557   0 my $length = shift @_;
2896              
2897 557 100       875 if ($length == 1) {
    100          
    50          
    0          
2898 557         1182 my($a1) = unpack 'C', $_[0];
2899 406         932 my($z1) = unpack 'C', $_[1];
2900              
2901 406 50       667 if ($a1 > $z1) {
2902 406         788 croak 'Invalid [] range in regexp (CORE::ord(A) > CORE::ord(B)) ' . '\x' . unpack('H*',$a1) . '-\x' . unpack('H*',$z1);
2903             }
2904              
2905 0 50       0 if ($a1 == $z1) {
    50          
2906 406         899 return sprintf('\x%02X',$a1);
2907             }
2908             elsif (($a1+1) == $z1) {
2909 0         0 return sprintf('\x%02X\x%02X',$a1,$z1);
2910             }
2911             else {
2912 0         0 return sprintf('\x%02X-\x%02X',$a1,$z1);
2913             }
2914             }
2915             elsif ($length == 2) {
2916 406         2279 my($a1,$a2) = unpack 'CC', $_[0];
2917 20         44 my($z1,$z2) = unpack 'CC', $_[1];
2918 20         36 my($A1,$A2) = unpack 'CC', $_[2];
2919 20         36 my($Z1,$Z2) = unpack 'CC', $_[3];
2920              
2921 20 50       32 if ($a1 == $z1) {
    50          
2922             return (
2923             # 11111111 222222222222
2924             # A A Z
2925 20         49 _cc($a1) . _cc($a2,$z2), # a2-z2
2926             );
2927             }
2928             elsif (($a1+1) == $z1) {
2929             return (
2930             # 11111111111 222222222222
2931             # A Z A Z
2932 0         0 _cc($a1) . _cc($a2,$Z2), # a2-
2933             _cc( $z1) . _cc($A2,$z2), # -z2
2934             );
2935             }
2936             else {
2937             return (
2938             # 1111111111111111 222222222222
2939             # A Z A Z
2940 0         0 _cc($a1) . _cc($a2,$Z2), # a2-
2941             _cc($a1+1,$z1-1) . _cc($A2,$Z2), # -
2942             _cc( $z1) . _cc($A2,$z2), # -z2
2943             );
2944             }
2945             }
2946             elsif ($length == 3) {
2947 20         41 my($a1,$a2,$a3) = unpack 'CCC', $_[0];
2948 131         355 my($z1,$z2,$z3) = unpack 'CCC', $_[1];
2949 131         246 my($A1,$A2,$A3) = unpack 'CCC', $_[2];
2950 131         227 my($Z1,$Z2,$Z3) = unpack 'CCC', $_[3];
2951              
2952 131 100       214 if ($a1 == $z1) {
    50          
2953 131 50       244 if ($a2 == $z2) {
    0          
2954             return (
2955             # 11111111 22222222 333333333333
2956             # A A A Z
2957 111         208 _cc($a1) . _cc($a2) . _cc($a3,$z3), # a3-z3
2958             );
2959             }
2960             elsif (($a2+1) == $z2) {
2961             return (
2962             # 11111111 22222222222 333333333333
2963             # A A Z A Z
2964 111         190 _cc($a1) . _cc($a2) . _cc($a3,$Z3), # a3-
2965             _cc($a1) . _cc( $z2) . _cc($A3,$z3), # -z3
2966             );
2967             }
2968             else {
2969             return (
2970             # 11111111 2222222222222222 333333333333
2971             # A A Z A Z
2972 0         0 _cc($a1) . _cc($a2) . _cc($a3,$Z3), # a3-
2973             _cc($a1) . _cc($a2+1,$z2-1) . _cc($A3,$Z3), # -
2974             _cc($a1) . _cc( $z2) . _cc($A3,$z3), # -z3
2975             );
2976             }
2977             }
2978             elsif (($a1+1) == $z1) {
2979             return (
2980             # 11111111111 22222222222222 333333333333
2981             # A Z A Z A Z
2982 0         0 _cc($a1) . _cc($a2) . _cc($a3,$Z3), # a3-
2983             _cc($a1) . _cc($a2+1,$Z2) . _cc($A3,$Z3), # -
2984             _cc( $z1) . _cc($A2,$z2-1) . _cc($A3,$Z3), # -
2985             _cc( $z1) . _cc( $z2) . _cc($A3,$z3), # -z3
2986             );
2987             }
2988             else {
2989             return (
2990             # 1111111111111111 22222222222222 333333333333
2991             # A Z A Z A Z
2992 0         0 _cc($a1) . _cc($a2) . _cc($a3,$Z3), # a3-
2993             _cc($a1) . _cc($a2+1,$Z2) . _cc($A3,$Z3), # -
2994             _cc($a1+1,$z1-1) . _cc($A2,$Z2) . _cc($A3,$Z3), # -
2995             _cc( $z1) . _cc($A2,$z2-1) . _cc($A3,$Z3), # -
2996             _cc( $z1) . _cc( $z2) . _cc($A3,$z3), # -z3
2997             );
2998             }
2999             }
3000             elsif ($length == 4) {
3001 20         38 my($a1,$a2,$a3,$a4) = unpack 'CCCC', $_[0];
3002 0         0 my($z1,$z2,$z3,$z4) = unpack 'CCCC', $_[1];
3003 0         0 my($A1,$A2,$A3,$A4) = unpack 'CCCC', $_[0];
3004 0         0 my($Z1,$Z2,$Z3,$Z4) = unpack 'CCCC', $_[1];
3005              
3006 0 0       0 if ($a1 == $z1) {
    0          
3007 0 0       0 if ($a2 == $z2) {
    0          
3008 0 0       0 if ($a3 == $z3) {
    0          
3009             return (
3010             # 11111111 22222222 33333333 444444444444
3011             # A A A A Z
3012 0         0 _cc($a1) . _cc($a2) . _cc($a3) . _cc($a4,$z4), # a4-z4
3013             );
3014             }
3015             elsif (($a3+1) == $z3) {
3016             return (
3017             # 11111111 22222222 33333333333 444444444444
3018             # A A A Z A Z
3019 0         0 _cc($a1) . _cc($a2) . _cc($a3) . _cc($a4,$Z4), # a4-
3020             _cc($a1) . _cc($a2) . _cc( $z3) . _cc($A4,$z4), # -z4
3021             );
3022             }
3023             else {
3024             return (
3025             # 11111111 22222222 3333333333333333 444444444444
3026             # A A A Z A Z
3027 0         0 _cc($a1) . _cc($a2) . _cc($a3) . _cc($a4,$Z4), # a4-
3028             _cc($a1) . _cc($a2) . _cc($a3+1,$z3-1) . _cc($A4,$Z4), # -
3029             _cc($a1) . _cc($a2) . _cc( $z3) . _cc($A4,$z4), # -z4
3030             );
3031             }
3032             }
3033             elsif (($a2+1) == $z2) {
3034             return (
3035             # 11111111 22222222222 33333333333333 444444444444
3036             # A A Z A Z A Z
3037 0         0 _cc($a1) . _cc($a2) . _cc($a3) . _cc($a4,$Z4), # a4-
3038             _cc($a1) . _cc($a2) . _cc($a3+1,$Z3) . _cc($A4,$Z4), # -
3039             _cc($a1) . _cc( $z2) . _cc($A3,$z3-1) . _cc($A4,$Z4), # -
3040             _cc($a1) . _cc( $z2) . _cc( $z3) . _cc($A4,$z4), # -z4
3041             );
3042             }
3043             else {
3044             return (
3045             # 11111111 2222222222222222 33333333333333 444444444444
3046             # A A Z A Z A Z
3047 0         0 _cc($a1) . _cc($a2) . _cc($a3) . _cc($a4,$Z4), # a4-
3048             _cc($a1) . _cc($a2) . _cc($a3+1,$Z3) . _cc($A4,$Z4), # -
3049             _cc($a1) . _cc($a2+1,$z2-1) . _cc($A3,$Z3) . _cc($A4,$Z4), # -
3050             _cc($a1) . _cc( $z2) . _cc($A3,$z3-1) . _cc($A4,$Z4), # -
3051             _cc($a1) . _cc( $z2) . _cc( $z3) . _cc($A4,$z4), # -z4
3052             );
3053             }
3054             }
3055             elsif (($a1+1) == $z1) {
3056             return (
3057             # 11111111111 22222222222222 33333333333333 444444444444
3058             # A Z A Z A Z A Z
3059 0         0 _cc($a1) . _cc($a2) . _cc($a3) . _cc($a4,$Z4), # a4-
3060             _cc($a1) . _cc($a2) . _cc($a3+1,$Z3) . _cc($A4,$Z4), # -
3061             _cc($a1) . _cc($a2+1,$Z2) . _cc($A3,$Z3) . _cc($A4,$Z4), # -
3062             _cc( $z1) . _cc($A2,$z2-1) . _cc($A3,$Z3) . _cc($A4,$Z4), # -
3063             _cc( $z1) . _cc( $z2) . _cc($A3,$z3-1) . _cc($A4,$Z4), # -
3064             _cc( $z1) . _cc( $z2) . _cc( $z3) . _cc($A4,$z4), # -z4
3065             );
3066             }
3067             else {
3068             return (
3069             # 1111111111111111 22222222222222 33333333333333 444444444444
3070             # A Z A Z A Z A Z
3071 0         0 _cc($a1) . _cc($a2) . _cc($a3) . _cc($a4,$Z4), # a4-
3072             _cc($a1) . _cc($a2) . _cc($a3+1,$Z3) . _cc($A4,$Z4), # -
3073             _cc($a1) . _cc($a2+1,$Z2) . _cc($A3,$Z3) . _cc($A4,$Z4), # -
3074             _cc($a1+1,$z1-1) . _cc($A2,$Z2) . _cc($A3,$Z3) . _cc($A4,$Z4), # -
3075             _cc( $z1) . _cc($A2,$z2-1) . _cc($A3,$Z3) . _cc($A4,$Z4), # -
3076             _cc( $z1) . _cc( $z2) . _cc($A3,$z3-1) . _cc($A4,$Z4), # -
3077             _cc( $z1) . _cc( $z2) . _cc( $z3) . _cc($A4,$z4), # -z4
3078             );
3079             }
3080             }
3081             else {
3082 0         0 die __FILE__, ": subroutine _octets got invalid length ($length).\n";
3083             }
3084             }
3085              
3086             #
3087             # old UTF-8 range regexp
3088             #
3089             sub _range_regexp {
3090 0     537   0 my($length,$first,$last) = @_;
3091              
3092 537         1034 my @range_regexp = ();
3093 537 50       741 if (not exists $range_tr{$length}) {
3094 537         1208 return @range_regexp;
3095             }
3096              
3097 0         0 my @ranges = @{ $range_tr{$length} };
  537         685  
3098 537         1079 while (my @range = splice(@ranges,0,$length)) {
3099 537         1364 my $min = '';
3100 923         1212 my $max = '';
3101 923         1009 for (my $i=0; $i < $length; $i++) {
3102 923         1673 $min .= pack 'C', $range[$i][0];
3103 1205         2402 $max .= pack 'C', $range[$i][-1];
3104             }
3105              
3106             # min___max
3107             # FIRST_____________LAST
3108             # (nothing)
3109              
3110 1205 50 66     2257 if ($max lt $first) {
    100 100        
    50 33        
    100 100        
    100 66        
    100 66        
    50 66        
3111             }
3112              
3113             # **********
3114             # min_________max
3115             # FIRST_____________LAST
3116             # **********
3117              
3118             elsif (($min le $first) and ($first le $max) and ($max le $last)) {
3119 923         7309 push @range_regexp, _octets($length,$first,$max,$min,$max);
3120             }
3121              
3122             # **********************
3123             # min________________max
3124             # FIRST_____________LAST
3125             # **********************
3126              
3127             elsif (($min eq $first) and ($max eq $last)) {
3128 28         58 push @range_regexp, _octets($length,$first,$last,$min,$max);
3129             }
3130              
3131             # *********
3132             # min___max
3133             # FIRST_____________LAST
3134             # *********
3135              
3136             elsif (($first le $min) and ($max le $last)) {
3137 0         0 push @range_regexp, _octets($length,$min,$max,$min,$max);
3138             }
3139              
3140             # **********************
3141             # min__________________________max
3142             # FIRST_____________LAST
3143             # **********************
3144              
3145             elsif (($min le $first) and ($last le $max)) {
3146 40         67 push @range_regexp, _octets($length,$first,$last,$min,$max);
3147             }
3148              
3149             # *********
3150             # min________max
3151             # FIRST_____________LAST
3152             # *********
3153              
3154             elsif (($first le $min) and ($min le $last) and ($last le $max)) {
3155 469         1004 push @range_regexp, _octets($length,$min,$last,$min,$max);
3156             }
3157              
3158             # min___max
3159             # FIRST_____________LAST
3160             # (nothing)
3161              
3162             elsif ($last lt $min) {
3163             }
3164              
3165             else {
3166 20         34 die __FILE__, ": subroutine _range_regexp panic.\n";
3167             }
3168             }
3169              
3170 0         0 return @range_regexp;
3171             }
3172              
3173             #
3174             # old UTF-8 open character list for qr and not qr
3175             #
3176             sub _charlist {
3177              
3178 537     770   1148 my $modifier = pop @_;
3179 770         1108 my @char = @_;
3180              
3181 770 100       1460 my $ignorecase = ($modifier =~ /i/oxms) ? 1 : 0;
3182              
3183             # unescape character
3184 770         1632 for (my $i=0; $i <= $#char; $i++) {
3185              
3186             # escape - to ...
3187 770 100 100     2080 if ($char[$i] eq '-') {
    50          
    50          
    50          
    50          
    50          
    100          
    50          
    100          
    100          
    100          
    100          
3188 2660 100 100     16923 if ((0 < $i) and ($i < $#char)) {
3189 522         1673 $char[$i] = '...';
3190             }
3191             }
3192              
3193             # octal escape sequence
3194             elsif ($char[$i] =~ /\A \\o \{ ([0-7]+) \} \z/oxms) {
3195 497         1050 $char[$i] = octchr($1);
3196             }
3197              
3198             # hexadecimal escape sequence
3199             elsif ($char[$i] =~ /\A \\x \{ ([0-9A-Fa-f]+) \} \z/oxms) {
3200 0         0 $char[$i] = hexchr($1);
3201             }
3202              
3203             # \b{...} --> b\{...}
3204             # \B{...} --> B\{...}
3205             # \N{CHARNAME} --> N\{CHARNAME}
3206             # \p{PROPERTY} --> p\{PROPERTY}
3207             # \P{PROPERTY} --> P\{PROPERTY}
3208             elsif ($char[$i] =~ /\A \\ ([bBNpP]) ( \{ ([^\x80-\xFF0-9\}][^\x80-\xFF\}]*) \} ) \z/oxms) {
3209 0         0 $char[$i] = $1 . '\\' . $2;
3210             }
3211              
3212             # \p, \P, \X --> p, P, X
3213             elsif ($char[$i] =~ /\A \\ ( [pPX] ) \z/oxms) {
3214 0         0 $char[$i] = $1;
3215             }
3216              
3217             elsif ($char[$i] =~ /\A \\ ([0-7]{2,3}) \z/oxms) {
3218 0         0 $char[$i] = CORE::chr oct $1;
3219             }
3220             elsif ($char[$i] =~ /\A \\x ([0-9A-Fa-f]{1,2}) \z/oxms) {
3221 0         0 $char[$i] = CORE::chr hex $1;
3222             }
3223             elsif ($char[$i] =~ /\A \\c ([\x40-\x5F]) \z/oxms) {
3224 206         700 $char[$i] = CORE::chr(CORE::ord($1) & 0x1F);
3225             }
3226             elsif ($char[$i] =~ /\A (\\ [0nrtfbaedswDSWHVhvR]) \z/oxms) {
3227             $char[$i] = {
3228             '\0' => "\0",
3229             '\n' => "\n",
3230             '\r' => "\r",
3231             '\t' => "\t",
3232             '\f' => "\f",
3233             '\b' => "\x08", # \b means backspace in character class
3234             '\a' => "\a",
3235             '\e' => "\e",
3236             '\d' => '[0-9]',
3237              
3238             # Vertical tabs are now whitespace
3239             # \s in a regex now matches a vertical tab in all circumstances.
3240             # http://search.cpan.org/dist/perl-5.18.0/pod/perldelta.pod#Vertical_tabs_are_now_whitespace
3241             # \t \n \v \f \r space
3242             # '\s' => '[\x09\x0A \x0C\x0D\x20]',
3243             # '\s' => '[\x09\x0A\x0B\x0C\x0D\x20]',
3244             '\s' => '\s',
3245              
3246             '\w' => '[0-9A-Z_a-z]',
3247             '\D' => '${Eoldutf8::eD}',
3248             '\S' => '${Eoldutf8::eS}',
3249             '\W' => '${Eoldutf8::eW}',
3250              
3251             '\H' => '${Eoldutf8::eH}',
3252             '\V' => '${Eoldutf8::eV}',
3253             '\h' => '[\x09\x20]',
3254             '\v' => '[\x0A\x0B\x0C\x0D]',
3255             '\R' => '${Eoldutf8::eR}',
3256              
3257 0         0 }->{$1};
3258             }
3259              
3260             # POSIX-style character classes
3261             elsif ($ignorecase and ($char[$i] =~ /\A ( \[\: \^? (?:lower|upper) :\] ) \z/oxms)) {
3262             $char[$i] = {
3263              
3264             '[:lower:]' => '[\x41-\x5A\x61-\x7A]',
3265             '[:upper:]' => '[\x41-\x5A\x61-\x7A]',
3266             '[:^lower:]' => '${Eoldutf8::not_lower_i}',
3267             '[:^upper:]' => '${Eoldutf8::not_upper_i}',
3268              
3269 33         539 }->{$1};
3270             }
3271             elsif ($char[$i] =~ /\A ( \[\: \^? (?:alnum|alpha|ascii|blank|cntrl|digit|graph|lower|print|punct|space|upper|word|xdigit) :\] ) \z/oxms) {
3272             $char[$i] = {
3273              
3274             '[:alnum:]' => '[\x30-\x39\x41-\x5A\x61-\x7A]',
3275             '[:alpha:]' => '[\x41-\x5A\x61-\x7A]',
3276             '[:ascii:]' => '[\x00-\x7F]',
3277             '[:blank:]' => '[\x09\x20]',
3278             '[:cntrl:]' => '[\x00-\x1F\x7F]',
3279             '[:digit:]' => '[\x30-\x39]',
3280             '[:graph:]' => '[\x21-\x7F]',
3281             '[:lower:]' => '[\x61-\x7A]',
3282             '[:print:]' => '[\x20-\x7F]',
3283             '[:punct:]' => '[\x21-\x2F\x3A-\x3F\x40\x5B-\x5F\x60\x7B-\x7E]',
3284              
3285             # P.174 POSIX-Style Character Classes
3286             # in Chapter 5: Pattern Matching
3287             # of ISBN 0-596-00027-8 Programming Perl Third Edition.
3288              
3289             # P.311 11.2.4 Character Classes and other Special Escapes
3290             # in Chapter 11: perlre: Perl regular expressions
3291             # of ISBN-13: 978-1-906966-02-7 The Perl Language Reference Manual (for Perl version 5.12.1)
3292              
3293             # P.210 POSIX-Style Character Classes
3294             # in Chapter 5: Pattern Matching
3295             # of ISBN 978-0-596-00492-7 Programming Perl 4th Edition.
3296              
3297             '[:space:]' => '[\s\x0B]', # "\s" plus vertical tab ("\cK")
3298              
3299             '[:upper:]' => '[\x41-\x5A]',
3300             '[:word:]' => '[\x30-\x39\x41-\x5A\x5F\x61-\x7A]',
3301             '[:xdigit:]' => '[\x30-\x39\x41-\x46\x61-\x66]',
3302             '[:^alnum:]' => '${Eoldutf8::not_alnum}',
3303             '[:^alpha:]' => '${Eoldutf8::not_alpha}',
3304             '[:^ascii:]' => '${Eoldutf8::not_ascii}',
3305             '[:^blank:]' => '${Eoldutf8::not_blank}',
3306             '[:^cntrl:]' => '${Eoldutf8::not_cntrl}',
3307             '[:^digit:]' => '${Eoldutf8::not_digit}',
3308             '[:^graph:]' => '${Eoldutf8::not_graph}',
3309             '[:^lower:]' => '${Eoldutf8::not_lower}',
3310             '[:^print:]' => '${Eoldutf8::not_print}',
3311             '[:^punct:]' => '${Eoldutf8::not_punct}',
3312             '[:^space:]' => '${Eoldutf8::not_space}',
3313             '[:^upper:]' => '${Eoldutf8::not_upper}',
3314             '[:^word:]' => '${Eoldutf8::not_word}',
3315             '[:^xdigit:]' => '${Eoldutf8::not_xdigit}',
3316              
3317 8         65 }->{$1};
3318             }
3319             elsif ($char[$i] =~ /\A \\ ($q_char) \z/oxms) {
3320 70         1439 $char[$i] = $1;
3321             }
3322             }
3323              
3324             # open character list
3325 7         35 my @singleoctet = ();
3326 770         1623 my @multipleoctet = ();
3327 770         1019 for (my $i=0; $i <= $#char; ) {
3328              
3329             # escaped -
3330 770 100 100     1558 if (defined($char[$i+1]) and ($char[$i+1] eq '...')) {
    100          
    100          
    50          
    50          
    100          
3331 2163         8173 $i += 1;
3332 497         588 next;
3333             }
3334              
3335             # make range regexp
3336             elsif ($char[$i] eq '...') {
3337              
3338             # range error
3339 497 50       880 if (CORE::length($char[$i-1]) > CORE::length($char[$i+1])) {
    100          
3340 497         1551 croak 'Invalid [] range in regexp (length(A) > length(B)) ' . '\x' . unpack('H*',$char[$i-1]) . '-\x' . unpack('H*',$char[$i+1]);
3341             }
3342             elsif (CORE::length($char[$i-1]) == CORE::length($char[$i+1])) {
3343 0 50       0 if ($char[$i-1] gt $char[$i+1]) {
3344 477         1017 croak 'Invalid [] range in regexp (CORE::ord(A) > CORE::ord(B)) ' . '\x' . unpack('H*',$char[$i-1]) . '-\x' . unpack('H*',$char[$i+1]);
3345             }
3346             }
3347              
3348             # make range regexp per length
3349 0         0 for my $length (CORE::length($char[$i-1]) .. CORE::length($char[$i+1])) {
3350 497         1220 my @regexp = ();
3351              
3352             # is first and last
3353 537 100 100     675 if (($length == CORE::length($char[$i-1])) and ($length == CORE::length($char[$i+1]))) {
    100 66        
    100          
    50          
3354 537         1774 push @regexp, _range_regexp($length, $char[$i-1], $char[$i+1]);
3355             }
3356              
3357             # is first
3358             elsif ($length == CORE::length($char[$i-1])) {
3359 477         1176 push @regexp, _range_regexp($length, $char[$i-1], "\xFF" x $length);
3360             }
3361              
3362             # is inside in first and last
3363             elsif ((CORE::length($char[$i-1]) < $length) and ($length < CORE::length($char[$i+1]))) {
3364 20         68 push @regexp, _range_regexp($length, "\x00" x $length, "\xFF" x $length);
3365             }
3366              
3367             # is last
3368             elsif ($length == CORE::length($char[$i+1])) {
3369 20         60 push @regexp, _range_regexp($length, "\x00" x $length, $char[$i+1]);
3370             }
3371              
3372             else {
3373 20         58 die __FILE__, ": subroutine make_regexp panic.\n";
3374             }
3375              
3376 0 100       0 if ($length == 1) {
3377 537         924 push @singleoctet, @regexp;
3378             }
3379             else {
3380 386         903 push @multipleoctet, @regexp;
3381             }
3382             }
3383              
3384 151         313 $i += 2;
3385             }
3386              
3387             # with /i modifier
3388             elsif ($char[$i] =~ /\A [\x00-\xFF] \z/oxms) {
3389 497 100       970 if ($modifier =~ /i/oxms) {
3390 764         1123 my $uc = Eoldutf8::uc($char[$i]);
3391 192         300 my $fc = Eoldutf8::fc($char[$i]);
3392 192 50       312 if ($uc ne $fc) {
3393 192 50       296 if (CORE::length($fc) == 1) {
3394 192         256 push @singleoctet, $uc, $fc;
3395             }
3396             else {
3397 192         331 push @singleoctet, $uc;
3398 0         0 push @multipleoctet, $fc;
3399             }
3400             }
3401             else {
3402 0         0 push @singleoctet, $char[$i];
3403             }
3404             }
3405             else {
3406 0         0 push @singleoctet, $char[$i];
3407             }
3408 572         880 $i += 1;
3409             }
3410              
3411             # single character of single octet code
3412             elsif ($char[$i] =~ /\A (?: \\h ) \z/oxms) {
3413 764         1209 push @singleoctet, "\t", "\x20";
3414 0         0 $i += 1;
3415             }
3416             elsif ($char[$i] =~ /\A (?: \\v ) \z/oxms) {
3417 0         0 push @singleoctet, "\x0A", "\x0B", "\x0C", "\x0D";
3418 0         0 $i += 1;
3419             }
3420             elsif ($char[$i] =~ /\A (?: \\d | \\s | \\w ) \z/oxms) {
3421 0         0 push @singleoctet, $char[$i];
3422 2         7 $i += 1;
3423             }
3424              
3425             # single character of multiple-octet code
3426             else {
3427 2         57 push @multipleoctet, $char[$i];
3428 403         683 $i += 1;
3429             }
3430             }
3431              
3432             # quote metachar
3433 403         714 for (@singleoctet) {
3434 770 50       1425 if ($_ eq '...') {
    100          
    100          
    100          
    100          
3435 1364         5140 $_ = '-';
3436             }
3437             elsif (/\A \n \z/oxms) {
3438 0         0 $_ = '\n';
3439             }
3440             elsif (/\A \r \z/oxms) {
3441 8         31 $_ = '\r';
3442             }
3443             elsif (/\A ([\x00-\x20\x7F-\xFF]) \z/oxms) {
3444 8         18 $_ = sprintf('\x%02X', CORE::ord $1);
3445             }
3446             elsif (/\A [\x00-\xFF] \z/oxms) {
3447 1         5 $_ = quotemeta $_;
3448             }
3449             }
3450              
3451             # return character list
3452 939         1367 return \@singleoctet, \@multipleoctet;
3453             }
3454              
3455             #
3456             # old UTF-8 octal escape sequence
3457             #
3458             sub octchr {
3459 770     5 0 2334 my($octdigit) = @_;
3460              
3461 5         14 my @binary = ();
3462 5         7 for my $octal (split(//,$octdigit)) {
3463             push @binary, {
3464             '0' => '000',
3465             '1' => '001',
3466             '2' => '010',
3467             '3' => '011',
3468             '4' => '100',
3469             '5' => '101',
3470             '6' => '110',
3471             '7' => '111',
3472 5         24 }->{$octal};
3473             }
3474 50         182 my $binary = join '', @binary;
3475              
3476             my $octchr = {
3477             # 1234567
3478             1 => pack('B*', "0000000$binary"),
3479             2 => pack('B*', "000000$binary"),
3480             3 => pack('B*', "00000$binary"),
3481             4 => pack('B*', "0000$binary"),
3482             5 => pack('B*', "000$binary"),
3483             6 => pack('B*', "00$binary"),
3484             7 => pack('B*', "0$binary"),
3485             0 => pack('B*', "$binary"),
3486              
3487 5         12 }->{CORE::length($binary) % 8};
3488              
3489 5         57 return $octchr;
3490             }
3491              
3492             #
3493             # old UTF-8 hexadecimal escape sequence
3494             #
3495             sub hexchr {
3496 5     5 0 20 my($hexdigit) = @_;
3497              
3498             my $hexchr = {
3499             1 => pack('H*', "0$hexdigit"),
3500             0 => pack('H*', "$hexdigit"),
3501              
3502 5         14 }->{CORE::length($_[0]) % 2};
3503              
3504 5         42 return $hexchr;
3505             }
3506              
3507             #
3508             # old UTF-8 open character list for qr
3509             #
3510             sub charlist_qr {
3511              
3512 5     531 0 17 my $modifier = pop @_;
3513 531         945 my @char = @_;
3514              
3515 531         1229 my($singleoctet, $multipleoctet) = _charlist(@char, $modifier);
3516 531         1540 my @singleoctet = @$singleoctet;
3517 531         1059 my @multipleoctet = @$multipleoctet;
3518              
3519             # return character list
3520 531 100       812 if (scalar(@singleoctet) >= 1) {
3521              
3522             # with /i modifier
3523 531 100       1137 if ($modifier =~ m/i/oxms) {
3524 384         754 my %singleoctet_ignorecase = ();
3525 107         145 for (@singleoctet) {
3526 107   66     140 while (s/ \A \\x(..) - \\x(..) //oxms or s/ \A \\x((..)) //oxms) {
3527 272         838 for my $ord (hex($1) .. hex($2)) {
3528 80         254 my $char = CORE::chr($ord);
3529 1091         1410 my $uc = Eoldutf8::uc($char);
3530 1091         1417 my $fc = Eoldutf8::fc($char);
3531 1091 100       1559 if ($uc eq $fc) {
3532 1091         1620 $singleoctet_ignorecase{unpack 'C*', $char} = 1;
3533             }
3534             else {
3535 502 50       1110 if (CORE::length($fc) == 1) {
3536 589         747 $singleoctet_ignorecase{unpack 'C*', $uc} = 1;
3537 589         1075 $singleoctet_ignorecase{unpack 'C*', $fc} = 1;
3538             }
3539             else {
3540 589         1313 $singleoctet_ignorecase{unpack 'C*', $uc} = 1;
3541 0         0 push @multipleoctet, join '', map {sprintf('\x%02X',$_)} unpack 'C*', $fc;
  0         0  
3542             }
3543             }
3544             }
3545             }
3546 0 100       0 if ($_ ne '') {
3547 272         418 $singleoctet_ignorecase{unpack 'C*', $_} = 1;
3548             }
3549             }
3550 192         414 my $i = 0;
3551 107         123 my @singleoctet_ignorecase = ();
3552 107         130 for my $ord (0 .. 255) {
3553 107 100       164 if (exists $singleoctet_ignorecase{$ord}) {
3554 27392         31380 push @{$singleoctet_ignorecase[$i]}, $ord;
  1622         1469  
3555             }
3556             else {
3557 1622         2404 $i++;
3558             }
3559             }
3560 25770         25647 @singleoctet = ();
3561 107         159 for my $range (@singleoctet_ignorecase) {
3562 107 100       225 if (ref $range) {
3563 11367 50       17276 if (scalar(@{$range}) == 1) {
  214 50       213  
3564 214         346 push @singleoctet, sprintf('\x%02X', @{$range}[0]);
  0         0  
3565             }
3566 0         0 elsif (scalar(@{$range}) == 2) {
3567 214         291 push @singleoctet, sprintf('\x%02X\x%02X', @{$range}[0], @{$range}[-1]);
  0         0  
  0         0  
3568             }
3569             else {
3570 0         0 push @singleoctet, sprintf('\x%02X-\x%02X', @{$range}[0], @{$range}[-1]);
  214         245  
  214         257  
3571             }
3572             }
3573             }
3574             }
3575              
3576 214         908 my $not_anchor = '';
3577 384         528 $not_anchor = '(?!(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF]))';
3578              
3579 384         466 push @multipleoctet, join('', $not_anchor, '[', @singleoctet, ']' );
3580             }
3581 384 100       1058 if (scalar(@multipleoctet) >= 2) {
3582 531         1157 return '(?:' . join('|', @multipleoctet) . ')';
3583             }
3584             else {
3585 102         586 return $multipleoctet[0];
3586             }
3587             }
3588              
3589             #
3590             # old UTF-8 open character list for not qr
3591             #
3592             sub charlist_not_qr {
3593              
3594 429     239 0 1761 my $modifier = pop @_;
3595 239         416 my @char = @_;
3596              
3597 239         511 my($singleoctet, $multipleoctet) = _charlist(@char, $modifier);
3598 239         482 my @singleoctet = @$singleoctet;
3599 239         435 my @multipleoctet = @$multipleoctet;
3600              
3601             # with /i modifier
3602 239 100       356 if ($modifier =~ m/i/oxms) {
3603 239         492 my %singleoctet_ignorecase = ();
3604 128         167 for (@singleoctet) {
3605 128   66     163 while (s/ \A \\x(..) - \\x(..) //oxms or s/ \A \\x((..)) //oxms) {
3606 272         788 for my $ord (hex($1) .. hex($2)) {
3607 80         249 my $char = CORE::chr($ord);
3608 1091         1376 my $uc = Eoldutf8::uc($char);
3609 1091         1296 my $fc = Eoldutf8::fc($char);
3610 1091 100       1530 if ($uc eq $fc) {
3611 1091         1606 $singleoctet_ignorecase{unpack 'C*', $char} = 1;
3612             }
3613             else {
3614 502 50       1087 if (CORE::length($fc) == 1) {
3615 589         725 $singleoctet_ignorecase{unpack 'C*', $uc} = 1;
3616 589         1071 $singleoctet_ignorecase{unpack 'C*', $fc} = 1;
3617             }
3618             else {
3619 589         1295 $singleoctet_ignorecase{unpack 'C*', $uc} = 1;
3620 0         0 push @multipleoctet, join '', map {sprintf('\x%02X',$_)} unpack 'C*', $fc;
  0         0  
3621             }
3622             }
3623             }
3624             }
3625 0 100       0 if ($_ ne '') {
3626 272         403 $singleoctet_ignorecase{unpack 'C*', $_} = 1;
3627             }
3628             }
3629 192         400 my $i = 0;
3630 128         155 my @singleoctet_ignorecase = ();
3631 128         167 for my $ord (0 .. 255) {
3632 128 100       182 if (exists $singleoctet_ignorecase{$ord}) {
3633 32768         37142 push @{$singleoctet_ignorecase[$i]}, $ord;
  1622         1437  
3634             }
3635             else {
3636 1622         2372 $i++;
3637             }
3638             }
3639 31146         30975 @singleoctet = ();
3640 128         173 for my $range (@singleoctet_ignorecase) {
3641 128 100       241 if (ref $range) {
3642 11367 50       17166 if (scalar(@{$range}) == 1) {
  214 50       205  
3643 214         323 push @singleoctet, sprintf('\x%02X', @{$range}[0]);
  0         0  
3644             }
3645 0         0 elsif (scalar(@{$range}) == 2) {
3646 214         292 push @singleoctet, sprintf('\x%02X\x%02X', @{$range}[0], @{$range}[-1]);
  0         0  
  0         0  
3647             }
3648             else {
3649 0         0 push @singleoctet, sprintf('\x%02X-\x%02X', @{$range}[0], @{$range}[-1]);
  214         235  
  214         256  
3650             }
3651             }
3652             }
3653             }
3654              
3655             # return character list
3656 214 100       905 if (scalar(@multipleoctet) >= 1) {
3657 239 100       442 if (scalar(@singleoctet) >= 1) {
3658              
3659             # any character other than multiple-octet and single octet character class
3660 114         178 return '(?!' . join('|', @multipleoctet) . ')(?:[^\x80-\xFF' . join('', @singleoctet) . ']|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF])';
3661             }
3662             else {
3663              
3664             # any character other than multiple-octet character class
3665 70         453 return '(?!' . join('|', @multipleoctet) . ")(?:$your_char)";
3666             }
3667             }
3668             else {
3669 44 50       255 if (scalar(@singleoctet) >= 1) {
3670              
3671             # any character other than single octet character class
3672 125         208 return '(?:[^\x80-\xFF' . join('', @singleoctet) . ']|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF])';
3673             }
3674             else {
3675              
3676             # any character
3677 125         662 return "(?:$your_char)";
3678             }
3679             }
3680             }
3681              
3682             #
3683             # open file in read mode
3684             #
3685             sub _open_r {
3686 0     612   0 my(undef,$file) = @_;
3687 306     306   6353 use Fcntl qw(O_RDONLY);
  306         656  
  306         58337  
3688 612         1798 return CORE::sysopen($_[0], $file, &O_RDONLY);
3689             }
3690              
3691             #
3692             # open file in append mode
3693             #
3694             sub _open_a {
3695 612     306   26321 my(undef,$file) = @_;
3696 306     306   2280 use Fcntl qw(O_WRONLY O_APPEND O_CREAT);
  306         872  
  306         1226455  
3697 306         931 return CORE::sysopen($_[0], $file, &O_WRONLY|&O_APPEND|&O_CREAT);
3698             }
3699              
3700             #
3701             # safe system
3702             #
3703             sub _systemx {
3704              
3705             # P.707 29.2.33. exec
3706             # in Chapter 29: Functions
3707             # of ISBN 0-596-00027-8 Programming Perl Third Edition.
3708             #
3709             # Be aware that in older releases of Perl, exec (and system) did not flush
3710             # your output buffer, so you needed to enable command buffering by setting $|
3711             # on one or more filehandles to avoid lost output in the case of exec, or
3712             # misordererd output in the case of system. This situation was largely remedied
3713             # in the 5.6 release of Perl. (So, 5.005 release not yet.)
3714              
3715             # P.855 exec
3716             # in Chapter 27: Functions
3717             # of ISBN 978-0-596-00492-7 Programming Perl 4th Edition.
3718             #
3719             # In very old release of Perl (before v5.6), exec (and system) did not flush
3720             # your output buffer, so you needed to enable command buffering by setting $|
3721             # on one or more filehandles to avoid lost output with exec or misordered
3722             # output with system.
3723              
3724 306     306   92412 $| = 1;
3725              
3726             # P.565 23.1.2. Cleaning Up Your Environment
3727             # in Chapter 23: Security
3728             # of ISBN 0-596-00027-8 Programming Perl Third Edition.
3729              
3730             # P.656 Cleaning Up Your Environment
3731             # in Chapter 20: Security
3732             # of ISBN 978-0-596-00492-7 Programming Perl 4th Edition.
3733              
3734             # local $ENV{'PATH'} = '.';
3735 306         1175 local @ENV{qw(IFS CDPATH ENV BASH_ENV)}; # Make %ENV safer
3736              
3737             # P.707 29.2.33. exec
3738             # in Chapter 29: Functions
3739             # of ISBN 0-596-00027-8 Programming Perl Third Edition.
3740             #
3741             # As we mentioned earlier, exec treats a discrete list of arguments as an
3742             # indication that it should bypass shell processing. However, there is one
3743             # place where you might still get tripped up. The exec call (and system, too)
3744             # will not distinguish between a single scalar argument and an array containing
3745             # only one element.
3746             #
3747             # @args = ("echo surprise"); # just one element in list
3748             # exec @args # still subject to shell escapes
3749             # or die "exec: $!"; # because @args == 1
3750             #
3751             # To avoid this, you can use the PATHNAME syntax, explicitly duplicating the
3752             # first argument as the pathname, which forces the rest of the arguments to be
3753             # interpreted as a list, even if there is only one of them:
3754             #
3755             # exec { $args[0] } @args # safe even with one-argument list
3756             # or die "can't exec @args: $!";
3757              
3758             # P.855 exec
3759             # in Chapter 27: Functions
3760             # of ISBN 978-0-596-00492-7 Programming Perl 4th Edition.
3761             #
3762             # As we mentioned earlier, exec treats a discrete list of arguments as a
3763             # directive to bypass shell processing. However, there is one place where
3764             # you might still get tripped up. The exec call (and system, too) cannot
3765             # distinguish between a single scalar argument and an array containing
3766             # only one element.
3767             #
3768             # @args = ("echo surprise"); # just one element in list
3769             # exec @args # still subject to shell escapes
3770             # || die "exec: $!"; # because @args == 1
3771             #
3772             # To avoid this, use the PATHNAME syntax, explicitly duplicating the first
3773             # argument as the pathname, which forces the rest of the arguments to be
3774             # interpreted as a list, even if there is only one of them:
3775             #
3776             # exec { $args[0] } @args # safe even with one-argument list
3777             # || die "can't exec @args: $!";
3778              
3779 306         2645 return CORE::system { $_[0] } @_; # safe even with one-argument list
  306         712  
3780             }
3781              
3782             #
3783             # old UTF-8 order to character (with parameter)
3784             #
3785             sub Eoldutf8::chr(;$) {
3786              
3787 306 0   0 0 35890540 my $c = @_ ? $_[0] : $_;
3788              
3789 0 0       0 if ($c == 0x00) {
3790 0         0 return "\x00";
3791             }
3792             else {
3793 0         0 my @chr = ();
3794 0         0 while ($c > 0) {
3795 0         0 unshift @chr, ($c % 0x100);
3796 0         0 $c = int($c / 0x100);
3797             }
3798 0         0 return pack 'C*', @chr;
3799             }
3800             }
3801              
3802             #
3803             # old UTF-8 order to character (without parameter)
3804             #
3805             sub Eoldutf8::chr_() {
3806              
3807 0     0 0 0 my $c = $_;
3808              
3809 0 0       0 if ($c == 0x00) {
3810 0         0 return "\x00";
3811             }
3812             else {
3813 0         0 my @chr = ();
3814 0         0 while ($c > 0) {
3815 0         0 unshift @chr, ($c % 0x100);
3816 0         0 $c = int($c / 0x100);
3817             }
3818 0         0 return pack 'C*', @chr;
3819             }
3820             }
3821              
3822             #
3823             # old UTF-8 path globbing (with parameter)
3824             #
3825             sub Eoldutf8::glob($) {
3826              
3827 0 0   0 0 0 if (wantarray) {
3828 0         0 my @glob = _DOS_like_glob(@_);
3829 0         0 for my $glob (@glob) {
3830 0         0 $glob =~ s{ \A (?:\./)+ }{}oxms;
3831             }
3832 0         0 return @glob;
3833             }
3834             else {
3835 0         0 my $glob = _DOS_like_glob(@_);
3836 0         0 $glob =~ s{ \A (?:\./)+ }{}oxms;
3837 0         0 return $glob;
3838             }
3839             }
3840              
3841             #
3842             # old UTF-8 path globbing (without parameter)
3843             #
3844             sub Eoldutf8::glob_() {
3845              
3846 0 0   0 0 0 if (wantarray) {
3847 0         0 my @glob = _DOS_like_glob();
3848 0         0 for my $glob (@glob) {
3849 0         0 $glob =~ s{ \A (?:\./)+ }{}oxms;
3850             }
3851 0         0 return @glob;
3852             }
3853             else {
3854 0         0 my $glob = _DOS_like_glob();
3855 0         0 $glob =~ s{ \A (?:\./)+ }{}oxms;
3856 0         0 return $glob;
3857             }
3858             }
3859              
3860             #
3861             # old UTF-8 path globbing via File::DosGlob 1.10
3862             #
3863             # Often I confuse "_dosglob" and "_doglob".
3864             # So, I renamed "_dosglob" to "_DOS_like_glob".
3865             #
3866             my %iter;
3867             my %entries;
3868             sub _DOS_like_glob {
3869              
3870             # context (keyed by second cxix argument provided by core)
3871 0     0   0 my($expr,$cxix) = @_;
3872              
3873             # glob without args defaults to $_
3874 0 0       0 $expr = $_ if not defined $expr;
3875              
3876             # represents the current user's home directory
3877             #
3878             # 7.3. Expanding Tildes in Filenames
3879             # in Chapter 7. File Access
3880             # of ISBN 0-596-00313-7 Perl Cookbook, 2nd Edition.
3881             #
3882             # and File::HomeDir, File::HomeDir::Windows module
3883              
3884             # DOS-like system
3885 0 0       0 if ($^O =~ /\A (?: MSWin32 | NetWare | symbian | dos ) \z/oxms) {
3886 0         0 $expr =~ s{ \A ~ (?= [^/\\] ) }
  0         0  
3887             { my_home_MSWin32() }oxmse;
3888             }
3889              
3890             # UNIX-like system
3891 0 0 0     0 else {
  0         0  
3892             $expr =~ s{ \A ~ ( (?:[^\x80-\xFF/]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF])* ) }
3893             { $1 ? (CORE::eval(q{(getpwnam($1))[7]})||my_home()) : my_home() }oxmse;
3894             }
3895 0 0       0  
3896 0 0       0 # assume global context if not provided one
3897             $cxix = '_G_' if not defined $cxix;
3898             $iter{$cxix} = 0 if not exists $iter{$cxix};
3899 0 0       0  
3900 0         0 # if we're just beginning, do it all first
3901             if ($iter{$cxix} == 0) {
3902             $entries{$cxix} = [ _do_glob(1, _parse_line($expr)) ];
3903             }
3904 0 0       0  
3905 0         0 # chuck it all out, quick or slow
3906 0         0 if (wantarray) {
  0         0  
3907             delete $iter{$cxix};
3908             return @{delete $entries{$cxix}};
3909 0 0       0 }
  0         0  
3910 0         0 else {
  0         0  
3911             if ($iter{$cxix} = scalar @{$entries{$cxix}}) {
3912             return shift @{$entries{$cxix}};
3913             }
3914 0         0 else {
3915 0         0 # return undef for EOL
3916 0         0 delete $iter{$cxix};
3917             delete $entries{$cxix};
3918             return undef;
3919             }
3920             }
3921             }
3922              
3923             #
3924             # old UTF-8 path globbing subroutine
3925             #
3926 0     0   0 sub _do_glob {
3927 0         0  
3928 0         0 my($cond,@expr) = @_;
3929             my @glob = ();
3930             my $fix_drive_relative_paths = 0;
3931 0         0  
3932 0 0       0 OUTER:
3933 0 0       0 for my $expr (@expr) {
3934             next OUTER if not defined $expr;
3935 0         0 next OUTER if $expr eq '';
3936 0         0  
3937 0         0 my @matched = ();
3938 0         0 my @globdir = ();
3939 0         0 my $head = '.';
3940             my $pathsep = '/';
3941             my $tail;
3942 0 0       0  
3943 0         0 # if argument is within quotes strip em and do no globbing
3944 0 0       0 if ($expr =~ /\A " ((?:$q_char)*?) " \z/oxms) {
3945 0 0       0 $expr = $1;
3946 0         0 if ($cond eq 'd') {
3947             if (-d $expr) {
3948             push @glob, $expr;
3949             }
3950 0 0       0 }
3951 0         0 else {
3952             if (-e $expr) {
3953             push @glob, $expr;
3954 0         0 }
3955             }
3956             next OUTER;
3957             }
3958              
3959 0 0       0 # wildcards with a drive prefix such as h:*.pm must be changed
3960 0 0       0 # to h:./*.pm to expand correctly
3961 0         0 if ($^O =~ /\A (?: MSWin32 | NetWare | symbian | dos ) \z/oxms) {
3962             if ($expr =~ s# \A ((?:[A-Za-z]:)?) ([^\x80-\xFF/\\]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF]) #$1./$2#oxms) {
3963             $fix_drive_relative_paths = 1;
3964             }
3965 0 0       0 }
3966 0 0       0  
3967 0         0 if (($head, $tail) = _parse_path($expr,$pathsep)) {
3968 0         0 if ($tail eq '') {
3969             push @glob, $expr;
3970 0 0       0 next OUTER;
3971 0 0       0 }
3972 0         0 if ($head =~ / \A (?:$q_char)*? [*?] /oxms) {
  0         0  
3973 0         0 if (@globdir = _do_glob('d', $head)) {
3974             push @glob, _do_glob($cond, map {"$_$pathsep$tail"} @globdir);
3975             next OUTER;
3976 0 0 0     0 }
3977 0         0 }
3978             if ($head eq '' or $head =~ /\A [A-Za-z]: \z/oxms) {
3979 0         0 $head .= $pathsep;
3980             }
3981             $expr = $tail;
3982             }
3983 0 0       0  
3984 0 0       0 # If file component has no wildcards, we can avoid opendir
3985 0         0 if ($expr !~ / \A (?:$q_char)*? [*?] /oxms) {
3986             if ($head eq '.') {
3987 0 0 0     0 $head = '';
3988 0         0 }
3989             if ($head ne '' and ($head =~ / \G ($q_char) /oxmsg)[-1] ne $pathsep) {
3990 0         0 $head .= $pathsep;
3991 0 0       0 }
3992 0 0       0 $head .= $expr;
3993 0         0 if ($cond eq 'd') {
3994             if (-d $head) {
3995             push @glob, $head;
3996             }
3997 0 0       0 }
3998 0         0 else {
3999             if (-e $head) {
4000             push @glob, $head;
4001 0         0 }
4002             }
4003 0 0       0 next OUTER;
4004 0         0 }
4005 0         0 opendir(*DIR, $head) or next OUTER;
4006             my @leaf = readdir DIR;
4007 0 0       0 closedir DIR;
4008 0         0  
4009             if ($head eq '.') {
4010 0 0 0     0 $head = '';
4011 0         0 }
4012             if ($head ne '' and ($head =~ / \G ($q_char) /oxmsg)[-1] ne $pathsep) {
4013             $head .= $pathsep;
4014 0         0 }
4015 0         0  
4016 0         0 my $pattern = '';
4017             while ($expr =~ / \G ($q_char) /oxgc) {
4018             my $char = $1;
4019              
4020             # 6.9. Matching Shell Globs as Regular Expressions
4021             # in Chapter 6. Pattern Matching
4022             # of ISBN 0-596-00313-7 Perl Cookbook, 2nd Edition.
4023 0 0       0 # (and so on)
    0          
    0          
4024 0         0  
4025             if ($char eq '*') {
4026             $pattern .= "(?:$your_char)*",
4027 0         0 }
4028             elsif ($char eq '?') {
4029             $pattern .= "(?:$your_char)?", # DOS style
4030             # $pattern .= "(?:$your_char)", # UNIX style
4031 0         0 }
4032             elsif ((my $fc = Eoldutf8::fc($char)) ne $char) {
4033             $pattern .= $fc;
4034 0         0 }
4035             else {
4036             $pattern .= quotemeta $char;
4037 0     0   0 }
  0         0  
4038             }
4039             my $matchsub = sub { Eoldutf8::fc($_[0]) =~ /\A $pattern \z/xms };
4040              
4041             # if ($@) {
4042             # print STDERR "$0: $@\n";
4043             # next OUTER;
4044             # }
4045 0         0  
4046 0 0 0     0 INNER:
4047 0         0 for my $leaf (@leaf) {
4048             if ($leaf eq '.' or $leaf eq '..') {
4049 0 0 0     0 next INNER;
4050 0         0 }
4051             if ($cond eq 'd' and not -d "$head$leaf") {
4052             next INNER;
4053 0 0       0 }
4054 0         0  
4055 0         0 if (&$matchsub($leaf)) {
4056             push @matched, "$head$leaf";
4057             next INNER;
4058             }
4059              
4060             # [DOS compatibility special case]
4061 0 0 0     0 # Failed, add a trailing dot and try again, but only...
      0        
4062              
4063             if (Eoldutf8::index($leaf,'.') == -1 and # if name does not have a dot in it *and*
4064             CORE::length($leaf) <= 8 and # name is shorter than or equal to 8 chars *and*
4065 0 0       0 Eoldutf8::index($pattern,'\\.') != -1 # pattern has a dot.
4066 0         0 ) {
4067 0         0 if (&$matchsub("$leaf.")) {
4068             push @matched, "$head$leaf";
4069             next INNER;
4070             }
4071 0 0       0 }
4072 0         0 }
4073             if (@matched) {
4074             push @glob, @matched;
4075 0 0       0 }
4076 0         0 }
4077 0         0 if ($fix_drive_relative_paths) {
4078             for my $glob (@glob) {
4079             $glob =~ s# \A ([A-Za-z]:) \./ #$1#oxms;
4080 0         0 }
4081             }
4082             return @glob;
4083             }
4084              
4085             #
4086             # old UTF-8 parse line
4087             #
4088 0     0   0 sub _parse_line {
4089              
4090 0         0 my($line) = @_;
4091 0         0  
4092 0         0 $line .= ' ';
4093             my @piece = ();
4094             while ($line =~ /
4095             " ( (?>(?: [^\x80-\xFF"] |(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF] )* ) ) " (?>\s+) |
4096             ( (?>(?: [^\x80-\xFF"\s]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF] )* ) ) (?>\s+)
4097 0 0       0 /oxmsg
4098             ) {
4099 0         0 push @piece, defined($1) ? $1 : $2;
4100             }
4101             return @piece;
4102             }
4103              
4104             #
4105             # old UTF-8 parse path
4106             #
4107 0     0   0 sub _parse_path {
4108              
4109 0         0 my($path,$pathsep) = @_;
4110 0         0  
4111 0         0 $path .= '/';
4112             my @subpath = ();
4113             while ($path =~ /
4114             ((?: [^\x80-\xFF\/\\]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF] )+?) [\/\\]
4115 0         0 /oxmsg
4116             ) {
4117             push @subpath, $1;
4118 0         0 }
4119 0         0  
4120 0         0 my $tail = pop @subpath;
4121             my $head = join $pathsep, @subpath;
4122             return $head, $tail;
4123             }
4124              
4125             #
4126             # via File::HomeDir::Windows 1.00
4127             #
4128             sub my_home_MSWin32 {
4129              
4130             # A lot of unix people and unix-derived tools rely on
4131 0 0 0 0 0 0 # the ability to overload HOME. We will support it too
    0 0        
    0 0        
      0        
      0        
4132 0         0 # so that they can replace raw HOME calls with File::HomeDir.
4133             if (exists $ENV{'HOME'} and $ENV{'HOME'}) {
4134             return $ENV{'HOME'};
4135             }
4136              
4137 0         0 # Do we have a user profile?
4138             elsif (exists $ENV{'USERPROFILE'} and $ENV{'USERPROFILE'}) {
4139             return $ENV{'USERPROFILE'};
4140             }
4141              
4142 0         0 # Some Windows use something like $ENV{'HOME'}
4143             elsif (exists $ENV{'HOMEDRIVE'} and exists $ENV{'HOMEPATH'} and $ENV{'HOMEDRIVE'} and $ENV{'HOMEPATH'}) {
4144             return join '', $ENV{'HOMEDRIVE'}, $ENV{'HOMEPATH'};
4145 0         0 }
4146              
4147             return undef;
4148             }
4149              
4150             #
4151             # via File::HomeDir::Unix 1.00
4152 0     0 0 0 #
4153             sub my_home {
4154 0 0 0     0 my $home;
    0 0        
4155 0         0  
4156             if (exists $ENV{'HOME'} and defined $ENV{'HOME'}) {
4157             $home = $ENV{'HOME'};
4158             }
4159              
4160             # This is from the original code, but I'm guessing
4161 0         0 # it means "login directory" and exists on some Unixes.
4162             elsif (exists $ENV{'LOGDIR'} and $ENV{'LOGDIR'}) {
4163             $home = $ENV{'LOGDIR'};
4164             }
4165              
4166             ### More-desperate methods
4167              
4168 0         0 # Light desperation on any (Unixish) platform
4169             else {
4170             $home = CORE::eval q{ (getpwuid($<))[7] };
4171             }
4172              
4173 0 0 0     0 # On Unix in general, a non-existant home means "no home"
4174 0         0 # For example, "nobody"-like users might use /nonexistant
4175             if (defined $home and ! -d($home)) {
4176 0         0 $home = undef;
4177             }
4178             return $home;
4179             }
4180              
4181             #
4182             # ${^PREMATCH}, $PREMATCH, $` the string preceding what was matched
4183 0     0 0 0 #
4184             sub Eoldutf8::PREMATCH {
4185             return $`;
4186             }
4187              
4188             #
4189             # ${^MATCH}, $MATCH, $& the string that matched
4190 0     0 0 0 #
4191             sub Eoldutf8::MATCH {
4192             return $&;
4193             }
4194              
4195             #
4196             # ${^POSTMATCH}, $POSTMATCH, $' the string following what was matched
4197 0     0 0 0 #
4198             sub Eoldutf8::POSTMATCH {
4199             return $';
4200             }
4201              
4202             #
4203             # old UTF-8 character to order (with parameter)
4204             #
4205 0 0   0 1 0 sub OldUTF8::ord(;$) {
4206              
4207 0 0       0 local $_ = shift if @_;
4208 0         0  
4209 0         0 if (/\A ($q_char) /oxms) {
4210 0         0 my @ord = unpack 'C*', $1;
4211 0         0 my $ord = 0;
4212             while (my $o = shift @ord) {
4213 0         0 $ord = $ord * 0x100 + $o;
4214             }
4215             return $ord;
4216 0         0 }
4217             else {
4218             return CORE::ord $_;
4219             }
4220             }
4221              
4222             #
4223             # old UTF-8 character to order (without parameter)
4224             #
4225 0 0   0 0 0 sub OldUTF8::ord_() {
4226 0         0  
4227 0         0 if (/\A ($q_char) /oxms) {
4228 0         0 my @ord = unpack 'C*', $1;
4229 0         0 my $ord = 0;
4230             while (my $o = shift @ord) {
4231 0         0 $ord = $ord * 0x100 + $o;
4232             }
4233             return $ord;
4234 0         0 }
4235             else {
4236             return CORE::ord $_;
4237             }
4238             }
4239              
4240             #
4241             # old UTF-8 reverse
4242             #
4243 0 0   0 0 0 sub OldUTF8::reverse(@) {
4244 0         0  
4245             if (wantarray) {
4246             return CORE::reverse @_;
4247             }
4248             else {
4249              
4250             # One of us once cornered Larry in an elevator and asked him what
4251             # problem he was solving with this, but he looked as far off into
4252             # the distance as he could in an elevator and said, "It seemed like
4253 0         0 # a good idea at the time."
4254              
4255             return join '', CORE::reverse(join('',@_) =~ /\G ($q_char) /oxmsg);
4256             }
4257             }
4258              
4259             #
4260             # old UTF-8 getc (with parameter, without parameter)
4261             #
4262 0     0 0 0 sub OldUTF8::getc(;*@) {
4263 0 0       0  
4264 0 0 0     0 my($package) = caller;
4265             my $fh = @_ ? qualify_to_ref(shift,$package) : \*STDIN;
4266 0         0 croak 'Too many arguments for OldUTF8::getc' if @_ and not wantarray;
  0         0  
4267 0         0  
4268 0         0 my @length = sort { $a <=> $b } keys %range_tr;
4269 0         0 my $getc = '';
4270 0 0       0 for my $length ($length[0] .. $length[-1]) {
4271 0 0       0 $getc .= CORE::getc($fh);
4272 0 0       0 if (exists $range_tr{CORE::length($getc)}) {
4273             if ($getc =~ /\A ${Eoldutf8::dot_s} \z/oxms) {
4274             return wantarray ? ($getc,@_) : $getc;
4275             }
4276 0 0       0 }
4277             }
4278             return wantarray ? ($getc,@_) : $getc;
4279             }
4280              
4281             #
4282             # old UTF-8 length by character
4283             #
4284 0 0   0 1 0 sub OldUTF8::length(;$) {
4285              
4286 0         0 local $_ = shift if @_;
4287 0         0  
4288             local @_ = /\G ($q_char) /oxmsg;
4289             return scalar @_;
4290             }
4291              
4292             #
4293             # old UTF-8 substr by character
4294             #
4295             BEGIN {
4296              
4297             # P.232 The lvalue Attribute
4298             # in Chapter 6: Subroutines
4299             # of ISBN 0-596-00027-8 Programming Perl Third Edition.
4300              
4301             # P.336 The lvalue Attribute
4302             # in Chapter 7: Subroutines
4303             # of ISBN 978-0-596-00492-7 Programming Perl 4th Edition.
4304              
4305             # P.144 8.4 Lvalue subroutines
4306             # in Chapter 8: perlsub: Perl subroutines
4307 306 50 0 306 1 258750 # of ISBN-13: 978-1-906966-02-7 The Perl Language Reference Manual (for Perl version 5.12.1)
  0 0   0   0  
  0 0       0  
  0 0       0  
  0 0       0  
  0 0       0  
  0 0       0  
  0 0       0  
  0 0       0  
  0 0       0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
4308              
4309             CORE::eval sprintf(<<'END', ($] >= 5.014000) ? ':lvalue' : '');
4310             # vv----------------------*******
4311             sub OldUTF8::substr($$;$$) %s {
4312              
4313             my @char = $_[0] =~ /\G (?>$q_char) /oxmsg;
4314              
4315             # If the substring is beyond either end of the string, substr() returns the undefined
4316             # value and produces a warning. When used as an lvalue, specifying a substring that
4317             # is entirely outside the string raises an exception.
4318             # http://perldoc.perl.org/functions/substr.html
4319              
4320             # A return with no argument returns the scalar value undef in scalar context,
4321             # an empty list () in list context, and (naturally) nothing at all in void
4322             # context.
4323              
4324             my $offset = $_[1];
4325             if (($offset > scalar(@char)) or ($offset < (-1 * scalar(@char)))) {
4326             return;
4327             }
4328              
4329             # substr($string,$offset,$length,$replacement)
4330             if (@_ == 4) {
4331             my(undef,undef,$length,$replacement) = @_;
4332             my $substr = join '', splice(@char, $offset, $length, $replacement);
4333             $_[0] = join '', @char;
4334              
4335             # return $substr; this doesn't work, don't say "return"
4336             $substr;
4337             }
4338              
4339             # substr($string,$offset,$length)
4340             elsif (@_ == 3) {
4341             my(undef,undef,$length) = @_;
4342             my $octet_offset = 0;
4343             my $octet_length = 0;
4344             if ($offset == 0) {
4345             $octet_offset = 0;
4346             }
4347             elsif ($offset > 0) {
4348             $octet_offset = CORE::length(join '', @char[0..$offset-1]);
4349             }
4350             else {
4351             $octet_offset = -1 * CORE::length(join '', @char[$#char+$offset+1..$#char]);
4352             }
4353             if ($length == 0) {
4354             $octet_length = 0;
4355             }
4356             elsif ($length > 0) {
4357             $octet_length = CORE::length(join '', @char[$offset..$offset+$length-1]);
4358             }
4359             else {
4360             $octet_length = -1 * CORE::length(join '', @char[$#char+$length+1..$#char]);
4361             }
4362             CORE::substr($_[0], $octet_offset, $octet_length);
4363             }
4364              
4365             # substr($string,$offset)
4366             else {
4367             my $octet_offset = 0;
4368             if ($offset == 0) {
4369             $octet_offset = 0;
4370             }
4371             elsif ($offset > 0) {
4372             $octet_offset = CORE::length(join '', @char[0..$offset-1]);
4373             }
4374             else {
4375             $octet_offset = -1 * CORE::length(join '', @char[$#char+$offset+1..$#char]);
4376             }
4377             CORE::substr($_[0], $octet_offset);
4378             }
4379             }
4380             END
4381             }
4382              
4383             #
4384             # old UTF-8 index by character
4385             #
4386 0     0 1 0 sub OldUTF8::index($$;$) {
4387 0 0       0  
4388 0         0 my $index;
4389             if (@_ == 3) {
4390             $index = Eoldutf8::index($_[0], $_[1], CORE::length(OldUTF8::substr($_[0], 0, $_[2])));
4391 0         0 }
4392             else {
4393             $index = Eoldutf8::index($_[0], $_[1]);
4394 0 0       0 }
4395 0         0  
4396             if ($index == -1) {
4397             return -1;
4398 0         0 }
4399             else {
4400             return OldUTF8::length(CORE::substr $_[0], 0, $index);
4401             }
4402             }
4403              
4404             #
4405             # old UTF-8 rindex by character
4406             #
4407 0     0 1 0 sub OldUTF8::rindex($$;$) {
4408 0 0       0  
4409 0         0 my $rindex;
4410             if (@_ == 3) {
4411             $rindex = Eoldutf8::rindex($_[0], $_[1], CORE::length(OldUTF8::substr($_[0], 0, $_[2])));
4412 0         0 }
4413             else {
4414             $rindex = Eoldutf8::rindex($_[0], $_[1]);
4415 0 0       0 }
4416 0         0  
4417             if ($rindex == -1) {
4418             return -1;
4419 0         0 }
4420             else {
4421             return OldUTF8::length(CORE::substr $_[0], 0, $rindex);
4422             }
4423             }
4424              
4425 306     306   2635 # when 'm//', '/' means regexp match 'm//' and '?' means regexp match '??'
  306         2900  
  306         42844  
4426             # when 'div', '/' means division operator and '?' means conditional operator (condition ? then : else)
4427             use vars qw($slash); $slash = 'm//';
4428              
4429             # ord() to ord() or OldUTF8::ord()
4430             my $function_ord = 'ord';
4431              
4432             # ord to ord or OldUTF8::ord_
4433             my $function_ord_ = 'ord';
4434              
4435             # reverse to reverse or OldUTF8::reverse
4436             my $function_reverse = 'reverse';
4437              
4438             # getc to getc or OldUTF8::getc
4439             my $function_getc = 'getc';
4440              
4441             # P.1023 Appendix W.9 Multibyte Anchoring
4442             # of ISBN 1-56592-224-7 CJKV Information Processing
4443              
4444 306     306   4458 my $anchor = '';
  306     0   3404  
  306         17397582  
4445              
4446             use vars qw($nest);
4447              
4448             # regexp of nested parens in qqXX
4449              
4450             # P.340 Matching Nested Constructs with Embedded Code
4451             # in Chapter 7: Perl
4452             # of ISBN 0-596-00289-0 Mastering Regular Expressions, Second edition
4453              
4454             my $qq_paren = qr{(?{local $nest=0}) (?>(?:
4455             [^\x80-\xFF\\()] |
4456             \( (?{$nest++}) |
4457             \) (?(?{$nest>0})(?{$nest--})|(?!)))*) (?(?{$nest!=0})(?!)) |
4458             (?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF] |
4459             \\ [^\x80-\xFFc] |
4460             \\c[\x40-\x5F] |
4461             \\ (?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF] |
4462             [\x00-\xFF]
4463             }xms;
4464              
4465             my $qq_brace = qr{(?{local $nest=0}) (?>(?:
4466             [^\x80-\xFF\\{}] |
4467             \{ (?{$nest++}) |
4468             \} (?(?{$nest>0})(?{$nest--})|(?!)))*) (?(?{$nest!=0})(?!)) |
4469             (?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF] |
4470             \\ [^\x80-\xFFc] |
4471             \\c[\x40-\x5F] |
4472             \\ (?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF] |
4473             [\x00-\xFF]
4474             }xms;
4475              
4476             my $qq_bracket = qr{(?{local $nest=0}) (?>(?:
4477             [^\x80-\xFF\\\[\]] |
4478             \[ (?{$nest++}) |
4479             \] (?(?{$nest>0})(?{$nest--})|(?!)))*) (?(?{$nest!=0})(?!)) |
4480             (?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF] |
4481             \\ [^\x80-\xFFc] |
4482             \\c[\x40-\x5F] |
4483             \\ (?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF] |
4484             [\x00-\xFF]
4485             }xms;
4486              
4487             my $qq_angle = qr{(?{local $nest=0}) (?>(?:
4488             [^\x80-\xFF\\<>] |
4489             \< (?{$nest++}) |
4490             \> (?(?{$nest>0})(?{$nest--})|(?!)))*) (?(?{$nest!=0})(?!)) |
4491             (?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF] |
4492             \\ [^\x80-\xFFc] |
4493             \\c[\x40-\x5F] |
4494             \\ (?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF] |
4495             [\x00-\xFF]
4496             }xms;
4497              
4498             my $qq_scalar = qr{(?: \{ (?:$qq_brace)*? \} |
4499             (?: ::)? (?:
4500             (?> [a-zA-Z_][a-zA-Z_0-9]* (?: ::[a-zA-Z_][a-zA-Z_0-9]*)* )
4501             (?>(?: \[ (?: \$\[ | \$\] | $qq_char )*? \] | \{ (?:$qq_brace)*? \} )*)
4502             (?>(?: (?: -> )? (?: [\$\@\%\&\*]\* | \$\#\* | [\@\%]? \[ (?: \$\[ | \$\] | $qq_char )*? \] | [\@\%\*]? \{ (?:$qq_brace)*? \} ) )*)
4503             ))
4504             }xms;
4505              
4506             my $qq_variable = qr{(?: \{ (?:$qq_brace)*? \} |
4507             (?: ::)? (?:
4508             (?>[0-9]+) |
4509             [^\x80-\xFFa-zA-Z_0-9\[\]] |
4510             ^[A-Z] |
4511             (?> [a-zA-Z_][a-zA-Z_0-9]* (?: ::[a-zA-Z_][a-zA-Z_0-9]*)* )
4512             (?>(?: \[ (?: \$\[ | \$\] | $qq_char )*? \] | \{ (?:$qq_brace)*? \} )*)
4513             (?>(?: (?: -> )? (?: [\$\@\%\&\*]\* | \$\#\* | [\@\%]? \[ (?: \$\[ | \$\] | $qq_char )*? \] | [\@\%\*]? \{ (?:$qq_brace)*? \} ) )*)
4514             ))
4515             }xms;
4516              
4517             my $qq_substr = qr{(?> Char::substr | OldUTF8::substr | CORE::substr | substr ) (?>\s*) \( $qq_paren \)
4518             }xms;
4519              
4520             # regexp of nested parens in qXX
4521             my $q_paren = qr{(?{local $nest=0}) (?>(?:
4522             [^\x80-\xFF()] |
4523             (?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF] |
4524             \( (?{$nest++}) |
4525             \) (?(?{$nest>0})(?{$nest--})|(?!)))*) (?(?{$nest!=0})(?!)) |
4526             [\x00-\xFF]
4527             }xms;
4528              
4529             my $q_brace = qr{(?{local $nest=0}) (?>(?:
4530             [^\x80-\xFF\{\}] |
4531             (?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF] |
4532             \{ (?{$nest++}) |
4533             \} (?(?{$nest>0})(?{$nest--})|(?!)))*) (?(?{$nest!=0})(?!)) |
4534             [\x00-\xFF]
4535             }xms;
4536              
4537             my $q_bracket = qr{(?{local $nest=0}) (?>(?:
4538             [^\x80-\xFF\[\]] |
4539             (?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF] |
4540             \[ (?{$nest++}) |
4541             \] (?(?{$nest>0})(?{$nest--})|(?!)))*) (?(?{$nest!=0})(?!)) |
4542             [\x00-\xFF]
4543             }xms;
4544              
4545             my $q_angle = qr{(?{local $nest=0}) (?>(?:
4546             [^\x80-\xFF<>] |
4547             (?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF] |
4548             \< (?{$nest++}) |
4549             \> (?(?{$nest>0})(?{$nest--})|(?!)))*) (?(?{$nest!=0})(?!)) |
4550             [\x00-\xFF]
4551             }xms;
4552              
4553             my $matched = '';
4554             my $s_matched = '';
4555              
4556             my $tr_variable = ''; # variable of tr///
4557             my $sub_variable = ''; # variable of s///
4558             my $bind_operator = ''; # =~ or !~
4559              
4560             my @heredoc = (); # here document
4561             my @heredoc_delimiter = ();
4562             my $here_script = ''; # here script
4563              
4564             #
4565             # escape old UTF-8 script
4566 0 50   306 0 0 #
4567             sub OldUTF8::escape(;$) {
4568             local($_) = $_[0] if @_;
4569              
4570             # P.359 The Study Function
4571             # in Chapter 7: Perl
4572 306         965 # of ISBN 0-596-00289-0 Mastering Regular Expressions, Second edition
4573              
4574             study $_; # Yes, I studied study yesterday.
4575              
4576             # while all script
4577              
4578             # 6.14. Matching from Where the Last Pattern Left Off
4579             # in Chapter 6. Pattern Matching
4580             # of ISBN 0-596-00313-7 Perl Cookbook, 2nd Edition.
4581             # (and so on)
4582              
4583             # one member of Tag-team
4584             #
4585             # P.128 Start of match (or end of previous match): \G
4586             # P.130 Advanced Use of \G with Perl
4587             # in Chapter 3: Overview of Regular Expression Features and Flavors
4588             # P.255 Use leading anchors
4589             # P.256 Expose ^ and \G at the front expressions
4590             # in Chapter 6: Crafting an Efficient Expression
4591             # P.315 "Tag-team" matching with /gc
4592             # in Chapter 7: Perl
4593 306         748 # of ISBN 0-596-00289-0 Mastering Regular Expressions, Second edition
4594 306         565  
4595 306         1106 my $e_script = '';
4596             while (not /\G \z/oxgc) { # member
4597             $e_script .= OldUTF8::escape_token();
4598 135644         200174 }
4599              
4600             return $e_script;
4601             }
4602              
4603             #
4604             # escape old UTF-8 token of script
4605             #
4606             sub OldUTF8::escape_token {
4607              
4608 306     135644 0 4207 # \n output here document
4609              
4610             my $ignore_modules = join('|', qw(
4611             utf8
4612             bytes
4613             charnames
4614             I18N::Japanese
4615             I18N::Collate
4616             I18N::JExt
4617             File::DosGlob
4618             Wild
4619             Wildcard
4620             Japanese
4621             ));
4622              
4623             # another member of Tag-team
4624             #
4625             # P.315 "Tag-team" matching with /gc
4626             # in Chapter 7: Perl
4627 135644 100 100     155960 # of ISBN 0-596-00289-0 Mastering Regular Expressions, Second edition
    100 100        
    100          
    100          
    100          
    100          
    100          
    100          
    100          
    100          
    50          
    100          
    50          
    100          
    100          
    50          
    50          
    50          
    50          
    50          
    50          
    100          
    100          
    50          
    50          
    50          
    50          
    100          
    100          
    50          
    100          
    50          
    100          
    100          
    100          
    100          
    50          
    100          
    100          
    100          
    50          
    100          
    100          
    100          
    50          
    50          
    50          
    100          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    100          
    100          
    100          
    100          
    100          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    100          
    50          
    100          
    100          
    100          
    100          
    100          
    100          
    100          
    100          
    100          
    100          
    100          
    50          
    50          
    50          
    100          
    50          
    50          
    100          
    50          
    100          
    50          
    50          
    50          
    50          
    50          
    50          
    100          
    100          
    100          
    100          
    100          
    100          
    50          
    50          
    100          
    100          
    100          
    100          
    100          
    100          
    100          
    100          
    100          
    50          
    100          
    50          
    50          
    50          
    100          
    50          
    50          
    100          
    100          
    100          
    50          
4628 135644         6127033  
4629 22128 100       28057 if (/\G ( \n ) /oxgc) { # another member (and so on)
4630 22128         36517 my $heredoc = '';
4631             if (scalar(@heredoc_delimiter) >= 1) {
4632 191         246 $slash = 'm//';
4633 191         393  
4634             $heredoc = join '', @heredoc;
4635             @heredoc = ();
4636 191         332  
4637 191         342 # skip here document
4638             for my $heredoc_delimiter (@heredoc_delimiter) {
4639 199         1243 /\G .*? \n $heredoc_delimiter \n/xmsgc;
4640             }
4641 191         382 @heredoc_delimiter = ();
4642              
4643 191         272 $here_script = '';
4644             }
4645             return "\n" . $heredoc;
4646             }
4647 22128         62487  
4648             # ignore space, comment
4649             elsif (/\G ((?>\s+)|\#.*) /oxgc) { return $1; }
4650              
4651             # if (, elsif (, unless (, while (, until (, given (, and when (
4652              
4653             # given, when
4654              
4655             # P.225 The given Statement
4656             # in Chapter 15: Smart Matching and given-when
4657             # of ISBN 978-0-596-52010-6 Learning Perl, Fifth Edition
4658              
4659             # P.133 The given Statement
4660             # in Chapter 4: Statements and Declarations
4661             # of ISBN 978-0-596-00492-7 Programming Perl 4th Edition.
4662 36018         108977  
4663 2398         3404 elsif (/\G ( (?: if | elsif | unless | while | until | given | when ) (?>\s*) \( ) /oxgc) {
4664             $slash = 'm//';
4665             return $1;
4666             }
4667              
4668             # scalar variable ($scalar = ...) =~ tr///;
4669             # scalar variable ($scalar = ...) =~ s///;
4670              
4671             # state
4672              
4673             # P.68 Persistent, Private Variables
4674             # in Chapter 4: Subroutines
4675             # of ISBN 978-0-596-52010-6 Learning Perl, Fifth Edition
4676              
4677             # P.160 Persistent Lexically Scoped Variables: state
4678             # in Chapter 4: Statements and Declarations
4679             # of ISBN 978-0-596-00492-7 Programming Perl 4th Edition.
4680              
4681             # (and so on)
4682 2398         7338  
4683             elsif (/\G ( \( (?>\s*) (?: local \b | my \b | our \b | state \b )? (?>\s*) \$ $qq_scalar ) /oxgc) {
4684 139 50       324 my $e_string = e_string($1);
    50          
4685 139         5230  
4686 0         0 if (/\G ( (?>\s*) = $qq_paren \) ) ( (?>\s*) (?: =~ | !~ ) (?>\s*) ) (?= (?: tr | y ) \b ) /oxgc) {
4687 0         0 $tr_variable = $e_string . e_string($1);
4688 0         0 $bind_operator = $2;
4689             $slash = 'm//';
4690             return '';
4691 0         0 }
4692 0         0 elsif (/\G ( (?>\s*) = $qq_paren \) ) ( (?>\s*) (?: =~ | !~ ) (?>\s*) ) (?= s \b ) /oxgc) {
4693 0         0 $sub_variable = $e_string . e_string($1);
4694 0         0 $bind_operator = $2;
4695             $slash = 'm//';
4696             return '';
4697 0         0 }
4698 139         259 else {
4699             $slash = 'div';
4700             return $e_string;
4701             }
4702             }
4703              
4704 139         555 # $`, ${`}, $PREMATCH, ${PREMATCH}, ${^PREMATCH} --> Eoldutf8::PREMATCH()
4705 4         10 elsif (/\G ( \$` | \$\{`\} | \$ (?>\s*) PREMATCH \b | \$ (?>\s*) \{ (?>\s*) PREMATCH (?>\s*) \} | \$ (?>\s*) \{\^PREMATCH\} ) /oxmsgc) {
4706             $slash = 'div';
4707             return q{Eoldutf8::PREMATCH()};
4708             }
4709              
4710 4         14 # $&, ${&}, $MATCH, ${MATCH}, ${^MATCH} --> Eoldutf8::MATCH()
4711 28         111 elsif (/\G ( \$& | \$\{&\} | \$ (?>\s*) MATCH \b | \$ (?>\s*) \{ (?>\s*) MATCH (?>\s*) \} | \$ (?>\s*) \{\^MATCH\} ) /oxmsgc) {
4712             $slash = 'div';
4713             return q{Eoldutf8::MATCH()};
4714             }
4715              
4716 28         88 # $', ${'} --> $', ${'}
4717 1         3 elsif (/\G ( \$' | \$\{'\} ) /oxmsgc) {
4718             $slash = 'div';
4719             return $1;
4720             }
4721              
4722 1         4 # $POSTMATCH, ${POSTMATCH}, ${^POSTMATCH} --> Eoldutf8::POSTMATCH()
4723 3         7 elsif (/\G ( \$ (?>\s*) POSTMATCH \b | \$ (?>\s*) \{ (?>\s*) POSTMATCH (?>\s*) \} | \$ (?>\s*) \{\^POSTMATCH\} ) /oxmsgc) {
4724             $slash = 'div';
4725             return q{Eoldutf8::POSTMATCH()};
4726             }
4727              
4728             # scalar variable $scalar =~ tr///;
4729             # scalar variable $scalar =~ s///;
4730             # substr() =~ tr///;
4731 3         10 # substr() =~ s///;
4732             elsif (/\G ( \$ $qq_scalar | $qq_substr ) /oxgc) {
4733 2318 100       6181 my $scalar = e_string($1);
    100          
4734 2318         9186  
4735 9         19 if (/\G ( (?>\s*) (?: =~ | !~ ) (?>\s*) ) (?= (?: tr | y ) \b ) /oxgc) {
4736 9         17 $tr_variable = $scalar;
4737 9         12 $bind_operator = $1;
4738             $slash = 'm//';
4739             return '';
4740 9         23 }
4741 95         181 elsif (/\G ( (?>\s*) (?: =~ | !~ ) (?>\s*) ) (?= s \b ) /oxgc) {
4742 95         186 $sub_variable = $scalar;
4743 95         158 $bind_operator = $1;
4744             $slash = 'm//';
4745             return '';
4746 95         278 }
4747 2214         3011 else {
4748             $slash = 'div';
4749             return $scalar;
4750             }
4751             }
4752              
4753 2214         5614 # end of statement
4754             elsif (/\G ( [,;] ) /oxgc) {
4755             $slash = 'm//';
4756 9208         13443  
4757             # clear tr/// variable
4758             $tr_variable = '';
4759 9208         10580  
4760             # clear s/// variable
4761 9208         10382 $sub_variable = '';
4762              
4763 9208         9896 $bind_operator = '';
4764              
4765             return $1;
4766             }
4767              
4768 9208         29707 # bareword
4769             elsif (/\G ( \{ (?>\s*) (?: tr | index | rindex | reverse ) (?>\s*) \} ) /oxmsgc) {
4770             return $1;
4771             }
4772              
4773 0         0 # $0 --> $0
4774 2         5 elsif (/\G ( \$ 0 ) /oxmsgc) {
4775             $slash = 'div';
4776             return $1;
4777 2         7 }
4778 0         0 elsif (/\G ( \$ \{ (?>\s*) 0 (?>\s*) \} ) /oxmsgc) {
4779             $slash = 'div';
4780             return $1;
4781             }
4782              
4783 0         0 # $$ --> $$
4784 1         3 elsif (/\G ( \$ \$ ) (?![\w\{]) /oxmsgc) {
4785             $slash = 'div';
4786             return $1;
4787             }
4788              
4789             # $1, $2, $3 --> $2, $3, $4 after s/// with multibyte anchoring
4790 1         3 # $1, $2, $3 --> $1, $2, $3 otherwise
4791 57         123 elsif (/\G \$ ((?>[1-9][0-9]*)) /oxmsgc) {
4792             $slash = 'div';
4793             return e_capture($1);
4794 57         155 }
4795 0         0 elsif (/\G \$ \{ (?>\s*) ((?>[1-9][0-9]*)) (?>\s*) \} /oxmsgc) {
4796             $slash = 'div';
4797             return e_capture($1);
4798             }
4799              
4800 0         0 # $$foo[ ... ] --> $ $foo->[ ... ]
4801 0         0 elsif (/\G \$ ( \$ (?> [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) ( \[ .+? \] ) /oxmsgc) {
4802             $slash = 'div';
4803             return e_capture($1.'->'.$2);
4804             }
4805              
4806 0         0 # $$foo{ ... } --> $ $foo->{ ... }
4807 0         0 elsif (/\G \$ ( \$ (?> [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) ( \{ .+? \} ) /oxmsgc) {
4808             $slash = 'div';
4809             return e_capture($1.'->'.$2);
4810             }
4811              
4812 0         0 # $$foo
4813 0         0 elsif (/\G \$ ( \$ (?> [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) /oxmsgc) {
4814             $slash = 'div';
4815             return e_capture($1);
4816             }
4817              
4818 0         0 # ${ foo }
4819 0         0 elsif (/\G \$ (?>\s*) \{ ( (?>\s*) (?> [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* ) (?>\s*) ) \} /oxmsgc) {
4820             $slash = 'div';
4821             return '${' . $1 . '}';
4822             }
4823              
4824 0         0 # ${ ... }
4825 0         0 elsif (/\G \$ (?>\s*) \{ (?>\s*) ( $qq_brace ) (?>\s*) \} /oxmsgc) {
4826             $slash = 'div';
4827             return e_capture($1);
4828             }
4829              
4830             # variable or function
4831 0         0 # $ @ % & * $ #
4832 27         45 elsif (/\G ( (?: [\$\@\%\&\*] | \$\# | -> | \b sub \b) (?>\s*) (?: split | chop | index | rindex | lc | uc | fc | chr | ord | reverse | getc | tr | y | q | qq | qx | qw | m | s | qr | glob | lstat | opendir | stat | unlink | chdir ) ) \b /oxmsgc) {
4833             $slash = 'div';
4834             return $1;
4835             }
4836             # $ $ $ $ $ $ $ $ $ $ $ $ $ $
4837 27         81 # $ @ # \ ' " / ? ( ) [ ] < >
4838 90         165 elsif (/\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
4839             $slash = 'div';
4840             return $1;
4841             }
4842              
4843 90         289 # while ()
4844             elsif (/\G \b (while (?>\s*) \( (?>\s*) <[\$]?[A-Za-z_][A-Za-z_0-9]*> (?>\s*) \)) \b /oxgc) {
4845             return $1;
4846             }
4847              
4848             # while () --- glob
4849              
4850             # avoid "Error: Runtime exception" of perl version 5.005_03
4851 0         0  
4852             elsif (/\G \b while (?>\s*) \( (?>\s*) < ((?:[^\x80-\xFF>\0\a\e\f\n\r\t]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF])+?) > (?>\s*) \) \b /oxgc) {
4853             return 'while ($_ = Eoldutf8::glob("' . $1 . '"))';
4854             }
4855              
4856 0         0 # while (glob)
4857             elsif (/\G \b while (?>\s*) \( (?>\s*) glob (?>\s*) \) /oxgc) {
4858             return 'while ($_ = Eoldutf8::glob_)';
4859             }
4860              
4861 0         0 # while (glob(WILDCARD))
4862             elsif (/\G \b while (?>\s*) \( (?>\s*) glob \b /oxgc) {
4863             return 'while ($_ = Eoldutf8::glob';
4864             }
4865 0         0  
  401         841  
4866             # doit if, doit unless, doit while, doit until, doit for, doit when
4867             elsif (/\G \b ( if | unless | while | until | for | when ) \b /oxgc) { $slash = 'm//'; return $1; }
4868 401         1369  
  19         35  
4869 19         64 # subroutines of package Eoldutf8
  0         0  
4870 0         0 elsif (/\G \b (CORE:: | ->(>?\s*) (?: atan2 | [a-z]{2,})) \b /oxgc) { $slash = 'm//'; return $1; }
  13         17  
4871 13         67 elsif (/\G \b Char::eval (?= (?>\s*) \{ ) /oxgc) { $slash = 'm//'; return 'eval'; }
  0         0  
4872 0         0 elsif (/\G \b OldUTF8::eval (?= (?>\s*) \{ ) /oxgc) { $slash = 'm//'; return 'eval'; }
  114         165  
4873 114         299 elsif (/\G \b Char::eval \b (?! (?>\s*) => ) /oxgc) { $slash = 'm//'; return 'eval Char::escape'; }
  2         4  
4874 2         6 elsif (/\G \b OldUTF8::eval \b (?! (?>\s*) => ) /oxgc) { $slash = 'm//'; return 'eval OldUTF8::escape'; }
  2         4  
4875 2         6 elsif (/\G \b bytes::substr \b (?! (?>\s*) => ) /oxgc) { $slash = 'm//'; return 'substr'; }
  2         4  
4876 2         5 elsif (/\G \b chop \b (?! (?>\s*) => ) /oxgc) { $slash = 'm//'; return 'Eoldutf8::chop'; }
  0         0  
4877 0         0 elsif (/\G \b bytes::index \b (?! (?>\s*) => ) /oxgc) { $slash = 'm//'; return 'index'; }
  2         4  
4878 2         6 elsif (/\G \b Char::index \b (?! (?>\s*) => ) /oxgc) { $slash = 'm//'; return 'Char::index'; }
  2         5  
4879 2         5 elsif (/\G \b OldUTF8::index \b (?! (?>\s*) => ) /oxgc) { $slash = 'm//'; return 'OldUTF8::index'; }
  2         5  
4880 2         5 elsif (/\G \b index \b (?! (?>\s*) => ) /oxgc) { $slash = 'm//'; return 'Eoldutf8::index'; }
  0         0  
4881 0         0 elsif (/\G \b bytes::rindex \b (?! (?>\s*) => ) /oxgc) { $slash = 'm//'; return 'rindex'; }
  2         3  
4882 2         7 elsif (/\G \b Char::rindex \b (?! (?>\s*) => ) /oxgc) { $slash = 'm//'; return 'Char::rindex'; }
  2         13  
4883 2         7 elsif (/\G \b OldUTF8::rindex \b (?! (?>\s*) => ) /oxgc) { $slash = 'm//'; return 'OldUTF8::rindex'; }
  1         2  
4884 1         3 elsif (/\G \b rindex \b (?! (?>\s*) => ) /oxgc) { $slash = 'm//'; return 'Eoldutf8::rindex'; }
  0         0  
4885 0         0 elsif (/\G \b lc (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /oxgc) { $slash = 'm//'; return 'Eoldutf8::lc'; }
  0         0  
4886 0         0 elsif (/\G \b lcfirst (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /oxgc) { $slash = 'm//'; return 'Eoldutf8::lcfirst'; }
  0         0  
4887 0         0 elsif (/\G \b uc (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /oxgc) { $slash = 'm//'; return 'Eoldutf8::uc'; }
  7         14  
4888             elsif (/\G \b ucfirst (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /oxgc) { $slash = 'm//'; return 'Eoldutf8::ucfirst'; }
4889             elsif (/\G \b fc (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /oxgc) { $slash = 'm//'; return 'Eoldutf8::fc'; }
4890 7         21  
  0         0  
4891 0         0 # "-s '' ..." means file test "-s 'filename' ..." (not means "- s/// ...")
  0         0  
4892 0         0 elsif (/\G -s (?>\s*) (\") ((?:$qq_char)+?) (\") /oxgc) { $slash = 'm//'; return '-s ' . e_qq('', $1,$3,$2); }
  0         0  
4893 0         0 elsif (/\G -s (?>\s+) qq (?>\s*) (\#) ((?:$qq_char)+?) (\#) /oxgc) { $slash = 'm//'; return '-s ' . e_qq('qq',$1,$3,$2); }
  0         0  
4894 0         0 elsif (/\G -s (?>\s+) qq (?>\s*) (\() ((?:$qq_paren)+?) (\)) /oxgc) { $slash = 'm//'; return '-s ' . e_qq('qq',$1,$3,$2); }
  0         0  
4895 0         0 elsif (/\G -s (?>\s+) qq (?>\s*) (\{) ((?:$qq_brace)+?) (\}) /oxgc) { $slash = 'm//'; return '-s ' . e_qq('qq',$1,$3,$2); }
  0         0  
4896 0         0 elsif (/\G -s (?>\s+) qq (?>\s*) (\[) ((?:$qq_bracket)+?) (\]) /oxgc) { $slash = 'm//'; return '-s ' . e_qq('qq',$1,$3,$2); }
  0         0  
4897             elsif (/\G -s (?>\s+) qq (?>\s*) (\<) ((?:$qq_angle)+?) (\>) /oxgc) { $slash = 'm//'; return '-s ' . e_qq('qq',$1,$3,$2); }
4898 0         0 elsif (/\G -s (?>\s+) qq (?>\s*) (\S) ((?:$qq_char)+?) (\1) /oxgc) { $slash = 'm//'; return '-s ' . e_qq('qq',$1,$3,$2); }
  0         0  
4899 0         0  
  0         0  
4900 0         0 elsif (/\G -s (?>\s*) (\') ((?:\\\'|\\\\|$q_char)+?) (\') /oxgc) { $slash = 'm//'; return '-s ' . e_q ('', $1,$3,$2); }
  0         0  
4901 0         0 elsif (/\G -s (?>\s+) q (?>\s*) (\#) ((?:\\\#|\\\\|$q_char)+?) (\#) /oxgc) { $slash = 'm//'; return '-s ' . e_q ('q', $1,$3,$2); }
  0         0  
4902 0         0 elsif (/\G -s (?>\s+) q (?>\s*) (\() ((?:\\\)|\\\\|$q_paren)+?) (\)) /oxgc) { $slash = 'm//'; return '-s ' . e_q ('q', $1,$3,$2); }
  0         0  
4903 0         0 elsif (/\G -s (?>\s+) q (?>\s*) (\{) ((?:\\\}|\\\\|$q_brace)+?) (\}) /oxgc) { $slash = 'm//'; return '-s ' . e_q ('q', $1,$3,$2); }
  0         0  
4904 0         0 elsif (/\G -s (?>\s+) q (?>\s*) (\[) ((?:\\\]|\\\\|$q_bracket)+?) (\]) /oxgc) { $slash = 'm//'; return '-s ' . e_q ('q', $1,$3,$2); }
  0         0  
4905             elsif (/\G -s (?>\s+) q (?>\s*) (\<) ((?:\\\>|\\\\|$q_angle)+?) (\>) /oxgc) { $slash = 'm//'; return '-s ' . e_q ('q', $1,$3,$2); }
4906             elsif (/\G -s (?>\s+) q (?>\s*) (\S) ((?:\\\1|\\\\|$q_char)+?) (\1) /oxgc) { $slash = 'm//'; return '-s ' . e_q ('q', $1,$3,$2); }
4907 0         0  
  0         0  
4908 0         0 elsif (/\G -s (?>\s*) (\$ (?> \w+ (?: ::\w+)* ) (?: (?: ->)? (?: [\$\@\%\&\*]\* | \$\#\* | \( (?:$qq_paren)*? \) | [\@\%\*]? \{ (?:$qq_brace)+? \} | [\@\%]? \[ (?:$qq_bracket)+? \] ) )*) /oxgc)
  0         0  
4909 0         0 { $slash = 'm//'; return "-s $1"; }
  0         0  
4910 0         0 elsif (/\G -s (?>\s*) \( ((?:$qq_paren)*?) \) /oxgc) { $slash = 'm//'; return "-s ($1)"; }
  0         0  
4911             elsif (/\G -s (?= (?>\s+) [a-z]+) /oxgc) { $slash = 'm//'; return '-s'; }
4912 0         0 elsif (/\G -s (?>\s+) ((?>\w+)) /oxgc) { $slash = 'm//'; return "-s $1"; }
  2         4  
4913 2         6  
  2         4  
4914 2         5 elsif (/\G \b bytes::length (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /oxgc) { $slash = 'm//'; return 'length'; }
  36         77  
4915 36         116 elsif (/\G \b bytes::chr (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /oxgc) { $slash = 'm//'; return 'chr'; }
  2         3  
4916 2         7 elsif (/\G \b chr (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /oxgc) { $slash = 'm//'; return 'Eoldutf8::chr'; }
  2         6  
4917 2         7 elsif (/\G \b bytes::ord (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /oxgc) { $slash = 'div'; return 'ord'; }
  0         0  
4918 0         0 elsif (/\G \b ord (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /oxgc) { $slash = 'div'; return $function_ord; }
  0         0  
4919 0         0 elsif (/\G \b glob (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /oxgc) { $slash = 'm//'; return 'Eoldutf8::glob'; }
  0         0  
4920 0         0 elsif (/\G \b lc \b (?! (?>\s*) => ) /oxgc) { $slash = 'm//'; return 'Eoldutf8::lc_'; }
  0         0  
4921 0         0 elsif (/\G \b lcfirst \b (?! (?>\s*) => ) /oxgc) { $slash = 'm//'; return 'Eoldutf8::lcfirst_'; }
  0         0  
4922 0         0 elsif (/\G \b uc \b (?! (?>\s*) => ) /oxgc) { $slash = 'm//'; return 'Eoldutf8::uc_'; }
  0         0  
4923 0         0 elsif (/\G \b ucfirst \b (?! (?>\s*) => ) /oxgc) { $slash = 'm//'; return 'Eoldutf8::ucfirst_'; }
  0         0  
4924             elsif (/\G \b fc \b (?! (?>\s*) => ) /oxgc) { $slash = 'm//'; return 'Eoldutf8::fc_'; }
4925 0         0 elsif (/\G -s \b (?! (?>\s*) => ) /oxgc) { $slash = 'm//'; return '-s '; }
  0         0  
4926 0         0  
  0         0  
4927 0         0 elsif (/\G \b bytes::length \b (?! (?>\s*) => ) /oxgc) { $slash = 'm//'; return 'length'; }
  0         0  
4928 0         0 elsif (/\G \b bytes::chr \b (?! (?>\s*) => ) /oxgc) { $slash = 'm//'; return 'chr'; }
  0         0  
4929 0         0 elsif (/\G \b chr \b (?! (?>\s*) => ) /oxgc) { $slash = 'm//'; return 'Eoldutf8::chr_'; }
  2         6  
4930 2         7 elsif (/\G \b bytes::ord \b (?! (?>\s*) => ) /oxgc) { $slash = 'div'; return 'ord'; }
  0         0  
4931 0         0 elsif (/\G \b ord \b (?! (?>\s*) => ) /oxgc) { $slash = 'div'; return $function_ord_; }
  4         7  
4932 4         14 elsif (/\G \b glob \b (?! (?>\s*) => ) /oxgc) { $slash = 'm//'; return 'Eoldutf8::glob_'; }
  8         16  
4933             elsif (/\G \b reverse \b (?! (?>\s*) => ) /oxgc) { $slash = 'm//'; return $function_reverse; }
4934             elsif (/\G \b getc \b (?! (?>\s*) => ) /oxgc) { $slash = 'm//'; return $function_getc; }
4935 8         30 # split
4936             elsif (/\G \b (split) \b (?! (?>\s*) => ) /oxgc) {
4937 120         255 $slash = 'm//';
4938 120         190  
4939 120         460 my $e = '';
4940             while (/\G ( (?>\s+) | \( | \#.* ) /oxgc) {
4941             $e .= $1;
4942             }
4943 117 100       433  
  120 100       10303  
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    100          
    100          
    50          
    100          
    50          
    100          
    50          
    50          
    50          
4944             # end of split
4945             if (/\G (?= [,;\)\}\]] ) /oxgc) { return 'Eoldutf8::split' . $e; }
4946 3         13  
4947             # split scalar value
4948             elsif (/\G ( [\$\@\&\*] $qq_scalar ) /oxgc) { return 'Eoldutf8::split' . $e . e_string($1); }
4949 1         6  
4950 0         0 # split literal space
4951 0         0 elsif (/\G \b qq (\#) [ ] (\#) /oxgc) { return 'Eoldutf8::split' . $e . qq {qq$1 $2}; }
4952 0         0 elsif (/\G \b qq ((?>\s*)) (\() [ ] (\)) /oxgc) { return 'Eoldutf8::split' . $e . qq{$1qq$2 $3}; }
4953 0         0 elsif (/\G \b qq ((?>\s*)) (\{) [ ] (\}) /oxgc) { return 'Eoldutf8::split' . $e . qq{$1qq$2 $3}; }
4954 0         0 elsif (/\G \b qq ((?>\s*)) (\[) [ ] (\]) /oxgc) { return 'Eoldutf8::split' . $e . qq{$1qq$2 $3}; }
4955 0         0 elsif (/\G \b qq ((?>\s*)) (\<) [ ] (\>) /oxgc) { return 'Eoldutf8::split' . $e . qq{$1qq$2 $3}; }
4956 0         0 elsif (/\G \b qq ((?>\s*)) (\S) [ ] (\2) /oxgc) { return 'Eoldutf8::split' . $e . qq{$1qq$2 $3}; }
4957 0         0 elsif (/\G \b q (\#) [ ] (\#) /oxgc) { return 'Eoldutf8::split' . $e . qq {q$1 $2}; }
4958 0         0 elsif (/\G \b q ((?>\s*)) (\() [ ] (\)) /oxgc) { return 'Eoldutf8::split' . $e . qq {$1q$2 $3}; }
4959 0         0 elsif (/\G \b q ((?>\s*)) (\{) [ ] (\}) /oxgc) { return 'Eoldutf8::split' . $e . qq {$1q$2 $3}; }
4960 0         0 elsif (/\G \b q ((?>\s*)) (\[) [ ] (\]) /oxgc) { return 'Eoldutf8::split' . $e . qq {$1q$2 $3}; }
4961 0         0 elsif (/\G \b q ((?>\s*)) (\<) [ ] (\>) /oxgc) { return 'Eoldutf8::split' . $e . qq {$1q$2 $3}; }
4962 13         62 elsif (/\G \b q ((?>\s*)) (\S) [ ] (\2) /oxgc) { return 'Eoldutf8::split' . $e . qq {$1q$2 $3}; }
4963             elsif (/\G ' [ ] ' /oxgc) { return 'Eoldutf8::split' . $e . qq {' '}; }
4964             elsif (/\G " [ ] " /oxgc) { return 'Eoldutf8::split' . $e . qq {" "}; }
4965              
4966 2 0       11 # split qq//
  0         0  
4967             elsif (/\G \b (qq) \b /oxgc) {
4968 0         0 if (/\G (\#) ((?:$qq_char)*?) (\#) /oxgc) { return e_split($e.'qr',$1,$3,$2,''); } # qq# # --> qr # #
4969 0 0       0 else {
  0 0       0  
    0          
    0          
    0          
    0          
    0          
4970 0         0 while (not /\G \z/oxgc) {
4971 0         0 if (/\G ((?>\s+)|\#.*) /oxgc) { $e .= $1; }
4972 0         0 elsif (/\G (\() ((?:$qq_paren)*?) (\)) /oxgc) { return e_split($e.'qr',$1,$3,$2,''); } # qq ( ) --> qr ( )
4973 0         0 elsif (/\G (\{) ((?:$qq_brace)*?) (\}) /oxgc) { return e_split($e.'qr',$1,$3,$2,''); } # qq { } --> qr { }
4974 0         0 elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) /oxgc) { return e_split($e.'qr',$1,$3,$2,''); } # qq [ ] --> qr [ ]
4975 0         0 elsif (/\G (\<) ((?:$qq_angle)*?) (\>) /oxgc) { return e_split($e.'qr',$1,$3,$2,''); } # qq < > --> qr < >
4976             elsif (/\G ([*\-:?\\^|]) ((?:$qq_char)*?) (\1) /oxgc) { return e_split($e.'qr','{','}',$2,''); } # qq | | --> qr { }
4977 0         0 elsif (/\G (\S) ((?:$qq_char)*?) (\1) /oxgc) { return e_split($e.'qr',$1,$3,$2,''); } # qq * * --> qr * *
4978             }
4979             die __FILE__, ": Can't find string terminator anywhere before EOF\n";
4980             }
4981             }
4982              
4983 0 50       0 # split qr//
  12         554  
4984             elsif (/\G \b (qr) \b /oxgc) {
4985 0         0 if (/\G (\#) ((?:$qq_char)*?) (\#) ([imosxpadlunbB]*) /oxgc) { return e_split ($e.'qr',$1,$3,$2,$4); } # qr# #
4986 12 50       57 else {
  12 50       4898  
    50          
    50          
    50          
    50          
    50          
    50          
4987 0         0 while (not /\G \z/oxgc) {
4988 0         0 if (/\G ((?>\s+)|\#.*) /oxgc) { $e .= $1; }
4989 0         0 elsif (/\G (\() ((?:$qq_paren)*?) (\)) ([imosxpadlunbB]*) /oxgc) { return e_split ($e.'qr',$1, $3, $2,$4); } # qr ( )
4990 0         0 elsif (/\G (\{) ((?:$qq_brace)*?) (\}) ([imosxpadlunbB]*) /oxgc) { return e_split ($e.'qr',$1, $3, $2,$4); } # qr { }
4991 0         0 elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) ([imosxpadlunbB]*) /oxgc) { return e_split ($e.'qr',$1, $3, $2,$4); } # qr [ ]
4992 0         0 elsif (/\G (\<) ((?:$qq_angle)*?) (\>) ([imosxpadlunbB]*) /oxgc) { return e_split ($e.'qr',$1, $3, $2,$4); } # qr < >
4993 0         0 elsif (/\G (\') ((?:$qq_char)*?) (\') ([imosxpadlunbB]*) /oxgc) { return e_split_q($e.'qr',$1, $3, $2,$4); } # qr ' '
4994             elsif (/\G ([*\-:?\\^|]) ((?:$qq_char)*?) (\1) ([imosxpadlunbB]*) /oxgc) { return e_split ($e.'qr','{','}',$2,$4); } # qr | | --> qr { }
4995 12         85 elsif (/\G (\S) ((?:$qq_char)*?) (\1) ([imosxpadlunbB]*) /oxgc) { return e_split ($e.'qr',$1, $3, $2,$4); } # qr * *
4996             }
4997             die __FILE__, ": Can't find string terminator anywhere before EOF\n";
4998             }
4999             }
5000              
5001 0 0       0 # split q//
  0         0  
5002             elsif (/\G \b (q) \b /oxgc) {
5003 0         0 if (/\G (\#) ((?:\\\#|\\\\|$q_char)*?) (\#) /oxgc) { return e_split_q($e.'qr',$1,$3,$2,''); } # q# # --> qr # #
5004 0 0       0 else {
  0 0       0  
    0          
    0          
    0          
    0          
    0          
5005 0         0 while (not /\G \z/oxgc) {
5006 0         0 if (/\G ((?>\s+)|\#.*) /oxgc) { $e .= $1; }
5007 0         0 elsif (/\G (\() ((?:\\\\|\\\)|\\\(|$q_paren)*?) (\)) /oxgc) { return e_split_q($e.'qr',$1,$3,$2,''); } # q ( ) --> qr ( )
5008 0         0 elsif (/\G (\{) ((?:\\\\|\\\}|\\\{|$q_brace)*?) (\}) /oxgc) { return e_split_q($e.'qr',$1,$3,$2,''); } # q { } --> qr { }
5009 0         0 elsif (/\G (\[) ((?:\\\\|\\\]|\\\[|$q_bracket)*?) (\]) /oxgc) { return e_split_q($e.'qr',$1,$3,$2,''); } # q [ ] --> qr [ ]
5010 0         0 elsif (/\G (\<) ((?:\\\\|\\\>|\\\<|$q_angle)*?) (\>) /oxgc) { return e_split_q($e.'qr',$1,$3,$2,''); } # q < > --> qr < >
5011             elsif (/\G ([*\-:?\\^|]) ((?:$q_char)*?) (\1) /oxgc) { return e_split_q($e.'qr','{','}',$2,''); } # q | | --> qr { }
5012 0         0 elsif (/\G (\S) ((?:\\\\|\\\1| $q_char)*?) (\1) /oxgc) { return e_split_q($e.'qr',$1,$3,$2,''); } # q * * --> qr * *
5013             }
5014             die __FILE__, ": Can't find string terminator anywhere before EOF\n";
5015             }
5016             }
5017              
5018 0 50       0 # split m//
  24         668  
5019             elsif (/\G \b (m) \b /oxgc) {
5020 0         0 if (/\G (\#) ((?:$qq_char)*?) (\#) ([cgimosxpadlunbB]*) /oxgc) { return e_split ($e.'qr',$1,$3,$2,$4); } # m# # --> qr # #
5021 24 50       97 else {
  24 50       5777  
    50          
    50          
    50          
    50          
    50          
    50          
5022 0         0 while (not /\G \z/oxgc) {
5023 0         0 if (/\G ((?>\s+)|\#.*) /oxgc) { $e .= $1; }
5024 0         0 elsif (/\G (\() ((?:$qq_paren)*?) (\)) ([cgimosxpadlunbB]*) /oxgc) { return e_split ($e.'qr',$1, $3, $2,$4); } # m ( ) --> qr ( )
5025 0         0 elsif (/\G (\{) ((?:$qq_brace)*?) (\}) ([cgimosxpadlunbB]*) /oxgc) { return e_split ($e.'qr',$1, $3, $2,$4); } # m { } --> qr { }
5026 0         0 elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) ([cgimosxpadlunbB]*) /oxgc) { return e_split ($e.'qr',$1, $3, $2,$4); } # m [ ] --> qr [ ]
5027 0         0 elsif (/\G (\<) ((?:$qq_angle)*?) (\>) ([cgimosxpadlunbB]*) /oxgc) { return e_split ($e.'qr',$1, $3, $2,$4); } # m < > --> qr < >
5028 0         0 elsif (/\G (\') ((?:$qq_char)*?) (\') ([cgimosxpadlunbB]*) /oxgc) { return e_split_q($e.'qr',$1, $3, $2,$4); } # m ' ' --> qr ' '
5029             elsif (/\G ([*\-:?\\^|]) ((?:$qq_char)*?) (\1) ([cgimosxpadlunbB]*) /oxgc) { return e_split ($e.'qr','{','}',$2,$4); } # m | | --> qr { }
5030 24         150 elsif (/\G (\S) ((?:$qq_char)*?) (\1) ([cgimosxpadlunbB]*) /oxgc) { return e_split ($e.'qr',$1, $3, $2,$4); } # m * * --> qr * *
5031             }
5032             die __FILE__, ": Search pattern not terminated\n";
5033             }
5034             }
5035              
5036 0         0 # split ''
5037 0         0 elsif (/\G (\') /oxgc) {
5038 0 0       0 my $q_string = '';
  0 0       0  
    0          
    0          
5039 0         0 while (not /\G \z/oxgc) {
5040 0         0 if (/\G (\\\\) /oxgc) { $q_string .= $1; }
5041 0         0 elsif (/\G (\\\') /oxgc) { $q_string .= $1; } # splitqr'' --> split qr''
5042             elsif (/\G \' /oxgc) { return e_split_q($e.q{ qr},"'","'",$q_string,''); } # ' ' --> qr ' '
5043 0         0 elsif (/\G ($q_char) /oxgc) { $q_string .= $1; }
5044             }
5045             die __FILE__, ": Can't find string terminator anywhere before EOF\n";
5046             }
5047              
5048 0         0 # split ""
5049 0         0 elsif (/\G (\") /oxgc) {
5050 0 0       0 my $qq_string = '';
  0 0       0  
    0          
    0          
5051 0         0 while (not /\G \z/oxgc) {
5052 0         0 if (/\G (\\\\) /oxgc) { $qq_string .= $1; }
5053 0         0 elsif (/\G (\\\") /oxgc) { $qq_string .= $1; } # splitqr"" --> split qr""
5054             elsif (/\G \" /oxgc) { return e_split($e.q{ qr},'"','"',$qq_string,''); } # " " --> qr " "
5055 0         0 elsif (/\G ($q_char) /oxgc) { $qq_string .= $1; }
5056             }
5057             die __FILE__, ": Can't find string terminator anywhere before EOF\n";
5058             }
5059              
5060 0         0 # split //
5061 65         186 elsif (/\G (\/) /oxgc) {
5062 65 50       218 my $regexp = '';
  434 50       2424  
    100          
    50          
5063 0         0 while (not /\G \z/oxgc) {
5064 0         0 if (/\G (\\\\) /oxgc) { $regexp .= $1; }
5065 65         298 elsif (/\G (\\\/) /oxgc) { $regexp .= $1; } # splitqr// --> split qr//
5066             elsif (/\G \/ ([cgimosxpadlunbB]*) /oxgc) { return e_split($e.q{ qr}, '/','/',$regexp,$1); } # / / --> qr / /
5067 369         941 elsif (/\G ($q_char) /oxgc) { $regexp .= $1; }
5068             }
5069             die __FILE__, ": Search pattern not terminated\n";
5070             }
5071             }
5072              
5073             # tr/// or y///
5074              
5075             # about [cdsrbB]* (/B modifier)
5076             #
5077             # P.559 appendix C
5078             # of ISBN 4-89052-384-7 Programming perl
5079             # (Japanese title is: Perl puroguramingu)
5080 0         0  
5081             elsif (/\G \b ( tr | y ) \b /oxgc) {
5082             my $ope = $1;
5083 11 50       37  
5084 11         234 # $1 $2 $3 $4 $5 $6
5085 0         0 if (/\G (\#) ((?:$qq_char)*?) (\#) ((?:$qq_char)*?) (\#) ([cdsrbB]*) /oxgc) { # tr# # #
5086             my @tr = ($tr_variable,$2);
5087             return e_tr(@tr,'',$4,$6);
5088 0         0 }
5089 11         20 else {
5090 11 50       34 my $e = '';
  11 50       1248  
    50          
    50          
    50          
    50          
5091             while (not /\G \z/oxgc) {
5092 0         0 if (/\G ((?>\s+)|\#.*) /oxgc) { $e .= $1; }
5093 0         0 elsif (/\G (\() ((?:$qq_paren)*?) (\)) /oxgc) {
5094 0 0       0 my @tr = ($tr_variable,$2);
  0 0       0  
    0          
    0          
    0          
    0          
5095 0         0 while (not /\G \z/oxgc) {
5096 0         0 if (/\G ((?>\s+)|\#.*) /oxgc) { $e .= $1; }
5097 0         0 elsif (/\G (\() ((?:$qq_paren)*?) (\)) ([cdsrbB]*) /oxgc) { return e_tr(@tr,$e,$2,$4); } # tr ( ) ( )
5098 0         0 elsif (/\G (\{) ((?:$qq_brace)*?) (\}) ([cdsrbB]*) /oxgc) { return e_tr(@tr,$e,$2,$4); } # tr ( ) { }
5099 0         0 elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) ([cdsrbB]*) /oxgc) { return e_tr(@tr,$e,$2,$4); } # tr ( ) [ ]
5100             elsif (/\G (\<) ((?:$qq_angle)*?) (\>) ([cdsrbB]*) /oxgc) { return e_tr(@tr,$e,$2,$4); } # tr ( ) < >
5101 0         0 elsif (/\G (\S) ((?:$qq_char)*?) (\1) ([cdsrbB]*) /oxgc) { return e_tr(@tr,$e,$2,$4); } # tr ( ) * *
5102             }
5103             die __FILE__, ": Transliteration replacement not terminated\n";
5104 0         0 }
5105 0         0 elsif (/\G (\{) ((?:$qq_brace)*?) (\}) /oxgc) {
5106 0 0       0 my @tr = ($tr_variable,$2);
  0 0       0  
    0          
    0          
    0          
    0          
5107 0         0 while (not /\G \z/oxgc) {
5108 0         0 if (/\G ((?>\s+)|\#.*) /oxgc) { $e .= $1; }
5109 0         0 elsif (/\G (\() ((?:$qq_paren)*?) (\)) ([cdsrbB]*) /oxgc) { return e_tr(@tr,$e,$2,$4); } # tr { } ( )
5110 0         0 elsif (/\G (\{) ((?:$qq_brace)*?) (\}) ([cdsrbB]*) /oxgc) { return e_tr(@tr,$e,$2,$4); } # tr { } { }
5111 0         0 elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) ([cdsrbB]*) /oxgc) { return e_tr(@tr,$e,$2,$4); } # tr { } [ ]
5112             elsif (/\G (\<) ((?:$qq_angle)*?) (\>) ([cdsrbB]*) /oxgc) { return e_tr(@tr,$e,$2,$4); } # tr { } < >
5113 0         0 elsif (/\G (\S) ((?:$qq_char)*?) (\1) ([cdsrbB]*) /oxgc) { return e_tr(@tr,$e,$2,$4); } # tr { } * *
5114             }
5115             die __FILE__, ": Transliteration replacement not terminated\n";
5116 0         0 }
5117 0         0 elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) /oxgc) {
5118 0 0       0 my @tr = ($tr_variable,$2);
  0 0       0  
    0          
    0          
    0          
    0          
5119 0         0 while (not /\G \z/oxgc) {
5120 0         0 if (/\G ((?>\s+)|\#.*) /oxgc) { $e .= $1; }
5121 0         0 elsif (/\G (\() ((?:$qq_paren)*?) (\)) ([cdsrbB]*) /oxgc) { return e_tr(@tr,$e,$2,$4); } # tr [ ] ( )
5122 0         0 elsif (/\G (\{) ((?:$qq_brace)*?) (\}) ([cdsrbB]*) /oxgc) { return e_tr(@tr,$e,$2,$4); } # tr [ ] { }
5123 0         0 elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) ([cdsrbB]*) /oxgc) { return e_tr(@tr,$e,$2,$4); } # tr [ ] [ ]
5124             elsif (/\G (\<) ((?:$qq_angle)*?) (\>) ([cdsrbB]*) /oxgc) { return e_tr(@tr,$e,$2,$4); } # tr [ ] < >
5125 0         0 elsif (/\G (\S) ((?:$qq_char)*?) (\1) ([cdsrbB]*) /oxgc) { return e_tr(@tr,$e,$2,$4); } # tr [ ] * *
5126             }
5127             die __FILE__, ": Transliteration replacement not terminated\n";
5128 0         0 }
5129 0         0 elsif (/\G (\<) ((?:$qq_angle)*?) (\>) /oxgc) {
5130 0 0       0 my @tr = ($tr_variable,$2);
  0 0       0  
    0          
    0          
    0          
    0          
5131 0         0 while (not /\G \z/oxgc) {
5132 0         0 if (/\G ((?>\s+)|\#.*) /oxgc) { $e .= $1; }
5133 0         0 elsif (/\G (\() ((?:$qq_paren)*?) (\)) ([cdsrbB]*) /oxgc) { return e_tr(@tr,$e,$2,$4); } # tr < > ( )
5134 0         0 elsif (/\G (\{) ((?:$qq_brace)*?) (\}) ([cdsrbB]*) /oxgc) { return e_tr(@tr,$e,$2,$4); } # tr < > { }
5135 0         0 elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) ([cdsrbB]*) /oxgc) { return e_tr(@tr,$e,$2,$4); } # tr < > [ ]
5136             elsif (/\G (\<) ((?:$qq_angle)*?) (\>) ([cdsrbB]*) /oxgc) { return e_tr(@tr,$e,$2,$4); } # tr < > < >
5137 0         0 elsif (/\G (\S) ((?:$qq_char)*?) (\1) ([cdsrbB]*) /oxgc) { return e_tr(@tr,$e,$2,$4); } # tr < > * *
5138             }
5139             die __FILE__, ": Transliteration replacement not terminated\n";
5140             }
5141 0         0 # $1 $2 $3 $4 $5 $6
5142 11         46 elsif (/\G (\S) ((?:$qq_char)*?) (\1) ((?:$qq_char)*?) (\1) ([cdsrbB]*) /oxgc) { # tr * * *
5143             my @tr = ($tr_variable,$2);
5144             return e_tr(@tr,'',$4,$6);
5145 11         34 }
5146             }
5147             die __FILE__, ": Transliteration pattern not terminated\n";
5148             }
5149             }
5150              
5151 0         0 # qq//
5152             elsif (/\G \b (qq) \b /oxgc) {
5153             my $ope = $1;
5154 3822 100       8131  
5155 3822         6670 # if (/\G (\#) ((?:$qq_char)*?) (\#) /oxgc) { return e_qq($ope,$1,$3,$2); } # qq# #
5156 40         57 if (/\G (\#) /oxgc) { # qq# #
5157 40 100       85 my $qq_string = '';
  1948 50       5453  
    100          
    50          
5158 80         158 while (not /\G \z/oxgc) {
5159 0         0 if (/\G (\\\\) /oxgc) { $qq_string .= $1; }
5160 40         82 elsif (/\G (\\\#) /oxgc) { $qq_string .= $1; }
5161             elsif (/\G (\#) /oxgc) { return e_qq($ope,'#','#',$qq_string); }
5162 1828         3330 elsif (/\G ($qq_char) /oxgc) { $qq_string .= $1; }
5163             }
5164             die __FILE__, ": Can't find string terminator anywhere before EOF\n";
5165             }
5166 0         0  
5167 3782         4755 else {
5168 3782 50       8611 my $e = '';
  3782 50       13674  
    100          
    50          
    100          
    50          
5169             while (not /\G \z/oxgc) {
5170             if (/\G ((?>\s+)|\#.*) /oxgc) { $e .= $1; }
5171              
5172 0         0 # elsif (/\G (\() ((?:$qq_paren)*?) (\)) /oxgc) { return $e . e_qq($ope,$1,$3,$2); } # qq ( )
5173 0         0 elsif (/\G (\() /oxgc) { # qq ( )
5174 0         0 my $qq_string = '';
5175 0 0       0 local $nest = 1;
  0 0       0  
    0          
    0          
    0          
5176 0         0 while (not /\G \z/oxgc) {
5177 0         0 if (/\G (\\\\) /oxgc) { $qq_string .= $1; }
  0         0  
5178             elsif (/\G (\\\)) /oxgc) { $qq_string .= $1; }
5179 0 0       0 elsif (/\G (\() /oxgc) { $qq_string .= $1; $nest++; }
  0         0  
5180 0         0 elsif (/\G (\)) /oxgc) {
5181             if (--$nest == 0) { return $e . e_qq($ope,'(',')',$qq_string); }
5182 0         0 else { $qq_string .= $1; }
5183             }
5184 0         0 elsif (/\G ($qq_char) /oxgc) { $qq_string .= $1; }
5185             }
5186             die __FILE__, ": Can't find string terminator anywhere before EOF\n";
5187             }
5188              
5189 0         0 # elsif (/\G (\{) ((?:$qq_brace)*?) (\}) /oxgc) { return $e . e_qq($ope,$1,$3,$2); } # qq { }
5190 3724         4830 elsif (/\G (\{) /oxgc) { # qq { }
5191 3724         5212 my $qq_string = '';
5192 3724 100       7263 local $nest = 1;
  155912 50       487418  
    100          
    100          
    50          
5193 792         1507 while (not /\G \z/oxgc) {
5194 0         0 if (/\G (\\\\) /oxgc) { $qq_string .= $1; }
  1384         1914  
5195             elsif (/\G (\\\}) /oxgc) { $qq_string .= $1; }
5196 1384 100       2332 elsif (/\G (\{) /oxgc) { $qq_string .= $1; $nest++; }
  5108         7711  
5197 3724         7665 elsif (/\G (\}) /oxgc) {
5198             if (--$nest == 0) { return $e . e_qq($ope,'{','}',$qq_string); }
5199 1384         2627 else { $qq_string .= $1; }
5200             }
5201 148628         281480 elsif (/\G ($qq_char) /oxgc) { $qq_string .= $1; }
5202             }
5203             die __FILE__, ": Can't find string terminator anywhere before EOF\n";
5204             }
5205              
5206 0         0 # elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) /oxgc) { return $e . e_qq($ope,$1,$3,$2); } # qq [ ]
5207 0         0 elsif (/\G (\[) /oxgc) { # qq [ ]
5208 0         0 my $qq_string = '';
5209 0 0       0 local $nest = 1;
  0 0       0  
    0          
    0          
    0          
5210 0         0 while (not /\G \z/oxgc) {
5211 0         0 if (/\G (\\\\) /oxgc) { $qq_string .= $1; }
  0         0  
5212             elsif (/\G (\\\]) /oxgc) { $qq_string .= $1; }
5213 0 0       0 elsif (/\G (\[) /oxgc) { $qq_string .= $1; $nest++; }
  0         0  
5214 0         0 elsif (/\G (\]) /oxgc) {
5215             if (--$nest == 0) { return $e . e_qq($ope,'[',']',$qq_string); }
5216 0         0 else { $qq_string .= $1; }
5217             }
5218 0         0 elsif (/\G ($qq_char) /oxgc) { $qq_string .= $1; }
5219             }
5220             die __FILE__, ": Can't find string terminator anywhere before EOF\n";
5221             }
5222              
5223 0         0 # elsif (/\G (\<) ((?:$qq_angle)*?) (\>) /oxgc) { return $e . e_qq($ope,$1,$3,$2); } # qq < >
5224 38         63 elsif (/\G (\<) /oxgc) { # qq < >
5225 38         63 my $qq_string = '';
5226 38 100       271 local $nest = 1;
  1418 50       5457  
    50          
    100          
    50          
5227 22         56 while (not /\G \z/oxgc) {
5228 0         0 if (/\G (\\\\) /oxgc) { $qq_string .= $1; }
  0         0  
5229             elsif (/\G (\\\>) /oxgc) { $qq_string .= $1; }
5230 0 50       0 elsif (/\G (\<) /oxgc) { $qq_string .= $1; $nest++; }
  38         137  
5231 38         91 elsif (/\G (\>) /oxgc) {
5232             if (--$nest == 0) { return $e . e_qq($ope,'<','>',$qq_string); }
5233 0         0 else { $qq_string .= $1; }
5234             }
5235 1358         2644 elsif (/\G ($qq_char) /oxgc) { $qq_string .= $1; }
5236             }
5237             die __FILE__, ": Can't find string terminator anywhere before EOF\n";
5238             }
5239              
5240 0         0 # elsif (/\G (\S) ((?:$qq_char)*?) (\1) /oxgc) { return $e . e_qq($ope,$1,$3,$2); } # qq * *
5241 20         28 elsif (/\G (\S) /oxgc) { # qq * *
5242 20         25 my $delimiter = $1;
5243 20 50       38 my $qq_string = '';
  840 50       2293  
    100          
    50          
5244 0         0 while (not /\G \z/oxgc) {
5245 0         0 if (/\G (\\\\) /oxgc) { $qq_string .= $1; }
5246 20         35 elsif (/\G (\\\Q$delimiter\E) /oxgc) { $qq_string .= $1; }
5247             elsif (/\G (\Q$delimiter\E) /oxgc) { return $e . e_qq($ope,$delimiter,$delimiter,$qq_string); }
5248 820         1472 elsif (/\G ($qq_char) /oxgc) { $qq_string .= $1; }
5249             }
5250             die __FILE__, ": Can't find string terminator anywhere before EOF\n";
5251 0         0 }
5252             }
5253             die __FILE__, ": Can't find string terminator anywhere before EOF\n";
5254             }
5255             }
5256              
5257 0         0 # qr//
5258 36 50       89 elsif (/\G \b (qr) \b /oxgc) {
5259 36         363 my $ope = $1;
5260             if (/\G (\#) ((?:$qq_char)*?) (\#) ([imosxpadlunbB]*) /oxgc) { # qr# # #
5261             return e_qr($ope,$1,$3,$2,$4);
5262 0         0 }
5263 36         60 else {
5264 36 50       94 my $e = '';
  36 50       3188  
    100          
    50          
    50          
    100          
    50          
    50          
5265 0         0 while (not /\G \z/oxgc) {
5266 0         0 if (/\G ((?>\s+)|\#.*) /oxgc) { $e .= $1; }
5267 1         5 elsif (/\G (\() ((?:$qq_paren)*?) (\)) ([imosxpadlunbB]*) /oxgc) { return $e . e_qr ($ope,$1, $3, $2,$4); } # qr ( )
5268 0         0 elsif (/\G (\{) ((?:$qq_brace)*?) (\}) ([imosxpadlunbB]*) /oxgc) { return $e . e_qr ($ope,$1, $3, $2,$4); } # qr { }
5269 0         0 elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) ([imosxpadlunbB]*) /oxgc) { return $e . e_qr ($ope,$1, $3, $2,$4); } # qr [ ]
5270 2         10 elsif (/\G (\<) ((?:$qq_angle)*?) (\>) ([imosxpadlunbB]*) /oxgc) { return $e . e_qr ($ope,$1, $3, $2,$4); } # qr < >
5271 0         0 elsif (/\G (\') ((?:$qq_char)*?) (\') ([imosxpadlunbB]*) /oxgc) { return $e . e_qr_q($ope,$1, $3, $2,$4); } # qr ' '
5272             elsif (/\G ([*\-:?\\^|]) ((?:$qq_char)*?) (\1) ([imosxpadlunbB]*) /oxgc) { return $e . e_qr ($ope,'{','}',$2,$4); } # qr | | --> qr { }
5273 33         179 elsif (/\G (\S) ((?:$qq_char)*?) (\1) ([imosxpadlunbB]*) /oxgc) { return $e . e_qr ($ope,$1, $3, $2,$4); } # qr * *
5274             }
5275             die __FILE__, ": Can't find string terminator anywhere before EOF\n";
5276             }
5277             }
5278              
5279 0         0 # qw//
5280 34 50       79 elsif (/\G \b (qw) \b /oxgc) {
5281 34         107 my $ope = $1;
5282             if (/\G (\#) (.*?) (\#) /oxmsgc) { # qw# #
5283             return e_qw($ope,$1,$3,$2);
5284 0         0 }
5285 34         67 else {
5286 34 50       86 my $e = '';
  34 50       170  
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
5287             while (not /\G \z/oxgc) {
5288 0         0 if (/\G ((?>\s+)|\#.*) /oxgc) { $e .= $1; }
5289 34         92  
5290             elsif (/\G (\() ([^(]*?) (\)) /oxmsgc) { return $e . e_qw($ope,$1,$3,$2); } # qw ( )
5291 0         0 elsif (/\G (\() ((?:$q_paren)*?) (\)) /oxmsgc) { return $e . e_qw($ope,$1,$3,$2); } # qw ( )
5292 0         0  
5293             elsif (/\G (\{) ([^{]*?) (\}) /oxmsgc) { return $e . e_qw($ope,$1,$3,$2); } # qw { }
5294 0         0 elsif (/\G (\{) ((?:$q_brace)*?) (\}) /oxmsgc) { return $e . e_qw($ope,$1,$3,$2); } # qw { }
5295 0         0  
5296             elsif (/\G (\[) ([^[]*?) (\]) /oxmsgc) { return $e . e_qw($ope,$1,$3,$2); } # qw [ ]
5297 0         0 elsif (/\G (\[) ((?:$q_bracket)*?) (\]) /oxmsgc) { return $e . e_qw($ope,$1,$3,$2); } # qw [ ]
5298 0         0  
5299             elsif (/\G (\<) ([^<]*?) (\>) /oxmsgc) { return $e . e_qw($ope,$1,$3,$2); } # qw < >
5300 0         0 elsif (/\G (\<) ((?:$q_angle)*?) (\>) /oxmsgc) { return $e . e_qw($ope,$1,$3,$2); } # qw < >
5301 0         0  
5302             elsif (/\G ([\x21-\x3F]) (.*?) (\1) /oxmsgc) { return $e . e_qw($ope,$1,$3,$2); } # qw * *
5303 0         0 elsif (/\G (\S) ((?:$q_char)*?) (\1) /oxmsgc) { return $e . e_qw($ope,$1,$3,$2); } # qw * *
5304             }
5305             die __FILE__, ": Can't find string terminator anywhere before EOF\n";
5306             }
5307             }
5308              
5309 0         0 # qx//
5310 2 50       5 elsif (/\G \b (qx) \b /oxgc) {
5311 2         49 my $ope = $1;
5312             if (/\G (\#) ((?:$qq_char)*?) (\#) /oxgc) { # qx# #
5313             return e_qq($ope,$1,$3,$2);
5314 0         0 }
5315 2         5 else {
5316 2 50       7 my $e = '';
  2 50       140  
    50          
    0          
    0          
    0          
    0          
5317 0         0 while (not /\G \z/oxgc) {
5318 0         0 if (/\G ((?>\s+)|\#.*) /oxgc) { $e .= $1; }
5319 2         7 elsif (/\G (\() ((?:$qq_paren)*?) (\)) /oxgc) { return $e . e_qq($ope,$1,$3,$2); } # qx ( )
5320 0         0 elsif (/\G (\{) ((?:$qq_brace)*?) (\}) /oxgc) { return $e . e_qq($ope,$1,$3,$2); } # qx { }
5321 0         0 elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) /oxgc) { return $e . e_qq($ope,$1,$3,$2); } # qx [ ]
5322 0         0 elsif (/\G (\<) ((?:$qq_angle)*?) (\>) /oxgc) { return $e . e_qq($ope,$1,$3,$2); } # qx < >
5323             elsif (/\G (\') ((?:$qq_char)*?) (\') /oxgc) { return $e . e_q ($ope,$1,$3,$2); } # qx ' '
5324 0         0 elsif (/\G (\S) ((?:$qq_char)*?) (\1) /oxgc) { return $e . e_qq($ope,$1,$3,$2); } # qx * *
5325             }
5326             die __FILE__, ": Can't find string terminator anywhere before EOF\n";
5327             }
5328             }
5329              
5330 0         0 # q//
5331             elsif (/\G \b (q) \b /oxgc) {
5332             my $ope = $1;
5333              
5334             # if (/\G (\#) ((?:\\\#|\\\\|$q_char)*?) (\#) /oxgc) { return e_q($ope,$1,$3,$2); } # q# #
5335              
5336             # avoid "Error: Runtime exception" of perl version 5.005_03
5337 527 50       1440 # (and so on)
5338 527         1495  
5339 0         0 if (/\G (\#) /oxgc) { # q# #
5340 0 0       0 my $q_string = '';
  0 0       0  
    0          
    0          
5341 0         0 while (not /\G \z/oxgc) {
5342 0         0 if (/\G (\\\\) /oxgc) { $q_string .= $1; }
5343 0         0 elsif (/\G (\\\#) /oxgc) { $q_string .= $1; }
5344             elsif (/\G (\#) /oxgc) { return e_q($ope,'#','#',$q_string); }
5345 0         0 elsif (/\G ($q_char) /oxgc) { $q_string .= $1; }
5346             }
5347             die __FILE__, ": Can't find string terminator anywhere before EOF\n";
5348             }
5349 0         0  
5350 527         873 else {
5351 527 50       2365 my $e = '';
  527 50       2967  
    100          
    50          
    100          
    50          
5352             while (not /\G \z/oxgc) {
5353             if (/\G ((?>\s+)|\#.*) /oxgc) { $e .= $1; }
5354              
5355 0         0 # elsif (/\G (\() ((?:\\\)|\\\\|$q_paren)*?) (\)) /oxgc) { return $e . e_q($ope,$1,$3,$2); } # q ( )
5356 0         0 elsif (/\G (\() /oxgc) { # q ( )
5357 0         0 my $q_string = '';
5358 0 0       0 local $nest = 1;
  0 0       0  
    0          
    0          
    0          
    0          
5359 0         0 while (not /\G \z/oxgc) {
5360 0         0 if (/\G (\\\\) /oxgc) { $q_string .= $1; }
5361 0         0 elsif (/\G (\\\)) /oxgc) { $q_string .= $1; }
  0         0  
5362             elsif (/\G (\\\() /oxgc) { $q_string .= $1; }
5363 0 0       0 elsif (/\G (\() /oxgc) { $q_string .= $1; $nest++; }
  0         0  
5364 0         0 elsif (/\G (\)) /oxgc) {
5365             if (--$nest == 0) { return $e . e_q($ope,'(',')',$q_string); }
5366 0         0 else { $q_string .= $1; }
5367             }
5368 0         0 elsif (/\G ($q_char) /oxgc) { $q_string .= $1; }
5369             }
5370             die __FILE__, ": Can't find string terminator anywhere before EOF\n";
5371             }
5372              
5373 0         0 # elsif (/\G (\{) ((?:\\\}|\\\\|$q_brace)*?) (\}) /oxgc) { return $e . e_q($ope,$1,$3,$2); } # q { }
5374 521         1057 elsif (/\G (\{) /oxgc) { # q { }
5375 521         874 my $q_string = '';
5376 521 50       2820 local $nest = 1;
  8167 50       35281  
    50          
    100          
    100          
    50          
5377 0         0 while (not /\G \z/oxgc) {
5378 0         0 if (/\G (\\\\) /oxgc) { $q_string .= $1; }
5379 0         0 elsif (/\G (\\\}) /oxgc) { $q_string .= $1; }
  114         184  
5380             elsif (/\G (\\\{) /oxgc) { $q_string .= $1; }
5381 114 100       214 elsif (/\G (\{) /oxgc) { $q_string .= $1; $nest++; }
  635         1329  
5382 521         1486 elsif (/\G (\}) /oxgc) {
5383             if (--$nest == 0) { return $e . e_q($ope,'{','}',$q_string); }
5384 114         234 else { $q_string .= $1; }
5385             }
5386 7418         14129 elsif (/\G ($q_char) /oxgc) { $q_string .= $1; }
5387             }
5388             die __FILE__, ": Can't find string terminator anywhere before EOF\n";
5389             }
5390              
5391 0         0 # elsif (/\G (\[) ((?:\\\]|\\\\|$q_bracket)*?) (\]) /oxgc) { return $e . e_q($ope,$1,$3,$2); } # q [ ]
5392 0         0 elsif (/\G (\[) /oxgc) { # q [ ]
5393 0         0 my $q_string = '';
5394 0 0       0 local $nest = 1;
  0 0       0  
    0          
    0          
    0          
    0          
5395 0         0 while (not /\G \z/oxgc) {
5396 0         0 if (/\G (\\\\) /oxgc) { $q_string .= $1; }
5397 0         0 elsif (/\G (\\\]) /oxgc) { $q_string .= $1; }
  0         0  
5398             elsif (/\G (\\\[) /oxgc) { $q_string .= $1; }
5399 0 0       0 elsif (/\G (\[) /oxgc) { $q_string .= $1; $nest++; }
  0         0  
5400 0         0 elsif (/\G (\]) /oxgc) {
5401             if (--$nest == 0) { return $e . e_q($ope,'[',']',$q_string); }
5402 0         0 else { $q_string .= $1; }
5403             }
5404 0         0 elsif (/\G ($q_char) /oxgc) { $q_string .= $1; }
5405             }
5406             die __FILE__, ": Can't find string terminator anywhere before EOF\n";
5407             }
5408              
5409 0         0 # elsif (/\G (\<) ((?:\\\>|\\\\|$q_angle)*?) (\>) /oxgc) { return $e . e_q($ope,$1,$3,$2); } # q < >
5410 5         12 elsif (/\G (\<) /oxgc) { # q < >
5411 5         13 my $q_string = '';
5412 5 50       16 local $nest = 1;
  82 50       492  
    50          
    50          
    100          
    50          
5413 0         0 while (not /\G \z/oxgc) {
5414 0         0 if (/\G (\\\\) /oxgc) { $q_string .= $1; }
5415 0         0 elsif (/\G (\\\>) /oxgc) { $q_string .= $1; }
  0         0  
5416             elsif (/\G (\\\<) /oxgc) { $q_string .= $1; }
5417 0 50       0 elsif (/\G (\<) /oxgc) { $q_string .= $1; $nest++; }
  5         14  
5418 5         27 elsif (/\G (\>) /oxgc) {
5419             if (--$nest == 0) { return $e . e_q($ope,'<','>',$q_string); }
5420 0         0 else { $q_string .= $1; }
5421             }
5422 77         155 elsif (/\G ($q_char) /oxgc) { $q_string .= $1; }
5423             }
5424             die __FILE__, ": Can't find string terminator anywhere before EOF\n";
5425             }
5426              
5427 0         0 # elsif (/\G (\S) ((?:\\\1|\\\\|$q_char)*?) (\1) /oxgc) { return $e . e_q($ope,$1,$3,$2); } # q * *
5428 1         2 elsif (/\G (\S) /oxgc) { # q * *
5429 1         2 my $delimiter = $1;
5430 1 50       4 my $q_string = '';
  14 50       85  
    100          
    50          
5431 0         0 while (not /\G \z/oxgc) {
5432 0         0 if (/\G (\\\\) /oxgc) { $q_string .= $1; }
5433 1         2 elsif (/\G (\\\Q$delimiter\E) /oxgc) { $q_string .= $1; }
5434             elsif (/\G (\Q$delimiter\E) /oxgc) { return $e . e_q($ope,$delimiter,$delimiter,$q_string); }
5435 13         28 elsif (/\G ($q_char) /oxgc) { $q_string .= $1; }
5436             }
5437             die __FILE__, ": Can't find string terminator anywhere before EOF\n";
5438 0         0 }
5439             }
5440             die __FILE__, ": Can't find string terminator anywhere before EOF\n";
5441             }
5442             }
5443              
5444 0         0 # m//
5445 269 50       608 elsif (/\G \b (m) \b /oxgc) {
5446 269         2365 my $ope = $1;
5447             if (/\G (\#) ((?:$qq_char)*?) (\#) ([cgimosxpadlunbB]*) /oxgc) { # m# #
5448             return e_qr($ope,$1,$3,$2,$4);
5449 0         0 }
5450 269         424 else {
5451 269 50       728 my $e = '';
  269 50       20036  
    50          
    50          
    50          
    100          
    100          
    50          
    50          
5452 0         0 while (not /\G \z/oxgc) {
5453 0         0 if (/\G ((?>\s+)|\#.*) /oxgc) { $e .= $1; }
5454 0         0 elsif (/\G (\() ((?:$qq_paren)*?) (\)) ([cgimosxpadlunbB]*) /oxgc) { return $e . e_qr ($ope,$1, $3, $2,$4); } # m ( )
5455 0         0 elsif (/\G (\{) ((?:$qq_brace)*?) (\}) ([cgimosxpadlunbB]*) /oxgc) { return $e . e_qr ($ope,$1, $3, $2,$4); } # m { }
5456 0         0 elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) ([cgimosxpadlunbB]*) /oxgc) { return $e . e_qr ($ope,$1, $3, $2,$4); } # m [ ]
5457 18         56 elsif (/\G (\<) ((?:$qq_angle)*?) (\>) ([cgimosxpadlunbB]*) /oxgc) { return $e . e_qr ($ope,$1, $3, $2,$4); } # m < >
5458 13         46 elsif (/\G (\?) ((?:$qq_char)*?) (\?) ([cgimosxpadlunbB]*) /oxgc) { return $e . e_qr ($ope,$1, $3, $2,$4); } # m ? ?
5459 0         0 elsif (/\G (\') ((?:$qq_char)*?) (\') ([cgimosxpadlunbB]*) /oxgc) { return $e . e_qr_q($ope,$1, $3, $2,$4); } # m ' '
5460             elsif (/\G ([*\-:\\^|]) ((?:$qq_char)*?) (\1) ([cgimosxpadlunbB]*) /oxgc) { return $e . e_qr ($ope,'{','}',$2,$4); } # m | | --> m { }
5461 238         822 elsif (/\G (\S) ((?:$qq_char)*?) (\1) ([cgimosxpadlunbB]*) /oxgc) { return $e . e_qr ($ope,$1, $3, $2,$4); } # m * *
5462             }
5463             die __FILE__, ": Search pattern not terminated\n";
5464             }
5465             }
5466              
5467             # s///
5468              
5469             # about [cegimosxpradlunbB]* (/cg modifier)
5470             #
5471             # P.67 Pattern-Matching Operators
5472             # of ISBN 0-596-00241-6 Perl in a Nutshell, Second Edition.
5473 0         0  
5474             elsif (/\G \b (s) \b /oxgc) {
5475             my $ope = $1;
5476 132 100       347  
5477 132         4185 # $1 $2 $3 $4 $5 $6
5478             if (/\G (\#) ((?:$qq_char)*?) (\#) ((?:$qq_char)*?) (\#) ([cegimosxpradlunbB]*) /oxgc) { # s# # #
5479             return e_sub($sub_variable,$1,$2,$3,$3,$4,$5,$6);
5480 1         5 }
5481 131         274 else {
5482 131 50       581 my $e = '';
  131 50       31593  
    50          
    50          
    50          
    100          
    100          
    50          
    50          
5483             while (not /\G \z/oxgc) {
5484 0         0 if (/\G ((?>\s+)|\#.*) /oxgc) { $e .= $1; }
5485 0         0 elsif (/\G (\() ((?:$qq_paren)*?) (\)) /oxgc) {
5486 0 0       0 my @s = ($1,$2,$3);
  0 0       0  
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
5487             while (not /\G \z/oxgc) {
5488 0         0 if (/\G ((?>\s+)|\#.*) /oxgc) { $e .= $1; }
5489 0         0 # $1 $2 $3 $4
5490 0         0 elsif (/\G (\() ((?:$qq_paren)*?) (\)) ([cegimosxpradlunbB]*) /oxgc) { return e_sub($sub_variable,@s,$1,$2,$3,$4); }
5491 0         0 elsif (/\G (\{) ((?:$qq_brace)*?) (\}) ([cegimosxpradlunbB]*) /oxgc) { return e_sub($sub_variable,@s,$1,$2,$3,$4); }
5492 0         0 elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) ([cegimosxpradlunbB]*) /oxgc) { return e_sub($sub_variable,@s,$1,$2,$3,$4); }
5493 0         0 elsif (/\G (\<) ((?:$qq_angle)*?) (\>) ([cegimosxpradlunbB]*) /oxgc) { return e_sub($sub_variable,@s,$1,$2,$3,$4); }
5494 0         0 elsif (/\G (\') ((?:$qq_char)*?) (\') ([cegimosxpradlunbB]*) /oxgc) { return e_sub($sub_variable,@s,$1,$2,$3,$4); }
5495 0         0 elsif (/\G (\$) ((?:$qq_char)*?) (\$) ([cegimosxpradlunbB]*) /oxgc) { return e_sub($sub_variable,@s,$1,$2,$3,$4); }
5496 0         0 elsif (/\G (\:) ((?:$qq_char)*?) (\:) ([cegimosxpradlunbB]*) /oxgc) { return e_sub($sub_variable,@s,$1,$2,$3,$4); }
5497             elsif (/\G (\@) ((?:$qq_char)*?) (\@) ([cegimosxpradlunbB]*) /oxgc) { return e_sub($sub_variable,@s,$1,$2,$3,$4); }
5498 0         0 elsif (/\G (\S) ((?:$qq_char)*?) (\1) ([cegimosxpradlunbB]*) /oxgc) { return e_sub($sub_variable,@s,$1,$2,$3,$4); }
5499             }
5500             die __FILE__, ": Substitution replacement not terminated\n";
5501 0         0 }
5502 0         0 elsif (/\G (\{) ((?:$qq_brace)*?) (\}) /oxgc) {
5503 0 0       0 my @s = ($1,$2,$3);
  0 0       0  
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
5504             while (not /\G \z/oxgc) {
5505 0         0 if (/\G ((?>\s+)|\#.*) /oxgc) { $e .= $1; }
5506 0         0 # $1 $2 $3 $4
5507 0         0 elsif (/\G (\() ((?:$qq_paren)*?) (\)) ([cegimosxpradlunbB]*) /oxgc) { return e_sub($sub_variable,@s,$1,$2,$3,$4); }
5508 0         0 elsif (/\G (\{) ((?:$qq_brace)*?) (\}) ([cegimosxpradlunbB]*) /oxgc) { return e_sub($sub_variable,@s,$1,$2,$3,$4); }
5509 0         0 elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) ([cegimosxpradlunbB]*) /oxgc) { return e_sub($sub_variable,@s,$1,$2,$3,$4); }
5510 0         0 elsif (/\G (\<) ((?:$qq_angle)*?) (\>) ([cegimosxpradlunbB]*) /oxgc) { return e_sub($sub_variable,@s,$1,$2,$3,$4); }
5511 0         0 elsif (/\G (\') ((?:$qq_char)*?) (\') ([cegimosxpradlunbB]*) /oxgc) { return e_sub($sub_variable,@s,$1,$2,$3,$4); }
5512 0         0 elsif (/\G (\$) ((?:$qq_char)*?) (\$) ([cegimosxpradlunbB]*) /oxgc) { return e_sub($sub_variable,@s,$1,$2,$3,$4); }
5513 0         0 elsif (/\G (\:) ((?:$qq_char)*?) (\:) ([cegimosxpradlunbB]*) /oxgc) { return e_sub($sub_variable,@s,$1,$2,$3,$4); }
5514             elsif (/\G (\@) ((?:$qq_char)*?) (\@) ([cegimosxpradlunbB]*) /oxgc) { return e_sub($sub_variable,@s,$1,$2,$3,$4); }
5515 0         0 elsif (/\G (\S) ((?:$qq_char)*?) (\1) ([cegimosxpradlunbB]*) /oxgc) { return e_sub($sub_variable,@s,$1,$2,$3,$4); }
5516             }
5517             die __FILE__, ": Substitution replacement not terminated\n";
5518 0         0 }
5519 0         0 elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) /oxgc) {
5520 0 0       0 my @s = ($1,$2,$3);
  0 0       0  
    0          
    0          
    0          
    0          
    0          
    0          
5521             while (not /\G \z/oxgc) {
5522 0         0 if (/\G ((?>\s+)|\#.*) /oxgc) { $e .= $1; }
5523 0         0 # $1 $2 $3 $4
5524 0         0 elsif (/\G (\() ((?:$qq_paren)*?) (\)) ([cegimosxpradlunbB]*) /oxgc) { return e_sub($sub_variable,@s,$1,$2,$3,$4); }
5525 0         0 elsif (/\G (\{) ((?:$qq_brace)*?) (\}) ([cegimosxpradlunbB]*) /oxgc) { return e_sub($sub_variable,@s,$1,$2,$3,$4); }
5526 0         0 elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) ([cegimosxpradlunbB]*) /oxgc) { return e_sub($sub_variable,@s,$1,$2,$3,$4); }
5527 0         0 elsif (/\G (\<) ((?:$qq_angle)*?) (\>) ([cegimosxpradlunbB]*) /oxgc) { return e_sub($sub_variable,@s,$1,$2,$3,$4); }
5528 0         0 elsif (/\G (\') ((?:$qq_char)*?) (\') ([cegimosxpradlunbB]*) /oxgc) { return e_sub($sub_variable,@s,$1,$2,$3,$4); }
5529             elsif (/\G (\$) ((?:$qq_char)*?) (\$) ([cegimosxpradlunbB]*) /oxgc) { return e_sub($sub_variable,@s,$1,$2,$3,$4); }
5530 0         0 elsif (/\G (\S) ((?:$qq_char)*?) (\1) ([cegimosxpradlunbB]*) /oxgc) { return e_sub($sub_variable,@s,$1,$2,$3,$4); }
5531             }
5532             die __FILE__, ": Substitution replacement not terminated\n";
5533 0         0 }
5534 0         0 elsif (/\G (\<) ((?:$qq_angle)*?) (\>) /oxgc) {
5535 0 0       0 my @s = ($1,$2,$3);
  0 0       0  
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
5536             while (not /\G \z/oxgc) {
5537 0         0 if (/\G ((?>\s+)|\#.*) /oxgc) { $e .= $1; }
5538 0         0 # $1 $2 $3 $4
5539 0         0 elsif (/\G (\() ((?:$qq_paren)*?) (\)) ([cegimosxpradlunbB]*) /oxgc) { return e_sub($sub_variable,@s,$1,$2,$3,$4); }
5540 0         0 elsif (/\G (\{) ((?:$qq_brace)*?) (\}) ([cegimosxpradlunbB]*) /oxgc) { return e_sub($sub_variable,@s,$1,$2,$3,$4); }
5541 0         0 elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) ([cegimosxpradlunbB]*) /oxgc) { return e_sub($sub_variable,@s,$1,$2,$3,$4); }
5542 0         0 elsif (/\G (\<) ((?:$qq_angle)*?) (\>) ([cegimosxpradlunbB]*) /oxgc) { return e_sub($sub_variable,@s,$1,$2,$3,$4); }
5543 0         0 elsif (/\G (\') ((?:$qq_char)*?) (\') ([cegimosxpradlunbB]*) /oxgc) { return e_sub($sub_variable,@s,$1,$2,$3,$4); }
5544 0         0 elsif (/\G (\$) ((?:$qq_char)*?) (\$) ([cegimosxpradlunbB]*) /oxgc) { return e_sub($sub_variable,@s,$1,$2,$3,$4); }
5545 0         0 elsif (/\G (\:) ((?:$qq_char)*?) (\:) ([cegimosxpradlunbB]*) /oxgc) { return e_sub($sub_variable,@s,$1,$2,$3,$4); }
5546             elsif (/\G (\@) ((?:$qq_char)*?) (\@) ([cegimosxpradlunbB]*) /oxgc) { return e_sub($sub_variable,@s,$1,$2,$3,$4); }
5547 0         0 elsif (/\G (\S) ((?:$qq_char)*?) (\1) ([cegimosxpradlunbB]*) /oxgc) { return e_sub($sub_variable,@s,$1,$2,$3,$4); }
5548             }
5549             die __FILE__, ": Substitution replacement not terminated\n";
5550             }
5551 0         0 # $1 $2 $3 $4 $5 $6
5552             elsif (/\G (\') ((?:$qq_char)*?) (\') ((?:$qq_char)*?) (\') ([cegimosxpradlunbB]*) /oxgc) {
5553             return e_sub($sub_variable,$1,$2,$3,$3,$4,$5,$6);
5554             }
5555 22         61 # $1 $2 $3 $4 $5 $6
5556             elsif (/\G ([*\-:?\\^|]) ((?:$qq_char)*?) (\1) ((?:$qq_char)*?) (\1) ([cegimosxpradlunbB]*) /oxgc) {
5557             return e_sub($sub_variable,'{',$2,'}','{',$4,'}',$6); # s | | | --> s { } { }
5558             }
5559 2         14 # $1 $2 $3 $4 $5 $6
5560             elsif (/\G (\$) ((?:$qq_char)*?) (\1) ((?:$qq_char)*?) (\1) ([cegimosxpradlunbB]*) /oxgc) {
5561             return e_sub($sub_variable,$1,$2,$3,$3,$4,$5,$6);
5562             }
5563 0         0 # $1 $2 $3 $4 $5 $6
5564             elsif (/\G (\S) ((?:$qq_char)*?) (\1) ((?:$qq_char)*?) (\1) ([cegimosxpradlunbB]*) /oxgc) {
5565             return e_sub($sub_variable,$1,$2,$3,$3,$4,$5,$6);
5566 107         539 }
5567             }
5568             die __FILE__, ": Substitution pattern not terminated\n";
5569             }
5570             }
5571 0         0  
5572 0         0 # require ignore module
5573 0         0 elsif (/\G \b require ((?>\s+) (?:$ignore_modules) .*? ;) ([ \t]* [#\n]) /oxmsgc) { return "# require$1$2"; }
5574             elsif (/\G \b require ((?>\s+) (?:$ignore_modules) .*? ;) ([ \t]* [^\x80-\xFF#]) /oxmsgc) { return "# require$1\n$2"; }
5575             elsif (/\G \b require ((?>\s+) (?:$ignore_modules)) \b /oxmsgc) { return "# require$1"; }
5576 0         0  
5577 43         329 # use strict; --> use strict; no strict qw(refs);
5578 0         0 elsif (/\G \b use ((?>\s+) strict .*? ;) ([ \t]* [#\n]) /oxmsgc) { return "use$1 no strict qw(refs);$2"; }
5579             elsif (/\G \b use ((?>\s+) strict .*? ;) ([ \t]* [^\x80-\xFF#]) /oxmsgc) { return "use$1 no strict qw(refs);\n$2"; }
5580             elsif (/\G \b use ((?>\s+) strict) \b /oxmsgc) { return "use$1; no strict qw(refs)"; }
5581              
5582 0 50 33     0 # use 5.12.0; --> use 5.12.0; no strict qw(refs);
      33        
5583 3         42 elsif (/\G \b use (?>\s+) ((?>([1-9][0-9_]*)(?:\.([0-9_]+))*)) (?>\s*) ; /oxmsgc) {
5584             if (($2 >= 6) or (($2 == 5) and ($3 ge '012'))) {
5585             return "use $1; no strict qw(refs);";
5586 0         0 }
5587             else {
5588             return "use $1;";
5589             }
5590 3 0 0     16 }
      0        
5591 0         0 elsif (/\G \b use (?>\s+) ((?>v([0-9][0-9_]*)(?:\.([0-9_]+))*)) (?>\s*) ; /oxmsgc) {
5592             if (($2 >= 6) or (($2 == 5) and ($3 >= 12))) {
5593             return "use $1; no strict qw(refs);";
5594 0         0 }
5595             else {
5596             return "use $1;";
5597             }
5598             }
5599 0         0  
5600 2         13 # ignore use module
5601 0         0 elsif (/\G \b use ((?>\s+) (?:$ignore_modules) .*? ;) ([ \t]* [#\n]) /oxmsgc) { return "# use$1$2"; }
5602             elsif (/\G \b use ((?>\s+) (?:$ignore_modules) .*? ;) ([ \t]* [^\x80-\xFF#]) /oxmsgc) { return "# use$1\n$2"; }
5603             elsif (/\G \b use ((?>\s+) (?:$ignore_modules)) \b /oxmsgc) { return "# use$1"; }
5604 0         0  
5605 0         0 # ignore no module
5606 0         0 elsif (/\G \b no ((?>\s+) (?:$ignore_modules) .*? ;) ([ \t]* [#\n]) /oxmsgc) { return "# no$1$2"; }
5607             elsif (/\G \b no ((?>\s+) (?:$ignore_modules) .*? ;) ([ \t]* [^\x80-\xFF#]) /oxmsgc) { return "# no$1\n$2"; }
5608             elsif (/\G \b no ((?>\s+) (?:$ignore_modules)) \b /oxmsgc) { return "# no$1"; }
5609 0         0  
5610             # use else
5611             elsif (/\G \b use \b /oxmsgc) { return "use"; }
5612 0         0  
5613             # use else
5614             elsif (/\G \b no \b /oxmsgc) { return "no"; }
5615              
5616 2         8 # ''
5617 1589         3021 elsif (/\G (?
5618 1589 100       3737 my $q_string = '';
  10597 100       36096  
    100          
    50          
5619 4         12 while (not /\G \z/oxgc) {
5620 48         82 if (/\G (\\\\) /oxgc) { $q_string .= $1; }
5621 1589         3341 elsif (/\G (\\\') /oxgc) { $q_string .= $1; }
5622             elsif (/\G \' /oxgc) { return e_q('', "'","'",$q_string); }
5623 8956         18110 elsif (/\G ($q_char) /oxgc) { $q_string .= $1; }
5624             }
5625             die __FILE__, ": Can't find string terminator anywhere before EOF\n";
5626             }
5627              
5628 0         0 # ""
5629 5587         10905 elsif (/\G (\") /oxgc) {
5630 5587 100       12525 my $qq_string = '';
  88088 100       251400  
    100          
    50          
5631 109         229 while (not /\G \z/oxgc) {
5632 12         23 if (/\G (\\\\) /oxgc) { $qq_string .= $1; }
5633 5587         11234 elsif (/\G (\\\") /oxgc) { $qq_string .= $1; }
5634             elsif (/\G \" /oxgc) { return e_qq('', '"','"',$qq_string); }
5635 82380         160565 elsif (/\G ($q_char) /oxgc) { $qq_string .= $1; }
5636             }
5637             die __FILE__, ": Can't find string terminator anywhere before EOF\n";
5638             }
5639              
5640 0         0 # ``
5641 1         4 elsif (/\G (\`) /oxgc) {
5642 1 50       4 my $qx_string = '';
  19 50       87  
    100          
    50          
5643 0         0 while (not /\G \z/oxgc) {
5644 0         0 if (/\G (\\\\) /oxgc) { $qx_string .= $1; }
5645 1         3 elsif (/\G (\\\`) /oxgc) { $qx_string .= $1; }
5646             elsif (/\G \` /oxgc) { return e_qq('', '`','`',$qx_string); }
5647 18         36 elsif (/\G ($q_char) /oxgc) { $qx_string .= $1; }
5648             }
5649             die __FILE__, ": Can't find string terminator anywhere before EOF\n";
5650             }
5651              
5652 0         0 # // --- not divide operator (num / num), not defined-or
5653 1069         2200 elsif (($slash eq 'm//') and /\G (\/) /oxgc) {
5654 1069 100       3009 my $regexp = '';
  10235 50       36257  
    100          
    50          
5655 1         3 while (not /\G \z/oxgc) {
5656 0         0 if (/\G (\\\\) /oxgc) { $regexp .= $1; }
5657 1069         2664 elsif (/\G (\\\/) /oxgc) { $regexp .= $1; }
5658             elsif (/\G \/ ([cgimosxpadlunbB]*) /oxgc) { return e_qr('', '/','/',$regexp,$1); }
5659 9165         18167 elsif (/\G ($q_char) /oxgc) { $regexp .= $1; }
5660             }
5661             die __FILE__, ": Search pattern not terminated\n";
5662             }
5663              
5664 0         0 # ?? --- not conditional operator (condition ? then : else)
5665 18         38 elsif (($slash eq 'm//') and /\G (\?) /oxgc) {
5666 18 50       48 my $regexp = '';
  82 50       369  
    100          
    50          
5667 0         0 while (not /\G \z/oxgc) {
5668 0         0 if (/\G (\\\\) /oxgc) { $regexp .= $1; }
5669 18         59 elsif (/\G (\\\?) /oxgc) { $regexp .= $1; }
5670             elsif (/\G \? ([cgimosxpadlunbB]*) /oxgc) { return e_qr('m','?','?',$regexp,$1); }
5671 64         145 elsif (/\G ($q_char) /oxgc) { $regexp .= $1; }
5672             }
5673             die __FILE__, ": Search pattern not terminated\n";
5674             }
5675 0         0  
  0         0  
5676             # <<>> (a safer ARGV)
5677             elsif (/\G ( <<>> ) /oxgc) { $slash = 'm//'; return $1; }
5678 0         0  
  0         0  
5679             # << (bit shift) --- not here document
5680             elsif (/\G ( << (?>\s*) ) (?= [0-9\$\@\&] ) /oxgc) { $slash = 'm//'; return $1; }
5681              
5682 0         0 # <<~'HEREDOC'
5683 6         10 elsif (/\G ( <<~ [\t ]* '([a-zA-Z_0-9]*)' ) /oxgc) {
5684 6         10 $slash = 'm//';
5685             my $here_quote = $1;
5686             my $delimiter = $2;
5687 6 50       11  
5688 6         11 # get here document
5689 6         28 if ($here_script eq '') {
5690             $here_script = CORE::substr $_, pos $_;
5691 6 50       31 $here_script =~ s/.*?\n//oxm;
5692 6         62 }
5693 6         14 if ($here_script =~ s/\A (.*?) \n ([\t ]*) $delimiter \n //xms) {
5694 6         8 my $heredoc = $1;
5695 6         45 my $indent = $2;
5696 6         18 $heredoc =~ s{^$indent}{}msg; # no /ox
5697             push @heredoc, $heredoc . qq{\n$delimiter\n};
5698             push @heredoc_delimiter, qq{\\s*$delimiter};
5699 6         11 }
5700             else {
5701 0         0 die __FILE__, ": Can't find string terminator $delimiter anywhere before EOF\n";
5702             }
5703             return qq{<<'$delimiter'};
5704             }
5705              
5706             # <<~\HEREDOC
5707              
5708             # P.66 2.6.6. "Here" Documents
5709             # in Chapter 2: Bits and Pieces
5710             # of ISBN 0-596-00027-8 Programming Perl Third Edition.
5711              
5712             # P.73 "Here" Documents
5713             # in Chapter 2: Bits and Pieces
5714             # of ISBN 978-0-596-00492-7 Programming Perl 4th Edition.
5715 6         21  
5716 3         6 elsif (/\G ( <<~ \\([a-zA-Z_0-9]+) ) /oxgc) {
5717 3         7 $slash = 'm//';
5718             my $here_quote = $1;
5719             my $delimiter = $2;
5720 3 50       5  
5721 3         7 # get here document
5722 3         24 if ($here_script eq '') {
5723             $here_script = CORE::substr $_, pos $_;
5724 3 50       18 $here_script =~ s/.*?\n//oxm;
5725 3         43 }
5726 3         9 if ($here_script =~ s/\A (.*?) \n ([\t ]*) $delimiter \n //xms) {
5727 3         4 my $heredoc = $1;
5728 3         35 my $indent = $2;
5729 3         12 $heredoc =~ s{^$indent}{}msg; # no /ox
5730             push @heredoc, $heredoc . qq{\n$delimiter\n};
5731             push @heredoc_delimiter, qq{\\s*$delimiter};
5732 3         8 }
5733             else {
5734 0         0 die __FILE__, ": Can't find string terminator $delimiter anywhere before EOF\n";
5735             }
5736             return qq{<<\\$delimiter};
5737             }
5738              
5739 3         11 # <<~"HEREDOC"
5740 6         9 elsif (/\G ( <<~ [\t ]* "([a-zA-Z_0-9]*)" ) /oxgc) {
5741 6         13 $slash = 'm//';
5742             my $here_quote = $1;
5743             my $delimiter = $2;
5744 6 50       7  
5745 6         13 # get here document
5746 6         26 if ($here_script eq '') {
5747             $here_script = CORE::substr $_, pos $_;
5748 6 50       27 $here_script =~ s/.*?\n//oxm;
5749 6         60 }
5750 6         12 if ($here_script =~ s/\A (.*?) \n ([\t ]*) $delimiter \n //xms) {
5751 6         8 my $heredoc = $1;
5752 6         45 my $indent = $2;
5753 6         17 $heredoc =~ s{^$indent}{}msg; # no /ox
5754             push @heredoc, e_heredoc($heredoc) . qq{\n$delimiter\n};
5755             push @heredoc_delimiter, qq{\\s*$delimiter};
5756 6         11 }
5757             else {
5758 0         0 die __FILE__, ": Can't find string terminator $delimiter anywhere before EOF\n";
5759             }
5760             return qq{<<"$delimiter"};
5761             }
5762              
5763 6         23 # <<~HEREDOC
5764 3         5 elsif (/\G ( <<~ ([a-zA-Z_0-9]+) ) /oxgc) {
5765 3         7 $slash = 'm//';
5766             my $here_quote = $1;
5767             my $delimiter = $2;
5768 3 50       4  
5769 3         8 # get here document
5770 3         19 if ($here_script eq '') {
5771             $here_script = CORE::substr $_, pos $_;
5772 3 50       17 $here_script =~ s/.*?\n//oxm;
5773 3         39 }
5774 3         8 if ($here_script =~ s/\A (.*?) \n ([\t ]*) $delimiter \n //xms) {
5775 3         4 my $heredoc = $1;
5776 3         34 my $indent = $2;
5777 3         10 $heredoc =~ s{^$indent}{}msg; # no /ox
5778             push @heredoc, e_heredoc($heredoc) . qq{\n$delimiter\n};
5779             push @heredoc_delimiter, qq{\\s*$delimiter};
5780 3         8 }
5781             else {
5782 0         0 die __FILE__, ": Can't find string terminator $delimiter anywhere before EOF\n";
5783             }
5784             return qq{<<$delimiter};
5785             }
5786              
5787 3         11 # <<~`HEREDOC`
5788 6         11 elsif (/\G ( <<~ [\t ]* `([a-zA-Z_0-9]*)` ) /oxgc) {
5789 6         24 $slash = 'm//';
5790             my $here_quote = $1;
5791             my $delimiter = $2;
5792 6 50       11  
5793 6         12 # get here document
5794 6         17 if ($here_script eq '') {
5795             $here_script = CORE::substr $_, pos $_;
5796 6 50       37 $here_script =~ s/.*?\n//oxm;
5797 6         55 }
5798 6         11 if ($here_script =~ s/\A (.*?) \n ([\t ]*) $delimiter \n //xms) {
5799 6         9 my $heredoc = $1;
5800 6         45 my $indent = $2;
5801 6         16 $heredoc =~ s{^$indent}{}msg; # no /ox
5802             push @heredoc, e_heredoc($heredoc) . qq{\n$delimiter\n};
5803             push @heredoc_delimiter, qq{\\s*$delimiter};
5804 6         14 }
5805             else {
5806 0         0 die __FILE__, ": Can't find string terminator $delimiter anywhere before EOF\n";
5807             }
5808             return qq{<<`$delimiter`};
5809             }
5810              
5811 6         22 # <<'HEREDOC'
5812 80         173 elsif (/\G ( << '([a-zA-Z_0-9]*)' ) /oxgc) {
5813 80         150 $slash = 'm//';
5814             my $here_quote = $1;
5815             my $delimiter = $2;
5816 80 100       125  
5817 80         160 # get here document
5818 77         367 if ($here_script eq '') {
5819             $here_script = CORE::substr $_, pos $_;
5820 77 50       387 $here_script =~ s/.*?\n//oxm;
5821 80         706 }
5822 80         258 if ($here_script =~ s/\A (.*?) \n $delimiter \n //xms) {
5823             push @heredoc, $1 . qq{\n$delimiter\n};
5824             push @heredoc_delimiter, $delimiter;
5825 80         181 }
5826             else {
5827 0         0 die __FILE__, ": Can't find string terminator $delimiter anywhere before EOF\n";
5828             }
5829             return $here_quote;
5830             }
5831              
5832             # <<\HEREDOC
5833              
5834             # P.66 2.6.6. "Here" Documents
5835             # in Chapter 2: Bits and Pieces
5836             # of ISBN 0-596-00027-8 Programming Perl Third Edition.
5837              
5838             # P.73 "Here" Documents
5839             # in Chapter 2: Bits and Pieces
5840             # of ISBN 978-0-596-00492-7 Programming Perl 4th Edition.
5841 80         304  
5842 2         6 elsif (/\G ( << \\([a-zA-Z_0-9]+) ) /oxgc) {
5843 2         5 $slash = 'm//';
5844             my $here_quote = $1;
5845             my $delimiter = $2;
5846 2 100       5  
5847 2         5 # get here document
5848 1         6 if ($here_script eq '') {
5849             $here_script = CORE::substr $_, pos $_;
5850 1 50       6 $here_script =~ s/.*?\n//oxm;
5851 2         37 }
5852 2         9 if ($here_script =~ s/\A (.*?) \n $delimiter \n //xms) {
5853             push @heredoc, $1 . qq{\n$delimiter\n};
5854             push @heredoc_delimiter, $delimiter;
5855 2         3 }
5856             else {
5857 0         0 die __FILE__, ": Can't find string terminator $delimiter anywhere before EOF\n";
5858             }
5859             return $here_quote;
5860             }
5861              
5862 2         82 # <<"HEREDOC"
5863 39         96 elsif (/\G ( << "([a-zA-Z_0-9]*)" ) /oxgc) {
5864 39         95 $slash = 'm//';
5865             my $here_quote = $1;
5866             my $delimiter = $2;
5867 39 100       80  
5868 39         101 # get here document
5869 38         181 if ($here_script eq '') {
5870             $here_script = CORE::substr $_, pos $_;
5871 38 50       203 $here_script =~ s/.*?\n//oxm;
5872 39         464 }
5873 39         127 if ($here_script =~ s/\A (.*?) \n $delimiter \n //xms) {
5874             push @heredoc, e_heredoc($1) . qq{\n$delimiter\n};
5875             push @heredoc_delimiter, $delimiter;
5876 39         95 }
5877             else {
5878 0         0 die __FILE__, ": Can't find string terminator $delimiter anywhere before EOF\n";
5879             }
5880             return $here_quote;
5881             }
5882              
5883 39         163 # <
5884 54         129 elsif (/\G ( << ([a-zA-Z_0-9]+) ) /oxgc) {
5885 54         186 $slash = 'm//';
5886             my $here_quote = $1;
5887             my $delimiter = $2;
5888 54 100       106  
5889 54         151 # get here document
5890 51         270 if ($here_script eq '') {
5891             $here_script = CORE::substr $_, pos $_;
5892 51 50       399 $here_script =~ s/.*?\n//oxm;
5893 54         744 }
5894 54         188 if ($here_script =~ s/\A (.*?) \n $delimiter \n //xms) {
5895             push @heredoc, e_heredoc($1) . qq{\n$delimiter\n};
5896             push @heredoc_delimiter, $delimiter;
5897 54         116 }
5898             else {
5899 0         0 die __FILE__, ": Can't find string terminator $delimiter anywhere before EOF\n";
5900             }
5901             return $here_quote;
5902             }
5903              
5904 54         244 # <<`HEREDOC`
5905 0         0 elsif (/\G ( << `([a-zA-Z_0-9]*)` ) /oxgc) {
5906 0         0 $slash = 'm//';
5907             my $here_quote = $1;
5908             my $delimiter = $2;
5909 0 0       0  
5910 0         0 # get here document
5911 0         0 if ($here_script eq '') {
5912             $here_script = CORE::substr $_, pos $_;
5913 0 0       0 $here_script =~ s/.*?\n//oxm;
5914 0         0 }
5915 0         0 if ($here_script =~ s/\A (.*?) \n $delimiter \n //xms) {
5916             push @heredoc, e_heredoc($1) . qq{\n$delimiter\n};
5917             push @heredoc_delimiter, $delimiter;
5918 0         0 }
5919             else {
5920 0         0 die __FILE__, ": Can't find string terminator $delimiter anywhere before EOF\n";
5921             }
5922             return $here_quote;
5923             }
5924              
5925 0         0 # <<= <=> <= < operator
5926             elsif (/\G ( <<= | <=> | <= | < ) (?= (?>\s*) [A-Za-z_0-9'"`\$\@\&\*\(\+\-] )/oxgc) {
5927             return $1;
5928             }
5929              
5930 12         61 #
5931             elsif (/\G (<[\$]?[A-Za-z_][A-Za-z_0-9]*>) /oxgc) {
5932             return $1;
5933             }
5934              
5935             # --- glob
5936              
5937             # avoid "Error: Runtime exception" of perl version 5.005_03
5938 0         0  
5939             elsif (/\G < ((?:[^\x80-\xFF>\0\a\e\f\n\r\t]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF])+?) > /oxgc) {
5940             return 'Eoldutf8::glob("' . $1 . '")';
5941             }
5942 0         0  
5943             # __DATA__
5944             elsif (/\G ^ ( __DATA__ \n .*) \z /oxmsgc) { return $1; }
5945 0         0  
5946             # __END__
5947             elsif (/\G ^ ( __END__ \n .*) \z /oxmsgc) { return $1; }
5948              
5949             # \cD Control-D
5950              
5951             # P.68 2.6.8. Other Literal Tokens
5952             # in Chapter 2: Bits and Pieces
5953             # of ISBN 0-596-00027-8 Programming Perl Third Edition.
5954              
5955             # P.76 Other Literal Tokens
5956             # in Chapter 2: Bits and Pieces
5957 306         2109 # of ISBN 978-0-596-00492-7 Programming Perl 4th Edition.
5958              
5959             elsif (/\G ( \cD .*) \z /oxmsgc) { return $1; }
5960 0         0  
5961             # \cZ Control-Z
5962             elsif (/\G ( \cZ .*) \z /oxmsgc) { return $1; }
5963              
5964             # any operator before div
5965             elsif (/\G (
5966             -- | \+\+ |
5967 0         0 [\)\}\]]
  8556         16792  
5968              
5969             ) /oxgc) { $slash = 'div'; return $1; }
5970              
5971             # yada-yada or triple-dot operator
5972             elsif (/\G (
5973 8556         36210 \.\.\.
  7         11  
5974              
5975             ) /oxgc) { $slash = 'm//'; return q{die('Unimplemented')}; }
5976              
5977             # any operator before m//
5978              
5979             # //, //= (defined-or)
5980              
5981             # P.164 Logical Operators
5982             # in Chapter 10: More Control Structures
5983             # of ISBN 978-0-596-52010-6 Learning Perl, Fifth Edition
5984              
5985             # P.119 C-Style Logical (Short-Circuit) Operators
5986             # in Chapter 3: Unary and Binary Operators
5987             # of ISBN 978-0-596-00492-7 Programming Perl 4th Edition.
5988              
5989             # (and so on)
5990              
5991             # ~~
5992              
5993             # P.221 The Smart Match Operator
5994             # in Chapter 15: Smart Matching and given-when
5995             # of ISBN 978-0-596-52010-6 Learning Perl, Fifth Edition
5996              
5997             # P.112 Smartmatch Operator
5998             # in Chapter 3: Unary and Binary Operators
5999             # of ISBN 978-0-596-00492-7 Programming Perl 4th Edition.
6000              
6001             # (and so on)
6002              
6003             elsif (/\G ((?>
6004              
6005             !~~ | !~ | != | ! |
6006             %= | % |
6007             &&= | && | &= | &\.= | &\. | & |
6008             -= | -> | - |
6009             :(?>\s*)= |
6010             : |
6011             <<>> |
6012             <<= | <=> | <= | < |
6013             == | => | =~ | = |
6014             >>= | >> | >= | > |
6015             \*\*= | \*\* | \*= | \* |
6016             \+= | \+ |
6017             \.\. | \.= | \. |
6018             \/\/= | \/\/ |
6019             \/= | \/ |
6020             \? |
6021             \\ |
6022             \^= | \^\.= | \^\. | \^ |
6023             \b x= |
6024             \|\|= | \|\| | \|= | \|\.= | \|\. | \| |
6025             ~~ | ~\. | ~ |
6026             \b(?: and | cmp | eq | ge | gt | le | lt | ne | not | or | xor | x )\b |
6027             \b(?: print )\b |
6028              
6029 7         25 [,;\(\{\[]
  16324         29560  
6030              
6031             )) /oxgc) { $slash = 'm//'; return $1; }
6032 16324         68108  
  23922         43008  
6033             # other any character
6034             elsif (/\G ($q_char) /oxgc) { $slash = 'div'; return $1; }
6035              
6036 23922         115103 # system error
6037             else {
6038             die __FILE__, ": Oops, this shouldn't happen!\n";
6039             }
6040             }
6041              
6042 0     2512 0 0 # escape old UTF-8 string
6043 2512         5619 sub e_string {
6044             my($string) = @_;
6045 2512         3477 my $e_string = '';
6046              
6047             local $slash = 'm//';
6048              
6049             # P.1024 Appendix W.10 Multibyte Processing
6050             # of ISBN 1-56592-224-7 CJKV Information Processing
6051 2512         3603 # (and so on)
6052              
6053             my @char = $string =~ / \G (?>[^\x80-\xFF\\]|\\$q_char|$q_char) /oxmsg;
6054 2512 100 66     41814  
6055 2512 50       11162 # without { ... }
6056 2473         5450 if (not (grep(/\A \{ \z/xms, @char) and grep(/\A \} \z/xms, @char))) {
6057             if ($string !~ /<
6058             return $string;
6059             }
6060             }
6061 2473         6205  
6062 39 50       116 E_STRING_LOOP:
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    100          
    100          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    100          
    100          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    100          
    50          
    100          
    50          
6063             while ($string !~ /\G \z/oxgc) {
6064             if (0) {
6065             }
6066 293         21586  
6067 0         0 # $`, ${`}, $PREMATCH, ${PREMATCH}, ${^PREMATCH} --> @{[Eoldutf8::PREMATCH()]}
6068 0         0 elsif ($string =~ /\G ( \$` | \$\{`\} | \$ (?>\s*) PREMATCH \b | \$ (?>\s*) \{ (?>\s*) PREMATCH (?>\s*) \} | \$ (?>\s*) \{\^PREMATCH\} ) /oxmsgc) {
6069             $e_string .= q{Eoldutf8::PREMATCH()};
6070             $slash = 'div';
6071             }
6072              
6073 0         0 # $&, ${&}, $MATCH, ${MATCH}, ${^MATCH} --> @{[Eoldutf8::MATCH()]}
6074 0         0 elsif ($string =~ /\G ( \$& | \$\{&\} | \$ (?>\s*) MATCH \b | \$ (?>\s*) \{ (?>\s*) MATCH (?>\s*) \} | \$ (?>\s*) \{\^MATCH\} ) /oxmsgc) {
6075             $e_string .= q{Eoldutf8::MATCH()};
6076             $slash = 'div';
6077             }
6078              
6079 0         0 # $', ${'} --> $', ${'}
6080 0         0 elsif ($string =~ /\G ( \$' | \$\{'\} ) /oxmsgc) {
6081             $e_string .= $1;
6082             $slash = 'div';
6083             }
6084              
6085 0         0 # $POSTMATCH, ${POSTMATCH}, ${^POSTMATCH} --> @{[Eoldutf8::POSTMATCH()]}
6086 0         0 elsif ($string =~ /\G ( \$ (?>\s*) POSTMATCH \b | \$ (?>\s*) \{ (?>\s*) POSTMATCH (?>\s*) \} | \$ (?>\s*) \{\^POSTMATCH\} ) /oxmsgc) {
6087             $e_string .= q{Eoldutf8::POSTMATCH()};
6088             $slash = 'div';
6089             }
6090              
6091 0         0 # bareword
6092 0         0 elsif ($string =~ /\G ( \{ (?>\s*) (?: tr | index | rindex | reverse ) (?>\s*) \} ) /oxmsgc) {
6093             $e_string .= $1;
6094             $slash = 'div';
6095             }
6096              
6097 0         0 # $0 --> $0
6098 0         0 elsif ($string =~ /\G ( \$ 0 ) /oxmsgc) {
6099             $e_string .= $1;
6100             $slash = 'div';
6101 0         0 }
6102 0         0 elsif ($string =~ /\G ( \$ \{ (?>\s*) 0 (?>\s*) \} ) /oxmsgc) {
6103             $e_string .= $1;
6104             $slash = 'div';
6105             }
6106              
6107 0         0 # $$ --> $$
6108 0         0 elsif ($string =~ /\G ( \$ \$ ) (?![\w\{]) /oxmsgc) {
6109             $e_string .= $1;
6110             $slash = 'div';
6111             }
6112              
6113             # $1, $2, $3 --> $2, $3, $4 after s/// with multibyte anchoring
6114 0         0 # $1, $2, $3 --> $1, $2, $3 otherwise
6115 0         0 elsif ($string =~ /\G \$ ((?>[1-9][0-9]*)) /oxmsgc) {
6116             $e_string .= e_capture($1);
6117             $slash = 'div';
6118 0         0 }
6119 0         0 elsif ($string =~ /\G \$ \{ (?>\s*) ((?>[1-9][0-9]*)) (?>\s*) \} /oxmsgc) {
6120             $e_string .= e_capture($1);
6121             $slash = 'div';
6122             }
6123              
6124 0         0 # $$foo[ ... ] --> $ $foo->[ ... ]
6125 0         0 elsif ($string =~ /\G \$ ((?> \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) ( \[ .+? \] ) /oxmsgc) {
6126             $e_string .= e_capture($1.'->'.$2);
6127             $slash = 'div';
6128             }
6129              
6130 0         0 # $$foo{ ... } --> $ $foo->{ ... }
6131 0         0 elsif ($string =~ /\G \$ ((?> \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) ( \{ .+? \} ) /oxmsgc) {
6132             $e_string .= e_capture($1.'->'.$2);
6133             $slash = 'div';
6134             }
6135              
6136 0         0 # $$foo
6137 0         0 elsif ($string =~ /\G \$ ((?> \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) /oxmsgc) {
6138             $e_string .= e_capture($1);
6139             $slash = 'div';
6140             }
6141              
6142 0         0 # ${ foo }
6143 0         0 elsif ($string =~ /\G \$ (?>\s*) \{ ((?> \s* [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* \s* )) \} /oxmsgc) {
6144             $e_string .= '${' . $1 . '}';
6145             $slash = 'div';
6146             }
6147              
6148 0         0 # ${ ... }
6149 3         16 elsif ($string =~ /\G \$ (?>\s*) \{ (?>\s*) ( $qq_brace ) (?>\s*) \} /oxmsgc) {
6150             $e_string .= e_capture($1);
6151             $slash = 'div';
6152             }
6153              
6154             # variable or function
6155 3         17 # $ @ % & * $ #
6156 1         5 elsif ($string =~ /\G ( (?: [\$\@\%\&\*] | \$\# | -> | \b sub \b) (?>\s*) (?: split | chop | index | rindex | lc | uc | fc | chr | ord | reverse | getc | tr | y | q | qq | qx | qw | m | s | qr | glob | lstat | opendir | stat | unlink | chdir ) ) \b /oxmsgc) {
6157             $e_string .= $1;
6158             $slash = 'div';
6159             }
6160             # $ $ $ $ $ $ $ $ $ $ $ $ $ $
6161 1         6 # $ @ # \ ' " / ? ( ) [ ] < >
6162 0         0 elsif ($string =~ /\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
6163             $e_string .= $1;
6164             $slash = 'div';
6165             }
6166 0         0  
  0         0  
6167 0         0 # subroutines of package Eoldutf8
  0         0  
6168 0         0 elsif ($string =~ /\G \b (CORE:: | ->(>?\s*) (?: atan2 | [a-z]{2,})) \b /oxgc) { $e_string .= $1; $slash = 'm//'; }
  0         0  
6169 0         0 elsif ($string =~ /\G \b Char::eval (?= (?>\s*) \{ ) /oxgc) { $e_string .= 'eval'; $slash = 'm//'; }
  0         0  
6170 0         0 elsif ($string =~ /\G \b OldUTF8::eval (?= (?>\s*) \{ ) /oxgc) { $e_string .= 'eval'; $slash = 'm//'; }
  0         0  
6171 0         0 elsif ($string =~ /\G \b Char::eval \b /oxgc) { $e_string .= 'eval Char::escape'; $slash = 'm//'; }
  0         0  
6172 0         0 elsif ($string =~ /\G \b OldUTF8::eval \b /oxgc) { $e_string .= 'eval OldUTF8::escape'; $slash = 'm//'; }
  0         0  
6173 0         0 elsif ($string =~ /\G \b bytes::substr \b /oxgc) { $e_string .= 'substr'; $slash = 'm//'; }
  0         0  
6174 0         0 elsif ($string =~ /\G \b chop \b /oxgc) { $e_string .= 'Eoldutf8::chop'; $slash = 'm//'; }
  0         0  
6175 0         0 elsif ($string =~ /\G \b bytes::index \b /oxgc) { $e_string .= 'index'; $slash = 'm//'; }
  0         0  
6176 0         0 elsif ($string =~ /\G \b Char::index \b /oxgc) { $e_string .= 'Char::index'; $slash = 'm//'; }
  0         0  
6177 0         0 elsif ($string =~ /\G \b OldUTF8::index \b /oxgc) { $e_string .= 'OldUTF8::index'; $slash = 'm//'; }
  0         0  
6178 0         0 elsif ($string =~ /\G \b index \b /oxgc) { $e_string .= 'Eoldutf8::index'; $slash = 'm//'; }
  0         0  
6179 0         0 elsif ($string =~ /\G \b bytes::rindex \b /oxgc) { $e_string .= 'rindex'; $slash = 'm//'; }
  0         0  
6180 0         0 elsif ($string =~ /\G \b Char::rindex \b /oxgc) { $e_string .= 'Char::rindex'; $slash = 'm//'; }
  0         0  
6181 0         0 elsif ($string =~ /\G \b OldUTF8::rindex \b /oxgc) { $e_string .= 'OldUTF8::rindex'; $slash = 'm//'; }
  0         0  
6182 0         0 elsif ($string =~ /\G \b rindex \b /oxgc) { $e_string .= 'Eoldutf8::rindex'; $slash = 'm//'; }
  0         0  
6183 0         0 elsif ($string =~ /\G \b lc (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /oxgc) { $e_string .= 'Eoldutf8::lc'; $slash = 'm//'; }
  0         0  
6184 0         0 elsif ($string =~ /\G \b lcfirst (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /oxgc) { $e_string .= 'Eoldutf8::lcfirst'; $slash = 'm//'; }
  0         0  
6185 0         0 elsif ($string =~ /\G \b uc (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /oxgc) { $e_string .= 'Eoldutf8::uc'; $slash = 'm//'; }
  0         0  
6186             elsif ($string =~ /\G \b ucfirst (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /oxgc) { $e_string .= 'Eoldutf8::ucfirst'; $slash = 'm//'; }
6187             elsif ($string =~ /\G \b fc (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /oxgc) { $e_string .= 'Eoldutf8::fc'; $slash = 'm//'; }
6188 0         0  
  0         0  
6189 0         0 # "-s '' ..." means file test "-s 'filename' ..." (not means "- s/// ...")
  0         0  
6190 0         0 elsif ($string =~ /\G -s (?>\s*) (\") ((?:$qq_char)+?) (\") /oxgc) { $e_string .= '-s ' . e_qq('', $1,$3,$2); $slash = 'm//'; }
  0         0  
6191 0         0 elsif ($string =~ /\G -s (?>\s+) qq (?>\s*) (\#) ((?:$qq_char)+?) (\#) /oxgc) { $e_string .= '-s ' . e_qq('qq',$1,$3,$2); $slash = 'm//'; }
  0         0  
6192 0         0 elsif ($string =~ /\G -s (?>\s+) qq (?>\s*) (\() ((?:$qq_paren)+?) (\)) /oxgc) { $e_string .= '-s ' . e_qq('qq',$1,$3,$2); $slash = 'm//'; }
  0         0  
6193 0         0 elsif ($string =~ /\G -s (?>\s+) qq (?>\s*) (\{) ((?:$qq_brace)+?) (\}) /oxgc) { $e_string .= '-s ' . e_qq('qq',$1,$3,$2); $slash = 'm//'; }
  0         0  
6194 0         0 elsif ($string =~ /\G -s (?>\s+) qq (?>\s*) (\[) ((?:$qq_bracket)+?) (\]) /oxgc) { $e_string .= '-s ' . e_qq('qq',$1,$3,$2); $slash = 'm//'; }
  0         0  
6195             elsif ($string =~ /\G -s (?>\s+) qq (?>\s*) (\<) ((?:$qq_angle)+?) (\>) /oxgc) { $e_string .= '-s ' . e_qq('qq',$1,$3,$2); $slash = 'm//'; }
6196 0         0 elsif ($string =~ /\G -s (?>\s+) qq (?>\s*) (\S) ((?:$qq_char)+?) (\1) /oxgc) { $e_string .= '-s ' . e_qq('qq',$1,$3,$2); $slash = 'm//'; }
  0         0  
6197 0         0  
  0         0  
6198 0         0 elsif ($string =~ /\G -s (?>\s*) (\') ((?:\\\'|\\\\|$q_char)+?) (\') /oxgc) { $e_string .= '-s ' . e_q ('', $1,$3,$2); $slash = 'm//'; }
  0         0  
6199 0         0 elsif ($string =~ /\G -s (?>\s+) q (?>\s*) (\#) ((?:\\\#|\\\\|$q_char)+?) (\#) /oxgc) { $e_string .= '-s ' . e_q ('q', $1,$3,$2); $slash = 'm//'; }
  0         0  
6200 0         0 elsif ($string =~ /\G -s (?>\s+) q (?>\s*) (\() ((?:\\\)|\\\\|$q_paren)+?) (\)) /oxgc) { $e_string .= '-s ' . e_q ('q', $1,$3,$2); $slash = 'm//'; }
  0         0  
6201 0         0 elsif ($string =~ /\G -s (?>\s+) q (?>\s*) (\{) ((?:\\\}|\\\\|$q_brace)+?) (\}) /oxgc) { $e_string .= '-s ' . e_q ('q', $1,$3,$2); $slash = 'm//'; }
  0         0  
6202 0         0 elsif ($string =~ /\G -s (?>\s+) q (?>\s*) (\[) ((?:\\\]|\\\\|$q_bracket)+?) (\]) /oxgc) { $e_string .= '-s ' . e_q ('q', $1,$3,$2); $slash = 'm//'; }
  0         0  
6203             elsif ($string =~ /\G -s (?>\s+) q (?>\s*) (\<) ((?:\\\>|\\\\|$q_angle)+?) (\>) /oxgc) { $e_string .= '-s ' . e_q ('q', $1,$3,$2); $slash = 'm//'; }
6204             elsif ($string =~ /\G -s (?>\s+) q (?>\s*) (\S) ((?:\\\1|\\\\|$q_char)+?) (\1) /oxgc) { $e_string .= '-s ' . e_q ('q', $1,$3,$2); $slash = 'm//'; }
6205 0         0  
  0         0  
6206 0         0 elsif ($string =~ /\G -s (?>\s*) (\$ (?> \w+ (?: ::\w+)*) (?: (?: ->)? (?: [\$\@\%\&\*]\* | \$\#\* | \( (?:$qq_paren)*? \) | [\@\%\*]? \{ (?:$qq_brace)+? \} | [\@\%]? \[ (?:$qq_bracket)+? \] ))*) /oxgc)
  0         0  
6207 0         0 { $e_string .= "-s $1"; $slash = 'm//'; }
  0         0  
6208 0         0 elsif ($string =~ /\G -s (?>\s*) \( ((?:$qq_paren)*?) \) /oxgc) { $e_string .= "-s ($1)"; $slash = 'm//'; }
  0         0  
6209             elsif ($string =~ /\G -s (?= (?>\s+) [a-z]+) /oxgc) { $e_string .= '-s'; $slash = 'm//'; }
6210 0         0 elsif ($string =~ /\G -s (?>\s+) ((?>\w+)) /oxgc) { $e_string .= "-s $1"; $slash = 'm//'; }
  0         0  
6211 0         0  
  0         0  
6212 0         0 elsif ($string =~ /\G \b bytes::length (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /oxgc) { $e_string .= 'length'; $slash = 'm//'; }
  0         0  
6213 0         0 elsif ($string =~ /\G \b bytes::chr (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /oxgc) { $e_string .= 'chr'; $slash = 'm//'; }
  0         0  
6214 0         0 elsif ($string =~ /\G \b chr (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /oxgc) { $e_string .= 'Eoldutf8::chr'; $slash = 'm//'; }
  0         0  
6215 0         0 elsif ($string =~ /\G \b bytes::ord (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /oxgc) { $e_string .= 'ord'; $slash = 'div'; }
  0         0  
6216 0         0 elsif ($string =~ /\G \b ord (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /oxgc) { $e_string .= $function_ord; $slash = 'div'; }
  0         0  
6217 0         0 elsif ($string =~ /\G \b glob (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /oxgc) { $e_string .= 'Eoldutf8::glob'; $slash = 'm//'; }
  0         0  
6218 0         0 elsif ($string =~ /\G \b lc \b /oxgc) { $e_string .= 'Eoldutf8::lc_'; $slash = 'm//'; }
  0         0  
6219 0         0 elsif ($string =~ /\G \b lcfirst \b /oxgc) { $e_string .= 'Eoldutf8::lcfirst_'; $slash = 'm//'; }
  0         0  
6220 0         0 elsif ($string =~ /\G \b uc \b /oxgc) { $e_string .= 'Eoldutf8::uc_'; $slash = 'm//'; }
  0         0  
6221 0         0 elsif ($string =~ /\G \b ucfirst \b /oxgc) { $e_string .= 'Eoldutf8::ucfirst_'; $slash = 'm//'; }
  0         0  
6222             elsif ($string =~ /\G \b fc \b /oxgc) { $e_string .= 'Eoldutf8::fc_'; $slash = 'm//'; }
6223 0         0 elsif ($string =~ /\G -s \b /oxgc) { $e_string .= '-s '; $slash = 'm//'; }
  0         0  
6224 0         0  
  0         0  
6225 0         0 elsif ($string =~ /\G \b bytes::length \b /oxgc) { $e_string .= 'length'; $slash = 'm//'; }
  0         0  
6226 0         0 elsif ($string =~ /\G \b bytes::chr \b /oxgc) { $e_string .= 'chr'; $slash = 'm//'; }
  0         0  
6227 0         0 elsif ($string =~ /\G \b chr \b /oxgc) { $e_string .= 'Eoldutf8::chr_'; $slash = 'm//'; }
  0         0  
6228 0         0 elsif ($string =~ /\G \b bytes::ord \b /oxgc) { $e_string .= 'ord'; $slash = 'div'; }
  0         0  
6229 0         0 elsif ($string =~ /\G \b ord \b /oxgc) { $e_string .= $function_ord_; $slash = 'div'; }
  0         0  
6230 0         0 elsif ($string =~ /\G \b glob \b /oxgc) { $e_string .= 'Eoldutf8::glob_'; $slash = 'm//'; }
  0         0  
6231             elsif ($string =~ /\G \b reverse \b /oxgc) { $e_string .= $function_reverse; $slash = 'm//'; }
6232             elsif ($string =~ /\G \b getc \b /oxgc) { $e_string .= $function_getc; $slash = 'm//'; }
6233 0         0 # split
6234             elsif ($string =~ /\G \b (split) \b (?! (?>\s*) => ) /oxgc) {
6235 0         0 $slash = 'm//';
6236 0         0  
6237 0         0 my $e = '';
6238             while ($string =~ /\G ( (?>\s+) | \( | \#.* ) /oxgc) {
6239             $e .= $1;
6240             }
6241 0 0       0  
  0 0       0  
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
6242             # end of split
6243             if ($string =~ /\G (?= [,;\)\}\]] ) /oxgc) { return 'Eoldutf8::split' . $e; }
6244 0         0  
  0         0  
6245             # split scalar value
6246             elsif ($string =~ /\G ( [\$\@\&\*] $qq_scalar ) /oxgc) { $e_string .= 'Eoldutf8::split' . $e . e_string($1); next E_STRING_LOOP; }
6247 0         0  
  0         0  
6248 0         0 # split literal space
  0         0  
6249 0         0 elsif ($string =~ /\G \b qq (\#) [ ] (\#) /oxgc) { $e_string .= 'Eoldutf8::split' . $e . qq {qq$1 $2}; next E_STRING_LOOP; }
  0         0  
6250 0         0 elsif ($string =~ /\G \b qq ((?>\s*)) (\() [ ] (\)) /oxgc) { $e_string .= 'Eoldutf8::split' . $e . qq{$1qq$2 $3}; next E_STRING_LOOP; }
  0         0  
6251 0         0 elsif ($string =~ /\G \b qq ((?>\s*)) (\{) [ ] (\}) /oxgc) { $e_string .= 'Eoldutf8::split' . $e . qq{$1qq$2 $3}; next E_STRING_LOOP; }
  0         0  
6252 0         0 elsif ($string =~ /\G \b qq ((?>\s*)) (\[) [ ] (\]) /oxgc) { $e_string .= 'Eoldutf8::split' . $e . qq{$1qq$2 $3}; next E_STRING_LOOP; }
  0         0  
6253 0         0 elsif ($string =~ /\G \b qq ((?>\s*)) (\<) [ ] (\>) /oxgc) { $e_string .= 'Eoldutf8::split' . $e . qq{$1qq$2 $3}; next E_STRING_LOOP; }
  0         0  
6254 0         0 elsif ($string =~ /\G \b qq ((?>\s*)) (\S) [ ] (\2) /oxgc) { $e_string .= 'Eoldutf8::split' . $e . qq{$1qq$2 $3}; next E_STRING_LOOP; }
  0         0  
6255 0         0 elsif ($string =~ /\G \b q (\#) [ ] (\#) /oxgc) { $e_string .= 'Eoldutf8::split' . $e . qq {q$1 $2}; next E_STRING_LOOP; }
  0         0  
6256 0         0 elsif ($string =~ /\G \b q ((?>\s*)) (\() [ ] (\)) /oxgc) { $e_string .= 'Eoldutf8::split' . $e . qq {$1q$2 $3}; next E_STRING_LOOP; }
  0         0  
6257 0         0 elsif ($string =~ /\G \b q ((?>\s*)) (\{) [ ] (\}) /oxgc) { $e_string .= 'Eoldutf8::split' . $e . qq {$1q$2 $3}; next E_STRING_LOOP; }
  0         0  
6258 0         0 elsif ($string =~ /\G \b q ((?>\s*)) (\[) [ ] (\]) /oxgc) { $e_string .= 'Eoldutf8::split' . $e . qq {$1q$2 $3}; next E_STRING_LOOP; }
  0         0  
6259 0         0 elsif ($string =~ /\G \b q ((?>\s*)) (\<) [ ] (\>) /oxgc) { $e_string .= 'Eoldutf8::split' . $e . qq {$1q$2 $3}; next E_STRING_LOOP; }
  0         0  
6260 0         0 elsif ($string =~ /\G \b q ((?>\s*)) (\S) [ ] (\2) /oxgc) { $e_string .= 'Eoldutf8::split' . $e . qq {$1q$2 $3}; next E_STRING_LOOP; }
  0         0  
6261             elsif ($string =~ /\G ' [ ] ' /oxgc) { $e_string .= 'Eoldutf8::split' . $e . qq {' '}; next E_STRING_LOOP; }
6262             elsif ($string =~ /\G " [ ] " /oxgc) { $e_string .= 'Eoldutf8::split' . $e . qq {" "}; next E_STRING_LOOP; }
6263              
6264 0 0       0 # split qq//
  0         0  
  0         0  
6265             elsif ($string =~ /\G \b (qq) \b /oxgc) {
6266 0         0 if ($string =~ /\G (\#) ((?:$qq_char)*?) (\#) /oxgc) { $e_string .= e_split($e.'qr',$1,$3,$2,''); next E_STRING_LOOP; } # qq# # --> qr # #
6267 0 0       0 else {
  0 0       0  
    0          
    0          
    0          
    0          
    0          
6268 0         0 while ($string !~ /\G \z/oxgc) {
  0         0  
6269 0         0 if ($string =~ /\G ((?>\s+)|\#.*) /oxgc) { $e_string .= $e . $1; }
  0         0  
6270 0         0 elsif ($string =~ /\G (\() ((?:$qq_paren)*?) (\)) /oxgc) { $e_string .= e_split($e.'qr',$1,$3,$2,''); next E_STRING_LOOP; } # qq ( ) --> qr ( )
  0         0  
6271 0         0 elsif ($string =~ /\G (\{) ((?:$qq_brace)*?) (\}) /oxgc) { $e_string .= e_split($e.'qr',$1,$3,$2,''); next E_STRING_LOOP; } # qq { } --> qr { }
  0         0  
6272 0         0 elsif ($string =~ /\G (\[) ((?:$qq_bracket)*?) (\]) /oxgc) { $e_string .= e_split($e.'qr',$1,$3,$2,''); next E_STRING_LOOP; } # qq [ ] --> qr [ ]
  0         0  
6273 0         0 elsif ($string =~ /\G (\<) ((?:$qq_angle)*?) (\>) /oxgc) { $e_string .= e_split($e.'qr',$1,$3,$2,''); next E_STRING_LOOP; } # qq < > --> qr < >
  0         0  
6274             elsif ($string =~ /\G ([*\-:?\\^|]) ((?:$qq_char)*?) (\1) /oxgc) { $e_string .= e_split($e.'qr','{','}',$2,''); next E_STRING_LOOP; } # qq | | --> qr { }
6275 0         0 elsif ($string =~ /\G (\S) ((?:$qq_char)*?) (\1) /oxgc) { $e_string .= e_split($e.'qr',$1,$3,$2,''); next E_STRING_LOOP; } # qq * * --> qr * *
6276             }
6277             die __FILE__, ": Can't find string terminator anywhere before EOF\n";
6278             }
6279             }
6280              
6281 0 0       0 # split qr//
  0         0  
  0         0  
6282             elsif ($string =~ /\G \b (qr) \b /oxgc) {
6283 0         0 if ($string =~ /\G (\#) ((?:$qq_char)*?) (\#) ([imosxpadlunbB]*) /oxgc) { $e_string .= e_split ($e.'qr',$1,$3,$2,$4); next E_STRING_LOOP; } # qr# #
6284 0 0       0 else {
  0 0       0  
    0          
    0          
    0          
    0          
    0          
    0          
6285 0         0 while ($string !~ /\G \z/oxgc) {
  0         0  
6286 0         0 if ($string =~ /\G ((?>\s+)|\#.*) /oxgc) { $e_string .= $e . $1; }
  0         0  
6287 0         0 elsif ($string =~ /\G (\() ((?:$qq_paren)*?) (\)) ([imosxpadlunbB]*) /oxgc) { $e_string .= e_split ($e.'qr',$1, $3, $2,$4); next E_STRING_LOOP; } # qr ( )
  0         0  
6288 0         0 elsif ($string =~ /\G (\{) ((?:$qq_brace)*?) (\}) ([imosxpadlunbB]*) /oxgc) { $e_string .= e_split ($e.'qr',$1, $3, $2,$4); next E_STRING_LOOP; } # qr { }
  0         0  
6289 0         0 elsif ($string =~ /\G (\[) ((?:$qq_bracket)*?) (\]) ([imosxpadlunbB]*) /oxgc) { $e_string .= e_split ($e.'qr',$1, $3, $2,$4); next E_STRING_LOOP; } # qr [ ]
  0         0  
6290 0         0 elsif ($string =~ /\G (\<) ((?:$qq_angle)*?) (\>) ([imosxpadlunbB]*) /oxgc) { $e_string .= e_split ($e.'qr',$1, $3, $2,$4); next E_STRING_LOOP; } # qr < >
  0         0  
6291 0         0 elsif ($string =~ /\G (\') ((?:$qq_char)*?) (\') ([imosxpadlunbB]*) /oxgc) { $e_string .= e_split_q($e.'qr',$1, $3, $2,$4); next E_STRING_LOOP; } # qr ' '
  0         0  
6292             elsif ($string =~ /\G ([*\-:?\\^|]) ((?:$qq_char)*?) (\1) ([imosxpadlunbB]*) /oxgc) { $e_string .= e_split ($e.'qr','{','}',$2,$4); next E_STRING_LOOP; } # qr | | --> qr { }
6293 0         0 elsif ($string =~ /\G (\S) ((?:$qq_char)*?) (\1) ([imosxpadlunbB]*) /oxgc) { $e_string .= e_split ($e.'qr',$1, $3, $2,$4); next E_STRING_LOOP; } # qr * *
6294             }
6295             die __FILE__, ": Can't find string terminator anywhere before EOF\n";
6296             }
6297             }
6298              
6299 0 0       0 # split q//
  0         0  
  0         0  
6300             elsif ($string =~ /\G \b (q) \b /oxgc) {
6301 0         0 if ($string =~ /\G (\#) ((?:\\\#|\\\\|$q_char)*?) (\#) /oxgc) { $e_string .= e_split_q($e.'qr',$1,$3,$2,''); next E_STRING_LOOP; } # q# # --> qr # #
6302 0 0       0 else {
  0 0       0  
    0          
    0          
    0          
    0          
    0          
6303 0         0 while ($string !~ /\G \z/oxgc) {
  0         0  
6304 0         0 if ($string =~ /\G ((?>\s+)|\#.*) /oxgc) { $e_string .= $e . $1; }
  0         0  
6305 0         0 elsif ($string =~ /\G (\() ((?:\\\\|\\\)|\\\(|$q_paren)*?) (\)) /oxgc) { $e_string .= e_split_q($e.'qr',$1,$3,$2,''); next E_STRING_LOOP; } # q ( ) --> qr ( )
  0         0  
6306 0         0 elsif ($string =~ /\G (\{) ((?:\\\\|\\\}|\\\{|$q_brace)*?) (\}) /oxgc) { $e_string .= e_split_q($e.'qr',$1,$3,$2,''); next E_STRING_LOOP; } # q { } --> qr { }
  0         0  
6307 0         0 elsif ($string =~ /\G (\[) ((?:\\\\|\\\]|\\\[|$q_bracket)*?) (\]) /oxgc) { $e_string .= e_split_q($e.'qr',$1,$3,$2,''); next E_STRING_LOOP; } # q [ ] --> qr [ ]
  0         0  
6308 0         0 elsif ($string =~ /\G (\<) ((?:\\\\|\\\>|\\\<|$q_angle)*?) (\>) /oxgc) { $e_string .= e_split_q($e.'qr',$1,$3,$2,''); next E_STRING_LOOP; } # q < > --> qr < >
  0         0  
6309             elsif ($string =~ /\G ([*\-:?\\^|]) ((?:$q_char)*?) (\1) /oxgc) { $e_string .= e_split_q($e.'qr','{','}',$2,''); next E_STRING_LOOP; } # q | | --> qr { }
6310 0         0 elsif ($string =~ /\G (\S) ((?:\\\\|\\\1| $q_char)*?) (\1) /oxgc) { $e_string .= e_split_q($e.'qr',$1,$3,$2,''); next E_STRING_LOOP; } # q * * --> qr * *
6311             }
6312             die __FILE__, ": Can't find string terminator anywhere before EOF\n";
6313             }
6314             }
6315              
6316 0 0       0 # split m//
  0         0  
  0         0  
6317             elsif ($string =~ /\G \b (m) \b /oxgc) {
6318 0         0 if ($string =~ /\G (\#) ((?:$qq_char)*?) (\#) ([cgimosxpadlunbB]*) /oxgc) { $e_string .= e_split ($e.'qr',$1,$3,$2,$4); next E_STRING_LOOP; } # m# # --> qr # #
6319 0 0       0 else {
  0 0       0  
    0          
    0          
    0          
    0          
    0          
    0          
6320 0         0 while ($string !~ /\G \z/oxgc) {
  0         0  
6321 0         0 if ($string =~ /\G ((?>\s+)|\#.*) /oxgc) { $e_string .= $e . $1; }
  0         0  
6322 0         0 elsif ($string =~ /\G (\() ((?:$qq_paren)*?) (\)) ([cgimosxpadlunbB]*) /oxgc) { $e_string .= e_split ($e.'qr',$1, $3, $2,$4); next E_STRING_LOOP; } # m ( ) --> qr ( )
  0         0  
6323 0         0 elsif ($string =~ /\G (\{) ((?:$qq_brace)*?) (\}) ([cgimosxpadlunbB]*) /oxgc) { $e_string .= e_split ($e.'qr',$1, $3, $2,$4); next E_STRING_LOOP; } # m { } --> qr { }
  0         0  
6324 0         0 elsif ($string =~ /\G (\[) ((?:$qq_bracket)*?) (\]) ([cgimosxpadlunbB]*) /oxgc) { $e_string .= e_split ($e.'qr',$1, $3, $2,$4); next E_STRING_LOOP; } # m [ ] --> qr [ ]
  0         0  
6325 0         0 elsif ($string =~ /\G (\<) ((?:$qq_angle)*?) (\>) ([cgimosxpadlunbB]*) /oxgc) { $e_string .= e_split ($e.'qr',$1, $3, $2,$4); next E_STRING_LOOP; } # m < > --> qr < >
  0         0  
6326 0         0 elsif ($string =~ /\G (\') ((?:$qq_char)*?) (\') ([cgimosxpadlunbB]*) /oxgc) { $e_string .= e_split_q($e.'qr',$1, $3, $2,$4); next E_STRING_LOOP; } # m ' ' --> qr ' '
  0         0  
6327             elsif ($string =~ /\G ([*\-:?\\^|]) ((?:$qq_char)*?) (\1) ([cgimosxpadlunbB]*) /oxgc) { $e_string .= e_split ($e.'qr','{','}',$2,$4); next E_STRING_LOOP; } # m | | --> qr { }
6328 0         0 elsif ($string =~ /\G (\S) ((?:$qq_char)*?) (\1) ([cgimosxpadlunbB]*) /oxgc) { $e_string .= e_split ($e.'qr',$1, $3, $2,$4); next E_STRING_LOOP; } # m * * --> qr * *
6329             }
6330             die __FILE__, ": Search pattern not terminated\n";
6331             }
6332             }
6333              
6334 0         0 # split ''
6335 0         0 elsif ($string =~ /\G (\') /oxgc) {
6336 0 0       0 my $q_string = '';
  0 0       0  
    0          
    0          
6337 0         0 while ($string !~ /\G \z/oxgc) {
6338 0         0 if ($string =~ /\G (\\\\) /oxgc) { $q_string .= $1; }
  0         0  
6339 0         0 elsif ($string =~ /\G (\\\') /oxgc) { $q_string .= $1; } # splitqr'' --> split qr''
6340             elsif ($string =~ /\G \' /oxgc) { $e_string .= e_split_q($e.q{ qr},"'","'",$q_string,''); next E_STRING_LOOP; } # ' ' --> qr ' '
6341 0         0 elsif ($string =~ /\G ($q_char) /oxgc) { $q_string .= $1; }
6342             }
6343             die __FILE__, ": Can't find string terminator anywhere before EOF\n";
6344             }
6345              
6346 0         0 # split ""
6347 0         0 elsif ($string =~ /\G (\") /oxgc) {
6348 0 0       0 my $qq_string = '';
  0 0       0  
    0          
    0          
6349 0         0 while ($string !~ /\G \z/oxgc) {
6350 0         0 if ($string =~ /\G (\\\\) /oxgc) { $qq_string .= $1; }
  0         0  
6351 0         0 elsif ($string =~ /\G (\\\") /oxgc) { $qq_string .= $1; } # splitqr"" --> split qr""
6352             elsif ($string =~ /\G \" /oxgc) { $e_string .= e_split($e.q{ qr},'"','"',$qq_string,''); next E_STRING_LOOP; } # " " --> qr " "
6353 0         0 elsif ($string =~ /\G ($q_char) /oxgc) { $qq_string .= $1; }
6354             }
6355             die __FILE__, ": Can't find string terminator anywhere before EOF\n";
6356             }
6357              
6358 0         0 # split //
6359 0         0 elsif ($string =~ /\G (\/) /oxgc) {
6360 0 0       0 my $regexp = '';
  0 0       0  
    0          
    0          
6361 0         0 while ($string !~ /\G \z/oxgc) {
6362 0         0 if ($string =~ /\G (\\\\) /oxgc) { $regexp .= $1; }
  0         0  
6363 0         0 elsif ($string =~ /\G (\\\/) /oxgc) { $regexp .= $1; } # splitqr// --> split qr//
6364             elsif ($string =~ /\G \/ ([cgimosxpadlunbB]*) /oxgc) { $e_string .= e_split($e.q{ qr}, '/','/',$regexp,$1); next E_STRING_LOOP; } # / / --> qr / /
6365 0         0 elsif ($string =~ /\G ($q_char) /oxgc) { $regexp .= $1; }
6366             }
6367             die __FILE__, ": Search pattern not terminated\n";
6368             }
6369             }
6370              
6371 0         0 # qq//
6372 0 0       0 elsif ($string =~ /\G \b (qq) \b /oxgc) {
6373 0         0 my $ope = $1;
6374             if ($string =~ /\G (\#) ((?:$qq_char)*?) (\#) /oxgc) { # qq# #
6375             $e_string .= e_qq($ope,$1,$3,$2);
6376 0         0 }
6377 0         0 else {
6378 0 0       0 my $e = '';
  0 0       0  
    0          
    0          
    0          
    0          
6379 0         0 while ($string !~ /\G \z/oxgc) {
  0         0  
6380 0         0 if ($string =~ /\G ((?>\s+)|\#.*) /oxgc) { $e .= $1; }
  0         0  
6381 0         0 elsif ($string =~ /\G (\() ((?:$qq_paren)*?) (\)) /oxgc) { $e_string .= $e . e_qq($ope,$1,$3,$2); next E_STRING_LOOP; } # qq ( )
  0         0  
6382 0         0 elsif ($string =~ /\G (\{) ((?:$qq_brace)*?) (\}) /oxgc) { $e_string .= $e . e_qq($ope,$1,$3,$2); next E_STRING_LOOP; } # qq { }
  0         0  
6383 0         0 elsif ($string =~ /\G (\[) ((?:$qq_bracket)*?) (\]) /oxgc) { $e_string .= $e . e_qq($ope,$1,$3,$2); next E_STRING_LOOP; } # qq [ ]
  0         0  
6384             elsif ($string =~ /\G (\<) ((?:$qq_angle)*?) (\>) /oxgc) { $e_string .= $e . e_qq($ope,$1,$3,$2); next E_STRING_LOOP; } # qq < >
6385 0         0 elsif ($string =~ /\G (\S) ((?:$qq_char)*?) (\1) /oxgc) { $e_string .= $e . e_qq($ope,$1,$3,$2); next E_STRING_LOOP; } # qq * *
6386             }
6387             die __FILE__, ": Can't find string terminator anywhere before EOF\n";
6388             }
6389             }
6390              
6391 0         0 # qx//
6392 0 0       0 elsif ($string =~ /\G \b (qx) \b /oxgc) {
6393 0         0 my $ope = $1;
6394             if ($string =~ /\G (\#) ((?:$qq_char)*?) (\#) /oxgc) { # qx# #
6395             $e_string .= e_qq($ope,$1,$3,$2);
6396 0         0 }
6397 0         0 else {
6398 0 0       0 my $e = '';
  0 0       0  
    0          
    0          
    0          
    0          
    0          
6399 0         0 while ($string !~ /\G \z/oxgc) {
  0         0  
6400 0         0 if ($string =~ /\G ((?>\s+)|\#.*) /oxgc) { $e .= $1; }
  0         0  
6401 0         0 elsif ($string =~ /\G (\() ((?:$qq_paren)*?) (\)) /oxgc) { $e_string .= $e . e_qq($ope,$1,$3,$2); next E_STRING_LOOP; } # qx ( )
  0         0  
6402 0         0 elsif ($string =~ /\G (\{) ((?:$qq_brace)*?) (\}) /oxgc) { $e_string .= $e . e_qq($ope,$1,$3,$2); next E_STRING_LOOP; } # qx { }
  0         0  
6403 0         0 elsif ($string =~ /\G (\[) ((?:$qq_bracket)*?) (\]) /oxgc) { $e_string .= $e . e_qq($ope,$1,$3,$2); next E_STRING_LOOP; } # qx [ ]
  0         0  
6404 0         0 elsif ($string =~ /\G (\<) ((?:$qq_angle)*?) (\>) /oxgc) { $e_string .= $e . e_qq($ope,$1,$3,$2); next E_STRING_LOOP; } # qx < >
  0         0  
6405             elsif ($string =~ /\G (\') ((?:$qq_char)*?) (\') /oxgc) { $e_string .= $e . e_q ($ope,$1,$3,$2); next E_STRING_LOOP; } # qx ' '
6406 0         0 elsif ($string =~ /\G (\S) ((?:$qq_char)*?) (\1) /oxgc) { $e_string .= $e . e_qq($ope,$1,$3,$2); next E_STRING_LOOP; } # qx * *
6407             }
6408             die __FILE__, ": Can't find string terminator anywhere before EOF\n";
6409             }
6410             }
6411              
6412 0         0 # q//
6413 0 0       0 elsif ($string =~ /\G \b (q) \b /oxgc) {
6414 0         0 my $ope = $1;
6415             if ($string =~ /\G (\#) ((?:\\\#|\\\\|$q_char)*?) (\#) /oxgc) { # q# #
6416             $e_string .= e_q($ope,$1,$3,$2);
6417 0         0 }
6418 0         0 else {
6419 0 0       0 my $e = '';
  0 0       0  
    0          
    0          
    0          
    0          
6420 0         0 while ($string !~ /\G \z/oxgc) {
  0         0  
6421 0         0 if ($string =~ /\G ((?>\s+)|\#.*) /oxgc) { $e .= $1; }
  0         0  
6422 0         0 elsif ($string =~ /\G (\() ((?:\\\\|\\\)|\\\(|$q_paren)*?) (\)) /oxgc) { $e_string .= $e . e_q($ope,$1,$3,$2); next E_STRING_LOOP; } # q ( )
  0         0  
6423 0         0 elsif ($string =~ /\G (\{) ((?:\\\\|\\\}|\\\{|$q_brace)*?) (\}) /oxgc) { $e_string .= $e . e_q($ope,$1,$3,$2); next E_STRING_LOOP; } # q { }
  0         0  
6424 0         0 elsif ($string =~ /\G (\[) ((?:\\\\|\\\]|\\\[|$q_bracket)*?) (\]) /oxgc) { $e_string .= $e . e_q($ope,$1,$3,$2); next E_STRING_LOOP; } # q [ ]
  0         0  
6425             elsif ($string =~ /\G (\<) ((?:\\\\|\\\>|\\\<|$q_angle)*?) (\>) /oxgc) { $e_string .= $e . e_q($ope,$1,$3,$2); next E_STRING_LOOP; } # q < >
6426 0         0 elsif ($string =~ /\G (\S) ((?:\\\\|\\\1| $q_char)*?) (\1) /oxgc) { $e_string .= $e . e_q($ope,$1,$3,$2); next E_STRING_LOOP; } # q * *
6427             }
6428             die __FILE__, ": Can't find string terminator anywhere before EOF\n";
6429             }
6430             }
6431 0         0  
6432             # ''
6433             elsif ($string =~ /\G (?
6434 12         41  
6435             # ""
6436             elsif ($string =~ /\G (\") ((?:$qq_char)*?) (\") /oxgc) { $e_string .= e_qq('',$1,$3,$2); }
6437 6         24  
6438             # ``
6439             elsif ($string =~ /\G (\`) ((?:$qq_char)*?) (\`) /oxgc) { $e_string .= e_qq('',$1,$3,$2); }
6440 0         0  
6441             # <<>> (a safer ARGV)
6442             elsif ($string =~ /\G ( <<>> ) /oxgc) { $e_string .= $1; }
6443 0         0  
6444             # <<= <=> <= < operator
6445             elsif ($string =~ /\G ( <<= | <=> | <= | < ) (?= (?>\s*) [A-Za-z_0-9'"`\$\@\&\*\(\+\-] )/oxgc) { $e_string .= $1; }
6446 0         0  
6447             #
6448             elsif ($string =~ /\G (<[\$]?[A-Za-z_][A-Za-z_0-9]*>) /oxgc) { $e_string .= $1; }
6449              
6450 0         0 # --- glob
6451             elsif ($string =~ /\G < ((?:$q_char)+?) > /oxgc) {
6452             $e_string .= 'Eoldutf8::glob("' . $1 . '")';
6453             }
6454              
6455 0         0 # << (bit shift) --- not here document
6456 0         0 elsif ($string =~ /\G ( << (?>\s*) ) (?= [0-9\$\@\&] ) /oxgc) {
6457             $slash = 'm//';
6458             $e_string .= $1;
6459             }
6460              
6461 0         0 # <<~'HEREDOC'
6462 0         0 elsif ($string =~ /\G ( <<~ [\t ]* '([a-zA-Z_0-9]*)' ) /oxgc) {
6463 0         0 $slash = 'm//';
6464             my $here_quote = $1;
6465             my $delimiter = $2;
6466 0 0       0  
6467 0         0 # get here document
6468 0         0 if ($here_script eq '') {
6469             $here_script = CORE::substr $_, pos $_;
6470 0 0       0 $here_script =~ s/.*?\n//oxm;
6471 0         0 }
6472 0         0 if ($here_script =~ s/\A (.*?) \n ([\t ]*) $delimiter \n //xms) {
6473 0         0 my $heredoc = $1;
6474 0         0 my $indent = $2;
6475 0         0 $heredoc =~ s{^$indent}{}msg; # no /ox
6476             push @heredoc, $heredoc . qq{\n$delimiter\n};
6477             push @heredoc_delimiter, qq{\\s*$delimiter};
6478 0         0 }
6479             else {
6480 0         0 die __FILE__, ": Can't find string terminator $delimiter anywhere before EOF\n";
6481             }
6482             $e_string .= qq{<<'$delimiter'};
6483             }
6484              
6485 0         0 # <<~\HEREDOC
6486 0         0 elsif ($string =~ /\G ( <<~ \\([a-zA-Z_0-9]+) ) /oxgc) {
6487 0         0 $slash = 'm//';
6488             my $here_quote = $1;
6489             my $delimiter = $2;
6490 0 0       0  
6491 0         0 # get here document
6492 0         0 if ($here_script eq '') {
6493             $here_script = CORE::substr $_, pos $_;
6494 0 0       0 $here_script =~ s/.*?\n//oxm;
6495 0         0 }
6496 0         0 if ($here_script =~ s/\A (.*?) \n ([\t ]*) $delimiter \n //xms) {
6497 0         0 my $heredoc = $1;
6498 0         0 my $indent = $2;
6499 0         0 $heredoc =~ s{^$indent}{}msg; # no /ox
6500             push @heredoc, $heredoc . qq{\n$delimiter\n};
6501             push @heredoc_delimiter, qq{\\s*$delimiter};
6502 0         0 }
6503             else {
6504 0         0 die __FILE__, ": Can't find string terminator $delimiter anywhere before EOF\n";
6505             }
6506             $e_string .= qq{<<\\$delimiter};
6507             }
6508              
6509 0         0 # <<~"HEREDOC"
6510 0         0 elsif ($string =~ /\G ( <<~ [\t ]* "([a-zA-Z_0-9]*)" ) /oxgc) {
6511 0         0 $slash = 'm//';
6512             my $here_quote = $1;
6513             my $delimiter = $2;
6514 0 0       0  
6515 0         0 # get here document
6516 0         0 if ($here_script eq '') {
6517             $here_script = CORE::substr $_, pos $_;
6518 0 0       0 $here_script =~ s/.*?\n//oxm;
6519 0         0 }
6520 0         0 if ($here_script =~ s/\A (.*?) \n ([\t ]*) $delimiter \n //xms) {
6521 0         0 my $heredoc = $1;
6522 0         0 my $indent = $2;
6523 0         0 $heredoc =~ s{^$indent}{}msg; # no /ox
6524             push @heredoc, e_heredoc($heredoc) . qq{\n$delimiter\n};
6525             push @heredoc_delimiter, qq{\\s*$delimiter};
6526 0         0 }
6527             else {
6528 0         0 die __FILE__, ": Can't find string terminator $delimiter anywhere before EOF\n";
6529             }
6530             $e_string .= qq{<<"$delimiter"};
6531             }
6532              
6533 0         0 # <<~HEREDOC
6534 0         0 elsif ($string =~ /\G ( <<~ ([a-zA-Z_0-9]+) ) /oxgc) {
6535 0         0 $slash = 'm//';
6536             my $here_quote = $1;
6537             my $delimiter = $2;
6538 0 0       0  
6539 0         0 # get here document
6540 0         0 if ($here_script eq '') {
6541             $here_script = CORE::substr $_, pos $_;
6542 0 0       0 $here_script =~ s/.*?\n//oxm;
6543 0         0 }
6544 0         0 if ($here_script =~ s/\A (.*?) \n ([\t ]*) $delimiter \n //xms) {
6545 0         0 my $heredoc = $1;
6546 0         0 my $indent = $2;
6547 0         0 $heredoc =~ s{^$indent}{}msg; # no /ox
6548             push @heredoc, e_heredoc($heredoc) . qq{\n$delimiter\n};
6549             push @heredoc_delimiter, qq{\\s*$delimiter};
6550 0         0 }
6551             else {
6552 0         0 die __FILE__, ": Can't find string terminator $delimiter anywhere before EOF\n";
6553             }
6554             $e_string .= qq{<<$delimiter};
6555             }
6556              
6557 0         0 # <<~`HEREDOC`
6558 0         0 elsif ($string =~ /\G ( <<~ [\t ]* `([a-zA-Z_0-9]*)` ) /oxgc) {
6559 0         0 $slash = 'm//';
6560             my $here_quote = $1;
6561             my $delimiter = $2;
6562 0 0       0  
6563 0         0 # get here document
6564 0         0 if ($here_script eq '') {
6565             $here_script = CORE::substr $_, pos $_;
6566 0 0       0 $here_script =~ s/.*?\n//oxm;
6567 0         0 }
6568 0         0 if ($here_script =~ s/\A (.*?) \n ([\t ]*) $delimiter \n //xms) {
6569 0         0 my $heredoc = $1;
6570 0         0 my $indent = $2;
6571 0         0 $heredoc =~ s{^$indent}{}msg; # no /ox
6572             push @heredoc, e_heredoc($heredoc) . qq{\n$delimiter\n};
6573             push @heredoc_delimiter, qq{\\s*$delimiter};
6574 0         0 }
6575             else {
6576 0         0 die __FILE__, ": Can't find string terminator $delimiter anywhere before EOF\n";
6577             }
6578             $e_string .= qq{<<`$delimiter`};
6579             }
6580              
6581 0         0 # <<'HEREDOC'
6582 0         0 elsif ($string =~ /\G ( << '([a-zA-Z_0-9]*)' ) /oxgc) {
6583 0         0 $slash = 'm//';
6584             my $here_quote = $1;
6585             my $delimiter = $2;
6586 0 0       0  
6587 0         0 # get here document
6588 0         0 if ($here_script eq '') {
6589             $here_script = CORE::substr $_, pos $_;
6590 0 0       0 $here_script =~ s/.*?\n//oxm;
6591 0         0 }
6592 0         0 if ($here_script =~ s/\A (.*?) \n $delimiter \n //xms) {
6593             push @heredoc, $1 . qq{\n$delimiter\n};
6594             push @heredoc_delimiter, $delimiter;
6595 0         0 }
6596             else {
6597 0         0 die __FILE__, ": Can't find string terminator $delimiter anywhere before EOF\n";
6598             }
6599             $e_string .= $here_quote;
6600             }
6601              
6602 0         0 # <<\HEREDOC
6603 0         0 elsif ($string =~ /\G ( << \\([a-zA-Z_0-9]+) ) /oxgc) {
6604 0         0 $slash = 'm//';
6605             my $here_quote = $1;
6606             my $delimiter = $2;
6607 0 0       0  
6608 0         0 # get here document
6609 0         0 if ($here_script eq '') {
6610             $here_script = CORE::substr $_, pos $_;
6611 0 0       0 $here_script =~ s/.*?\n//oxm;
6612 0         0 }
6613 0         0 if ($here_script =~ s/\A (.*?) \n $delimiter \n //xms) {
6614             push @heredoc, $1 . qq{\n$delimiter\n};
6615             push @heredoc_delimiter, $delimiter;
6616 0         0 }
6617             else {
6618 0         0 die __FILE__, ": Can't find string terminator $delimiter anywhere before EOF\n";
6619             }
6620             $e_string .= $here_quote;
6621             }
6622              
6623 0         0 # <<"HEREDOC"
6624 0         0 elsif ($string =~ /\G ( << "([a-zA-Z_0-9]*)" ) /oxgc) {
6625 0         0 $slash = 'm//';
6626             my $here_quote = $1;
6627             my $delimiter = $2;
6628 0 0       0  
6629 0         0 # get here document
6630 0         0 if ($here_script eq '') {
6631             $here_script = CORE::substr $_, pos $_;
6632 0 0       0 $here_script =~ s/.*?\n//oxm;
6633 0         0 }
6634 0         0 if ($here_script =~ s/\A (.*?) \n $delimiter \n //xms) {
6635             push @heredoc, e_heredoc($1) . qq{\n$delimiter\n};
6636             push @heredoc_delimiter, $delimiter;
6637 0         0 }
6638             else {
6639 0         0 die __FILE__, ": Can't find string terminator $delimiter anywhere before EOF\n";
6640             }
6641             $e_string .= $here_quote;
6642             }
6643              
6644 0         0 # <
6645 0         0 elsif ($string =~ /\G ( << ([a-zA-Z_0-9]+) ) /oxgc) {
6646 0         0 $slash = 'm//';
6647             my $here_quote = $1;
6648             my $delimiter = $2;
6649 0 0       0  
6650 0         0 # get here document
6651 0         0 if ($here_script eq '') {
6652             $here_script = CORE::substr $_, pos $_;
6653 0 0       0 $here_script =~ s/.*?\n//oxm;
6654 0         0 }
6655 0         0 if ($here_script =~ s/\A (.*?) \n $delimiter \n //xms) {
6656             push @heredoc, e_heredoc($1) . qq{\n$delimiter\n};
6657             push @heredoc_delimiter, $delimiter;
6658 0         0 }
6659             else {
6660 0         0 die __FILE__, ": Can't find string terminator $delimiter anywhere before EOF\n";
6661             }
6662             $e_string .= $here_quote;
6663             }
6664              
6665 0         0 # <<`HEREDOC`
6666 0         0 elsif ($string =~ /\G ( << `([a-zA-Z_0-9]*)` ) /oxgc) {
6667 0         0 $slash = 'm//';
6668             my $here_quote = $1;
6669             my $delimiter = $2;
6670 0 0       0  
6671 0         0 # get here document
6672 0         0 if ($here_script eq '') {
6673             $here_script = CORE::substr $_, pos $_;
6674 0 0       0 $here_script =~ s/.*?\n//oxm;
6675 0         0 }
6676 0         0 if ($here_script =~ s/\A (.*?) \n $delimiter \n //xms) {
6677             push @heredoc, e_heredoc($1) . qq{\n$delimiter\n};
6678             push @heredoc_delimiter, $delimiter;
6679 0         0 }
6680             else {
6681 0         0 die __FILE__, ": Can't find string terminator $delimiter anywhere before EOF\n";
6682             }
6683             $e_string .= $here_quote;
6684             }
6685              
6686             # any operator before div
6687             elsif ($string =~ /\G (
6688             -- | \+\+ |
6689 0         0 [\)\}\]]
  40         68  
6690              
6691             ) /oxgc) { $slash = 'div'; $e_string .= $1; }
6692              
6693             # yada-yada or triple-dot operator
6694             elsif ($string =~ /\G (
6695 40         109 \.\.\.
  0         0  
6696              
6697             ) /oxgc) { $slash = 'm//'; $e_string .= q{die('Unimplemented')}; }
6698              
6699             # any operator before m//
6700             elsif ($string =~ /\G ((?>
6701              
6702             !~~ | !~ | != | ! |
6703             %= | % |
6704             &&= | && | &= | &\.= | &\. | & |
6705             -= | -> | - |
6706             :(?>\s*)= |
6707             : |
6708             <<>> |
6709             <<= | <=> | <= | < |
6710             == | => | =~ | = |
6711             >>= | >> | >= | > |
6712             \*\*= | \*\* | \*= | \* |
6713             \+= | \+ |
6714             \.\. | \.= | \. |
6715             \/\/= | \/\/ |
6716             \/= | \/ |
6717             \? |
6718             \\ |
6719             \^= | \^\.= | \^\. | \^ |
6720             \b x= |
6721             \|\|= | \|\| | \|= | \|\.= | \|\. | \| |
6722             ~~ | ~\. | ~ |
6723             \b(?: and | cmp | eq | ge | gt | le | lt | ne | not | or | xor | x )\b |
6724             \b(?: print )\b |
6725              
6726 0         0 [,;\(\{\[]
  50         87  
6727              
6728             )) /oxgc) { $slash = 'm//'; $e_string .= $1; }
6729 50         161  
6730             # other any character
6731             elsif ($string =~ /\G ($q_char) /oxgc) { $e_string .= $1; }
6732              
6733 181         618 # system error
6734             else {
6735             die __FILE__, ": Oops, this shouldn't happen!\n";
6736             }
6737 0         0 }
6738              
6739             return $e_string;
6740             }
6741              
6742             #
6743             # character class
6744 39     2935 0 132 #
6745             sub character_class {
6746 2935 100       5853 my($char,$modifier) = @_;
6747 2935 100       4878  
6748 115         235 if ($char eq '.') {
6749             if ($modifier =~ /s/) {
6750             return '${Eoldutf8::dot_s}';
6751 23         54 }
6752             else {
6753             return '${Eoldutf8::dot}';
6754             }
6755 92         219 }
6756             else {
6757             return Eoldutf8::classic_character_class($char);
6758             }
6759             }
6760              
6761             #
6762             # escape capture ($1, $2, $3, ...)
6763             #
6764 2820     469 0 5402 sub e_capture {
6765              
6766             return join '', '${', $_[0], '}';
6767             }
6768              
6769             #
6770             # escape transliteration (tr/// or y///)
6771 469     11 0 1748 #
6772 11         60 sub e_tr {
6773 11   100     27 my($variable,$charclass,$e,$charclass2,$modifier) = @_;
6774             my $e_tr = '';
6775 11         34 $modifier ||= '';
6776              
6777             $slash = 'div';
6778 11         17  
6779             # quote character class 1
6780             $charclass = q_tr($charclass);
6781 11         22  
6782             # quote character class 2
6783             $charclass2 = q_tr($charclass2);
6784 11 50       21  
6785 11 0       34 # /b /B modifier
6786 0         0 if ($modifier =~ tr/bB//d) {
6787             if ($variable eq '') {
6788             $e_tr = qq{tr$charclass$e$charclass2$modifier};
6789 0         0 }
6790             else {
6791             $e_tr = qq{$variable${bind_operator}tr$charclass$e$charclass2$modifier};
6792             }
6793 0 100       0 }
6794 11         28 else {
6795             if ($variable eq '') {
6796             $e_tr = qq{Eoldutf8::tr(\$_,' =~ ',$charclass,$e$charclass2,'$modifier')};
6797 2         7 }
6798             else {
6799             $e_tr = qq{Eoldutf8::tr($variable,'$bind_operator',$charclass,$e$charclass2,'$modifier')};
6800             }
6801             }
6802 9         35  
6803 11         21 # clear tr/// variable
6804             $tr_variable = '';
6805 11         14 $bind_operator = '';
6806              
6807             return $e_tr;
6808             }
6809              
6810             #
6811             # quote for escape transliteration (tr/// or y///)
6812 11     22 0 72 #
6813             sub q_tr {
6814             my($charclass) = @_;
6815 22 50       36  
    0          
    0          
    0          
    0          
    0          
6816 22         44 # quote character class
6817             if ($charclass !~ /'/oxms) {
6818             return e_q('', "'", "'", $charclass); # --> q' '
6819 22         34 }
6820             elsif ($charclass !~ /\//oxms) {
6821             return e_q('q', '/', '/', $charclass); # --> q/ /
6822 0         0 }
6823             elsif ($charclass !~ /\#/oxms) {
6824             return e_q('q', '#', '#', $charclass); # --> q# #
6825 0         0 }
6826             elsif ($charclass !~ /[\<\>]/oxms) {
6827             return e_q('q', '<', '>', $charclass); # --> q< >
6828 0         0 }
6829             elsif ($charclass !~ /[\(\)]/oxms) {
6830             return e_q('q', '(', ')', $charclass); # --> q( )
6831 0         0 }
6832             elsif ($charclass !~ /[\{\}]/oxms) {
6833             return e_q('q', '{', '}', $charclass); # --> q{ }
6834 0         0 }
6835 0 0       0 else {
6836 0         0 for my $char (qw( ! " $ % & * + . : = ? @ ^ ` | ~ ), "\x00".."\x1F", "\x7F", "\xFF") {
6837             if ($charclass !~ /\Q$char\E/xms) {
6838             return e_q('q', $char, $char, $charclass);
6839             }
6840             }
6841 0         0 }
6842              
6843             return e_q('q', '{', '}', $charclass);
6844             }
6845              
6846             #
6847             # escape q string (q//, '')
6848 0     2150 0 0 #
6849             sub e_q {
6850 2150         4875 my($ope,$delimiter,$end_delimiter,$string) = @_;
6851              
6852 2150         13244 $slash = 'div';
6853              
6854             return join '', $ope, $delimiter, $string, $end_delimiter;
6855             }
6856              
6857             #
6858             # escape qq string (qq//, "", qx//, ``)
6859 2150     9533 0 9808 #
6860             sub e_qq {
6861 9533         20218 my($ope,$delimiter,$end_delimiter,$string) = @_;
6862              
6863 9533         12205 $slash = 'div';
6864 9533         10836  
6865             my $left_e = 0;
6866             my $right_e = 0;
6867 9533         10657  
6868             # split regexp
6869             my @char = $string =~ /\G((?>
6870             [^\x80-\xFF\\\$]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF] |
6871             \\x\{ (?>[0-9A-Fa-f]+) \} |
6872             \\o\{ (?>[0-7]+) \} |
6873             \\N\{ (?>[^\x80-\xFF0-9\}][^\x80-\xFF\}]*) \} |
6874             \\ $q_char |
6875             \$` | \$\{`\} | \$ (?>\s*) PREMATCH | \$ (?>\s*) \{ (?>\s*) PREMATCH (?>\s*) \} | \$ (?>\s*) \{\^PREMATCH\} |
6876             \$& | \$\{&\} | \$ (?>\s*) MATCH | \$ (?>\s*) \{ (?>\s*) MATCH (?>\s*) \} | \$ (?>\s*) \{\^MATCH\} |
6877             \$ (?>\s*) POSTMATCH | \$ (?>\s*) \{ (?>\s*) POSTMATCH (?>\s*) \} | \$ (?>\s*) \{\^POSTMATCH\} |
6878             \$ (?>\s* [0-9]+) |
6879             \$ (?>\s*) \{ (?>\s* [0-9]+ \s*) \} |
6880             \$ \$ (?![\w\{]) |
6881             \$ (?>\s*) \$ (?>\s*) $qq_variable |
6882             $q_char
6883 9533         285263 ))/oxmsg;
6884              
6885             for (my $i=0; $i <= $#char; $i++) {
6886 9533 50 66     26508  
    50 33        
    100          
    100          
    50          
6887 226917         671374 # "\L\u" --> "\u\L"
6888             if (($char[$i] eq '\L') and ($char[$i+1] eq '\u')) {
6889             @char[$i,$i+1] = @char[$i+1,$i];
6890             }
6891              
6892 0         0 # "\U\l" --> "\l\U"
6893             elsif (($char[$i] eq '\U') and ($char[$i+1] eq '\l')) {
6894             @char[$i,$i+1] = @char[$i+1,$i];
6895             }
6896              
6897 0         0 # octal escape sequence
6898             elsif ($char[$i] =~ /\A \\o \{ ([0-7]+) \} \z/oxms) {
6899             $char[$i] = Eoldutf8::octchr($1);
6900             }
6901              
6902 1         3 # hexadecimal escape sequence
6903             elsif ($char[$i] =~ /\A \\x \{ ([0-9A-Fa-f]+) \} \z/oxms) {
6904             $char[$i] = Eoldutf8::hexchr($1);
6905             }
6906              
6907 1         4 # \N{CHARNAME} --> N{CHARNAME}
6908             elsif ($char[$i] =~ /\A \\ ( N\{ ([^\x80-\xFF0-9\}][^\x80-\xFF\}]*) \} ) \z/oxms) {
6909             $char[$i] = $1;
6910 0 100       0 }
    50          
    50          
    50          
    100          
    100          
    50          
    100          
    50          
    50          
    100          
    50          
    50          
    100          
    50          
    50          
    50          
    50          
    100          
    100          
    100          
    50          
    50          
6911              
6912             if (0) {
6913             }
6914              
6915             # \F
6916             #
6917             # P.69 Table 2-6. Translation escapes
6918             # in Chapter 2: Bits and Pieces
6919             # of ISBN 978-0-596-00492-7 Programming Perl 4th Edition.
6920             # (and so on)
6921 226917         1675162  
6922 0 50       0 # \u \l \U \L \F \Q \E
6923 602         1228 elsif ($char[$i] =~ /\A ([<>]) \z/oxms) {
6924             if ($right_e < $left_e) {
6925             $char[$i] = '\\' . $char[$i];
6926             }
6927             }
6928             elsif ($char[$i] eq '\u') {
6929              
6930             # "STRING @{[ LIST EXPR ]} MORE STRING"
6931              
6932             # P.257 Other Tricks You Can Do with Hard References
6933             # in Chapter 8: References
6934             # of ISBN 0-596-00027-8 Programming Perl Third Edition.
6935              
6936             # P.353 Other Tricks You Can Do with Hard References
6937             # in Chapter 8: References
6938             # of ISBN 978-0-596-00492-7 Programming Perl 4th Edition.
6939              
6940 0         0 # (and so on)
6941 0         0  
6942             $char[$i] = '@{[Eoldutf8::ucfirst qq<';
6943             $left_e++;
6944 0         0 }
6945 0         0 elsif ($char[$i] eq '\l') {
6946             $char[$i] = '@{[Eoldutf8::lcfirst qq<';
6947             $left_e++;
6948 0         0 }
6949 0         0 elsif ($char[$i] eq '\U') {
6950             $char[$i] = '@{[Eoldutf8::uc qq<';
6951             $left_e++;
6952 0         0 }
6953 6         13 elsif ($char[$i] eq '\L') {
6954             $char[$i] = '@{[Eoldutf8::lc qq<';
6955             $left_e++;
6956 6         18 }
6957 23         29 elsif ($char[$i] eq '\F') {
6958             $char[$i] = '@{[Eoldutf8::fc qq<';
6959             $left_e++;
6960 23         44 }
6961 0         0 elsif ($char[$i] eq '\Q') {
6962             $char[$i] = '@{[CORE::quotemeta qq<';
6963             $left_e++;
6964 0 50       0 }
6965 26         40 elsif ($char[$i] eq '\E') {
6966 26         29 if ($right_e < $left_e) {
6967             $char[$i] = '>]}';
6968             $right_e++;
6969 26         58 }
6970             else {
6971             $char[$i] = '';
6972             }
6973 0         0 }
6974 0 0       0 elsif ($char[$i] eq '\Q') {
6975 0         0 while (1) {
6976             if (++$i > $#char) {
6977 0 0       0 last;
6978 0         0 }
6979             if ($char[$i] eq '\E') {
6980             last;
6981             }
6982             }
6983             }
6984             elsif ($char[$i] eq '\E') {
6985             }
6986              
6987             # $0 --> $0
6988             elsif ($char[$i] =~ /\A \$ 0 \z/oxms) {
6989             }
6990             elsif ($char[$i] =~ /\A \$ \{ (?>\s*) 0 (?>\s*) \} \z/oxms) {
6991             }
6992              
6993             # $$ --> $$
6994             elsif ($char[$i] =~ /\A \$\$ \z/oxms) {
6995             }
6996              
6997             # $1, $2, $3 --> $2, $3, $4 after s/// with multibyte anchoring
6998 0         0 # $1, $2, $3 --> $1, $2, $3 otherwise
6999             elsif ($char[$i] =~ /\A \$ ((?>[1-9][0-9]*)) \z/oxms) {
7000             $char[$i] = e_capture($1);
7001 409         788 }
7002             elsif ($char[$i] =~ /\A \$ \{ (?>\s*) ((?>[1-9][0-9]*)) (?>\s*) \} \z/oxms) {
7003             $char[$i] = e_capture($1);
7004             }
7005              
7006 0         0 # $$foo[ ... ] --> $ $foo->[ ... ]
7007             elsif ($char[$i] =~ /\A \$ ((?> \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) ( \[ (?:$qq_bracket)*? \] ) \z/oxms) {
7008             $char[$i] = e_capture($1.'->'.$2);
7009             }
7010              
7011 0         0 # $$foo{ ... } --> $ $foo->{ ... }
7012             elsif ($char[$i] =~ /\A \$ ((?> \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) ( \{ (?:$qq_brace)*? \} ) \z/oxms) {
7013             $char[$i] = e_capture($1.'->'.$2);
7014             }
7015              
7016 0         0 # $$foo
7017             elsif ($char[$i] =~ /\A \$ ((?> \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) \z/oxms) {
7018             $char[$i] = e_capture($1);
7019             }
7020              
7021 0         0 # $`, ${`}, $PREMATCH, ${PREMATCH}, ${^PREMATCH} --> Eoldutf8::PREMATCH()
7022             elsif ($char[$i] =~ /\A ( \$` | \$\{`\} | \$ (?>\s*) PREMATCH | \$ (?>\s*) \{ (?>\s*) PREMATCH (?>\s*) \} | \$ (?>\s*) \{\^PREMATCH\} ) \z/oxmsgc) {
7023             $char[$i] = '@{[Eoldutf8::PREMATCH()]}';
7024             }
7025              
7026 44         121 # $&, ${&}, $MATCH, ${MATCH}, ${^MATCH} --> Eoldutf8::MATCH()
7027             elsif ($char[$i] =~ /\A ( \$& | \$\{&\} | \$ (?>\s*) MATCH | \$ (?>\s*) \{ (?>\s*) MATCH (?>\s*) \} | \$ (?>\s*) \{\^MATCH\} ) \z/oxmsgc) {
7028             $char[$i] = '@{[Eoldutf8::MATCH()]}';
7029             }
7030              
7031 45         116 # $POSTMATCH, ${POSTMATCH}, ${^POSTMATCH} --> Eoldutf8::POSTMATCH()
7032             elsif ($char[$i] =~ /\A ( \$ (?>\s*) POSTMATCH | \$ (?>\s*) \{ (?>\s*) POSTMATCH (?>\s*) \} | \$ (?>\s*) \{\^POSTMATCH\} ) \z/oxmsgc) {
7033             $char[$i] = '@{[Eoldutf8::POSTMATCH()]}';
7034             }
7035              
7036             # ${ foo } --> ${ foo }
7037             elsif ($char[$i] =~ /\A \$ (?>\s*) \{ (?> \s* [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* \s* ) \} \z/oxms) {
7038             }
7039              
7040 33         85 # ${ ... }
7041             elsif ($char[$i] =~ /\A \$ (?>\s*) \{ ( .+ ) \} \z/oxms) {
7042             $char[$i] = e_capture($1);
7043             }
7044             }
7045 0 100       0  
7046 9533         16271 # return string
7047             if ($left_e > $right_e) {
7048 3         19 return join '', $ope, $delimiter, @char, '>]}' x ($left_e - $right_e), $end_delimiter;
7049             }
7050             return join '', $ope, $delimiter, @char, $end_delimiter;
7051             }
7052              
7053             #
7054             # escape qw string (qw//)
7055 9530     34 0 68705 #
7056             sub e_qw {
7057 34         147 my($ope,$delimiter,$end_delimiter,$string) = @_;
7058              
7059             $slash = 'div';
7060 34         65  
  34         338  
7061 856 50       1186 # choice again delimiter
    0          
    0          
    0          
    0          
7062 34         170 my %octet = map {$_ => 1} ($string =~ /\G ([\x00-\xFF]) /oxmsg);
7063             if (not $octet{$end_delimiter}) {
7064             return join '', $ope, $delimiter, $string, $end_delimiter;
7065 34         212 }
7066             elsif (not $octet{')'}) {
7067             return join '', $ope, '(', $string, ')';
7068 0         0 }
7069             elsif (not $octet{'}'}) {
7070             return join '', $ope, '{', $string, '}';
7071 0         0 }
7072             elsif (not $octet{']'}) {
7073             return join '', $ope, '[', $string, ']';
7074 0         0 }
7075             elsif (not $octet{'>'}) {
7076             return join '', $ope, '<', $string, '>';
7077 0         0 }
7078 0 0       0 else {
7079 0         0 for my $char (qw( ! " $ % & * + - . / : = ? @ ^ ` | ~ ), "\x00".."\x1F", "\x7F", "\xFF") {
7080             if (not $octet{$char}) {
7081             return join '', $ope, $char, $string, $char;
7082             }
7083             }
7084             }
7085 0         0  
7086 0         0 # qw/AAA BBB C'CC/ --> ('AAA', 'BBB', 'C\'CC')
7087 0         0 my @string = CORE::split(/\s+/, $string);
7088 0         0 for my $string (@string) {
7089 0 0       0 my @octet = $string =~ /\G ([\x00-\xFF]) /oxmsg;
7090 0         0 for my $octet (@octet) {
7091             if ($octet =~ /\A (['\\]) \z/oxms) {
7092             $octet = '\\' . $1;
7093 0         0 }
7094             }
7095 0         0 $string = join '', @octet;
  0         0  
7096             }
7097             return join '', '(', (join ', ', map { "'$_'" } @string), ')';
7098             }
7099              
7100             #
7101             # escape here document (<<"HEREDOC", <
7102 0     108 0 0 #
7103             sub e_heredoc {
7104 108         307 my($string) = @_;
7105              
7106 108         176 $slash = 'm//';
7107              
7108 108         350 my $metachar = qr/[\@\\|]/oxms; # '|' is for <<`HEREDOC`
7109 108         196  
7110             my $left_e = 0;
7111             my $right_e = 0;
7112 108         182  
7113             # split regexp
7114             my @char = $string =~ /\G((?>
7115             [^\x80-\xFF\\\$]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF] |
7116             \\x\{ (?>[0-9A-Fa-f]+) \} |
7117             \\o\{ (?>[0-7]+) \} |
7118             \\N\{ (?>[^\x80-\xFF0-9\}][^\x80-\xFF\}]*) \} |
7119             \\ $q_char |
7120             \$` | \$\{`\} | \$ (?>\s*) PREMATCH | \$ (?>\s*) \{ (?>\s*) PREMATCH (?>\s*) \} | \$ (?>\s*) \{\^PREMATCH\} |
7121             \$& | \$\{&\} | \$ (?>\s*) MATCH | \$ (?>\s*) \{ (?>\s*) MATCH (?>\s*) \} | \$ (?>\s*) \{\^MATCH\} |
7122             \$ (?>\s*) POSTMATCH | \$ (?>\s*) \{ (?>\s*) POSTMATCH (?>\s*) \} | \$ (?>\s*) \{\^POSTMATCH\} |
7123             \$ (?>\s* [0-9]+) |
7124             \$ (?>\s*) \{ (?>\s* [0-9]+ \s*) \} |
7125             \$ \$ (?![\w\{]) |
7126             \$ (?>\s*) \$ (?>\s*) $qq_variable |
7127             $q_char
7128 108         12701 ))/oxmsg;
7129              
7130             for (my $i=0; $i <= $#char; $i++) {
7131 108 50 66     648  
    50 33        
    100          
    100          
    50          
7132 3383         10097 # "\L\u" --> "\u\L"
7133             if (($char[$i] eq '\L') and ($char[$i+1] eq '\u')) {
7134             @char[$i,$i+1] = @char[$i+1,$i];
7135             }
7136              
7137 0         0 # "\U\l" --> "\l\U"
7138             elsif (($char[$i] eq '\U') and ($char[$i+1] eq '\l')) {
7139             @char[$i,$i+1] = @char[$i+1,$i];
7140             }
7141              
7142 0         0 # octal escape sequence
7143             elsif ($char[$i] =~ /\A \\o \{ ([0-7]+) \} \z/oxms) {
7144             $char[$i] = Eoldutf8::octchr($1);
7145             }
7146              
7147 1         4 # hexadecimal escape sequence
7148             elsif ($char[$i] =~ /\A \\x \{ ([0-9A-Fa-f]+) \} \z/oxms) {
7149             $char[$i] = Eoldutf8::hexchr($1);
7150             }
7151              
7152 1         4 # \N{CHARNAME} --> N{CHARNAME}
7153             elsif ($char[$i] =~ /\A \\ ( N\{ ([^\x80-\xFF0-9\}][^\x80-\xFF\}]*) \} ) \z/oxms) {
7154             $char[$i] = $1;
7155 0 100       0 }
    50          
    50          
    50          
    100          
    50          
    50          
    100          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    100          
    100          
    100          
    50          
    50          
7156              
7157             if (0) {
7158             }
7159 3383         29461  
7160 0 50       0 # \u \l \U \L \F \Q \E
7161 72         131 elsif ($char[$i] =~ /\A ([<>]) \z/oxms) {
7162             if ($right_e < $left_e) {
7163             $char[$i] = '\\' . $char[$i];
7164             }
7165 0         0 }
7166 0         0 elsif ($char[$i] eq '\u') {
7167             $char[$i] = '@{[Eoldutf8::ucfirst qq<';
7168             $left_e++;
7169 0         0 }
7170 0         0 elsif ($char[$i] eq '\l') {
7171             $char[$i] = '@{[Eoldutf8::lcfirst qq<';
7172             $left_e++;
7173 0         0 }
7174 0         0 elsif ($char[$i] eq '\U') {
7175             $char[$i] = '@{[Eoldutf8::uc qq<';
7176             $left_e++;
7177 0         0 }
7178 6         10 elsif ($char[$i] eq '\L') {
7179             $char[$i] = '@{[Eoldutf8::lc qq<';
7180             $left_e++;
7181 6         12 }
7182 0         0 elsif ($char[$i] eq '\F') {
7183             $char[$i] = '@{[Eoldutf8::fc qq<';
7184             $left_e++;
7185 0         0 }
7186 0         0 elsif ($char[$i] eq '\Q') {
7187             $char[$i] = '@{[CORE::quotemeta qq<';
7188             $left_e++;
7189 0 50       0 }
7190 3         8 elsif ($char[$i] eq '\E') {
7191 3         4 if ($right_e < $left_e) {
7192             $char[$i] = '>]}';
7193             $right_e++;
7194 3         6 }
7195             else {
7196             $char[$i] = '';
7197             }
7198 0         0 }
7199 0 0       0 elsif ($char[$i] eq '\Q') {
7200 0         0 while (1) {
7201             if (++$i > $#char) {
7202 0 0       0 last;
7203 0         0 }
7204             if ($char[$i] eq '\E') {
7205             last;
7206             }
7207             }
7208             }
7209             elsif ($char[$i] eq '\E') {
7210             }
7211              
7212             # $0 --> $0
7213             elsif ($char[$i] =~ /\A \$ 0 \z/oxms) {
7214             }
7215             elsif ($char[$i] =~ /\A \$ \{ (?>\s*) 0 (?>\s*) \} \z/oxms) {
7216             }
7217              
7218             # $$ --> $$
7219             elsif ($char[$i] =~ /\A \$\$ \z/oxms) {
7220             }
7221              
7222             # $1, $2, $3 --> $2, $3, $4 after s/// with multibyte anchoring
7223 0         0 # $1, $2, $3 --> $1, $2, $3 otherwise
7224             elsif ($char[$i] =~ /\A \$ ((?>[1-9][0-9]*)) \z/oxms) {
7225             $char[$i] = e_capture($1);
7226 0         0 }
7227             elsif ($char[$i] =~ /\A \$ \{ (?>\s*) ((?>[1-9][0-9]*)) (?>\s*) \} \z/oxms) {
7228             $char[$i] = e_capture($1);
7229             }
7230              
7231 0         0 # $$foo[ ... ] --> $ $foo->[ ... ]
7232             elsif ($char[$i] =~ /\A \$ ((?> \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) ( \[ (?:$qq_bracket)*? \] ) \z/oxms) {
7233             $char[$i] = e_capture($1.'->'.$2);
7234             }
7235              
7236 0         0 # $$foo{ ... } --> $ $foo->{ ... }
7237             elsif ($char[$i] =~ /\A \$ ((?> \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) ( \{ (?:$qq_brace)*? \} ) \z/oxms) {
7238             $char[$i] = e_capture($1.'->'.$2);
7239             }
7240              
7241 0         0 # $$foo
7242             elsif ($char[$i] =~ /\A \$ ((?> \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) \z/oxms) {
7243             $char[$i] = e_capture($1);
7244             }
7245              
7246 0         0 # $`, ${`}, $PREMATCH, ${PREMATCH}, ${^PREMATCH} --> Eoldutf8::PREMATCH()
7247             elsif ($char[$i] =~ /\A ( \$` | \$\{`\} | \$ (?>\s*) PREMATCH | \$ (?>\s*) \{ (?>\s*) PREMATCH (?>\s*) \} | \$ (?>\s*) \{\^PREMATCH\} ) \z/oxmsgc) {
7248             $char[$i] = '@{[Eoldutf8::PREMATCH()]}';
7249             }
7250              
7251 8         51 # $&, ${&}, $MATCH, ${MATCH}, ${^MATCH} --> Eoldutf8::MATCH()
7252             elsif ($char[$i] =~ /\A ( \$& | \$\{&\} | \$ (?>\s*) MATCH | \$ (?>\s*) \{ (?>\s*) MATCH (?>\s*) \} | \$ (?>\s*) \{\^MATCH\} ) \z/oxmsgc) {
7253             $char[$i] = '@{[Eoldutf8::MATCH()]}';
7254             }
7255              
7256 8         47 # $POSTMATCH, ${POSTMATCH}, ${^POSTMATCH} --> Eoldutf8::POSTMATCH()
7257             elsif ($char[$i] =~ /\A ( \$ (?>\s*) POSTMATCH | \$ (?>\s*) \{ (?>\s*) POSTMATCH (?>\s*) \} | \$ (?>\s*) \{\^POSTMATCH\} ) \z/oxmsgc) {
7258             $char[$i] = '@{[Eoldutf8::POSTMATCH()]}';
7259             }
7260              
7261             # ${ foo } --> ${ foo }
7262             elsif ($char[$i] =~ /\A \$ (?>\s*) \{ (?> \s* [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* \s* ) \} \z/oxms) {
7263             }
7264              
7265 6         36 # ${ ... }
7266             elsif ($char[$i] =~ /\A \$ (?>\s*) \{ ( .+ ) \} \z/oxms) {
7267             $char[$i] = e_capture($1);
7268             }
7269             }
7270 0 100       0  
7271 108         279 # return string
7272             if ($left_e > $right_e) {
7273 3         26 return join '', @char, '>]}' x ($left_e - $right_e);
7274             }
7275             return join '', @char;
7276             }
7277              
7278             #
7279             # escape regexp (m//, qr//)
7280 105     1377 0 815 #
7281 1377   100     5726 sub e_qr {
7282             my($ope,$delimiter,$end_delimiter,$string,$modifier) = @_;
7283 1377         4606 $modifier ||= '';
7284 1377 50       2271  
7285 1377         3185 $modifier =~ tr/p//d;
7286 0         0 if ($modifier =~ /([adlu])/oxms) {
7287 0 0       0 my $line = 0;
7288 0         0 for (my $i=0; my($package,$filename,$use_line,$subroutine) = caller($i); $i++) {
7289 0         0 if ($filename ne __FILE__) {
7290             $line = $use_line + (CORE::substr($_,0,pos($_)) =~ tr/\n//) + 1;
7291             last;
7292 0         0 }
7293             }
7294             die qq{Unsupported modifier "$1" used at line $line.\n};
7295 0         0 }
7296              
7297             $slash = 'div';
7298 1377 100       1998  
    100          
7299 1377         3681 # literal null string pattern
7300 8         8 if ($string eq '') {
7301 8         10 $modifier =~ tr/bB//d;
7302             $modifier =~ tr/i//d;
7303             return join '', $ope, $delimiter, $end_delimiter, $modifier;
7304             }
7305              
7306             # /b /B modifier
7307             elsif ($modifier =~ tr/bB//d) {
7308 8 50       36  
7309 25         65 # choice again delimiter
7310 0         0 if ($delimiter =~ / [\@:] /oxms) {
  0         0  
7311 0 0       0 my @char = $string =~ /\G ([\x00-\xFF]) /oxmsg;
    0          
    0          
    0          
7312 0         0 my %octet = map {$_ => 1} @char;
7313 0         0 if (not $octet{')'}) {
7314             $delimiter = '(';
7315             $end_delimiter = ')';
7316 0         0 }
7317 0         0 elsif (not $octet{'}'}) {
7318             $delimiter = '{';
7319             $end_delimiter = '}';
7320 0         0 }
7321 0         0 elsif (not $octet{']'}) {
7322             $delimiter = '[';
7323             $end_delimiter = ']';
7324 0         0 }
7325 0         0 elsif (not $octet{'>'}) {
7326             $delimiter = '<';
7327             $end_delimiter = '>';
7328 0         0 }
7329 0 0       0 else {
7330 0         0 for my $char (qw( ! " $ % & * + - . / = ? ^ ` | ~ ), "\x00".."\x1F", "\x7F", "\xFF") {
7331 0         0 if (not $octet{$char}) {
7332 0         0 $delimiter = $char;
7333             $end_delimiter = $char;
7334             last;
7335             }
7336             }
7337             }
7338 0 100 100     0 }
7339 25         136  
7340             if (($ope =~ /\A m? \z/oxms) and ($delimiter eq '?')) {
7341             return join '', $ope, $delimiter, $string, $matched, $end_delimiter, $modifier;
7342 4         26 }
7343             else {
7344             return join '', $ope, $delimiter, '(?:', $string, ')', $matched, $end_delimiter, $modifier;
7345             }
7346 21 100       134 }
7347 1344         2925  
7348             my $ignorecase = ($modifier =~ /i/oxms) ? 1 : 0;
7349             my $metachar = qr/[\@\\|[\]{^]/oxms;
7350 1344         4507  
7351             # split regexp
7352             my @char = $string =~ /\G((?>
7353             [^\x80-\xFF\\\$\@\[\(]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF] |
7354             \\x (?>[0-9A-Fa-f]{1,2}) |
7355             \\ (?>[0-7]{2,3}) |
7356             \\c [\x40-\x5F] |
7357             \\x\{ (?>[0-9A-Fa-f]+) \} |
7358             \\o\{ (?>[0-7]+) \} |
7359             \\[bBNpP]\{ (?>[^\x80-\xFF0-9\}][^\x80-\xFF\}]*) \} |
7360             \\ $q_char |
7361             \$` | \$\{`\} | \$ (?>\s*) PREMATCH | \$ (?>\s*) \{ (?>\s*) PREMATCH (?>\s*) \} | \$ (?>\s*) \{\^PREMATCH\} |
7362             \$& | \$\{&\} | \$ (?>\s*) MATCH | \$ (?>\s*) \{ (?>\s*) MATCH (?>\s*) \} | \$ (?>\s*) \{\^MATCH\} |
7363             \$ (?>\s*) POSTMATCH | \$ (?>\s*) \{ (?>\s*) POSTMATCH (?>\s*) \} | \$ (?>\s*) \{\^POSTMATCH\} |
7364             [\$\@] $qq_variable |
7365             \$ (?>\s* [0-9]+) |
7366             \$ (?>\s*) \{ (?>\s* [0-9]+ \s*) \} |
7367             \$ \$ (?![\w\{]) |
7368             \$ (?>\s*) \$ (?>\s*) $qq_variable |
7369             \[\^ |
7370             \[\: (?>[a-z]+) :\] |
7371             \[\:\^ (?>[a-z]+) :\] |
7372             \(\? |
7373             $q_char
7374             ))/oxmsg;
7375 1344 50       130539  
7376 1344         5733 # choice again delimiter
  0         0  
7377 0 0       0 if ($delimiter =~ / [\@:] /oxms) {
    0          
    0          
    0          
7378 0         0 my %octet = map {$_ => 1} @char;
7379 0         0 if (not $octet{')'}) {
7380             $delimiter = '(';
7381             $end_delimiter = ')';
7382 0         0 }
7383 0         0 elsif (not $octet{'}'}) {
7384             $delimiter = '{';
7385             $end_delimiter = '}';
7386 0         0 }
7387 0         0 elsif (not $octet{']'}) {
7388             $delimiter = '[';
7389             $end_delimiter = ']';
7390 0         0 }
7391 0         0 elsif (not $octet{'>'}) {
7392             $delimiter = '<';
7393             $end_delimiter = '>';
7394 0         0 }
7395 0 0       0 else {
7396 0         0 for my $char (qw( ! " $ % & * + - . / = ? ^ ` | ~ ), "\x00".."\x1F", "\x7F", "\xFF") {
7397 0         0 if (not $octet{$char}) {
7398 0         0 $delimiter = $char;
7399             $end_delimiter = $char;
7400             last;
7401             }
7402             }
7403             }
7404 0         0 }
7405 1344         1938  
7406 1344         1652 my $left_e = 0;
7407             my $right_e = 0;
7408             for (my $i=0; $i <= $#char; $i++) {
7409 1344 50 66     3226  
    50 66        
    100          
    100          
    100          
    100          
7410 3231         16111 # "\L\u" --> "\u\L"
7411             if (($char[$i] eq '\L') and ($char[$i+1] eq '\u')) {
7412             @char[$i,$i+1] = @char[$i+1,$i];
7413             }
7414              
7415 0         0 # "\U\l" --> "\l\U"
7416             elsif (($char[$i] eq '\U') and ($char[$i+1] eq '\l')) {
7417             @char[$i,$i+1] = @char[$i+1,$i];
7418             }
7419              
7420 0         0 # octal escape sequence
7421             elsif ($char[$i] =~ /\A \\o \{ ([0-7]+) \} \z/oxms) {
7422             $char[$i] = Eoldutf8::octchr($1);
7423             }
7424              
7425 1         4 # hexadecimal escape sequence
7426             elsif ($char[$i] =~ /\A \\x \{ ([0-9A-Fa-f]+) \} \z/oxms) {
7427             $char[$i] = Eoldutf8::hexchr($1);
7428             }
7429              
7430             # \b{...} --> b\{...}
7431             # \B{...} --> B\{...}
7432             # \N{CHARNAME} --> N\{CHARNAME}
7433             # \p{PROPERTY} --> p\{PROPERTY}
7434 1         4 # \P{PROPERTY} --> P\{PROPERTY}
7435             elsif ($char[$i] =~ /\A \\ ([bBNpP]) ( \{ ([^\x80-\xFF0-9\}][^\x80-\xFF\}]*) \} ) \z/oxms) {
7436             $char[$i] = $1 . '\\' . $2;
7437             }
7438              
7439 6         17 # \p, \P, \X --> p, P, X
7440             elsif ($char[$i] =~ /\A \\ ( [pPX] ) \z/oxms) {
7441             $char[$i] = $1;
7442 4 100 100     11 }
    100 100        
    100 100        
    100          
    100          
    100          
    50          
    50          
    100          
    100          
    100          
    100          
    100          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    100          
    100          
    100          
    50          
    50          
    100          
    100          
7443              
7444             if (0) {
7445             }
7446 3231         9121  
7447 0 50 33     0 # join separated multiple-octet
    50 33        
    50 33        
      33        
      66        
      33        
7448 6         88 elsif ($char[$i] =~ /\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/oxms) {
7449             if ( ($i+3 <= $#char) and (grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/oxms, @char[$i+1..$i+3]) == 3) and (CORE::eval(sprintf '"%s%s%s%s"', @char[$i..$i+3]) =~ /\A $q_char \z/oxms)) {
7450             $char[$i] .= join '', splice @char, $i+1, 3;
7451 0         0 }
7452             elsif (($i+2 <= $#char) and (grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/oxms, @char[$i+1..$i+2]) == 2) and (CORE::eval(sprintf '"%s%s%s"', @char[$i..$i+2]) =~ /\A $q_char \z/oxms)) {
7453             $char[$i] .= join '', splice @char, $i+1, 2;
7454 0         0 }
7455             elsif (($i+1 <= $#char) and (grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/oxms, $char[$i+1 ]) == 1) and (CORE::eval(sprintf '"%s%s"', @char[$i..$i+1]) =~ /\A $q_char \z/oxms)) {
7456             $char[$i] .= join '', splice @char, $i+1, 1;
7457             }
7458             }
7459              
7460 0         0 # open character class [...]
7461             elsif ($char[$i] eq '[') {
7462             my $left = $i;
7463              
7464             # [] make die "Unmatched [] in regexp ...\n"
7465 598 100       757 # (and so on)
7466 598         1339  
7467             if ($char[$i+1] eq ']') {
7468             $i++;
7469 3         6 }
7470 598 50       677  
7471 2607         3736 while (1) {
7472             if (++$i > $#char) {
7473 0 100       0 die __FILE__, ": Unmatched [] in regexp\n";
7474 2607         3783 }
7475             if ($char[$i] eq ']') {
7476             my $right = $i;
7477 598 100       697  
7478 598         2693 # [...]
  90         190  
7479             if (grep(/\A [\$\@]/oxms,@char[$left+1..$right-1]) >= 1) {
7480             splice @char, $left, $right-$left+1, sprintf(q{@{[Eoldutf8::charlist_qr(%s,'%s')]}}, join(',', map {qq_stuff($delimiter,$end_delimiter,$_)} @char[$left+1..$right-1]), $modifier);
7481 270         472 }
7482             else {
7483             splice @char, $left, $right-$left+1, Eoldutf8::charlist_qr(@char[$left+1..$right-1], $modifier);
7484 508         1792 }
7485 598         1004  
7486             $i = $left;
7487             last;
7488             }
7489             }
7490             }
7491              
7492 598         1487 # open character class [^...]
7493             elsif ($char[$i] eq '[^') {
7494             my $left = $i;
7495              
7496             # [^] make die "Unmatched [] in regexp ...\n"
7497 328 100       414 # (and so on)
7498 328         663  
7499             if ($char[$i+1] eq ']') {
7500             $i++;
7501 5         9 }
7502 328 50       380  
7503 1447         1942 while (1) {
7504             if (++$i > $#char) {
7505 0 100       0 die __FILE__, ": Unmatched [] in regexp\n";
7506 1447         2022 }
7507             if ($char[$i] eq ']') {
7508             my $right = $i;
7509 328 100       353  
7510 328         1423 # [^...]
  90         218  
7511             if (grep(/\A [\$\@]/oxms,@char[$left+1..$right-1]) >= 1) {
7512             splice @char, $left, $right-$left+1, sprintf(q{@{[Eoldutf8::charlist_not_qr(%s,'%s')]}}, join(',', map {qq_stuff($delimiter,$end_delimiter,$_)} @char[$left+1..$right-1]), $modifier);
7513 270         431 }
7514             else {
7515             splice @char, $left, $right-$left+1, Eoldutf8::charlist_not_qr(@char[$left+1..$right-1], $modifier);
7516 238         649 }
7517 328         584  
7518             $i = $left;
7519             last;
7520             }
7521             }
7522             }
7523              
7524 328         779 # rewrite character class or escape character
7525             elsif (my $char = character_class($char[$i],$modifier)) {
7526             $char[$i] = $char;
7527             }
7528              
7529 215 50       519 # /i modifier
7530 44         85 elsif ($ignorecase and ($char[$i] =~ /\A [\x00-\xFF] \z/oxms) and (Eoldutf8::uc($char[$i]) ne Eoldutf8::fc($char[$i]))) {
7531             if (CORE::length(Eoldutf8::fc($char[$i])) == 1) {
7532             $char[$i] = '[' . Eoldutf8::uc($char[$i]) . Eoldutf8::fc($char[$i]) . ']';
7533 44         97 }
7534             else {
7535             $char[$i] = '(?:' . Eoldutf8::uc($char[$i]) . '|' . Eoldutf8::fc($char[$i]) . ')';
7536             }
7537             }
7538              
7539 0 50       0 # \u \l \U \L \F \Q \E
7540 1         5 elsif ($char[$i] =~ /\A [<>] \z/oxms) {
7541             if ($right_e < $left_e) {
7542             $char[$i] = '\\' . $char[$i];
7543             }
7544 0         0 }
7545 0         0 elsif ($char[$i] eq '\u') {
7546             $char[$i] = '@{[Eoldutf8::ucfirst qq<';
7547             $left_e++;
7548 0         0 }
7549 0         0 elsif ($char[$i] eq '\l') {
7550             $char[$i] = '@{[Eoldutf8::lcfirst qq<';
7551             $left_e++;
7552 0         0 }
7553 1         2 elsif ($char[$i] eq '\U') {
7554             $char[$i] = '@{[Eoldutf8::uc qq<';
7555             $left_e++;
7556 1         4 }
7557 1         2 elsif ($char[$i] eq '\L') {
7558             $char[$i] = '@{[Eoldutf8::lc qq<';
7559             $left_e++;
7560 1         3 }
7561 16         33 elsif ($char[$i] eq '\F') {
7562             $char[$i] = '@{[Eoldutf8::fc qq<';
7563             $left_e++;
7564 16         36 }
7565 20         36 elsif ($char[$i] eq '\Q') {
7566             $char[$i] = '@{[CORE::quotemeta qq<';
7567             $left_e++;
7568 20 50       45 }
7569 38         75 elsif ($char[$i] eq '\E') {
7570 38         58 if ($right_e < $left_e) {
7571             $char[$i] = '>]}';
7572             $right_e++;
7573 38         82 }
7574             else {
7575             $char[$i] = '';
7576             }
7577 0         0 }
7578 0 0       0 elsif ($char[$i] eq '\Q') {
7579 0         0 while (1) {
7580             if (++$i > $#char) {
7581 0 0       0 last;
7582 0         0 }
7583             if ($char[$i] eq '\E') {
7584             last;
7585             }
7586             }
7587             }
7588             elsif ($char[$i] eq '\E') {
7589             }
7590              
7591 0 0       0 # $0 --> $0
7592 0         0 elsif ($char[$i] =~ /\A \$ 0 \z/oxms) {
7593             if ($ignorecase) {
7594             $char[$i] = '@{[Eoldutf8::ignorecase(' . $char[$i] . ')]}';
7595             }
7596 0 0       0 }
7597 0         0 elsif ($char[$i] =~ /\A \$ \{ (?>\s*) 0 (?>\s*) \} \z/oxms) {
7598             if ($ignorecase) {
7599             $char[$i] = '@{[Eoldutf8::ignorecase(' . $char[$i] . ')]}';
7600             }
7601             }
7602              
7603             # $$ --> $$
7604             elsif ($char[$i] =~ /\A \$\$ \z/oxms) {
7605             }
7606              
7607             # $1, $2, $3 --> $2, $3, $4 after s/// with multibyte anchoring
7608 0         0 # $1, $2, $3 --> $1, $2, $3 otherwise
7609 0 0       0 elsif ($char[$i] =~ /\A \$ ((?>[1-9][0-9]*)) \z/oxms) {
7610 0         0 $char[$i] = e_capture($1);
7611             if ($ignorecase) {
7612             $char[$i] = '@{[Eoldutf8::ignorecase(' . $char[$i] . ')]}';
7613             }
7614 0         0 }
7615 0 0       0 elsif ($char[$i] =~ /\A \$ \{ (?>\s*) ((?>[1-9][0-9]*)) (?>\s*) \} \z/oxms) {
7616 0         0 $char[$i] = e_capture($1);
7617             if ($ignorecase) {
7618             $char[$i] = '@{[Eoldutf8::ignorecase(' . $char[$i] . ')]}';
7619             }
7620             }
7621              
7622 0         0 # $$foo[ ... ] --> $ $foo->[ ... ]
7623 0 0       0 elsif ($char[$i] =~ /\A \$ ((?> \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) ( \[ (?:$qq_bracket)*? \] ) \z/oxms) {
7624 0         0 $char[$i] = e_capture($1.'->'.$2);
7625             if ($ignorecase) {
7626             $char[$i] = '@{[Eoldutf8::ignorecase(' . $char[$i] . ')]}';
7627             }
7628             }
7629              
7630 0         0 # $$foo{ ... } --> $ $foo->{ ... }
7631 0 0       0 elsif ($char[$i] =~ /\A \$ ((?> \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) ( \{ (?:$qq_brace)*? \} ) \z/oxms) {
7632 0         0 $char[$i] = e_capture($1.'->'.$2);
7633             if ($ignorecase) {
7634             $char[$i] = '@{[Eoldutf8::ignorecase(' . $char[$i] . ')]}';
7635             }
7636             }
7637              
7638 0         0 # $$foo
7639 0 0       0 elsif ($char[$i] =~ /\A \$ ((?> \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) \z/oxms) {
7640 0         0 $char[$i] = e_capture($1);
7641             if ($ignorecase) {
7642             $char[$i] = '@{[Eoldutf8::ignorecase(' . $char[$i] . ')]}';
7643             }
7644             }
7645              
7646 0 50       0 # $`, ${`}, $PREMATCH, ${PREMATCH}, ${^PREMATCH} --> Eoldutf8::PREMATCH()
7647 8         144 elsif ($char[$i] =~ /\A ( \$` | \$\{`\} | \$ (?>\s*) PREMATCH | \$ (?>\s*) \{ (?>\s*) PREMATCH (?>\s*) \} | \$ (?>\s*) \{\^PREMATCH\} ) \z/oxmsgc) {
7648             if ($ignorecase) {
7649             $char[$i] = '@{[Eoldutf8::ignorecase(Eoldutf8::PREMATCH())]}';
7650 0         0 }
7651             else {
7652             $char[$i] = '@{[Eoldutf8::PREMATCH()]}';
7653             }
7654             }
7655              
7656 8 50       29 # $&, ${&}, $MATCH, ${MATCH}, ${^MATCH} --> Eoldutf8::MATCH()
7657 8         153 elsif ($char[$i] =~ /\A ( \$& | \$\{&\} | \$ (?>\s*) MATCH | \$ (?>\s*) \{ (?>\s*) MATCH (?>\s*) \} | \$ (?>\s*) \{\^MATCH\} ) \z/oxmsgc) {
7658             if ($ignorecase) {
7659             $char[$i] = '@{[Eoldutf8::ignorecase(Eoldutf8::MATCH())]}';
7660 0         0 }
7661             else {
7662             $char[$i] = '@{[Eoldutf8::MATCH()]}';
7663             }
7664             }
7665              
7666 8 50       31 # $POSTMATCH, ${POSTMATCH}, ${^POSTMATCH} --> Eoldutf8::POSTMATCH()
7667 6         74 elsif ($char[$i] =~ /\A ( \$ (?>\s*) POSTMATCH | \$ (?>\s*) \{ (?>\s*) POSTMATCH (?>\s*) \} | \$ (?>\s*) \{\^POSTMATCH\} ) \z/oxmsgc) {
7668             if ($ignorecase) {
7669             $char[$i] = '@{[Eoldutf8::ignorecase(Eoldutf8::POSTMATCH())]}';
7670 0         0 }
7671             else {
7672             $char[$i] = '@{[Eoldutf8::POSTMATCH()]}';
7673             }
7674             }
7675              
7676 6 0       20 # ${ foo }
7677 0         0 elsif ($char[$i] =~ /\A \$ (?>\s*) \{ ((?> \s* [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* \s* )) \} \z/oxms) {
7678             if ($ignorecase) {
7679             $char[$i] = '@{[Eoldutf8::ignorecase(' . $char[$i] . ')]}';
7680             }
7681             }
7682              
7683 0         0 # ${ ... }
7684 0 0       0 elsif ($char[$i] =~ /\A \$ (?>\s*) \{ ( .+ ) \} \z/oxms) {
7685 0         0 $char[$i] = e_capture($1);
7686             if ($ignorecase) {
7687             $char[$i] = '@{[Eoldutf8::ignorecase(' . $char[$i] . ')]}';
7688             }
7689             }
7690              
7691 0         0 # $scalar or @array
7692 42 100       107 elsif ($char[$i] =~ /\A [\$\@].+ /oxms) {
7693 42         122 $char[$i] = e_string($char[$i]);
7694             if ($ignorecase) {
7695             $char[$i] = '@{[Eoldutf8::ignorecase(' . $char[$i] . ')]}';
7696             }
7697             }
7698              
7699 9 100 66     27 # quote character before ? + * {
    50          
7700             elsif (($i >= 1) and ($char[$i] =~ /\A [\?\+\*\{] \z/oxms)) {
7701             if ($char[$i-1] =~ /\A (?:[\x00-\xFF]|\\[0-7]{2,3}|\\x[0-9-A-Fa-f]{1,2}) \z/oxms) {
7702 188         1363 }
7703 0 0       0 elsif (($ope =~ /\A m? \z/oxms) and ($delimiter eq '?')) {
7704 0         0 my $char = $char[$i-1];
7705             if ($char[$i] eq '{') {
7706             die __FILE__, qq{: "MULTIBYTE{n}" should be "(MULTIBYTE){n}" in m?? (and shift \$1,\$2,\$3,...) ($char){n}\n};
7707 0         0 }
7708             else {
7709             die __FILE__, qq{: "MULTIBYTE$char[$i]" should be "(MULTIBYTE)$char[$i]" in m?? (and shift \$1,\$2,\$3,...) ($char)$char[$i]\n};
7710             }
7711 0         0 }
7712             else {
7713             $char[$i-1] = '(?:' . $char[$i-1] . ')';
7714             }
7715             }
7716             }
7717 187         798  
7718 1344 50       2408 # make regexp string
7719 1344 0 0     2760 $modifier =~ tr/i//d;
7720 0         0 if ($left_e > $right_e) {
7721             if (($ope =~ /\A m? \z/oxms) and ($delimiter eq '?')) {
7722             return join '', $ope, $delimiter, $anchor, @char, '>]}' x ($left_e - $right_e), $matched, $end_delimiter, $modifier;
7723 0         0 }
7724             else {
7725             return join '', $ope, $delimiter, $anchor, '(?:', @char, '>]}' x ($left_e - $right_e), ')', $matched, $end_delimiter, $modifier;
7726 0 100 100     0 }
7727 1344         7369 }
7728             if (($ope =~ /\A m? \z/oxms) and ($delimiter eq '?')) {
7729             return join '', $ope, $delimiter, $anchor, @char, $matched, $end_delimiter, $modifier;
7730 32         232 }
7731             else {
7732             return join '', $ope, $delimiter, $anchor, '(?:', @char, ')', $matched, $end_delimiter, $modifier;
7733             }
7734             }
7735              
7736             #
7737             # double quote stuff
7738 1312     540 0 10011 #
7739             sub qq_stuff {
7740             my($delimiter,$end_delimiter,$stuff) = @_;
7741 540 100       884  
7742 540         1038 # scalar variable or array variable
7743             if ($stuff =~ /\A [\$\@] /oxms) {
7744             return $stuff;
7745             }
7746 300         949  
  240         565  
7747 320         810 # quote by delimiter
7748 240 50       564 my %octet = map {$_ => 1} ($stuff =~ /\G ([\x00-\xFF]) /oxmsg);
7749 240 50       433 for my $char (qw( ! " $ % & * + - . / : = ? @ ^ ` | ~ ), "\x00".."\x1F", "\x7F", "\xFF") {
7750 240 50       373 next if $char eq $delimiter;
7751 240         425 next if $char eq $end_delimiter;
7752             if (not $octet{$char}) {
7753             return join '', 'qq', $char, $stuff, $char;
7754 240         1030 }
7755             }
7756             return join '', 'qq', '<', $stuff, '>';
7757             }
7758              
7759             #
7760             # escape regexp (m'', qr'', and m''b, qr''b)
7761 0     15 0 0 #
7762 15   100     119 sub e_qr_q {
7763             my($ope,$delimiter,$end_delimiter,$string,$modifier) = @_;
7764 15         62 $modifier ||= '';
7765 15 50       33  
7766 15         36 $modifier =~ tr/p//d;
7767 0         0 if ($modifier =~ /([adlu])/oxms) {
7768 0 0       0 my $line = 0;
7769 0         0 for (my $i=0; my($package,$filename,$use_line,$subroutine) = caller($i); $i++) {
7770 0         0 if ($filename ne __FILE__) {
7771             $line = $use_line + (CORE::substr($_,0,pos($_)) =~ tr/\n//) + 1;
7772             last;
7773 0         0 }
7774             }
7775             die qq{Unsupported modifier "$1" used at line $line.\n};
7776 0         0 }
7777              
7778             $slash = 'div';
7779 15 100       25  
    100          
7780 15         39 # literal null string pattern
7781 8         9 if ($string eq '') {
7782 8         11 $modifier =~ tr/bB//d;
7783             $modifier =~ tr/i//d;
7784             return join '', $ope, $delimiter, $end_delimiter, $modifier;
7785             }
7786              
7787 8         35 # with /b /B modifier
7788             elsif ($modifier =~ tr/bB//d) {
7789             return e_qr_qb($ope,$delimiter,$end_delimiter,$string,$modifier);
7790             }
7791              
7792 3         8 # without /b /B modifier
7793             else {
7794             return e_qr_qt($ope,$delimiter,$end_delimiter,$string,$modifier);
7795             }
7796             }
7797              
7798             #
7799             # escape regexp (m'', qr'')
7800 4     4 0 15 #
7801             sub e_qr_qt {
7802 4 50       13 my($ope,$delimiter,$end_delimiter,$string,$modifier) = @_;
7803              
7804             my $ignorecase = ($modifier =~ /i/oxms) ? 1 : 0;
7805 4         10  
7806             # split regexp
7807             my @char = $string =~ /\G((?>
7808             [^\x80-\xFF\\\[\$\@\/] |
7809             (?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF] |
7810             \[\^ |
7811             \[\: (?>[a-z]+) \:\] |
7812             \[\:\^ (?>[a-z]+) \:\] |
7813             [\$\@\/] |
7814             \\ (?:$q_char) |
7815             (?:$q_char)
7816             ))/oxmsg;
7817 4         296  
7818 4 50 33     27 # unescape character
    50 33        
    50 66        
    50          
    50          
    50          
7819             for (my $i=0; $i <= $#char; $i++) {
7820             if (0) {
7821             }
7822 5         37  
7823 0         0 # open character class [...]
7824 0 0       0 elsif ($char[$i] eq '[') {
7825 0         0 my $left = $i;
7826             if ($char[$i+1] eq ']') {
7827 0         0 $i++;
7828 0 0       0 }
7829 0         0 while (1) {
7830             if (++$i > $#char) {
7831 0 0       0 die __FILE__, ": Unmatched [] in regexp\n";
7832 0         0 }
7833             if ($char[$i] eq ']') {
7834             my $right = $i;
7835 0         0  
7836             # [...]
7837 0         0 splice @char, $left, $right-$left+1, Eoldutf8::charlist_qr(@char[$left+1..$right-1], $modifier);
7838 0         0  
7839             $i = $left;
7840             last;
7841             }
7842             }
7843             }
7844              
7845 0         0 # open character class [^...]
7846 0 0       0 elsif ($char[$i] eq '[^') {
7847 0         0 my $left = $i;
7848             if ($char[$i+1] eq ']') {
7849 0         0 $i++;
7850 0 0       0 }
7851 0         0 while (1) {
7852             if (++$i > $#char) {
7853 0 0       0 die __FILE__, ": Unmatched [] in regexp\n";
7854 0         0 }
7855             if ($char[$i] eq ']') {
7856             my $right = $i;
7857 0         0  
7858             # [^...]
7859 0         0 splice @char, $left, $right-$left+1, Eoldutf8::charlist_not_qr(@char[$left+1..$right-1], $modifier);
7860 0         0  
7861             $i = $left;
7862             last;
7863             }
7864             }
7865             }
7866              
7867 0         0 # escape $ @ / and \
7868             elsif ($char[$i] =~ /\A [\$\@\/\\] \z/oxms) {
7869             $char[$i] = '\\' . $char[$i];
7870             }
7871              
7872 0         0 # rewrite character class or escape character
7873             elsif (my $char = character_class($char[$i],$modifier)) {
7874             $char[$i] = $char;
7875             }
7876              
7877 0 0       0 # /i modifier
7878 0         0 elsif ($ignorecase and ($char[$i] =~ /\A [\x00-\xFF] \z/oxms) and (Eoldutf8::uc($char[$i]) ne Eoldutf8::fc($char[$i]))) {
7879             if (CORE::length(Eoldutf8::fc($char[$i])) == 1) {
7880             $char[$i] = '[' . Eoldutf8::uc($char[$i]) . Eoldutf8::fc($char[$i]) . ']';
7881 0         0 }
7882             else {
7883             $char[$i] = '(?:' . Eoldutf8::uc($char[$i]) . '|' . Eoldutf8::fc($char[$i]) . ')';
7884             }
7885             }
7886              
7887 0 0       0 # quote character before ? + * {
7888             elsif (($i >= 1) and ($char[$i] =~ /\A [\?\+\*\{] \z/oxms)) {
7889             if ($char[$i-1] =~ /\A [\x00-\xFF] \z/oxms) {
7890 0         0 }
7891             else {
7892             $char[$i-1] = '(?:' . $char[$i-1] . ')';
7893             }
7894             }
7895 0         0 }
7896 4         10  
7897             $delimiter = '/';
7898 4         6 $end_delimiter = '/';
7899 4         8  
7900             $modifier =~ tr/i//d;
7901             return join '', $ope, $delimiter, $anchor, '(?:', @char, ')', $matched, $end_delimiter, $modifier;
7902             }
7903              
7904             #
7905             # escape regexp (m''b, qr''b)
7906 4     3 0 40 #
7907             sub e_qr_qb {
7908             my($ope,$delimiter,$end_delimiter,$string,$modifier) = @_;
7909 3         8  
7910             # split regexp
7911             my @char = $string =~ /\G ((?>[^\\]|\\\\|[\x00-\xFF])) /oxmsg;
7912 3         16  
7913 3 50       11 # unescape character
    50          
7914             for (my $i=0; $i <= $#char; $i++) {
7915             if (0) {
7916             }
7917 9         30  
7918             # remain \\
7919             elsif ($char[$i] eq '\\\\') {
7920             }
7921              
7922 0         0 # escape $ @ / and \
7923             elsif ($char[$i] =~ /\A [\$\@\/\\] \z/oxms) {
7924             $char[$i] = '\\' . $char[$i];
7925             }
7926 0         0 }
7927 3         6  
7928 3         5 $delimiter = '/';
7929             $end_delimiter = '/';
7930             return join '', $ope, $delimiter, '(?:', @char, ')', $matched, $end_delimiter, $modifier;
7931             }
7932              
7933             #
7934             # escape regexp (s/here//)
7935 3     110 0 19 #
7936 110   100     315 sub e_s1 {
7937             my($ope,$delimiter,$end_delimiter,$string,$modifier) = @_;
7938 110         445 $modifier ||= '';
7939 110 50       172  
7940 110         310 $modifier =~ tr/p//d;
7941 0         0 if ($modifier =~ /([adlu])/oxms) {
7942 0 0       0 my $line = 0;
7943 0         0 for (my $i=0; my($package,$filename,$use_line,$subroutine) = caller($i); $i++) {
7944 0         0 if ($filename ne __FILE__) {
7945             $line = $use_line + (CORE::substr($_,0,pos($_)) =~ tr/\n//) + 1;
7946             last;
7947 0         0 }
7948             }
7949             die qq{Unsupported modifier "$1" used at line $line.\n};
7950 0         0 }
7951              
7952             $slash = 'div';
7953 110 100       203  
    100          
7954 110         392 # literal null string pattern
7955 8         8 if ($string eq '') {
7956 8         8 $modifier =~ tr/bB//d;
7957             $modifier =~ tr/i//d;
7958             return join '', $ope, $delimiter, $end_delimiter, $modifier;
7959             }
7960              
7961             # /b /B modifier
7962             elsif ($modifier =~ tr/bB//d) {
7963 8 50       44  
7964 1         3 # choice again delimiter
7965 0         0 if ($delimiter =~ / [\@:] /oxms) {
  0         0  
7966 0 0       0 my @char = $string =~ /\G ([\x00-\xFF]) /oxmsg;
    0          
    0          
    0          
7967 0         0 my %octet = map {$_ => 1} @char;
7968 0         0 if (not $octet{')'}) {
7969             $delimiter = '(';
7970             $end_delimiter = ')';
7971 0         0 }
7972 0         0 elsif (not $octet{'}'}) {
7973             $delimiter = '{';
7974             $end_delimiter = '}';
7975 0         0 }
7976 0         0 elsif (not $octet{']'}) {
7977             $delimiter = '[';
7978             $end_delimiter = ']';
7979 0         0 }
7980 0         0 elsif (not $octet{'>'}) {
7981             $delimiter = '<';
7982             $end_delimiter = '>';
7983 0         0 }
7984 0 0       0 else {
7985 0         0 for my $char (qw( ! " $ % & * + - . / = ? ^ ` | ~ ), "\x00".."\x1F", "\x7F", "\xFF") {
7986 0         0 if (not $octet{$char}) {
7987 0         0 $delimiter = $char;
7988             $end_delimiter = $char;
7989             last;
7990             }
7991             }
7992             }
7993 0         0 }
7994 1         2  
7995             my $prematch = '';
7996             return join '', $ope, $delimiter, $prematch, '(?:', $string, ')', $matched, $end_delimiter, $modifier;
7997 1 100       12 }
7998 101         280  
7999             my $ignorecase = ($modifier =~ /i/oxms) ? 1 : 0;
8000             my $metachar = qr/[\@\\|[\]{^]/oxms;
8001 101         422  
8002             # split regexp
8003             my @char = $string =~ /\G((?>
8004             [^\x80-\xFF\\\$\@\[\(]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF] |
8005             \\ (?>[1-9][0-9]*) |
8006             \\g (?>\s*) (?>[1-9][0-9]*) |
8007             \\g (?>\s*) \{ (?>\s*) (?>[1-9][0-9]*) (?>\s*) \} |
8008             \\g (?>\s*) \{ (?>\s*) - (?>\s*) (?>[1-9][0-9]*) (?>\s*) \} |
8009             \\x (?>[0-9A-Fa-f]{1,2}) |
8010             \\ (?>[0-7]{2,3}) |
8011             \\c [\x40-\x5F] |
8012             \\x\{ (?>[0-9A-Fa-f]+) \} |
8013             \\o\{ (?>[0-7]+) \} |
8014             \\[bBNpP]\{ (?>[^\x80-\xFF0-9\}][^\x80-\xFF\}]*) \} |
8015             \\ $q_char |
8016             \$` | \$\{`\} | \$ (?>\s*) PREMATCH | \$ (?>\s*) \{ (?>\s*) PREMATCH (?>\s*) \} | \$ (?>\s*) \{\^PREMATCH\} |
8017             \$& | \$\{&\} | \$ (?>\s*) MATCH | \$ (?>\s*) \{ (?>\s*) MATCH (?>\s*) \} | \$ (?>\s*) \{\^MATCH\} |
8018             \$ (?>\s*) POSTMATCH | \$ (?>\s*) \{ (?>\s*) POSTMATCH (?>\s*) \} | \$ (?>\s*) \{\^POSTMATCH\} |
8019             [\$\@] $qq_variable |
8020             \$ (?>\s* [0-9]+) |
8021             \$ (?>\s*) \{ (?>\s* [0-9]+ \s*) \} |
8022             \$ \$ (?![\w\{]) |
8023             \$ (?>\s*) \$ (?>\s*) $qq_variable |
8024             \[\^ |
8025             \[\: (?>[a-z]+) :\] |
8026             \[\:\^ (?>[a-z]+) :\] |
8027             \(\? |
8028             $q_char
8029             ))/oxmsg;
8030 101 50       41660  
8031 101         1166 # choice again delimiter
  0         0  
8032 0 0       0 if ($delimiter =~ / [\@:] /oxms) {
    0          
    0          
    0          
8033 0         0 my %octet = map {$_ => 1} @char;
8034 0         0 if (not $octet{')'}) {
8035             $delimiter = '(';
8036             $end_delimiter = ')';
8037 0         0 }
8038 0         0 elsif (not $octet{'}'}) {
8039             $delimiter = '{';
8040             $end_delimiter = '}';
8041 0         0 }
8042 0         0 elsif (not $octet{']'}) {
8043             $delimiter = '[';
8044             $end_delimiter = ']';
8045 0         0 }
8046 0         0 elsif (not $octet{'>'}) {
8047             $delimiter = '<';
8048             $end_delimiter = '>';
8049 0         0 }
8050 0 0       0 else {
8051 0         0 for my $char (qw( ! " $ % & * + - . / = ? ^ ` | ~ ), "\x00".."\x1F", "\x7F", "\xFF") {
8052 0         0 if (not $octet{$char}) {
8053 0         0 $delimiter = $char;
8054             $end_delimiter = $char;
8055             last;
8056             }
8057             }
8058             }
8059             }
8060 0         0  
  101         232  
8061             # count '('
8062 425         738 my $parens = grep { $_ eq '(' } @char;
8063 101         162  
8064 101         152 my $left_e = 0;
8065             my $right_e = 0;
8066             for (my $i=0; $i <= $#char; $i++) {
8067 101 50 33     298  
    50 33        
    100          
    100          
    50          
    50          
8068 346         2658 # "\L\u" --> "\u\L"
8069             if (($char[$i] eq '\L') and ($char[$i+1] eq '\u')) {
8070             @char[$i,$i+1] = @char[$i+1,$i];
8071             }
8072              
8073 0         0 # "\U\l" --> "\l\U"
8074             elsif (($char[$i] eq '\U') and ($char[$i+1] eq '\l')) {
8075             @char[$i,$i+1] = @char[$i+1,$i];
8076             }
8077              
8078 0         0 # octal escape sequence
8079             elsif ($char[$i] =~ /\A \\o \{ ([0-7]+) \} \z/oxms) {
8080             $char[$i] = Eoldutf8::octchr($1);
8081             }
8082              
8083 1         3 # hexadecimal escape sequence
8084             elsif ($char[$i] =~ /\A \\x \{ ([0-9A-Fa-f]+) \} \z/oxms) {
8085             $char[$i] = Eoldutf8::hexchr($1);
8086             }
8087              
8088             # \b{...} --> b\{...}
8089             # \B{...} --> B\{...}
8090             # \N{CHARNAME} --> N\{CHARNAME}
8091             # \p{PROPERTY} --> p\{PROPERTY}
8092 1         4 # \P{PROPERTY} --> P\{PROPERTY}
8093             elsif ($char[$i] =~ /\A \\ ([bBNpP]) ( \{ ([^\x80-\xFF0-9\}][^\x80-\xFF\}]*) \} ) \z/oxms) {
8094             $char[$i] = $1 . '\\' . $2;
8095             }
8096              
8097 0         0 # \p, \P, \X --> p, P, X
8098             elsif ($char[$i] =~ /\A \\ ( [pPX] ) \z/oxms) {
8099             $char[$i] = $1;
8100 0 50 66     0 }
    100 66        
    50 100        
    100          
    100          
    100          
    50          
    50          
    50          
    50          
    50          
    100          
    100          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    100          
    100          
    100          
    50          
    50          
    100          
    100          
8101              
8102             if (0) {
8103             }
8104 346         1162  
8105 0 0 0     0 # join separated multiple-octet
    0 0        
    0 0        
      0        
      0        
      0        
8106 0         0 elsif ($char[$i] =~ /\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/oxms) {
8107             if ( ($i+3 <= $#char) and (grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/oxms, @char[$i+1..$i+3]) == 3) and (CORE::eval(sprintf '"%s%s%s%s"', @char[$i..$i+3]) =~ /\A $q_char \z/oxms)) {
8108             $char[$i] .= join '', splice @char, $i+1, 3;
8109 0         0 }
8110             elsif (($i+2 <= $#char) and (grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/oxms, @char[$i+1..$i+2]) == 2) and (CORE::eval(sprintf '"%s%s%s"', @char[$i..$i+2]) =~ /\A $q_char \z/oxms)) {
8111             $char[$i] .= join '', splice @char, $i+1, 2;
8112 0         0 }
8113             elsif (($i+1 <= $#char) and (grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/oxms, $char[$i+1 ]) == 1) and (CORE::eval(sprintf '"%s%s"', @char[$i..$i+1]) =~ /\A $q_char \z/oxms)) {
8114             $char[$i] .= join '', splice @char, $i+1, 1;
8115             }
8116             }
8117              
8118 0         0 # open character class [...]
8119 20 50       31 elsif ($char[$i] eq '[') {
8120 20         79 my $left = $i;
8121             if ($char[$i+1] eq ']') {
8122 0         0 $i++;
8123 20 50       29 }
8124 79         124 while (1) {
8125             if (++$i > $#char) {
8126 0 100       0 die __FILE__, ": Unmatched [] in regexp\n";
8127 79         254 }
8128             if ($char[$i] eq ']') {
8129             my $right = $i;
8130 20 50       35  
8131 20         126 # [...]
  0         0  
8132             if (grep(/\A [\$\@]/oxms,@char[$left+1..$right-1]) >= 1) {
8133             splice @char, $left, $right-$left+1, sprintf(q{@{[Eoldutf8::charlist_qr(%s,'%s')]}}, join(',', map {qq_stuff($delimiter,$end_delimiter,$_)} @char[$left+1..$right-1]), $modifier);
8134 0         0 }
8135             else {
8136             splice @char, $left, $right-$left+1, Eoldutf8::charlist_qr(@char[$left+1..$right-1], $modifier);
8137 20         92 }
8138 20         41  
8139             $i = $left;
8140             last;
8141             }
8142             }
8143             }
8144              
8145 20         54 # open character class [^...]
8146 0 0       0 elsif ($char[$i] eq '[^') {
8147 0         0 my $left = $i;
8148             if ($char[$i+1] eq ']') {
8149 0         0 $i++;
8150 0 0       0 }
8151 0         0 while (1) {
8152             if (++$i > $#char) {
8153 0 0       0 die __FILE__, ": Unmatched [] in regexp\n";
8154 0         0 }
8155             if ($char[$i] eq ']') {
8156             my $right = $i;
8157 0 0       0  
8158 0         0 # [^...]
  0         0  
8159             if (grep(/\A [\$\@]/oxms,@char[$left+1..$right-1]) >= 1) {
8160             splice @char, $left, $right-$left+1, sprintf(q{@{[Eoldutf8::charlist_not_qr(%s,'%s')]}}, join(',', map {qq_stuff($delimiter,$end_delimiter,$_)} @char[$left+1..$right-1]), $modifier);
8161 0         0 }
8162             else {
8163             splice @char, $left, $right-$left+1, Eoldutf8::charlist_not_qr(@char[$left+1..$right-1], $modifier);
8164 0         0 }
8165 0         0  
8166             $i = $left;
8167             last;
8168             }
8169             }
8170             }
8171              
8172 0         0 # rewrite character class or escape character
8173             elsif (my $char = character_class($char[$i],$modifier)) {
8174             $char[$i] = $char;
8175             }
8176              
8177 11 50       26 # /i modifier
8178 3         8 elsif ($ignorecase and ($char[$i] =~ /\A [\x00-\xFF] \z/oxms) and (Eoldutf8::uc($char[$i]) ne Eoldutf8::fc($char[$i]))) {
8179             if (CORE::length(Eoldutf8::fc($char[$i])) == 1) {
8180             $char[$i] = '[' . Eoldutf8::uc($char[$i]) . Eoldutf8::fc($char[$i]) . ']';
8181 3         7 }
8182             else {
8183             $char[$i] = '(?:' . Eoldutf8::uc($char[$i]) . '|' . Eoldutf8::fc($char[$i]) . ')';
8184             }
8185             }
8186              
8187 0 50       0 # \u \l \U \L \F \Q \E
8188 8         24 elsif ($char[$i] =~ /\A [<>] \z/oxms) {
8189             if ($right_e < $left_e) {
8190             $char[$i] = '\\' . $char[$i];
8191             }
8192 0         0 }
8193 0         0 elsif ($char[$i] eq '\u') {
8194             $char[$i] = '@{[Eoldutf8::ucfirst qq<';
8195             $left_e++;
8196 0         0 }
8197 0         0 elsif ($char[$i] eq '\l') {
8198             $char[$i] = '@{[Eoldutf8::lcfirst qq<';
8199             $left_e++;
8200 0         0 }
8201 0         0 elsif ($char[$i] eq '\U') {
8202             $char[$i] = '@{[Eoldutf8::uc qq<';
8203             $left_e++;
8204 0         0 }
8205 0         0 elsif ($char[$i] eq '\L') {
8206             $char[$i] = '@{[Eoldutf8::lc qq<';
8207             $left_e++;
8208 0         0 }
8209 0         0 elsif ($char[$i] eq '\F') {
8210             $char[$i] = '@{[Eoldutf8::fc qq<';
8211             $left_e++;
8212 0         0 }
8213 5         10 elsif ($char[$i] eq '\Q') {
8214             $char[$i] = '@{[CORE::quotemeta qq<';
8215             $left_e++;
8216 5 50       11 }
8217 5         12 elsif ($char[$i] eq '\E') {
8218 5         6 if ($right_e < $left_e) {
8219             $char[$i] = '>]}';
8220             $right_e++;
8221 5         10 }
8222             else {
8223             $char[$i] = '';
8224             }
8225 0         0 }
8226 0 0       0 elsif ($char[$i] eq '\Q') {
8227 0         0 while (1) {
8228             if (++$i > $#char) {
8229 0 0       0 last;
8230 0         0 }
8231             if ($char[$i] eq '\E') {
8232             last;
8233             }
8234             }
8235             }
8236             elsif ($char[$i] eq '\E') {
8237             }
8238              
8239             # \0 --> \0
8240             elsif ($char[$i] =~ /\A \\ (?>\s*) 0 \z/oxms) {
8241             }
8242              
8243             # \g{N}, \g{-N}
8244              
8245             # P.108 Using Simple Patterns
8246             # in Chapter 7: In the World of Regular Expressions
8247             # of ISBN 978-0-596-52010-6 Learning Perl, Fifth Edition
8248              
8249             # P.221 Capturing
8250             # in Chapter 5: Pattern Matching
8251             # of ISBN 978-0-596-00492-7 Programming Perl 4th Edition.
8252              
8253             # \g{-1}, \g{-2}, \g{-3} --> \g{-1}, \g{-2}, \g{-3}
8254             elsif ($char[$i] =~ /\A \\g (?>\s*) \{ (?>\s*) - (?>\s*) ((?>[1-9][0-9]*)) (?>\s*) \} \z/oxms) {
8255             }
8256              
8257             # \g{1}, \g{2}, \g{3} --> \g{2}, \g{3}, \g{4} (only when multibyte anchoring is enable)
8258             elsif ($char[$i] =~ /\A \\g (?>\s*) \{ (?>\s*) ((?>[1-9][0-9]*)) (?>\s*) \} \z/oxms) {
8259             }
8260              
8261             # \g1, \g2, \g3 --> \g2, \g3, \g4 (only when multibyte anchoring is enable)
8262             elsif ($char[$i] =~ /\A \\g (?>\s*) ((?>[1-9][0-9]*)) \z/oxms) {
8263             }
8264              
8265             # \1, \2, \3 --> \2, \3, \4 (only when multibyte anchoring is enable)
8266             elsif ($char[$i] =~ /\A \\ (?>\s*) ((?>[1-9][0-9]*)) \z/oxms) {
8267             }
8268              
8269 0 0       0 # $0 --> $0
8270 0         0 elsif ($char[$i] =~ /\A \$ 0 \z/oxms) {
8271             if ($ignorecase) {
8272             $char[$i] = '@{[Eoldutf8::ignorecase(' . $char[$i] . ')]}';
8273             }
8274 0 0       0 }
8275 0         0 elsif ($char[$i] =~ /\A \$ \{ (?>\s*) 0 (?>\s*) \} \z/oxms) {
8276             if ($ignorecase) {
8277             $char[$i] = '@{[Eoldutf8::ignorecase(' . $char[$i] . ')]}';
8278             }
8279             }
8280              
8281             # $$ --> $$
8282             elsif ($char[$i] =~ /\A \$\$ \z/oxms) {
8283             }
8284              
8285             # $1, $2, $3 --> $2, $3, $4 after s/// with multibyte anchoring
8286 0         0 # $1, $2, $3 --> $1, $2, $3 otherwise
8287 0 0       0 elsif ($char[$i] =~ /\A \$ ((?>[1-9][0-9]*)) \z/oxms) {
8288 0         0 $char[$i] = e_capture($1);
8289             if ($ignorecase) {
8290             $char[$i] = '@{[Eoldutf8::ignorecase(' . $char[$i] . ')]}';
8291             }
8292 0         0 }
8293 0 0       0 elsif ($char[$i] =~ /\A \$ \{ (?>\s*) ((?>[1-9][0-9]*)) (?>\s*) \} \z/oxms) {
8294 0         0 $char[$i] = e_capture($1);
8295             if ($ignorecase) {
8296             $char[$i] = '@{[Eoldutf8::ignorecase(' . $char[$i] . ')]}';
8297             }
8298             }
8299              
8300 0         0 # $$foo[ ... ] --> $ $foo->[ ... ]
8301 0 0       0 elsif ($char[$i] =~ /\A \$ ((?> \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) ( \[ (?:$qq_bracket)*? \] ) \z/oxms) {
8302 0         0 $char[$i] = e_capture($1.'->'.$2);
8303             if ($ignorecase) {
8304             $char[$i] = '@{[Eoldutf8::ignorecase(' . $char[$i] . ')]}';
8305             }
8306             }
8307              
8308 0         0 # $$foo{ ... } --> $ $foo->{ ... }
8309 0 0       0 elsif ($char[$i] =~ /\A \$ ((?> \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) ( \{ (?:$qq_brace)*? \} ) \z/oxms) {
8310 0         0 $char[$i] = e_capture($1.'->'.$2);
8311             if ($ignorecase) {
8312             $char[$i] = '@{[Eoldutf8::ignorecase(' . $char[$i] . ')]}';
8313             }
8314             }
8315              
8316 0         0 # $$foo
8317 0 0       0 elsif ($char[$i] =~ /\A \$ ((?> \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) \z/oxms) {
8318 0         0 $char[$i] = e_capture($1);
8319             if ($ignorecase) {
8320             $char[$i] = '@{[Eoldutf8::ignorecase(' . $char[$i] . ')]}';
8321             }
8322             }
8323              
8324 0 50       0 # $`, ${`}, $PREMATCH, ${PREMATCH}, ${^PREMATCH} --> Eoldutf8::PREMATCH()
8325 4         15 elsif ($char[$i] =~ /\A ( \$` | \$\{`\} | \$ (?>\s*) PREMATCH | \$ (?>\s*) \{ (?>\s*) PREMATCH (?>\s*) \} | \$ (?>\s*) \{\^PREMATCH\} ) \z/oxmsgc) {
8326             if ($ignorecase) {
8327             $char[$i] = '@{[Eoldutf8::ignorecase(Eoldutf8::PREMATCH())]}';
8328 0         0 }
8329             else {
8330             $char[$i] = '@{[Eoldutf8::PREMATCH()]}';
8331             }
8332             }
8333              
8334 4 50       15 # $&, ${&}, $MATCH, ${MATCH}, ${^MATCH} --> Eoldutf8::MATCH()
8335 4         15 elsif ($char[$i] =~ /\A ( \$& | \$\{&\} | \$ (?>\s*) MATCH | \$ (?>\s*) \{ (?>\s*) MATCH (?>\s*) \} | \$ (?>\s*) \{\^MATCH\} ) \z/oxmsgc) {
8336             if ($ignorecase) {
8337             $char[$i] = '@{[Eoldutf8::ignorecase(Eoldutf8::MATCH())]}';
8338 0         0 }
8339             else {
8340             $char[$i] = '@{[Eoldutf8::MATCH()]}';
8341             }
8342             }
8343              
8344 4 50       17 # $POSTMATCH, ${POSTMATCH}, ${^POSTMATCH} --> Eoldutf8::POSTMATCH()
8345 3         10 elsif ($char[$i] =~ /\A ( \$ (?>\s*) POSTMATCH | \$ (?>\s*) \{ (?>\s*) POSTMATCH (?>\s*) \} | \$ (?>\s*) \{\^POSTMATCH\} ) \z/oxmsgc) {
8346             if ($ignorecase) {
8347             $char[$i] = '@{[Eoldutf8::ignorecase(Eoldutf8::POSTMATCH())]}';
8348 0         0 }
8349             else {
8350             $char[$i] = '@{[Eoldutf8::POSTMATCH()]}';
8351             }
8352             }
8353              
8354 3 0       11 # ${ foo }
8355 0         0 elsif ($char[$i] =~ /\A \$ (?>\s*) \{ ((?> \s* [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* \s* )) \} \z/oxms) {
8356             if ($ignorecase) {
8357             $char[$i] = '@{[Eoldutf8::ignorecase(' . $char[$i] . ')]}';
8358             }
8359             }
8360              
8361 0         0 # ${ ... }
8362 0 0       0 elsif ($char[$i] =~ /\A \$ (?>\s*) \{ ( .+ ) \} \z/oxms) {
8363 0         0 $char[$i] = e_capture($1);
8364             if ($ignorecase) {
8365             $char[$i] = '@{[Eoldutf8::ignorecase(' . $char[$i] . ')]}';
8366             }
8367             }
8368              
8369 0         0 # $scalar or @array
8370 9 50       37 elsif ($char[$i] =~ /\A [\$\@].+ /oxms) {
8371 9         40 $char[$i] = e_string($char[$i]);
8372             if ($ignorecase) {
8373             $char[$i] = '@{[Eoldutf8::ignorecase(' . $char[$i] . ')]}';
8374             }
8375             }
8376              
8377 0 50       0 # quote character before ? + * {
8378             elsif (($i >= 1) and ($char[$i] =~ /\A [\?\+\*\{] \z/oxms)) {
8379             if ($char[$i-1] =~ /\A (?:[\x00-\xFF]|\\[0-7]{2,3}|\\x[0-9-A-Fa-f]{1,2}) \z/oxms) {
8380 23         125 }
8381             else {
8382             $char[$i-1] = '(?:' . $char[$i-1] . ')';
8383             }
8384             }
8385             }
8386 23         115  
8387 101         235 # make regexp string
8388 101 50       171 my $prematch = '';
8389 101         261 $modifier =~ tr/i//d;
8390             if ($left_e > $right_e) {
8391 0         0 return join '', $ope, $delimiter, $prematch, '(?:', @char, '>]}' x ($left_e - $right_e), ')', $matched, $end_delimiter, $modifier;
8392             }
8393             return join '', $ope, $delimiter, $prematch, '(?:', @char, ')', $matched, $end_delimiter, $modifier;
8394             }
8395              
8396             #
8397             # escape regexp (s'here'' or s'here''b)
8398 101     22 0 1202 #
8399 22   100     48 sub e_s1_q {
8400             my($ope,$delimiter,$end_delimiter,$string,$modifier) = @_;
8401 22         68 $modifier ||= '';
8402 22 50       28  
8403 22         48 $modifier =~ tr/p//d;
8404 0         0 if ($modifier =~ /([adlu])/oxms) {
8405 0 0       0 my $line = 0;
8406 0         0 for (my $i=0; my($package,$filename,$use_line,$subroutine) = caller($i); $i++) {
8407 0         0 if ($filename ne __FILE__) {
8408             $line = $use_line + (CORE::substr($_,0,pos($_)) =~ tr/\n//) + 1;
8409             last;
8410 0         0 }
8411             }
8412             die qq{Unsupported modifier "$1" used at line $line.\n};
8413 0         0 }
8414              
8415             $slash = 'div';
8416 22 100       31  
    100          
8417 22         54 # literal null string pattern
8418 8         9 if ($string eq '') {
8419 8         10 $modifier =~ tr/bB//d;
8420             $modifier =~ tr/i//d;
8421             return join '', $ope, $delimiter, $end_delimiter, $modifier;
8422             }
8423              
8424 8         42 # with /b /B modifier
8425             elsif ($modifier =~ tr/bB//d) {
8426             return e_s1_qb($ope,$delimiter,$end_delimiter,$string,$modifier);
8427             }
8428              
8429 1         15 # without /b /B modifier
8430             else {
8431             return e_s1_qt($ope,$delimiter,$end_delimiter,$string,$modifier);
8432             }
8433             }
8434              
8435             #
8436             # escape regexp (s'here'')
8437 13     13 0 30 #
8438             sub e_s1_qt {
8439 13 50       27 my($ope,$delimiter,$end_delimiter,$string,$modifier) = @_;
8440              
8441             my $ignorecase = ($modifier =~ /i/oxms) ? 1 : 0;
8442 13         23  
8443             # split regexp
8444             my @char = $string =~ /\G((?>
8445             [^\x80-\xFF\\\[\$\@\/] |
8446             (?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF] |
8447             \[\^ |
8448             \[\: (?>[a-z]+) \:\] |
8449             \[\:\^ (?>[a-z]+) \:\] |
8450             [\$\@\/] |
8451             \\ (?:$q_char) |
8452             (?:$q_char)
8453             ))/oxmsg;
8454 13         316  
8455 13 50 33     43 # unescape character
    50 33        
    50 66        
    100          
    50          
    50          
8456             for (my $i=0; $i <= $#char; $i++) {
8457             if (0) {
8458             }
8459 25         92  
8460 0         0 # open character class [...]
8461 0 0       0 elsif ($char[$i] eq '[') {
8462 0         0 my $left = $i;
8463             if ($char[$i+1] eq ']') {
8464 0         0 $i++;
8465 0 0       0 }
8466 0         0 while (1) {
8467             if (++$i > $#char) {
8468 0 0       0 die __FILE__, ": Unmatched [] in regexp\n";
8469 0         0 }
8470             if ($char[$i] eq ']') {
8471             my $right = $i;
8472 0         0  
8473             # [...]
8474 0         0 splice @char, $left, $right-$left+1, Eoldutf8::charlist_qr(@char[$left+1..$right-1], $modifier);
8475 0         0  
8476             $i = $left;
8477             last;
8478             }
8479             }
8480             }
8481              
8482 0         0 # open character class [^...]
8483 0 0       0 elsif ($char[$i] eq '[^') {
8484 0         0 my $left = $i;
8485             if ($char[$i+1] eq ']') {
8486 0         0 $i++;
8487 0 0       0 }
8488 0         0 while (1) {
8489             if (++$i > $#char) {
8490 0 0       0 die __FILE__, ": Unmatched [] in regexp\n";
8491 0         0 }
8492             if ($char[$i] eq ']') {
8493             my $right = $i;
8494 0         0  
8495             # [^...]
8496 0         0 splice @char, $left, $right-$left+1, Eoldutf8::charlist_not_qr(@char[$left+1..$right-1], $modifier);
8497 0         0  
8498             $i = $left;
8499             last;
8500             }
8501             }
8502             }
8503              
8504 0         0 # escape $ @ / and \
8505             elsif ($char[$i] =~ /\A [\$\@\/\\] \z/oxms) {
8506             $char[$i] = '\\' . $char[$i];
8507             }
8508              
8509 0         0 # rewrite character class or escape character
8510             elsif (my $char = character_class($char[$i],$modifier)) {
8511             $char[$i] = $char;
8512             }
8513              
8514 6 0       12 # /i modifier
8515 0         0 elsif ($ignorecase and ($char[$i] =~ /\A [\x00-\xFF] \z/oxms) and (Eoldutf8::uc($char[$i]) ne Eoldutf8::fc($char[$i]))) {
8516             if (CORE::length(Eoldutf8::fc($char[$i])) == 1) {
8517             $char[$i] = '[' . Eoldutf8::uc($char[$i]) . Eoldutf8::fc($char[$i]) . ']';
8518 0         0 }
8519             else {
8520             $char[$i] = '(?:' . Eoldutf8::uc($char[$i]) . '|' . Eoldutf8::fc($char[$i]) . ')';
8521             }
8522             }
8523              
8524 0 0       0 # quote character before ? + * {
8525             elsif (($i >= 1) and ($char[$i] =~ /\A [\?\+\*\{] \z/oxms)) {
8526             if ($char[$i-1] =~ /\A [\x00-\xFF] \z/oxms) {
8527 0         0 }
8528             else {
8529             $char[$i-1] = '(?:' . $char[$i-1] . ')';
8530             }
8531             }
8532 0         0 }
8533 13         20  
8534 13         19 $modifier =~ tr/i//d;
8535 13         16 $delimiter = '/';
8536 13         16 $end_delimiter = '/';
8537             my $prematch = '';
8538             return join '', $ope, $delimiter, $prematch, '(?:', @char, ')', $matched, $end_delimiter, $modifier;
8539             }
8540              
8541             #
8542             # escape regexp (s'here''b)
8543 13     1 0 94 #
8544             sub e_s1_qb {
8545             my($ope,$delimiter,$end_delimiter,$string,$modifier) = @_;
8546 1         4  
8547             # split regexp
8548             my @char = $string =~ /\G (?>[^\\]|\\\\|[\x00-\xFF]) /oxmsg;
8549 1         7  
8550 1 50       4 # unescape character
    50          
8551             for (my $i=0; $i <= $#char; $i++) {
8552             if (0) {
8553             }
8554 3         14  
8555             # remain \\
8556             elsif ($char[$i] eq '\\\\') {
8557             }
8558              
8559 0         0 # escape $ @ / and \
8560             elsif ($char[$i] =~ /\A [\$\@\/\\] \z/oxms) {
8561             $char[$i] = '\\' . $char[$i];
8562             }
8563 0         0 }
8564 1         2  
8565 1         2 $delimiter = '/';
8566 1         2 $end_delimiter = '/';
8567             my $prematch = '';
8568             return join '', $ope, $delimiter, $prematch, '(?:', @char, ')', $matched, $end_delimiter, $modifier;
8569             }
8570              
8571             #
8572             # escape regexp (s''here')
8573 1     17 0 12 #
8574             sub e_s2_q {
8575 17         31 my($ope,$delimiter,$end_delimiter,$string) = @_;
8576              
8577 17         21 $slash = 'div';
8578 17         170  
8579 17 100       49 my @char = $string =~ / \G (?>[^\x80-\xFF\\]|\\\\|$q_char) /oxmsg;
    100          
8580             for (my $i=0; $i <= $#char; $i++) {
8581             if (0) {
8582             }
8583 9         29  
8584             # not escape \\
8585             elsif ($char[$i] =~ /\A \\\\ \z/oxms) {
8586             }
8587              
8588 0         0 # escape $ @ / and \
8589             elsif ($char[$i] =~ /\A [\$\@\/\\] \z/oxms) {
8590             $char[$i] = '\\' . $char[$i];
8591             }
8592 5         14 }
8593              
8594             return join '', $ope, $delimiter, @char, $end_delimiter;
8595             }
8596              
8597             #
8598             # escape regexp (s/here/and here/modifier)
8599 17     132 0 51 #
8600 132   100     1149 sub e_sub {
8601             my($variable,$delimiter1,$pattern,$end_delimiter1,$delimiter2,$replacement,$end_delimiter2,$modifier) = @_;
8602 132         597 $modifier ||= '';
8603 132 50       240  
8604 132         372 $modifier =~ tr/p//d;
8605 0         0 if ($modifier =~ /([adlu])/oxms) {
8606 0 0       0 my $line = 0;
8607 0         0 for (my $i=0; my($package,$filename,$use_line,$subroutine) = caller($i); $i++) {
8608 0         0 if ($filename ne __FILE__) {
8609             $line = $use_line + (CORE::substr($_,0,pos($_)) =~ tr/\n//) + 1;
8610             last;
8611 0         0 }
8612             }
8613             die qq{Unsupported modifier "$1" used at line $line.\n};
8614 0 100       0 }
8615 132         356  
8616 37         49 if ($variable eq '') {
8617             $variable = '$_';
8618             $bind_operator = ' =~ ';
8619 37         50 }
8620              
8621             $slash = 'div';
8622              
8623             # P.128 Start of match (or end of previous match): \G
8624             # P.130 Advanced Use of \G with Perl
8625             # in Chapter 3: Overview of Regular Expression Features and Flavors
8626             # P.312 Iterative Matching: Scalar Context, with /g
8627             # in Chapter 7: Perl
8628             # of ISBN 0-596-00289-0 Mastering Regular Expressions, Second edition
8629              
8630             # P.181 Where You Left Off: The \G Assertion
8631             # in Chapter 5: Pattern Matching
8632             # of ISBN 0-596-00027-8 Programming Perl Third Edition.
8633              
8634             # P.220 Where You Left Off: The \G Assertion
8635             # in Chapter 5: Pattern Matching
8636 132         245 # of ISBN 978-0-596-00492-7 Programming Perl 4th Edition.
8637 132         216  
8638             my $e_modifier = $modifier =~ tr/e//d;
8639 132         213 my $r_modifier = $modifier =~ tr/r//d;
8640 132 50       198  
8641 132         368 my $my = '';
8642 0         0 if ($variable =~ s/\A \( (?>\s*) ( (?>(?: local \b | my \b | our \b | state \b )?) .+ ) \) \z/$1/oxms) {
8643 0         0 $my = $variable;
8644             $variable =~ s/ (?: local \b | my \b | our \b | state \b ) (?>\s*) //oxms;
8645             $variable =~ s/ = .+ \z//oxms;
8646 0         0 }
8647 132         344  
8648             (my $variable_basename = $variable) =~ s/ [\[\{].* \z//oxms;
8649             $variable_basename =~ s/ \s+ \z//oxms;
8650 132         245  
8651 132 100       206 # quote replacement string
8652 132         300 my $e_replacement = '';
8653 17         31 if ($e_modifier >= 1) {
8654             $e_replacement = e_qq('', '', '', $replacement);
8655             $e_modifier--;
8656 17 100       26 }
8657 115         279 else {
8658             if ($delimiter2 eq "'") {
8659             $e_replacement = e_s2_q('qq', '/', '/', $replacement);
8660 17         34 }
8661             else {
8662             $e_replacement = e_qq ('qq', $delimiter2, $end_delimiter2, $replacement);
8663             }
8664 98         251 }
8665              
8666             my $sub = '';
8667 132 100       240  
8668 132 100       341 # with /r
8669             if ($r_modifier) {
8670             if (0) {
8671             }
8672 8         18  
8673 0 50       0 # s///gr without multibyte anchoring
8674             elsif ($modifier =~ /g/oxms) {
8675             $sub = sprintf(
8676             # 1 2 3 4 5
8677             q,
8678              
8679             $variable, # 1
8680             ($delimiter1 eq "'") ? # 2
8681             e_s1_q('m', $delimiter1, $end_delimiter1, $pattern, $modifier) : # :
8682             e_s1 ('m', $delimiter1, $end_delimiter1, $pattern, $modifier), # :
8683             $s_matched, # 3
8684             $e_replacement, # 4
8685             '$Eoldutf8::re_r=CORE::eval $Eoldutf8::re_r; ' x $e_modifier, # 5
8686             );
8687             }
8688              
8689             # s///r
8690 4         18 else {
8691              
8692 4 50       7 my $prematch = q{$`};
8693              
8694             $sub = sprintf(
8695             # 1 2 3 4 5 6 7
8696             q<(%s =~ %s) ? CORE::eval{%s local $^W=0; local $Eoldutf8::re_r=%s; %s"%s$Eoldutf8::re_r$'" } : %s>,
8697              
8698             $variable, # 1
8699             ($delimiter1 eq "'") ? # 2
8700             e_s1_q('m', $delimiter1, $end_delimiter1, $pattern, $modifier) : # :
8701             e_s1 ('m', $delimiter1, $end_delimiter1, $pattern, $modifier), # :
8702             $s_matched, # 3
8703             $e_replacement, # 4
8704             '$Eoldutf8::re_r=CORE::eval $Eoldutf8::re_r; ' x $e_modifier, # 5
8705             $prematch, # 6
8706             $variable, # 7
8707             );
8708             }
8709 4 50       19  
8710 8         24 # $var !~ s///r doesn't make sense
8711             if ($bind_operator =~ / !~ /oxms) {
8712             $sub = q{die("$0: Using !~ with s///r doesn't make sense"), } . $sub;
8713             }
8714             }
8715              
8716 0 100       0 # without /r
8717             else {
8718             if (0) {
8719             }
8720 124         314  
8721 0 100       0 # s///g without multibyte anchoring
    100          
8722             elsif ($modifier =~ /g/oxms) {
8723             $sub = sprintf(
8724             # 1 2 3 4 5 6 7 8
8725             q,
8726              
8727             $variable, # 1
8728             ($delimiter1 eq "'") ? # 2
8729             e_s1_q('m', $delimiter1, $end_delimiter1, $pattern, $modifier) : # :
8730             e_s1 ('m', $delimiter1, $end_delimiter1, $pattern, $modifier), # :
8731             $s_matched, # 3
8732             $e_replacement, # 4
8733             '$Eoldutf8::re_r=CORE::eval $Eoldutf8::re_r; ' x $e_modifier, # 5
8734             $variable, # 6
8735             $variable, # 7
8736             ($bind_operator =~ / !~ /oxms) ? '!' : '', # 8
8737             );
8738             }
8739              
8740             # s///
8741 29         129 else {
8742              
8743 95 100       155 my $prematch = q{$`};
    100          
8744              
8745             $sub = sprintf(
8746              
8747             ($bind_operator =~ / =~ /oxms) ?
8748              
8749             # 1 2 3 4 5 6 7 8
8750             q<(%s%s%s) ? CORE::eval{%s local $^W=0; local $Eoldutf8::re_r=%s; %s%s="%s$Eoldutf8::re_r$'"; 1 } : undef> :
8751              
8752             # 1 2 3 4 5 6 7 8
8753             q<(%s%s%s) ? 1 : CORE::eval{%s local $^W=0; local $Eoldutf8::re_r=%s; %s%s="%s$Eoldutf8::re_r$'"; undef }>,
8754              
8755             $variable, # 1
8756             $bind_operator, # 2
8757             ($delimiter1 eq "'") ? # 3
8758             e_s1_q('m', $delimiter1, $end_delimiter1, $pattern, $modifier) : # :
8759             e_s1 ('m', $delimiter1, $end_delimiter1, $pattern, $modifier), # :
8760             $s_matched, # 4
8761             $e_replacement, # 5
8762             '$Eoldutf8::re_r=CORE::eval $Eoldutf8::re_r; ' x $e_modifier, # 6
8763             $variable, # 7
8764             $prematch, # 8
8765             );
8766             }
8767             }
8768 95 50       541  
8769 132         387 # (my $foo = $bar) =~ s/// --> (my $foo = $bar, CORE::eval { ... })[1]
8770             if ($my ne '') {
8771             $sub = "($my, $sub)[1]";
8772             }
8773 0         0  
8774 132         245 # clear s/// variable
8775             $sub_variable = '';
8776 132         187 $bind_operator = '';
8777              
8778             return $sub;
8779             }
8780              
8781             #
8782             # escape regexp of split qr//
8783 132     101 0 1466 #
8784 101   100     463 sub e_split {
8785             my($ope,$delimiter,$end_delimiter,$string,$modifier) = @_;
8786 101         454 $modifier ||= '';
8787 101 50       173  
8788 101         383 $modifier =~ tr/p//d;
8789 0         0 if ($modifier =~ /([adlu])/oxms) {
8790 0 0       0 my $line = 0;
8791 0         0 for (my $i=0; my($package,$filename,$use_line,$subroutine) = caller($i); $i++) {
8792 0         0 if ($filename ne __FILE__) {
8793             $line = $use_line + (CORE::substr($_,0,pos($_)) =~ tr/\n//) + 1;
8794             last;
8795 0         0 }
8796             }
8797             die qq{Unsupported modifier "$1" used at line $line.\n};
8798 0         0 }
8799              
8800             $slash = 'div';
8801 101 50       224  
8802 101         233 # /b /B modifier
8803             if ($modifier =~ tr/bB//d) {
8804             return join '', 'split', $ope, $delimiter, $string, $end_delimiter, $modifier;
8805 0 50       0 }
8806 101         258  
8807             my $ignorecase = ($modifier =~ /i/oxms) ? 1 : 0;
8808             my $metachar = qr/[\@\\|[\]{^]/oxms;
8809 101         380  
8810             # split regexp
8811             my @char = $string =~ /\G((?>
8812             [^\x80-\xFF\\\$\@\[\(]|(?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF] |
8813             \\x (?>[0-9A-Fa-f]{1,2}) |
8814             \\ (?>[0-7]{2,3}) |
8815             \\c [\x40-\x5F] |
8816             \\x\{ (?>[0-9A-Fa-f]+) \} |
8817             \\o\{ (?>[0-7]+) \} |
8818             \\[bBNpP]\{ (?>[^\x80-\xFF0-9\}][^\x80-\xFF\}]*) \} |
8819             \\ $q_char |
8820             \$` | \$\{`\} | \$ (?>\s*) PREMATCH | \$ (?>\s*) \{ (?>\s*) PREMATCH (?>\s*) \} | \$ (?>\s*) \{\^PREMATCH\} |
8821             \$& | \$\{&\} | \$ (?>\s*) MATCH | \$ (?>\s*) \{ (?>\s*) MATCH (?>\s*) \} | \$ (?>\s*) \{\^MATCH\} |
8822             \$ (?>\s*) POSTMATCH | \$ (?>\s*) \{ (?>\s*) POSTMATCH (?>\s*) \} | \$ (?>\s*) \{\^POSTMATCH\} |
8823             [\$\@] $qq_variable |
8824             \$ (?>\s* [0-9]+) |
8825             \$ (?>\s*) \{ (?>\s* [0-9]+ \s*) \} |
8826             \$ \$ (?![\w\{]) |
8827             \$ (?>\s*) \$ (?>\s*) $qq_variable |
8828             \[\^ |
8829             \[\: (?>[a-z]+) :\] |
8830             \[\:\^ (?>[a-z]+) :\] |
8831             \(\? |
8832             $q_char
8833 101         16777 ))/oxmsg;
8834 101         503  
8835 101         188 my $left_e = 0;
8836             my $right_e = 0;
8837             for (my $i=0; $i <= $#char; $i++) {
8838 101 50 33     436  
    50 33        
    100          
    100          
    50          
    50          
8839 284         1643 # "\L\u" --> "\u\L"
8840             if (($char[$i] eq '\L') and ($char[$i+1] eq '\u')) {
8841             @char[$i,$i+1] = @char[$i+1,$i];
8842             }
8843              
8844 0         0 # "\U\l" --> "\l\U"
8845             elsif (($char[$i] eq '\U') and ($char[$i+1] eq '\l')) {
8846             @char[$i,$i+1] = @char[$i+1,$i];
8847             }
8848              
8849 0         0 # octal escape sequence
8850             elsif ($char[$i] =~ /\A \\o \{ ([0-7]+) \} \z/oxms) {
8851             $char[$i] = Eoldutf8::octchr($1);
8852             }
8853              
8854 1         3 # hexadecimal escape sequence
8855             elsif ($char[$i] =~ /\A \\x \{ ([0-9A-Fa-f]+) \} \z/oxms) {
8856             $char[$i] = Eoldutf8::hexchr($1);
8857             }
8858              
8859             # \b{...} --> b\{...}
8860             # \B{...} --> B\{...}
8861             # \N{CHARNAME} --> N\{CHARNAME}
8862             # \p{PROPERTY} --> p\{PROPERTY}
8863 1         4 # \P{PROPERTY} --> P\{PROPERTY}
8864             elsif ($char[$i] =~ /\A \\ ([bBNpP]) ( \{ ([^\x80-\xFF0-9\}][^\x80-\xFF\}]*) \} ) \z/oxms) {
8865             $char[$i] = $1 . '\\' . $2;
8866             }
8867              
8868 0         0 # \p, \P, \X --> p, P, X
8869             elsif ($char[$i] =~ /\A \\ ( [pPX] ) \z/oxms) {
8870             $char[$i] = $1;
8871 0 50 100     0 }
    100 33        
    100 33        
    100 100        
    100          
    50          
    100          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    100          
    100          
    100          
    50          
    50          
    100          
    100          
8872              
8873             if (0) {
8874             }
8875 284         1232  
8876 0 0 0     0 # join separated multiple-octet
    0 0        
    0 0        
      0        
      0        
      0        
8877 0         0 elsif ($char[$i] =~ /\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/oxms) {
8878             if ( ($i+3 <= $#char) and (grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/oxms, @char[$i+1..$i+3]) == 3) and (CORE::eval(sprintf '"%s%s%s%s"', @char[$i..$i+3]) =~ /\A $q_char \z/oxms)) {
8879             $char[$i] .= join '', splice @char, $i+1, 3;
8880 0         0 }
8881             elsif (($i+2 <= $#char) and (grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/oxms, @char[$i+1..$i+2]) == 2) and (CORE::eval(sprintf '"%s%s%s"', @char[$i..$i+2]) =~ /\A $q_char \z/oxms)) {
8882             $char[$i] .= join '', splice @char, $i+1, 2;
8883 0         0 }
8884             elsif (($i+1 <= $#char) and (grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/oxms, $char[$i+1 ]) == 1) and (CORE::eval(sprintf '"%s%s"', @char[$i..$i+1]) =~ /\A $q_char \z/oxms)) {
8885             $char[$i] .= join '', splice @char, $i+1, 1;
8886             }
8887             }
8888              
8889 0         0 # open character class [...]
8890 3 50       4 elsif ($char[$i] eq '[') {
8891 3         11 my $left = $i;
8892             if ($char[$i+1] eq ']') {
8893 0         0 $i++;
8894 3 50       5 }
8895 7         13 while (1) {
8896             if (++$i > $#char) {
8897 0 100       0 die __FILE__, ": Unmatched [] in regexp\n";
8898 7         17 }
8899             if ($char[$i] eq ']') {
8900             my $right = $i;
8901 3 50       5  
8902 3         20 # [...]
  0         0  
8903             if (grep(/\A [\$\@]/oxms,@char[$left+1..$right-1]) >= 1) {
8904             splice @char, $left, $right-$left+1, sprintf(q{@{[Eoldutf8::charlist_qr(%s,'%s')]}}, join(',', map {qq_stuff($delimiter,$end_delimiter,$_)} @char[$left+1..$right-1]), $modifier);
8905 0         0 }
8906             else {
8907             splice @char, $left, $right-$left+1, Eoldutf8::charlist_qr(@char[$left+1..$right-1], $modifier);
8908 3         17 }
8909 3         6  
8910             $i = $left;
8911             last;
8912             }
8913             }
8914             }
8915              
8916 3         9 # open character class [^...]
8917 1 50       3 elsif ($char[$i] eq '[^') {
8918 1         5 my $left = $i;
8919             if ($char[$i+1] eq ']') {
8920 0         0 $i++;
8921 1 50       2 }
8922 2         6 while (1) {
8923             if (++$i > $#char) {
8924 0 100       0 die __FILE__, ": Unmatched [] in regexp\n";
8925 2         6 }
8926             if ($char[$i] eq ']') {
8927             my $right = $i;
8928 1 50       1  
8929 1         10 # [^...]
  0         0  
8930             if (grep(/\A [\$\@]/oxms,@char[$left+1..$right-1]) >= 1) {
8931             splice @char, $left, $right-$left+1, sprintf(q{@{[Eoldutf8::charlist_not_qr(%s,'%s')]}}, join(',', map {qq_stuff($delimiter,$end_delimiter,$_)} @char[$left+1..$right-1]), $modifier);
8932 0         0 }
8933             else {
8934             splice @char, $left, $right-$left+1, Eoldutf8::charlist_not_qr(@char[$left+1..$right-1], $modifier);
8935 1         7 }
8936 1         3  
8937             $i = $left;
8938             last;
8939             }
8940             }
8941             }
8942              
8943 1         3 # rewrite character class or escape character
8944             elsif (my $char = character_class($char[$i],$modifier)) {
8945             $char[$i] = $char;
8946             }
8947              
8948             # P.794 29.2.161. split
8949             # in Chapter 29: Functions
8950             # of ISBN 0-596-00027-8 Programming Perl Third Edition.
8951              
8952             # P.951 split
8953             # in Chapter 27: Functions
8954             # of ISBN 978-0-596-00492-7 Programming Perl 4th Edition.
8955              
8956             # said "The //m modifier is assumed when you split on the pattern /^/",
8957             # but perl5.008 is not so. Therefore, this software adds //m.
8958             # (and so on)
8959              
8960 5         16 # split(m/^/) --> split(m/^/m)
8961             elsif (($char[$i] eq '^') and ($modifier !~ /m/oxms)) {
8962             $modifier .= 'm';
8963             }
8964              
8965 11 0       39 # /i modifier
8966 0         0 elsif ($ignorecase and ($char[$i] =~ /\A [\x00-\xFF] \z/oxms) and (Eoldutf8::uc($char[$i]) ne Eoldutf8::fc($char[$i]))) {
8967             if (CORE::length(Eoldutf8::fc($char[$i])) == 1) {
8968             $char[$i] = '[' . Eoldutf8::uc($char[$i]) . Eoldutf8::fc($char[$i]) . ']';
8969 0         0 }
8970             else {
8971             $char[$i] = '(?:' . Eoldutf8::uc($char[$i]) . '|' . Eoldutf8::fc($char[$i]) . ')';
8972             }
8973             }
8974              
8975 0 50       0 # \u \l \U \L \F \Q \E
8976 2         7 elsif ($char[$i] =~ /\A ([<>]) \z/oxms) {
8977             if ($right_e < $left_e) {
8978             $char[$i] = '\\' . $char[$i];
8979             }
8980 0         0 }
8981 0         0 elsif ($char[$i] eq '\u') {
8982             $char[$i] = '@{[Eoldutf8::ucfirst qq<';
8983             $left_e++;
8984 0         0 }
8985 0         0 elsif ($char[$i] eq '\l') {
8986             $char[$i] = '@{[Eoldutf8::lcfirst qq<';
8987             $left_e++;
8988 0         0 }
8989 0         0 elsif ($char[$i] eq '\U') {
8990             $char[$i] = '@{[Eoldutf8::uc qq<';
8991             $left_e++;
8992 0         0 }
8993 0         0 elsif ($char[$i] eq '\L') {
8994             $char[$i] = '@{[Eoldutf8::lc qq<';
8995             $left_e++;
8996 0         0 }
8997 0         0 elsif ($char[$i] eq '\F') {
8998             $char[$i] = '@{[Eoldutf8::fc qq<';
8999             $left_e++;
9000 0         0 }
9001 0         0 elsif ($char[$i] eq '\Q') {
9002             $char[$i] = '@{[CORE::quotemeta qq<';
9003             $left_e++;
9004 0 0       0 }
9005 0         0 elsif ($char[$i] eq '\E') {
9006 0         0 if ($right_e < $left_e) {
9007             $char[$i] = '>]}';
9008             $right_e++;
9009 0         0 }
9010             else {
9011             $char[$i] = '';
9012             }
9013 0         0 }
9014 0 0       0 elsif ($char[$i] eq '\Q') {
9015 0         0 while (1) {
9016             if (++$i > $#char) {
9017 0 0       0 last;
9018 0         0 }
9019             if ($char[$i] eq '\E') {
9020             last;
9021             }
9022             }
9023             }
9024             elsif ($char[$i] eq '\E') {
9025             }
9026              
9027 0 0       0 # $0 --> $0
9028 0         0 elsif ($char[$i] =~ /\A \$ 0 \z/oxms) {
9029             if ($ignorecase) {
9030             $char[$i] = '@{[Eoldutf8::ignorecase(' . $char[$i] . ')]}';
9031             }
9032 0 0       0 }
9033 0         0 elsif ($char[$i] =~ /\A \$ \{ (?>\s*) 0 (?>\s*) \} \z/oxms) {
9034             if ($ignorecase) {
9035             $char[$i] = '@{[Eoldutf8::ignorecase(' . $char[$i] . ')]}';
9036             }
9037             }
9038              
9039             # $$ --> $$
9040             elsif ($char[$i] =~ /\A \$\$ \z/oxms) {
9041             }
9042              
9043             # $1, $2, $3 --> $2, $3, $4 after s/// with multibyte anchoring
9044 0         0 # $1, $2, $3 --> $1, $2, $3 otherwise
9045 0 0       0 elsif ($char[$i] =~ /\A \$ ((?>[1-9][0-9]*)) \z/oxms) {
9046 0         0 $char[$i] = e_capture($1);
9047             if ($ignorecase) {
9048             $char[$i] = '@{[Eoldutf8::ignorecase(' . $char[$i] . ')]}';
9049             }
9050 0         0 }
9051 0 0       0 elsif ($char[$i] =~ /\A \$ \{ (?>\s*) ((?>[1-9][0-9]*)) (?>\s*) \} \z/oxms) {
9052 0         0 $char[$i] = e_capture($1);
9053             if ($ignorecase) {
9054             $char[$i] = '@{[Eoldutf8::ignorecase(' . $char[$i] . ')]}';
9055             }
9056             }
9057              
9058 0         0 # $$foo[ ... ] --> $ $foo->[ ... ]
9059 0 0       0 elsif ($char[$i] =~ /\A \$ ((?> \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) ( \[ (?:$qq_bracket)*? \] ) \z/oxms) {
9060 0         0 $char[$i] = e_capture($1.'->'.$2);
9061             if ($ignorecase) {
9062             $char[$i] = '@{[Eoldutf8::ignorecase(' . $char[$i] . ')]}';
9063             }
9064             }
9065              
9066 0         0 # $$foo{ ... } --> $ $foo->{ ... }
9067 0 0       0 elsif ($char[$i] =~ /\A \$ ((?> \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) ( \{ (?:$qq_brace)*? \} ) \z/oxms) {
9068 0         0 $char[$i] = e_capture($1.'->'.$2);
9069             if ($ignorecase) {
9070             $char[$i] = '@{[Eoldutf8::ignorecase(' . $char[$i] . ')]}';
9071             }
9072             }
9073              
9074 0         0 # $$foo
9075 0 0       0 elsif ($char[$i] =~ /\A \$ ((?> \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) \z/oxms) {
9076 0         0 $char[$i] = e_capture($1);
9077             if ($ignorecase) {
9078             $char[$i] = '@{[Eoldutf8::ignorecase(' . $char[$i] . ')]}';
9079             }
9080             }
9081              
9082 0 50       0 # $`, ${`}, $PREMATCH, ${PREMATCH}, ${^PREMATCH} --> Eoldutf8::PREMATCH()
9083 12         32 elsif ($char[$i] =~ /\A ( \$` | \$\{`\} | \$ (?>\s*) PREMATCH | \$ (?>\s*) \{ (?>\s*) PREMATCH (?>\s*) \} | \$ (?>\s*) \{\^PREMATCH\} ) \z/oxmsgc) {
9084             if ($ignorecase) {
9085             $char[$i] = '@{[Eoldutf8::ignorecase(Eoldutf8::PREMATCH())]}';
9086 0         0 }
9087             else {
9088             $char[$i] = '@{[Eoldutf8::PREMATCH()]}';
9089             }
9090             }
9091              
9092 12 50       57 # $&, ${&}, $MATCH, ${MATCH}, ${^MATCH} --> Eoldutf8::MATCH()
9093 12         34 elsif ($char[$i] =~ /\A ( \$& | \$\{&\} | \$ (?>\s*) MATCH | \$ (?>\s*) \{ (?>\s*) MATCH (?>\s*) \} | \$ (?>\s*) \{\^MATCH\} ) \z/oxmsgc) {
9094             if ($ignorecase) {
9095             $char[$i] = '@{[Eoldutf8::ignorecase(Eoldutf8::MATCH())]}';
9096 0         0 }
9097             else {
9098             $char[$i] = '@{[Eoldutf8::MATCH()]}';
9099             }
9100             }
9101              
9102 12 50       58 # $POSTMATCH, ${POSTMATCH}, ${^POSTMATCH} --> Eoldutf8::POSTMATCH()
9103 9         24 elsif ($char[$i] =~ /\A ( \$ (?>\s*) POSTMATCH | \$ (?>\s*) \{ (?>\s*) POSTMATCH (?>\s*) \} | \$ (?>\s*) \{\^POSTMATCH\} ) \z/oxmsgc) {
9104             if ($ignorecase) {
9105             $char[$i] = '@{[Eoldutf8::ignorecase(Eoldutf8::POSTMATCH())]}';
9106 0         0 }
9107             else {
9108             $char[$i] = '@{[Eoldutf8::POSTMATCH()]}';
9109             }
9110             }
9111              
9112 9 0       52 # ${ foo }
9113 0         0 elsif ($char[$i] =~ /\A \$ (?>\s*) \{ ((?> \s* [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* \s* )) \} \z/oxms) {
9114             if ($ignorecase) {
9115             $char[$i] = '@{[Eoldutf8::ignorecase(' . $1 . ')]}';
9116             }
9117             }
9118              
9119 0         0 # ${ ... }
9120 0 0       0 elsif ($char[$i] =~ /\A \$ (?>\s*) \{ ( .+ ) \} \z/oxms) {
9121 0         0 $char[$i] = e_capture($1);
9122             if ($ignorecase) {
9123             $char[$i] = '@{[Eoldutf8::ignorecase(' . $char[$i] . ')]}';
9124             }
9125             }
9126              
9127 0         0 # $scalar or @array
9128 3 50       10 elsif ($char[$i] =~ /\A [\$\@].+ /oxms) {
9129 3         16 $char[$i] = e_string($char[$i]);
9130             if ($ignorecase) {
9131             $char[$i] = '@{[Eoldutf8::ignorecase(' . $char[$i] . ')]}';
9132             }
9133             }
9134              
9135 0 100       0 # quote character before ? + * {
9136             elsif (($i >= 1) and ($char[$i] =~ /\A [\?\+\*\{] \z/oxms)) {
9137             if ($char[$i-1] =~ /\A (?:[\x00-\xFF]|\\[0-7]{2,3}|\\x[0-9-A-Fa-f]{1,2}) \z/oxms) {
9138 7         44 }
9139             else {
9140             $char[$i-1] = '(?:' . $char[$i-1] . ')';
9141             }
9142             }
9143             }
9144 4         26  
9145 101 50       217 # make regexp string
9146 101         255 $modifier =~ tr/i//d;
9147             if ($left_e > $right_e) {
9148 0         0 return join '', 'Eoldutf8::split', $ope, $delimiter, @char, '>]}' x ($left_e - $right_e), $end_delimiter, $modifier;
9149             }
9150             return join '', 'Eoldutf8::split', $ope, $delimiter, @char, $end_delimiter, $modifier;
9151             }
9152              
9153             #
9154             # escape regexp of split qr''
9155 101     0 0 1163 #
9156 0   0       sub e_split_q {
9157             my($ope,$delimiter,$end_delimiter,$string,$modifier) = @_;
9158 0           $modifier ||= '';
9159 0 0          
9160 0           $modifier =~ tr/p//d;
9161 0           if ($modifier =~ /([adlu])/oxms) {
9162 0 0         my $line = 0;
9163 0           for (my $i=0; my($package,$filename,$use_line,$subroutine) = caller($i); $i++) {
9164 0           if ($filename ne __FILE__) {
9165             $line = $use_line + (CORE::substr($_,0,pos($_)) =~ tr/\n//) + 1;
9166             last;
9167 0           }
9168             }
9169             die qq{Unsupported modifier "$1" used at line $line.\n};
9170 0           }
9171              
9172             $slash = 'div';
9173 0 0          
9174 0           # /b /B modifier
9175             if ($modifier =~ tr/bB//d) {
9176             return join '', 'split', $ope, $delimiter, $string, $end_delimiter, $modifier;
9177 0 0         }
9178              
9179             my $ignorecase = ($modifier =~ /i/oxms) ? 1 : 0;
9180 0            
9181             # split regexp
9182             my @char = $string =~ /\G((?>
9183             [^\x80-\xFF\\\[] |
9184             (?:[\xC0-\xDF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF][\x80-\xBF])[\x80-\xBF] |
9185             \[\^ |
9186             \[\: (?>[a-z]+) \:\] |
9187             \[\:\^ (?>[a-z]+) \:\] |
9188             \\ (?:$q_char) |
9189             (?:$q_char)
9190             ))/oxmsg;
9191 0            
9192 0 0 0       # unescape character
    0 0        
    0 0        
    0 0        
    0          
    0          
9193             for (my $i=0; $i <= $#char; $i++) {
9194             if (0) {
9195             }
9196 0            
9197 0           # open character class [...]
9198 0 0         elsif ($char[$i] eq '[') {
9199 0           my $left = $i;
9200             if ($char[$i+1] eq ']') {
9201 0           $i++;
9202 0 0         }
9203 0           while (1) {
9204             if (++$i > $#char) {
9205 0 0         die __FILE__, ": Unmatched [] in regexp\n";
9206 0           }
9207             if ($char[$i] eq ']') {
9208             my $right = $i;
9209 0            
9210             # [...]
9211 0           splice @char, $left, $right-$left+1, Eoldutf8::charlist_qr(@char[$left+1..$right-1], $modifier);
9212 0            
9213             $i = $left;
9214             last;
9215             }
9216             }
9217             }
9218              
9219 0           # open character class [^...]
9220 0 0         elsif ($char[$i] eq '[^') {
9221 0           my $left = $i;
9222             if ($char[$i+1] eq ']') {
9223 0           $i++;
9224 0 0         }
9225 0           while (1) {
9226             if (++$i > $#char) {
9227 0 0         die __FILE__, ": Unmatched [] in regexp\n";
9228 0           }
9229             if ($char[$i] eq ']') {
9230             my $right = $i;
9231 0            
9232             # [^...]
9233 0           splice @char, $left, $right-$left+1, Eoldutf8::charlist_not_qr(@char[$left+1..$right-1], $modifier);
9234 0            
9235             $i = $left;
9236             last;
9237             }
9238             }
9239             }
9240              
9241 0           # rewrite character class or escape character
9242             elsif (my $char = character_class($char[$i],$modifier)) {
9243             $char[$i] = $char;
9244             }
9245              
9246 0           # split(m/^/) --> split(m/^/m)
9247             elsif (($char[$i] eq '^') and ($modifier !~ /m/oxms)) {
9248             $modifier .= 'm';
9249             }
9250              
9251 0 0         # /i modifier
9252 0           elsif ($ignorecase and ($char[$i] =~ /\A [\x00-\xFF] \z/oxms) and (Eoldutf8::uc($char[$i]) ne Eoldutf8::fc($char[$i]))) {
9253             if (CORE::length(Eoldutf8::fc($char[$i])) == 1) {
9254             $char[$i] = '[' . Eoldutf8::uc($char[$i]) . Eoldutf8::fc($char[$i]) . ']';
9255 0           }
9256             else {
9257             $char[$i] = '(?:' . Eoldutf8::uc($char[$i]) . '|' . Eoldutf8::fc($char[$i]) . ')';
9258             }
9259             }
9260              
9261 0 0         # quote character before ? + * {
9262             elsif (($i >= 1) and ($char[$i] =~ /\A [\?\+\*\{] \z/oxms)) {
9263             if ($char[$i-1] =~ /\A [\x00-\xFF] \z/oxms) {
9264 0           }
9265             else {
9266             $char[$i-1] = '(?:' . $char[$i-1] . ')';
9267             }
9268             }
9269 0           }
9270 0            
9271             $modifier =~ tr/i//d;
9272             return join '', 'Eoldutf8::split', $ope, $delimiter, @char, $end_delimiter, $modifier;
9273             }
9274              
9275             #
9276             # instead of Carp::carp
9277 0     0 0   #
9278 0           sub carp {
9279             my($package,$filename,$line) = caller(1);
9280             print STDERR "@_ at $filename line $line.\n";
9281             }
9282              
9283             #
9284             # instead of Carp::croak
9285 0     0 0   #
9286 0           sub croak {
9287 0           my($package,$filename,$line) = caller(1);
9288             print STDERR "@_ at $filename line $line.\n";
9289             die "\n";
9290             }
9291              
9292             #
9293             # instead of Carp::cluck
9294 0     0 0   #
9295 0           sub cluck {
9296 0           my $i = 0;
9297 0           my @cluck = ();
9298 0           while (my($package,$filename,$line,$subroutine) = caller($i)) {
9299             push @cluck, "[$i] $filename($line) $package::$subroutine\n";
9300 0           $i++;
9301 0           }
9302 0           print STDERR CORE::reverse @cluck;
9303             print STDERR "\n";
9304             print STDERR @_;
9305             }
9306              
9307             #
9308             # instead of Carp::confess
9309 0     0 0   #
9310 0           sub confess {
9311 0           my $i = 0;
9312 0           my @confess = ();
9313 0           while (my($package,$filename,$line,$subroutine) = caller($i)) {
9314             push @confess, "[$i] $filename($line) $package::$subroutine\n";
9315 0           $i++;
9316 0           }
9317 0           print STDERR CORE::reverse @confess;
9318 0           print STDERR "\n";
9319             print STDERR @_;
9320             die "\n";
9321             }
9322              
9323             1;
9324              
9325             __END__