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

mor

This commit is contained in:
John Whitington 2022-09-26 20:38:16 +01:00
parent c1be66a2d6
commit 04bcd8e443
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
cpdfcommand.ml
View File

@ -449,7 +449,7 @@ type args =
mutable was_decrypted_with_owner : bool; mutable was_decrypted_with_owner : bool;
mutable creator : string option; mutable creator : string option;
mutable producer : string option; mutable producer : string option;
mutable embedfonts : bool; mutable embedstd14 : string option;
mutable extract_text_font_size : float option; mutable extract_text_font_size : float option;
mutable padwith : string option; mutable padwith : string option;
mutable alsosetxml : bool; mutable alsosetxml : bool;
@ -571,7 +571,7 @@ let args =
was_decrypted_with_owner = false; was_decrypted_with_owner = false;
producer = None; producer = None;
creator = None; creator = None;
embedfonts = true; embedstd14 = None;
extract_text_font_size = None; extract_text_font_size = None;
padwith = None; padwith = None;
alsosetxml = false; alsosetxml = false;
@ -680,7 +680,7 @@ let reset_arguments () =
args.labelprefix <- None; args.labelprefix <- None;
args.labelstartval <- 1; args.labelstartval <- 1;
args.labelsprogress <- false; args.labelsprogress <- false;
args.embedfonts <- true; args.embedstd14 <- None;
args.extract_text_font_size <- None; args.extract_text_font_size <- None;
args.padwith <- None; args.padwith <- None;
args.alsosetxml <- false; args.alsosetxml <- false;
@ -1571,8 +1571,8 @@ let setsqueezelogto s =
let setstayonerror () = let setstayonerror () =
set stay_on_error set stay_on_error
let setnoembedfont () = let setembedstd14 s =
args.embedfonts <- false args.embedstd14 <- Some s
let sethardbox box = let sethardbox box =
detect_duplicate_op (HardBox box); detect_duplicate_op (HardBox box);
@ -2043,9 +2043,9 @@ and specs =
("-font-ttf", ("-font-ttf",
Arg.String setfontttf, Arg.String setfontttf,
" Load a TrueType font"); " Load a TrueType font");
("-no-embed-font", ("-embed-std14",
Arg.Unit setnoembedfont, Arg.String setembedstd14,
" Do not embed fonts"); " Embed standard 14 fonts");
("-color", ("-color",
Arg.String setcolor, Arg.String setcolor,
" Set the color"); " Set the color");
@ -3721,7 +3721,7 @@ let go () =
write_pdf false write_pdf false
(Cpdfaddtext.addtexts (Cpdfaddtext.addtexts
?embedinfo args.linewidth args.outline args.fast args.fontname ?embedinfo args.linewidth args.outline args.fast args.fontname
font args.embedfonts args.bates args.batespad args.color args.position font false (*args.embedstd14*) args.bates args.batespad args.color args.position
args.linespacing args.fontsize args.underneath text range args.linespacing args.fontsize args.underneath text range
() args.relative_to_cropbox args.opacity () args.relative_to_cropbox args.opacity
args.justification args.midline args.topline filename args.justification args.midline args.topline filename