This commit is contained in:
John Whitington 2023-04-18 20:19:50 +01:00
parent 014c92bdde
commit d950b97c86
1 changed files with 3 additions and 0 deletions

View File

@ -223,6 +223,9 @@ let set_annotations_json pdf i =
hashtable_of_dictionary (map2 (fun f t -> (f, t)) pdf_objnums (ilist (maxobjnum + 1) (maxobjnum + length pdf_objnums))) hashtable_of_dictionary (map2 (fun f t -> (f, t)) pdf_objnums (ilist (maxobjnum + 1) (maxobjnum + length pdf_objnums)))
in in
let pdf = Pdf.renumber change_table pdf in let pdf = Pdf.renumber change_table pdf in
(* 1. Rewrite all serial numbers in all places (annots and extra objects?) *)
(* 2. Add all the negative numbered objects straight to the file *)
(* 3. Add all the actual annotations to the /Annots array on each page *)
() ()
| _ -> error "Bad Annotations JSON file" | _ -> error "Bad Annotations JSON file"