# See the License for the specific language governing permissions and
# limitations under the License.
-# This package is used to load a metamodel
+# This module is used to load a metamodel
package mmloader
import metamodel
import location
class Message
-special Comparable
+ super Comparable
redef type OTHER: Message
- readable attr _location: nullable Location
- readable attr _text: String
+ readable var _location: nullable Location
+ readable var _text: String
redef fun <(other: OTHER): Bool do
if location == null then return true
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
-special MMContext
+ 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]
_message_sorter.sort(_messages)
for m in _messages do
- stderr.write("{m.text}\n")
+ stderr.write("{m}\n")
end
_messages.clear
end
# Display an info
- meth info(s: String, level: Int)
+ fun info(s: String, level: Int)
do
if level <= verbose_level then
print "{s}"
# Option --path
readable var _opt_path: OptionArray = new OptionArray("Set include path for loaders (may be used more than once)", "-I", "--path")
- # Option --lop
+ # 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")
init
do
super
- option_context.add_option(opt_warn, opt_path, opt_log, opt_only_parse, opt_only_metamodel, opt_help, opt_version, opt_verbose)
+ option_context.add_option(opt_warn, opt_path, opt_log, opt_log_dir, opt_only_parse, opt_only_metamodel, opt_help, opt_version, opt_verbose)
end
# Parse and process the options given on the command line
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
end
# Load and process a module in a directory (or a parent directory).
# If the module is already loaded, just return it without further processing.
fun get_module(module_name: Symbol, from: nullable MMModule): MMModule
do
- var m: MMModule
if from != null then
var dir: nullable MMDirectory = from.directory
while dir != null do
protected fun parse_file(context: ToolContext, file: IFStream, filename: String, module_name: Symbol, dir: MMDirectory): MODULE is abstract
# Process a parsed module
- protected fun process_metamodel(context: ToolContext, module: MODULE) is abstract
+ protected fun process_metamodel(context: ToolContext, mod: MODULE) is abstract
end
redef class MMModule