Lines Matching refs:tbl
545 my $tbl;
551 $tbl = \@ToSpeedTbl;
557 $tbl = \@FromSpeedTbl;
574 $tbl->[0]->[$i] = $busy_blocks[$i] ? $idx += 256 : undef;
585 $tbl->[$i+1]->[$j] = $map->{($i << 8) | $j};
622 my $tbl;
628 $tbl = \@ToSizeTbl;
634 $tbl = \@FromSizeTbl;
740 $tbl->[0] = $#ranges + 1; # Number of ranges
741 $tbl->[1] = $#unranged + 1; # Number of unranged codes
742 $tbl->[2] = $idx; # Array index of unranged codes
750 $tbl->[3]->[$num]->[0] = $_->[0];
751 $tbl->[3]->[$num]->[1] = $_->[$#$_];
752 $tbl->[3]->[$num]->[2] = $idx;
763 $tbl->[4]->[$num]->[$i] = defined $_->[$i] ? $map->{$_->[$i]} : undef;
773 $tbl->[5]->[$num]->[0] = $_;
774 $tbl->[5]->[$num]->[1] = $map->{$_};
977 my $tbl;
983 $tbl = \@ToSpeedTbl;
1005 $tbl = \@FromSpeedTbl;
1042 if (defined $tbl->[0]->[$i])
1044 printf OUTFILE "0x%.4X,", $tbl->[0]->[$i];
1055 foreach @{$tbl->[0]};
1062 for (my $blk = 1; $blk <= $#$tbl; $blk++)
1064 next unless defined $tbl->[$blk];
1070 my $code = $tbl->[$blk]->[$i];
1079 for (my $blk = 1; $blk <= $#$tbl; $blk++)
1081 next unless defined $tbl->[$blk];
1084 my $code = $tbl->[$blk]->[$i];
1131 my $tbl;
1137 $tbl = \@ToSizeTbl;
1159 $tbl = \@FromSizeTbl;
1190 printf OUTFILE "\t0x%.4X, /* Ranges number */\n", $tbl->[0];
1191 printf OUTFILE "\t0x%.4X, /* Unranged codes number */\n", $tbl->[1];
1192 printf OUTFILE "\t0x%.4X, /* First unranged code index */\n", $tbl->[2];
1196 printf OUTFILE pack $endian, $tbl->[0];
1197 printf OUTFILE pack $endian, $tbl->[1];
1198 printf OUTFILE pack $endian, $tbl->[2];
1206 for (my $range = 0; $range <= $#{$tbl->[3]}; $range++)
1210 $tbl->[3]->[$range]->[0],
1211 $tbl->[3]->[$range]->[1],
1212 $tbl->[3]->[$range]->[2];
1217 for (my $range = 0; $range <= $#{$tbl->[3]}; $range++)
1219 print OUTFILE pack($endian, $tbl->[3]->[$range]->[0]),
1220 pack($endian, $tbl->[3]->[$range]->[1]),
1221 pack($endian, $tbl->[3]->[$range]->[2]);
1230 for (my $range = 0; $range <= $#{$tbl->[3]}; $range++)
1233 $tbl->[3]->[$range]->[0], $tbl->[3]->[$range]->[1], $idx;
1234 $idx += $tbl->[3]->[$range]->[1] - $tbl->[3]->[$range]->[0] + 1;
1236 $elt <= $#{$tbl->[4]->[$range]};
1240 if (defined $tbl->[4]->[$range]->[$elt])
1242 if ($tbl->[4]->[$range]->[$elt] != $TmpLost)
1244 printf OUTFILE "0x%.4X,", $tbl->[4]->[$range]->[$elt];
1260 for (my $range = 0; $range <= $#{$tbl->[3]}; $range++)
1262 for (my $elt = 0; $elt <= $#{$tbl->[4]->[$range]}; $elt++)
1264 if (defined $tbl->[4]->[$range]->[$elt])
1266 if ($tbl->[4]->[$range]->[$elt] != $TmpLost)
1268 print OUTFILE pack $endian, $tbl->[4]->[$range]->[$elt];
1286 printf OUTFILE "\n\t/* Unranged codes (%d codes) */", $#{$tbl->[4]} + 1;
1287 for (my $i = 0; $i <= $#{$tbl->[5]}; $i++)
1290 $idx, $tbl->[5]->[$i]->[0], $tbl->[5]->[$i]->[1];
1295 for (my $i = 0; $i <= $#{$tbl->[5]}; $i++)
1297 print OUTFILE pack($endian, $tbl->[5]->[$i]->[0]),
1298 pack($endian, $tbl->[5]->[$i]->[1]);