# modules and module hierarchies in the metamodel
module mmodule
-import location
-import mproject
+import mpackage
private import more_collections
# The container class of a Nit object-oriented model.
+#
# A model knows modules, classes and properties and can retrieve them.
+#
+# However, a model is not a program or a library as it can contains modules
+# found by the system (including broken ones) but not used.
redef class Model
# All known modules
- var mmodules: Array[MModule] = new Array[MModule]
-
- # placebo for old module nesting hierarchy.
- # where mainmodule < mainmodule::nestedmodule
- #
- # TODO REMOVE, rely on mgroup instead
- var mmodule_nesting_hierarchy: POSet[MModule] = new POSet[MModule]
+ var mmodules = new Array[MModule]
# Full module importation hierarchy including private or nested links.
- var mmodule_importation_hierarchy: POSet[MModule] = new POSet[MModule]
+ var mmodule_importation_hierarchy = new POSet[MModule]
# Collections of modules grouped by their short names
- private var mmodules_by_name: MultiHashMap[String, MModule] = new MultiHashMap[String, MModule]
+ private var mmodules_by_name = new MultiHashMap[String, MModule]
# Return all module named `name`
# If such a module does not exist, null is returned (instead of an empty array)
# The loaded modules of this group
var mmodules = new Array[MModule]
- # Placebo stuff to find the owner (module with same name)
- # null is returned if there is no owner, or if it is not loaded yet
- fun fuzzy_owner: nullable MModule
+ # The default module of a group (if any, and if loaded)
+ #
+ # The default module of a group is the one that has the same name.
+ # Return `null` if the group has no default module or if the default
+ # module is not loaded.
+ var default_mmodule: nullable MModule = null
+
+ redef fun mdoc_or_fallback
do
- for m in mmodules do if m.name == name then return m
- return null
+ if mdoc != null then return mdoc
+ var default_mmodule = self.default_mmodule
+ if default_mmodule == null then return null
+ return default_mmodule.mdoc_or_fallback
end
end
super MConcern
# The model considered
- redef var model: Model
+ redef var model
- # placebo for old module nesting hierarchy
- # return null if self is not nested (ie. is a top-level module)
+ # The group of module in the package if any
+ var mgroup: nullable MGroup
+
+ # The path of the module source, if any
#
- # TODO REMOVE, rely on mgroup instead
- var direct_owner: nullable MModule
+ # safe alias to `location.file.filepath`
+ fun filepath: nullable String do
+ var res = self.location.file
+ if res == null then return null
+ return res.filename
+ end
- # The group of module in the project if any
- var mgroup: nullable MGroup
+ # The package of the module if any
+ # Safe alias for `mgroup.mpackage`
+ fun mpackage: nullable MPackage
+ do
+ var g = mgroup
+ if g == null then return null else return g.mpackage
+ end
# The short name of the module
- redef var name: String
+ redef var name
- # The origin of the definition
- var location: Location
+ redef var location is writable
# Alias for `name`
redef fun to_s do return self.name
- # placebo for old module nesting hierarchy
- # The view of the module in the `model.mmodule_nesting_hierarchy`
- #
- # TODO REMOVE, rely on mgroup instead
- var in_nesting: POSetElement[MModule]
-
# The view of the module in the `model.mmodule_importation_hierarchy`
- var in_importation: POSetElement[MModule]
+ var in_importation: POSetElement[MModule] is noinit
- # The canonical name of the module
- # Example: `"project::name"`
- fun full_name: String
- do
+ # The canonical name of the module.
+ #
+ # It is usually the `name` prefixed by the package's name.
+ # Example: `"package::name"`
+ #
+ # Default modules use a doubled name to distinguish them from the package name.
+ # E.g.: `"core::core"`
+ #
+ # If the module is package-less, then the short-name is used alone.
+ redef var full_name is lazy do
var mgroup = self.mgroup
- if mgroup == null or mgroup.mproject.name == self.name then
+ if mgroup == null then
return self.name
else
- return "{mgroup.mproject.name}::{self.name}"
+ return "{mgroup.mpackage.name}::{self.name}"
+ end
+ end
+
+ # The namespace used for entities according to their visibility `v`.
+ #
+ # Public entities use only the package as a namespace.
+ # Private entities use the `full_name` (i.e. "package::module")
+ #
+ # This method is used by entities to implement their `full_name`.
+ fun namespace_for(v: MVisibility): String do
+ if v <= private_visibility then return full_name
+ var mgroup = self.mgroup
+ if mgroup == null then
+ return full_name
+ else
+ return mgroup.mpackage.full_name
+ end
+ end
+
+ # Return the name of the global C identifier associated to `self`.
+ # This name is used to prefix files and other C identifiers associated with `self`.
+ redef var c_name is lazy do
+ var g = mgroup
+ var res
+ if g != null and g.mpackage.name != name then
+ res = g.mpackage.name.to_cmangle + "__" + name.to_cmangle
+ else
+ res = name.to_cmangle
+ end
+ return res
+ end
+
+ # C identifier version of `namespace_for`.
+ # See `c_name`
+ #
+ # This method is used by entities to implement their `c_name`.
+ fun c_namespace_for(v: MVisibility): String do
+ if v <= private_visibility then return c_name
+ var mgroup = self.mgroup
+ if mgroup == null then
+ return c_name
+ else
+ return mgroup.mpackage.c_name
end
end
# Create a new empty module and register it to a model
- init(model: Model, mgroup: nullable MGroup, name: String, location: Location)
+ init
do
- self.model = model
- self.name = name
- self.location = location
model.mmodules_by_name.add_one(name, self)
model.mmodules.add(self)
- self.in_nesting = model.mmodule_nesting_hierarchy.add_node(self)
- self.mgroup = mgroup
+ var mgroup = self.mgroup
if mgroup != null then
mgroup.mmodules.add(self)
- # placebo for old module nesting hierarchy
- var direct_owner = mgroup.fuzzy_owner
- if direct_owner == self then
- # The module is the new owner of its own group, thus adopt the other modules
- for m in mgroup.mmodules do
- if m == self then continue
- m.direct_owner = self
- model.mmodule_nesting_hierarchy.add_edge(self, m)
- end
- # The potential owner is the the fuzzy_owner of the parent group
- if mgroup.parent != null then direct_owner = mgroup.parent.fuzzy_owner
- end
- if direct_owner != self and direct_owner != null then
- self.direct_owner = direct_owner
- model.mmodule_nesting_hierarchy.add_edge(direct_owner, self)
+ if mgroup.name == name then
+ assert mgroup.default_mmodule == null
+ mgroup.default_mmodule = self
end
end
self.in_importation = model.mmodule_importation_hierarchy.add_node(self)
end
# Register the imported modules (ie "import some_module")
- # This function can only invoked once by mmodule.
# The visibility must be set with `set_visibility_for`.
fun set_imported_mmodules(imported_mmodules: Array[MModule])
do
- assert unique_invocation: self.in_importation.direct_greaters.is_empty
for m in imported_mmodules do
self.model.mmodule_importation_hierarchy.add_edge(self, m)
end
end
- private var intrude_mmodules: HashSet[MModule] = new HashSet[MModule]
- private var public_mmodules: HashSet[MModule] = new HashSet[MModule]
- private var private_mmodules: HashSet[MModule] = new HashSet[MModule]
+ private var intrude_mmodules = new HashSet[MModule]
+ private var public_mmodules = new HashSet[MModule]
+ private var private_mmodules = new HashSet[MModule]
# Return the visibility level of an imported module `m`
fun visibility_for(m: MModule): MVisibility
end
end
- # placebo for old module nesting hierarchy
- fun public_owner: nullable MModule
- do
- var mgroup = self.mgroup
- if mgroup == null then return null
- mgroup = mgroup.mproject.root
- if mgroup.mmodules.is_empty then return null
- var res = mgroup.fuzzy_owner
- if res == self then return null
- return res
- end
-
# Return true if a class or a property introduced in `intro_mmodule` with a visibility of `visibility` is visible in self.
fun is_visible(intro_mmodule: MModule, visibility: MVisibility): Bool
do
end
end
- # Is the mmodule created for internal purpose?
- # Fictive module are instantied internally but they should not be
- # exposed to the final user
- var is_fictive: Bool writable = false
+ # Is `self` a unit test module used by `nitunit`?
+ var is_test_suite: Bool = false is writable
+
+ # Is `self` a module generated by a tool?
+ #
+ # This flag has no effect on the semantic.
+ # It is only intended on software engineering software to discriminate computer-generated modules from human-written ones.
+ var is_generated: Bool = false is writable
+
+ # Get the non-`is_fictive` module on which `self` is based on.
+ #
+ # On non-fictive module, this returns `self`.
+ # On fictive modules, this is used to refer the module which `self` is based on.
+ #
+ # This attribute should be set when a fictive module is created. See `is_fictive`.
+ var first_real_mmodule: MModule = self is writable
redef fun parent_concern do return mgroup
end