Added priv/scripts/rebar.config.script

esl · Mar 7, 2013 · 36fa7c4 · 36fa7c4
1 parent 86c3aaa
commit 36fa7c4
Showing 1 changed file with 18 additions and 0 deletions.
diff --git a/priv/scripts/rebar.config.script b/priv/scripts/rebar.config.script
@@ -0,0 +1,18 @@
+%% -*- erlang -*-
+Script = fun(D,S,Vs) ->
+		 Scr = filename:join(D, S),
+		 case file:script(Scr, orddict:store('SCRIPT', Scr, Vs)) of
+		     {ok, Res} -> Res;
+		     {error,_} = Err ->
+			 io:fwrite("Error evaluating script ~s~n", [S]),
+			 Err
+		 end
+	 end.
+CFG1 = case os:getenv("REBAR_DEPS") of
+	   false -> CONFIG;
+	   [] -> CONFIG;
+	   Dir ->
+	       lists:keystore(deps_dir, 1, CONFIG, {deps_dir, Dir})
+       end.
+Priv = filename:join(filename:dirname(SCRIPT), "priv").
+Script(Priv, "check_edown.script", [{'CONFIG', CFG1}]).