summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorDave Smith <dizzyd@dizzyd.com>2012-11-11 13:03:24 -0700
committerDave Smith <dizzyd@dizzyd.com>2012-11-11 13:03:24 -0700
commit9ac6c25f6dc0138307aa71b095e821b934a14dab (patch)
tree9e5d52933344d8b5907b516089d6fc2fc23191ca /src
parent38b08252c60bc495523bbbdab5209123cf6ab5b3 (diff)
Restore support for so_name, port_envs and port_sources
Diffstat (limited to 'src')
-rw-r--r--src/rebar_port_compiler.erl51
1 files changed, 41 insertions, 10 deletions
diff --git a/src/rebar_port_compiler.erl b/src/rebar_port_compiler.erl
index 91b2cac..71b27a5 100644
--- a/src/rebar_port_compiler.erl
+++ b/src/rebar_port_compiler.erl
@@ -92,8 +92,8 @@
objects = [] :: [file:filename(), ...],
opts = [] ::list() | []}).
-compile(Config, _AppFile) ->
- case get_specs(Config) of
+compile(Config, AppFile) ->
+ case get_specs(Config, AppFile) of
[] ->
ok;
Specs ->
@@ -130,8 +130,8 @@ compile(Config, _AppFile) ->
end, Specs)
end.
-clean(Config, _AppFile) ->
- case get_specs(Config) of
+clean(Config, AppFile) ->
+ case get_specs(Config, AppFile) of
[] ->
ok;
Specs ->
@@ -154,7 +154,12 @@ setup_env(Config, ExtraEnv) ->
%% merge with the default for this operating system. This enables
%% max flexibility for users.
DefaultEnv = filter_env(default_env(), []),
- RawPortEnv = rebar_config:get_list(Config, port_env, []),
+
+ %% Get any port-specific envs; use port_env first and then fallback
+ %% to port_envs for compatibility
+ RawPortEnv = rebar_config:get_list(Config, port_env,
+ rebar_config:get_list(Config, port_envs, [])),
+
PortEnv = filter_env(RawPortEnv, []),
Defines = get_defines(Config),
OverrideEnv = Defines ++ PortEnv ++ filter_env(ExtraEnv, []),
@@ -242,11 +247,37 @@ needs_link(SoName, NewBins) ->
%% == port_specs ==
%%
-get_specs(Config) ->
- PortSpecs = rebar_config:get_local(Config, port_specs, []),
- Filtered = filter_port_specs(PortSpecs),
- OsType = os:type(),
- [get_port_spec(Config, OsType, Spec) || Spec <- Filtered].
+get_specs(Config, AppFile) ->
+ case rebar_config:get_local(Config, port_specs, []) of
+ [] ->
+ %% No spec provided. Construct a spec
+ %% from old-school so_name and sources
+ [port_spec_from_legacy(Config, AppFile)];
+ PortSpecs ->
+ Filtered = filter_port_specs(PortSpecs),
+ OsType = os:type(),
+ [get_port_spec(Config, OsType, Spec) || Spec <- Filtered]
+ end.
+
+port_spec_from_legacy(Config, AppFile) ->
+ %% Get the target from the so_name variable
+ Target = case rebar_config:get(Config, so_name, undefined) of
+ undefined ->
+ %% Generate a sensible default from app file
+ {_, AppName} = rebar_app_utils:app_name(Config, AppFile),
+ filename:join("priv",
+ lists:concat([AppName, "_drv.so"]));
+ AName ->
+ %% Old form is available -- use it
+ filename:join("priv", AName)
+ end,
+ %% Get the list of source files from port_sources
+ Sources = port_sources(rebar_config:get_list(Config, port_sources,
+ ["c_src/*.c"])),
+ #spec { type = target_type(Target),
+ target = maybe_switch_extension(os:type(), Target),
+ sources = Sources,
+ objects = port_objects(Sources) }.
filter_port_specs(Specs) ->
[S || S <- Specs, filter_port_spec(S)].