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

Tidy up

This commit is contained in:
John Whitington 2023-05-22 17:25:47 +01:00
parent db58c093f5
commit 2699bfcc6a
1 changed files with 4 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
cpdfannot.ml
View File

@ -141,7 +141,6 @@ let set_annotations_json pdf i =
let module J = Cpdfyojson.Safe in let module J = Cpdfyojson.Safe in
let content = Pdfio.string_of_input i in let content = Pdfio.string_of_input i in
let json = J.from_string content in let json = J.from_string content in
(* Find largest negative objnumber. Then add number of annot objects. *)
match json with match json with
| `List entries -> | `List entries ->
(* Renumber the PDF so everything has bigger object numbers than that. *) (* Renumber the PDF so everything has bigger object numbers than that. *)
@ -161,6 +160,7 @@ let set_annotations_json pdf i =
pdf.root <- pdf'.root; pdf.root <- pdf'.root;
pdf.objects <- pdf'.objects; pdf.objects <- pdf'.objects;
pdf.trailerdict <- pdf'.trailerdict; pdf.trailerdict <- pdf'.trailerdict;
(* Add the extra objects back in and build the annotations. *)
let extras = option_map (function `List [`Int i; o] -> Some (i, o) | _ -> None) entries in let extras = option_map (function `List [`Int i; o] -> Some (i, o) | _ -> None) entries in
let annots = option_map (function `List [`Int pagenum; `Int i; o] -> Some (pagenum, i, o) | _ -> None) entries in let annots = option_map (function `List [`Int pagenum; `Int i; o] -> Some (pagenum, i, o) | _ -> None) entries in
iter (fun (i, o) -> Pdf.addobj_given_num pdf (i, Cpdfjson.object_of_json o)) extras; iter (fun (i, o) -> Pdf.addobj_given_num pdf (i, Cpdfjson.object_of_json o)) extras;
@ -169,27 +169,20 @@ let set_annotations_json pdf i =
combine (indx refnums) refnums combine (indx refnums) refnums
in in
let pages = Pdfpage.pages_of_pagetree pdf in let pages = Pdfpage.pages_of_pagetree pdf in
let annotsforeachpage = let annotsforeachpage = collate compare (sort compare annots) in
collate compare (sort compare annots)
in
let newpages = let newpages =
map2 map2
(fun pagenum page -> (fun pagenum page ->
(* Get annots from annotsforeachpage - if any, add to /Annots in page *)
let forthispage = flatten (keep (function (p, _, _)::t when p = pagenum -> true | _ -> false) annotsforeachpage) in let forthispage = flatten (keep (function (p, _, _)::t when p = pagenum -> true | _ -> false) annotsforeachpage) in
iter iter
(fun (pnum, i, o) -> (fun (pnum, i, o) ->
let pageobjnum = match lookup pnum pageobjnummap with Some x -> x | None -> 0 in let pageobjnum = match lookup pnum pageobjnummap with Some x -> x | None -> 0 in
let obj = Cpdfjson.object_of_json o in
let f = fun pnum -> if pageobjnum = 0 then pnum else pageobjnum in let f = fun pnum -> if pageobjnum = 0 then pnum else pageobjnum in
let rewrittenobj = rewrite_destinations f pdf obj in Pdf.addobj_given_num pdf (i, rewrite_destinations f pdf (Cpdfjson.object_of_json o)))
Pdf.addobj_given_num pdf (i, rewrittenobj))
forthispage; forthispage;
if forthispage = [] then page else if forthispage = [] then page else
let annots = let annots =
match Pdf.lookup_direct pdf "/Annots" page.Pdfpage.rest with match Pdf.lookup_direct pdf "/Annots" page.Pdfpage.rest with | Some (Pdf.Array annots) -> annots | _ -> []
| Some (Pdf.Array annots) -> annots
| _ -> []
in in
let newannots = map (fun (_, i, _) -> Pdf.Indirect i) forthispage in let newannots = map (fun (_, i, _) -> Pdf.Indirect i) forthispage in
{page with Pdfpage.rest = Pdf.add_dict_entry page.Pdfpage.rest "/Annots" (Pdf.Array (annots @ newannots))}) {page with Pdfpage.rest = Pdf.add_dict_entry page.Pdfpage.rest "/Annots" (Pdf.Array (annots @ newannots))})
@ -200,7 +193,6 @@ let set_annotations_json pdf i =
pdf.root <- pdf'.root; pdf.root <- pdf'.root;
pdf.objects <- pdf'.objects; pdf.objects <- pdf'.objects;
pdf.trailerdict <- pdf'.trailerdict pdf.trailerdict <- pdf'.trailerdict
| _ -> error "Bad Annotations JSON file" | _ -> error "Bad Annotations JSON file"
let copy_annotations range frompdf topdf = let copy_annotations range frompdf topdf =