loader: teach it to search in src subdirectories
[nit.git] / src / loader.nit
1 # This file is part of NIT ( http://www.nitlanguage.org ).
2 #
3 # Copyright 2012 Jean Privat <jean@pryen.org>
4 #
5 # Licensed under the Apache License, Version 2.0 (the "License");
6 # you may not use this file except in compliance with the License.
7 # You may obtain a copy of the License at
8 #
9 # http://www.apache.org/licenses/LICENSE-2.0
10 #
11 # Unless required by applicable law or agreed to in writing, software
12 # distributed under the License is distributed on an "AS IS" BASIS,
13 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
14 # See the License for the specific language governing permissions and
15 # limitations under the License.
16
17 # Loading of Nit source files
18 module loader
19
20 import modelbuilder_base
21
22 redef class ToolContext
23 # Option --path
24 var opt_path = new OptionArray("Set include path for loaders (may be used more than once)", "-I", "--path")
25
26 # Option --only-metamodel
27 var opt_only_metamodel = new OptionBool("Stop after meta-model processing", "--only-metamodel")
28
29 # Option --only-parse
30 var opt_only_parse = new OptionBool("Only proceed to parse step of loaders", "--only-parse")
31
32 redef init
33 do
34 super
35 option_context.add_option(opt_path, opt_only_parse, opt_only_metamodel)
36 end
37 end
38
39 redef class ModelBuilder
40 redef init
41 do
42 super
43
44 # Setup the paths value
45 paths.append(toolcontext.opt_path.value)
46
47 var path_env = "NIT_PATH".environ
48 if not path_env.is_empty then
49 paths.append(path_env.split_with(':'))
50 end
51
52 var nit_dir = toolcontext.nit_dir
53 var libname = nit_dir/"lib"
54 if libname.file_exists then paths.add(libname)
55 libname = nit_dir/"contrib"
56 if libname.file_exists then paths.add(libname)
57 end
58
59 # Load a bunch of modules.
60 # `modules` can contains filenames or module names.
61 # Imported modules are automatically loaded and modelized.
62 # The result is the corresponding model elements.
63 # Errors and warnings are printed with the toolcontext.
64 #
65 # Note: class and property model elements are not analysed.
66 fun parse(modules: Sequence[String]): Array[MModule]
67 do
68 var time0 = get_time
69 # Parse and recursively load
70 self.toolcontext.info("*** PARSE ***", 1)
71 var mmodules = new ArraySet[MModule]
72 for a in modules do
73 var nmodule = self.load_module(a)
74 if nmodule == null then continue # Skip error
75 # Load imported module
76 build_module_importation(nmodule)
77 var mmodule = nmodule.mmodule
78 if mmodule == null then continue # skip error
79 mmodules.add mmodule
80 end
81 var time1 = get_time
82 self.toolcontext.info("*** END PARSE: {time1-time0} ***", 2)
83
84 self.toolcontext.check_errors
85
86 if toolcontext.opt_only_parse.value then
87 self.toolcontext.info("*** ONLY PARSE...", 1)
88 exit(0)
89 end
90
91 return mmodules.to_a
92 end
93
94 # Load recursively all modules of the group `mgroup`.
95 # See `parse` for details.
96 fun parse_group(mgroup: MGroup): Array[MModule]
97 do
98 var res = new Array[MModule]
99 visit_group(mgroup)
100 for mg in mgroup.in_nesting.smallers do
101 for mp in mg.module_paths do
102 var nmodule = self.load_module(mp.filepath)
103 if nmodule == null then continue # Skip error
104 # Load imported module
105 build_module_importation(nmodule)
106 var mmodule = nmodule.mmodule
107 if mmodule == null then continue # Skip error
108 res.add mmodule
109 end
110 end
111 return res
112 end
113
114 # Load a bunch of modules and groups.
115 #
116 # Each name can be:
117 #
118 # * a path to a module, a group or a directory of projects.
119 # * a short name of a module or a group that are looked in the `paths` (-I)
120 #
121 # Then, for each entry, if it is:
122 #
123 # * a module, then is it parser and returned.
124 # * a group then recursively all its modules are parsed.
125 # * a directory of projects then all the modules of all projects are parsed.
126 # * else an error is displayed.
127 #
128 # See `parse` for details.
129 fun parse_full(names: Sequence[String]): Array[MModule]
130 do
131 var time0 = get_time
132 # Parse and recursively load
133 self.toolcontext.info("*** PARSE ***", 1)
134 var mmodules = new ArraySet[MModule]
135 for a in names do
136 # Case of a group
137 var mgroup = self.get_mgroup(a)
138 if mgroup != null then
139 mmodules.add_all parse_group(mgroup)
140 continue
141 end
142
143 # Case of a directory that is not a group
144 var stat = a.to_path.stat
145 if stat != null and stat.is_dir then
146 self.toolcontext.info("look in directory {a}", 2)
147 var fs = a.files
148 # Try each entry as a group or a module
149 for f in fs do
150 var af = a/f
151 mgroup = get_mgroup(af)
152 if mgroup != null then
153 mmodules.add_all parse_group(mgroup)
154 continue
155 end
156 var mp = identify_file(af)
157 if mp != null then
158 var nmodule = self.load_module(af)
159 if nmodule == null then continue # Skip error
160 build_module_importation(nmodule)
161 var mmodule = nmodule.mmodule
162 if mmodule == null then continue # Skip error
163 mmodules.add mmodule
164 else
165 self.toolcontext.info("ignore file {af}", 2)
166 end
167 end
168 continue
169 end
170
171 var nmodule = self.load_module(a)
172 if nmodule == null then continue # Skip error
173 # Load imported module
174 build_module_importation(nmodule)
175 var mmodule = nmodule.mmodule
176 if mmodule == null then continue # Skip error
177 mmodules.add mmodule
178 end
179 var time1 = get_time
180 self.toolcontext.info("*** END PARSE: {time1-time0} ***", 2)
181
182 self.toolcontext.check_errors
183
184 if toolcontext.opt_only_parse.value then
185 self.toolcontext.info("*** ONLY PARSE...", 1)
186 exit(0)
187 end
188
189 return mmodules.to_a
190 end
191
192 # The list of directories to search for top level modules
193 # The list is initially set with:
194 #
195 # * the toolcontext --path option
196 # * the NIT_PATH environment variable
197 # * `toolcontext.nit_dir`
198 # Path can be added (or removed) by the client
199 var paths = new Array[String]
200
201 # Like (and used by) `get_mmodule_by_name` but just return the ModulePath
202 fun search_mmodule_by_name(anode: nullable ANode, mgroup: nullable MGroup, name: String): nullable ModulePath
203 do
204 # First, look in groups
205 var c = mgroup
206 while c != null do
207 var dirname = c.filepath
208 if dirname == null then break # virtual group
209 if dirname.has_suffix(".nit") then break # singleton project
210
211 # Second, try the directory to find a file
212 var try_file = dirname + "/" + name + ".nit"
213 if try_file.file_exists then
214 var res = self.identify_file(try_file.simplify_path)
215 assert res != null
216 return res
217 end
218
219 # Third, try if the requested module is itself a group
220 try_file = dirname + "/" + name + "/" + name + ".nit"
221 if try_file.file_exists then
222 var res = self.identify_file(try_file.simplify_path)
223 assert res != null
224 return res
225 end
226
227 # Fourth, try if the requested module is itself a group with a src
228 try_file = dirname + "/" + name + "/src/" + name + ".nit"
229 if try_file.file_exists then
230 var res = self.identify_file(try_file.simplify_path)
231 assert res != null
232 return res
233 end
234
235 c = c.parent
236 end
237
238 # Look at some known directories
239 var lookpaths = self.paths
240
241 # Look in the directory of the group project also (even if not explicitly in the path)
242 if mgroup != null then
243 # path of the root group
244 var dirname = mgroup.mproject.root.filepath
245 if dirname != null then
246 dirname = dirname.join_path("..").simplify_path
247 if not lookpaths.has(dirname) and dirname.file_exists then
248 lookpaths = lookpaths.to_a
249 lookpaths.add(dirname)
250 end
251 end
252 end
253
254 var candidate = search_module_in_paths(anode.hot_location, name, lookpaths)
255
256 if candidate == null then
257 if mgroup != null then
258 error(anode, "Error: cannot find module `{name}` from `{mgroup.name}`. Tried: {lookpaths.join(", ")}.")
259 else
260 error(anode, "Error: cannot find module `{name}`. Tried: {lookpaths.join(", ")}.")
261 end
262 return null
263 end
264 return candidate
265 end
266
267 # Get a module by its short name; if required, the module is loaded, parsed and its hierarchies computed.
268 # If `mgroup` is set, then the module search starts from it up to the top level (see `paths`);
269 # if `mgroup` is null then the module is searched in the top level only.
270 # If no module exists or there is a name conflict, then an error on `anode` is displayed and null is returned.
271 fun get_mmodule_by_name(anode: nullable ANode, mgroup: nullable MGroup, name: String): nullable MModule
272 do
273 var path = search_mmodule_by_name(anode, mgroup, name)
274 if path == null then return null # Forward error
275 var res = self.load_module(path.filepath)
276 if res == null then return null # Forward error
277 # Load imported module
278 build_module_importation(res)
279 return res.mmodule
280 end
281
282 # Search a module `name` from path `lookpaths`.
283 # If found, the path of the file is returned
284 private fun search_module_in_paths(location: nullable Location, name: String, lookpaths: Collection[String]): nullable ModulePath
285 do
286 var candidate: nullable String = null
287 for dirname in lookpaths do
288 var try_file = (dirname + "/" + name + ".nit").simplify_path
289 if try_file.file_exists then
290 if candidate == null then
291 candidate = try_file
292 else if candidate != try_file then
293 # try to disambiguate conflicting modules
294 var abs_candidate = module_absolute_path(candidate)
295 var abs_try_file = module_absolute_path(try_file)
296 if abs_candidate != abs_try_file then
297 toolcontext.error(location, "Error: conflicting module file for `{name}`: `{candidate}` `{try_file}`")
298 end
299 end
300 end
301 try_file = (dirname + "/" + name + "/" + name + ".nit").simplify_path
302 if try_file.file_exists then
303 if candidate == null then
304 candidate = try_file
305 else if candidate != try_file then
306 # try to disambiguate conflicting modules
307 var abs_candidate = module_absolute_path(candidate)
308 var abs_try_file = module_absolute_path(try_file)
309 if abs_candidate != abs_try_file then
310 toolcontext.error(location, "Error: conflicting module file for `{name}`: `{candidate}` `{try_file}`")
311 end
312 end
313 end
314 try_file = (dirname + "/" + name + "/src/" + name + ".nit").simplify_path
315 if try_file.file_exists then
316 if candidate == null then
317 candidate = try_file
318 else if candidate != try_file then
319 # try to disambiguate conflicting modules
320 var abs_candidate = module_absolute_path(candidate)
321 var abs_try_file = module_absolute_path(try_file)
322 if abs_candidate != abs_try_file then
323 toolcontext.error(location, "Error: conflicting module file for `{name}`: `{candidate}` `{try_file}`")
324 end
325 end
326 end
327 end
328 if candidate == null then return null
329 return identify_file(candidate)
330 end
331
332 # Cache for `identify_file` by realpath
333 private var identified_files_by_path = new HashMap[String, nullable ModulePath]
334
335 # All the currently identified modules.
336 # See `identify_file`.
337 var identified_files = new Array[ModulePath]
338
339 # Identify a source file
340 # Load the associated project and groups if required
341 #
342 # Silently return `null` if `path` is not a valid module path.
343 fun identify_file(path: String): nullable ModulePath
344 do
345 # special case for not a nit file
346 if path.file_extension != "nit" then
347 # search dirless files in known -I paths
348 if path.dirname == "" then
349 var res = search_module_in_paths(null, path, self.paths)
350 if res != null then return res
351 end
352
353 # Found nothing? maybe it is a group...
354 var candidate = null
355 if path.file_exists then
356 var mgroup = get_mgroup(path)
357 if mgroup != null then
358 var owner_path = mgroup.filepath.join_path(mgroup.name + ".nit")
359 if owner_path.file_exists then candidate = owner_path
360 end
361 end
362
363 if candidate == null then
364 return null
365 end
366 path = candidate
367 end
368
369 # Fast track, the path is already known
370 var pn = path.basename(".nit")
371 var rp = module_absolute_path(path)
372 if identified_files_by_path.has_key(rp) then return identified_files_by_path[rp]
373
374 # Search for a group
375 var mgrouppath = path.join_path("..").simplify_path
376 var mgroup = get_mgroup(mgrouppath)
377
378 if mgroup == null then
379 # singleton project
380 var mproject = new MProject(pn, model)
381 mgroup = new MGroup(pn, mproject, null) # same name for the root group
382 mgroup.filepath = path
383 mproject.root = mgroup
384 toolcontext.info("found project `{pn}` at {path}", 2)
385 end
386
387 var res = new ModulePath(pn, path, mgroup)
388 mgroup.module_paths.add(res)
389
390 identified_files_by_path[rp] = res
391 identified_files.add(res)
392 return res
393 end
394
395 # Groups by path
396 private var mgroups = new HashMap[String, nullable MGroup]
397
398 # Return the mgroup associated to a directory path.
399 # If the directory is not a group null is returned.
400 #
401 # Note: `paths` is also used to look for mgroups
402 fun get_mgroup(dirpath: String): nullable MGroup
403 do
404 if not dirpath.file_exists then do
405 for p in paths do
406 var try = p / dirpath
407 if try.file_exists then
408 dirpath = try
409 break label
410 end
411 end
412 return null
413 end label
414
415 var rdp = module_absolute_path(dirpath)
416 if mgroups.has_key(rdp) then
417 return mgroups[rdp]
418 end
419
420 # Hack, a group is determined by one of the following:
421 # * the presence of a honomymous nit file
422 # * the fact that the directory is named `src`
423 # * the fact that there is a sub-directory named `src`
424 var pn = rdp.basename(".nit")
425 var mp = dirpath.join_path(pn + ".nit").simplify_path
426
427 # dirpath2 is the root directory
428 # dirpath is the src subdirectory directory, if any, else it is the same that dirpath2
429 var dirpath2 = dirpath
430 if not mp.file_exists then
431 if pn == "src" then
432 # With a src directory, the group name is the name of the parent directory
433 dirpath2 = rdp.dirname
434 pn = dirpath2.basename("")
435 else
436 # Check a `src` subdirectory
437 dirpath = dirpath2 / "src"
438 if not dirpath.file_exists then
439 # All rules failed, so return null
440 return null
441 end
442 end
443 end
444
445 # check parent directory
446 var parentpath = dirpath2.join_path("..").simplify_path
447 var parent = get_mgroup(parentpath)
448
449 var mgroup
450 if parent == null then
451 # no parent, thus new project
452 var mproject = new MProject(pn, model)
453 mgroup = new MGroup(pn, mproject, null) # same name for the root group
454 mproject.root = mgroup
455 toolcontext.info("found project `{mproject}` at {dirpath}", 2)
456 else
457 mgroup = new MGroup(pn, parent.mproject, parent)
458 toolcontext.info("found sub group `{mgroup.full_name}` at {dirpath}", 2)
459 end
460
461 # search documentation
462 # in src first so the documentation of the project code can be distinct for the documentation of the project usage
463 var readme = dirpath.join_path("README.md")
464 if not readme.file_exists then readme = dirpath.join_path("README")
465 if not readme.file_exists then readme = dirpath2.join_path("README.md")
466 if not readme.file_exists then readme = dirpath2.join_path("README")
467 if readme.file_exists then
468 var mdoc = load_markdown(readme)
469 mgroup.mdoc = mdoc
470 mdoc.original_mentity = mgroup
471 end
472
473 mgroup.filepath = dirpath
474 mgroups[module_absolute_path(dirpath)] = mgroup
475 mgroups[module_absolute_path(dirpath2)] = mgroup
476 return mgroup
477 end
478
479 # Load a markdown file as a documentation object
480 fun load_markdown(filepath: String): MDoc
481 do
482 var mdoc = new MDoc(new Location(new SourceFile.from_string(filepath, ""),0,0,0,0))
483 var s = new FileReader.open(filepath)
484 while not s.eof do
485 mdoc.content.add(s.read_line)
486 end
487 return mdoc
488 end
489
490 # Force the identification of all ModulePath of the group and sub-groups.
491 fun visit_group(mgroup: MGroup) do
492 var p = mgroup.filepath
493 for f in p.files do
494 var fp = p/f
495 var g = get_mgroup(fp)
496 if g != null then visit_group(g)
497 identify_file(fp)
498 end
499 end
500
501 # Transform relative paths (starting with '../') into absolute paths
502 private fun module_absolute_path(path: String): String do
503 return getcwd.join_path(path).simplify_path
504 end
505
506 # Try to load a module AST using a path.
507 # Display an error if there is a problem (IO / lexer / parser) and return null
508 fun load_module_ast(filename: String): nullable AModule
509 do
510 if filename.file_extension != "nit" then
511 self.toolcontext.error(null, "Error: file `{filename}` is not a valid nit module.")
512 return null
513 end
514 if not filename.file_exists then
515 self.toolcontext.error(null, "Error: file `{filename}` not found.")
516 return null
517 end
518
519 self.toolcontext.info("load module {filename}", 2)
520
521 # Load the file
522 var file = new FileReader.open(filename)
523 var lexer = new Lexer(new SourceFile(filename, file))
524 var parser = new Parser(lexer)
525 var tree = parser.parse
526 file.close
527
528 # Handle lexer and parser error
529 var nmodule = tree.n_base
530 if nmodule == null then
531 var neof = tree.n_eof
532 assert neof isa AError
533 error(neof, neof.message)
534 return null
535 end
536
537 return nmodule
538 end
539
540 # Remove Nit source files from a list of arguments.
541 #
542 # Items of `args` that can be loaded as a nit file will be removed from `args` and returned.
543 fun filter_nit_source(args: Array[String]): Array[String]
544 do
545 var keep = new Array[String]
546 var res = new Array[String]
547 for a in args do
548 var l = identify_file(a)
549 if l == null then
550 keep.add a
551 else
552 res.add a
553 end
554 end
555 args.clear
556 args.add_all(keep)
557 return res
558 end
559
560 # Try to load a module using a path.
561 # Display an error if there is a problem (IO / lexer / parser) and return null.
562 # Note: usually, you do not need this method, use `get_mmodule_by_name` instead.
563 #
564 # The MModule is created however, the importation is not performed,
565 # therefore you should call `build_module_importation`.
566 fun load_module(filename: String): nullable AModule
567 do
568 # Look for the module
569 var file = identify_file(filename)
570 if file == null then
571 if filename.file_exists then
572 toolcontext.error(null, "Error: `{filename}` is not a Nit source file.")
573 else
574 toolcontext.error(null, "Error: cannot find module `{filename}`.")
575 end
576 return null
577 end
578
579 # Already known and loaded? then return it
580 var mmodule = file.mmodule
581 if mmodule != null then
582 return mmodule2nmodule[mmodule]
583 end
584
585 # Load it manually
586 var nmodule = load_module_ast(file.filepath)
587 if nmodule == null then return null # forward error
588
589 # build the mmodule and load imported modules
590 mmodule = build_a_mmodule(file.mgroup, file.name, nmodule)
591
592 if mmodule == null then return null # forward error
593
594 # Update the file information
595 file.mmodule = mmodule
596
597 return nmodule
598 end
599
600 # Injection of a new module without source.
601 # Used by the interpreter.
602 fun load_rt_module(parent: nullable MModule, nmodule: AModule, mod_name: String): nullable AModule
603 do
604 # Create the module
605
606 var mgroup = null
607 if parent != null then mgroup = parent.mgroup
608 var mmodule = new MModule(model, mgroup, mod_name, nmodule.location)
609 nmodule.mmodule = mmodule
610 nmodules.add(nmodule)
611 self.mmodule2nmodule[mmodule] = nmodule
612
613 if parent!= null then
614 var imported_modules = new Array[MModule]
615 imported_modules.add(parent)
616 mmodule.set_visibility_for(parent, intrude_visibility)
617 mmodule.set_imported_mmodules(imported_modules)
618 else
619 build_module_importation(nmodule)
620 end
621
622 return nmodule
623 end
624
625 # Visit the AST and create the `MModule` object
626 private fun build_a_mmodule(mgroup: nullable MGroup, mod_name: String, nmodule: AModule): nullable MModule
627 do
628 # Check the module name
629 var decl = nmodule.n_moduledecl
630 if decl != null then
631 var decl_name = decl.n_name.n_id.text
632 if decl_name != mod_name then
633 error(decl.n_name, "Error: module name mismatch; declared {decl_name} file named {mod_name}.")
634 end
635 end
636
637 # Check for conflicting module names in the project
638 if mgroup != null then
639 var others = model.get_mmodules_by_name(mod_name)
640 if others != null then for other in others do
641 if other.mgroup!= null and other.mgroup.mproject == mgroup.mproject then
642 var node: ANode
643 if decl == null then node = nmodule else node = decl.n_name
644 error(node, "Error: a module named `{other.full_name}` already exists at {other.location}.")
645 break
646 end
647 end
648 end
649
650 # Create the module
651 var mmodule = new MModule(model, mgroup, mod_name, nmodule.location)
652 nmodule.mmodule = mmodule
653 nmodules.add(nmodule)
654 self.mmodule2nmodule[mmodule] = nmodule
655
656 var source = nmodule.location.file
657 if source != null then
658 assert source.mmodule == null
659 source.mmodule = mmodule
660 end
661
662 if decl != null then
663 # Extract documentation
664 var ndoc = decl.n_doc
665 if ndoc != null then
666 var mdoc = ndoc.to_mdoc
667 mmodule.mdoc = mdoc
668 mdoc.original_mentity = mmodule
669 else
670 advice(decl, "missing-doc", "Documentation warning: Undocumented module `{mmodule}`")
671 end
672 # Is the module a test suite?
673 mmodule.is_test_suite = not decl.get_annotations("test_suite").is_empty
674 end
675
676 return mmodule
677 end
678
679 # Analyze the module importation and fill the module_importation_hierarchy
680 #
681 # Unless you used `load_module`, the importation is already done and this method does a no-op.
682 fun build_module_importation(nmodule: AModule)
683 do
684 if nmodule.is_importation_done then return
685 nmodule.is_importation_done = true
686 var mmodule = nmodule.mmodule.as(not null)
687 var stdimport = true
688 var imported_modules = new Array[MModule]
689 for aimport in nmodule.n_imports do
690 stdimport = false
691 if not aimport isa AStdImport then
692 continue
693 end
694 var mgroup = mmodule.mgroup
695 if aimport.n_name.n_quad != null then mgroup = null # Start from top level
696 for grp in aimport.n_name.n_path do
697 var path = search_mmodule_by_name(grp, mgroup, grp.text)
698 if path == null then
699 nmodule.mmodule = null # invalidate the module
700 return # Skip error
701 end
702 mgroup = path.mgroup
703 end
704 var mod_name = aimport.n_name.n_id.text
705 var sup = self.get_mmodule_by_name(aimport.n_name, mgroup, mod_name)
706 if sup == null then
707 nmodule.mmodule = null # invalidate the module
708 continue # Skip error
709 end
710 aimport.mmodule = sup
711 imported_modules.add(sup)
712 var mvisibility = aimport.n_visibility.mvisibility
713 if mvisibility == protected_visibility then
714 error(aimport.n_visibility, "Error: only properties can be protected.")
715 nmodule.mmodule = null # invalidate the module
716 return
717 end
718 if sup == mmodule then
719 error(aimport.n_name, "Error: dependency loop in module {mmodule}.")
720 nmodule.mmodule = null # invalidate the module
721 end
722 if sup.in_importation < mmodule then
723 error(aimport.n_name, "Error: dependency loop between modules {mmodule} and {sup}.")
724 nmodule.mmodule = null # invalidate the module
725 return
726 end
727 mmodule.set_visibility_for(sup, mvisibility)
728 end
729 if stdimport then
730 var mod_name = "standard"
731 var sup = self.get_mmodule_by_name(nmodule, null, mod_name)
732 if sup == null then
733 nmodule.mmodule = null # invalidate the module
734 else # Skip error
735 imported_modules.add(sup)
736 mmodule.set_visibility_for(sup, public_visibility)
737 end
738 end
739 self.toolcontext.info("{mmodule} imports {imported_modules.join(", ")}", 3)
740 mmodule.set_imported_mmodules(imported_modules)
741
742 # Force standard to be public if imported
743 for sup in mmodule.in_importation.greaters do
744 if sup.name == "standard" then
745 mmodule.set_visibility_for(sup, public_visibility)
746 end
747 end
748
749 # TODO: Correctly check for useless importation
750 # It is even doable?
751 var directs = mmodule.in_importation.direct_greaters
752 for nim in nmodule.n_imports do
753 if not nim isa AStdImport then continue
754 var im = nim.mmodule
755 if im == null then continue
756 if directs.has(im) then continue
757 # This generates so much noise that it is simpler to just comment it
758 #warning(nim, "Warning: possible useless importation of {im}")
759 end
760 end
761
762 # All the loaded modules
763 var nmodules = new Array[AModule]
764
765 # Register the nmodule associated to each mmodule
766 #
767 # Public clients need to use `mmodule2node` to access stuff.
768 private var mmodule2nmodule = new HashMap[MModule, AModule]
769
770 # Retrieve the associated AST node of a mmodule.
771 # This method is used to associate model entity with syntactic entities.
772 #
773 # If the module is not associated with a node, returns null.
774 fun mmodule2node(mmodule: MModule): nullable AModule
775 do
776 return mmodule2nmodule.get_or_null(mmodule)
777 end
778 end
779
780 # File-system location of a module (file) that is identified but not always loaded.
781 class ModulePath
782 # The name of the module
783 # (it's the basename of the filepath)
784 var name: String
785
786 # The human path of the module
787 var filepath: String
788
789 # The group (and the project) of the possible module
790 var mgroup: MGroup
791
792 # The loaded module (if any)
793 var mmodule: nullable MModule = null
794
795 redef fun to_s do return filepath
796 end
797
798 redef class MGroup
799 # Modules paths associated with the group
800 var module_paths = new Array[ModulePath]
801
802 # Is the group interesting for a final user?
803 #
804 # Groups are mandatory in the model but for simple projects they are not
805 # always interesting.
806 #
807 # A interesting group has, at least, one of the following true:
808 #
809 # * it has 2 modules or more
810 # * it has a subgroup
811 # * it has a documentation
812 fun is_interesting: Bool
813 do
814 return module_paths.length > 1 or mmodules.length > 1 or not in_nesting.direct_smallers.is_empty or mdoc != null
815 end
816
817 end
818
819 redef class SourceFile
820 # Associated mmodule, once created
821 var mmodule: nullable MModule = null
822 end
823
824 redef class AStdImport
825 # The imported module once determined
826 var mmodule: nullable MModule = null
827 end
828
829 redef class AModule
830 # The associated MModule once build by a `ModelBuilder`
831 var mmodule: nullable MModule
832 # Flag that indicate if the importation is already completed
833 var is_importation_done: Bool = false
834 end