win32 cross release on unix

1 files changed, 27 insertions, 0 deletions

diff --git a/src/rlx_util.erl b/src/rlx_util.erl
index efad792..b3fc2b7 100644
--- a/src/rlx_util.erl
+++ b/src/rlx_util.erl
@@ -41,6 +41,8 @@
          intensity/0,
          symlink_or_copy/2]).
 
+-export([os_type/1]).
+
 -define(DFLT_INTENSITY,   high).
 -define(ONE_LEVEL_INDENT, "     ").
 %%============================================================================
@@ -326,6 +328,31 @@ intensity() ->
             Mode
     end.
 
+os_type(State) ->
+  case include_erts_is_win32(State) of
+    true -> {win32,nt};
+    false -> os:type()
+  end.
+
+include_erts_is_win32(State) ->
+  case rlx_state:get(State, include_erts, true) of
+    true -> false;
+    false -> false;
+    Path -> is_win32_erts(Path,State)
+  end.
+
+is_win32_erts(Path,State) ->
+  case filelib:wildcard(filename:join([Path,"bin","erl.exe"])) of
+    [] -> false;
+    _ ->
+      ec_cmd_log:info(rlx_state:log(State),
+        "Including Erts is win32 ~n", []),
+      true
+  end.
+
+
+
+
 %%%===================================================================
 %%% Test Functions
 %%%===================================================================