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

More work on new bookmarks format

This commit is contained in:
John Whitington 2017-11-04 16:24:14 +00:00
parent 0478f186b1
commit 576919a5ce
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
blank20.pdf
View File

Binary file not shown.

12
cpdf.ml
View File

@ -966,10 +966,18 @@ let bookmark_of_data pdf i s i' isopen optionaldest =
let pdfobj = let pdfobj =
Pdfread.parse_single_object s Pdfread.parse_single_object s
in in
Printf.printf "Parsed %s\n" (Pdfwrite.string_of_pdf pdfobj); (*Printf.printf "Parsed %s\n" (Pdfwrite.string_of_pdf pdfobj);*)
begin match pdfobj with begin match pdfobj with
Pdf.Array (Pdf.Integer x::more) -> Pdf.Array (Pdf.Integer x::more) ->
Pdfdest.read_destination (Pdf.empty ()) (Pdf.Array (Pdf.Indirect 0::more)) let pageobjnum = Pdfpage.page_object_number pdf i' in
begin match pageobjnum with
None ->
raise (Pdf.PDFError "bookmark_of_data: page obj num not found")
| Some p ->
Pdfdest.read_destination
(Pdf.empty ())
(Pdf.Array (Pdf.Indirect p::more))
end
| _ -> | _ ->
raise (Pdf.PDFError "bookmark_of_data: dest") raise (Pdf.PDFError "bookmark_of_data: dest")
end end