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

Format_paragraph width caching

This commit is contained in:
John Whitington 2024-10-23 12:40:38 +01:00
parent 845511161e
commit de7403bdce
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
cpdfdraw.ml
View File

@ -183,8 +183,7 @@ let font_widths f fontsize =
Array.map (fun x -> fontsize *. x /. 1000. ) m Array.map (fun x -> fontsize *. x /. 1000. ) m
| _ -> raise (Pdf.PDFError "Cpdfdraw: Unsupported font") | _ -> raise (Pdf.PDFError "Cpdfdraw: Unsupported font")
let runs_of_utf8 s = let runs_of_utf8 ?(widthcache = null_hash ()) s =
let widthcache = null_hash () in
let identifier, fontpack = (res ()).current_fontpack in let identifier, fontpack = (res ()).current_fontpack in
let codepoints = Pdftext.codepoints_of_utf8 s in let codepoints = Pdftext.codepoints_of_utf8 s in
let triples = option_map (Cpdfembed.get_char fontpack) codepoints in let triples = option_map (Cpdfembed.get_char fontpack) codepoints in
@ -307,8 +306,9 @@ let clean_up ops =
(* TODO: Use Uuseg for proper unicode segmentation. *) (* TODO: Use Uuseg for proper unicode segmentation. *)
let format_paragraph indent j w s = let format_paragraph indent j w s =
let ss = String.split_on_char ' ' s in let ss = String.split_on_char ' ' s in
let rs_and_widths = ref (map runs_of_utf8 ss) in let widthcache = null_hash () in
let space_runs, space_width = runs_of_utf8 " " in let rs_and_widths = ref (map (runs_of_utf8 ~widthcache) ss) in
let space_runs, space_width = runs_of_utf8 ~widthcache " " in
let remaining = ref w in let remaining = ref w in
let allops = ref [] in let allops = ref [] in
let ops = ref [] (*[Pdfops.Op_Comment "Format paragraph"]*) in let ops = ref [] (*[Pdfops.Op_Comment "Format paragraph"]*) in