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

Better finding of the linearizer

This commit is contained in:
John Whitington 2014-11-21 09:58:48 -05:00
parent fa318ceda0
commit 18b87d3bbd
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
cpdf.ml
View File

@ -23,10 +23,10 @@ let find_cpdflin provided =
match provided with match provided with
Some x -> Some x Some x -> Some x
| None -> | None ->
if Sys.file_exists "cpdflin" then Some "cpdflin" else if Sys.file_exists "cpdflin" then Some "./cpdflin" else
if Sys.file_exists "cpdflin.exe" then Some "cpdflin.exe" else if Sys.file_exists "cpdflin.exe" then Some "./cpdflin.exe" else
if Sys.file_exists "qpdf" then Some "qpdf" else if Sys.file_exists "qpdf" then Some "./qpdf" else
if Sys.file_exists "qpdf.exe" then Some "qpdf.exe" else if Sys.file_exists "qpdf.exe" then Some "./qpdf.exe" else
match option_map (is_at_path "cpdflin") (paths ()) with match option_map (is_at_path "cpdflin") (paths ()) with
h::_ -> Some h h::_ -> Some h
| _ -> | _ ->
@ -47,7 +47,13 @@ let call_cpdflin cpdflin temp output best_password =
cpdflin ^ " --linearize " ^ " --password=" ^ best_password ^ " " ^ cpdflin ^ " --linearize " ^ " --password=" ^ best_password ^ " " ^
Filename.quote temp ^ " " ^ Filename.quote output Filename.quote temp ^ " " ^ Filename.quote output
in in
match Sys.os_type with
"win32" ->
(* On windows, don't use LD_LIBRARY_PATH - it will happen automatically *)
Sys.command command Sys.command command
| _ ->
(* On linux, set LD_LIBRARY_PATH to the stem of cpdflin *)
Sys.command ("LD_LIBRARY_PATH=" ^ Filename.dirname cpdflin ^ " " ^ command)
(* Recompress anything which isn't compressed, unless it's metadata. *) (* Recompress anything which isn't compressed, unless it's metadata. *)
let recompress_stream pdf = function let recompress_stream pdf = function