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 2023-05-01 15:15:12 +01:00
parent f481824d1f
commit 75e6660001
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
cpdfcommand.ml
View File

@ -1784,6 +1784,16 @@ let addop o =
let v = Hashtbl.find drawops !currstash in let v = Hashtbl.find drawops !currstash in
Hashtbl.replace drawops !currstash (o::v) Hashtbl.replace drawops !currstash (o::v)
let tdeep = ref 0
let addbt () =
addop Cpdfdraw.BT;
tdeep +=1
let addet () =
addop Cpdfdraw.ET;
tdeep -=1
let readfloats s = map float_of_string (String.split_on_char ' ' s) let readfloats s = map float_of_string (String.split_on_char ' ' s)
let col_of_string s = let col_of_string s =
@ -2061,11 +2071,6 @@ let addtext s =
let addleading f = let addleading f =
addop (Cpdfdraw.Leading f) addop (Cpdfdraw.Leading f)
let addbt () =
addop Cpdfdraw.BT
let addet () =
addop Cpdfdraw.ET
let addcharspace f = let addcharspace f =
addop (Cpdfdraw.CharSpace f) addop (Cpdfdraw.CharSpace f)
@ -4437,6 +4442,7 @@ let go () =
let pdf = Cpdftexttopdf.typeset ~font:cpdffont ~papersize:args.createpdf_pagesize ~fontsize:args.fontsize text in let pdf = Cpdftexttopdf.typeset ~font:cpdffont ~papersize:args.createpdf_pagesize ~fontsize:args.fontsize text in
write_pdf false pdf write_pdf false pdf
| Some Draw -> | Some Draw ->
if !tdeep <> 0 then error "Unmatched -bt / -et" else
let pdf = get_single_pdf args.op false in let pdf = get_single_pdf args.op false in
let range = parse_pagespec_allow_empty pdf (get_pagespec ()) in let range = parse_pagespec_allow_empty pdf (get_pagespec ()) in
write_pdf false (Cpdfdraw.draw args.fast range pdf (rev (Hashtbl.find drawops "_"))) write_pdf false (Cpdfdraw.draw args.fast range pdf (rev (Hashtbl.find drawops "_")))