From bb3c3713929ff8647004c18faaebcc311335cfa9 Mon Sep 17 00:00:00 2001 From: Pierre Boutillier Date: Tue, 3 Feb 2015 22:01:17 +0100 Subject: Hardcode how coqide have to look for coqtop in MacOS bundle Sorry, that is ugly. Please revert if you see a better way to do it. --- ide/ideutils.ml | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'ide/ideutils.ml') diff --git a/ide/ideutils.ml b/ide/ideutils.ml index a86944269..84ef8f40d 100644 --- a/ide/ideutils.ml +++ b/ide/ideutils.ml @@ -243,7 +243,14 @@ let coqtop_path () = let i = Str.search_backward (Str.regexp_string "coqide") prog pos in String.blit "coqtop" 0 prog i 6; - if Sys.file_exists prog then prog else "coqtop" + if Sys.file_exists prog then prog + else + let in_macos_bundle = + Filename.concat + (Filename.dirname prog) + (Filename.concat "../Resources/bin" (Filename.basename prog)) + in if Sys.file_exists in_macos_bundle then in_macos_bundle + else "coqtop" with Not_found -> "coqtop" in file -- cgit v1.2.3