1 # This file is part of NIT ( http://www.nitlanguage.org ).
3 # Licensed under the Apache License, Version 2.0 (the "License");
4 # you may not use this file except in compliance with the License.
5 # You may obtain a copy of the License at
7 # http://www.apache.org/licenses/LICENSE-2.0
9 # Unless required by applicable law or agreed to in writing, software
10 # distributed under the License is distributed on an "AS IS" BASIS,
11 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
12 # See the License for the specific language governing permissions and
13 # limitations under the License.
15 # Phases of the processing of nit programs
22 redef class ToolContext
23 # The various registered phases to performs
24 # The order in the poset is the dependance of phases
26 # While you can directly modify the poset (nodes and edges),
27 # it is often simpler to use the constructor in `Phase`
28 var phases
= new POSet[Phase]
31 var opt_disable_phase
= new OptionArray("DEBUG: Disable a specific phase; use `list` to get the list.", "--disable-phase")
37 option_context
.add_option
(opt_disable_phase
)
40 redef fun process_options
(args
)
44 for v
in opt_disable_phase
.value
do
46 for p
in phases_list
do
47 var deps
= p
.in_hierarchy
.direct_greaters
51 print
"{p} (dep: {deps.join(", ")})"
59 if v
!= p
.to_s
then continue
63 if not found
then fatal_error
(null, "Error: no phase named `{v}`. Use `list` to list all phases.")
67 fun phases_list
: Sequence[Phase]
69 var phases
= self.phases
.to_a
70 self.phases
.sort
(phases
)
74 # Set of already analyzed modules.
75 private var phased_modules
= new HashSet[AModule]
77 # Run all registered phases on a set of modules
78 fun run_phases
(nmodules
: Collection[AModule])
81 self.info
("*** SEMANTIC ANALYSIS ***", 1)
84 var phases
= phases_list
86 for phase
in phases
do
87 self.info
(" registered phases: {phase}", 2)
90 for nmodule
in nmodules
do
91 if phased_modules
.has
(nmodule
) then continue
92 phased_modules
.add nmodule
94 self.info
("Semantic analysis module {nmodule.location.file.filename}", 2)
96 var vannot
= new AnnotationPhaseVisitor
97 vannot
.enter_visit
(nmodule
)
99 for phase
in phases
do
100 if phase
.disabled
then continue
101 self.info
(" phase: {phase}", 3)
102 assert phase
.toolcontext
== self
103 var errcount
= self.error_count
104 phase
.process_nmodule
(nmodule
)
105 if errcount
!= self.error_count
then
109 errcount
= self.error_count
110 for nclassdef
in nmodule
.n_classdefs
do
111 assert phase
.toolcontext
== self
112 phase
.process_nclassdef
(nclassdef
)
113 for npropdef
in nclassdef
.n_propdefs
do
114 assert phase
.toolcontext
== self
115 phase_process_npropdef
(phase
, npropdef
)
118 if errcount
!= self.error_count
then
122 for na
in vannot
.annotations
do
123 phase
.process_annotated_node
(na
.parent
.parent
.as(not null), na
)
125 if errcount
!= self.error_count
then
134 self.info
("*** END SEMANTIC ANALYSIS: {time1-time0} ***", 2)
139 fun phase_process_npropdef
(phase
: Phase, npropdef
: APropdef)
141 phase
.process_npropdef
(npropdef
)
145 # Collect all annotation
146 private class AnnotationPhaseVisitor
149 # The collected annotations
150 var annotations
= new Array[AAnnotation]
155 if n
isa AAnnotation then annotations
.add n
159 # Abstraction of steps in the analysis/processing of Nit programs
160 # Specific phases should implements one of the `process_*` method
162 # The toolcontext instance attached to the phase
163 var toolcontext
: ToolContext
165 # The dependence relation of the phase with the other phases
166 var in_hierarchy
: POSetElement[Phase] is noinit
168 # The explicit dependences, used to initialize `in_importation`
169 var depends
: nullable Collection[Phase]
171 # Initialize and register a phase to the toolcontext
174 in_hierarchy
= toolcontext
.phases
.add_node
(self)
175 var depends
= self.depends
176 if depends
!= null then
178 toolcontext
.phases
.add_edge
(self, d
)
183 # By default, the name is the lowercased prefix of the classname
184 redef fun to_s
do return class_name
.strip_extension
("Phase").to_lower
186 # Is the phase globally disabled?
187 # A disabled phase is not called automatically called by `ToolContext::run_phases` and cie.
189 # Warning: disabling a phase may cause subsequent phases to work in a degraded way or to fail.
190 var disabled
= false is writable
192 # Specific actions to execute on the whole tree of a module
194 fun process_nmodule
(nmodule
: AModule) do end
196 # Specific actions to execute on the tree of a class definition
197 # Note that the order of the visit is the one of the file
199 fun process_nclassdef
(nclassdef
: AClassdef) do end
201 # Specific actions to execute on the tree of a property
202 # Note that the order of the visit is the one of the file
204 fun process_npropdef
(npropdef
: APropdef) do end
206 # Specific actions to execute on annotated nodes
207 # Note that the order of the visit is the one of the file
209 fun process_annotated_node
(node
: ANode, nat
: AAnnotation) do end