Lines Matching refs:codelen
88 my $codelen;
99 $codelen = 3;
101 $codelen = 2;
103 $codelen = 1;
105 $codelen = 0;
109 print " Bust up code: \"$id\" (format $codelen)\n"
160 unless oct('0b' . $1) == $codelen;
163 $dictval = substr($bits, 4, $Dictvalbits[$codelen]);
165 unless length($dictval) == $Dictvalbits[$codelen];
166 print " " . sprintf('%2d', $Dictvalbits[$codelen]) .
175 if ($codelen == 1) {
179 } elsif ($codelen == 2) {
183 } elsif ($codelen == 3) {
197 substr($bits, - $Csumbits[$codelen], $Csumbits[$codelen]);
199 unless length($csumfromcode) == $Csumbits[$codelen];
202 substr($bits, - $Csumbits[$codelen], $Csumbits[$codelen]) =
203 '0' x $Csumbits[$codelen];
217 print " " . sprintf('%2d', $Csumbits[$codelen]) .
222 - $Csumbits[$codelen], $Csumbits[$codelen])) {
229 - $Csumbits[$codelen],
230 $Csumbits[$codelen]) . ")\n";
234 - $Csumbits[$codelen],
235 $Csumbits[$codelen]) . ")\n";