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 2021-12-03 16:53:58 -08:00
parent bb5fae55d2
commit ef0d423cf3
1 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
cpdfcommand.ml
View File

@ -2973,13 +2973,13 @@ let typeset_table_of_contents ~font pdf =
in in
Pdfpaper.make Pdfunits.PdfPoint width height Pdfpaper.make Pdfunits.PdfPoint width height
in in
let labels = Pdfpagelabels.read pdf in
let lines = let lines =
let refnums = Pdf.page_reference_numbers pdf in let refnums = Pdf.page_reference_numbers pdf in
let fastrefnums = hashtable_of_dictionary (combine refnums (indx refnums)) in let fastrefnums = hashtable_of_dictionary (combine refnums (indx refnums)) in
map map
(fun mark -> (fun mark ->
let label = let label =
let labels = Pdfpagelabels.read pdf in
let pnum = Pdfpage.pagenumber_of_target ~fastrefnums pdf mark.Pdfmarks.target in let pnum = Pdfpage.pagenumber_of_target ~fastrefnums pdf mark.Pdfmarks.target in
try Pdfpagelabels.pagelabeltext_of_pagenumber pnum labels with Not_found -> string_of_int pnum try Pdfpagelabels.pagelabeltext_of_pagenumber pnum labels with Not_found -> string_of_int pnum
in in
@ -3000,12 +3000,19 @@ let typeset_table_of_contents ~font pdf =
Cpdftype.VGlue {glen = args.fontsize *. 2.; gstretch = 0.}; Cpdftype.VGlue {glen = args.fontsize *. 2.; gstretch = 0.};
Cpdftype.Font f] @ flatten lines) Cpdftype.Font f] @ flatten lines)
in in
let original_pages = Pdfpage.pages_of_pagetree pdf in let original_pages = Pdfpage.pages_of_pagetree pdf in
let changes = let toc_pages_len = length toc_pages in
let toc_pages_len = length toc_pages in let changes = map (fun n -> (n, n + toc_pages_len)) (indx original_pages) in
map (fun n -> (n, n + toc_pages_len)) (indx original_pages) let pdf = Pdfpage.change_pages ~changes true pdf (toc_pages @ original_pages) in
in let label =
Pdfpage.change_pages ~changes true pdf (toc_pages @ original_pages) {Pdfpagelabels.labelstyle = NoLabelPrefixOnly;
Pdfpagelabels.labelprefix = None;
Pdfpagelabels.startpage = 1;
Pdfpagelabels.startvalue = 1}
in
let labels' = label::map (fun l -> {l with Pdfpagelabels.startpage = l.Pdfpagelabels.startpage + toc_pages_len}) labels in
Pdfpagelabels.write pdf labels';
pdf
(* Main function *) (* Main function *)
let go () = let go () =