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

Trim extracted structure trees

This commit is contained in:
John Whitington 2024-06-03 17:08:06 +01:00
parent 59178af85c
commit 9487eee6a9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cpdfua.ml
View File

@ -337,7 +337,7 @@ let extract_struct_tree pdf =
begin match lookup "/StructTreeRoot" d with begin match lookup "/StructTreeRoot" d with
| None -> `List [] | None -> `List []
| Some x -> | Some x ->
let objs = Pdf.objects_referenced ["/Pg"] [] pdf x in let objs = Pdf.objects_referenced ["/Pg"; "/Obj"; "/Stm"; "/StmOwn"] [] pdf x in
`List `List
(map (map
(fun objnum -> (fun objnum ->