analysis: add an analysis to find reachable init (used as init)

Signed-off-by: Jean-Sebastien Gelinas <calestar@gmail.com>
Signed-off-by: Jean Privat <jean@pryen.org>

diff --git a/src/analysis/analysis.nit b/src/analysis/analysis.nit
index 0c4077d..01e7104 100644 (file)
--- a/src/analysis/analysis.nit
+++ b/src/analysis/analysis.nit
@@ -30,6 +30,7 @@ import inline_methods
 # Global Analysis types
 import instantiated_type_analysis
 import reachable_method_analysis
+import reachable_as_init
 
 # Global Analysis implementation
 import cha_analysis

diff --git a/src/analysis/reachable_as_init.nit b/src/analysis/reachable_as_init.nit
new file mode 100644 (file)
index 0000000..247d49c
--- /dev/null
+++ b/src/analysis/reachable_as_init.nit
@@ -0,0 +1,45 @@
+# This file is part of NIT ( http://www.nitlanguage.org ).
+#
+# Copyright 2009 Jean-Sebastien Gelinas <calestar@gmail.com>
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#       http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+# Package containing all bases for the reachable from init method analysis
+package reachable_as_init
+
+import icode
+import program
+
+redef class Program
+       # This attribute is the ReachableAsInitAnalysis results
+       readable writable var _rai: nullable ReachableAsInitAnalysis = null
+end
+
+# Subclasses of this class would represent an analysis that produces
+# at least a way of knowing if an initializer is called at least once
+# as an initializer (and not as part of another initializer)
+# in a specific class
+class ReachableAsInitAnalysis
+       fun is_method_reachable_as_init(method: MMMethod, c: MMLocalClass): Bool is abstract
+end
+
+# Default behavior is to say that all initializers are called as init
+class DefaultReachableAsInitAnalysis
+special ReachableAsInitAnalysis
+       redef fun is_method_reachable_as_init(method: MMMethod, c: MMLocalClass): Bool do
+               if method.global.is_init and method.global.is_init_for(c) then return true
+               return false
+       end
+
+       init do end
+end