Fix code readability in port_compiler

This commit is contained in:
Tuncer Ayaz 2011-05-12 00:14:25 +02:00
parent 8711d9517f
commit 096e56d61c

View file

@ -275,15 +275,15 @@ compiler(_) -> "$CC".
merge_each_var([], Vars) ->
Vars;
merge_each_var([{Key, Value} | Rest], Vars) ->
case orddict:find(Key, Vars) of
error ->
%% Nothing yet defined for this key/value.
%% Expand any self-references as blank.
Evalue = expand_env_variable(Value, Key, "");
{ok, Value0} ->
%% Use previous definition in expansion
Evalue = expand_env_variable(Value, Key, Value0)
end,
Evalue = case orddict:find(Key, Vars) of
error ->
%% Nothing yet defined for this key/value.
%% Expand any self-references as blank.
expand_env_variable(Value, Key, "");
{ok, Value0} ->
%% Use previous definition in expansion
expand_env_variable(Value, Key, Value0)
end,
merge_each_var(Rest, orddict:store(Key, Evalue, Vars)).
%%
@ -313,12 +313,12 @@ expand_vars_loop(Vars0, Count) ->
expand_vars(Key, Value, Vars) ->
lists:foldl(
fun({AKey, AValue}, Acc) ->
case AKey of
Key ->
NewValue = AValue;
_ ->
NewValue = expand_env_variable(AValue, Key, Value)
end,
NewValue = case AKey of
Key ->
AValue;
_ ->
expand_env_variable(AValue, Key, Value)
end,
[{AKey, NewValue} | Acc]
end,
[], Vars).