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

Fix link rewriting in -set-annotations

This commit is contained in:
John Whitington 2023-09-19 13:43:21 +01:00
parent a161cd035c
commit 268e80ea9e
3 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
cpdfannot.ml
View File

@ -1,4 +1,4 @@
(** A loose JSON equivalent of XFDF. *)
(** A loose JSON equivalent of XFDF for annotations. *)
open Pdfutil
open Cpdferror
@ -29,8 +29,10 @@ let list_annotations range encoding pdf =
(* New, JSON style *)
let rewrite_destination f d =
match d with
| Pdf.Array (Pdf.Indirect i::r) ->
| Pdf.Array (Pdf.Indirect i::r) -> (* out *)
Pdf.Array (Pdf.Integer (f i)::r)
| Pdf.Array (Pdf.Integer i::r) -> (* in *)
Pdf.Array (Pdf.Indirect (f i)::r)
| x -> x
let rewrite_destinations f pdf annot =
@ -127,7 +129,7 @@ let get_annotations_json pdf range =
in
let header =
`List
[`Int 0;
[`Int ~-1;
Cpdfjson.json_of_object ~utf8:true ~clean_strings:true pdf (fun _ -> ())
~no_stream_data:false ~parse_content:false
(Pdf.Dictionary ["/CPDFJSONannotformatversion", Pdf.Integer 1])]
@ -187,9 +189,8 @@ let set_annotations_json pdf i =
(fun pagenum page ->
let forthispage = flatten (keep (function (p, _, _)::t when p = pagenum -> true | _ -> false) annotsforeachpage) in
iter
(fun (pnum, i, o) ->
let pageobjnum = match lookup pnum pageobjnummap with Some x -> x | None -> 0 in
let f = fun pnum -> if pageobjnum = 0 then pnum else pageobjnum in
(fun (_, i, o) ->
let f = fun pnum -> match lookup pnum pageobjnummap with Some x -> x | None -> pnum in
Pdf.addobj_given_num pdf (i, rewrite_destinations f pdf (Cpdfjson.object_of_json o)))
forthispage;
if forthispage = [] then page else

BIN
cpdfmanual.pdf
View File

Binary file not shown.

2
cpdfmanual.tex
View File

@ -2858,7 +2858,7 @@ annotations on the selected pages to standard output. Each annotation is precede
]
\end{verbatim}}
\noindent Extra objects required for annotations, but which are not annotations themselves are also extracted. They omit the page number, being just a pair of the object number and annotation. The CPDFJSON format is described on page \pageref{cpdfjson}.
\noindent Extra objects required for annotations, but which are not annotations themselves are also extracted. They omit the page number, being just a pair of the object number and object. The CPDFJSON format is described on page \pageref{cpdfjson}.
\section{Setting annotations}