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 2019-06-30 15:00:51 +01:00
parent 65c6915bba
commit 5897b263f4
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
cpdfcommand.ml
View File

@ -8,6 +8,12 @@ let version_date = "(devel, build of 4th June 2019)"
open Pdfutil open Pdfutil
open Pdfio open Pdfio
let tempfiles = ref []
let exit n =
begin try List.iter Sys.remove !tempfiles with _ -> exit n end;
exit n
let initial_file_size = ref 0 let initial_file_size = ref 0
let empty = Pdf.empty () let empty = Pdf.empty ()
@ -2226,6 +2232,7 @@ let mend_pdf_file_with_ghostscript filename =
Printf.eprintf "CPDF could not mend. Attempting to mend file with gs\n"; Printf.eprintf "CPDF could not mend. Attempting to mend file with gs\n";
flush stderr; flush stderr;
let tmpout = Filename.temp_file "cpdf" ".pdf" in let tmpout = Filename.temp_file "cpdf" ".pdf" in
tempfiles := tmpout::!tempfiles;
let gscall = let gscall =
args.path_to_ghostscript ^ args.path_to_ghostscript ^
" -dNOPAUSE -dQUIET -sDEVICE=pdfwrite -sOUTPUTFILE=" ^ tmpout ^ " -dNOPAUSE -dQUIET -sDEVICE=pdfwrite -sOUTPUTFILE=" ^ tmpout ^