fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-02-02 03:26:59 +01:00
Code Issues Packages Projects Releases Wiki Activity

Restore -typeset behaviour

Browse Source
This commit is contained in:
John Whitington 2023-06-27 15:54:15 +01:00
parent 3f0ebec69d
commit 9bc5a611c5
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
cpdfmanual.pdf
View File

Binary file not shown.

3
cpdftexttopdf.ml
View File

@ -10,7 +10,7 @@ let rec of_utf8_with_newlines fontpack fontsize t =
(fun u -> (fun u ->
match Cpdfembed.get_char fontpack u with match Cpdfembed.get_char fontpack u with
| Some (c, n, f) -> | Some (c, n, f) ->
Printf.printf "Charcode %i, font number %i\n" c n; (*Printf.printf "Charcode %i, font number %i\n" c n;*)
begin if n <> !currfont then begin if n <> !currfont then
begin begin
if !currtext <> [] then items := Cpdftype.Text (rev !currtext)::!items; if !currtext <> [] then items := Cpdftype.Text (rev !currtext)::!items;
@ -33,6 +33,7 @@ let rec of_utf8_with_newlines fontpack fontsize t =
let c = rev !buf in let c = rev !buf in
if c <> [] then process_codepoints c; if c <> [] then process_codepoints c;
items := Cpdftype.NewLine::!items; items := Cpdftype.NewLine::!items;
currtext := [];
buf := [] buf := []
| 13 (*'\r'*) -> () | 13 (*'\r'*) -> ()
| x -> | x ->