more

2023-01-16 10:51:03 +08:00 · 2023-01-16 10:51:03 +08:00 · 2a7dd56bea
parent e65dc4305f
commit 2a7dd56bea
1 changed files with 1 additions and 0 deletions
--- a/cpdfannot.ml
+++ b/cpdfannot.ml
@ -120,6 +120,7 @@ let list_annotations_json range pdf =
         `List [`Int ~-n; Cpdfjson.json_of_object ~clean_strings:true pdf (fun _ -> ()) false false (Pdf.lookup_obj pdf n)])
      (setify (flatten (map (Pdf.objects_referenced [] [] pdf) !extra)))
  in
+    Printf.printf "EXTRA: %i objects\n" (length extra);
    let json = `List (json @ extra) in
    J.pretty_to_channel stdout json