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

more

Browse Source
This commit is contained in:
John Whitington
2023-04-18 16:39:51 +01:00
parent bde70aa224
commit bd7cba7730
2 changed files with 24 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
cpdfannot.ml
View File

@ -1,4 +1,5 @@
open Pdfutil
open Cpdferror
(* List annotations *)
let get_annotation_string encoding pdf annot =
@ -200,8 +201,21 @@ let get_annotations_json pdf =
let json = `List (flatten (map2 (annotations_json_page pdf) pages pagenums)) in
Pdfio.bytes_of_string (J.to_string json)
(** Set annotations from JSON. Existing annotations? *)
let set_annotations_json pdf json = ()
(** Set annotations from JSON, keeping any existing ones. *)
let set_annotations_json pdf i =
let module J = Cpdfyojson.Safe in
let content = Pdfio.string_of_bytes (Pdfio.bytes_of_input i 0 i.Pdfio.in_channel_length) in
let json = J.from_string content in
(* Find largest negative objnumber. Then add number of annot objects. *)
match json with
| `List entries ->
let maxobjnum =
fold_left max min_int (map (fun e -> match e with `List (`Int i::_) -> abs i | _ -> error "Bad annots JSON entry") entries)
in
(* Renumber the PDF so everything has bigger object numbers than that. *)
Printf.printf "maxobjnum = %i\n" maxobjnum;
()
| _ -> error "Bad Annotations JSON file"
(* Equalise the page lengths of two PDFs by chopping or extending the first one.
*)