You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
52 lines
2.0 KiB
52 lines
2.0 KiB
-module(rebar_prv_lock).
|
|
|
|
-behaviour(provider).
|
|
|
|
-export([init/1,
|
|
do/1,
|
|
format_error/1]).
|
|
|
|
-include("rebar.hrl").
|
|
|
|
-define(PROVIDER, lock).
|
|
-define(DEPS, [install_deps]).
|
|
|
|
%% ===================================================================
|
|
%% Public API
|
|
%% ===================================================================
|
|
|
|
-spec init(rebar_state:t()) -> {ok, rebar_state:t()}.
|
|
init(State) ->
|
|
State1 = rebar_state:add_provider(State, providers:create([{name, ?PROVIDER},
|
|
{module, ?MODULE},
|
|
{bare, true},
|
|
{deps, ?DEPS},
|
|
{example, ""},
|
|
{short_desc, "Locks dependencies."},
|
|
{desc, info("Locks dependencies")},
|
|
{opts, []}])),
|
|
{ok, State1}.
|
|
|
|
-spec do(rebar_state:t()) -> {ok, rebar_state:t()} | {error, string()}.
|
|
do(State) ->
|
|
AllDeps = rebar_state:lock(State),
|
|
Locks = lists:map(fun(Dep) ->
|
|
Dir = rebar_app_info:dir(Dep),
|
|
Source = rebar_app_info:source(Dep),
|
|
|
|
%% If source is tuple it is a source dep
|
|
%% e.g. {git, "git://github.com/ninenines/cowboy.git", "master"}
|
|
{rebar_app_info:name(Dep)
|
|
,rebar_fetch:lock_source(Dir, Source)
|
|
,rebar_app_info:dep_level(Dep)}
|
|
end, AllDeps),
|
|
Dir = rebar_state:dir(State),
|
|
file:write_file(filename:join(Dir, ?LOCK_FILE), io_lib:format("~p.~n", [Locks])),
|
|
{ok, State}.
|
|
|
|
-spec format_error(any()) -> iolist().
|
|
format_error(Reason) ->
|
|
io_lib:format("~p", [Reason]).
|
|
|
|
info(_) ->
|
|
"".
|