|
|
|
@ -3,71 +3,76 @@ |
|
|
|
|
|
|
|
-module(rebar_relx). |
|
|
|
|
|
|
|
-export([do/4, |
|
|
|
-export([do/2, |
|
|
|
opt_spec_list/0, |
|
|
|
format_error/1]). |
|
|
|
|
|
|
|
-ifdef(TEST). |
|
|
|
-export([merge_overlays/1]). |
|
|
|
-endif. |
|
|
|
|
|
|
|
-include_lib("providers/include/providers.hrl"). |
|
|
|
-include("rebar.hrl"). |
|
|
|
|
|
|
|
%% =================================================================== |
|
|
|
%% Public API |
|
|
|
%% =================================================================== |
|
|
|
|
|
|
|
-spec do(atom(), string(), atom(), rebar_state:t()) -> {ok, rebar_state:t()} | {error, string()}. |
|
|
|
do(Module, Command, Provider, State) -> |
|
|
|
%% We set the color mode for relx as a application env |
|
|
|
application:set_env(relx, color_intensity, rebar_log:intensity()), |
|
|
|
LogLevel = rebar_log:get_level(), |
|
|
|
Options = rebar_state:command_args(State), |
|
|
|
DepsDir = rebar_dir:deps_dir(State), |
|
|
|
ProjectAppDirs = lists:delete(".", ?DEFAULT_PROJECT_APP_DIRS), |
|
|
|
LibDirs = rebar_utils:filtermap(fun ec_file:exists/1, |
|
|
|
[rebar_dir:checkouts_dir(State), DepsDir | ProjectAppDirs]), |
|
|
|
OutputDir = filename:join(rebar_dir:base_dir(State), ?DEFAULT_RELEASE_DIR), |
|
|
|
-spec do(atom(), rebar_state:t()) -> {ok, rebar_state:t()} | {error, string()}. |
|
|
|
do(Provider, State) -> |
|
|
|
{Opts, _} = rebar_state:command_parsed_args(State), |
|
|
|
Release = case proplists:get_value(relname, Opts, undefined) of |
|
|
|
undefined -> |
|
|
|
undefined; |
|
|
|
R -> |
|
|
|
case proplists:get_value(relvsn, Opts, undefined) of |
|
|
|
undefined -> |
|
|
|
list_to_atom(R); |
|
|
|
RelVsn -> |
|
|
|
{list_to_atom(R), RelVsn} |
|
|
|
end |
|
|
|
end, |
|
|
|
|
|
|
|
%% TODO: read in ./relx.config if it exists or --config value |
|
|
|
RelxConfig = rebar_state:get(State, relx, []), |
|
|
|
|
|
|
|
ProfileString = rebar_dir:profile_dir_name(State), |
|
|
|
AllOptions = rebar_string:join([Command | Options], " "), |
|
|
|
Cwd = rebar_state:dir(State), |
|
|
|
Providers = rebar_state:providers(State), |
|
|
|
RebarOpts = rebar_state:opts(State), |
|
|
|
ExtraOverlays = [{profile_string, ProfileString}], |
|
|
|
ErlOpts = rebar_opts:erl_opts(RebarOpts), |
|
|
|
|
|
|
|
DefaultOutputDir = filename:join(rebar_dir:base_dir(State), ?DEFAULT_RELEASE_DIR), |
|
|
|
RelxConfig1 = [output_dir(DefaultOutputDir, Opts), |
|
|
|
{overlay_vars_values, ExtraOverlays}, |
|
|
|
{overlay_vars, [{base_dir, rebar_dir:base_dir(State)}]} |
|
|
|
| merge_overlays(RelxConfig)], |
|
|
|
{ok, RelxState} = rlx_config:to_state(RelxConfig1), |
|
|
|
|
|
|
|
|
|
|
|
Providers = rebar_state:providers(State), |
|
|
|
Cwd = rebar_state:dir(State), |
|
|
|
rebar_hooks:run_project_and_app_hooks(Cwd, pre, Provider, Providers, State), |
|
|
|
try |
|
|
|
case rebar_state:get(State, relx, []) of |
|
|
|
[] -> |
|
|
|
relx:main([{lib_dirs, LibDirs} |
|
|
|
,{caller, api} |
|
|
|
,{log_level, LogLevel} |
|
|
|
,{api_caller_overlays, ExtraOverlays} |
|
|
|
| output_dir(OutputDir, Options)] ++ ErlOpts, AllOptions); |
|
|
|
Config -> |
|
|
|
Config1 = [{overlay_vars, [{base_dir, rebar_dir:base_dir(State)}]} |
|
|
|
| merge_overlays(Config)], |
|
|
|
relx:main([{lib_dirs, LibDirs} |
|
|
|
,{config, Config1} |
|
|
|
,{caller, api} |
|
|
|
,{log_level, LogLevel} |
|
|
|
,{api_caller_overlays, ExtraOverlays} |
|
|
|
| output_dir(OutputDir, Options)] ++ ErlOpts, AllOptions) |
|
|
|
end, |
|
|
|
rebar_hooks:run_project_and_app_hooks(Cwd, post, Provider, Providers, State), |
|
|
|
{ok, State} |
|
|
|
catch |
|
|
|
throw:T -> |
|
|
|
{error, {Module, T}} |
|
|
|
end. |
|
|
|
|
|
|
|
case Provider of |
|
|
|
release -> |
|
|
|
relx:build_release(Release, all_apps(State), RelxState); |
|
|
|
tar -> |
|
|
|
relx:build_tar(Release, all_apps(State), RelxState); |
|
|
|
relup -> |
|
|
|
ToVsn = proplists:get_value(relvsn, Opts, undefined), |
|
|
|
UpFromVsn = proplists:get_value(upfrom, Opts, undefined), |
|
|
|
relx:build_relup(Release, ToVsn, UpFromVsn, RelxState) |
|
|
|
end, |
|
|
|
|
|
|
|
rebar_hooks:run_project_and_app_hooks(Cwd, post, Provider, Providers, State), |
|
|
|
|
|
|
|
{ok, State}. |
|
|
|
|
|
|
|
-spec format_error(any()) -> iolist(). |
|
|
|
format_error(Reason) -> |
|
|
|
io_lib:format("~p", [Reason]). |
|
|
|
format_error(Error) -> |
|
|
|
io_lib:format("~p", [Error]). |
|
|
|
|
|
|
|
%% Don't override output_dir if the user passed one on the command line |
|
|
|
output_dir(OutputDir, Options) -> |
|
|
|
[{output_dir, OutputDir} || not(lists:member("-o", Options)) |
|
|
|
andalso not(lists:member("--output-dir", Options))]. |
|
|
|
output_dir(DefaultOutputDir, Options) -> |
|
|
|
{output_dir, proplists:get_value(output_dir, Options, DefaultOutputDir)}. |
|
|
|
|
|
|
|
merge_overlays(Config) -> |
|
|
|
{Overlays, Others} = |
|
|
|
@ -77,3 +82,45 @@ merge_overlays(Config) -> |
|
|
|
%% Have profile overlay entries come before others to match how profiles work elsewhere |
|
|
|
NewOverlay = lists:flatmap(fun({overlay, Overlay}) -> Overlay end, lists:reverse(Overlays)), |
|
|
|
[{overlay, NewOverlay} | Others]. |
|
|
|
|
|
|
|
%% |
|
|
|
|
|
|
|
%% Returns a map of all apps that are part of the rebar3 project. |
|
|
|
%% This means the project apps and dependencies but not OTP libraries. |
|
|
|
-spec all_apps(rebar_state:t()) -> #{atom() => rlx_app_info:t()}. |
|
|
|
all_apps(State) -> |
|
|
|
lists:foldl(fun(AppInfo, Acc) -> |
|
|
|
Acc#{binary_to_atom(rebar_app_info:name(AppInfo), utf8) |
|
|
|
=> rebar_app_info:app_to_map(AppInfo)} |
|
|
|
end, #{}, rebar_state:project_apps(State) ++ rebar_state:all_deps(State)). |
|
|
|
|
|
|
|
%% |
|
|
|
|
|
|
|
-spec opt_spec_list() -> [getopt:option_spec()]. |
|
|
|
opt_spec_list() -> |
|
|
|
[{relname, $n, "relname", string, |
|
|
|
"Specify the name for the release that will be generated"}, |
|
|
|
{relvsn, $v, "relvsn", string, "Specify the version for the release"}, |
|
|
|
{upfrom, $u, "upfrom", string, |
|
|
|
"Only valid with relup target, specify the release to upgrade from"}, |
|
|
|
{output_dir, $o, "output-dir", string, |
|
|
|
"The output directory for the release. This is `./` by default."}, |
|
|
|
{help, $h, "help", undefined, |
|
|
|
"Print usage"}, |
|
|
|
{lib_dir, $l, "lib-dir", string, |
|
|
|
"Additional dir that should be searched for OTP Apps"}, |
|
|
|
{log_level, $V, "verbose", {integer, 2}, |
|
|
|
"Verbosity level, maybe between 0 and 3"}, |
|
|
|
{dev_mode, $d, "dev-mode", boolean, |
|
|
|
"Symlink the applications and configuration into the release instead of copying"}, |
|
|
|
{include_erts, $i, "include-erts", string, |
|
|
|
"If true include a copy of erts used to build with, if a path include erts at that path. If false, do not include erts"}, |
|
|
|
{override, $a, "override", string, |
|
|
|
"Provide an app name and a directory to override in the form <appname>:<app directory>"}, |
|
|
|
{config, $c, "config", {string, ""}, "The path to a config file"}, |
|
|
|
{overlay_vars, undefined, "overlay_vars", string, "Path to a file of overlay variables"}, |
|
|
|
{vm_args, undefined, "vm_args", string, "Path to a file to use for vm.args"}, |
|
|
|
{sys_config, undefined, "sys_config", string, "Path to a file to use for sys.config"}, |
|
|
|
{system_libs, undefined, "system_libs", string, "Boolean or path to dir of Erlang system libs"}, |
|
|
|
{version, undefined, "version", undefined, "Print relx version"}, |
|
|
|
{root_dir, $r, "root", string, "The project root directory"}]. |
Tristan Sloughter
5 年之前
GitHub