Permalink
Fetching contributors…
Cannot retrieve contributors at this time
78 lines (65 sloc) 2.75 KB
%% -*- mode: erlang;erlang-indent-level: 4;indent-tabs-mode: nil -*-
%% ex: ft=erlang ts=4 sw=4 et
%% generate a default test/t11/src/srcdir_test.hrl file so rebar can
%% compile the tests
ok = file:write_file("test/t11/src/srcdir_test.hrl",
<<"-define(SRCDIR_VERSION, \"1.0\").\n">>),
%% generate a charset include file
ok = file:write_file("src/yaws_charset.hrl",
case os:getenv("YAWS_CHARSET") of
false ->
<<"-define(YAWS_CHARSET, undefined).\n">>;
Charset ->
[<<"-define(YAWS_CHARSET, \"">>,
Charset, <<"\").\n">>]
end),
SoapDeps = [{erlsom, ".*", {git, "git://github.com/willemdj/erlsom.git", {branch, "master"}}},
{xmlrpc, ".*", {git, "git://github.com/rwbr/exmlrpc.git", {branch, "master"}}}],
Cfg0 = case os:getenv("YAWS_SOAP") of
false ->
CONFIG;
_ ->
case lists:keyfind(deps, 1, CONFIG) of
{deps, Deps} ->
NDeps = Deps ++ SoapDeps,
lists:keyreplace(deps, 1, CONFIG, {deps, NDeps});
false ->
CONFIG ++ [{deps, SoapDeps}]
end
end,
ErlOpts0 = case lists:keyfind(erl_opts, 1, Cfg0) of
{erl_opts, EOpts} -> EOpts;
false -> []
end,
PortEnv0 = case lists:keyfind(port_env, 1, Cfg0) of
{port_env, PEnv} -> PEnv;
false -> []
end,
PortSpecs0 = case lists:keyfind(port_specs, 1, Cfg0) of
{port_specs, PSpecs} -> PSpecs;
false -> []
end,
code:ensure_loaded(file),
ErlOpts1 = case erlang:function_exported(file,sendfile,5) of
true -> ErlOpts0 ++ [{d,'HAVE_ERLANG_SENDFILE'}];
false -> ErlOpts0
end,
code:ensure_loaded(crypto),
ErlOpts2 = case erlang:function_exported(crypto,hash,2) of
true -> ErlOpts1 ++ [{d,'HAVE_CRYPTO_HASH'}];
false -> ErlOpts1
end,
HaveSendFile = lists:keymember('HAVE_SENDFILE', 3, ErlOpts2),
{PortEnv1, PortSpecs1} =
if
HaveSendFile ->
{PortEnv0 ++ [{"DRV_CFLAGS", "$DRV_CFLAGS -DHAVE_SENDFILE"}],
PortSpecs0 ++ [{"priv/lib/yaws_sendfile_drv.so",
["c_src/yaws_sendfile_drv.c", "c_src/hashtable.c"]}]};
true ->
{PortEnv0, PortSpecs0}
end,
Cfg1 = lists:keyreplace(erl_opts, 1, Cfg0, {erl_opts, ErlOpts2}),
Cfg2 = lists:keyreplace(port_env, 1, Cfg1, {port_env, PortEnv1}),
Cfg3 = lists:keyreplace(port_specs, 1, Cfg2, {port_specs, PortSpecs1}),
Cfg3.