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

Preserve nested stags

This commit is contained in:
John Whitington 2024-10-28 14:09:01 +00:00
parent 1390f28061
commit 54127004d8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cpdfdraw.ml
View File

@ -655,7 +655,7 @@ let rec find_tree_contents a level = function
| StDataBeginTree _ as h::t -> | StDataBeginTree _ as h::t ->
find_tree_contents (h::a) (level + 1) t find_tree_contents (h::a) (level + 1) t
| StDataEndTree::t -> | StDataEndTree::t ->
if level = 1 then (rev a, t) else find_tree_contents a (level - 1) t if level = 1 then (rev a, t) else find_tree_contents (StDataEndTree::a) (level - 1) t
| h::t -> find_tree_contents (h::a) level t | h::t -> find_tree_contents (h::a) level t
let mstdebug = ref false let mstdebug = ref false