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

Fixed cpdflin path lookup

This commit is contained in:
John Whitington 2014-10-09 15:39:57 +01:00
parent e2770ee225
commit 60b7b6debd
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
cpdf.ml
View File

@ -23,13 +23,10 @@ let find_cpdflin provided =
match provided with match provided with
Some x -> Some x Some x -> Some x
| None -> | None ->
match Sys.argv.(0) with if Sys.file_exists "cpdflin" then Some "cpdflin" else
"cpdf" -> match option_map (is_at_path "cpdflin") (paths ()) with
if Sys.file_exists "cpdflin" then Some "cpdflin" else None h::_ -> Some h
| s -> | _ -> None
match option_map (is_at_path "cpdflin") (paths ()) with
h::_ -> Some h
| _ -> None
(* Call cpdflin, given the (temp) input name, the output name, and the location (* Call cpdflin, given the (temp) input name, the output name, and the location
of the cpdflin binary. Returns the exit code. *) of the cpdflin binary. Returns the exit code. *)