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

-paras working

This commit is contained in:
John Whitington 2024-09-19 15:51:26 +01:00
parent a3d7a278d1
commit 58a1e8c05f
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cpdfdraw.ml
View File

@ -433,7 +433,7 @@ let rec ops_of_drawop struct_tree dryrun pdf endpage filename bates batespad num
flatten flatten
(map (map
(function para -> (function para ->
if not !first then ([Pdfops.Op_T']) else (clear first; []) @ format_paragraph j w para) (if not !first then ([Pdfops.Op_T']) else (clear first; [])) @ format_paragraph j w para)
s) s)
| Leading f -> [Pdfops.Op_TL f] | Leading f -> [Pdfops.Op_TL f]
| CharSpace f -> [Pdfops.Op_Tc f] | CharSpace f -> [Pdfops.Op_Tc f]

2
cpdfdrawcontrol.ml
View File

@ -373,7 +373,7 @@ let addpara s =
addop (Cpdfdraw.Para (j, w, [s])) addop (Cpdfdraw.Para (j, w, [s]))
let rec split_on_newlines a = function let rec split_on_newlines a = function
| 0x005c::0x004e::t -> rev a::split_on_newlines [] t | 0x005c::0x006e::t -> rev a::split_on_newlines [] t
| h::t -> split_on_newlines (h::a) t | h::t -> split_on_newlines (h::a) t
| [] -> if a = [] then [] else [rev a] | [] -> if a = [] then [] else [rev a]