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

Fix tagging bug

This commit is contained in:
John Whitington 2024-09-24 15:15:06 +01:00
parent 83594d4305
commit d8c91180bc
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
cpdfdraw.ml
View File

@ -645,7 +645,8 @@ let rec make_structure_tree pageobjnums pdf pagenum namespace = function
make_structure_tree pageobjnums pdf pagenum namespace t make_structure_tree pageobjnums pdf pagenum namespace t
| StDataBeginTree s::t -> | StDataBeginTree s::t ->
let tree_contents, rest = find_tree_contents [] 1 t in let tree_contents, rest = find_tree_contents [] 1 t in
[StItem {kind = s; namespace = !namespace; alt = None; pageobjnum = None; children = make_structure_tree pageobjnums pdf pagenum namespace rest}] StItem {kind = s; namespace = !namespace; alt = None; pageobjnum = None; children = make_structure_tree pageobjnums pdf pagenum namespace tree_contents}
::make_structure_tree pageobjnums pdf pagenum namespace rest
| StDataEndTree::t -> | StDataEndTree::t ->
error "Too many -end-tags" error "Too many -end-tags"