Lines Matching refs:bits
87 my $bits;
148 $bits .= sprintf('%05b', $i);
151 die "no code type in bits \"$bits\"\n"
152 unless $bits =~ /^(..)/;
156 die "no code length in bits \"$bits\"\n"
157 unless $bits =~ /^..(..)/;
163 $dictval = substr($bits, 4, $Dictvalbits[$codelen]);
164 die "no dictval in bits \"$bits\"\n"
197 substr($bits, - $Csumbits[$codelen], $Csumbits[$codelen]);
198 die "no checksum in bits \"$bits\"\n"
202 substr($bits, - $Csumbits[$codelen], $Csumbits[$codelen]) =
206 my $bitscopy = $bits;
249 my $bits = shift;
253 while ($bits =~ /(.)$/) {
256 $bits =~ s/.$//;