model_utils: All modules contain in a class

Added a function to get all modules concerned in a class

Signed-off-by: Stefan Lage <lagestfan@gmail.com>

diff --git a/src/model_utils.nit b/src/model_utils.nit
index df90150..7963eda 100644 (file)
--- a/src/model_utils.nit
+++ b/src/model_utils.nit
@@ -180,6 +180,12 @@ redef class MClass
                return res
        end
 
+       fun mmodules: Set[MModule] do
+               var mdls = new HashSet[MModule]
+               for mclassdef in mclassdefs do mdls.add(mclassdef.mmodule)
+               return mdls
+       end
+
        fun is_class: Bool do
                return self.kind == concrete_kind or self.kind == abstract_kind
        end