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

Working on TOC

Browse Source
This commit is contained in:
John Whitington 2025-03-05 17:35:47 +00:00
parent a5bfacaeac
commit d88c245c18
2 changed files with 23 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
cpdftoc.ml
View File

@ -212,6 +212,7 @@ let typeset_table_of_contents ~font ~fontsize ~title ~bookmark ~dotleader ~proce
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 let changes = map (fun n -> (n, n + toc_pages_len)) (indx original_pages) in
let pdf = Pdfpage.change_pages ~changes true pdf (toc_pages @ original_pages) in let pdf = Pdfpage.change_pages ~changes true pdf (toc_pages @ original_pages) in
let toc_pageobjnums = take (Pdf.page_reference_numbers pdf) toc_pages_len in
let label = let label =
{Pdfpagelabels.labelstyle = NoLabelPrefixOnly; {Pdfpagelabels.labelstyle = NoLabelPrefixOnly;
Pdfpagelabels.labelprefix = None; Pdfpagelabels.labelprefix = None;
@ -225,14 +226,19 @@ let typeset_table_of_contents ~font ~fontsize ~title ~bookmark ~dotleader ~proce
2) One for each link: 2) One for each link:
link = <</Type /StructElem /S /Link /K [<mcid> <objr>]>> link = <</Type /StructElem /S /Link /K [<mcid> <objr>]>>
objr = <</Type /ObjR /Obj <linkannot>>> objr = <</Type /ObjR /Obj <linkannot>>>
Then we have to graft them onto the file's existing structure tree Then we have to graft them onto the file's existing structure tree *)
Then we have to do something about /StructParents. (*iter (fun x -> Printf.printf "PAGE\n"; iter (fun (_, i) -> Printf.printf "Paragraph number %i\n" i) x) toc_tags;*)
let struct_tree_root =
It's all a simpler version of what Cpdftexttopdf does (simpler because no match Pdf.lookup_immediate "/StructTreeRoot" (Pdf.lookup_obj pdf pdf.Pdf.root) with
paras spanning multiple pages). *) | Some (Pdf.Indirect i) -> i
iter (fun x -> Printf.printf "PAGE\n"; iter (fun (_, i) -> Printf.printf "Paragraph number %i\n" i) x) toc_tags; | _ -> 0 (* Will never be written, because we only write if there is an existing tree. To revisit. *)
in
let p_struct_elem_first_page = let p_struct_elem_first_page =
Pdf.addobj pdf (Pdf.Dictionary [("/S", Pdf.Name "/P")]) Pdf.addobj pdf
(Pdf.Dictionary [("/S", Pdf.Name "/P");
("/Pg", Pdf.Indirect (hd toc_pageobjnums));
("/K", Pdf.Array [Pdf.Integer 0]);
("/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 =
@ -261,7 +267,14 @@ let typeset_table_of_contents ~font ~fontsize ~title ~bookmark ~dotleader ~proce
let prepending_structitems = let prepending_structitems =
map (fun x -> Pdf.Indirect x) (p_struct_elem_first_page::link_struct_elems_for_each_page) map (fun x -> Pdf.Indirect x) (p_struct_elem_first_page::link_struct_elems_for_each_page)
in in
prepend_structitems pdf prepending_structitems; begin match Pdf.lookup_chain pdf pdf.Pdf.trailerdict ["/Root"; "/StructTreeRoot"; "/K"] with
| Some (Pdf.Array a) ->
Pdf.replace_chain pdf ["/Root"; "/StructTreeRoot"; "/K"] (Pdf.Array (prepending_structitems @ a))
| Some (Pdf.Dictionary d) ->
Pdf.replace_chain pdf ["/Root"; "/StructTreeRoot"; "/K"] (Pdf.Array (prepending_structitems @ [Pdf.Dictionary d]))
| _ ->
() (* None found. In future, may fabricate. For now, no. *)
end;
let labels' = label::map (fun l -> {l with Pdfpagelabels.startpage = l.Pdfpagelabels.startpage + toc_pages_len}) labels in let labels' = label::map (fun l -> {l with Pdfpagelabels.startpage = l.Pdfpagelabels.startpage + toc_pages_len}) labels in
Pdfpagelabels.write pdf labels'; Pdfpagelabels.write pdf labels';
if bookmark then if bookmark then

4
cpdfua.ml
View File

@ -955,9 +955,9 @@ let matterhorn_28_011 _ _ pdf =
| Some d -> | Some d ->
begin match Pdf.lookup_direct pdf "/S" d with begin match Pdf.lookup_direct pdf "/S" d with
| Some (Pdf.Name "/Link") -> () | Some (Pdf.Name "/Link") -> ()
| _ -> merror () | _ -> merror_str "type is not link"
end end
| _ -> merror () | _ -> merror_str "not found in parent tree"
end end
| _ -> () (* Not part of structure tree. That's ok. *) | _ -> () (* Not part of structure tree. That's ok. *)
end end