Commit 486746e3 authored by Karoline Malmkjaer's avatar Karoline Malmkjaer
Browse files

Add icon to cduce exe file in Cygwin/MinGW

parent 3a9ecb9c
...@@ -168,6 +168,10 @@ let exe = match Sys.os_type with ...@@ -168,6 +168,10 @@ let exe = match Sys.os_type with
print "Cygwin detected... executable will have .exe extension\n"; ".exe" print "Cygwin detected... executable will have .exe extension\n"; ".exe"
| _ -> "" | _ -> ""
let add_icon = match Sys.os_type with
| "Win32" | "Cygwin" -> true
| _ -> false
let check_mliface dir = let check_mliface dir =
(* Sys.file_exists (Filename.concat dir "typing/types.ml") *) (* Sys.file_exists (Filename.concat dir "typing/types.ml") *)
Sys.file_exists (Filename.concat dir "typing/types.ml") Sys.file_exists (Filename.concat dir "typing/types.ml")
...@@ -283,6 +287,7 @@ let () = ...@@ -283,6 +287,7 @@ let () =
fprintf out "HTML_DIR=%s\n" htmldir; fprintf out "HTML_DIR=%s\n" htmldir;
fprintf out "SESSION_DIR=%s\n" sessiondir; fprintf out "SESSION_DIR=%s\n" sessiondir;
fprintf out "EXE=%s\n" exe; fprintf out "EXE=%s\n" exe;
fprintf out "ADDICON=%b\n" add_icon;
fprintf out "PROFILE=false\n"; fprintf out "PROFILE=false\n";
fprintf out "FORPACK=%b\n" has_forpack; fprintf out "FORPACK=%b\n" has_forpack;
fprintf out "NATDYNLINK=%b\n" has_natdynlink; fprintf out "NATDYNLINK=%b\n" has_natdynlink;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment