ignore_lib_apps(Apps)

This commit is contained in:
Ery Lee 2015-04-20 04:23:54 +08:00
parent a44e955d64
commit cf0068c2b3
1 changed files with 15 additions and 1 deletions

View File

@ -40,7 +40,7 @@ all_module_attributes(Name) ->
lists:usort(
lists:append(
[[{App, Module} || Module <- Modules] ||
{App, _, _} <- application:loaded_applications(),
{App, _, _} <- ignore_lib_apps(application:loaded_applications()),
{ok, Modules} <- [application:get_key(App, modules)]])),
lists:foldl(
fun ({App, Module}, Acc) ->
@ -62,3 +62,17 @@ module_attributes(Module) ->
V
end.
ignore_lib_apps(Apps) ->
LibApps = [kernel, stdlib, sasl,
syntax_tools, ssl, crypto,
mnesia, os_mon, inets,
goldrush, lager, gproc,
runtime_tools, snmp, otp_mibs,
public_key, asn1, ssh,
common_test, observer, webtool,
xmerl, tools, test_server,
compiler, debugger, eunit,
et, gen_logger, wx,
hipe, esockd, mochiweb],
[App || App = {Name, _, _} <- Apps, not lists:member(Name, LibApps)].