%% -*- erlang -*- %% %% %CopyrightBegin% %% %% Copyright Ericsson AB 1998-2011. All Rights Reserved. %% %% The contents of this file are subject to the Erlang Public License, %% Version 1.1, (the "License"); you may not use this file except in %% compliance with the License. You should have received a copy of the %% Erlang Public License along with this software. If not, it can be %% retrieved online at http://www.erlang.org/. %% %% Software distributed under the License is distributed on an "AS IS" %% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See %% the License for the specific language governing rights and limitations %% under the License. %% %% %CopyrightEnd% %% %% Run like: %% $ERL_TOP/bin/escript erts/emulator/utils/loaded -mode(compile). main(_) -> LibDir = code:lib_dir(), io:format("Library root is ~s\n", [LibDir]), Wc = filename:join(LibDir, "*/ebin/*.beam"), Beams = filelib:wildcard(Wc), BeamFileSize = lists:sum([filelib:file_size(Beam) || Beam <- Beams]), io:format("~w BEAM files containing ~w bytes\n", [length(Beams),BeamFileSize]), Ms = [list_to_atom(filename:rootname(filename:basename(Beam))) || Beam <- Beams], [{module,_} = code:ensure_loaded(M) || M <- Ms], <<"Current code: ",T/binary>> = erlang:system_info(loaded), Digits = grab_digits(T), io:format("~w modules comprising ~s words when loaded\n", [length(Ms),Digits]). grab_digits(<<H,T/binary>>) when $0 =< H, H =< $9 -> [H|grab_digits(T)]; grab_digits(<<$\n,_/binary>>) -> [].