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 13:49:56 +01:00
parent d83197070e
commit e0192789c0
1 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
cpdfannot.ml
View File

@ -55,7 +55,7 @@ let rewrite_destinations pdf annot =
let extra = ref [] let extra = ref []
let serial = ref ~-1 let serial = ref 0
let getserial () = let getserial () =
serial +=1; !serial serial +=1; !serial
@ -75,11 +75,17 @@ let annotations_json_page pdf page pagenum =
let annot = Pdf.direct pdf annot in let annot = Pdf.direct pdf annot in
let annot = rewrite_destinations pdf annot in let annot = rewrite_destinations pdf annot in
extra := annot::!extra; extra := annot::!extra;
`List [`Int pagenum; `Int serial; Cpdfjson.json_of_object ~utf8:true ~clean_strings:true pdf (fun _ -> ()) ~no_stream_data:false ~parse_content:false annot]) `List
[`Int pagenum;
`Int serial;
Cpdfjson.json_of_object ~utf8:true ~clean_strings:true pdf (fun _ -> ())
~no_stream_data:false ~parse_content:false annot])
annots annots
| _ -> [] | _ -> []
(* Rewrite any /Parent entries in /Popup annotations to have annot serial number, not object number, and all /Popup entries in parent annotations similarly. *) (* Rewrite any /Parent entries in /Popup annotations to have annot serial
number, not object number, and all /Popup entries in parent annotations
similarly. *)
let postprocess_json_pdf objnum_to_serial_map pdf obj = let postprocess_json_pdf objnum_to_serial_map pdf obj =
let obj = let obj =
match obj with match obj with
@ -128,13 +134,18 @@ let postprocess_json pdf objnum_to_serial_map json =
| `List [`Int pagenum; `Int serial; jo] -> | `List [`Int pagenum; `Int serial; jo] ->
let pdfobj = Cpdfjson.object_of_json jo in let pdfobj = Cpdfjson.object_of_json jo in
let fixed = postprocess_json_pdf objnum_to_serial_map pdf pdfobj in let fixed = postprocess_json_pdf objnum_to_serial_map pdf pdfobj in
`List [`Int pagenum; `Int serial; Cpdfjson.json_of_object ~utf8:true ~clean_strings:true pdf (fun _ -> ()) ~no_stream_data:false ~parse_content:false fixed] `List
[`Int pagenum;
`Int serial;
Cpdfjson.json_of_object
~utf8:true ~clean_strings:true pdf (fun _ -> ())
~no_stream_data:false ~parse_content:false fixed]
| _ -> assert false) | _ -> assert false)
json json
let list_annotations_json range pdf = let list_annotations_json range pdf =
extra := []; extra := [];
serial := ~-1; serial := 0;
objnum_to_serial_map := []; objnum_to_serial_map := [];
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
@ -214,7 +225,7 @@ let set_annotations_json pdf i =
fold_left fold_left
max max
min_int min_int
(map (fun e -> match e with `List (`Int i::_) -> abs i | _ -> error "Bad annots entry") entries) (map (fun e -> match e with `List [_; `Int i; _] -> i | `List [`Int i; _] -> abs i | _ -> error "Bad annots entry") entries)
in in
let pdf_objnums = let pdf_objnums =
map fst (list_of_hashtbl pdf.Pdf.objects.Pdf.pdfobjects) map fst (list_of_hashtbl pdf.Pdf.objects.Pdf.pdfobjects)