Lines Matching refs:codelen

97 	my $codelen;
119 		$codelen = 0;
133 		$codelen = 1;
149 		$codelen = 2;
162 		$codelen = 3;
186 	print "  Code size: " . $Codesize[$codelen] . "\n" if $opt_v;
187 	$bits .= $Codesize[$codelen];
190 	$dictval = sprintf($Dictvalformat[$codelen], $dictval);
193 	    " bits instead of the expected $Dictvalbits[$codelen]\n"
194 	    if length($dictval) != $Dictvalbits[$codelen];
198 	$bits .= '0' x $Csumbits[$codelen];
212 	    - $Csumbits[$codelen],  $Csumbits[$codelen]) . "\n" if $opt_v;
213 	substr($bits, - $Csumbits[$codelen],  $Csumbits[$codelen]) =
215 	    - $Csumbits[$codelen],  $Csumbits[$codelen]);