fenix
/
cpdf-source
mirror of https://github.com/johnwhitington/cpdf-source.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix up annotation extras

This commit is contained in:
John Whitington 2023-05-30 14:55:29 +01:00
parent e17982fca2
commit c2a1bd00af
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
cpdfannot.ml
View File

@ -59,6 +59,9 @@ let excluded pdf annot =
match Pdf.lookup_direct pdf "/Subtype" annot with match Pdf.lookup_direct pdf "/Subtype" annot with
| Some (Pdf.Name ("/Movie" | "/Widget" | "/Screen" | "/PrinterMark" | "/TrapNet")) -> true | Some (Pdf.Name ("/Movie" | "/Widget" | "/Screen" | "/PrinterMark" | "/TrapNet")) -> true
| _ -> false | _ -> false
(* Printf.printf "Skipping %s\n" n; true
| Some (Pdf.Name x) ->
Printf.printf "Including %s\n" x; false*)
let extra = ref [] let extra = ref []
@ -100,8 +103,8 @@ let get_annotations_json pdf range =
let pages, pagenums = split pairs in let pages, pagenums = split pairs in
let json = flatten (map2 (annotations_json_page calculate_pagenumber pdf) pages pagenums) in let json = flatten (map2 (annotations_json_page calculate_pagenumber pdf) pages pagenums) in
let jsonobjnums : int list = map (function `List [_; `Int n; _] -> n | _ -> assert false) json in let jsonobjnums : int list = map (function `List [_; `Int n; _] -> n | _ -> assert false) json in
(*Printf.printf "%i extra roots to explore\n" (length extra); (*Printf.eprintf "%i extra roots to explore\n" (length !extra);
iter (fun x -> Pdfe.log "%s\n\n" (Pdfwrite.string_of_pdf x)) extra;*) iter (fun x -> Pdfe.log (Printf.sprintf "%s\n\n" (Pdfwrite.string_of_pdf x))) !extra;*)
let extra = let extra =
map map
(fun n -> (fun n ->
@ -113,9 +116,11 @@ let get_annotations_json pdf range =
(flatten (flatten
(map (map
(fun x -> (fun x ->
let x = Pdf.remove_dict_entry x "/Popup" in
let x = Pdf.remove_dict_entry x "/Parent" in
let r = Pdf.objects_referenced [] [] pdf x in let r = Pdf.objects_referenced [] [] pdf x in
(*Printf.printf "%i extra for annot %s\n" (length r) (*Printf.eprintf "%i extra for annot %s\n" (length r) (Pdfwrite.string_of_pdf x);*)
(Pdfwrite.string_of_pdf x);*) r) r)
!extra))) !extra)))
in in
let extra = let extra =