use strict;
use warnings;
no warnings 'redefine';

# $cc[$n]->[$k] is a character class matching a byte with
# a run of zero bits of length at least $k and starting
# exactly $n bits from the end

our @cc = map {
   my $n = $_;
   [ ($n==0 ? () : $n==8 ? ('') : (undef)),
     map {
      # $m = first bit after the start of the run
      #  that does not have to be zero
      my $m = $_+8-$n; 
      local $" = '';
      qr{[@{[map { 
                quotemeta(chr(0x80>>$n|$_<<$m)) . 
                ($n<7 ? '-' . quotemeta(chr(0xFF>>$n|$_<<$m)) : '')
             } 0..(0xFF>>$m)]}]}
     } ($n==0 ? 0 : 1)..$n ]
} 0..8;
$cc[0]->[0] = qr{^|$cc[0]->[0]"};


sub zero_bit_regexp {
  my $N = shift;
  my $p = join '|',
      map { $N<=$_ ? "$cc[$_]->[$N]()" :
                     "$cc[$_]->[$_](\\0{@{[($N-$_)>>3]}}$cc[8]->[($N-$_)&0x7])" }
          0..7;
  return qr{$p};
}

sub match_0s_w {
    my $N    = shift;       # number of consecutive '0' bits to be matched
    local $_ = shift || $_; # string to match against
    return ($_ !~ zero_bit_regexp($N)) ? -1 : $-[$#-]*8 - $#- + 1
}