fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-06-02 12:19:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

On with toc

Browse Source
This commit is contained in:
John Whitington 2025-03-06 15:33:24 +00:00
parent 091561cb25
commit 149d7c439b
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
cpdftoc.ml
View File

@ -288,12 +288,18 @@ let typeset_table_of_contents ~font ~fontsize ~title ~bookmark ~dotleader ~proce
map (fun x -> Pdf.Indirect x) (p_struct_elem_first_page::flatten link_struct_elems_for_each_page) map (fun x -> Pdf.Indirect x) (p_struct_elem_first_page::flatten link_struct_elems_for_each_page)
in in
(* Add the key and value structure item (any p, and that page's links) to the parent tree for each TOC page *) (* Add the key and value structure item (any p, and that page's links) to the parent tree for each TOC page *)
iter let toc_structure_items_per_page =
(fun o -> match link_struct_elems_for_each_page with
let page = Pdf.lookup_obj pdf o in | h::t -> (p_struct_elem_first_page::h)::t
let ptn = add_to_parent_tree pdf (Pdf.Array []) in | [] -> []
Pdf.addobj_given_num pdf (o, Pdf.add_dict_entry page "/StructParents" (Pdf.Integer ptn))) in
toc_pageobjnums; iter2
(fun o ns ->
let page = Pdf.lookup_obj pdf o in
let ptn = add_to_parent_tree pdf (Pdf.Array (map (fun x -> Pdf.Indirect x) ns)) in
Pdf.addobj_given_num pdf (o, Pdf.add_dict_entry page "/StructParents" (Pdf.Integer ptn)))
toc_pageobjnums
toc_structure_items_per_page;
begin match Pdf.lookup_chain pdf pdf.Pdf.trailerdict ["/Root"; "/StructTreeRoot"; "/K"] with begin match Pdf.lookup_chain pdf pdf.Pdf.trailerdict ["/Root"; "/StructTreeRoot"; "/K"] with
| Some (Pdf.Array a) -> | Some (Pdf.Array a) ->
Pdf.replace_chain pdf ["/Root"; "/StructTreeRoot"; "/K"] (Pdf.Array (prepending_structitems @ a)) Pdf.replace_chain pdf ["/Root"; "/StructTreeRoot"; "/K"] (Pdf.Array (prepending_structitems @ a))