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

Fixed nobble bug

This commit is contained in:
John Whitington 2014-10-22 11:48:20 +01:00
parent 639af8527e
commit 268979835f
1 changed files with 17 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
cpdfcommand.ml
View File

@ -1,5 +1,5 @@
(* cpdf command line tools *)
let demo = false
let demo = true
let noncomp = false
let major_version = 1
let minor_version = 8
@ -557,7 +557,6 @@ let rec decrypt_if_necessary (_, _, _, user_pw, owner_pw) op pdf =
soft_error "Failed to decrypt file: wrong password?"
let nobble pdf =
flprint "nobble\n";
if not demo then pdf else
Cpdf.process_pages (Cpdf.nobble_page pdf) pdf (ilist 1 (Pdfpage.endpage pdf))
@ -1929,14 +1928,14 @@ let write_pdf ?(encryption = None) ?(is_decompress=false) mk_id pdf =
| File outname ->
begin match encryption with
None ->
ignore (nobble pdf);
if not is_decompress then
begin
ignore (Cpdf.recompress_pdf pdf);
if args.squeeze then Cpdf.squeeze pdf;
Pdf.remove_unreferenced pdf
end;
really_write_pdf mk_id pdf outname
let pdf = nobble pdf in
if not is_decompress then
begin
ignore (Cpdf.recompress_pdf pdf);
if args.squeeze then Cpdf.squeeze pdf;
Pdf.remove_unreferenced pdf
end;
really_write_pdf mk_id pdf outname
| Some _ ->
really_write_pdf ~encryption mk_id pdf outname
end
@ -1944,14 +1943,14 @@ let write_pdf ?(encryption = None) ?(is_decompress=false) mk_id pdf =
let temp = Filename.temp_file "cpdflin" ".pdf" in
begin match encryption with
None ->
ignore (nobble pdf);
if not is_decompress then
begin
ignore (Cpdf.recompress_pdf pdf);
if args.squeeze then Cpdf.squeeze pdf;
Pdf.remove_unreferenced pdf
end;
really_write_pdf ~encryption mk_id pdf temp;
let pdf = nobble pdf in
if not is_decompress then
begin
ignore (Cpdf.recompress_pdf pdf);
if args.squeeze then Cpdf.squeeze pdf;
Pdf.remove_unreferenced pdf
end;
really_write_pdf ~encryption mk_id pdf temp;
| Some _ ->
really_write_pdf ~encryption mk_id pdf temp
end;