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-01-16 10:19:48 +08:00
parent 043e08914e
commit e65dc4305f
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
cpdfannot.ml
View File

@ -73,7 +73,7 @@ let annotations_json_page pdf page pagenum =
end; end;
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 := Pdf.objects_referenced [] [] pdf annot @ !extra; extra := annot::!extra;
`List [`Int pagenum; `Int serial; Cpdfjson.json_of_object ~clean_strings:true pdf (fun _ -> ()) false false annot]) `List [`Int pagenum; `Int serial; Cpdfjson.json_of_object ~clean_strings:true pdf (fun _ -> ()) false false annot])
annots annots
| _ -> [] | _ -> []
@ -117,9 +117,8 @@ let list_annotations_json range pdf =
let extra = let extra =
map map
(fun n -> (fun n ->
let obj = (*process_extra_object !objnum_to_serial_map pdf*) (Pdf.lookup_obj pdf n) in `List [`Int ~-n; Cpdfjson.json_of_object ~clean_strings:true pdf (fun _ -> ()) false false (Pdf.lookup_obj pdf n)])
`List [`Int ~-n; Cpdfjson.json_of_object ~clean_strings:true pdf (fun _ -> ()) false false obj]) (setify (flatten (map (Pdf.objects_referenced [] [] pdf) !extra)))
(setify !extra)
in in
let json = `List (json @ extra) in let json = `List (json @ extra) in
J.pretty_to_channel stdout json J.pretty_to_channel stdout json