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-03-16 12:51:54 +00:00
parent a50f9e22b2
commit 1585e4fe4e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cpdfpagespec.ml
View File

@ -100,7 +100,7 @@ let resolve_pagelabels pdf spec =
let labels = let labels =
let labs = Pdfpagelabels.read pdf in let labs = Pdfpagelabels.read pdf in
map map
(fun pnum -> (Pdfpagelabels.pagelabeltext_of_pagenumber pnum labs, pnum)) (fun pnum -> (begin try Pdfpagelabels.pagelabeltext_of_pagenumber pnum labs with Not_found -> "" end, pnum))
(ilist 1 (Pdfpage.endpage pdf)) (ilist 1 (Pdfpage.endpage pdf))
in in
(*iter (fun (s, l) -> Printf.printf "%s = %i\n" s l) labels;*) (*iter (fun (s, l) -> Printf.printf "%s = %i\n" s l) labels;*)