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

more

This commit is contained in:
John Whitington 2023-01-16 13:35:40 +08:00
parent 73fe26a6d4
commit 14b8753155
1 changed files with 23 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
cpdfannot.ml
View File

@ -80,17 +80,32 @@ let annotations_json_page pdf page pagenum =
(* Rewrite any /Parent entries in /Popup annotations to have annot serial number, not object number, and all /Popup entries in parent annotations similarly. *) (* Rewrite any /Parent entries in /Popup annotations to have annot serial number, not object number, and all /Popup entries in parent annotations similarly. *)
let postprocess_json_pdf objnum_to_serial_map pdf obj = let postprocess_json_pdf objnum_to_serial_map pdf obj =
let obj =
match obj with
| Pdf.Dictionary d ->
(* These things seem to be to do with digital signatures, which aren't
going to survive round-tripping of annotations anyway, and drag in
all sorts of extra objects we don't want, so we remove them. *)
let d = remove "/Lock" (remove "/V" d) in Pdf.Dictionary d
| _ -> obj
in
match obj with match obj with
| Pdf.Dictionary d -> | Pdf.Dictionary d ->
let obj = let obj =
begin match lookup "/Subtype" d, lookup "/Parent" d with begin match lookup "/Subtype" d, lookup "/Parent" d with
| Some (Pdf.Name "/Popup"), Some (Pdf.Indirect i) -> | Some (Pdf.Name "/Popup"), Some (Pdf.Indirect i) ->
begin match lookup i objnum_to_serial_map with begin match lookup i objnum_to_serial_map with
| Some s -> Pdf.add_dict_entry obj "/Parent" (Pdf.Integer s) | Some s -> Pdf.add_dict_entry obj "/Parent" (Pdf.Integer s)
| None -> Printf.eprintf "Warning: Cpdfannot.process_extra_object: could not find serial number\n"; obj | None -> Printf.eprintf "Warning: Cpdfannot.process_extra_object: could not find serial number\n"; obj
end end
| _ -> obj | _ ->
end (* If not a popup annoation, remove /Parent. It drags in lots of
extra objects (the whole page tree!) with a widget
annotation, and we are unlikely to be able to round-trip them
anyway. One day, if we can match FDF properly, it might be
possible, but not now. *)
Pdf.remove_dict_entry obj "/Parent"
end
in in
begin match obj with begin match obj with
| Pdf.Dictionary d -> | Pdf.Dictionary d ->