mirror of
https://gitee.com/dgiiot/dgiot.git
synced 2024-12-02 20:28:40 +08:00
532 lines
20 KiB
Erlang
Executable File
532 lines
20 KiB
Erlang
Executable File
#!/usr/bin/env -S escript -c
|
|
%% -*- erlang-indent-level:4 -*-
|
|
|
|
usage() ->
|
|
"A script that fills in boilerplate for appup files.
|
|
|
|
Algorithm: this script compares md5s of beam files of each
|
|
application, and creates a `{load_module, Module, brutal_purge,
|
|
soft_purge, []}` action for the changed and new modules. For deleted
|
|
modules it creates `{delete_module, M}` action. These entries are
|
|
added to each patch release preceding the current release. If an entry
|
|
for a module already exists, this module is ignored. The existing
|
|
actions are kept.
|
|
|
|
Please note that it only compares the current release with its
|
|
predecessor, assuming that the upgrade actions for the older releases
|
|
are correct.
|
|
|
|
Note: The defaults are set up for emqx, but they can be tuned to
|
|
support other repos too.
|
|
|
|
Usage:
|
|
|
|
update_appup.escript [--check] [--repo URL] [--remote NAME] [--skip-build] [--make-commad SCRIPT] [--release-dir DIR] <previous_release_tag>
|
|
|
|
Options:
|
|
|
|
--check Don't update the appfile, just check that they are complete
|
|
--repo Upsteam git repo URL
|
|
--remote Get upstream repo URL from the specified git remote
|
|
--skip-build Don't rebuild the releases. May produce wrong results
|
|
--make-command A command used to assemble the release
|
|
--release-dir Release directory
|
|
--src-dirs Directories where source code is found. Defaults to '{src,apps,lib-*}/**/'
|
|
--binary-rel-url Binary release URL pattern. %TAG% variable is substituted with the release tag.
|
|
E.g. \"https://github.com/emqx/emqx/releases/download/v%TAG%/emqx-centos7-%TAG%-amd64.zip\"
|
|
".
|
|
|
|
-record(app,
|
|
{ modules :: #{module() => binary()}
|
|
, version :: string()
|
|
}).
|
|
|
|
default_options() ->
|
|
#{ clone_url => find_upstream_repo("origin")
|
|
, make_command => "make emqx-rel"
|
|
, beams_dir => "_build/emqx/rel/emqx/lib/"
|
|
, check => false
|
|
, prev_tag => undefined
|
|
, src_dirs => "{src,apps,lib-*}/**/"
|
|
, binary_rel_url => undefined
|
|
}.
|
|
|
|
%% App-specific actions that should be added unconditionally to any update/downgrade:
|
|
app_specific_actions(_) ->
|
|
[].
|
|
|
|
ignored_apps() ->
|
|
[emqx_dashboard, emqx_management] ++ otp_standard_apps().
|
|
|
|
main(Args) ->
|
|
#{prev_tag := Baseline} = Options = parse_args(Args, default_options()),
|
|
init_globals(Options),
|
|
main(Options, Baseline).
|
|
|
|
parse_args([PrevTag = [A|_]], State) when A =/= $- ->
|
|
State#{prev_tag => PrevTag};
|
|
parse_args(["--check"|Rest], State) ->
|
|
parse_args(Rest, State#{check => true});
|
|
parse_args(["--skip-build"|Rest], State) ->
|
|
parse_args(Rest, State#{make_command => "true"});
|
|
parse_args(["--repo", Repo|Rest], State) ->
|
|
parse_args(Rest, State#{clone_url => Repo});
|
|
parse_args(["--remote", Remote|Rest], State) ->
|
|
parse_args(Rest, State#{clone_url => find_upstream_repo(Remote)});
|
|
parse_args(["--make-command", Command|Rest], State) ->
|
|
parse_args(Rest, State#{make_command => Command});
|
|
parse_args(["--release-dir", Dir|Rest], State) ->
|
|
parse_args(Rest, State#{beams_dir => Dir});
|
|
parse_args(["--src-dirs", Pattern|Rest], State) ->
|
|
parse_args(Rest, State#{src_dirs => Pattern});
|
|
parse_args(["--binary-rel-url", URL|Rest], State) ->
|
|
parse_args(Rest, State#{binary_rel_url => {ok, URL}});
|
|
parse_args(_, _) ->
|
|
fail(usage()).
|
|
|
|
main(Options, Baseline) ->
|
|
{CurrRelDir, PrevRelDir} = prepare(Baseline, Options),
|
|
log("~n===================================~n"
|
|
"Processing changes..."
|
|
"~n===================================~n"),
|
|
CurrAppsIdx = index_apps(CurrRelDir),
|
|
PrevAppsIdx = index_apps(PrevRelDir),
|
|
%% log("Curr: ~p~nPrev: ~p~n", [CurrAppsIdx, PrevAppsIdx]),
|
|
AppupChanges = find_appup_actions(CurrAppsIdx, PrevAppsIdx),
|
|
case getopt(check) of
|
|
true ->
|
|
case AppupChanges of
|
|
[] ->
|
|
ok;
|
|
_ ->
|
|
Diffs =
|
|
lists:filtermap(
|
|
fun({App, {Upgrade, Downgrade, OldUpgrade, OldDowngrade}}) ->
|
|
case parse_appup_diffs(Upgrade, OldUpgrade,
|
|
Downgrade, OldDowngrade) of
|
|
ok ->
|
|
false;
|
|
{diffs, Diffs} ->
|
|
{true, {App, Diffs}}
|
|
end
|
|
end,
|
|
AppupChanges),
|
|
case Diffs =:= [] of
|
|
true ->
|
|
ok;
|
|
false ->
|
|
set_invalid(),
|
|
log("ERROR: The appup files are incomplete. Missing changes:~n ~p",
|
|
[Diffs])
|
|
end
|
|
end;
|
|
false ->
|
|
update_appups(AppupChanges)
|
|
end,
|
|
check_appup_files(),
|
|
warn_and_exit(is_valid()).
|
|
|
|
warn_and_exit(true) ->
|
|
log("
|
|
NOTE: Please review the changes manually. This script does not know about NIF
|
|
changes, supervisor changes, process restarts and so on. Also the load order of
|
|
the beam files might need updating.~n"),
|
|
halt(0);
|
|
warn_and_exit(false) ->
|
|
log("~nERROR: Incomplete appups found. Please inspect the output for more details.~n"),
|
|
halt(1).
|
|
|
|
prepare(Baseline, Options = #{make_command := MakeCommand, beams_dir := BeamDir, binary_rel_url := BinRel}) ->
|
|
log("~n===================================~n"
|
|
"Baseline: ~s"
|
|
"~n===================================~n", [Baseline]),
|
|
log("Building the current version...~n"),
|
|
bash(MakeCommand),
|
|
log("Downloading and building the previous release...~n"),
|
|
PrevRelDir =
|
|
case BinRel of
|
|
undefined ->
|
|
{ok, PrevRootDir} = build_prev_release(Baseline, Options),
|
|
filename:join(PrevRootDir, BeamDir);
|
|
{ok, _URL} ->
|
|
{ok, PrevRootDir} = download_prev_release(Baseline, Options),
|
|
PrevRootDir
|
|
end,
|
|
{BeamDir, PrevRelDir}.
|
|
|
|
build_prev_release(Baseline, #{clone_url := Repo, make_command := MakeCommand}) ->
|
|
BaseDir = "/tmp/emqx-baseline/",
|
|
Dir = filename:basename(Repo, ".git") ++ [$-|Baseline],
|
|
%% TODO: shallow clone
|
|
Script = "mkdir -p ${BASEDIR} &&
|
|
cd ${BASEDIR} &&
|
|
{ [ -d ${DIR} ] || git clone --branch ${TAG} ${REPO} ${DIR}; } &&
|
|
cd ${DIR} &&" ++ MakeCommand,
|
|
Env = [{"REPO", Repo}, {"TAG", Baseline}, {"BASEDIR", BaseDir}, {"DIR", Dir}],
|
|
bash(Script, Env),
|
|
{ok, filename:join(BaseDir, Dir)}.
|
|
|
|
download_prev_release(Tag, #{binary_rel_url := {ok, URL0}, clone_url := Repo}) ->
|
|
URL = string:replace(URL0, "%TAG%", Tag, all),
|
|
BaseDir = "/tmp/emqx-baseline-bin/",
|
|
Dir = filename:basename(Repo, ".git") ++ [$-|Tag],
|
|
Filename = filename:join(BaseDir, Dir),
|
|
Script = "mkdir -p ${OUTFILE} &&
|
|
wget -c -O ${OUTFILE}.zip ${URL} &&
|
|
unzip -n -d ${OUTFILE} ${OUTFILE}.zip",
|
|
Env = [{"TAG", Tag}, {"OUTFILE", Filename}, {"URL", URL}],
|
|
bash(Script, Env),
|
|
{ok, Filename}.
|
|
|
|
find_upstream_repo(Remote) ->
|
|
string:trim(os:cmd("git remote get-url " ++ Remote)).
|
|
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
%% Appup action creation and updating
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
|
find_appup_actions(CurrApps, PrevApps) ->
|
|
maps:fold(
|
|
fun(App, CurrAppIdx, Acc) ->
|
|
case PrevApps of
|
|
#{App := PrevAppIdx} -> find_appup_actions(App, CurrAppIdx, PrevAppIdx) ++ Acc;
|
|
_ -> Acc %% New app, nothing to upgrade here.
|
|
end
|
|
end,
|
|
[],
|
|
CurrApps).
|
|
|
|
find_appup_actions(_App, AppIdx, AppIdx) ->
|
|
%% No changes to the app, ignore:
|
|
[];
|
|
find_appup_actions(App, CurrAppIdx, PrevAppIdx = #app{version = PrevVersion}) ->
|
|
{OldUpgrade, OldDowngrade} = find_old_appup_actions(App, PrevVersion),
|
|
Upgrade = merge_update_actions(App, diff_app(App, CurrAppIdx, PrevAppIdx), OldUpgrade),
|
|
Downgrade = merge_update_actions(App, diff_app(App, PrevAppIdx, CurrAppIdx), OldDowngrade),
|
|
if OldUpgrade =:= Upgrade andalso OldDowngrade =:= Downgrade ->
|
|
%% The appup file has been already updated:
|
|
[];
|
|
true ->
|
|
[{App, {Upgrade, Downgrade, OldUpgrade, OldDowngrade}}]
|
|
end.
|
|
|
|
%% For external dependencies, show only the changes that are missing
|
|
%% in their current appup.
|
|
diff_appup_instructions(ComputedChanges, PresentChanges) ->
|
|
lists:foldr(
|
|
fun({Vsn, ComputedActions}, Acc) ->
|
|
case find_matching_version(Vsn, PresentChanges) of
|
|
undefined ->
|
|
[{Vsn, ComputedActions} | Acc];
|
|
PresentActions ->
|
|
DiffActions = ComputedActions -- PresentActions,
|
|
case DiffActions of
|
|
[] ->
|
|
%% no diff
|
|
Acc;
|
|
_ ->
|
|
[{Vsn, DiffActions} | Acc]
|
|
end
|
|
end
|
|
end,
|
|
[],
|
|
ComputedChanges).
|
|
|
|
%% For external dependencies, checks if any missing diffs are present
|
|
%% and groups them by `up' and `down' types.
|
|
parse_appup_diffs(Upgrade, OldUpgrade, Downgrade, OldDowngrade) ->
|
|
DiffUp = diff_appup_instructions(Upgrade, OldUpgrade),
|
|
DiffDown = diff_appup_instructions(Downgrade, OldDowngrade),
|
|
case {DiffUp, DiffDown} of
|
|
{[], []} ->
|
|
%% no diff for external dependency; ignore
|
|
ok;
|
|
_ ->
|
|
set_invalid(),
|
|
Diffs = #{ up => DiffUp
|
|
, down => DiffDown
|
|
},
|
|
{diffs, Diffs}
|
|
end.
|
|
|
|
%% TODO: handle regexes
|
|
find_matching_version(Vsn, PresentChanges) ->
|
|
proplists:get_value(Vsn, PresentChanges).
|
|
|
|
find_old_appup_actions(App, PrevVersion) ->
|
|
{Upgrade0, Downgrade0} =
|
|
case locate(ebin_current, App, ".appup") of
|
|
{ok, AppupFile} ->
|
|
log("Found the previous appup file: ~s~n", [AppupFile]),
|
|
{_, U, D} = read_appup(AppupFile),
|
|
{U, D};
|
|
undefined ->
|
|
%% Fallback to the app.src file, in case the
|
|
%% application doesn't have a release (useful for the
|
|
%% apps that live outside the EMQX monorepo):
|
|
case locate(src, App, ".appup.src") of
|
|
{ok, AppupSrcFile} ->
|
|
log("Using ~s as a source of previous update actions~n", [AppupSrcFile]),
|
|
{_, U, D} = read_appup(AppupSrcFile),
|
|
{U, D};
|
|
undefined ->
|
|
{[], []}
|
|
end
|
|
end,
|
|
{ensure_version(PrevVersion, Upgrade0), ensure_version(PrevVersion, Downgrade0)}.
|
|
|
|
merge_update_actions(App, Changes, Vsns) ->
|
|
lists:map(fun(Ret = {<<".*">>, _}) ->
|
|
Ret;
|
|
({Vsn, Actions}) ->
|
|
{Vsn, do_merge_update_actions(App, Changes, Actions)}
|
|
end,
|
|
Vsns).
|
|
|
|
do_merge_update_actions(App, {New0, Changed0, Deleted0}, OldActions) ->
|
|
AppSpecific = app_specific_actions(App) -- OldActions,
|
|
AlreadyHandled = lists:flatten(lists:map(fun process_old_action/1, OldActions)),
|
|
New = New0 -- AlreadyHandled,
|
|
Changed = Changed0 -- AlreadyHandled,
|
|
Deleted = Deleted0 -- AlreadyHandled,
|
|
[{load_module, M, brutal_purge, soft_purge, []} || M <- Changed ++ New] ++
|
|
OldActions ++
|
|
[{delete_module, M} || M <- Deleted] ++
|
|
AppSpecific.
|
|
|
|
|
|
%% @doc Process the existing actions to exclude modules that are
|
|
%% already handled
|
|
process_old_action({purge, Modules}) ->
|
|
Modules;
|
|
process_old_action({delete_module, Module}) ->
|
|
[Module];
|
|
process_old_action(LoadModule) when is_tuple(LoadModule) andalso
|
|
element(1, LoadModule) =:= load_module ->
|
|
element(2, LoadModule);
|
|
process_old_action(_) ->
|
|
[].
|
|
|
|
ensure_version(Version, OldInstructions) ->
|
|
OldVersions = [ensure_string(element(1, I)) || I <- OldInstructions],
|
|
case lists:member(Version, OldVersions) of
|
|
false ->
|
|
[{Version, []}|OldInstructions];
|
|
_ ->
|
|
OldInstructions
|
|
end.
|
|
|
|
read_appup(File) ->
|
|
%% NOTE: appup file is a script, it may contain variables or functions.
|
|
case file:script(File, [{'VSN', "VSN"}]) of
|
|
{ok, Terms} ->
|
|
Terms;
|
|
Error ->
|
|
fail("Failed to parse appup file ~s: ~p", [File, Error])
|
|
end.
|
|
|
|
check_appup_files() ->
|
|
AppupFiles = filelib:wildcard(getopt(src_dirs) ++ "/*.appup.src"),
|
|
lists:foreach(fun read_appup/1, AppupFiles).
|
|
|
|
update_appups(Changes) ->
|
|
lists:foreach(
|
|
fun({App, {Upgrade, Downgrade, OldUpgrade, OldDowngrade}}) ->
|
|
do_update_appup(App, Upgrade, Downgrade, OldUpgrade, OldDowngrade)
|
|
end,
|
|
Changes).
|
|
|
|
do_update_appup(App, Upgrade, Downgrade, OldUpgrade, OldDowngrade) ->
|
|
case locate(src, App, ".appup.src") of
|
|
{ok, AppupFile} ->
|
|
render_appfile(AppupFile, Upgrade, Downgrade);
|
|
undefined ->
|
|
case create_stub(App) of
|
|
{ok, AppupFile} ->
|
|
render_appfile(AppupFile, Upgrade, Downgrade);
|
|
false ->
|
|
case parse_appup_diffs(Upgrade, OldUpgrade,
|
|
Downgrade, OldDowngrade) of
|
|
ok ->
|
|
%% no diff for external dependency; ignore
|
|
ok;
|
|
{diffs, Diffs} ->
|
|
set_invalid(),
|
|
log("ERROR: Appup file for the external dependency '~p' is not complete.~n Missing changes: ~100p~n", [App, Diffs]),
|
|
log("NOTE: Some changes above might be already covered by regexes.~n")
|
|
end
|
|
end
|
|
end.
|
|
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
%% Appup file creation
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
|
render_appfile(File, Upgrade, Downgrade) ->
|
|
IOList = io_lib:format("%% -*- mode: erlang -*-\n{VSN,~n ~p,~n ~p}.~n", [Upgrade, Downgrade]),
|
|
ok = file:write_file(File, IOList).
|
|
|
|
create_stub(App) ->
|
|
case locate(src, App, Ext = ".app.src") of
|
|
{ok, AppSrc} ->
|
|
DirName = filename:dirname(AppSrc),
|
|
AppupFile = filename:basename(AppSrc, Ext) ++ ".appup.src",
|
|
Default = {<<".*">>, []},
|
|
AppupFileFullpath = filename:join(DirName, AppupFile),
|
|
render_appfile(AppupFileFullpath, [Default], [Default]),
|
|
{ok, AppupFileFullpath};
|
|
undefined ->
|
|
false
|
|
end.
|
|
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
%% application and release indexing
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
|
index_apps(ReleaseDir) ->
|
|
Apps0 = maps:from_list([index_app(filename:join(ReleaseDir, AppFile)) ||
|
|
AppFile <- filelib:wildcard("**/ebin/*.app", ReleaseDir)]),
|
|
maps:without(ignored_apps(), Apps0).
|
|
|
|
index_app(AppFile) ->
|
|
{ok, [{application, App, Properties}]} = file:consult(AppFile),
|
|
Vsn = proplists:get_value(vsn, Properties),
|
|
%% Note: assuming that beams are always located in the same directory where app file is:
|
|
EbinDir = filename:dirname(AppFile),
|
|
Modules = hashsums(EbinDir),
|
|
{App, #app{ version = Vsn
|
|
, modules = Modules
|
|
}}.
|
|
|
|
diff_app(App, #app{version = NewVersion, modules = NewModules}, #app{version = OldVersion, modules = OldModules}) ->
|
|
{New, Changed} =
|
|
maps:fold( fun(Mod, MD5, {New, Changed}) ->
|
|
case OldModules of
|
|
#{Mod := OldMD5} when MD5 =:= OldMD5 ->
|
|
{New, Changed};
|
|
#{Mod := _} ->
|
|
{New, [Mod|Changed]};
|
|
_ ->
|
|
{[Mod|New], Changed}
|
|
end
|
|
end
|
|
, {[], []}
|
|
, NewModules
|
|
),
|
|
Deleted = maps:keys(maps:without(maps:keys(NewModules), OldModules)),
|
|
NChanges = length(New) + length(Changed) + length(Deleted),
|
|
if NewVersion =:= OldVersion andalso NChanges > 0 ->
|
|
set_invalid(),
|
|
log("ERROR: Application '~p' contains changes, but its version is not updated~n", [App]);
|
|
NewVersion > OldVersion ->
|
|
log("INFO: Application '~p' has been updated: ~p -> ~p~n", [App, OldVersion, NewVersion]),
|
|
ok;
|
|
true ->
|
|
ok
|
|
end,
|
|
{New, Changed, Deleted}.
|
|
|
|
-spec hashsums(file:filename()) -> #{module() => binary()}.
|
|
hashsums(EbinDir) ->
|
|
maps:from_list(lists:map(
|
|
fun(Beam) ->
|
|
File = filename:join(EbinDir, Beam),
|
|
{ok, Ret = {_Module, _MD5}} = beam_lib:md5(File),
|
|
Ret
|
|
end,
|
|
filelib:wildcard("*.beam", EbinDir)
|
|
)).
|
|
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
%% Global state
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
|
init_globals(Options) ->
|
|
ets:new(globals, [named_table, set, public]),
|
|
ets:insert(globals, {valid, true}),
|
|
ets:insert(globals, {options, Options}).
|
|
|
|
getopt(Option) ->
|
|
maps:get(Option, ets:lookup_element(globals, options, 2)).
|
|
|
|
%% Set a global flag that something about the appfiles is invalid
|
|
set_invalid() ->
|
|
ets:insert(globals, {valid, false}).
|
|
|
|
is_valid() ->
|
|
ets:lookup_element(globals, valid, 2).
|
|
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
%% Utility functions
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
|
%% Locate a file in a specified application
|
|
locate(ebin_current, App, Suffix) ->
|
|
ReleaseDir = getopt(beams_dir),
|
|
AppStr = atom_to_list(App),
|
|
case filelib:wildcard(ReleaseDir ++ "/**/ebin/" ++ AppStr ++ Suffix) of
|
|
[File] ->
|
|
{ok, File};
|
|
[] ->
|
|
undefined
|
|
end;
|
|
locate(src, App, Suffix) ->
|
|
AppStr = atom_to_list(App),
|
|
SrcDirs = getopt(src_dirs),
|
|
case filelib:wildcard(SrcDirs ++ AppStr ++ Suffix) of
|
|
[File] ->
|
|
{ok, File};
|
|
[] ->
|
|
undefined
|
|
end.
|
|
|
|
bash(Script) ->
|
|
bash(Script, []).
|
|
|
|
bash(Script, Env) ->
|
|
log("+ ~s~n+ Env: ~p~n", [Script, Env]),
|
|
case cmd("bash", #{args => ["-c", Script], env => Env}) of
|
|
0 -> true;
|
|
_ -> fail("Failed to run command: ~s", [Script])
|
|
end.
|
|
|
|
%% Spawn an executable and return the exit status
|
|
cmd(Exec, Params) ->
|
|
case os:find_executable(Exec) of
|
|
false ->
|
|
fail("Executable not found in $PATH: ~s", [Exec]);
|
|
Path ->
|
|
Params1 = maps:to_list(maps:with([env, args, cd], Params)),
|
|
Port = erlang:open_port( {spawn_executable, Path}
|
|
, [ exit_status
|
|
, nouse_stdio
|
|
| Params1
|
|
]
|
|
),
|
|
receive
|
|
{Port, {exit_status, Status}} ->
|
|
Status
|
|
end
|
|
end.
|
|
|
|
fail(Str) ->
|
|
fail(Str, []).
|
|
|
|
fail(Str, Args) ->
|
|
log(Str ++ "~n", Args),
|
|
halt(1).
|
|
|
|
log(Msg) ->
|
|
log(Msg, []).
|
|
|
|
log(Msg, Args) ->
|
|
io:format(standard_error, Msg, Args).
|
|
|
|
ensure_string(Str) when is_binary(Str) ->
|
|
binary_to_list(Str);
|
|
ensure_string(Str) when is_list(Str) ->
|
|
Str.
|
|
|
|
otp_standard_apps() ->
|
|
[ssl, mnesia, kernel, asn1, stdlib].
|