fenix
/
cpdf-source
mirror of https://github.com/johnwhitington/cpdf-source.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

First structure tree showing in WNI

This commit is contained in:
John Whitington 2024-09-09 18:43:24 +01:00
parent 1e78d4cf8a
commit 188ecd20f2
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
cpdfdraw.ml
View File

@ -477,14 +477,18 @@ let write_structure_tree pdf st =
let items = let items =
map map
(function StItem {kind; pageobjnum; children} -> (function StItem {kind; pageobjnum; children} ->
let this_objnum = Pdf.addobj pdf Pdf.Null in
let this_obj =
Pdf.Dictionary [("/S", Pdf.Name kind); Pdf.Dictionary [("/S", Pdf.Name kind);
("/Pg", Pdf.Indirect pageobjnum); ("/Pg", Pdf.Indirect pageobjnum);
("/P", Pdf.Indirect struct_tree_root); ("/P", Pdf.Indirect struct_tree_root);
("/K", Pdf.Array (map (function StMCID x -> ("/K", Pdf.Array (map (function StMCID x ->
let n = Pdf.addobj pdf (Pdf.Integer x) in parentmap =| (string_of_int x, Pdf.Array [Pdf.Indirect this_objnum]);
parentmap =| (string_of_int x, Pdf.Indirect n); Pdf.Integer x
Pdf.Indirect (Pdf.addobj pdf (Pdf.Integer x))
| _ -> assert false) children))] | _ -> assert false) children))]
in
Pdf.addobj_given_num pdf (this_objnum, this_obj);
Pdf.Indirect this_objnum
| _ -> assert false | _ -> assert false
) )
st st