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

Correct state

This commit is contained in:
John Whitington 2024-09-26 17:34:10 +01:00
parent 2e5f72e207
commit 466daaffd1
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
cpdfdraw.ml
View File

@ -653,36 +653,40 @@ let rec find_tree_contents a level = function
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 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 rec make_structure_tree pageobjnums (pn, ns, ei) pdf = function let rec make_structure_tree pageobjnums (pn, ns, ei) pdf = function
| [] -> [] | [] -> []
| StDataMCID (n, mcid)::t -> | StDataMCID (n, mcid)::t ->
(*Printf.printf "StDataMCID, pagenum = %i, pageobjnum = %i\n" !pn (unopt (lookup !pn pageobjnums));*) if !mstdebug then Printf.printf "StDataMCID, pagenum = %i, pageobjnum = %i\n" !pn (unopt (lookup !pn pageobjnums));
let item = let item =
StItem {kind = n; namespace = !ns; alt = list_of_hashtbl ei; pageobjnum = lookup !pn pageobjnums; children = [StMCID mcid]} StItem {kind = n; namespace = !ns; alt = list_of_hashtbl ei; pageobjnum = lookup !pn pageobjnums; children = [StMCID mcid]}
in in
item::make_structure_tree pageobjnums (pn, ns, ei) pdf t item::make_structure_tree pageobjnums (pn, ns, ei) pdf t
| StDataPage n::t -> | StDataPage n::t ->
(*Printf.printf "StDataPage %i\n" n;*) if !mstdebug then Printf.printf "StDataPage %i\n" n;
pn := n; pn := n;
make_structure_tree pageobjnums (pn, ns, ei) pdf t make_structure_tree pageobjnums (pn, ns, ei) pdf t
| StDataNamespace s::t -> | StDataNamespace s::t ->
(*Printf.printf "StDataNamespace %s\n" s;*) if !mstdebug then Printf.printf "StDataNamespace %s\n" s;
ns := s; ns := s;
make_structure_tree pageobjnums (pn, ns, ei) pdf t make_structure_tree pageobjnums (pn, ns, ei) pdf t
| StEltInfo (k, v)::t -> | StEltInfo (k, v)::t ->
(*Printf.printf "StEltInfo %s, %s\n" k (Pdfwrite.string_of_pdf v);*) if !mstdebug then Printf.printf "StEltInfo %s, %s\n" k (Pdfwrite.string_of_pdf v);
Hashtbl.replace ei k v; Hashtbl.replace ei k v;
make_structure_tree pageobjnums (pn, ns, ei) pdf t make_structure_tree pageobjnums (pn, ns, ei) pdf t
| StEndEltInfo s::t -> | StEndEltInfo s::t ->
(*Printf.printf "StEndEltInfo %s\n" s;*) if !mstdebug then Printf.printf "StEndEltInfo %s\n" s;
Hashtbl.remove ei s; Hashtbl.remove ei s;
make_structure_tree pageobjnums (pn, ns, ei) pdf t make_structure_tree pageobjnums (pn, ns, ei) pdf t
| StDataBeginTree s::t -> | StDataBeginTree s::t ->
(*Printf.printf "StBeginTree %s\n" s;*) if !mstdebug then Printf.printf "StBeginTree %s, namespace = %s\n" s !ns;
let tree_contents, rest = find_tree_contents [] 1 t in let tree_contents, rest = find_tree_contents [] 1 t in
let item = let item =
StItem {kind = s; namespace = !ns; alt = list_of_hashtbl ei; pageobjnum = None; let namespace = !ns in
children = make_structure_tree pageobjnums (pn, ns, ei) pdf tree_contents} let alt = list_of_hashtbl ei in
let children = make_structure_tree pageobjnums (pn, ns, ei) pdf tree_contents in
StItem {kind = s; namespace; alt; pageobjnum = None; children;}
in in
item::make_structure_tree pageobjnums (pn, ns, ei) pdf rest item::make_structure_tree pageobjnums (pn, ns, ei) pdf rest
| StDataEndTree::t -> | StDataEndTree::t ->