Trim extracted structure trees

2024-06-03 17:08:06 +01:00 · 2024-06-03 17:08:06 +01:00 · 9487eee6a9
parent 59178af85c
commit 9487eee6a9
1 changed files with 1 additions and 1 deletions
--- a/cpdfua.ml
+++ b/cpdfua.ml
@ -337,7 +337,7 @@ let extract_struct_tree pdf =
      begin match lookup "/StructTreeRoot" d with
      | None -> `List []
      | Some x ->
-          let objs = Pdf.objects_referenced ["/Pg"] [] pdf x in
+          let objs = Pdf.objects_referenced ["/Pg"; "/Obj"; "/Stm"; "/StmOwn"] [] pdf x in
            `List
               (map
                  (fun objnum ->