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

more

This commit is contained in:
John Whitington 2023-04-21 15:15:06 +01:00
parent c0d474fdae
commit 15a6883f00
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
cpdfannot.ml
View File

@ -157,14 +157,15 @@ let set_annotations_json pdf i =
| `List entries ->
(* Renumber the PDF so everything has bigger object numbers than that. *)
let maxobjnum =
fold_left
max
min_int
(map (fun e -> match e with `List [_; `Int i; _] -> i | `List [`Int i; _] -> abs i | _ -> error "Bad annots entry") entries)
in
let pdf_objnums =
map fst (list_of_hashtbl pdf.Pdf.objects.Pdf.pdfobjects)
fold_left max min_int
(map
(function
| `List [_; `Int i; _] -> i
| `List [`Int i; _] -> abs i
| _ -> error "Bad annots entry")
entries)
in
let pdf_objnums = map fst (list_of_hashtbl pdf.Pdf.objects.Pdf.pdfobjects) in
let change_table =
hashtable_of_dictionary (map2 (fun f t -> (f, t)) pdf_objnums (ilist (maxobjnum + 1) (maxobjnum + length pdf_objnums)))
in