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

Plumbed through

This commit is contained in:
John Whitington 2024-09-12 16:20:38 +01:00
parent d8d0e9c2b2
commit 600b47c67e
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
cpdfdraw.ml
View File

@ -332,8 +332,7 @@ let rec ops_of_drawop struct_tree dryrun pdf endpage filename bates batespad num
if dryrun then iter (fun c -> Hashtbl.replace (res ()).current_fontpack_codepoints c ()) (Pdftext.codepoints_of_utf8 s); if dryrun then iter (fun c -> Hashtbl.replace (res ()).current_fontpack_codepoints c ()) (Pdftext.codepoints_of_utf8 s);
runs_of_utf8 s runs_of_utf8 s
| Para (j, w, s) -> | Para (j, w, s) ->
if dryrun then iter (fun c -> Hashtbl.replace (res ()).current_fontpack_codepoints c ()) (Pdftext.codepoints_of_utf8 s); ops_of_drawops struct_tree dryrun pdf endpage filename bates batespad num page (format_paragraph j w 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]
| WordSpace f -> [Pdfops.Op_Tw f] | WordSpace f -> [Pdfops.Op_Tw f]
@ -342,8 +341,11 @@ let rec ops_of_drawop struct_tree dryrun pdf endpage filename bates batespad num
| Rise f -> [Pdfops.Op_Ts f] | Rise f -> [Pdfops.Op_Ts f]
| Newline -> [Pdfops.Op_T'] | Newline -> [Pdfops.Op_T']
and ops_of_drawops draw_struct dryrun pdf endpage filename bates batespad num page drawops = and format_paragraph j w s =
flatten (map (ops_of_drawop draw_struct dryrun pdf endpage filename bates batespad num page) drawops) [Text s]
and ops_of_drawops struct_tree dryrun pdf endpage filename bates batespad num page drawops =
flatten (map (ops_of_drawop struct_tree dryrun pdf endpage filename bates batespad num page) drawops)
and create_form_xobject struct_tree dryrun a b c d pdf endpage filename bates batespad num page n ops = and create_form_xobject struct_tree dryrun a b c d pdf endpage filename bates batespad num page n ops =
respush (); respush ();