From a279020d1b860313719a3ba07972004b8235146d Mon Sep 17 00:00:00 2001
From: Fred Hebert <mononcqc@ferd.ca>
Date: Sat, 20 Oct 2018 16:14:03 -0400
Subject: check if git/hg is installed

This PR is a simpler and mergeable version of #1853 by @shamis, since
the provider changed format enough to make merging difficult.

Compared to #1853, this also puts the responsibility on each resource to
check rather than adding a new optional callback.

The process dictionary is use as a warning/check cache.
---
 src/rebar_hg_resource.erl | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

(limited to 'src/rebar_hg_resource.erl')

diff --git a/src/rebar_hg_resource.erl b/src/rebar_hg_resource.erl
index 21d4b9d..8139d04 100644
--- a/src/rebar_hg_resource.erl
+++ b/src/rebar_hg_resource.erl
@@ -18,6 +18,7 @@ init(Type, _State) ->
     {ok, Resource}.
 
 lock(AppInfo, _) ->
+    check_type_support(),
     lock_(rebar_app_info:dir(AppInfo), rebar_app_info:source(AppInfo)).
 
 lock_(AppDir, {hg, Url, _}) ->
@@ -61,6 +62,7 @@ needs_update_(Dir, {hg, Url, Ref}) ->
     not ((LocalRef =:= TargetRef) andalso compare_url(Dir, Url)).
 
 download(TmpDir, AppInfo, State, _) ->
+    check_type_support(),
     case download_(TmpDir, rebar_app_info:source(AppInfo), State) of
         {ok, _} ->
             ok;
@@ -110,6 +112,7 @@ download_(Dir, {hg, Url, Rev}, _State) ->
                    [{cd, filename:dirname(Dir)}]).
 
 make_vsn(AppInfo, _) ->
+    check_type_support(),
     make_vsn_(rebar_app_info:dir(AppInfo)).
 
 make_vsn_(Dir) ->
@@ -183,3 +186,19 @@ parse_hg_url("http://" ++ HostPath) ->
 parse_hg_url("https://" ++ HostPath) ->
     [Host | Path] = rebar_string:lexemes(HostPath, "/"),
     {Host, filename:rootname(filename:join(Path), ".hg")}.
+
+check_type_support() ->
+    case get({is_supported, ?MODULE}) of
+        true ->
+            ok;
+        false ->
+            case rebar_utils:sh("hg --version", [{return_on_error, true},
+                                                 {use_stdout, false}]) of
+                {error, _} ->
+                    ?ABORT("hg not installed", []);
+                _ ->
+                    put({is_supported, ?MODULE}, true),
+                    ok
+            end
+    end.
+
-- 
cgit v1.1