src: update most tools to new constructors
[nit.git] / src / parser / parser_nodes.nit
index 4a195df..a7f8071 100644 (file)
@@ -20,11 +20,9 @@ import location
 
 # Root of the AST class-hierarchy
 abstract class ANode
-       var _location: nullable Location = null
-
        # Location is set during AST building. Once built, location cannon be null.
        # However, manual instantiated nodes may need more care.
-       fun location: Location do return _location.as(not null)
+       var location: Location is writable, noinit
 
        # The location of the important part of the node (identifier or whatever)
        fun hot_location: Location do return location
@@ -32,20 +30,69 @@ abstract class ANode
        # Display a message for the colored location of the node
        fun debug(message: String)
        do
-               print "{hot_location} {self.class_name}: {message}\n{hot_location.colored_line("0;32")}"
+               sys.stderr.write "{hot_location} {self.class_name}: {message}\n{hot_location.colored_line("0;32")}\n"
        end
 
        # Parent of the node in the AST
        var parent: nullable ANode = null
 
-       # Protect form invalid instantiation of nodes
-       private init do end
+       # The topmost ancestor of the element
+       # This just apply `parent` until the first one
+       fun root: ANode
+       do
+               var res = self
+               loop
+                       var p = res.parent
+                       if p == null then return res
+                       res = p
+               end
+       end
+
+       # The most specific common parent between `self` and `other`
+       # Return null if the two node are unrelated (distinct root)
+       fun common_parent(other: ANode): nullable ANode
+       do
+               # First, get the same depth
+               var s: nullable ANode = self
+               var o: nullable ANode = other
+               var d = s.depth - o.depth
+               while d > 0 do
+                       s = s.parent
+                       d -= 1
+               end
+               while d < 0 do
+                       o = o.parent
+                       d += 1
+               end
+               assert o.depth == s.depth
+               # Second, go up until same in found
+               while s != o do
+                       s = s.parent
+                       o = o.parent
+               end
+               return s
+       end
+
+       # Number of nodes between `self` and the `root` of the AST
+       # ENSURE `self == self.root implies result == 0 `
+       # ENSURE `self != self.root implies result == self.parent.depth + 1`
+       fun depth: Int
+       do
+               var n = self
+               var res = 0
+               loop
+                       var p = n.parent
+                       if p == null then return res
+                       n = p
+                       res += 1
+               end
+       end
 
        # Replace a child with an other node in the AST
        private fun replace_child(old_child: ANode, new_child: nullable ANode) is abstract
 
        # Detach a node from its parent
-       # Aborts if the node is not detashable. use `replace_with` instead
+       # Aborts if the node is not detachable. use `replace_with` instead
        # REQUIRE: parent != null
        # REQUIRE: is_detachable
        # ENDURE: parent == null
@@ -73,7 +120,7 @@ abstract class ANode
 end
 
 # A sequence of nodes
-# There is a specifc class (instead of a using Array) to track the parent/child relation when nodes are added or removed
+# It is a specific class (instead of using a Array) to track the parent/child relation when nodes are added or removed
 class ANodes[E: ANode]
        super Sequence[E]
        private var parent: ANode
@@ -133,7 +180,7 @@ class ANodes[E: ANode]
                e.parent = null
        end
 
-       # Used in parent contructor to fill elements
+       # Used in parent constructor to fill elements
        private fun unsafe_add_all(nodes: Collection[Object])
        do
                var parent = self.parent
@@ -175,15 +222,26 @@ abstract class Token
 
        # The raw content on the token
        fun text: String is abstract
+
+       # The raw content on the token
        fun text=(text: String) is abstract
 
        # The previous token in the Lexer.
-       # May have disapeared in the AST
-       var prev_token: nullable Token
+       # May have disappeared in the AST
+       var prev_token: nullable Token = null
 
        # The next token in the Lexer.
-       # May have disapeared in the AST
-       var next_token: nullable Token
+       # May have disappeared in the AST
+       var next_token: nullable Token = null
+
+       # The verbatim blank text between `prev_token` and `self`
+       fun blank_before: String
+       do
+               if prev_token == null then return ""
+               var from = prev_token.location.pend+1
+               var to = location.pstart
+               return location.file.string.substring(from,to-from)
+       end
 
        redef fun to_s: String do
                return "'{text}'"
@@ -193,21 +251,29 @@ abstract class Token
        redef fun replace_child(old_child: ANode, new_child: nullable ANode) do end
 end
 
+redef class SourceFile
+       # The first token parser by the lexer
+       # May have disappeared in the final AST
+       var first_token: nullable Token = null
+
+       # The first token parser by the lexer
+       # May have disappeared in the final AST
+       var last_token: nullable Token = null
+end
+
 # Ancestor of all productions
 # A production is a node without text but that usually has children.
 abstract class Prod
        super ANode
 
-       fun location=(l: Location) do _location = l
-
        # All the annotations attached directly to the node
-       readable writable var _n_annotations: nullable AAnnotations = null
+       var n_annotations: nullable AAnnotations = null is writable
 
        redef fun replace_with(n: ANode)
        do
                super
                assert n isa Prod
-               if n._location == null then n._location = _location
+               if not isset n._location and isset _location then n._location = _location
        end
 end
 
@@ -231,7 +297,7 @@ abstract class Visitor
        end
 
        # The current visited node
-       readable writable var _current_node: nullable ANode = null
+       var current_node: nullable ANode = null is writable
 end
 
 # Token of end of line (basically `\n`)
@@ -257,183 +323,288 @@ abstract class TokenKeyword
                return "keyword '{text}'"
        end
 end
+
+# The deprecated keyword `package`.
 class TKwpackage
        super TokenKeyword
 end
+
+# The keyword `module`
 class TKwmodule
        super TokenKeyword
 end
+
+# The keyword `import`
 class TKwimport
        super TokenKeyword
 end
+
+# The keyword `class`
 class TKwclass
        super TokenKeyword
 end
+
+# The keyword `abstract`
 class TKwabstract
        super TokenKeyword
 end
+
+# The keyword `interface`
 class TKwinterface
        super TokenKeyword
 end
+
+# The keywords `enum` ane `universal`
 class TKwenum
        super TokenKeyword
 end
+
+# The keyword `end`
 class TKwend
        super TokenKeyword
 end
+
+# The keyword `fun`
 class TKwmeth
        super TokenKeyword
 end
+
+# The keyword `type`
 class TKwtype
        super TokenKeyword
 end
+
+# The keyword `init`
 class TKwinit
        super TokenKeyword
 end
+
+# The keyword `redef`
 class TKwredef
        super TokenKeyword
 end
+
+# The keyword `is`
 class TKwis
        super TokenKeyword
 end
+
+# The keyword `do`
 class TKwdo
        super TokenKeyword
 end
-class TKwreadable
-       super TokenKeyword
-end
-class TKwwritable
-       super TokenKeyword
-end
+
+# The keyword `var`
 class TKwvar
        super TokenKeyword
 end
-class TKwintern
-       super TokenKeyword
-end
+
+# The keyword `extern`
 class TKwextern
        super TokenKeyword
 end
+
+# The keyword `public`
 class TKwpublic
        super TokenKeyword
 end
+
+# The keyword `protected`
 class TKwprotected
        super TokenKeyword
 end
+
+# The keyword `private`
 class TKwprivate
        super TokenKeyword
 end
+
+# The keyword `intrude`
 class TKwintrude
        super TokenKeyword
 end
+
+# The keyword `if`
 class TKwif
        super TokenKeyword
 end
+
+# The keyword `then`
 class TKwthen
        super TokenKeyword
 end
+
+# The keyword `else`
 class TKwelse
        super TokenKeyword
 end
+
+# The keyword `while`
 class TKwwhile
        super TokenKeyword
 end
+
+# The keyword `loop`
 class TKwloop
        super TokenKeyword
 end
+
+# The keyword `for`
 class TKwfor
        super TokenKeyword
 end
+
+# The keyword `in`
 class TKwin
        super TokenKeyword
 end
+
+# The keyword `and`
 class TKwand
        super TokenKeyword
 end
+
+# The keyword `or`
 class TKwor
        super TokenKeyword
 end
+
+# The keyword `implies`
 class TKwimplies
        super TokenKeyword
 end
+
+# The keyword `not`
 class TKwnot
        super TokenKeyword
 end
+
+# The keyword `return`
 class TKwreturn
        super TokenKeyword
 end
+
+# The keyword `continue`
 class TKwcontinue
        super TokenKeyword
 end
+
+# The keyword `break`
 class TKwbreak
        super TokenKeyword
 end
+
+# The keyword `abort`
 class TKwabort
        super TokenKeyword
 end
+
+# The keyword `assert`
 class TKwassert
        super TokenKeyword
 end
+
+# The keyword `new`
 class TKwnew
        super TokenKeyword
 end
+
+# The keyword `isa`
 class TKwisa
        super TokenKeyword
 end
+
+# The keyword `once`
 class TKwonce
        super TokenKeyword
 end
+
+# The keyword `super`
 class TKwsuper
        super TokenKeyword
 end
+
+# The keyword `self`
 class TKwself
        super TokenKeyword
 end
+
+# The keyword `true`
 class TKwtrue
        super TokenKeyword
 end
+
+# The keyword `false`
 class TKwfalse
        super TokenKeyword
 end
+
+# The keyword `null`
 class TKwnull
        super TokenKeyword
 end
+
+# The keyword `as`
 class TKwas
        super TokenKeyword
 end
+
+# The keyword `nullable`
 class TKwnullable
        super TokenKeyword
 end
+
+# The keyword `isset`
 class TKwisset
        super TokenKeyword
 end
+
+# The keyword `label`
 class TKwlabel
        super TokenKeyword
 end
+
+# The special keyword `__DEBUG__`
 class TKwdebug
        super Token
 end
+
+# The symbol `(`
 class TOpar
        super Token
 end
+
+# The symbol `)`
 class TCpar
        super Token
 end
+
+# The symbol `[`
 class TObra
        super Token
 end
+
+# The symbol `]`
 class TCbra
        super Token
 end
+
+# The symbol `,`
 class TComma
        super Token
 end
+
+# The symbol `:`
 class TColumn
        super Token
 end
+
+# The symbol `::`
 class TQuad
        super Token
 end
+
+# The symbol `=`
 class TAssign
        super Token
 end
@@ -446,66 +617,113 @@ abstract class TokenOperator
                return "operator '{text}'"
        end
 end
+
+# The operator `+=`
 class TPluseq
        super TokenOperator
 end
+
+# The operator `-=`
 class TMinuseq
        super TokenOperator
 end
+
+# The symbol `...`
 class TDotdotdot
-       super TokenOperator
+       super Token
 end
+
+# The symbol `..`
 class TDotdot
-       super TokenOperator
+       super Token
 end
+
+# The symbol `.`
 class TDot
-       super TokenOperator
+       super Token
 end
+
+# The operator `+`
 class TPlus
        super TokenOperator
 end
+
+# The operator `-`
 class TMinus
        super TokenOperator
 end
+
+# The operator `*`
 class TStar
        super TokenOperator
 end
+
+# The operator `**`
+class TStarstar
+       super TokenOperator
+end
+
+# The operator `/`
 class TSlash
        super TokenOperator
 end
+
+# The operator `+%
 class TPercent
        super TokenOperator
 end
+
+# The operator `==`
 class TEq
        super TokenOperator
 end
+
+# The operator `!=`
 class TNe
        super TokenOperator
 end
+
+# The operator `<`
 class TLt
        super TokenOperator
 end
+
+# The operator `<=`
 class TLe
        super TokenOperator
 end
+
+# The operator `<<`
 class TLl
        super TokenOperator
 end
+
+# The operator `>`
 class TGt
        super TokenOperator
 end
+
+# The operator `>=`
 class TGe
        super TokenOperator
 end
+
+# The operator `>>`
 class TGg
        super TokenOperator
 end
+
+# The operator `<=>`
 class TStarship
        super TokenOperator
 end
+
+# The operator `!`
 class TBang
        super TokenOperator
 end
+
+# The symbol `@`
 class TAt
        super Token
 end
@@ -545,27 +763,43 @@ abstract class TokenLiteral
                do return "literal value '{text}'"
        end
 end
+
+# A literal decimal integer
 class TNumber
        super TokenLiteral
 end
+
+# A literal hexadecimal integer
 class THexNumber
        super TokenLiteral
 end
+
+# A literal floating point number
 class TFloat
        super TokenLiteral
 end
+
+# A literal character
 class TChar
        super TokenLiteral
 end
+
+# A literal string
 class TString
        super TokenLiteral
 end
+
+# The starting part of a super string (between `"` and `{`)
 class TStartString
        super TokenLiteral
 end
+
+# The middle part of a super string (between `}` and `{`)
 class TMidString
        super TokenLiteral
 end
+
+# The final part of a super string (between `}` and `"`)
 class TEndString
        super TokenLiteral
 end
@@ -588,6 +822,7 @@ class TBadChar
        end
 end
 
+# A extern code block
 class TExternCodeSegment
        super Token
 end
@@ -605,9 +840,11 @@ end
 class AError
        super EOF
 end
+# A lexical error (unexpected character)
 class ALexerError
        super AError
 end
+# A syntactic error (unexpected token)
 class AParserError
        super AError
 end
@@ -616,18 +853,20 @@ end
 class AModule
        super Prod
 
-       readable writable var _n_moduledecl: nullable AModuledecl = null
-       readable var _n_imports: ANodes[AImport] = new ANodes[AImport](self)
-       readable var _n_extern_code_blocks: ANodes[AExternCodeBlock] = new ANodes[AExternCodeBlock](self)
-       readable var _n_classdefs: ANodes[AClassdef] = new ANodes[AClassdef](self)
+       var n_moduledecl: nullable AModuledecl = null is writable
+       var n_imports = new ANodes[AImport](self)
+       var n_extern_code_blocks = new ANodes[AExternCodeBlock](self)
+       var n_classdefs = new ANodes[AClassdef](self)
 end
 
 # The declaration of the module with the documentation, name, and annotations
 class AModuledecl
        super Prod
-       readable writable var _n_doc: nullable ADoc = null
-       readable writable var _n_kwmodule: TKwmodule
-       readable writable var _n_name: AModuleName
+       var n_doc: nullable ADoc = null is writable
+       var n_kwredef: nullable TKwredef = null is writable
+       var n_visibility: AVisibility is writable, noinit
+       var n_kwmodule: TKwmodule is writable, noinit
+       var n_name: AModuleName is writable, noinit
 end
 
 # A import clause of a module
@@ -638,17 +877,17 @@ end
 # A standard import clause. eg `import x`
 class AStdImport
        super AImport
-       readable writable var _n_visibility: AVisibility
-       readable writable var _n_kwimport: TKwimport
-       readable writable var _n_name: AModuleName
+       var n_visibility: AVisibility is writable, noinit
+       var n_kwimport: TKwimport is writable, noinit
+       var n_name: AModuleName is writable, noinit
 end
 
 # The special import clause of the kernel module. eg `import end`
 class ANoImport
        super AImport
-       readable writable var _n_visibility: AVisibility
-       readable writable var _n_kwimport: TKwimport
-       readable writable var _n_kwend: TKwend
+       var n_visibility: AVisibility is writable, noinit
+       var n_kwimport: TKwimport is writable, noinit
+       var n_kwend: TKwend is writable, noinit
 end
 
 # A visibility modifier
@@ -660,41 +899,48 @@ end
 abstract class AVisibility
        super Prod
 end
+
+# An implicit or explicit public visibility modifier
 class APublicVisibility
        super AVisibility
+       var n_kwpublic: nullable TKwpublic is writable
 end
+# An explicit private visibility modifier
 class APrivateVisibility
        super AVisibility
-       readable writable var _n_kwprivate: TKwprivate
+       var n_kwprivate: TKwprivate is writable, noinit
 end
+# An explicit protected visibility modifier
 class AProtectedVisibility
        super AVisibility
-       readable writable var _n_kwprotected: TKwprotected
+       var n_kwprotected: TKwprotected is writable, noinit
 end
+# An explicit intrude visibility modifier
 class AIntrudeVisibility
        super AVisibility
-       readable writable var _n_kwintrude: TKwintrude
+       var n_kwintrude: TKwintrude is writable, noinit
 end
 
 # A class definition
 # While most definition are `AStdClassdef`
 # There is tow special case of class definition
-abstract class AClassdef super Prod
-       readable var _n_propdefs: ANodes[APropdef] = new ANodes[APropdef](self)
+abstract class AClassdef
+       super Prod
+       var n_propdefs = new ANodes[APropdef](self)
 end
 
 # A standard class definition with a name, superclasses and properties
 class AStdClassdef
        super AClassdef
-       readable writable var _n_doc: nullable ADoc = null
-       readable writable var _n_kwredef: nullable TKwredef = null
-       readable writable var _n_visibility: AVisibility
-       readable writable var _n_classkind: AClasskind
-       readable writable var _n_id: nullable TClassid = null
-       readable var _n_formaldefs: ANodes[AFormaldef] = new ANodes[AFormaldef](self)
-       readable writable var _n_extern_code_block: nullable AExternCodeBlock = null
-       readable var _n_superclasses: ANodes[ASuperclass] = new ANodes[ASuperclass](self)
-       readable writable var _n_kwend: TKwend
+       var n_doc: nullable ADoc = null is writable
+       var n_kwredef: nullable TKwredef = null is writable
+       var n_visibility: AVisibility is writable, noinit
+       var n_classkind: AClasskind is writable, noinit
+       var n_id: nullable TClassid = null is writable
+       var n_formaldefs = new ANodes[AFormaldef](self)
+       var n_extern_code_block: nullable AExternCodeBlock = null is writable
+       var n_superclasses = new ANodes[ASuperclass](self)
+       var n_kwend: TKwend is writable, noinit
        redef fun hot_location do return n_id.location
 end
 
@@ -712,88 +958,95 @@ end
 abstract class AClasskind
        super Prod
 end
+
+# A default, or concrete class modifier (just `class`)
 class AConcreteClasskind
        super AClasskind
-       readable writable var _n_kwclass: TKwclass
+       var n_kwclass: TKwclass is writable, noinit
 end
+
+# An abstract class modifier (`abstract class`)
 class AAbstractClasskind
        super AClasskind
-       readable writable var _n_kwabstract: TKwabstract
-       readable writable var _n_kwclass: TKwclass
+       var n_kwabstract: TKwabstract is writable, noinit
+       var n_kwclass: TKwclass is writable, noinit
 end
+
+# An interface class modifier (`interface`)
 class AInterfaceClasskind
        super AClasskind
-       readable writable var _n_kwinterface: TKwinterface
+       var n_kwinterface: TKwinterface is writable, noinit
 end
+
+# An enum/universal class modifier (`enum class`)
 class AEnumClasskind
        super AClasskind
-       readable writable var _n_kwenum: TKwenum
+       var n_kwenum: TKwenum is writable, noinit
 end
+
+# An extern class modifier (`extern class`)
 class AExternClasskind
        super AClasskind
-       readable writable var _n_kwextern: TKwextern
-       readable writable var _n_kwclass: nullable TKwclass = null
+       var n_kwextern: TKwextern is writable, noinit
+       var n_kwclass: nullable TKwclass = null is writable
 end
 
 # The definition of a formal generic parameter type. eg `X: Y`
 class AFormaldef
        super Prod
-       readable writable var _n_id: TClassid
+       var n_id: TClassid is writable, noinit
        # The bound of the parameter type
-       readable writable var _n_type: nullable AType = null
+       var n_type: nullable AType = null is writable
 end
 
 # A super-class. eg `super X`
 class ASuperclass
        super Prod
-       readable writable var _n_kwsuper: TKwsuper
-       readable writable var _n_type: AType
+       var n_kwsuper: TKwsuper is writable, noinit
+       var n_type: AType is writable, noinit
 end
 
 # The definition of a property
 abstract class APropdef
        super Prod
-       readable writable var _n_doc: nullable ADoc = null
-       readable writable var _n_kwredef: nullable TKwredef = null
-       readable writable var _n_visibility: nullable AVisibility = null
+       var n_doc: nullable ADoc = null is writable
+       var n_kwredef: nullable TKwredef = null is writable
+       var n_visibility: nullable AVisibility = null is writable
 end
 
 # A definition of an attribute
 # For historical reason, old-syle and new-style attributes use the same `ANode` sub-class
 class AAttrPropdef
        super APropdef
-       readable writable var _n_kwvar: TKwvar
-
-       # The identifier for an old-style attribute (null if new-style)
-       readable writable var _n_id: nullable TAttrid
+       var n_kwvar: TKwvar is writable, noinit
 
        # The identifier for a new-style attribute (null if old-style)
-       readable writable var _n_id2: nullable TId
+       var n_id2: TId is writable, noinit
 
-       readable writable var _n_type: nullable AType = null
-       readable writable var _n_readable: nullable AAble = null
-       readable writable var _n_writable: nullable AAble = null
+       var n_type: nullable AType = null is writable
 
        # The initial value, if any
-       readable writable var _n_expr: nullable AExpr = null
+       var n_expr: nullable AExpr = null is writable
+
+       var n_block: nullable AExpr = null is writable
+
        redef fun hot_location
        do
-               if n_id != null then return n_id.location else return n_id2.location
+               return n_id2.location
        end
 end
 
 # A definition of all kind of method (including constructors)
-abstract class AMethPropdef
+class AMethPropdef
        super APropdef
-       readable writable var _n_kwmeth: nullable TKwmeth
-       readable writable var _n_kwinit: nullable TKwinit
-       readable writable var _n_kwnew: nullable TKwnew
-       readable writable var _n_methid: nullable AMethid = null
-       readable writable var _n_signature: nullable ASignature
-       readable writable var _n_block: nullable AExpr = null
-       readable writable var _n_extern: nullable TString = null
-       readable writable var _n_extern_calls: nullable AExternCalls = null
-       readable writable var _n_extern_code_block: nullable AExternCodeBlock = null
+       var n_kwmeth: nullable TKwmeth = null is writable
+       var n_kwinit: nullable TKwinit = null is writable
+       var n_kwnew: nullable TKwnew = null is writable
+       var n_methid: nullable AMethid = null is writable
+       var n_signature: nullable ASignature = null is writable
+       var n_block: nullable AExpr = null is writable
+       var n_extern_calls: nullable AExternCalls = null is writable
+       var n_extern_code_block: nullable AExternCodeBlock = null is writable
        redef fun hot_location
        do
                if n_methid != null then
@@ -808,133 +1061,91 @@ abstract class AMethPropdef
        end
 end
 
-# A method marked abstract
-# *deferred* is a old synonynmous of *abstract* that comes from PRM, that comes from Eiffel.
-class ADeferredMethPropdef
-       super AMethPropdef
-end
-
-# A method marked intern
-class AInternMethPropdef
-       super AMethPropdef
-end
-
-# A method of a constructor marked extern
-abstract class AExternPropdef
-       super AMethPropdef
-end
-
-# A method marked extern
-class AExternMethPropdef
-       super AExternPropdef
-end
-
-# A method with a body
-class AConcreteMethPropdef
-       super AMethPropdef
-end
-
-# A constructor
-abstract class AInitPropdef
-       super AMethPropdef
-end
-
-# A constructor with a body
-class AConcreteInitPropdef
-       super AConcreteMethPropdef
-       super AInitPropdef
-end
-
-# A constructor marked extern (defined with the `new` keyword)
-class AExternInitPropdef
-       super AExternPropdef
-       super AInitPropdef
-end
-
 # The implicit main method
 class AMainMethPropdef
-       super AConcreteMethPropdef
+       super AMethPropdef
 end
 
 # Declaration of callbacks for extern methods
 class AExternCalls
        super Prod
-       readable writable var _n_kwimport: TKwimport
-       readable var _n_extern_calls: ANodes[AExternCall] = new ANodes[AExternCall](self)
+       var n_kwimport: TKwimport is writable, noinit
+       var n_extern_calls: ANodes[AExternCall] = new ANodes[AExternCall](self)
 end
+
+# A single callback declaration
 abstract class AExternCall
        super Prod
 end
+
+# A single callback declaration on a method
 abstract class APropExternCall
        super AExternCall
 end
+
+# A single callback declaration on a method on the current receiver
 class ALocalPropExternCall
        super APropExternCall
-       readable writable var _n_methid: AMethid
+       var n_methid: AMethid is writable, noinit
 end
+
+# A single callback declaration on a method on an explicit receiver type.
 class AFullPropExternCall
        super APropExternCall
-       readable writable var _n_type: AType
-       readable writable var _n_dot: nullable TDot = null
-       readable writable var _n_methid: AMethid
+       var n_type: AType is writable, noinit
+       var n_dot: nullable TDot = null is writable
+       var n_methid: AMethid is writable, noinit
 end
+
+# A single callback declaration on a method on a constructor
 class AInitPropExternCall
        super APropExternCall
-       readable writable var _n_type: AType
+       var n_type: AType is writable, noinit
 end
+
+# A single callback declaration on a `super` call
 class ASuperExternCall
        super AExternCall
-       readable writable var _n_kwsuper: TKwsuper
+       var n_kwsuper: TKwsuper is writable, noinit
 end
+
+# A single callback declaration on a cast
 abstract class ACastExternCall
        super AExternCall
 end
+
+# A single callback declaration on a cast to a given type
 class ACastAsExternCall
        super ACastExternCall
-       readable writable var _n_from_type: AType
-       readable writable var _n_dot: nullable TDot = null
-       readable writable var _n_kwas: TKwas
-       readable writable var _n_to_type: AType
+       var n_from_type: AType is writable, noinit
+       var n_dot: nullable TDot = null is writable
+       var n_kwas: TKwas is writable, noinit
+       var n_to_type: AType is writable, noinit
 end
+
+# A single callback declaration on a cast to a nullable type
 class AAsNullableExternCall
        super ACastExternCall
-       readable writable var _n_type: AType
-       readable writable var _n_kwas: TKwas
-       readable writable var _n_kwnullable: TKwnullable
+       var n_type: AType is writable, noinit
+       var n_kwas: TKwas is writable, noinit
+       var n_kwnullable: TKwnullable is writable, noinit
 end
+
+# A single callback declaration on a cast to a non-nullable type
 class AAsNotNullableExternCall
        super ACastExternCall
-       readable writable var _n_type: AType
-       readable writable var _n_kwas: TKwas
-       readable writable var _n_kwnot: TKwnot
-       readable writable var _n_kwnullable: TKwnullable
+       var n_type: AType is writable, noinit
+       var n_kwas: TKwas is writable, noinit
+       var n_kwnot: TKwnot is writable, noinit
+       var n_kwnullable: TKwnullable is writable, noinit
 end
 
 # A definition of a virtual type
 class ATypePropdef
        super APropdef
-       readable writable var _n_kwtype: TKwtype
-       readable writable var _n_id: TClassid
-       readable writable var _n_type: AType
-end
-
-# A `writable` or `readable` modifier
-abstract class AAble
-       super Prod
-       readable writable var _n_visibility: nullable AVisibility = null
-       readable writable var _n_kwredef: nullable TKwredef = null
-end
-
-# A `readable` modifier
-class AReadAble
-       super AAble
-       readable writable var _n_kwreadable: TKwreadable
-end
-
-# A `writable` modifier
-class AWriteAble
-       super AAble
-       readable writable var _n_kwwritable: TKwwritable
+       var n_kwtype: TKwtype is writable, noinit
+       var n_id: TClassid is writable, noinit
+       var n_type: AType is writable, noinit
 end
 
 # The identifier of a method in a method declaration.
@@ -942,117 +1153,159 @@ end
 abstract class AMethid
        super Prod
 end
+
+# A method name with a simple identifier
 class AIdMethid
        super AMethid
-       readable writable var _n_id: TId
+       var n_id: TId is writable, noinit
 end
+
+# A method name `+`
 class APlusMethid
        super AMethid
-       readable writable var _n_plus: TPlus
+       var n_plus: TPlus is writable, noinit
 end
+
+# A method name `-`
 class AMinusMethid
        super AMethid
-       readable writable var _n_minus: TMinus
+       var n_minus: TMinus is writable, noinit
 end
+
+# A method name `*`
 class AStarMethid
        super AMethid
-       readable writable var _n_star: TStar
+       var n_star: TStar is writable, noinit
+end
+
+# A method name `**`
+class AStarstarMethid
+       super AMethid
+       var n_starstar: TStarstar is writable, noinit
 end
+
+# A method name `/`
 class ASlashMethid
        super AMethid
-       readable writable var _n_slash: TSlash
+       var n_slash: TSlash is writable, noinit
 end
+
+# A method name `%`
 class APercentMethid
        super AMethid
-       readable writable var _n_percent: TPercent
+       var n_percent: TPercent is writable, noinit
 end
+
+# A method name `==`
 class AEqMethid
        super AMethid
-       readable writable var _n_eq: TEq
+       var n_eq: TEq is writable, noinit
 end
+
+# A method name `!=`
 class ANeMethid
        super AMethid
-       readable writable var _n_ne: TNe
+       var n_ne: TNe is writable, noinit
 end
+
+# A method name `<=`
 class ALeMethid
        super AMethid
-       readable writable var _n_le: TLe
+       var n_le: TLe is writable, noinit
 end
+
+# A method name `>=`
 class AGeMethid
        super AMethid
-       readable writable var _n_ge: TGe
+       var n_ge: TGe is writable, noinit
 end
+
+# A method name `<`
 class ALtMethid
        super AMethid
-       readable writable var _n_lt: TLt
+       var n_lt: TLt is writable, noinit
 end
+
+# A method name `>`
 class AGtMethid
        super AMethid
-       readable writable var _n_gt: TGt
+       var n_gt: TGt is writable, noinit
 end
+
+# A method name `<<`
 class ALlMethid
        super AMethid
-       readable writable var _n_ll: TLl
+       var n_ll: TLl is writable, noinit
 end
+
+# A method name `>>`
 class AGgMethid
        super AMethid
-       readable writable var _n_gg: TGg
+       var n_gg: TGg is writable, noinit
 end
+
+# A method name `[]`
 class ABraMethid
        super AMethid
-       readable writable var _n_obra: TObra
-       readable writable var _n_cbra: TCbra
+       var n_obra: TObra is writable, noinit
+       var n_cbra: TCbra is writable, noinit
 end
+
+# A method name `<=>`
 class AStarshipMethid
        super AMethid
-       readable writable var _n_starship: TStarship
+       var n_starship: TStarship is writable, noinit
 end
+
+# A setter method name with a simple identifier (with a `=`)
 class AAssignMethid
        super AMethid
-       readable writable var _n_id: TId
-       readable writable var _n_assign: TAssign
+       var n_id: TId is writable, noinit
+       var n_assign: TAssign is writable, noinit
 end
+
+# A method name `[]=`
 class ABraassignMethid
        super AMethid
-       readable writable var _n_obra: TObra
-       readable writable var _n_cbra: TCbra
-       readable writable var _n_assign: TAssign
+       var n_obra: TObra is writable, noinit
+       var n_cbra: TCbra is writable, noinit
+       var n_assign: TAssign is writable, noinit
 end
 
 # A signature in a method definition. eg `(x,y:X,z:Z):T`
 class ASignature
        super Prod
-       readable writable var _n_opar: nullable TOpar = null
-       readable var _n_params: ANodes[AParam] = new ANodes[AParam](self)
-       readable writable var _n_cpar: nullable TCpar = null
-       readable writable var _n_type: nullable AType = null
+       var n_opar: nullable TOpar = null is writable
+       var n_params = new ANodes[AParam](self)
+       var n_cpar: nullable TCpar = null is writable
+       var n_type: nullable AType = null is writable
 end
 
 # A parameter definition in a signature. eg `x:X`
 class AParam
        super Prod
-       readable writable var _n_id: TId
-       readable writable var _n_type: nullable AType = null
-       readable writable var _n_dotdotdot: nullable TDotdotdot = null
+       var n_id: TId is writable, noinit
+       var n_type: nullable AType = null is writable
+       var n_dotdotdot: nullable TDotdotdot = null is writable
 end
 
 # A static type. eg `nullable X[Y]`
 class AType
        super Prod
-       readable writable var _n_kwnullable: nullable TKwnullable = null
+       var n_kwnullable: nullable TKwnullable = null is writable
 
        # The name of the class or of the formal type
-       readable writable var _n_id: TClassid
+       var n_id: TClassid is writable, noinit
 
        # Type arguments for a generic type
-       readable var _n_types: ANodes[AType] = new ANodes[AType](self)
+       var n_types = new ANodes[AType](self)
 end
 
 # A label at the end of a block or in a break/continue statement. eg `label x`
 class ALabel
        super Prod
-       readable writable var _n_kwlabel: TKwlabel
-       readable writable var _n_id: TId
+       var n_kwlabel: TKwlabel is writable, noinit
+       var n_id: nullable TId is writable
 end
 
 # Expression and statements
@@ -1061,153 +1314,157 @@ abstract class AExpr
        super Prod
 end
 
-# A sequence of AExpr (usually statements)
-# The last AExpr gives the value of the whole block
+# A sequence of `AExpr` (usually statements)
+# The last `AExpr` gives the value of the whole block
 class ABlockExpr
        super AExpr
-       readable var _n_expr: ANodes[AExpr] = new ANodes[AExpr](self)
-       readable writable var _n_kwend: nullable TKwend = null
+       var n_expr = new ANodes[AExpr](self)
+       var n_kwend: nullable TKwend = null is writable
 end
 
 # A declaration of a local variable. eg `var x: X = y`
 class AVardeclExpr
        super AExpr
-       readable writable var _n_kwvar: TKwvar
-       readable writable var _n_id: TId
-       readable writable var _n_type: nullable AType = null
-       readable writable var _n_assign: nullable TAssign = null
+       var n_kwvar: TKwvar is writable, noinit
+       var n_id: TId is writable, noinit
+       var n_type: nullable AType = null is writable
+       var n_assign: nullable TAssign = null is writable
 
        # The initial value, if any
-       readable writable var _n_expr: nullable AExpr = null
+       var n_expr: nullable AExpr = null is writable
 end
 
 # A `return` statement. eg `return x`
 class AReturnExpr
        super AExpr
-       readable writable var _n_kwreturn: nullable TKwreturn = null
-       readable writable var _n_expr: nullable AExpr = null
+       var n_kwreturn: nullable TKwreturn = null is writable
+       var n_expr: nullable AExpr = null is writable
 end
 
 # Something that has a label.
 abstract class ALabelable
        super Prod
-       readable writable var _n_label: nullable ALabel = null
+       var n_label: nullable ALabel = null is writable
 end
 
-# A `break` statement.
-class ABreakExpr
+# A `break` or a `continue`
+abstract class AEscapeExpr
        super AExpr
        super ALabelable
-       readable writable var _n_kwbreak: TKwbreak
-       readable writable var _n_expr: nullable AExpr = null
+       var n_expr: nullable AExpr = null is writable
+end
+
+# A `break` statement.
+class ABreakExpr
+       super AEscapeExpr
+       var n_kwbreak: TKwbreak is writable, noinit
 end
 
 # An `abort` statement
 class AAbortExpr
        super AExpr
-       readable writable var _n_kwabort: TKwabort
+       var n_kwabort: TKwabort is writable, noinit
 end
 
 # A `continue` statement
 class AContinueExpr
-       super AExpr
-       super ALabelable
-       readable writable var _n_kwcontinue: nullable TKwcontinue = null
-       readable writable var _n_expr: nullable AExpr = null
+       super AEscapeExpr
+       var n_kwcontinue: nullable TKwcontinue = null is writable
 end
 
 # A `do` statement
 class ADoExpr
        super AExpr
        super ALabelable
-       readable writable var _n_kwdo: TKwdo
-       readable writable var _n_block: nullable AExpr = null
+       var n_kwdo: TKwdo is writable, noinit
+       var n_block: nullable AExpr = null is writable
 end
 
 # A `if` statement
 class AIfExpr
        super AExpr
-       readable writable var _n_kwif: TKwif
-       readable writable var _n_expr: AExpr
-       readable writable var _n_then: nullable AExpr = null
-       readable writable var _n_else: nullable AExpr = null
+       var n_kwif: TKwif is writable, noinit
+       var n_expr: AExpr is writable, noinit
+       var n_then: nullable AExpr = null is writable
+       var n_else: nullable AExpr = null is writable
 end
 
 # A `if` expression
 class AIfexprExpr
        super AExpr
-       readable writable var _n_kwif: TKwif
-       readable writable var _n_expr: AExpr
-       readable writable var _n_kwthen: TKwthen
-       readable writable var _n_then: AExpr
-       readable writable var _n_kwelse: TKwelse
-       readable writable var _n_else: AExpr
+       var n_kwif: TKwif is writable, noinit
+       var n_expr: AExpr is writable, noinit
+       var n_kwthen: TKwthen is writable, noinit
+       var n_then: AExpr is writable, noinit
+       var n_kwelse: TKwelse is writable, noinit
+       var n_else: AExpr is writable, noinit
 end
 
 # A `while` statement
 class AWhileExpr
        super AExpr
        super ALabelable
-       readable writable var _n_kwwhile:  TKwwhile
-       readable writable var _n_expr: AExpr
-       readable writable var _n_kwdo: TKwdo
-       readable writable var _n_block: nullable AExpr = null
+       var n_kwwhile:  TKwwhile is writable, noinit
+       var n_expr: AExpr is writable, noinit
+       var n_kwdo: TKwdo is writable, noinit
+       var n_block: nullable AExpr = null is writable
 end
 
 # A `loop` statement
 class ALoopExpr
        super AExpr
        super ALabelable
-       readable writable var _n_kwloop: TKwloop
-       readable writable var _n_block: nullable AExpr = null
+       var n_kwloop: TKwloop is writable, noinit
+       var n_block: nullable AExpr = null is writable
 end
 
 # A `for` statement
 class AForExpr
        super AExpr
        super ALabelable
-       readable writable var _n_kwfor: TKwfor
-       readable var _n_ids: ANodes[TId] = new ANodes[TId](self)
-       readable writable var _n_expr: AExpr
-       readable writable var _n_kwdo: TKwdo
-       readable writable var _n_block: nullable AExpr = null
+       var n_kwfor: TKwfor is writable, noinit
+       var n_ids = new ANodes[TId](self)
+       var n_expr: AExpr is writable, noinit
+       var n_kwdo: TKwdo is writable, noinit
+       var n_block: nullable AExpr = null is writable
 end
 
 # An `assert` statement
 class AAssertExpr
        super AExpr
-       readable writable var _n_kwassert: TKwassert
-       readable writable var _n_id: nullable TId = null
-       readable writable var _n_expr: AExpr
-       readable writable var _n_else: nullable AExpr = null
+       var n_kwassert: TKwassert is writable, noinit
+       var n_id: nullable TId = null is writable
+       var n_expr: AExpr is writable, noinit
+       var n_else: nullable AExpr = null is writable
 end
 
 # Whatever is a simple assignment. eg `= something`
 abstract class AAssignFormExpr
        super AExpr
-       readable writable var _n_assign: TAssign
-       readable writable var _n_value: AExpr
+       var n_assign: TAssign is writable, noinit
+       var n_value: AExpr is writable, noinit
 end
 
 # Whatever is a combined assignment. eg `+= something`
 abstract class AReassignFormExpr
        super AExpr
-       readable writable var _n_assign_op: AAssignOp
-       readable writable var _n_value: AExpr
+       var n_assign_op: AAssignOp is writable, noinit
+       var n_value: AExpr is writable, noinit
 end
 
 # A `once` expression. eg `once x`
 class AOnceExpr
-       super AProxyExpr
-       readable writable var _n_kwonce: TKwonce
+       super AExpr
+       var n_kwonce: TKwonce is writable, noinit
+       var n_expr: AExpr is writable, noinit
 end
 
 # A polymorphic invocation of a method
-# The form of the invocation (name, arguments, etc) are specific
+# The form of the invocation (name, arguments, etc.) are specific
 abstract class ASendExpr
        super AExpr
        # The receiver of the method invocation
-       readable writable var _n_expr: AExpr
+       var n_expr: AExpr is writable, noinit
 end
 
 # A binary operation on a method
@@ -1215,7 +1472,7 @@ abstract class ABinopExpr
        super ASendExpr
        # The second operand of the operation
        # Note: the receiver (`n_expr`) is the first operand
-       readable writable var _n_expr2: AExpr
+       var n_expr2: AExpr is writable, noinit
 end
 
 # Something that is boolean expression
@@ -1226,36 +1483,36 @@ end
 # A `or` expression 
 class AOrExpr
        super ABoolExpr
-       readable writable var _n_expr: AExpr
-       readable writable var _n_expr2: AExpr
+       var n_expr: AExpr is writable, noinit
+       var n_expr2: AExpr is writable, noinit
 end
 
 # A `and` expression
 class AAndExpr
        super ABoolExpr
-       readable writable var _n_expr: AExpr
-       readable writable var _n_expr2: AExpr
+       var n_expr: AExpr is writable, noinit
+       var n_expr2: AExpr is writable, noinit
 end
 
 # A `or else` expression
 class AOrElseExpr
        super ABoolExpr
-       readable writable var _n_expr: AExpr
-       readable writable var _n_expr2: AExpr
+       var n_expr: AExpr is writable, noinit
+       var n_expr2: AExpr is writable, noinit
 end
 
 # A `implies` expression
 class AImpliesExpr
        super ABoolExpr
-       readable writable var _n_expr: AExpr
-       readable writable var _n_expr2: AExpr
+       var n_expr: AExpr is writable, noinit
+       var n_expr2: AExpr is writable, noinit
 end
 
 # A `not` expression
 class ANotExpr
        super ABoolExpr
-       readable writable var _n_kwnot: TKwnot
-       readable writable var _n_expr: AExpr
+       var n_kwnot: TKwnot is writable, noinit
+       var n_expr: AExpr is writable, noinit
 end
 
 # A `==` expression
@@ -1301,8 +1558,8 @@ end
 # A type-ckeck expression. eg `x isa T`
 class AIsaExpr
        super ABoolExpr
-       readable writable var _n_expr: AExpr
-       readable writable var _n_type: AType
+       var n_expr: AExpr is writable, noinit
+       var n_type: AType is writable, noinit
 end
 
 # A `+` expression
@@ -1325,6 +1582,11 @@ class AStarExpr
        super ABinopExpr
 end
 
+# A `**` expression
+class AStarstarExpr
+       super ABinopExpr
+end
+
 # A `/` expression
 class ASlashExpr
        super ABinopExpr
@@ -1338,18 +1600,18 @@ end
 # A unary minus expression. eg `-x`
 class AUminusExpr
        super ASendExpr
-       readable writable var _n_minus: TMinus
+       var n_minus: TMinus is writable, noinit
 end
 
 # An explicit instantiation. eg `new T`
 class ANewExpr
        super AExpr
-       readable writable var _n_kwnew: TKwnew
-       readable writable var _n_type: AType
+       var n_kwnew: TKwnew is writable, noinit
+       var n_type: AType is writable, noinit
 
        # The name of the named-constructor, if any
-       readable writable var _n_id: nullable TId = null
-       readable writable var _n_args: AExprs
+       var n_id: nullable TId = null is writable
+       var n_args: AExprs is writable, noinit
 end
 
 # Whatever is a old-style attribute access
@@ -1357,10 +1619,11 @@ abstract class AAttrFormExpr
        super AExpr
 
        # The receiver of the attribute
-       readable writable var _n_expr: AExpr
+       var n_expr: AExpr is writable, noinit
 
        # The name of the attribute
-       readable writable var _n_id: TAttrid
+       var n_id: TAttrid is writable, noinit
+
 end
 
 # The read of an attribute. eg `x._a`
@@ -1379,10 +1642,10 @@ abstract class ACallFormExpr
        super ASendExpr
 
        # The name of the method
-       readable writable var _n_id: TId
+       var n_id: TId is writable, noinit
 
        # The arguments of the call
-       readable writable var _n_args: AExprs
+       var n_args: AExprs is writable, noinit
 end
 
 # A complex setter call (standard or brackets)
@@ -1413,7 +1676,7 @@ class ACallAssignExpr
 end
 
 # A complex setter call with a standard method-name and any number of arguments. eg `x.m(y)+=z`. OR just a simple complex assignment.
-# Note: because the parser cannot distinguish a variable write with a compex setter call with an implicit receiver and no arguments, it always returns a `ACallReassignExpr`.
+# Note: because the parser cannot distinguish a variable write with a complex setter call with an implicit receiver and no arguments, it always returns a `ACallReassignExpr`.
 # Semantic analysis have to transform them to instance of `AVarReassignExpr`.
 class ACallReassignExpr
        super ACallFormExpr
@@ -1423,23 +1686,23 @@ end
 # A call to `super`. OR a call of a super-constructor
 class ASuperExpr
        super AExpr
-       readable writable var _n_qualified: nullable AQualified = null
-       readable writable var _n_kwsuper: TKwsuper
-       readable writable var _n_args: AExprs
+       var n_qualified: nullable AQualified = null is writable
+       var n_kwsuper: TKwsuper is writable, noinit
+       var n_args: AExprs is writable, noinit
 end
 
 # A call to the `init` constructor.
-# Note: because `init` is a keyword and not a `TId`, the explicit call to init cannot be a ACallFormExpr.
+# Note: because `init` is a keyword and not a `TId`, the explicit call to init cannot be a `ACallFormExpr`.
 class AInitExpr
        super ASendExpr
-       readable writable var _n_kwinit: TKwinit
-       readable writable var _n_args: AExprs
+       var n_kwinit: TKwinit is writable, noinit
+       var n_args: AExprs is writable, noinit
 end
 
 # Whatever looks-like a call of the brackets `[]` operator.
 abstract class ABraFormExpr
        super ASendExpr
-       readable writable var _n_args: AExprs
+       var n_args: AExprs is writable, noinit
 end
 
 # A call of the brackets operator. eg `x[y,z]`
@@ -1456,7 +1719,7 @@ end
 # Whatever is an access to a local variable
 abstract class AVarFormExpr
        super AExpr
-       readable writable var _n_id: TId
+       var n_id: TId is writable, noinit
 end
 
 # A complex setter call of the bracket operator. eg `x[y,z]+=t`
@@ -1471,7 +1734,7 @@ class AVarExpr
        super AVarFormExpr
 end
 
-# A local variable simple assigment access
+# A local variable simple assignment access
 # The parser cannot instantiate them, see `ACallAssignExpr`.
 class AVarAssignExpr
        super AVarFormExpr
@@ -1488,34 +1751,37 @@ end
 # A literal range, open or closed
 abstract class ARangeExpr
        super AExpr
-       readable writable var _n_expr: AExpr
-       readable writable var _n_expr2: AExpr
+       var n_expr: AExpr is writable, noinit
+       var n_expr2: AExpr is writable, noinit
 end
 
 # A closed literal range. eg `[x..y]`
 class ACrangeExpr
        super ARangeExpr
-       readable writable var _n_obra: TObra
-       readable writable var _n_cbra: TCbra
+       var n_obra: TObra is writable, noinit
+       var n_cbra: TCbra is writable, noinit
 end
 
 # An open literal range. eg `[x..y[`
 class AOrangeExpr
        super ARangeExpr
-       readable writable var _n_obra: TObra
-       readable writable var _n_cbra: TObra
+       var n_obra: TObra is writable, noinit
+       var n_cbra: TObra is writable, noinit
 end
 
 # A literal array. eg. `[x,y,z]`
 class AArrayExpr
        super AExpr
-       readable writable var _n_exprs: AExprs
+       var n_obra: TObra is writable, noinit
+       var n_exprs: AExprs is writable, noinit
+       var n_type: nullable AType = null is writable
+       var n_cbra: TCbra is writable, noinit
 end
 
 # A read of `self` 
 class ASelfExpr
        super AExpr
-       readable writable var _n_kwself: nullable TKwself
+       var n_kwself: nullable TKwself is writable
 end
 
 # When there is no explicit receiver, `self` is implicit
@@ -1526,17 +1792,17 @@ end
 # A `true` boolean literal constant
 class ATrueExpr
        super ABoolExpr
-       readable writable var _n_kwtrue: TKwtrue
+       var n_kwtrue: TKwtrue is writable, noinit
 end
 # A `false` boolean literal constant
 class AFalseExpr
        super ABoolExpr
-       readable writable var _n_kwfalse: TKwfalse
+       var n_kwfalse: TKwfalse is writable, noinit
 end
 # A `null` literal constant
 class ANullExpr
        super AExpr
-       readable writable var _n_kwnull: TKwnull
+       var n_kwnull: TKwnull is writable, noinit
 end
 # An integer literal
 class AIntExpr
@@ -1545,27 +1811,27 @@ end
 # An integer literal in decimal format
 class ADecIntExpr
        super AIntExpr
-       readable writable var _n_number: TNumber
+       var n_number: TNumber is writable, noinit
 end
 # An integer literal in hexadecimal format
 class AHexIntExpr
        super AIntExpr
-       readable writable var _n_hex_number: THexNumber
+       var n_hex_number: THexNumber is writable, noinit
 end
 # A float literal
 class AFloatExpr
        super AExpr
-       readable writable var _n_float: TFloat
+       var n_float: TFloat is writable, noinit
 end
 # A character literal
 class ACharExpr
        super AExpr
-       readable writable var _n_char: TChar
+       var n_char: TChar is writable, noinit
 end
 # A string literal
 abstract class AStringFormExpr
        super AExpr
-       readable writable var _n_string: Token
+       var n_string: Token is writable, noinit
 end
 
 # A simple string. eg. `"abc"`
@@ -1589,64 +1855,95 @@ class AEndStringExpr
 end
 
 # A superstring literal. eg `"a{x}b{y}c"`
-# Each part is modelized a sequence of expression. eg. `["a{, x, }b{, y, }c"]`
+# Each part is modeled a sequence of expression. eg. `["a{, x, }b{, y, }c"]`
 class ASuperstringExpr
        super AExpr
-       readable var _n_exprs: ANodes[AExpr] = new ANodes[AExpr](self)
+       var n_exprs = new ANodes[AExpr](self)
 end
 
 # A simple parenthesis. eg `(x)`
 class AParExpr
-       super AProxyExpr
-       readable writable var _n_opar: TOpar
-       readable writable var _n_cpar: TCpar
-end
-
-# Whatevej just contains (and mimic) an other expression
-abstract class AProxyExpr
        super AExpr
-       readable writable var _n_expr: AExpr
+       var n_opar: TOpar is writable, noinit
+       var n_expr: AExpr is writable, noinit
+       var n_cpar: TCpar is writable, noinit
 end
 
 # A type cast. eg `x.as(T)`
 class AAsCastExpr
        super AExpr
-       readable writable var _n_expr: AExpr
-       readable writable var _n_kwas: TKwas
-       readable writable var _n_opar: nullable TOpar = null
-       readable writable var _n_type: AType
-       readable writable var _n_cpar: nullable TCpar = null
+       var n_expr: AExpr is writable, noinit
+       var n_kwas: TKwas is writable, noinit
+       var n_opar: nullable TOpar = null is writable
+       var n_type: AType is writable, noinit
+       var n_cpar: nullable TCpar = null is writable
 end
 
 # A as-not-null cast. eg `x.as(not null)`
 class AAsNotnullExpr
        super AExpr
-       readable writable var _n_expr: AExpr
-       readable writable var _n_kwas: TKwas
-       readable writable var _n_opar: nullable TOpar = null
-       readable writable var _n_kwnot: TKwnot
-       readable writable var _n_kwnull: TKwnull
-       readable writable var _n_cpar: nullable TCpar = null
+       var n_expr: AExpr is writable, noinit
+       var n_kwas: TKwas is writable, noinit
+       var n_opar: nullable TOpar = null is writable
+       var n_kwnot: TKwnot is writable, noinit
+       var n_kwnull: TKwnull is writable, noinit
+       var n_cpar: nullable TCpar = null is writable
 end
 
 # A is-set check of old-style attributes. eg `isset x._a`
 class AIssetAttrExpr
        super AAttrFormExpr
-       readable writable var _n_kwisset: TKwisset
+       var n_kwisset: TKwisset is writable, noinit
+end
+
+# An ellipsis notation used to pass an expression as it, in a vararg parameter
+class AVarargExpr
+       super AExpr
+       var n_expr: AExpr is writable, noinit
+       var n_dotdotdot: TDotdotdot is writable, noinit
 end
 
 # A list of expression separated with commas (arguments for instance)
-abstract class AExprs
-       super Prod 
-       readable var _n_exprs: ANodes[AExpr] = new ANodes[AExpr](self)
+class AManyExpr
+       super AExpr
+       var n_exprs = new ANodes[AExpr](self)
+end
+
+# A special expression that encapsulates a static type
+# Can only be found in special construction like arguments of annotations.
+class ATypeExpr
+       super AExpr
+       var n_type: AType is writable, noinit
 end
 
+# A special expression that encapsulates a method identifier
+# Can only be found in special construction like arguments of annotations.
+class AMethidExpr
+       super AExpr
+       # The receiver, is any
+       var n_expr: AExpr is writable, noinit
+       var n_id: AMethid is writable, noinit
+end
+
+# A special expression that encapsulate an annotation
+# Can only be found in special construction like arguments of annotations.
+class AAtExpr
+       super AExpr
+end
+
+# A special expression to debug types
 class ADebugTypeExpr
        super AExpr
-       readable writable var _n_kwdebug: TKwdebug
-       readable writable var _n_kwtype: TKwtype
-       readable writable var _n_expr: AExpr
-       readable writable var _n_type: AType
+       var n_kwdebug: TKwdebug is writable, noinit
+       var n_kwtype: TKwtype is writable, noinit
+       var n_expr: AExpr is writable, noinit
+       var n_type: AType is writable, noinit
+end
+
+# A list of expression separated with commas (arguments for instance)
+abstract class AExprs
+       super Prod
+       var n_exprs = new ANodes[AExpr](self)
 end
 
 # A simple list of expressions
@@ -1657,119 +1954,121 @@ end
 # A list of expressions enclosed in parentheses
 class AParExprs
        super AExprs
-       readable writable var _n_opar: TOpar
-       readable writable var _n_cpar: TCpar
+       var n_opar: TOpar is writable, noinit
+       var n_cpar: TCpar is writable, noinit
 end
 
 # A list of expressions enclosed in brackets
 class ABraExprs
        super AExprs
-       readable writable var _n_obra: TObra
-       readable writable var _n_cbra: TCbra
+       var n_obra: TObra is writable, noinit
+       var n_cbra: TCbra is writable, noinit
 end
 
-# A complex assignment operator. eg `+=`
+# A complex assignment operator. (`+=` and `-=`)
 abstract class AAssignOp
        super Prod
 end
+
+# The `+=` assignment operation
 class APlusAssignOp
        super AAssignOp
-       readable writable var _n_pluseq: TPluseq
+       var n_pluseq: TPluseq is writable, noinit
 end
+
+# The `-=` assignment operator
 class AMinusAssignOp
        super AAssignOp
-       readable writable var _n_minuseq: TMinuseq
+       var n_minuseq: TMinuseq is writable, noinit
 end
 
+# A possibly fully-qualified module identifier
 class AModuleName
        super Prod
-       readable writable var _n_quad: nullable TQuad = null
-       readable var _n_path: ANodes[TId] = new ANodes[TId](self)
-       readable writable var _n_id: TId
+       var n_quad: nullable TQuad = null is writable
+       var n_path = new ANodes[TId](self)
+       var n_id: TId is writable, noinit
 end
+
+# A language declaration for an extern block
 class AInLanguage
        super Prod
-       readable writable var _n_kwin: TKwin
-       readable writable var _n_string: TString
+       var n_kwin: TKwin is writable, noinit
+       var n_string: TString is writable, noinit
 end
+
+# An full extern block
 class AExternCodeBlock
        super Prod
-       readable writable var _n_in_language: nullable AInLanguage = null
-       readable writable var _n_extern_code_segment: TExternCodeSegment
+       var n_in_language: nullable AInLanguage = null is writable
+       var n_extern_code_segment: TExternCodeSegment is writable, noinit
 end
+
+# A possible full method qualifier.
 class AQualified
        super Prod
-       readable writable var _n_quad: nullable TQuad = null
-       readable var _n_id: ANodes[TId] = new ANodes[TId](self)
-       readable writable var _n_classid: nullable TClassid = null
+       var n_quad: nullable TQuad = null is writable
+       var n_id = new ANodes[TId](self)
+       var n_classid: nullable TClassid = null is writable
 end
 
 # A documentation of a definition
 # It contains the block of comments just above the declaration
 class ADoc
        super Prod
-       readable var _n_comment: ANodes[TComment] = new ANodes[TComment](self)
+       var n_comment = new ANodes[TComment](self)
 end
 
+# A group of annotation on a node
 class AAnnotations
        super Prod
-       readable writable var _n_at: nullable TAt = null
-       readable writable var _n_opar: nullable TOpar = null
-       readable var _n_items: ANodes[AAnnotation] = new ANodes[AAnnotation](self)
-       readable writable var _n_cpar: nullable TCpar = null
+       var n_at: nullable TAt = null is writable
+       var n_opar: nullable TOpar = null is writable
+       var n_items = new ANodes[AAnnotation](self)
+       var n_cpar: nullable TCpar = null is writable
 end
+
+# A single annotation
 class AAnnotation
        super Prod
-       readable writable var _n_atid: AAtid
-       readable writable var _n_opar: nullable TOpar = null
-       readable var _n_args: ANodes[AAtArg] = new ANodes[AAtArg](self)
-       readable writable var _n_cpar: nullable TCpar = null
-end
-abstract class AAtArg
-       super Prod
-end
-class ATypeAtArg
-       super AAtArg
-       readable writable var _n_type: AType
-end
-class AExprAtArg
-       super AAtArg
-       readable writable var _n_expr: AExpr
-end
-class AAtAtArg
-       super AAtArg
+       var n_doc: nullable ADoc = null is writable
+       var n_kwredef: nullable TKwredef = null is writable
+       var n_visibility: nullable AVisibility is writable
+       var n_atid: AAtid is writable, noinit
+       var n_opar: nullable TOpar = null is writable
+       var n_args = new ANodes[AExpr](self)
+       var n_cpar: nullable TCpar = null is writable
 end
+
+# An annotation name
 abstract class AAtid
        super Prod
-       readable writable var _n_id: Token
+       var n_id: Token is writable, noinit
 end
+
+# An annotation name based on an identifier
 class AIdAtid
        super AAtid
 end
+
+# An annotation name based on the keyword `extern`
 class AKwexternAtid
        super AAtid
 end
-class AKwinternAtid
-       super AAtid
-end
-class AKwreadableAtid
-       super AAtid
-end
-class AKwwritableAtid
+
+# An annotation name based on the keyword `import`
+class AKwimportAtid
        super AAtid
 end
-class AKwimportAtid
+
+# An annotation name based on the keyword `abstract`
+class AKwabstractAtid
        super AAtid
 end
 
 # The root of the AST
 class Start
        super Prod
-       readable writable var _n_base: nullable AModule
-       readable writable var _n_eof: EOF
-       init(n_base: nullable AModule, n_eof: EOF)
-       do
-               self._n_base = n_base
-               self._n_eof = n_eof
-       end
+       var n_base: nullable AModule is writable
+       var n_eof: EOF is writable
 end