Lines Matching refs:ccs
175 my ($ccs, $ucs) = ($codes[$CCSCol], $codes[$UCSCol]);
179 unless ($ccs =~ m/^$patt$/)
181 print("Warning (line $ln): $ccs CCS code isn't recognized, skip.\n")
193 $ccs = hex $ccs;
199 . "mark 0x%.4X CCS code as lost.\n", hex $ccs if $Verbose;
211 . "mark 0x%.4X CCS code as lost.\n", hex $ccs) if $Verbose;
217 if ($ccs > 0xFFFF && !defined $Plane)
219 print("Warning (line $ln): $ccs is > 16 bit, plane number should be specified,"
226 next if (($ccs & 0xFFFF0000) >> 16) != hex $Plane; # Skip alien plane.
227 $ccs &= 0xFFFF;
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};
242 $Bits = 16 if $ccs > 0xFF;