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

Allow noncomp to use -producer / -set-producer

This commit is contained in:
John Whitington 2023-04-03 17:10:29 +01:00
parent 32e4359a24
commit 95d44939de
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
cpdfcommand.ml
View File

@ -3110,9 +3110,10 @@ let set_creator s pdf =
let really_write_pdf ?(encryption = None) ?(is_decompress=false) mk_id pdf outname = let really_write_pdf ?(encryption = None) ?(is_decompress=false) mk_id pdf outname =
if args.producer <> None then set_producer (unopt args.producer) pdf; if args.producer <> None then set_producer (unopt args.producer) pdf;
if noncomp then if noncomp &&
set_producer "cpdf non-commercial use only. To buy: http://coherentpdf.com/" (match args.op with Some (SetProducer _) -> false | _ -> match args.producer with None -> true | _ -> false)
pdf; then
set_producer "cpdf non-commercial use only. To buy: http://coherentpdf.com/" pdf;
if args.creator <> None then set_creator (unopt args.creator) pdf; if args.creator <> None then set_creator (unopt args.creator) pdf;
if args.debugcrypt then Printf.printf "really_write_pdf\n%!"; if args.debugcrypt then Printf.printf "really_write_pdf\n%!";
let will_linearize = let will_linearize =