Lines Matching refs:utf32
35 my $utf32 = $_[0];
36 return sprintf("U+%04X", $utf32);
71 $utf32 = oct("0x" . $1);
73 ($utf32 == $gb1)
74 or die "Bad " . printUtf32($utf32) . " to " . printGb($gb1);
78 $utf32 = oct("0x" . $1);
85 $gb_map_2[$gb_code] = $utf32;
88 !defined($uni_map[$utf32]) or die "Double Unicode mapping";
89 $uni_map[$utf32] = $gb1 << 8 | $gb2;
94 $utf32 = oct("0x" . $1);
105 $gb_map_4[$gb_code] = $utf32;
109 !defined($uni_map[$utf32]) or die "Double Unicode mapping";
110 $uni_map[$utf32] = $gb1 << 24 | $gb2 << 16 | $gb3 << 8 | $gb4;
269 for ($utf32 = 0x80; $utf32 <= 0xFFFF; ++$utf32)
271 if (defined($uni_map[$utf32]))
277 $bytes = $uni_map[$utf32];
283 ($utf32 == $range_uni_first[$range_index]) or die "Bad input";
284 $utf32 = $range_uni_last[$range_index];