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

renumbering tags

This commit is contained in:
John Whitington 2024-10-02 16:41:51 +01:00
parent 3d8f233c0d
commit 6bb3e55de6
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
cpdftype.ml
View File

@ -234,6 +234,11 @@ let make_annotations pdf annots =
if annots = [] then Pdf.Dictionary [] else if annots = [] then Pdf.Dictionary [] else
Pdf.Dictionary ["/Annots", Pdf.Array (map (function a -> Pdf.Indirect (Pdf.addobj pdf a)) annots)] Pdf.Dictionary ["/Annots", Pdf.Array (map (function a -> Pdf.Indirect (Pdf.addobj pdf a)) annots)]
let rec number_tags n = function
| Tag (s, _)::t -> Tag (s, n)::number_tags (n + 1) t
| h::t -> h::number_tags n t
| [] -> []
(* At this stage, just Font and Text and HGlue 0. and VGlue 0. and Newline and (* At this stage, just Font and Text and HGlue 0. and VGlue 0. and Newline and
NewPage elements. Split on NewPages, typeset each page, add font NewPage elements. Split on NewPages, typeset each page, add font
dictionaries. New page only creates a page when that page has content. *) dictionaries. New page only creates a page when that page has content. *)
@ -241,6 +246,7 @@ let typeset ~process_struct_tree lmargin rmargin tmargin bmargin papersize pdf i
Hashtbl.clear width_table_cache; Hashtbl.clear width_table_cache;
let debug = false in let debug = false in
if debug then (print_endline "***input:\n\n"; print_endline (to_string i)); if debug then (print_endline "***input:\n\n"; print_endline (to_string i));
let i = number_tags 1 i in
let i = layout lmargin rmargin papersize i in let i = layout lmargin rmargin papersize i in
if debug then (print_endline "***after layout:\n\n"; print_endline (to_string i)); if debug then (print_endline "***after layout:\n\n"; print_endline (to_string i));
let i = paginate tmargin bmargin papersize i in let i = paginate tmargin bmargin papersize i in