implement hole block ranges

computeblocklists

@@ -10,8 +10,6 @@
 #
 # a block is either a number or a range (start-end)
 #
-# TODO: instead of printing zeroes for each block in a hole use
-# something like 0*num
 
 use strict;
 
@@ -72,6 +70,8 @@ while (1) {
       last unless defined $file;
       chomp $file;
     }
+  } else {
+    last;
   }
   my $n = $file;
   $n =~ s/([\000-\037 %])/sprintf("%%%02X", ord($1))/ges;
@@ -138,6 +138,18 @@ while (1) {
       }
     }
     $block = unpack('I', $block);
+    if (!$firstblock && defined($firstblock)) {
+      # last block was hole
+      if (!$block) {
+	$lastblock++;	# count holes, 0-2 means three hole blocks
+      } else {
+	# switch back from 'hole mode' into normal mode
+	printf "-$lastblock" if defined($firstblock) && $firstblock != $lastblock;
+	print " $block";
+	$firstblock = $lastblock = $block;
+      }
+      next;
+    }
     if (!$firstblock || $lastblock + 1 != $block) {
       # start of a new run
       printf "-$lastblock" if defined($firstblock) && $firstblock != $lastblock;