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 2024-10-04 15:27:40 +01:00
parent 72b2a4f0c2
commit 5c4db2b52d
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
cpdftexttopdf.ml
View File

@ -155,7 +155,6 @@ let typeset ~process_struct_tree ?subformat ?title ~papersize ~font ~fontsize te
if subformat = Some Cpdfua.PDFUA2 then if subformat = Some Cpdfua.PDFUA2 then
Pdf.addobj_given_num pdf (document, Pdf.Dictionary [("/K", Pdf.Array topks); ("/P", Pdf.Indirect str); ("/S", Pdf.Name "/Document"); ("/NS", Pdf.Indirect namespace)]); Pdf.addobj_given_num pdf (document, Pdf.Dictionary [("/K", Pdf.Array topks); ("/P", Pdf.Indirect str); ("/S", Pdf.Name "/Document"); ("/NS", Pdf.Indirect namespace)]);
let parent_tree = let parent_tree =
(* We are making a map of (page number (/StructParents entry) to list of /P nodes, one for each MCID on that page in order. *)
let pairs = let pairs =
map map
(fun pn -> (fun pn ->