modelbuilder: error on protected classes and imports

Signed-off-by: Jean Privat <jean@pryen.org>

diff --git a/src/modelbuilder.nit b/src/modelbuilder.nit
index aee1ea3..af60c66 100644 (file)
--- a/src/modelbuilder.nit
+++ b/src/modelbuilder.nit
@@ -411,6 +411,10 @@ class ModelBuilder
                        if sup == null then continue # Skip error
                        imported_modules.add(sup)
                        var mvisibility = aimport.n_visibility.mvisibility
+                       if mvisibility == protected_visibility then
+                               error(aimport.n_visibility, "Error: only properties can be protected.")
+                               return
+                       end
                        mmodule.set_visibility_for(sup, mvisibility)
                end
                if stdimport then

diff --git a/src/modelize_class.nit b/src/modelize_class.nit
index 5737e4b..9cfc3eb 100644 (file)
--- a/src/modelize_class.nit
+++ b/src/modelize_class.nit
@@ -51,6 +51,10 @@ redef class ModelBuilder
                        nvisibility = nclassdef.n_visibility
                        mvisibility = nvisibility.mvisibility
                        arity = nclassdef.n_formaldefs.length
+                       if mvisibility == protected_visibility then
+                               error(nvisibility, "Error: only properties can be protected.")
+                               return
+                       end
                else if nclassdef isa ATopClassdef then
                        name = "Object"
                        nkind = null