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

Remove old debug

This commit is contained in:
John Whitington 2023-07-20 14:06:24 +01:00
parent 6997a56661
commit ce7db5350a
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
cpdfdraw.ml
View File

@ -146,13 +146,9 @@ let process_specials pdf endpage filename bates batespad num page s =
let runs_of_utf8 s = let runs_of_utf8 s =
let identifier, fontpack = (res ()).current_fontpack in let identifier, fontpack = (res ()).current_fontpack in
(*Printf.printf "runs_of_utf8: %s\n" identifier;*)
let codepoints = Pdftext.codepoints_of_utf8 s in let codepoints = Pdftext.codepoints_of_utf8 s in
(*Printf.printf "%i codepoints\n" (length codepoints);*)
let triples = option_map (Cpdfembed.get_char fontpack) codepoints in let triples = option_map (Cpdfembed.get_char fontpack) codepoints in
(*Printf.printf "%i triples\n" (length triples);*)
let collated = Cpdfembed.collate_runs triples in let collated = Cpdfembed.collate_runs triples in
(*Printf.printf "Collated of length %i\n" (length collated);*)
flatten flatten
(map (map
(fun l -> (fun l ->