X-Git-Url: http://nitlanguage.org diff --git a/src/mmloader.nit b/src/mmloader.nit index 5133747..c59b30c 100644 --- a/src/mmloader.nit +++ b/src/mmloader.nit @@ -21,178 +21,53 @@ package mmloader import metamodel import opts -import location +import toolcontext -class Message - super Comparable - redef type OTHER: Message - - readable var _location: nullable Location - readable var _text: String - - redef fun <(other: OTHER): Bool do - if location == null then return true - if other.location == null then return false - - return location.as(not null) < other.location.as(not null) - end - - redef fun to_s: String do - var l = location - if l == null then - return text - else - return "{l}: {text}" - end - end -end - -# Global context for tools -class ToolContext +redef class ToolContext super MMContext - # Number of errors - readable var _error_count: Int = 0 - - # Number of warnings - readable var _warning_count: Int = 0 - - # Directory where to generate log files - readable var _log_directory: String = "logs" - - # Messages - var _messages: Array[Message] = new Array[Message] - var _message_sorter: ComparableSorter[Message] = new ComparableSorter[Message] - - fun check_errors - do - if _messages.length > 0 then - _message_sorter.sort(_messages) - - for m in _messages do - stderr.write("{m}\n") - end - - _messages.clear - end - - if error_count > 0 then exit(1) - end - - # Display an error - fun error(l: nullable Location, s: String) - do - _messages.add(new Message(l,s)) - _error_count = _error_count + 1 - if opt_stop_on_first_error.value then check_errors - end - - # Add an error, show errors and quit - fun fatal_error(l: nullable Location, s: String) - do - error(l,s) - check_errors - end - - # Display a warning - fun warning(l: nullable Location, s: String) - do - if _opt_warn.value == 0 then return - _messages.add(new Message(l,s)) - if _opt_warn.value == 1 then - _warning_count = _warning_count + 1 - else - _error_count = _error_count + 1 - end - if opt_stop_on_first_error.value then check_errors - end - - # Display an info - fun info(s: String, level: Int) - do - if level <= verbose_level then - print "{s}" - end - end # Paths where to locate modules files readable var _paths: Array[String] = new Array[String] # List of module loaders var _loaders: Array[ModuleLoader] = new Array[ModuleLoader] - - # Global OptionContext - readable var _option_context: OptionContext = new OptionContext - - # Option --warn - readable var _opt_warn: OptionCount = new OptionCount("Show warnings", "-W", "--warn") # Option --path readable var _opt_path: OptionArray = new OptionArray("Set include path for loaders (may be used more than once)", "-I", "--path") - # Option --log - readable var _opt_log: OptionBool = new OptionBool("Generate various log files", "--log") - - # Option --log-dir - readable var _opt_log_dir: OptionString = new OptionString("Directory where to generate log files", "--log-dir") - # Option --only-metamodel readable var _opt_only_metamodel: OptionBool = new OptionBool("Stop after meta-model processing", "--only-metamodel") # Option --only-parse readable var _opt_only_parse: OptionBool = new OptionBool("Only proceed to parse step of loaders", "--only-parse") - # Option --help - readable var _opt_help: OptionBool = new OptionBool("Show Help (This screen)", "-h", "-?", "--help") - - # Option --version - readable var _opt_version: OptionBool = new OptionBool("Show version and exit", "--version") - - # Option --verbose - readable var _opt_verbose: OptionCount = new OptionCount("Verbose", "-v", "--verbose") - - # Option --stop-on-first-error - readable var _opt_stop_on_first_error: OptionBool = new OptionBool("Stop on first error", "--stop-on-first-error") - - # Verbose level - readable var _verbose_level: Int = 0 - - init + redef init do super - option_context.add_option(opt_warn, opt_stop_on_first_error, opt_path, opt_log, opt_log_dir, opt_only_parse, opt_only_metamodel, opt_help, opt_version, opt_verbose) + option_context.add_option(opt_path, opt_only_parse, opt_only_metamodel) end # Parse and process the options given on the command line - fun process_options + redef fun process_options do - # init options - option_context.parse(args) - - # Set verbose level - _verbose_level = opt_verbose.value + super # Setup the paths value paths.append(opt_path.value) - var path_env = once ("NIT_PATH".to_symbol).environ - if not path_env.is_empty then + var path_env = "NIT_PATH".environ + if not path_env.is_empty then paths.append(path_env.split_with(':')) end - path_env = once ("NIT_DIR".to_symbol).environ - if not path_env.is_empty then + path_env = "NIT_DIR".environ + if not path_env.is_empty then var libname = "{path_env}/lib" if libname.file_exists then paths.add(libname) end var libname = "{sys.program_name.dirname}/../lib" - if libname.file_exists then paths.add(libname) - - if opt_log_dir.value != null then _log_directory = opt_log_dir.value.as(not null) - if _opt_log.value then - # Make sure the output directory exists - log_directory.mkdir - end + if libname.file_exists then paths.add(libname.simplify_path) end # Load and process a module in a directory (or a parent directory). @@ -201,7 +76,7 @@ class ToolContext private fun try_to_load(module_name: Symbol, dir: MMDirectory): nullable MMModule do # Look in the module directory - for m in dir.modules do + for m in dir.modules.values do if m.name == module_name then return m end @@ -311,7 +186,7 @@ class ToolContext end # A load handler know how to load a specific module type -class ModuleLoader +interface ModuleLoader # Type of module loaded by the loader type MODULE: MMModule @@ -321,7 +196,7 @@ class ModuleLoader # Try to load a new module directory fun try_to_load_dir(dirname: Symbol, parent_dir: MMDirectory): nullable MMDirectory do - var fname = "{parent_dir.path}/{dirname}/" + var fname = "{parent_dir.path}/{dirname}" if not fname.file_exists then return null var dir = new MMDirectory(parent_dir.full_name_for(dirname), fname, parent_dir) @@ -341,7 +216,7 @@ class ModuleLoader # filename is the result of can_handle fun load_and_process_module(context: ToolContext, module_name: Symbol, dir: MMDirectory): MODULE do - var filename = "{dir.path}/{module_name}.{file_type}" + var filename = "{dir.path}/{module_name}.{file_type}".simplify_path var m = load_module(context, module_name, dir, filename) if not context.opt_only_parse.value then process_metamodel(context, m) return m @@ -371,18 +246,3 @@ class ModuleLoader # Process a parsed module protected fun process_metamodel(context: ToolContext, mod: MODULE) is abstract end - -redef class MMModule - # Recurcivelty process an import modules - fun import_supers_modules(names: Collection[Symbol]) - do - var c = context - assert c isa ToolContext - var supers = new Array[MMModule] - for n in names do - var m = c.get_module(n, self) - supers.add(m) - end - c.add_module(self,supers) - end -end