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

First half-decent structure tree

This commit is contained in:
John Whitington 2024-09-09 18:05:12 +01:00
parent 5861665322
commit 1e78d4cf8a
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
cpdfdraw.ml
View File

@ -473,11 +473,13 @@ let make_structure_tree pdf items =
more tree stuff. *) more tree stuff. *)
let write_structure_tree pdf st = let write_structure_tree pdf st =
let parentmap = ref [] in let parentmap = ref [] in
let struct_tree_root = Pdf.addobj pdf Pdf.Null in
let items = let items =
map map
(function StItem {kind; pageobjnum; children} -> (function StItem {kind; pageobjnum; children} ->
Pdf.Dictionary [("/S", Pdf.Name kind); Pdf.Dictionary [("/S", Pdf.Name kind);
("/P", Pdf.Indirect pageobjnum); ("/Pg", Pdf.Indirect pageobjnum);
("/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 let n = Pdf.addobj pdf (Pdf.Integer x) in
parentmap =| (string_of_int x, Pdf.Indirect n); parentmap =| (string_of_int x, Pdf.Indirect n);
@ -492,7 +494,8 @@ let write_structure_tree pdf st =
("/ParentTree", Pdf.Indirect (Pdf.addobj pdf (Pdftree.build_name_tree true pdf !parentmap))); ("/ParentTree", Pdf.Indirect (Pdf.addobj pdf (Pdftree.build_name_tree true pdf !parentmap)));
("/K", Pdf.Array items)] ("/K", Pdf.Array items)]
in in
Pdf.replace_chain pdf ["/Root"] ("/StructTreeRoot", st) Pdf.addobj_given_num pdf (struct_tree_root, st);
Pdf.replace_chain pdf ["/Root"] ("/StructTreeRoot", (Pdf.Indirect struct_tree_root))
let draw ~struct_tree ~fast ~underneath ~filename ~bates ~batespad range pdf drawops = let draw ~struct_tree ~fast ~underneath ~filename ~bates ~batespad range pdf drawops =
(*Printf.printf "%s\n" (string_of_drawops drawops);*) (*Printf.printf "%s\n" (string_of_drawops drawops);*)
@ -524,5 +527,5 @@ let draw ~struct_tree ~fast ~underneath ~filename ~bates ~batespad range pdf dra
range := [endpage + 1] range := [endpage + 1]
end end
done; done;
write_structure_tree !pdf (make_structure_tree !pdf (rev !structdata)); if struct_tree then write_structure_tree !pdf (make_structure_tree !pdf (rev !structdata));
!pdf !pdf