Name: module_info/2
Name: module_info/3
Name: get_module_info/3
Name: number_of_groups/1
Name: number_of_modules/1
Name: number_of_modules/2
Name: get_module_group/1
get_module_group(X) :- findall(Group,get_module_info(_Module,group,Group),List), remove_dups(List,NList), member(X,NList).
Calls:
Name: member/2
Name: remove_dups/2
Name: findall/3
Meta: module_info(:,*)
module_info(Module:Attribute,Value) :- assertz(get_module_info(Module,Attribute,Value)).
Name: assertz/1
module_info(Module,Attribute,Value) :- assertz(get_module_info(Module,Attribute,Value)).
number_of_groups(X) :- findall(Group,get_module_info(_Module,group,Group),List), remove_dups(List,NList), length(NList,X).
Name: length/2
Called:
Name: emma_header/1
number_of_modules(X) :- findall(Module,get_module_info(Module,_A,_B),List), remove_dups(List,NList), length(NList,X).
Name: emma_data/1
number_of_modules(Group,X) :- findall(Module,get_module_info(Module,group,Group),List), remove_dups(List,NList), length(NList,X).