fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-04-04 05:31:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

-copy-annotations now fixes destination page numbers in link annotations

Browse Source
This commit is contained in:
John Whitington 2015-07-29 18:02:57 +01:00
parent 32f62797b6
commit a3e59b8ba6
1 changed files with 61 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
cpdf.ml
View File

@ -2648,18 +2648,53 @@ let equalise_lengths a b =
a', b a', b
(* Copy annotations *) (* Copy annotations *)
(* FIXME: Why does this chop the files to the same length? Should be able to
apply annotations from a longer file to a shorter? *)
(* Rewrite any annotation destinations to point to pages in the
destination file. This prevents pages being copied, and ensures the links are
correct Any Indirect link inside a /Dest is rewritten if in the table. If not
inside a /Dest, nothing is rewritten. *)
let rec renumber_in_dest table indest = function
Pdf.Indirect i ->
begin
try Pdf.Indirect (Hashtbl.find table i) with _ -> Pdf.Indirect i
end
| Pdf.Array a ->
Pdf.recurse_array (renumber_in_dest table indest) a
| Pdf.Dictionary d ->
Pdf.Dictionary
(List.map
(function
("/Dest", v) -> ("/Dest", renumber_in_dest table true v)
| (k, v) -> (k, renumber_in_dest table indest v))
d)
| x -> x
let renumber_in_object pdf objnum table =
Pdf.addobj_given_num
pdf (objnum, (renumber_in_dest table false (Pdf.lookup_obj pdf objnum)))
let copy_annotations_page topdf frompdf frompage topage = let copy_annotations_page topdf frompdf frompage topage =
match Pdf.lookup_direct frompdf "/Annots" frompage.Pdfpage.rest with match Pdf.lookup_direct frompdf "/Annots" frompage.Pdfpage.rest with
Some (Pdf.Array frompage_annots as annots) -> Some (Pdf.Array frompage_annots as annots) ->
(* Rewrite any annotation destinations to point to pages in the let table =
destination file. This prevents pages being copied, and ensures the hashtable_of_dictionary
links are correct *) (combine
(Pdf.page_reference_numbers frompdf)
(Pdf.page_reference_numbers topdf))
in
List.iter List.iter
(function (function
x -> (* FIXME: We assume they are indirects. Must also do directs *)
Printf.printf "Copying annotation %s which is\n%s\n" Pdf.Indirect x ->
(Pdfwrite.string_of_pdf x) (*Printf.printf "Copying annotation %s which is\n%s\n"
(Pdfwrite.string_of_pdf (Pdf.direct frompdf x))) (Pdfwrite.string_of_pdf (Pdf.Indirect x))
(Pdfwrite.string_of_pdf (Pdf.direct frompdf (Pdf.Indirect
x)));*)
renumber_in_object frompdf x table
| _ -> ())
frompage_annots; frompage_annots;
let objects_to_copy = Pdf.objects_referenced [] [] frompdf annots in let objects_to_copy = Pdf.objects_referenced [] [] frompdf annots in
iter iter
@ -2695,7 +2730,6 @@ let copy_annotations range frompdf topdf =
while not (isnull !frompdf_pages) do while not (isnull !frompdf_pages) do
let frompdf_page = hd !frompdf_pages let frompdf_page = hd !frompdf_pages
and topdf_page = hd !topdf_pages in and topdf_page = hd !topdf_pages in
Printf.printf "Page %i...\n" !pnum;
let pdf', page = let pdf', page =
if mem !pnum range if mem !pnum range
then copy_annotations_page !pdf frompdf frompdf_page topdf_page then copy_annotations_page !pdf frompdf frompdf_page topdf_page