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

re-jig for cpdflib

This commit is contained in:
John Whitington 2022-01-18 15:08:20 +00:00
parent c263b807ad
commit 0aa141d908
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
cpdfbookmarks.ml
View File

@ -179,7 +179,7 @@ let json_of_target pdf fastrefnums x =
Cpdfjson.json_of_object pdf (fun _ -> ()) false false a Cpdfjson.json_of_object pdf (fun _ -> ()) false false a
| x -> Cpdfjson.json_of_object pdf (fun _ -> ()) false false x | x -> Cpdfjson.json_of_object pdf (fun _ -> ()) false false x
let output_json_marks ch calculate_page_number pdf fastrefnums marks = let output_json_marks output calculate_page_number pdf fastrefnums marks =
let module J = Cpdfyojson.Safe in let module J = Cpdfyojson.Safe in
let json_of_mark m = let json_of_mark m =
`Assoc `Assoc
@ -190,7 +190,7 @@ let output_json_marks ch calculate_page_number pdf fastrefnums marks =
("target", json_of_target pdf fastrefnums m.Pdfmarks.target)] ("target", json_of_target pdf fastrefnums m.Pdfmarks.target)]
in in
let json = `List (map json_of_mark marks) in let json = `List (map json_of_mark marks) in
J.pretty_to_channel ch json output.Pdfio.output_string (J.pretty_to_string json)
let process_string encoding s = let process_string encoding s =
let rec replace c x y = function let rec replace c x y = function
@ -249,7 +249,7 @@ let list_bookmarks ~json encoding range pdf output =
Pdfpage.pagenumber_of_target ~fastrefnums pdf mark.Pdfmarks.target Pdfpage.pagenumber_of_target ~fastrefnums pdf mark.Pdfmarks.target
in in
if json then if json then
output_json_marks stdout calculate_page_number pdf fastrefnums inrange output_json_marks output calculate_page_number pdf fastrefnums inrange
else else
iter iter
(function mark -> (function mark ->