Deprecate port_envs in favor of port_env

dialyzer_reference

@@ -1,2 +1,2 @@
 
-rebar_utils.erl:152: Call to missing or unexported function escript:foldl/3
+rebar_utils.erl:154: Call to missing or unexported function escript:foldl/3

rebar.config.sample

@@ -37,7 +37,7 @@
 
 %% Port compilation environment variables. See rebar_port_compiler.erl for
 %% more info. Default is `[]'
-{port_envs, []}.
+{port_env, []}.
 
 %% port_specs
 %% List of filenames or wildcards to be compiled. May also contain a tuple

src/rebar_port_compiler.erl

@@ -42,7 +42,7 @@
 %%                {arch_regex(), "priv/foo.so", ["c_src/foo.c"]}
 %%                {"priv/foo", ["c_src/foo.c"]}
 %%
-%% * port_envs - Erlang list of key/value pairs which will control
+%% * port_env - Erlang list of key/value pairs which will control
 %%              the environment when running the compiler and linker.
 %%
 %%              By default, the following variables are defined:
@@ -73,7 +73,7 @@
 %%              you MUST include a shell-style reference in your definition.
 %%              e.g. to extend CFLAGS, do something like:
 %%
-%%               {port_envs, [{"CFLAGS", "$CFLAGS -MyOtherOptions"}]}
+%%              {port_env, [{"CFLAGS", "$CFLAGS -MyOtherOptions"}]}
 %%
 %%              It is also possible to specify platform specific options
 %%              by specifying a triplet where the first string is a regex
@@ -81,7 +81,7 @@
 %%              e.g. to specify a CFLAG that only applies to x86_64 on linux
 %%              do:
 %%
-%%               {port_envs, [{"x86_64.*-linux", "CFLAGS",
+%%              {port_env, [{"x86_64.*-linux", "CFLAGS",
 %%                           "$CFLAGS -X86Options"}]}
 %%
 
@@ -152,10 +152,10 @@ setup_env(Config) ->
     %% Extract environment values from the config (if specified) and
     %% merge with the default for this operating system. This enables
     %% max flexibility for users.
-    DefaultEnvs  = filter_envs(default_env(), []),
+    DefaultEnv  = filter_env(default_env(), []),
-    PortEnvs = port_envs(Config),
+    PortEnv = port_env(Config),
-    OverrideEnvs = global_defines() ++ filter_envs(PortEnvs, []),
+    OverrideEnv = global_defines() ++ filter_env(PortEnv, []),
-    RawEnv = apply_defaults(os_env(), DefaultEnvs) ++ OverrideEnvs,
+    RawEnv = apply_defaults(os_env(), DefaultEnv) ++ OverrideEnv,
     expand_vars_loop(merge_each_var(RawEnv, [])).
 
 %% ===================================================================
@@ -381,9 +381,11 @@ is_expandable(InStr) ->
         nomatch -> false
     end.
 
-port_envs(Config) ->
+port_env(Config) ->
-    PortEnvs = rebar_config:get_list(Config, port_envs, []),
+    %% TODO: remove support for deprecated port_envs option
-    %% TODO: remove migration of deprecated port_envs (DRV_-/EXE_-less vars)
+    PortEnv = rebar_utils:get_deprecated_list(Config, port_envs, port_env,
+                                              [], "soon"),
+    %% TODO: remove migration of deprecated port_env DRV_-/EXE_-less vars
     %%       when the deprecation grace period ends
     WarnAndConvertVar = fun(Var) ->
                                 New = "DRV_" ++ Var,
@@ -406,23 +408,23 @@ port_envs(Config) ->
                  ({Var, Val}) ->
                       {ConvertVar(Var), ReplaceVars(Val)}
               end,
-    [Convert(Env) || Env <- PortEnvs].
+    [Convert(EnvVar) || EnvVar <- PortEnv].
 
 %%
 %% Filter a list of env vars such that only those which match the provided
 %% architecture regex (or do not have a regex) are returned.
 %%
-filter_envs([], Acc) ->
+filter_env([], Acc) ->
     lists:reverse(Acc);
-filter_envs([{ArchRegex, Key, Value} | Rest], Acc) ->
+filter_env([{ArchRegex, Key, Value} | Rest], Acc) ->
     case rebar_utils:is_arch(ArchRegex) of
         true ->
-            filter_envs(Rest, [{Key, Value} | Acc]);
+            filter_env(Rest, [{Key, Value} | Acc]);
         false ->
-            filter_envs(Rest, Acc)
+            filter_env(Rest, Acc)
     end;
-filter_envs([{Key, Value} | Rest], Acc) ->
+filter_env([{Key, Value} | Rest], Acc) ->
-    filter_envs(Rest, [{Key, Value} | Acc]).
+    filter_env(Rest, [{Key, Value} | Acc]).
 
 
 erts_dir() ->

src/rebar_utils.erl

@@ -46,6 +46,8 @@
          expand_env_variable/3,
          vcs_vsn/2,
          get_deprecated_global/3,
+         get_deprecated_list/4, get_deprecated_list/5,
+         get_deprecated_local/4, get_deprecated_local/5,
          delayed_halt/1]).
 
 -include("rebar.hrl").
@@ -235,9 +237,12 @@ vcs_vsn_1(Vcs, Dir) ->
     end.
 
 get_deprecated_global(OldOpt, NewOpt, When) ->
-    case rebar_config:get_global(NewOpt, undefined) of
+    get_deprecated_global(OldOpt, NewOpt, undefined, When).
+
+get_deprecated_global(OldOpt, NewOpt, Default, When) ->
+    case rebar_config:get_global(NewOpt, Default) of
         undefined ->
-            case rebar_config:get_global(OldOpt, undefined) of
+            case rebar_config:get_global(OldOpt, Default) of
                 undefined ->
                     undefined;
                 Old ->
@@ -248,6 +253,21 @@ get_deprecated_global(OldOpt, NewOpt, When) ->
             New
     end.
 
+
+get_deprecated_list(Config, OldOpt, NewOpt, When) ->
+    get_deprecated_list(Config, OldOpt, NewOpt, undefined, When).
+
+get_deprecated_list(Config, OldOpt, NewOpt, Default, When) ->
+    get_deprecated_3(fun rebar_config:get_list/3,
+                     Config, OldOpt, NewOpt, Default, When).
+
+get_deprecated_local(Config, OldOpt, NewOpt, When) ->
+    get_deprecated_local(Config, OldOpt, NewOpt, undefined, When).
+
+get_deprecated_local(Config, OldOpt, NewOpt, Default, When) ->
+    get_deprecated_3(fun rebar_config:get_local/3,
+                     Config, OldOpt, NewOpt, Default, When).
+
 deprecated(Old, New, Opts, When) when is_list(Opts) ->
     case lists:member(Old, Opts) of
         true ->
@@ -287,6 +307,20 @@ delayed_halt(Code) ->
 %% Internal functions
 %% ====================================================================
 
+get_deprecated_3(Get, Config, OldOpt, NewOpt, Default, When) ->
+    case Get(Config, NewOpt, Default) of
+        Default ->
+            case Get(Config, OldOpt, Default) of
+                Default ->
+                    Default;
+                Old ->
+                    deprecated(OldOpt, NewOpt, When),
+                    Old
+            end;
+        New ->
+            New
+    end.
+
 %% We do the shell variable substitution ourselves on Windows and hope that the
 %% command doesn't use any other shell magic.
 patch_on_windows(Cmd, Env) ->

xref_reference

@@ -1,2 +1,2 @@
 ==> rebar (xref)
-src/rebar_utils.erl:146: Warning escript_foldl/3 calls undefined function escript:foldl/3
+src/rebar_utils.erl:148: Warning escript_foldl/3 calls undefined function escript:foldl/3