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-01-16 14:07:11 +08:00
parent 14b8753155
commit 7a7f3eba29
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
cpdfannot.ml
View File

@ -152,8 +152,13 @@ let list_annotations_json range pdf =
`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 (Pdf.lookup_obj pdf n)])
(setify (flatten (map (Pdf.objects_referenced [] [] pdf) extra))) (setify (flatten (map (Pdf.objects_referenced [] [] pdf) extra)))
in in
Printf.printf "EXTRA: %i objects\n" (length extra); let header =
let json = `List (json @ extra) in `List
[`Int 0;
Cpdfjson.json_of_object ~clean_strings:true pdf (fun _ -> ()) false false
(Pdf.Dictionary ["/CPDFJSONannotformatversion", Pdf.Integer 1])]
in
let json = `List ([header] @ json @ extra) in
J.pretty_to_channel stdout json J.pretty_to_channel stdout json
let list_annotations ~json range encoding pdf = let list_annotations ~json range encoding pdf =