Don't show unpunchable missing holes by default

Author: anacrolix

src/main.rs

@@ -323,16 +323,20 @@ fn print_missing_holes(
     tx: ReadTransactionRef,
     values_file_entry: &walk::Entry,
     block_size: u64,
-    fragments: bool,
+    print_fragments: bool,
 ) -> anyhow::Result<()> {
     let file_id = values_file_entry.file_id().unwrap();
     let mut last_hole_end = None;
     for FileRegion { start, length } in missing_holes(tx, values_file_entry)? {
         if let Some(last_hole_end) = last_hole_end {
             assert!(start > last_hole_end);
         }
+        // Determine if the hole fully occupies a punchable block.
+        let this_hole_startable_block = start.div_ceil(block_size);
+        let this_hole_end_block = (start + length) / block_size;
+        let partial = this_hole_startable_block >= this_hole_end_block;
         last_hole_end = Some(start + length);
-        if !fragments && length < block_size {
+        if !print_fragments && partial {
             continue;
         }
         println!(