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

more

This commit is contained in:
John Whitington 2021-12-01 16:20:39 -08:00
parent fb190868d1
commit 680e66505e
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
cpdftype.ml
View File

@ -58,16 +58,17 @@ let font_widths f fontsize =
let w = fontsize *. (600. /. 1000.) in let w = fontsize *. (600. /. 1000.) in
Array.make 256 w Array.make 256 w
let width_of_string ws s =
let w = ref 0. in
iter (fun s -> w := !w +. ws.(int_of_char s)) s;
!w
(* For now, split each text element into words, and lay them out ragged right (* For now, split each text element into words, and lay them out ragged right
on one long page. Words longer than a whole line just fall off the margin. on one long page. Words longer than a whole line just fall off the margin.
Turn text newlines into real newlines. *) Turn text newlines into real newlines. *)
let width_of_string ws s =
fold_left ( +. ) 0. (map (fun s -> ws.(int_of_char s)) s) (* FIXME efficiency *)
(* Split into words on spaces. Find how many words (at least one, to make (* Split into words on spaces. Find how many words (at least one, to make
progress) fit into the available space. We set needs_newline if the next progress) fit into the available space. We set needs_newline if the next
word would overflow. Return (text, needs_newline, remaining_text) *) word would overflow. Return (text, needs_newline, remaining_text) *)
(* FIXME efficiency *)
let split_text space_left widths t = let split_text space_left widths t =
let chars = ref t in let chars = ref t in
let words = ref [] in let words = ref [] in