Lines Matching refs:utf32
45 my $utf32 = $_[0];
46 return $utf32 >= 0 && $utf32 <= 0x10FFFF
47 && !($utf32 >= 0xD800 && $utf32 <= 0xDFFF)
48 && !($utf32 >= 0xFDD0 && $utf32 <= 0xFDEF)
49 && ($utf32 & 0xFFFF) < 0xFFFE;
54 my $utf32 = $_[0];
55 return sprintf("U+%04X", $utf32);
104 my $utf32 = $_[0];
108 $uni_plane = $utf32 >> 16;
109 $uni_page = ($utf32 >> 8) & 0xFF;
110 $uni_index = $utf32 & 0xFF;
127 print "WARNING! Mapping ", printUtf32($utf32), " to ",
143 $utf32 = oct($2);
146 isValidUtf32($utf32)
147 or die "Bad UTF32 char " . printUtf32($utf32);
148 if ($utf32 != 0xFFFD)
150 if (defined($underlying_big5[$utf32]))
153 printBig5($underlying_big5[$utf32]), " and ",
154 printBig5($big5), " map to ", printUtf32($utf32),
159 $underlying_big5[$utf32] = $big5;
173 $utf32 = oct($2);
176 isValidUtf32($utf32)
177 or die "Bad UTF32 char " . printUtf32($utf32);
178 if (defined($underlying_cp950[$utf32]))
181 printBig5($underlying_cp950[$utf32]), " and ",
182 printBig5($big5), " map to ", printUtf32($utf32), "\n";
186 $underlying_cp950[$utf32] = $big5;
320 $utf32 = $surrogates ? $utf32_2001 : $utf32_2000;
322 if (defined($underlying_big5[$utf32])
323 || defined($underlying_cp950[$utf32]))
325 if (defined($underlying_big5[$utf32])
326 && defined($underlying_cp950[$utf32])
327 && $underlying_big5[$utf32] == $underlying_cp950[$utf32]
328 && $underlying_big5[$utf32] == $big5
330 defined($underlying_big5[$utf32])
331 && !defined($underlying_cp950[$utf32])
332 && $underlying_big5[$utf32] == $big5
334 !defined($underlying_big5[$utf32])
335 && defined($underlying_cp950[$utf32])
336 && $underlying_cp950[$utf32] == $big5)
348 if (defined($underlying_big5[$utf32])
349 && defined($underlying_cp950[$utf32])
350 && $underlying_big5[$utf32] == $underlying_cp950[$utf32])
352 print " Big5/CP950 ", printBig5($underlying_big5[$utf32]);
356 if (defined($underlying_big5[$utf32]))
358 print " Big5 ", printBig5($underlying_big5[$utf32]);
360 if (defined($underlying_cp950[$utf32]))
362 print " CP950 ", printBig5($underlying_cp950[$utf32]);
366 printUtf32($utf32), "\n";
370 if ($utf32 >= 0xE000 && $utf32 <= 0xF8FF)
381 $big5_map[$big5_row][$big5_column] = $utf32;
383 addMapping($utf32, $big5, -1);
385 if ($utf32_2001 != $utf32)
389 if ($utf32_2000 != $utf32 && $utf32_2000 != $utf32_2001)
393 if ($utf32_1993 != $utf32 && $utf32_1993 != $utf32_2000
409 for ($utf32 = 0; $utf32 <= 0x7F; ++$utf32)
413 $big5 = $uni_map[0][0][$utf32];
414 die "Mapping " . printUtf32($utf32) . " to " . printBig5($big5);
510 $utf32 = $big5_map[$big5_row][$big5_column];
512 if ($utf32 <= 0xFFFF)
514 printf OUT "0x%04X,", $utf32;
520 (0xD800 | (($utf32 - 0x10000) >> 10));
561 $utf32 = 0;
564 $utf32 = $big5_map[$big5_row][$big5_column];
566 if ($utf32 <= 0xFFFF)
573 (0xDC00 | (($utf32 - 0x10000) & 0x3FF));