Lines Matching refs:i
260 for $i (keys(%category)) {
261 $used{$i} = "[${cat}]" if $category{$i} eq $cat;
266 for $i (keys(%category)) {
267 delete $used{$i} if $category{$i} eq $cat;
272 for $i (keys(%category)) {
273 delete $used{$i} unless $category{$i} eq $cat;
284 $i = ord($_);
285 $used{$i} .= "[${setname}]" unless $remove;
286 delete $used{$i} if $remove;
299 for ($i = $first; $i <= $last; $i++) {
300 $used{$i} .= "[ARG]" unless $remove;
301 delete $used{$i} if $remove;
377 for ($i = $first; $i <= $last; $i++) {
378 $used{$i} .= "[${setname}]" unless $remove;
379 delete $used{$i} if $remove;
398 for ($i = $first; $i <= $last; $i++) {
399 $used{$i} .= "[${setname}]" unless $remove;
400 delete $used{$i} if $remove;
419 for $i (keys(%used)) {
420 next if ($name{$i} eq "<control>");
425 for $i (sort({$a <=> $b} keys(%used))) {
426 next if ($name{$i} eq "<control>");
428 $j = sprintf("%04X", $i);
440 for $i (keys(%used)) {
441 $count++ unless $name{$i} eq "<control>";
448 for $i (sort({$a <=> $b} keys(%used))) {
449 next if ($name{$i} eq "<control>");
450 $j = sprintf("%04X", $i);
481 for $i (sort({$a <=> $b} keys(%used))) {
482 next if ($name{$i} eq "<control>");
484 $sources = $used{$i};
489 $j = sprintf("%04X", $i);
494 printf("<TD>&#%d;", $i) if $adducs;
495 print "<TD><SAMP>$j</SAMP><TD><SAMP>" . name($i);
496 print " ($comment{$i})" if $comment{$i};
499 printf("%04X \# ", $i);
500 print pack("U", $i) . " " if $adducs;
501 print name($i) ."\n";
511 for $i (sort({$a <=> $b} keys(%used))) {
513 $j = sprintf("%04X", $i);
516 $alt = name($i);
530 for $i (keys(%used)) {
531 next if ($name{$i} eq "<control>");
532 $sources = $used{$i};
551 for $i (sort({$a <=> $b} keys(%used))) {
552 next if ($name{$i} eq "<control>");
553 $row = sprintf("%02X", $i >> 8);
554 $col = sprintf("%02X", $i & 0xff);
602 for $i (sort({$a <=> $b} keys(%used))) {
603 next if ($name{$i} eq "<control>");
606 printf(" { 0x%04X, ", $i);
607 $last_i = $i;
608 } elsif ($i == $last_i + 1) {
609 $last_i = $i;
613 printf(" { 0x%04X, ", $i);
614 $last_i = $i;
625 for $i (sort({$a <=> $b} keys(%used))) {
626 next if ($name{$i} eq "<control>");
627 while ($blockend[$block] < $i && $block < $blocks - 1) {
631 $i < $blockstart[$block]) {
637 if ($last < $blockstart[$block] && $i >= $blockstart[$block]) {
643 if ($category{$i} eq 'Mn') {
646 } elsif ($category{$i} eq 'Me') {
650 print pack("U", $i);
651 $col += 1 + iswide($i);
656 $last = $i;
662 for $i (sort({$a <=> $b} keys(%used))) {
663 next if ($name{$i} eq "<control>");
664 while ($blockend[$block] < $i && $block < $blocks - 1) {
667 if ($last < $blockstart[$block] && $i >= $blockstart[$block]) {
673 $last = $i;
680 for $i (keys(%used)) {
681 $count++ unless $name{$i} eq "<control>";
687 for $i (keys(%used)) {
688 delete $used{$i} unless is_unicode($i);
692 for $i (keys(%used)) {
693 delete $used{$i} if is_unicode($i);