Não pode escolher mais do que 25 tópicos
Os tópicos devem começar com uma letra ou um número, podem incluir traços ('-') e podem ter até 35 caracteres.
253 linhas
8.7 KiB
253 linhas
8.7 KiB
%% -*- erlang-indent-level: 4;indent-tabs-mode: nil -*-
|
|
%% ex: ts=4 sw=4 et
|
|
%% -------------------------------------------------------------------
|
|
%%
|
|
%% rebar: Erlang Build Tools
|
|
%%
|
|
%% Copyright (c) 2009 Dave Smith (dizzyd@dizzyd.com)
|
|
%%
|
|
%% Permission is hereby granted, free of charge, to any person obtaining a copy
|
|
%% of this software and associated documentation files (the "Software"), to deal
|
|
%% in the Software without restriction, including without limitation the rights
|
|
%% to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
|
%% copies of the Software, and to permit persons to whom the Software is
|
|
%% furnished to do so, subject to the following conditions:
|
|
%%
|
|
%% The above copyright notice and this permission notice shall be included in
|
|
%% all copies or substantial portions of the Software.
|
|
%%
|
|
%% THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
|
%% IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
|
%% FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
|
%% AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
|
%% LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
|
%% OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
|
|
%% THE SOFTWARE.
|
|
%% -------------------------------------------------------------------
|
|
-module(rebar3).
|
|
|
|
-export([main/1,
|
|
run/1,
|
|
run/2,
|
|
global_option_spec_list/0,
|
|
init_config/0,
|
|
set_options/2,
|
|
parse_args/1,
|
|
version/0,
|
|
log_level/0]).
|
|
|
|
-include("rebar.hrl").
|
|
|
|
%% ====================================================================
|
|
%% Public API
|
|
%% ====================================================================
|
|
|
|
%% escript Entry point
|
|
main(Args) ->
|
|
case catch(run(Args)) of
|
|
{ok, _State} ->
|
|
erlang:halt(0);
|
|
rebar_abort ->
|
|
erlang:halt(1);
|
|
{error, rebar_abort} ->
|
|
erlang:halt(1);
|
|
{error, {Module, Reason}} ->
|
|
case code:which(Module) of
|
|
non_existing ->
|
|
?ERROR("Uncaught error in rebar_core. Run with DEBUG=1 to see stacktrace", []),
|
|
?DEBUG("Uncaught error: ~p ~p", [Module, Reason]),
|
|
?INFO("When submitting a bug report, please include the output of `rebar3 report \"your command\"`", []);
|
|
_ ->
|
|
?ERROR(Module:format_error(Reason), [])
|
|
end,
|
|
erlang:halt(1);
|
|
{error, Error} when is_list(Error) ->
|
|
?ERROR(Error, []),
|
|
erlang:halt(1);
|
|
Error ->
|
|
%% Nothing should percolate up from rebar_core;
|
|
%% Dump this error to console
|
|
?ERROR("Uncaught error in rebar_core. Run with DEBUG=1 to see stacktrace", []),
|
|
?DEBUG("Uncaught error: ~p", [Error]),
|
|
?INFO("When submitting a bug report, please include the output of `rebar3 report \"your command\"`", []),
|
|
erlang:halt(1)
|
|
end.
|
|
|
|
%% Erlang-API entry point
|
|
run(BaseState, Commands) ->
|
|
_ = application:load(rebar),
|
|
BaseState1 = rebar_state:set(BaseState, task, Commands),
|
|
BaseState2 = rebar_state:set(BaseState1, caller, api),
|
|
run_aux(BaseState2, Commands).
|
|
|
|
%% ====================================================================
|
|
%% Internal functions
|
|
%% ====================================================================
|
|
|
|
run(RawArgs) ->
|
|
_ = application:load(rebar),
|
|
|
|
BaseState = init_config(),
|
|
BaseState1 = rebar_state:set(BaseState, caller, command_line),
|
|
|
|
case erlang:system_info(version) of
|
|
"6.1" ->
|
|
?WARN("Due to a filelib bug in Erlang 17.1 it is recommended"
|
|
"you update to a newer release.", []);
|
|
_ ->
|
|
ok
|
|
end,
|
|
|
|
{BaseState2, _Args1} = set_options(BaseState1, {[], []}),
|
|
run_aux(BaseState2, RawArgs).
|
|
|
|
run_aux(State, RawArgs) ->
|
|
%% Make sure crypto is running
|
|
case crypto:start() of
|
|
ok -> ok;
|
|
{error,{already_started,crypto}} -> ok
|
|
end,
|
|
application:start(asn1),
|
|
application:start(public_key),
|
|
application:start(ssl),
|
|
inets:start(),
|
|
|
|
State2 = case os:getenv("REBAR_PROFILE") of
|
|
false ->
|
|
State;
|
|
"" ->
|
|
State;
|
|
Profile ->
|
|
rebar_state:apply_profiles(State, [list_to_atom(Profile)])
|
|
end,
|
|
|
|
%% Process each command, resetting any state between each one
|
|
BaseDir = rebar_state:get(State, base_dir, ?DEFAULT_BASE_DIR),
|
|
State3 = rebar_state:set(State2, base_dir,
|
|
filename:join(filename:absname(rebar_state:dir(State2)), BaseDir)),
|
|
|
|
{ok, Providers} = application:get_env(rebar, providers),
|
|
State4 = rebar_plugins:install(State3),
|
|
|
|
%% Providers can modify profiles stored in opts, so set default after initializing providers
|
|
State5 = rebar_state:create_logic_providers(Providers, State4),
|
|
State6 = rebar_state:default(State5, rebar_state:opts(State5)),
|
|
|
|
{Task, Args} = parse_args(RawArgs),
|
|
|
|
State7 = rebar_state:code_paths(State6, default, code:get_path()),
|
|
|
|
rebar_core:init_command(rebar_state:command_args(State7, Args), Task).
|
|
|
|
init_config() ->
|
|
%% Initialize logging system
|
|
Verbosity = log_level(),
|
|
ok = rebar_log:init(command_line, Verbosity),
|
|
|
|
Config = case os:getenv("REBAR_CONFIG") of
|
|
false ->
|
|
rebar_config:consult_file(?DEFAULT_CONFIG_FILE);
|
|
ConfigFile ->
|
|
rebar_config:consult_file(ConfigFile)
|
|
end,
|
|
|
|
Config1 = rebar_config:merge_locks(Config, rebar_config:consult_file(?LOCK_FILE)),
|
|
|
|
%% If $HOME/.config/rebar3/config exists load and use as global config
|
|
GlobalConfigFile = rebar_dir:global_config(),
|
|
State = case filelib:is_regular(GlobalConfigFile) of
|
|
true ->
|
|
?DEBUG("Load global config file ~p",
|
|
[GlobalConfigFile]),
|
|
GlobalConfig = rebar_state:new(rebar_config:consult_file(GlobalConfigFile)),
|
|
rebar_state:new(GlobalConfig, Config1);
|
|
false ->
|
|
rebar_state:new(Config1)
|
|
end,
|
|
|
|
%% Determine the location of the rebar executable; important for pulling
|
|
%% resources out of the escript
|
|
State1 = try
|
|
ScriptName = filename:absname(escript:script_name()),
|
|
rebar_state:escript_path(State, ScriptName)
|
|
catch
|
|
_:_ ->
|
|
State
|
|
end,
|
|
|
|
%% TODO: Do we need this still? I think it may still be used.
|
|
%% Initialize vsn cache
|
|
rebar_state:set(State1, vsn_cache, dict:new()).
|
|
|
|
parse_args([]) ->
|
|
parse_args(["help"]);
|
|
parse_args([H | Rest]) when H =:= "-h"
|
|
; H =:= "--help" ->
|
|
parse_args(["help" | Rest]);
|
|
parse_args([H | Rest]) when H =:= "-v"
|
|
; H =:= "--version" ->
|
|
parse_args(["version" | Rest]);
|
|
parse_args([Task | RawRest]) ->
|
|
{list_to_atom(Task), RawRest}.
|
|
|
|
set_options(State, {Options, NonOptArgs}) ->
|
|
GlobalDefines = proplists:get_all_values(defines, Options),
|
|
|
|
State1 = rebar_state:set(State, defines, GlobalDefines),
|
|
|
|
%% Set global variables based on getopt options
|
|
State2 = set_global_flag(State1, Options, force),
|
|
|
|
Task = proplists:get_value(task, Options, "help"),
|
|
|
|
{rebar_state:set(State2, task, Task), NonOptArgs}.
|
|
|
|
%%
|
|
%% get log level based on getopt option
|
|
%%
|
|
log_level() ->
|
|
case os:getenv("QUIET") of
|
|
false ->
|
|
DefaultLevel = rebar_log:default_level(),
|
|
case os:getenv("DEBUG") of
|
|
false ->
|
|
DefaultLevel;
|
|
_ ->
|
|
DefaultLevel + 3
|
|
end;
|
|
_ ->
|
|
rebar_log:error_level()
|
|
end.
|
|
|
|
%%
|
|
%% show version information and halt
|
|
%%
|
|
version() ->
|
|
{ok, Vsn} = application:get_key(rebar, vsn),
|
|
?CONSOLE("rebar ~s on Erlang/OTP ~s Erts ~s",
|
|
[Vsn, erlang:system_info(otp_release), erlang:system_info(version)]).
|
|
|
|
%% TODO: Actually make it 'global'
|
|
%%
|
|
%% set global flag based on getopt option boolean value
|
|
%%
|
|
set_global_flag(State, Options, Flag) ->
|
|
Value = case proplists:get_bool(Flag, Options) of
|
|
true ->
|
|
"1";
|
|
false ->
|
|
"0"
|
|
end,
|
|
rebar_state:set(State, Flag, Value).
|
|
|
|
%%
|
|
%% options accepted via getopt
|
|
%%
|
|
global_option_spec_list() ->
|
|
[
|
|
%% {Name, ShortOpt, LongOpt, ArgSpec, HelpMsg}
|
|
{help, $h, "help", undefined, "Print this help."},
|
|
{version, $v, "version", undefined, "Show version information."},
|
|
%{config, $C, "config", string, "Rebar config file to use."},
|
|
{task, undefined, undefined, string, "Task to run."}
|
|
].
|