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

Added -keep-l

This commit is contained in:
John Whitington 2014-12-02 15:12:28 +00:00
parent 93bc1be952
commit 40b650a98d
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Changes
View File

@ -1,3 +1,7 @@
Version 2.2
o -keep-l keeps existing linearization status
Version 2.1 (November 2014) Version 2.1 (November 2014)
o Encryption now much, much faster o Encryption now much, much faster

7
cpdfcommand.ml
View File

@ -1920,8 +1920,11 @@ let get_single_pdf_nodecrypt read_lazy =
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.debugcrypt then Printf.printf "really_write_pdf\n%!"; if args.debugcrypt then Printf.printf "really_write_pdf\n%!";
let will_linearize =
args.linearize || args.keeplinearize && pdf.Pdf.was_linearized
in
let outname' = let outname' =
if args.linearize then Filename.temp_file "cpdflin" ".pdf" else outname if will_linearize then Filename.temp_file "cpdflin" ".pdf" else outname
in in
if args.debugcrypt then if args.debugcrypt then
Printf.printf "args.recrypt = %b, args.was_encrypted = %b\n" Printf.printf "args.recrypt = %b, args.was_encrypted = %b\n"
@ -1962,7 +1965,7 @@ let really_write_pdf ?(encryption = None) ?(is_decompress=false) mk_id pdf outna
end end
end; end;
begin begin
if args.linearize then if will_linearize then
let cpdflin = Cpdf.find_cpdflin args.cpdflin in let cpdflin = Cpdf.find_cpdflin args.cpdflin in
match args.inputs with match args.inputs with
[] -> raise (Pdf.PDFError "no input in recryption") [] -> raise (Pdf.PDFError "no input in recryption")