Merge remote-tracking branch 'lucas/netdbg_wip'
[nit.git] / src / nitdbg_commons.nit
1 # This file is part of NIT ( http://www.nitlanguage.org ).
2 #
3 # Copyright 2013 Lucas Bajolet <lucas.bajolet@hotmail.com>
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 module nitdbg_commons
18
19 import modelbuilder
20 import frontend
21
22 class InterpretCommons
23
24 var model: nullable Model
25 var modelbuilder: nullable ModelBuilder
26 var toolcontext: nullable ToolContext
27 var mainmodule: nullable MModule
28 var arguments: nullable Array[String]
29
30 init
31 do
32 end
33
34 fun launch
35 do
36 # Create a tool context to handle options and paths
37 toolcontext = new ToolContext
38 # Add an option "-o" to enable compatibilit with the tests.sh script
39 var opt = new OptionString("compatibility (does noting)", "-o")
40 toolcontext.option_context.add_option(opt)
41 # We do not add other options, so process them now!
42 toolcontext.process_options
43
44 # We need a model to collect stufs
45 model = new Model
46 # An a model builder to parse files
47 modelbuilder = new ModelBuilder(model.as(not null), toolcontext.as(not null))
48
49 arguments = toolcontext.option_context.rest
50 if arguments.is_empty or toolcontext.opt_help.value then
51 toolcontext.option_context.usage
52 return
53 end
54 var progname = arguments.first
55
56 # Here we load an process all modules passed on the command line
57 var mmodules = modelbuilder.parse([progname])
58 modelbuilder.run_phases
59
60 if toolcontext.opt_only_metamodel.value then exit(0)
61
62 # Here we launch the interpreter on the main module
63 assert mmodules.length == 1
64 mainmodule = mmodules.first
65 end
66
67 end