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

Fix to temp file handling with -stdout and cpdflin

This commit is contained in:
John Whitington 2018-01-29 18:15:42 +09:00
parent d59d33b7e3
commit 5385295c7c
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
cpdfcommand.ml
View File

@ -2314,7 +2314,7 @@ let write_pdf ?(encryption = None) ?(is_decompress=false) mk_id pdf =
really_write_pdf ~encryption ~is_decompress mk_id pdf outname really_write_pdf ~encryption ~is_decompress mk_id pdf outname
end end
| Stdout -> | Stdout ->
let temp = Filename.temp_file "cpdflin" ".pdf" in let temp = Filename.temp_file "cpdfstdout" ".pdf" in
begin match encryption with begin match encryption with
None -> None ->
let pdf = nobble pdf in let pdf = nobble pdf in
@ -2333,7 +2333,11 @@ let write_pdf ?(encryption = None) ?(is_decompress=false) mk_id pdf =
while true do output_char stdout (input_char temp_file) done; while true do output_char stdout (input_char temp_file) done;
assert false assert false
with with
End_of_file -> flush stdout (*r For Windows *) End_of_file ->
begin try Sys.remove temp with
e -> Printf.eprintf "Failed to remove temp file %s (%s)\n" temp (Printexc.to_string e)
end;
flush stdout (*r For Windows *)
(* Returns empty string on failure. Should only be used in conjunction with (* Returns empty string on failure. Should only be used in conjunction with
split at bookmarks code, so should never fail, by definiton. *) split at bookmarks code, so should never fail, by definiton. *)