Packages
otpbp
4.81.0
8.1.0
8.0.0
7.20.0
7.19.3
7.19.2
7.18.0
7.16.1
7.15.0
7.14.0
7.13.0
7.12.0
7.11.0
7.10.2
7.9.3
7.9.2
7.9.1
7.8.7
7.8.6
7.8.5
7.8.4
7.7.1
7.7.0
7.6.3
7.6.2
7.6.1
7.6.0
7.5.1
7.5.0
7.4.0
7.3.4
7.3.3
7.3.2
7.3.1
7.3.0
7.2.0
7.1.1
7.1.0
7.0.4
7.0.3
7.0.2
7.0.1
6.28.0
6.27.1
6.27.0
6.26.2
6.26.1
6.26.0
6.25.0
6.24.0
6.23.0
6.22.2
6.21.3
6.21.2
6.21.1
6.20.2
6.19.1
6.19.0
6.18.3
6.18.2
6.18.1
6.18.0
6.17.1
6.17.0
6.16.0
6.15.4
6.15.3
6.15.2
6.15.1
6.15.0
6.14.0
6.13.5
6.13.4
6.13.3
6.13.2
6.13.1
6.13.0
6.12.0
6.11.2
6.11.1
6.10.0
6.9.2
6.9.1
6.9.0
6.8.0
6.7.1
6.7.0
6.6.4
6.6.3
6.6.2
6.6.1
6.6.0
6.5.0
6.4.0
6.3.3
6.3.2
6.3.1
6.3.0
6.2.1
6.2.0
6.1.0
6.0.0
5.41.0
5.40.1
5.40.0
5.39.1
5.39.0
5.38.0
5.37.0
5.36.0
5.35.2
5.34.3
5.34.2
5.34.1
5.33.1
5.32.1
5.32.0
5.31.3
5.31.2
5.31.1
5.31.0
5.30.1
5.30.0
5.29.0
5.28.4
5.28.3
5.28.2
5.28.1
5.28.0
5.27.0
5.26.5
5.26.4
5.26.3
5.26.2
5.26.1
5.26.0
5.25.0
5.24.2
5.24.1
5.23.0
5.22.2
5.22.1
5.22.0
5.21.0
5.20.1
5.20.0
5.19.4
5.19.3
5.19.2
5.19.1
5.19.0
5.18.0
5.17.0
5.16.3
5.16.1
5.16.0
5.15.1
5.15.0
5.14.0
5.13.1
5.13.0
5.12.1
5.12.0
5.11.2
5.11.1
5.10.1
5.10.0
5.9.0
5.8.0
5.7.0
5.6.1
5.6.0
5.5.0
5.4.2
5.4.1
5.4.0
5.3.0
5.2.2
5.2.1
5.2.0
5.1.2
5.1.1
4.81.0
4.80.1
4.80.0
4.79.1
4.79.0
4.78.0
4.77.0
4.76.2
4.75.3
4.75.2
4.75.1
4.74.0
4.73.1
4.73.0
4.72.3
4.72.2
4.72.1
4.72.0
4.71.1
4.71.0
4.70.0
4.69.4
4.69.3
4.69.2
4.69.1
4.69.0
4.68.0
4.67.5
4.67.4
4.67.3
4.67.2
4.67.0
4.66.0
4.65.2
4.65.1
4.64.0
4.63.2
4.63.1
4.63.0
4.62.0
4.61.1
4.61.0
4.60.4
4.60.3
4.60.2
4.60.1
4.60.0
4.59.0
4.58.0
4.57.2
4.57.1
4.57.0
4.56.2
4.56.1
4.56.0
4.55.0
4.54.0
4.53.0
4.52.1
4.52.0
4.51.3
4.51.2
4.51.0
4.50.0
4.49.3
4.49.2
OTP backports
Current section
Files
Jump to
Current section
Files
src/otpbp_code.erl
-module(otpbp_code).
-ifndef(HAVE_code__module_status_1).
% OTP 20.0
-export([module_status/1]).
-endif.
-ifndef(HAVE_code__modified_modules_0).
% OTP 20.0
-export([modified_modules/0]).
-endif.
-ifndef(HAVE_code__all_available_0).
% OTP 23.0
-export([all_available/0]).
-endif.
-ifndef(HAVE_code__module_status_0).
% OTP 23.0
-export([module_status/0]).
-endif.
-ifndef(HAVE_code__get_doc_1).
% OTP 23.0
-export([get_doc/1]).
-endif.
-ifndef(HAVE_code__is_module_native_1).
% OTP < 26.0
-export([is_module_native/1]).
-endif.
-ifndef(HAVE_code__rehash_0).
% OTP < 26.0
-export([rehash/0]).
-endif.
-ifndef(HAVE_code__add_path_2).
% OTP 26.0
-export([add_path/2]).
-endif.
-ifndef(HAVE_code__add_patha_2).
% OTP 26.0
-export([add_patha/2]).
-endif.
-ifndef(HAVE_code__add_paths_2).
% OTP 26.0
-export([add_paths/2]).
-endif.
-ifndef(HAVE_code__add_pathsa_2).
% OTP 26.0
-export([add_pathsa/2]).
-endif.
-ifndef(HAVE_code__add_pathsz_2).
% OTP 26.0
-export([add_pathsz/2]).
-endif.
-ifndef(HAVE_code__add_pathz_2).
% OTP 26.0
-export([add_pathz/2]).
-endif.
-ifndef(HAVE_code__clear_cache_0).
% OTP 26.0
-export([clear_cache/0]).
-endif.
-ifndef(HAVE_code__del_paths_1).
% OTP 26.0
-export([del_paths/1]).
-endif.
-ifndef(HAVE_code__replace_path_3).
% OTP 26.0
-export([replace_path/3]).
-endif.
-ifndef(HAVE_code__set_path_2).
% OTP 26.0
-export([set_path/2]).
-endif.
-ifndef(HAVE_code__lib_dir_2).
% OTP < 28.0
-export([lib_dir/2]).
-endif.
-ifndef(HAVE_code__module_status_1).
module_status(Module) -> module_status(Module, code:get_path()).
-ifndef(NEED_module_status_2).
-define(NEED_module_status_2, true).
-endif.
-endif.
-ifndef(HAVE_code__modified_modules_0).
modified_modules() ->
PathFiles = path_files(),
[M || {M, _} <- code:all_loaded(), module_status(M, PathFiles) =:= modified].
-ifndef(NEED_path_files_0).
-define(NEED_path_files_0, true).
-endif.
-ifndef(NEED_module_status_2).
-define(NEED_module_status_2, true).
-endif.
-endif.
-ifndef(HAVE_code__all_available_0).
all_available() ->
all_available(case code:get_mode() of
interactive -> code:get_path();
embedded -> []
end,
#{}).
all_available([Path|Tail], Acc) ->
all_available(Tail,
case erl_prim_loader:list_dir(Path) of
{ok, Files} -> all_available(Path, Files, Acc);
_Error -> Acc
end);
all_available([], AllModules) ->
lists:umerge(fun comp_modules/2,
lists:sort(fun comp_modules/2, [{atom_to_list(M), Path, true} || {M, Path} <- code:all_loaded()]),
lists:sort(fun comp_modules/2,
maps:fold(fun(File, Path, Acc) ->
[{filename:rootname(File), filename:append(Path, File), false}|Acc]
end, [], AllModules))).
all_available(Path, [File|T], Acc) ->
all_available(Path, T,
case filename:extension(File) =/= ".beam" orelse maps:is_key(File, Acc) of
true -> Acc;
false -> Acc#{File => Path}
end);
all_available(_Path, [], Acc) -> Acc.
comp_modules({A, _, _}, {B, _, _}) -> comp_modules(A, B);
comp_modules(A, B) -> A =< B.
-endif.
-ifndef(HAVE_code__get_doc_1).
get_doc(M) when is_atom(M) -> {error, missing}.
-endif.
-ifndef(HAVE_code__module_status_0).
module_status() ->
PathFiles = path_files(),
[{M, module_status(M, PathFiles)} || {M, _} <- code:all_loaded()].
-ifndef(NEED_path_files_0).
-define(NEED_path_files_0, true).
-endif.
-ifndef(NEED_module_status_2).
-define(NEED_module_status_2, true).
-endif.
-endif.
-ifndef(HAVE_code__is_module_native_1).
is_module_native(Module) when is_atom(Module) ->
case code:is_loaded(Module) of
{file, _} -> false;
false -> undefined
end;
is_module_native(Module) -> error(badarg, [Module]).
-endif.
-ifndef(HAVE_code__rehash_0).
rehash() -> error_logger:warning_report("The code path cache functionality has been removed").
-endif.
-ifndef(HAVE_code__add_path_2).
add_path(Dir, Cache) when Cache =:= cache; Cache =:= nocache -> code:add_path(Dir).
-endif.
-ifndef(HAVE_code__add_patha_2).
add_patha(Dir, Cache) when Cache =:= cache; Cache =:= nocache -> code:add_patha(Dir).
-endif.
-ifndef(HAVE_code__add_paths_2).
add_paths(Dir, Cache) when Cache =:= cache; Cache =:= nocache -> code:add_paths(Dir).
-endif.
-ifndef(HAVE_code__add_pathsa_2).
add_pathsa(Dir, Cache) when Cache =:= cache; Cache =:= nocache -> code:add_pathsa(Dir).
-endif.
-ifndef(HAVE_code__add_pathsz_2).
add_pathsz(Dir, Cache) when Cache =:= cache; Cache =:= nocache -> code:add_pathsz(Dir).
-endif.
-ifndef(HAVE_code__add_pathz_2).
add_pathz(Dir, Cache) when Cache =:= cache; Cache =:= nocache -> code:add_pathz(Dir).
-endif.
-ifndef(HAVE_code__clear_cache_0).
clear_cache() -> ok.
-endif.
-ifndef(HAVE_code__del_paths_1).
del_paths(NamesOrDirs) -> lists:foreach(fun code:del_path/1, NamesOrDirs).
-endif.
-ifndef(HAVE_code__replace_path_3).
replace_path(Name, Dir, Cache) when Cache =:= cache; Cache =:= nocache -> code:replace_path(Name, Dir).
-endif.
-ifndef(HAVE_code__set_path_2).
set_path(Path, Cache) when Cache =:= cache; Cache =:= nocache -> code:set_path(Path).
-endif.
-ifndef(HAVE_code__lib_dir_2).
lib_dir(Name, SubDir) ->
case code:lib_dir(Name) of
{error, _bad_name} = E -> E;
Path -> filename:join(Path, SubDir)
end.
-endif.
-ifdef(NEED_path_files_0).
path_files() ->
lists:filtermap(fun(Path) ->
case erl_prim_loader:list_dir(Path) of
{ok, Files} -> {true, {Path, Files}};
_Error -> false
end
end,
code:get_path()).
-endif.
-ifdef(NEED_module_status_2).
module_status(Module, PathFiles) ->
case code:is_loaded(Module) of
false -> not_loaded;
{file, Loaded} when Loaded =:= preloaded; Loaded =:= [] -> loaded;
{file, Loaded} when Loaded =:= cover_compiled; is_list(Loaded) ->
case where_is_file(PathFiles, atom_to_list(Module) ++ code:objfile_extension()) of
non_existing -> removed;
Path -> case Loaded =:= cover_compiled orelse module_changed_on_disk(Module, Path) of
true -> modified;
false -> loaded
end
end
end.
where_is_file([], _) -> non_existing;
where_is_file([{D, Files}|T], File) -> where_is_file(T, File, D, Files);
where_is_file([D|T], File) ->
case erl_prim_loader:list_dir(D) of
{ok, Files} -> where_is_file(T, File, D, Files);
_Error -> where_is_file(T, File)
end.
where_is_file(T, File, D, Files) ->
case lists:member(File, Files) of
true -> filename:append(D, File);
_false -> where_is_file(T, File)
end.
-compile({inline, module_changed_on_disk/2}).
module_changed_on_disk(Module, Path) ->
Arch = erlang:system_info(hipe_architecture),
case Arch =/= undefined andalso code:is_module_native(Module) of
true ->
try beam_lib:chunks(Path, [hipe_unified_loader:chunk_name(Arch)]) of
{ok, {_, [{_, NativeCode}]}} when is_binary(NativeCode) -> erlang:md5(NativeCode);
_ -> undefined
catch
_:_ -> undefined
end;
_false ->
case beam_lib:md5(Path) of
{ok, {_, MD5}} -> MD5;
_ -> undefined
end
end =/= erlang:get_module_info(Module, md5).
-endif.