github/rebar
1
0
Fork 0
mirror of https://github.com/correl/rebar.git synced 2024-11-27 11:09:55 +00:00
Code Issues Projects Releases Packages Wiki Activity

A bit of consolidation of version checking for scm clients; adding support for git

Browse source
This commit is contained in:
Dave Smith 2010-01-07 07:46:06 -07:00
parent 864d4b74d6
commit 47a430c3b8
1 changed files with 31 additions and 28 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

59
src/rebar_deps.erl
View file

@ -31,8 +31,6 @@
-export([preprocess/2, -export([preprocess/2,
distclean/2]). distclean/2]).
-define(HG_VERSION, "1.4").
%% =================================================================== %% ===================================================================
%% Public API %% Public API
%% =================================================================== %% ===================================================================
@ -90,7 +88,6 @@ process_deps([{App, VsnRegex, Source} | Rest], Acc, Dir) ->
%% App may not be on the code path, or the version that is doesn't %% App may not be on the code path, or the version that is doesn't
%% match our regex. Either way, we want to pull our revision into %% match our regex. Either way, we want to pull our revision into
%% the deps dir and try to use that %% the deps dir and try to use that
require_source_engine(Source),
AppDir = filename:join(Dir, App), AppDir = filename:join(Dir, App),
use_source(AppDir, App, VsnRegex, Source), use_source(AppDir, App, VsnRegex, Source),
process_deps(Rest, [AppDir | Acc], Dir) process_deps(Rest, [AppDir | Acc], Dir)
@ -194,6 +191,7 @@ use_source(AppDir, App, VsnRegex, Source, Count) ->
[AppDir, VsnRegex]) [AppDir, VsnRegex])
end; end;
false -> false ->
require_source_engine(Source),
download_source(AppDir, Source), download_source(AppDir, Source),
use_source(AppDir, App, VsnRegex, Source, Count-1) use_source(AppDir, App, VsnRegex, Source, Count-1)
end. end.
@ -201,39 +199,44 @@ use_source(AppDir, App, VsnRegex, Source, Count) ->
download_source(AppDir, {hg, Url, Rev}) -> download_source(AppDir, {hg, Url, Rev}) ->
ok = filelib:ensure_dir(AppDir), ok = filelib:ensure_dir(AppDir),
Cmd = ?FMT("hg clone -u ~s ~s", [Rev, Url]), Cmd = ?FMT("hg clone -u ~s ~s", [Rev, Url]),
rebar_utils:sh(Cmd, [], filename:dirname(AppDir)). rebar_utils:sh(Cmd, [], filename:dirname(AppDir));
download_source(AppDir, {git, Url, Rev}) ->
ok = filelib:ensure_dir(AppDir),
rebar_utils:sh(?FMT("git clone -n ~s", [Url]), [], filename:dirname(AppDir)),
rebar_utils:sh(?FMT("git checkout ~s", [Rev]), [], AppDir).
%% =================================================================== %% ===================================================================
%% Source helper functions %% Source helper functions
%% =================================================================== %% ===================================================================
source_engine_avail({hg, _, _}) -> source_engine_avail({Name, _, _}) when Name == hg; Name == git ->
Path = os:find_executable("hg"), case scm_client_vsn(Name) >= required_scm_client_vsn(Name) of
?DEBUG("which hg = ~p\n", [Path]), true ->
case Path of true;
false -> false ->
false; ?ABORT("Rebar requires version ~p or higher of ~s\n",
_ -> [required_scm_client_vsn(Name), Name])
ensure_required_scm_client(hg, Path) end.
end;
source_engine_avail(_) ->
false.
%% We expect the initial part of the version string to be of the form: scm_client_vsn(false, _VsnArg, _VsnRegex) ->
%% "Mercurial Distributed SCM (version 1.4.1+20091201)". Rebar false;
%% requires version 1.4 or higher. scm_client_vsn(Path, VsnArg, VsnRegex) ->
ensure_required_scm_client(hg, Path) -> Info = os:cmd(Path ++ VsnArg),
Info = os:cmd(Path ++ " --version"), case re:run(Info, VsnRegex, [{capture, all_but_first, list}]) of
case re:run(Info, "version (\\d*\.\\d*\.\\d*)", [{capture, all_but_first, list}]) of {match, Match} ->
{match, [Vsn]} -> list_to_tuple([list_to_integer(S) || S <- Match]);
case Vsn >= ?HG_VERSION of
true ->
true;
false ->
?ABORT("Rebar requires version ~p or higher of hg (~p)~n",
[?HG_VERSION, Path])
end;
_ -> _ ->
false false
end. end.
required_scm_client_vsn(hg) -> {1, 4};
required_scm_client_vsn(git) -> {1, 6}.
scm_client_vsn(hg) ->
scm_client_vsn(os:find_executable(hg), " --version", "version (\\d+).(\\d+)");
scm_client_vsn(git) ->
scm_client_vsn(os:find_executable(git), " --version", "git version (\\d+).(\\d+)");
scm_client_vsn(_) ->
undefined.