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 2016-07-22 18:42:55 +01:00
parent 472a4ce286
commit e7e3b5bb0b
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
cpdfcommand.ml
View File

@ -1,7 +1,7 @@
(* Added -relative-to-cropbox for stamps *) (* Added -relative-to-cropbox for stamps *)
(* cpdf command line tools *) (* cpdf command line tools *)
let demo = false let demo = false
let noncomp = false let noncomp = true
let major_version = 2 let major_version = 2
let minor_version = 2 let minor_version = 2
let version_date = "(build of 3rd April 2016)" let version_date = "(build of 3rd April 2016)"
@ -2161,6 +2161,9 @@ 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
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 =