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 2023-04-23 21:00:46 +01:00
parent dcd26044ef
commit b17b08a3e1
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
cpdfcommand.ml
View File

@ -3164,7 +3164,7 @@ let really_write_pdf ?(encryption = None) ?(is_decompress=false) mk_id pdf outna
~generate_objstm:args.create_objstm ~generate_objstm:args.create_objstm
~compress_objstm:(not is_decompress) ~compress_objstm:(not is_decompress)
~recrypt:(Some best_password) ~recrypt:(Some best_password)
false None mk_id pdf outname' None mk_id pdf outname'
end end
else else
begin begin
@ -3176,7 +3176,7 @@ let really_write_pdf ?(encryption = None) ?(is_decompress=false) mk_id pdf outna
~preserve_objstm:args.preserve_objstm ~preserve_objstm:args.preserve_objstm
~generate_objstm:args.create_objstm ~generate_objstm:args.create_objstm
~compress_objstm:(not is_decompress) ~compress_objstm:(not is_decompress)
false encryption mk_id pdf outname' encryption mk_id pdf outname'
end end
else else
soft_error soft_error

2
cpdfsqueeze.ml
View File

@ -5,7 +5,7 @@ open Pdfio
let report_pdf_size pdf = let report_pdf_size pdf =
Pdf.remove_unreferenced pdf; Pdf.remove_unreferenced pdf;
Pdfwrite.pdf_to_file_options ~preserve_objstm:false ~generate_objstm:false Pdfwrite.pdf_to_file_options ~preserve_objstm:false ~generate_objstm:false
~compress_objstm:false false None false pdf "temp.pdf"; ~compress_objstm:false None false pdf "temp.pdf";
let fh = open_in_bin "temp.pdf" in let fh = open_in_bin "temp.pdf" in
Printf.printf "Size %i bytes\n" (in_channel_length fh); Printf.printf "Size %i bytes\n" (in_channel_length fh);
flush stdout; flush stdout;