valitydev/yamerl
14
0
Fork 0
mirror of https://github.com/valitydev/yamerl.git synced 2024-11-06 02:45:23 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Export is_node_mod/1

Browse Source 
This function is used to check if a module implements a node.
This commit is contained in:
Jean-Sébastien Pédron 2011-09-27 15:15:05 +02:00
parent a5b244c82a
commit 6d8b7da8dd
1 changed files with 15 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/yaml_app.erl
View File

@ -13,7 +13,8 @@
check_and_set_param/2,
show_params/0,
check_params/0,
log_param_errors/1
log_param_errors/1,
is_node_mod/1
]).
%% application(3erl) callbacks.
@ -46,16 +47,7 @@ is_param_valid(_Param, '$MANDATORY') ->
false;
is_param_valid(node_mods, Mods) ->
Fun = fun(Mod) ->
try
Mod:module_info(),
true = erlang:function_exported(Mod, tags, 0),
true = erlang:function_exported(Mod, construct_token, 3),
true = erlang:function_exported(Mod, node_pres, 1),
false
catch
_:_ ->
true
end
not is_node_mod(Mod)
end,
case lists:filter(Fun, Mods) of
[] -> true;
@ -121,6 +113,18 @@ log_param_errors([Param | Rest]) ->
[?APPLICATION, Param]),
log_param_errors(Rest).
is_node_mod(Mod) ->
try
Mod:module_info(),
true = erlang:function_exported(Mod, tags, 0),
true = erlang:function_exported(Mod, construct_token, 3),
true = erlang:function_exported(Mod, node_pres, 1),
true
catch
_:_ ->
false
end.
%% -------------------------------------------------------------------
%% application(3erl) callbacks.
%% -------------------------------------------------------------------