Lines Matching refs:ucs
84 my $ucs = shift(@_);
86 return ($ucs >= 0x1100 &&
87 ($ucs <= 0x115f || # Hangul Jamo
88 $ucs == 0x2329 || $ucs == 0x232a ||
89 ($ucs >= 0x2e80 && $ucs <= 0xa4cf &&
90 $ucs != 0x303f) || # CJK .. Yi
91 ($ucs >= 0xac00 && $ucs <= 0xd7a3) || # Hangul Syllables
92 ($ucs >= 0xf900 && $ucs <= 0xfaff) || # CJK Comp. Ideographs
93 ($ucs >= 0xfe30 && $ucs <= 0xfe6f) || # CJK Comp. Forms
94 ($ucs >= 0xff00 && $ucs <= 0xff60) || # Fullwidth Forms
95 ($ucs >= 0xffe0 && $ucs <= 0xffe6) ||
96 ($ucs >= 0x20000 && $ucs <= 0x2fffd) ||
97 ($ucs >= 0x30000 && $ucs <= 0x3fffd)));
114 my $ucs = shift(@_);
117 if (($ucs >= 0x3400 && $ucs <= 0x4db5) ||
118 ($ucs >= 0x4e00 && $ucs <= 0x9fa5) ||
119 ($ucs >= 0x20000 && $ucs <= 0x2a6d6)) {
120 return "CJK UNIFIED IDEOGRAPH-" . sprintf("%04X", $ucs);
123 if ($ucs >= 0xac00 && $ucs <= 0xd7a3) {
124 my $s = $ucs - 0xac00;
134 return $name{$ucs};
138 my $ucs = shift(@_);
141 if (($ucs >= 0x3400 && $ucs <= 0x4db5) ||
142 ($ucs >= 0x4e00 && $ucs <= 0x9fa5) ||
143 ($ucs >= 0xac00 && $ucs <= 0xd7a3) ||
144 ($ucs >= 0x20000 && $ucs <= 0x2a6d6)) {
148 return exists $name{$ucs};
185 $ucs = hex($1);
186 $name{$ucs} = $2;
187 $invname{$2} = $ucs;
188 $category{$ucs} = $3;
189 $comment{$ucs} = $12;
353 $ucs = $invname{$2};
354 die "unknown ISO 10646 name '$2' in '$setfile' line $..\n" if ! $ucs;
355 $used{$ucs} .= "[${setname}{$1}]" unless $remove;
356 delete $used{$ucs} if $remove;