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 # Fill toolcontext information about blacklisting of warnings.
19 private import literal
21 redef class ToolContext
22 # The phase should be executed before any warning on the module is processed.
23 var no_warning_phase
: Phase = new NoWarningPhase(self, [literal_phase
])
26 private class NoWarningPhase
29 redef fun process_nmodule
(nmodule
)
32 var mmodule
= nmodule
.mmodule
33 if mmodule
== null then return
35 var source
= nmodule
.location
.file
37 # If no decl block then quit
38 var nmoduledecl
= nmodule
.n_moduledecl
39 if nmoduledecl
== null then
40 # Disable `missing-doc` if there is no `module` clause
41 # Rationale: the presence of a `module` clause is a good heuristic to
42 # discriminate quick and dirty prototypes from nice and clean modules
43 if source
!= null then toolcontext
.warning_blacklist
[source
].add
("missing-doc")
47 var modelbuilder
= toolcontext
.modelbuilder
49 # Disable `missing-doc` for `test_suite`
50 if source
!= null and not nmoduledecl
.get_annotations
("test_suite").is_empty
then
51 toolcontext
.warning_blacklist
[source
].add
("missing-doc")
54 # Get all the `no_warning` annotations
55 var name
= "no_warning"
56 var annots
= nmoduledecl
.get_annotations
(name
)
58 if annots
.is_empty
then return
60 if source
== null then
61 modelbuilder
.warning
(annots
.first
, "file-less-module", "Warning: `{name}` does not currently work on file-less modules.")
65 for annot
in annots
do
66 var args
= annot
.n_args
68 modelbuilder
.error
(annot
, "Syntax Error: `{name}` expects a list of warnings. Use `\"all\
"` to disable all warnings.")
72 var tag
= arg
.as_string
74 modelbuilder
.error
(arg
, "Syntax Error: `{name}` expects String as arguments.")
78 toolcontext
.warning_blacklist
[source
].add
(tag
)