From f80731ef6c9250f34dd1084c521495ea02dcf4f3 Mon Sep 17 00:00:00 2001 From: obi458 Date: Wed, 5 Oct 2016 10:56:34 +0200 Subject: win32 cross release on unix --- src/rlx_util.erl | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) (limited to 'src/rlx_util.erl') 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 %%%=================================================================== -- cgit v1.2.3