Lines Matching refs:ucs
175 my ($ccs, $ucs) = ($codes[$CCSCol], $codes[$UCSCol]);
185 unless ($ucs =~ m/^($patt(,|\+))*$patt$/)
187 print("Warning (line $ln): $ucs UCS code isn't recognized, skip.\n")
195 if ($ucs =~ m/,/ or $ucs =~ m/\+/)
200 $ucs = $TmpLost;
205 $ucs = hex $ucs;
208 if ($ucs > 0xFFFF)
212 $ucs = $TmpLost;
231 if ($ccs == $InvCode or $ucs == $InvCode)
239 $UCSCCS{$ucs} = $ccs if $ucs != $TmpLost && !defined $UCSCCS{$ucs};
240 $CCSUCS{$ccs} = $ucs if !defined $CCSUCS{$ccs};