19 lines
748 B
Plaintext
19 lines
748 B
Plaintext
%% -*- mode:erlang; erlang-indent-level:4; indent-tabs-mode:nil -*-
|
|
|
|
RemoveApps = [aecuckoo, aecuckooprebuilt].
|
|
Base = filename:basename(SCRIPT, ".script").
|
|
Dir = filename:dirname(SCRIPT).
|
|
{ok, [{application,_,Opts} = App]} = file:consult(filename:join(Dir, Base)).
|
|
case os:getenv("AE_DISABLE_CUCKOO") =/= false of
|
|
true ->
|
|
{_, Apps} = lists:keyfind(applications, 1, Opts),
|
|
Env = proplists:get_value(env, Opts, []),
|
|
Env1 = lists:keystore(use_cuckoo, 1, Env, {use_cuckoo, false}),
|
|
Apps1 = Apps -- RemoveApps,
|
|
Opts1 = lists:keyreplace(applications, 1, Opts, {applications, Apps1}),
|
|
Opts2 = lists:keystore(env, 1, Opts1, {env, Env1}),
|
|
setelement(3, App, Opts2);
|
|
false ->
|
|
App
|
|
end.
|