fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-02-16 11:50:54 +01:00
Code Issues Packages Projects Releases Wiki Activity

more

Browse Source
This commit is contained in:
John Whitington 2023-04-22 15:28:11 +01:00
parent b124c8362d
commit 47939951ff
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
cpdfannot.ml
View File

@ -137,13 +137,16 @@ let get_annotations encoding pdf =
pages pages
(ilist 1 (length pages))) (ilist 1 (length pages)))
let get_annotations_json pdf = let get_annotations_json pdf range =
let refnums = Pdf.page_reference_numbers pdf in let refnums = Pdf.page_reference_numbers pdf in
let fastrefnums = hashtable_of_dictionary (combine refnums (indx refnums)) in let fastrefnums = hashtable_of_dictionary (combine refnums (indx refnums)) in
let calculate_pagenumber = Pdfpage.pagenumber_of_target ~fastrefnums pdf in let calculate_pagenumber = Pdfpage.pagenumber_of_target ~fastrefnums pdf in
let module J = Cpdfyojson.Safe in let module J = Cpdfyojson.Safe in
let pages = Pdfpage.pages_of_pagetree pdf in let pages = Pdfpage.pages_of_pagetree pdf in
let pagenums = indx pages in let pagenums = indx pages in
let pairs = combine pagenums pages in
let pairs_in_range = option_map (fun (pn, p) -> if mem pn range then Some (pn, p) else None) pairs in
let pagenums, pages = split pairs_in_range in
let json = `List (flatten (map2 (annotations_json_page calculate_pagenumber pdf) pages pagenums)) in let json = `List (flatten (map2 (annotations_json_page calculate_pagenumber pdf) pages pagenums)) in
Pdfio.bytes_of_string (J.to_string json) Pdfio.bytes_of_string (J.to_string json)
@ -182,7 +185,8 @@ let set_annotations_json pdf i =
() ()
| _ -> error "Bad Annotations JSON file" | _ -> error "Bad Annotations JSON file"
let copy_annotations range frompdf topdf = () let copy_annotations range frompdf topdf =
set_annotations_json topdf (Pdfio.input_of_bytes (get_annotations_json frompdf range))
(* Remove annotations *) (* Remove annotations *)
let remove_annotations range pdf = let remove_annotations range pdf =

2
cpdfannot.mli
View File

@ -4,7 +4,7 @@
val remove_annotations : int list -> Pdf.t -> Pdf.t val remove_annotations : int list -> Pdf.t -> Pdf.t
(** Get annotations as JSON *) (** Get annotations as JSON *)
val get_annotations_json : Pdf.t -> Pdfio.bytes val get_annotations_json : Pdf.t -> int list -> Pdfio.bytes
(** Set annotations from JSON. *) (** Set annotations from JSON. *)
val set_annotations_json : Pdf.t -> Pdfio.input -> unit val set_annotations_json : Pdf.t -> Pdfio.input -> unit