Recent versions of ocaml expose 'ext_exe'

This commit is contained in:
Jeremie Dimino 2018-03-06 15:10:30 +00:00 committed by Jérémie Dimino
parent 9c178480ea
commit 0b6a7eee2f
1 changed files with 6 additions and 3 deletions

View File

@ -129,6 +129,9 @@ let ext_asm t = get t "ext_asm"
let ext_lib t = get t "ext_lib"
let ext_dll t = get t "ext_dll"
let ext_exe t =
match get t "os_type" with
| "Win32" -> ".exe"
| _ -> ""
match get_opt t "ext_exe" with
| Some s -> s
| None ->
match get t "os_type" with
| "Win32" -> ".exe"
| _ -> ""