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

First correct Toc

Browse Source
This commit is contained in:
John Whitington 2025-03-06 16:27:59 +00:00
parent 149d7c439b
commit 41bd26ea31
1 changed files with 22 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
cpdftoc.ml
View File

@ -239,15 +239,6 @@ let typeset_table_of_contents ~font ~fontsize ~title ~bookmark ~dotleader ~proce
Pdfpagelabels.startpage = 1; Pdfpagelabels.startpage = 1;
Pdfpagelabels.startvalue = 1} Pdfpagelabels.startvalue = 1}
in in
(* Building the structure tree. We have MCIDS and page numbers in toc_tags,
and annotations in the pages /Annots entries. We build the new structure
tree elements.
1) One <p> for the title
2) One for each link:
link = <</Type /StructElem /S /Link /K [<mcid> <objr>]>>
objr = <</Type /ObjR /Obj <linkannot>>>
Then we have to graft them onto the file's existing structure tree. *)
(*iter (fun x -> Printf.printf "PAGE\n"; iter (fun (_, i) -> Printf.printf "Paragraph number %i\n" i) x) toc_tags;*)
let struct_tree_root = let struct_tree_root =
match Pdf.lookup_immediate "/StructTreeRoot" (Pdf.lookup_obj pdf pdf.Pdf.root) with match Pdf.lookup_immediate "/StructTreeRoot" (Pdf.lookup_obj pdf pdf.Pdf.root) with
| Some (Pdf.Indirect i) -> i | Some (Pdf.Indirect i) -> i
@ -260,11 +251,10 @@ let typeset_table_of_contents ~font ~fontsize ~title ~bookmark ~dotleader ~proce
("/K", Pdf.Array [Pdf.Integer 0]); ("/K", Pdf.Array [Pdf.Integer 0]);
("/P", Pdf.Indirect struct_tree_root)]) ("/P", Pdf.Indirect struct_tree_root)])
in in
let mcid = ref 1 in let mcid = ref 1 in
let link_struct_elems_for_each_page = let link_struct_elems_for_each_page =
map map2
(fun page -> (fun page pageobjnum ->
let annot_objnums = let annot_objnums =
match Pdf.lookup_direct pdf "/Annots" page.Pdfpage.rest with match Pdf.lookup_direct pdf "/Annots" page.Pdfpage.rest with
| Some (Pdf.Array a) -> map (function Pdf.Indirect i -> i | _ -> 0) a | Some (Pdf.Array a) -> map (function Pdf.Indirect i -> i | _ -> 0) a
@ -276,13 +266,16 @@ let typeset_table_of_contents ~font ~fontsize ~title ~bookmark ~dotleader ~proce
let objr = Pdf.addobj pdf (Pdf.Dictionary [("/Type", Pdf.Name "/OBJR"); ("/Obj", Pdf.Indirect annot_i)]) in let objr = Pdf.addobj pdf (Pdf.Dictionary [("/Type", Pdf.Name "/OBJR"); ("/Obj", Pdf.Indirect annot_i)]) in
Pdf.addobj pdf Pdf.addobj pdf
(Pdf.Dictionary [("/S", Pdf.Name "/Link"); (Pdf.Dictionary [("/S", Pdf.Name "/Link");
("/K", Pdf.Array [Pdf.Integer !mcid; Pdf.Indirect objr])]) ("/K", Pdf.Array [Pdf.Integer !mcid; Pdf.Indirect objr]);
("/P", Pdf.Indirect struct_tree_root);
("/Pg", Pdf.Indirect pageobjnum)])
in in
incr mcid; r) incr mcid; r)
annot_objnums annot_objnums
in in
mcid := 0; r) mcid := 0; r)
toc_pages toc_pages
toc_pageobjnums
in in
let prepending_structitems = let prepending_structitems =
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)
@ -296,6 +289,22 @@ let typeset_table_of_contents ~font ~fontsize ~title ~bookmark ~dotleader ~proce
iter2 iter2
(fun o ns -> (fun o ns ->
let page = Pdf.lookup_obj pdf o in let page = Pdf.lookup_obj pdf o in
(* For each annotation, add a structparent entry too. *)
let annot_objnums =
match Pdf.lookup_direct pdf "/Annots" page with
| Some (Pdf.Array a) -> map (function Pdf.Indirect i -> i | _ -> 0) a
| _ -> []
in
(* Remove the Title P from first page list *)
let ns2 = if length ns > length annot_objnums then tl ns else ns in
iter2
(fun annot_objnum n ->
let annot = Pdf.lookup_obj pdf annot_objnum in
let sp_num = add_to_parent_tree pdf (Pdf.Indirect n) in
let new_annot = Pdf.add_dict_entry annot "/StructParent" (Pdf.Integer sp_num) in
Pdf.addobj_given_num pdf (annot_objnum, new_annot))
annot_objnums
ns2;
let ptn = add_to_parent_tree pdf (Pdf.Array (map (fun x -> Pdf.Indirect x) ns)) 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))) Pdf.addobj_given_num pdf (o, Pdf.add_dict_entry page "/StructParents" (Pdf.Integer ptn)))
toc_pageobjnums toc_pageobjnums