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

Beginning on routripping of all bookmarks

This commit is contained in:
John Whitington 2019-07-06 16:47:15 +01:00
parent b6eeb6efaa
commit c82071546e
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
cpdf.ml
View File

@ -1230,13 +1230,12 @@ let remove_metadata pdf =
(* List bookmarks *)
let output_string_of_target pdf fastrefnums x =
match Pdfdest.pdfobject_of_destination x with
(*| Pdf.Array [_; Pdf.Name "/Fit"] -> ""*)
| Pdf.Array (_::more) ->
let a =
Pdf.Array (Pdf.Integer (Pdfpage.pagenumber_of_target ~fastrefnums pdf x)::more)
in
"\"" ^ Pdfwrite.string_of_pdf a ^ "\""
| _ -> Printf.eprintf "Warning: could not read target for bookmark\n"; ""
| x -> "\"" ^ Pdfwrite.string_of_pdf x ^ "\""
(* List the bookmarks, optionally deunicoding the text, in the given range to the given output *)
let list_bookmarks encoding range pdf output =