import lexer
intrude import parser_nodes
+private import tables
redef class ANode
# Parent of the node in the AST
# Replace itself with an other node in the AST
fun replace_with(node: ANode)
do
- if (_parent != null) then
+ if _parent != null then
_parent.replace_child(self, node)
end
end
end
# Abstract standard visitor
-class Visitor
+abstract class Visitor
# What the visitor do when a node is visited
# Concrete visitors should redefine this method.
protected fun visit(e: nullable ANode) is abstract
private init empty_init do end
init init_amodule (
- n_packagedecl: nullable APackagedecl,
+ n_moduledecl: nullable AModuledecl,
n_imports: Collection[Object], # Should be Collection[AImport]
n_classdefs: Collection[Object] # Should be Collection[AClassdef]
)
do
empty_init
- _n_packagedecl = n_packagedecl
- if n_packagedecl != null then
- n_packagedecl.parent = self
+ _n_moduledecl = n_moduledecl
+ if n_moduledecl != null then
+ n_moduledecl.parent = self
end
for n in n_imports do
assert n isa AImport
redef fun replace_child(old_child: ANode, new_child: nullable ANode)
do
- if _n_packagedecl == old_child then
+ if _n_moduledecl == old_child then
if new_child != null then
new_child.parent = self
- assert new_child isa APackagedecl
- _n_packagedecl = new_child
+ assert new_child isa AModuledecl
+ _n_moduledecl = new_child
else
- _n_packagedecl = null
+ _n_moduledecl = null
end
return
end
redef fun visit_all(v: Visitor)
do
- if _n_packagedecl != null then
- v.enter_visit(_n_packagedecl.as(not null))
+ if _n_moduledecl != null then
+ v.enter_visit(_n_moduledecl.as(not null))
end
for n in _n_imports do
v.enter_visit(n)
end
end
end
-redef class APackagedecl
+redef class AModuledecl
private init empty_init do end
- init init_apackagedecl (
+ init init_amoduledecl (
n_doc: nullable ADoc,
- n_kwpackage: nullable TKwpackage,
- n_id: nullable TId
+ n_kwmodule: nullable TKwmodule,
+ n_name: nullable AModuleName
)
do
empty_init
if n_doc != null then
n_doc.parent = self
end
- _n_kwpackage = n_kwpackage.as(not null)
- n_kwpackage.parent = self
- _n_id = n_id.as(not null)
- n_id.parent = self
+ _n_kwmodule = n_kwmodule.as(not null)
+ n_kwmodule.parent = self
+ _n_name = n_name.as(not null)
+ n_name.parent = self
end
redef fun replace_child(old_child: ANode, new_child: nullable ANode)
end
return
end
- if _n_kwpackage == old_child then
+ if _n_kwmodule == old_child then
if new_child != null then
new_child.parent = self
- assert new_child isa TKwpackage
- _n_kwpackage = new_child
+ assert new_child isa TKwmodule
+ _n_kwmodule = new_child
else
abort
end
return
end
- if _n_id == old_child then
+ if _n_name == old_child then
if new_child != null then
new_child.parent = self
- assert new_child isa TId
- _n_id = new_child
+ assert new_child isa AModuleName
+ _n_name = new_child
else
abort
end
if _n_doc != null then
v.enter_visit(_n_doc.as(not null))
end
- v.enter_visit(_n_kwpackage)
- v.enter_visit(_n_id)
+ v.enter_visit(_n_kwmodule)
+ v.enter_visit(_n_name)
end
end
redef class AStdImport
init init_astdimport (
n_visibility: nullable AVisibility,
n_kwimport: nullable TKwimport,
- n_id: nullable TId
+ n_name: nullable AModuleName
)
do
empty_init
n_visibility.parent = self
_n_kwimport = n_kwimport.as(not null)
n_kwimport.parent = self
- _n_id = n_id.as(not null)
- n_id.parent = self
+ _n_name = n_name.as(not null)
+ n_name.parent = self
end
redef fun replace_child(old_child: ANode, new_child: nullable ANode)
end
return
end
- if _n_id == old_child then
+ if _n_name == old_child then
if new_child != null then
new_child.parent = self
- assert new_child isa TId
- _n_id = new_child
+ assert new_child isa AModuleName
+ _n_name = new_child
else
abort
end
do
v.enter_visit(_n_visibility)
v.enter_visit(_n_kwimport)
- v.enter_visit(_n_id)
+ v.enter_visit(_n_name)
end
end
redef class ANoImport
n_id: nullable TClassid,
n_formaldefs: Collection[Object], # Should be Collection[AFormaldef]
n_superclasses: Collection[Object], # Should be Collection[ASuperclass]
- n_propdefs: Collection[Object] # Should be Collection[APropdef]
+ n_propdefs: Collection[Object], # Should be Collection[APropdef]
+ n_kwend: nullable TKwend
)
do
empty_init
_n_propdefs.add(n)
n.parent = self
end
+ _n_kwend = n_kwend.as(not null)
+ n_kwend.parent = self
end
redef fun replace_child(old_child: ANode, new_child: nullable ANode)
return
end
end
+ if _n_kwend == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TKwend
+ _n_kwend = new_child
+ else
+ abort
+ end
+ return
+ end
end
redef fun visit_all(v: Visitor)
for n in _n_propdefs do
v.enter_visit(n)
end
+ v.enter_visit(_n_kwend)
end
end
redef class ATopClassdef
v.enter_visit(_n_kwinterface)
end
end
-redef class AUniversalClasskind
+redef class AEnumClasskind
+ private init empty_init do end
+
+ init init_aenumclasskind (
+ n_kwenum: nullable TKwenum
+ )
+ do
+ empty_init
+ _n_kwenum = n_kwenum.as(not null)
+ n_kwenum.parent = self
+ end
+
+ redef fun replace_child(old_child: ANode, new_child: nullable ANode)
+ do
+ if _n_kwenum == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TKwenum
+ _n_kwenum = new_child
+ else
+ abort
+ end
+ return
+ end
+ end
+
+ redef fun visit_all(v: Visitor)
+ do
+ v.enter_visit(_n_kwenum)
+ end
+end
+redef class AExternClasskind
private init empty_init do end
- init init_auniversalclasskind (
- n_kwuniversal: nullable TKwuniversal
+ init init_aexternclasskind (
+ n_kwextern: nullable TKwextern
)
do
empty_init
- _n_kwuniversal = n_kwuniversal.as(not null)
- n_kwuniversal.parent = self
+ _n_kwextern = n_kwextern.as(not null)
+ n_kwextern.parent = self
end
redef fun replace_child(old_child: ANode, new_child: nullable ANode)
do
- if _n_kwuniversal == old_child then
+ if _n_kwextern == old_child then
if new_child != null then
new_child.parent = self
- assert new_child isa TKwuniversal
- _n_kwuniversal = new_child
+ assert new_child isa TKwextern
+ _n_kwextern = new_child
else
abort
end
redef fun visit_all(v: Visitor)
do
- v.enter_visit(_n_kwuniversal)
+ v.enter_visit(_n_kwextern)
end
end
redef class AFormaldef
n_visibility: nullable AVisibility,
n_kwvar: nullable TKwvar,
n_id: nullable TAttrid,
+ n_id2: nullable TId,
n_type: nullable AType,
n_expr: nullable AExpr
)
n_visibility.parent = self
_n_kwvar = n_kwvar.as(not null)
n_kwvar.parent = self
- _n_id = n_id.as(not null)
- n_id.parent = self
+ _n_id = n_id
+ if n_id != null then
+ n_id.parent = self
+ end
+ _n_id2 = n_id2
+ if n_id2 != null then
+ n_id2.parent = self
+ end
_n_type = n_type
if n_type != null then
n_type.parent = self
assert new_child isa TAttrid
_n_id = new_child
else
- abort
+ _n_id = null
+ end
+ return
+ end
+ if _n_id2 == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TId
+ _n_id2 = new_child
+ else
+ _n_id2 = null
end
return
end
end
v.enter_visit(_n_visibility)
v.enter_visit(_n_kwvar)
- v.enter_visit(_n_id)
+ if _n_id != null then
+ v.enter_visit(_n_id.as(not null))
+ end
+ if _n_id2 != null then
+ v.enter_visit(_n_id2.as(not null))
+ end
if _n_type != null then
v.enter_visit(_n_type.as(not null))
end
n_kwmeth: nullable TKwmeth,
n_methid: nullable AMethid,
n_signature: nullable ASignature,
- n_extern: nullable TString
+ n_extern: nullable TString,
+ n_extern_calls: nullable AExternCalls
)
do
empty_init
if n_extern != null then
n_extern.parent = self
end
+ _n_extern_calls = n_extern_calls
+ if n_extern_calls != null then
+ n_extern_calls.parent = self
+ end
end
redef fun replace_child(old_child: ANode, new_child: nullable ANode)
end
return
end
+ if _n_extern_calls == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa AExternCalls
+ _n_extern_calls = new_child
+ else
+ _n_extern_calls = null
+ end
+ return
+ end
end
redef fun visit_all(v: Visitor)
if _n_extern != null then
v.enter_visit(_n_extern.as(not null))
end
+ if _n_extern_calls != null then
+ v.enter_visit(_n_extern_calls.as(not null))
+ end
end
end
redef class AConcreteMethPropdef
end
end
end
+redef class AExternInitPropdef
+ private init empty_init do end
+
+ init init_aexterninitpropdef (
+ n_doc: nullable ADoc,
+ n_kwredef: nullable TKwredef,
+ n_visibility: nullable AVisibility,
+ n_kwnew: nullable TKwnew,
+ n_methid: nullable AMethid,
+ n_signature: nullable ASignature,
+ n_extern: nullable TString,
+ n_extern_calls: nullable AExternCalls
+ )
+ do
+ empty_init
+ _n_doc = n_doc
+ if n_doc != null then
+ n_doc.parent = self
+ end
+ _n_kwredef = n_kwredef
+ if n_kwredef != null then
+ n_kwredef.parent = self
+ end
+ _n_visibility = n_visibility.as(not null)
+ n_visibility.parent = self
+ _n_kwnew = n_kwnew.as(not null)
+ n_kwnew.parent = self
+ _n_methid = n_methid
+ if n_methid != null then
+ n_methid.parent = self
+ end
+ _n_signature = n_signature.as(not null)
+ n_signature.parent = self
+ _n_extern = n_extern
+ if n_extern != null then
+ n_extern.parent = self
+ end
+ _n_extern_calls = n_extern_calls
+ if n_extern_calls != null then
+ n_extern_calls.parent = self
+ end
+ end
+
+ redef fun replace_child(old_child: ANode, new_child: nullable ANode)
+ do
+ if _n_doc == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa ADoc
+ _n_doc = new_child
+ else
+ _n_doc = null
+ end
+ return
+ end
+ if _n_kwredef == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TKwredef
+ _n_kwredef = new_child
+ else
+ _n_kwredef = null
+ end
+ return
+ end
+ if _n_visibility == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa AVisibility
+ _n_visibility = new_child
+ else
+ abort
+ end
+ return
+ end
+ if _n_kwnew == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TKwnew
+ _n_kwnew = new_child
+ else
+ abort
+ end
+ return
+ end
+ if _n_methid == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa AMethid
+ _n_methid = new_child
+ else
+ _n_methid = null
+ end
+ return
+ end
+ if _n_signature == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa ASignature
+ _n_signature = new_child
+ else
+ abort
+ end
+ return
+ end
+ if _n_extern == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TString
+ _n_extern = new_child
+ else
+ _n_extern = null
+ end
+ return
+ end
+ if _n_extern_calls == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa AExternCalls
+ _n_extern_calls = new_child
+ else
+ _n_extern_calls = null
+ end
+ return
+ end
+ end
+
+ redef fun visit_all(v: Visitor)
+ do
+ if _n_doc != null then
+ v.enter_visit(_n_doc.as(not null))
+ end
+ if _n_kwredef != null then
+ v.enter_visit(_n_kwredef.as(not null))
+ end
+ v.enter_visit(_n_visibility)
+ v.enter_visit(_n_kwnew)
+ if _n_methid != null then
+ v.enter_visit(_n_methid.as(not null))
+ end
+ v.enter_visit(_n_signature)
+ if _n_extern != null then
+ v.enter_visit(_n_extern.as(not null))
+ end
+ if _n_extern_calls != null then
+ v.enter_visit(_n_extern_calls.as(not null))
+ end
+ end
+end
redef class AMainMethPropdef
private init empty_init do end
init init_awriteable (
n_kwredef: nullable TKwredef,
+ n_visibility: nullable AVisibility,
n_kwwritable: nullable TKwwritable
)
do
if n_kwredef != null then
n_kwredef.parent = self
end
+ _n_visibility = n_visibility
+ if n_visibility != null then
+ n_visibility.parent = self
+ end
_n_kwwritable = n_kwwritable.as(not null)
n_kwwritable.parent = self
end
end
return
end
+ if _n_visibility == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa AVisibility
+ _n_visibility = new_child
+ else
+ _n_visibility = null
+ end
+ return
+ end
if _n_kwwritable == old_child then
if new_child != null then
new_child.parent = self
if _n_kwredef != null then
v.enter_visit(_n_kwredef.as(not null))
end
+ if _n_visibility != null then
+ v.enter_visit(_n_visibility.as(not null))
+ end
v.enter_visit(_n_kwwritable)
end
end
v.enter_visit(_n_gt)
end
end
-redef class ABraMethid
+redef class ALlMethid
private init empty_init do end
- init init_abramethid (
- n_obra: nullable TObra,
- n_cbra: nullable TCbra
+ init init_allmethid (
+ n_ll: nullable TLl
)
do
empty_init
- _n_obra = n_obra.as(not null)
- n_obra.parent = self
- _n_cbra = n_cbra.as(not null)
- n_cbra.parent = self
+ _n_ll = n_ll.as(not null)
+ n_ll.parent = self
end
redef fun replace_child(old_child: ANode, new_child: nullable ANode)
do
- if _n_obra == old_child then
- if new_child != null then
- new_child.parent = self
- assert new_child isa TObra
- _n_obra = new_child
- else
- abort
- end
- return
- end
- if _n_cbra == old_child then
+ if _n_ll == old_child then
if new_child != null then
new_child.parent = self
- assert new_child isa TCbra
- _n_cbra = new_child
+ assert new_child isa TLl
+ _n_ll = new_child
else
abort
end
redef fun visit_all(v: Visitor)
do
- v.enter_visit(_n_obra)
- v.enter_visit(_n_cbra)
+ v.enter_visit(_n_ll)
end
end
-redef class AStarshipMethid
+redef class AGgMethid
private init empty_init do end
- init init_astarshipmethid (
- n_starship: nullable TStarship
+ init init_aggmethid (
+ n_gg: nullable TGg
)
do
empty_init
- _n_starship = n_starship.as(not null)
- n_starship.parent = self
+ _n_gg = n_gg.as(not null)
+ n_gg.parent = self
+ end
+
+ redef fun replace_child(old_child: ANode, new_child: nullable ANode)
+ do
+ if _n_gg == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TGg
+ _n_gg = new_child
+ else
+ abort
+ end
+ return
+ end
+ end
+
+ redef fun visit_all(v: Visitor)
+ do
+ v.enter_visit(_n_gg)
+ end
+end
+redef class ABraMethid
+ private init empty_init do end
+
+ init init_abramethid (
+ n_obra: nullable TObra,
+ n_cbra: nullable TCbra
+ )
+ do
+ empty_init
+ _n_obra = n_obra.as(not null)
+ n_obra.parent = self
+ _n_cbra = n_cbra.as(not null)
+ n_cbra.parent = self
+ end
+
+ redef fun replace_child(old_child: ANode, new_child: nullable ANode)
+ do
+ if _n_obra == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TObra
+ _n_obra = new_child
+ else
+ abort
+ end
+ return
+ end
+ if _n_cbra == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TCbra
+ _n_cbra = new_child
+ else
+ abort
+ end
+ return
+ end
+ end
+
+ redef fun visit_all(v: Visitor)
+ do
+ v.enter_visit(_n_obra)
+ v.enter_visit(_n_cbra)
+ end
+end
+redef class AStarshipMethid
+ private init empty_init do end
+
+ init init_astarshipmethid (
+ n_starship: nullable TStarship
+ )
+ do
+ empty_init
+ _n_starship = n_starship.as(not null)
+ n_starship.parent = self
end
redef fun replace_child(old_child: ANode, new_child: nullable ANode)
private init empty_init do end
init init_asignature (
+ n_opar: nullable TOpar,
n_params: Collection[Object], # Should be Collection[AParam]
+ n_cpar: nullable TCpar,
n_type: nullable AType,
n_closure_decls: Collection[Object] # Should be Collection[AClosureDecl]
)
do
empty_init
+ _n_opar = n_opar
+ if n_opar != null then
+ n_opar.parent = self
+ end
for n in n_params do
assert n isa AParam
_n_params.add(n)
n.parent = self
end
+ _n_cpar = n_cpar
+ if n_cpar != null then
+ n_cpar.parent = self
+ end
_n_type = n_type
if n_type != null then
n_type.parent = self
redef fun replace_child(old_child: ANode, new_child: nullable ANode)
do
+ if _n_opar == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TOpar
+ _n_opar = new_child
+ else
+ _n_opar = null
+ end
+ return
+ end
for i in [0.._n_params.length[ do
if _n_params[i] == old_child then
if new_child != null then
return
end
end
+ if _n_cpar == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TCpar
+ _n_cpar = new_child
+ else
+ _n_cpar = null
+ end
+ return
+ end
if _n_type == old_child then
if new_child != null then
new_child.parent = self
redef fun visit_all(v: Visitor)
do
+ if _n_opar != null then
+ v.enter_visit(_n_opar.as(not null))
+ end
for n in _n_params do
v.enter_visit(n)
end
+ if _n_cpar != null then
+ v.enter_visit(_n_cpar.as(not null))
+ end
if _n_type != null then
v.enter_visit(_n_type.as(not null))
end
private init empty_init do end
init init_ablockexpr (
- n_expr: Collection[Object] # Should be Collection[AExpr]
+ n_expr: Collection[Object], # Should be Collection[AExpr]
+ n_kwend: nullable TKwend
)
do
empty_init
_n_expr.add(n)
n.parent = self
end
+ _n_kwend = n_kwend
+ if n_kwend != null then
+ n_kwend.parent = self
+ end
end
redef fun replace_child(old_child: ANode, new_child: nullable ANode)
return
end
end
+ if _n_kwend == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TKwend
+ _n_kwend = new_child
+ else
+ _n_kwend = null
+ end
+ return
+ end
end
redef fun visit_all(v: Visitor)
for n in _n_expr do
v.enter_visit(n)
end
+ if _n_kwend != null then
+ v.enter_visit(_n_kwend.as(not null))
+ end
end
end
redef class AVardeclExpr
init init_aforexpr (
n_kwfor: nullable TKwfor,
- n_id: nullable TId,
+ n_ids: Collection[Object], # Should be Collection[TId]
n_expr: nullable AExpr,
n_kwdo: nullable TKwdo,
n_block: nullable AExpr,
empty_init
_n_kwfor = n_kwfor.as(not null)
n_kwfor.parent = self
- _n_id = n_id.as(not null)
- n_id.parent = self
+ for n in n_ids do
+ assert n isa TId
+ _n_ids.add(n)
+ n.parent = self
+ end
_n_expr = n_expr.as(not null)
n_expr.parent = self
_n_kwdo = n_kwdo.as(not null)
end
return
end
- if _n_id == old_child then
- if new_child != null then
- new_child.parent = self
- assert new_child isa TId
- _n_id = new_child
- else
- abort
+ for i in [0.._n_ids.length[ do
+ if _n_ids[i] == old_child then
+ if new_child != null then
+ assert new_child isa TId
+ _n_ids[i] = new_child
+ new_child.parent = self
+ else
+ _n_ids.remove_at(i)
+ end
+ return
end
- return
- end
+ end
if _n_expr == old_child then
if new_child != null then
new_child.parent = self
redef fun visit_all(v: Visitor)
do
v.enter_visit(_n_kwfor)
- v.enter_visit(_n_id)
+ for n in _n_ids do
+ v.enter_visit(n)
+ end
v.enter_visit(_n_expr)
v.enter_visit(_n_kwdo)
if _n_block != null then
v.enter_visit(_n_expr2)
end
end
+redef class AOrElseExpr
+ private init empty_init do end
+
+ init init_aorelseexpr (
+ n_expr: nullable AExpr,
+ n_expr2: nullable AExpr
+ )
+ do
+ empty_init
+ _n_expr = n_expr.as(not null)
+ n_expr.parent = self
+ _n_expr2 = n_expr2.as(not null)
+ n_expr2.parent = self
+ end
+
+ redef fun replace_child(old_child: ANode, new_child: nullable ANode)
+ do
+ if _n_expr == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa AExpr
+ _n_expr = new_child
+ else
+ abort
+ end
+ return
+ end
+ if _n_expr2 == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa AExpr
+ _n_expr2 = new_child
+ else
+ abort
+ end
+ return
+ end
+ end
+
+ redef fun visit_all(v: Visitor)
+ do
+ v.enter_visit(_n_expr)
+ v.enter_visit(_n_expr2)
+ end
+end
redef class ANotExpr
private init empty_init do end
v.enter_visit(_n_expr2)
end
end
-redef class AGtExpr
+redef class ALlExpr
private init empty_init do end
- init init_agtexpr (
+ init init_allexpr (
n_expr: nullable AExpr,
n_expr2: nullable AExpr
)
v.enter_visit(_n_expr2)
end
end
-redef class AGeExpr
+redef class AGtExpr
private init empty_init do end
- init init_ageexpr (
+ init init_agtexpr (
n_expr: nullable AExpr,
n_expr2: nullable AExpr
)
v.enter_visit(_n_expr2)
end
end
-redef class AIsaExpr
+redef class AGeExpr
private init empty_init do end
- init init_aisaexpr (
+ init init_ageexpr (
n_expr: nullable AExpr,
- n_type: nullable AType
+ n_expr2: nullable AExpr
)
do
empty_init
_n_expr = n_expr.as(not null)
n_expr.parent = self
- _n_type = n_type.as(not null)
- n_type.parent = self
+ _n_expr2 = n_expr2.as(not null)
+ n_expr2.parent = self
end
redef fun replace_child(old_child: ANode, new_child: nullable ANode)
end
return
end
- if _n_type == old_child then
+ if _n_expr2 == old_child then
if new_child != null then
new_child.parent = self
- assert new_child isa AType
- _n_type = new_child
+ assert new_child isa AExpr
+ _n_expr2 = new_child
else
abort
end
redef fun visit_all(v: Visitor)
do
v.enter_visit(_n_expr)
- v.enter_visit(_n_type)
+ v.enter_visit(_n_expr2)
end
end
-redef class APlusExpr
+redef class AGgExpr
private init empty_init do end
- init init_aplusexpr (
+ init init_aggexpr (
n_expr: nullable AExpr,
n_expr2: nullable AExpr
)
v.enter_visit(_n_expr2)
end
end
-redef class AMinusExpr
+redef class AIsaExpr
private init empty_init do end
- init init_aminusexpr (
+ init init_aisaexpr (
n_expr: nullable AExpr,
- n_expr2: nullable AExpr
+ n_type: nullable AType
)
do
empty_init
_n_expr = n_expr.as(not null)
n_expr.parent = self
- _n_expr2 = n_expr2.as(not null)
- n_expr2.parent = self
+ _n_type = n_type.as(not null)
+ n_type.parent = self
end
redef fun replace_child(old_child: ANode, new_child: nullable ANode)
end
return
end
- if _n_expr2 == old_child then
+ if _n_type == old_child then
if new_child != null then
new_child.parent = self
- assert new_child isa AExpr
- _n_expr2 = new_child
+ assert new_child isa AType
+ _n_type = new_child
else
abort
end
redef fun visit_all(v: Visitor)
do
v.enter_visit(_n_expr)
- v.enter_visit(_n_expr2)
+ v.enter_visit(_n_type)
end
end
-redef class AStarshipExpr
+redef class APlusExpr
private init empty_init do end
- init init_astarshipexpr (
+ init init_aplusexpr (
n_expr: nullable AExpr,
n_expr2: nullable AExpr
)
v.enter_visit(_n_expr2)
end
end
-redef class AStarExpr
+redef class AMinusExpr
private init empty_init do end
- init init_astarexpr (
+ init init_aminusexpr (
n_expr: nullable AExpr,
n_expr2: nullable AExpr
)
v.enter_visit(_n_expr2)
end
end
-redef class ASlashExpr
+redef class AStarshipExpr
private init empty_init do end
- init init_aslashexpr (
+ init init_astarshipexpr (
n_expr: nullable AExpr,
n_expr2: nullable AExpr
)
v.enter_visit(_n_expr2)
end
end
-redef class APercentExpr
+redef class AStarExpr
private init empty_init do end
- init init_apercentexpr (
+ init init_astarexpr (
n_expr: nullable AExpr,
n_expr2: nullable AExpr
)
v.enter_visit(_n_expr2)
end
end
-redef class AUminusExpr
+redef class ASlashExpr
private init empty_init do end
- init init_auminusexpr (
- n_minus: nullable TMinus,
- n_expr: nullable AExpr
+ init init_aslashexpr (
+ n_expr: nullable AExpr,
+ n_expr2: nullable AExpr
)
do
empty_init
- _n_minus = n_minus.as(not null)
- n_minus.parent = self
_n_expr = n_expr.as(not null)
n_expr.parent = self
+ _n_expr2 = n_expr2.as(not null)
+ n_expr2.parent = self
end
redef fun replace_child(old_child: ANode, new_child: nullable ANode)
do
- if _n_minus == old_child then
+ if _n_expr == old_child then
if new_child != null then
new_child.parent = self
- assert new_child isa TMinus
- _n_minus = new_child
+ assert new_child isa AExpr
+ _n_expr = new_child
else
abort
end
return
end
- if _n_expr == old_child then
+ if _n_expr2 == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa AExpr
+ _n_expr2 = new_child
+ else
+ abort
+ end
+ return
+ end
+ end
+
+ redef fun visit_all(v: Visitor)
+ do
+ v.enter_visit(_n_expr)
+ v.enter_visit(_n_expr2)
+ end
+end
+redef class APercentExpr
+ private init empty_init do end
+
+ init init_apercentexpr (
+ n_expr: nullable AExpr,
+ n_expr2: nullable AExpr
+ )
+ do
+ empty_init
+ _n_expr = n_expr.as(not null)
+ n_expr.parent = self
+ _n_expr2 = n_expr2.as(not null)
+ n_expr2.parent = self
+ end
+
+ redef fun replace_child(old_child: ANode, new_child: nullable ANode)
+ do
+ if _n_expr == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa AExpr
+ _n_expr = new_child
+ else
+ abort
+ end
+ return
+ end
+ if _n_expr2 == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa AExpr
+ _n_expr2 = new_child
+ else
+ abort
+ end
+ return
+ end
+ end
+
+ redef fun visit_all(v: Visitor)
+ do
+ v.enter_visit(_n_expr)
+ v.enter_visit(_n_expr2)
+ end
+end
+redef class AUminusExpr
+ private init empty_init do end
+
+ init init_auminusexpr (
+ n_minus: nullable TMinus,
+ n_expr: nullable AExpr
+ )
+ do
+ empty_init
+ _n_minus = n_minus.as(not null)
+ n_minus.parent = self
+ _n_expr = n_expr.as(not null)
+ n_expr.parent = self
+ end
+
+ redef fun replace_child(old_child: ANode, new_child: nullable ANode)
+ do
+ if _n_minus == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TMinus
+ _n_minus = new_child
+ else
+ abort
+ end
+ return
+ end
+ if _n_expr == old_child then
if new_child != null then
new_child.parent = self
assert new_child isa AExpr
n_kwnew: nullable TKwnew,
n_type: nullable AType,
n_id: nullable TId,
- n_args: Collection[Object] # Should be Collection[AExpr]
+ n_args: nullable AExprs
)
do
empty_init
if n_id != null then
n_id.parent = self
end
- for n in n_args do
- assert n isa AExpr
- _n_args.add(n)
- n.parent = self
- end
+ _n_args = n_args.as(not null)
+ n_args.parent = self
end
redef fun replace_child(old_child: ANode, new_child: nullable ANode)
end
return
end
- for i in [0.._n_args.length[ do
- if _n_args[i] == old_child then
- if new_child != null then
- assert new_child isa AExpr
- _n_args[i] = new_child
- new_child.parent = self
- else
- _n_args.remove_at(i)
- end
- return
+ if _n_args == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa AExprs
+ _n_args = new_child
+ else
+ abort
end
- end
+ return
+ end
end
redef fun visit_all(v: Visitor)
if _n_id != null then
v.enter_visit(_n_id.as(not null))
end
- for n in _n_args do
- v.enter_visit(n)
- end
+ v.enter_visit(_n_args)
end
end
redef class AAttrExpr
init init_acallexpr (
n_expr: nullable AExpr,
n_id: nullable TId,
- n_args: Collection[Object], # Should be Collection[AExpr]
+ n_args: nullable AExprs,
n_closure_defs: Collection[Object] # Should be Collection[AClosureDef]
)
do
n_expr.parent = self
_n_id = n_id.as(not null)
n_id.parent = self
- for n in n_args do
- assert n isa AExpr
- _n_args.add(n)
- n.parent = self
- end
+ _n_args = n_args.as(not null)
+ n_args.parent = self
for n in n_closure_defs do
assert n isa AClosureDef
_n_closure_defs.add(n)
end
return
end
- for i in [0.._n_args.length[ do
- if _n_args[i] == old_child then
- if new_child != null then
- assert new_child isa AExpr
- _n_args[i] = new_child
- new_child.parent = self
- else
- _n_args.remove_at(i)
- end
- return
+ if _n_args == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa AExprs
+ _n_args = new_child
+ else
+ abort
end
- end
+ return
+ end
for i in [0.._n_closure_defs.length[ do
if _n_closure_defs[i] == old_child then
if new_child != null then
do
v.enter_visit(_n_expr)
v.enter_visit(_n_id)
- for n in _n_args do
- v.enter_visit(n)
- end
+ v.enter_visit(_n_args)
for n in _n_closure_defs do
v.enter_visit(n)
end
init init_acallassignexpr (
n_expr: nullable AExpr,
n_id: nullable TId,
- n_args: Collection[Object], # Should be Collection[AExpr]
+ n_args: nullable AExprs,
n_assign: nullable TAssign,
n_value: nullable AExpr
)
n_expr.parent = self
_n_id = n_id.as(not null)
n_id.parent = self
- for n in n_args do
- assert n isa AExpr
- _n_args.add(n)
- n.parent = self
- end
+ _n_args = n_args.as(not null)
+ n_args.parent = self
_n_assign = n_assign.as(not null)
n_assign.parent = self
_n_value = n_value.as(not null)
end
return
end
- for i in [0.._n_args.length[ do
- if _n_args[i] == old_child then
- if new_child != null then
- assert new_child isa AExpr
- _n_args[i] = new_child
- new_child.parent = self
- else
- _n_args.remove_at(i)
- end
- return
+ if _n_args == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa AExprs
+ _n_args = new_child
+ else
+ abort
end
- end
+ return
+ end
if _n_assign == old_child then
if new_child != null then
new_child.parent = self
do
v.enter_visit(_n_expr)
v.enter_visit(_n_id)
- for n in _n_args do
- v.enter_visit(n)
- end
+ v.enter_visit(_n_args)
v.enter_visit(_n_assign)
v.enter_visit(_n_value)
end
init init_acallreassignexpr (
n_expr: nullable AExpr,
n_id: nullable TId,
- n_args: Collection[Object], # Should be Collection[AExpr]
+ n_args: nullable AExprs,
n_assign_op: nullable AAssignOp,
n_value: nullable AExpr
)
n_expr.parent = self
_n_id = n_id.as(not null)
n_id.parent = self
- for n in n_args do
- assert n isa AExpr
- _n_args.add(n)
- n.parent = self
- end
+ _n_args = n_args.as(not null)
+ n_args.parent = self
_n_assign_op = n_assign_op.as(not null)
n_assign_op.parent = self
_n_value = n_value.as(not null)
end
return
end
- for i in [0.._n_args.length[ do
- if _n_args[i] == old_child then
- if new_child != null then
- assert new_child isa AExpr
- _n_args[i] = new_child
- new_child.parent = self
- else
- _n_args.remove_at(i)
- end
- return
+ if _n_args == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa AExprs
+ _n_args = new_child
+ else
+ abort
end
- end
+ return
+ end
if _n_assign_op == old_child then
if new_child != null then
new_child.parent = self
do
v.enter_visit(_n_expr)
v.enter_visit(_n_id)
- for n in _n_args do
- v.enter_visit(n)
- end
+ v.enter_visit(_n_args)
v.enter_visit(_n_assign_op)
v.enter_visit(_n_value)
end
init init_asuperexpr (
n_qualified: nullable AQualified,
n_kwsuper: nullable TKwsuper,
- n_args: Collection[Object] # Should be Collection[AExpr]
+ n_args: nullable AExprs
)
do
empty_init
end
_n_kwsuper = n_kwsuper.as(not null)
n_kwsuper.parent = self
- for n in n_args do
- assert n isa AExpr
- _n_args.add(n)
- n.parent = self
- end
+ _n_args = n_args.as(not null)
+ n_args.parent = self
end
redef fun replace_child(old_child: ANode, new_child: nullable ANode)
end
return
end
- for i in [0.._n_args.length[ do
- if _n_args[i] == old_child then
- if new_child != null then
- assert new_child isa AExpr
- _n_args[i] = new_child
- new_child.parent = self
- else
- _n_args.remove_at(i)
- end
- return
+ if _n_args == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa AExprs
+ _n_args = new_child
+ else
+ abort
end
- end
+ return
+ end
end
redef fun visit_all(v: Visitor)
v.enter_visit(_n_qualified.as(not null))
end
v.enter_visit(_n_kwsuper)
- for n in _n_args do
- v.enter_visit(n)
- end
+ v.enter_visit(_n_args)
end
end
redef class AInitExpr
init init_ainitexpr (
n_expr: nullable AExpr,
n_kwinit: nullable TKwinit,
- n_args: Collection[Object] # Should be Collection[AExpr]
+ n_args: nullable AExprs
)
do
empty_init
n_expr.parent = self
_n_kwinit = n_kwinit.as(not null)
n_kwinit.parent = self
- for n in n_args do
- assert n isa AExpr
- _n_args.add(n)
- n.parent = self
- end
+ _n_args = n_args.as(not null)
+ n_args.parent = self
end
redef fun replace_child(old_child: ANode, new_child: nullable ANode)
end
return
end
- for i in [0.._n_args.length[ do
- if _n_args[i] == old_child then
- if new_child != null then
- assert new_child isa AExpr
- _n_args[i] = new_child
- new_child.parent = self
- else
- _n_args.remove_at(i)
- end
- return
+ if _n_args == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa AExprs
+ _n_args = new_child
+ else
+ abort
end
- end
+ return
+ end
end
redef fun visit_all(v: Visitor)
do
v.enter_visit(_n_expr)
v.enter_visit(_n_kwinit)
- for n in _n_args do
- v.enter_visit(n)
- end
+ v.enter_visit(_n_args)
end
end
redef class ABraExpr
init init_abraexpr (
n_expr: nullable AExpr,
- n_args: Collection[Object], # Should be Collection[AExpr]
+ n_args: nullable AExprs,
n_closure_defs: Collection[Object] # Should be Collection[AClosureDef]
)
do
empty_init
_n_expr = n_expr.as(not null)
n_expr.parent = self
- for n in n_args do
- assert n isa AExpr
- _n_args.add(n)
- n.parent = self
- end
+ _n_args = n_args.as(not null)
+ n_args.parent = self
for n in n_closure_defs do
assert n isa AClosureDef
_n_closure_defs.add(n)
end
return
end
- for i in [0.._n_args.length[ do
- if _n_args[i] == old_child then
- if new_child != null then
- assert new_child isa AExpr
- _n_args[i] = new_child
- new_child.parent = self
- else
- _n_args.remove_at(i)
- end
- return
+ if _n_args == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa AExprs
+ _n_args = new_child
+ else
+ abort
end
- end
+ return
+ end
for i in [0.._n_closure_defs.length[ do
if _n_closure_defs[i] == old_child then
if new_child != null then
redef fun visit_all(v: Visitor)
do
v.enter_visit(_n_expr)
- for n in _n_args do
- v.enter_visit(n)
- end
+ v.enter_visit(_n_args)
for n in _n_closure_defs do
v.enter_visit(n)
end
init init_abraassignexpr (
n_expr: nullable AExpr,
- n_args: Collection[Object], # Should be Collection[AExpr]
+ n_args: nullable AExprs,
n_assign: nullable TAssign,
n_value: nullable AExpr
)
empty_init
_n_expr = n_expr.as(not null)
n_expr.parent = self
- for n in n_args do
- assert n isa AExpr
- _n_args.add(n)
- n.parent = self
- end
+ _n_args = n_args.as(not null)
+ n_args.parent = self
_n_assign = n_assign.as(not null)
n_assign.parent = self
_n_value = n_value.as(not null)
end
return
end
- for i in [0.._n_args.length[ do
- if _n_args[i] == old_child then
- if new_child != null then
- assert new_child isa AExpr
- _n_args[i] = new_child
- new_child.parent = self
- else
- _n_args.remove_at(i)
- end
- return
+ if _n_args == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa AExprs
+ _n_args = new_child
+ else
+ abort
end
- end
+ return
+ end
if _n_assign == old_child then
if new_child != null then
new_child.parent = self
redef fun visit_all(v: Visitor)
do
v.enter_visit(_n_expr)
- for n in _n_args do
- v.enter_visit(n)
- end
+ v.enter_visit(_n_args)
v.enter_visit(_n_assign)
v.enter_visit(_n_value)
end
init init_abrareassignexpr (
n_expr: nullable AExpr,
- n_args: Collection[Object], # Should be Collection[AExpr]
+ n_args: nullable AExprs,
n_assign_op: nullable AAssignOp,
n_value: nullable AExpr
)
empty_init
_n_expr = n_expr.as(not null)
n_expr.parent = self
- for n in n_args do
- assert n isa AExpr
- _n_args.add(n)
- n.parent = self
- end
+ _n_args = n_args.as(not null)
+ n_args.parent = self
_n_assign_op = n_assign_op.as(not null)
n_assign_op.parent = self
_n_value = n_value.as(not null)
end
return
end
- for i in [0.._n_args.length[ do
- if _n_args[i] == old_child then
- if new_child != null then
- assert new_child isa AExpr
- _n_args[i] = new_child
- new_child.parent = self
- else
- _n_args.remove_at(i)
- end
- return
+ if _n_args == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa AExprs
+ _n_args = new_child
+ else
+ abort
end
- end
+ return
+ end
if _n_assign_op == old_child then
if new_child != null then
new_child.parent = self
redef fun visit_all(v: Visitor)
do
v.enter_visit(_n_expr)
- for n in _n_args do
- v.enter_visit(n)
- end
+ v.enter_visit(_n_args)
v.enter_visit(_n_assign_op)
v.enter_visit(_n_value)
end
init init_aclosurecallexpr (
n_id: nullable TId,
- n_args: Collection[Object], # Should be Collection[AExpr]
+ n_args: nullable AExprs,
n_closure_defs: Collection[Object] # Should be Collection[AClosureDef]
)
do
empty_init
_n_id = n_id.as(not null)
n_id.parent = self
- for n in n_args do
- assert n isa AExpr
- _n_args.add(n)
- n.parent = self
- end
+ _n_args = n_args.as(not null)
+ n_args.parent = self
for n in n_closure_defs do
assert n isa AClosureDef
_n_closure_defs.add(n)
end
return
end
- for i in [0.._n_args.length[ do
- if _n_args[i] == old_child then
- if new_child != null then
- assert new_child isa AExpr
- _n_args[i] = new_child
- new_child.parent = self
- else
- _n_args.remove_at(i)
- end
- return
+ if _n_args == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa AExprs
+ _n_args = new_child
+ else
+ abort
end
- end
+ return
+ end
for i in [0.._n_closure_defs.length[ do
if _n_closure_defs[i] == old_child then
if new_child != null then
redef fun visit_all(v: Visitor)
do
v.enter_visit(_n_id)
- for n in _n_args do
- v.enter_visit(n)
- end
+ v.enter_visit(_n_args)
for n in _n_closure_defs do
v.enter_visit(n)
end
private init empty_init do end
init init_acrangeexpr (
+ n_obra: nullable TObra,
n_expr: nullable AExpr,
- n_expr2: nullable AExpr
+ n_expr2: nullable AExpr,
+ n_cbra: nullable TCbra
)
do
empty_init
+ _n_obra = n_obra.as(not null)
+ n_obra.parent = self
_n_expr = n_expr.as(not null)
n_expr.parent = self
_n_expr2 = n_expr2.as(not null)
n_expr2.parent = self
+ _n_cbra = n_cbra.as(not null)
+ n_cbra.parent = self
end
redef fun replace_child(old_child: ANode, new_child: nullable ANode)
do
+ if _n_obra == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TObra
+ _n_obra = new_child
+ else
+ abort
+ end
+ return
+ end
if _n_expr == old_child then
if new_child != null then
new_child.parent = self
end
return
end
+ if _n_cbra == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TCbra
+ _n_cbra = new_child
+ else
+ abort
+ end
+ return
+ end
end
redef fun visit_all(v: Visitor)
do
+ v.enter_visit(_n_obra)
v.enter_visit(_n_expr)
v.enter_visit(_n_expr2)
+ v.enter_visit(_n_cbra)
end
end
redef class AOrangeExpr
private init empty_init do end
init init_aorangeexpr (
+ n_obra: nullable TObra,
n_expr: nullable AExpr,
- n_expr2: nullable AExpr
+ n_expr2: nullable AExpr,
+ n_cbra: nullable TObra
)
do
empty_init
+ _n_obra = n_obra.as(not null)
+ n_obra.parent = self
_n_expr = n_expr.as(not null)
n_expr.parent = self
_n_expr2 = n_expr2.as(not null)
n_expr2.parent = self
+ _n_cbra = n_cbra.as(not null)
+ n_cbra.parent = self
end
redef fun replace_child(old_child: ANode, new_child: nullable ANode)
do
+ if _n_obra == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TObra
+ _n_obra = new_child
+ else
+ abort
+ end
+ return
+ end
if _n_expr == old_child then
if new_child != null then
new_child.parent = self
end
return
end
+ if _n_cbra == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TObra
+ _n_cbra = new_child
+ else
+ abort
+ end
+ return
+ end
end
redef fun visit_all(v: Visitor)
do
+ v.enter_visit(_n_obra)
v.enter_visit(_n_expr)
v.enter_visit(_n_expr2)
+ v.enter_visit(_n_cbra)
end
end
redef class AArrayExpr
private init empty_init do end
init init_aarrayexpr (
- n_exprs: Collection[Object] # Should be Collection[AExpr]
+ n_exprs: nullable AExprs
)
do
empty_init
- for n in n_exprs do
- assert n isa AExpr
- _n_exprs.add(n)
- n.parent = self
- end
+ _n_exprs = n_exprs.as(not null)
+ n_exprs.parent = self
end
redef fun replace_child(old_child: ANode, new_child: nullable ANode)
do
- for i in [0.._n_exprs.length[ do
- if _n_exprs[i] == old_child then
- if new_child != null then
- assert new_child isa AExpr
- _n_exprs[i] = new_child
- new_child.parent = self
- else
- _n_exprs.remove_at(i)
- end
- return
+ if _n_exprs == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa AExprs
+ _n_exprs = new_child
+ else
+ abort
end
- end
+ return
+ end
end
redef fun visit_all(v: Visitor)
do
- for n in _n_exprs do
- v.enter_visit(n)
- end
+ v.enter_visit(_n_exprs)
end
end
redef class ASelfExpr
private init empty_init do end
init init_aparexpr (
- n_expr: nullable AExpr
+ n_opar: nullable TOpar,
+ n_expr: nullable AExpr,
+ n_cpar: nullable TCpar
)
do
empty_init
+ _n_opar = n_opar.as(not null)
+ n_opar.parent = self
_n_expr = n_expr.as(not null)
n_expr.parent = self
+ _n_cpar = n_cpar.as(not null)
+ n_cpar.parent = self
end
redef fun replace_child(old_child: ANode, new_child: nullable ANode)
do
+ if _n_opar == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TOpar
+ _n_opar = new_child
+ else
+ abort
+ end
+ return
+ end
if _n_expr == old_child then
if new_child != null then
new_child.parent = self
end
return
end
+ if _n_cpar == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TCpar
+ _n_cpar = new_child
+ else
+ abort
+ end
+ return
+ end
end
redef fun visit_all(v: Visitor)
do
+ v.enter_visit(_n_opar)
v.enter_visit(_n_expr)
+ v.enter_visit(_n_cpar)
end
end
redef class AAsCastExpr
init init_aascastexpr (
n_expr: nullable AExpr,
n_kwas: nullable TKwas,
- n_type: nullable AType
+ n_opar: nullable TOpar,
+ n_type: nullable AType,
+ n_cpar: nullable TCpar
)
do
empty_init
n_expr.parent = self
_n_kwas = n_kwas.as(not null)
n_kwas.parent = self
+ _n_opar = n_opar.as(not null)
+ n_opar.parent = self
_n_type = n_type.as(not null)
n_type.parent = self
+ _n_cpar = n_cpar.as(not null)
+ n_cpar.parent = self
end
redef fun replace_child(old_child: ANode, new_child: nullable ANode)
end
return
end
+ if _n_opar == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TOpar
+ _n_opar = new_child
+ else
+ abort
+ end
+ return
+ end
if _n_type == old_child then
if new_child != null then
new_child.parent = self
end
return
end
+ if _n_cpar == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TCpar
+ _n_cpar = new_child
+ else
+ abort
+ end
+ return
+ end
end
redef fun visit_all(v: Visitor)
do
v.enter_visit(_n_expr)
v.enter_visit(_n_kwas)
+ v.enter_visit(_n_opar)
v.enter_visit(_n_type)
+ v.enter_visit(_n_cpar)
end
end
redef class AAsNotnullExpr
init init_aasnotnullexpr (
n_expr: nullable AExpr,
n_kwas: nullable TKwas,
+ n_opar: nullable TOpar,
n_kwnot: nullable TKwnot,
- n_kwnull: nullable TKwnull
+ n_kwnull: nullable TKwnull,
+ n_cpar: nullable TCpar
)
do
empty_init
n_expr.parent = self
_n_kwas = n_kwas.as(not null)
n_kwas.parent = self
+ _n_opar = n_opar.as(not null)
+ n_opar.parent = self
_n_kwnot = n_kwnot.as(not null)
n_kwnot.parent = self
_n_kwnull = n_kwnull.as(not null)
n_kwnull.parent = self
+ _n_cpar = n_cpar.as(not null)
+ n_cpar.parent = self
end
redef fun replace_child(old_child: ANode, new_child: nullable ANode)
end
return
end
+ if _n_opar == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TOpar
+ _n_opar = new_child
+ else
+ abort
+ end
+ return
+ end
if _n_kwnot == old_child then
if new_child != null then
new_child.parent = self
end
return
end
+ if _n_cpar == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TCpar
+ _n_cpar = new_child
+ else
+ abort
+ end
+ return
+ end
end
redef fun visit_all(v: Visitor)
do
v.enter_visit(_n_expr)
v.enter_visit(_n_kwas)
+ v.enter_visit(_n_opar)
v.enter_visit(_n_kwnot)
v.enter_visit(_n_kwnull)
+ v.enter_visit(_n_cpar)
end
end
redef class AIssetAttrExpr
v.enter_visit(_n_id)
end
end
-redef class APlusAssignOp
+redef class ADebugTypeExpr
private init empty_init do end
- init init_aplusassignop (
- n_pluseq: nullable TPluseq
+ init init_adebugtypeexpr (
+ n_kwdebug: nullable TKwdebug,
+ n_kwtype: nullable TKwtype,
+ n_expr: nullable AExpr,
+ n_type: nullable AType
)
do
empty_init
- _n_pluseq = n_pluseq.as(not null)
- n_pluseq.parent = self
+ _n_kwdebug = n_kwdebug.as(not null)
+ n_kwdebug.parent = self
+ _n_kwtype = n_kwtype.as(not null)
+ n_kwtype.parent = self
+ _n_expr = n_expr.as(not null)
+ n_expr.parent = self
+ _n_type = n_type.as(not null)
+ n_type.parent = self
end
redef fun replace_child(old_child: ANode, new_child: nullable ANode)
do
- if _n_pluseq == old_child then
+ if _n_kwdebug == old_child then
if new_child != null then
new_child.parent = self
- assert new_child isa TPluseq
- _n_pluseq = new_child
+ assert new_child isa TKwdebug
+ _n_kwdebug = new_child
+ else
+ abort
+ end
+ return
+ end
+ if _n_kwtype == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TKwtype
+ _n_kwtype = new_child
+ else
+ abort
+ end
+ return
+ end
+ if _n_expr == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa AExpr
+ _n_expr = new_child
+ else
+ abort
+ end
+ return
+ end
+ if _n_type == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa AType
+ _n_type = new_child
else
abort
end
redef fun visit_all(v: Visitor)
do
- v.enter_visit(_n_pluseq)
+ v.enter_visit(_n_kwdebug)
+ v.enter_visit(_n_kwtype)
+ v.enter_visit(_n_expr)
+ v.enter_visit(_n_type)
end
end
-redef class AMinusAssignOp
+redef class AListExprs
private init empty_init do end
- init init_aminusassignop (
- n_minuseq: nullable TMinuseq
+ init init_alistexprs (
+ n_exprs: Collection[Object] # Should be Collection[AExpr]
)
do
empty_init
- _n_minuseq = n_minuseq.as(not null)
- n_minuseq.parent = self
+ for n in n_exprs do
+ assert n isa AExpr
+ _n_exprs.add(n)
+ n.parent = self
+ end
end
redef fun replace_child(old_child: ANode, new_child: nullable ANode)
do
- if _n_minuseq == old_child then
- if new_child != null then
- new_child.parent = self
- assert new_child isa TMinuseq
- _n_minuseq = new_child
- else
- abort
+ for i in [0.._n_exprs.length[ do
+ if _n_exprs[i] == old_child then
+ if new_child != null then
+ assert new_child isa AExpr
+ _n_exprs[i] = new_child
+ new_child.parent = self
+ else
+ _n_exprs.remove_at(i)
+ end
+ return
end
- return
- end
+ end
end
redef fun visit_all(v: Visitor)
do
- v.enter_visit(_n_minuseq)
+ for n in _n_exprs do
+ v.enter_visit(n)
+ end
end
end
-redef class AClosureDef
+redef class AParExprs
private init empty_init do end
- init init_aclosuredef (
- n_bang: nullable TBang,
- n_id: nullable AClosureId,
- n_ids: Collection[Object], # Should be Collection[TId]
- n_kwdo: nullable TKwdo,
- n_expr: nullable AExpr,
- n_label: nullable ALabel
+ init init_aparexprs (
+ n_opar: nullable TOpar,
+ n_exprs: Collection[Object], # Should be Collection[AExpr]
+ n_cpar: nullable TCpar
)
do
empty_init
- _n_bang = n_bang.as(not null)
- n_bang.parent = self
- _n_id = n_id.as(not null)
- n_id.parent = self
- for n in n_ids do
- assert n isa TId
- _n_ids.add(n)
+ _n_opar = n_opar.as(not null)
+ n_opar.parent = self
+ for n in n_exprs do
+ assert n isa AExpr
+ _n_exprs.add(n)
n.parent = self
end
- _n_kwdo = n_kwdo
- if n_kwdo != null then
- n_kwdo.parent = self
- end
- _n_expr = n_expr
- if n_expr != null then
- n_expr.parent = self
- end
+ _n_cpar = n_cpar.as(not null)
+ n_cpar.parent = self
+ end
+
+ redef fun replace_child(old_child: ANode, new_child: nullable ANode)
+ do
+ if _n_opar == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TOpar
+ _n_opar = new_child
+ else
+ abort
+ end
+ return
+ end
+ for i in [0.._n_exprs.length[ do
+ if _n_exprs[i] == old_child then
+ if new_child != null then
+ assert new_child isa AExpr
+ _n_exprs[i] = new_child
+ new_child.parent = self
+ else
+ _n_exprs.remove_at(i)
+ end
+ return
+ end
+ end
+ if _n_cpar == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TCpar
+ _n_cpar = new_child
+ else
+ abort
+ end
+ return
+ end
+ end
+
+ redef fun visit_all(v: Visitor)
+ do
+ v.enter_visit(_n_opar)
+ for n in _n_exprs do
+ v.enter_visit(n)
+ end
+ v.enter_visit(_n_cpar)
+ end
+end
+redef class ABraExprs
+ private init empty_init do end
+
+ init init_abraexprs (
+ n_obra: nullable TObra,
+ n_exprs: Collection[Object], # Should be Collection[AExpr]
+ n_cbra: nullable TCbra
+ )
+ do
+ empty_init
+ _n_obra = n_obra.as(not null)
+ n_obra.parent = self
+ for n in n_exprs do
+ assert n isa AExpr
+ _n_exprs.add(n)
+ n.parent = self
+ end
+ _n_cbra = n_cbra.as(not null)
+ n_cbra.parent = self
+ end
+
+ redef fun replace_child(old_child: ANode, new_child: nullable ANode)
+ do
+ if _n_obra == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TObra
+ _n_obra = new_child
+ else
+ abort
+ end
+ return
+ end
+ for i in [0.._n_exprs.length[ do
+ if _n_exprs[i] == old_child then
+ if new_child != null then
+ assert new_child isa AExpr
+ _n_exprs[i] = new_child
+ new_child.parent = self
+ else
+ _n_exprs.remove_at(i)
+ end
+ return
+ end
+ end
+ if _n_cbra == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TCbra
+ _n_cbra = new_child
+ else
+ abort
+ end
+ return
+ end
+ end
+
+ redef fun visit_all(v: Visitor)
+ do
+ v.enter_visit(_n_obra)
+ for n in _n_exprs do
+ v.enter_visit(n)
+ end
+ v.enter_visit(_n_cbra)
+ end
+end
+redef class APlusAssignOp
+ private init empty_init do end
+
+ init init_aplusassignop (
+ n_pluseq: nullable TPluseq
+ )
+ do
+ empty_init
+ _n_pluseq = n_pluseq.as(not null)
+ n_pluseq.parent = self
+ end
+
+ redef fun replace_child(old_child: ANode, new_child: nullable ANode)
+ do
+ if _n_pluseq == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TPluseq
+ _n_pluseq = new_child
+ else
+ abort
+ end
+ return
+ end
+ end
+
+ redef fun visit_all(v: Visitor)
+ do
+ v.enter_visit(_n_pluseq)
+ end
+end
+redef class AMinusAssignOp
+ private init empty_init do end
+
+ init init_aminusassignop (
+ n_minuseq: nullable TMinuseq
+ )
+ do
+ empty_init
+ _n_minuseq = n_minuseq.as(not null)
+ n_minuseq.parent = self
+ end
+
+ redef fun replace_child(old_child: ANode, new_child: nullable ANode)
+ do
+ if _n_minuseq == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TMinuseq
+ _n_minuseq = new_child
+ else
+ abort
+ end
+ return
+ end
+ end
+
+ redef fun visit_all(v: Visitor)
+ do
+ v.enter_visit(_n_minuseq)
+ end
+end
+redef class AClosureDef
+ private init empty_init do end
+
+ init init_aclosuredef (
+ n_bang: nullable TBang,
+ n_id: nullable AClosureId,
+ n_ids: Collection[Object], # Should be Collection[TId]
+ n_kwdo: nullable TKwdo,
+ n_expr: nullable AExpr,
+ n_label: nullable ALabel
+ )
+ do
+ empty_init
+ _n_bang = n_bang.as(not null)
+ n_bang.parent = self
+ _n_id = n_id.as(not null)
+ n_id.parent = self
+ for n in n_ids do
+ assert n isa TId
+ _n_ids.add(n)
+ n.parent = self
+ end
+ _n_kwdo = n_kwdo
+ if n_kwdo != null then
+ n_kwdo.parent = self
+ end
+ _n_expr = n_expr
+ if n_expr != null then
+ n_expr.parent = self
+ end
_n_label = n_label
if n_label != null then
n_label.parent = self
v.enter_visit(_n_kwbreak)
end
end
-redef class AQualified
+redef class AModuleName
private init empty_init do end
- init init_aqualified (
- n_id: Collection[Object], # Should be Collection[TId]
- n_classid: nullable TClassid
+ init init_amodulename (
+ n_quad: nullable TQuad,
+ n_path: Collection[Object], # Should be Collection[TId]
+ n_id: nullable TId
)
do
empty_init
- for n in n_id do
+ _n_quad = n_quad
+ if n_quad != null then
+ n_quad.parent = self
+ end
+ for n in n_path do
assert n isa TId
- _n_id.add(n)
+ _n_path.add(n)
n.parent = self
end
- _n_classid = n_classid
- if n_classid != null then
- n_classid.parent = self
- end
+ _n_id = n_id.as(not null)
+ n_id.parent = self
end
redef fun replace_child(old_child: ANode, new_child: nullable ANode)
do
- for i in [0.._n_id.length[ do
- if _n_id[i] == old_child then
+ if _n_quad == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TQuad
+ _n_quad = new_child
+ else
+ _n_quad = null
+ end
+ return
+ end
+ for i in [0.._n_path.length[ do
+ if _n_path[i] == old_child then
if new_child != null then
assert new_child isa TId
- _n_id[i] = new_child
+ _n_path[i] = new_child
new_child.parent = self
else
- _n_id.remove_at(i)
+ _n_path.remove_at(i)
end
return
end
end
- if _n_classid == old_child then
+ if _n_id == old_child then
if new_child != null then
new_child.parent = self
- assert new_child isa TClassid
- _n_classid = new_child
+ assert new_child isa TId
+ _n_id = new_child
else
- _n_classid = null
+ abort
end
return
end
redef fun visit_all(v: Visitor)
do
- for n in _n_id do
+ if _n_quad != null then
+ v.enter_visit(_n_quad.as(not null))
+ end
+ for n in _n_path do
v.enter_visit(n)
end
- if _n_classid != null then
- v.enter_visit(_n_classid.as(not null))
- end
+ v.enter_visit(_n_id)
end
end
-redef class ADoc
+redef class AExternCalls
private init empty_init do end
- init init_adoc (
- n_comment: Collection[Object] # Should be Collection[TComment]
+ init init_aexterncalls (
+ n_kwimport: nullable TKwimport,
+ n_extern_calls: Collection[Object] # Should be Collection[AExternCall]
)
do
empty_init
- for n in n_comment do
- assert n isa TComment
- _n_comment.add(n)
+ _n_kwimport = n_kwimport.as(not null)
+ n_kwimport.parent = self
+ for n in n_extern_calls do
+ assert n isa AExternCall
+ _n_extern_calls.add(n)
n.parent = self
end
end
redef fun replace_child(old_child: ANode, new_child: nullable ANode)
do
- for i in [0.._n_comment.length[ do
- if _n_comment[i] == old_child then
+ if _n_kwimport == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TKwimport
+ _n_kwimport = new_child
+ else
+ abort
+ end
+ return
+ end
+ for i in [0.._n_extern_calls.length[ do
+ if _n_extern_calls[i] == old_child then
if new_child != null then
- assert new_child isa TComment
- _n_comment[i] = new_child
+ assert new_child isa AExternCall
+ _n_extern_calls[i] = new_child
new_child.parent = self
else
- _n_comment.remove_at(i)
+ _n_extern_calls.remove_at(i)
end
return
end
redef fun visit_all(v: Visitor)
do
- for n in _n_comment do
+ v.enter_visit(_n_kwimport)
+ for n in _n_extern_calls do
v.enter_visit(n)
end
end
end
+redef class AExternCall
+ private init empty_init do end
-redef class Start
- init(
- n_base: nullable AModule,
- n_eof: EOF)
+ init init_aexterncall
+ do
+ empty_init
+ end
+
+ redef fun replace_child(old_child: ANode, new_child: nullable ANode)
+ do
+ end
+
+ redef fun visit_all(v: Visitor)
+ do
+ end
+end
+redef class ASuperExternCall
+ private init empty_init do end
+
+ init init_asuperexterncall (
+ n_kwsuper: nullable TKwsuper
+ )
+ do
+ empty_init
+ _n_kwsuper = n_kwsuper.as(not null)
+ n_kwsuper.parent = self
+ end
+
+ redef fun replace_child(old_child: ANode, new_child: nullable ANode)
+ do
+ if _n_kwsuper == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TKwsuper
+ _n_kwsuper = new_child
+ else
+ abort
+ end
+ return
+ end
+ end
+
+ redef fun visit_all(v: Visitor)
+ do
+ v.enter_visit(_n_kwsuper)
+ end
+end
+redef class ALocalPropExternCall
+ private init empty_init do end
+
+ init init_alocalpropexterncall (
+ n_methid: nullable AMethid
+ )
+ do
+ empty_init
+ _n_methid = n_methid.as(not null)
+ n_methid.parent = self
+ end
+
+ redef fun replace_child(old_child: ANode, new_child: nullable ANode)
+ do
+ if _n_methid == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa AMethid
+ _n_methid = new_child
+ else
+ abort
+ end
+ return
+ end
+ end
+
+ redef fun visit_all(v: Visitor)
+ do
+ v.enter_visit(_n_methid)
+ end
+end
+redef class AFullPropExternCall
+ private init empty_init do end
+
+ init init_afullpropexterncall (
+ n_classid: nullable TClassid,
+ n_quad: nullable TQuad,
+ n_methid: nullable AMethid
+ )
+ do
+ empty_init
+ _n_classid = n_classid.as(not null)
+ n_classid.parent = self
+ _n_quad = n_quad
+ if n_quad != null then
+ n_quad.parent = self
+ end
+ _n_methid = n_methid.as(not null)
+ n_methid.parent = self
+ end
+
+ redef fun replace_child(old_child: ANode, new_child: nullable ANode)
+ do
+ if _n_classid == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TClassid
+ _n_classid = new_child
+ else
+ abort
+ end
+ return
+ end
+ if _n_quad == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TQuad
+ _n_quad = new_child
+ else
+ _n_quad = null
+ end
+ return
+ end
+ if _n_methid == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa AMethid
+ _n_methid = new_child
+ else
+ abort
+ end
+ return
+ end
+ end
+
+ redef fun visit_all(v: Visitor)
+ do
+ v.enter_visit(_n_classid)
+ if _n_quad != null then
+ v.enter_visit(_n_quad.as(not null))
+ end
+ v.enter_visit(_n_methid)
+ end
+end
+redef class AInitPropExternCall
+ private init empty_init do end
+
+ init init_ainitpropexterncall (
+ n_classid: nullable TClassid
+ )
+ do
+ empty_init
+ _n_classid = n_classid.as(not null)
+ n_classid.parent = self
+ end
+
+ redef fun replace_child(old_child: ANode, new_child: nullable ANode)
+ do
+ if _n_classid == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TClassid
+ _n_classid = new_child
+ else
+ abort
+ end
+ return
+ end
+ end
+
+ redef fun visit_all(v: Visitor)
+ do
+ v.enter_visit(_n_classid)
+ end
+end
+redef class ACastAsExternCall
+ private init empty_init do end
+
+ init init_acastasexterncall (
+ n_from_type: nullable AType,
+ n_kwas: nullable TKwas,
+ n_to_type: nullable AType
+ )
+ do
+ empty_init
+ _n_from_type = n_from_type.as(not null)
+ n_from_type.parent = self
+ _n_kwas = n_kwas.as(not null)
+ n_kwas.parent = self
+ _n_to_type = n_to_type.as(not null)
+ n_to_type.parent = self
+ end
+
+ redef fun replace_child(old_child: ANode, new_child: nullable ANode)
+ do
+ if _n_from_type == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa AType
+ _n_from_type = new_child
+ else
+ abort
+ end
+ return
+ end
+ if _n_kwas == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TKwas
+ _n_kwas = new_child
+ else
+ abort
+ end
+ return
+ end
+ if _n_to_type == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa AType
+ _n_to_type = new_child
+ else
+ abort
+ end
+ return
+ end
+ end
+
+ redef fun visit_all(v: Visitor)
+ do
+ v.enter_visit(_n_from_type)
+ v.enter_visit(_n_kwas)
+ v.enter_visit(_n_to_type)
+ end
+end
+redef class AAsNullableExternCall
+ private init empty_init do end
+
+ init init_aasnullableexterncall (
+ n_type: nullable AType,
+ n_kwas: nullable TKwas,
+ n_kwnullable: nullable TKwnullable
+ )
+ do
+ empty_init
+ _n_type = n_type.as(not null)
+ n_type.parent = self
+ _n_kwas = n_kwas.as(not null)
+ n_kwas.parent = self
+ _n_kwnullable = n_kwnullable.as(not null)
+ n_kwnullable.parent = self
+ end
+
+ redef fun replace_child(old_child: ANode, new_child: nullable ANode)
do
- _n_base = n_base
- _n_eof = n_eof
+ if _n_type == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa AType
+ _n_type = new_child
+ else
+ abort
+ end
+ return
+ end
+ if _n_kwas == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TKwas
+ _n_kwas = new_child
+ else
+ abort
+ end
+ return
+ end
+ if _n_kwnullable == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TKwnullable
+ _n_kwnullable = new_child
+ else
+ abort
+ end
+ return
+ end
end
+ redef fun visit_all(v: Visitor)
+ do
+ v.enter_visit(_n_type)
+ v.enter_visit(_n_kwas)
+ v.enter_visit(_n_kwnullable)
+ end
+end
+redef class AAsNotNullableExternCall
+ private init empty_init do end
+
+ init init_aasnotnullableexterncall (
+ n_type: nullable AType,
+ n_kwas: nullable TKwas,
+ n_kwnot: nullable TKwnot,
+ n_kwnullable: nullable TKwnullable
+ )
+ do
+ empty_init
+ _n_type = n_type.as(not null)
+ n_type.parent = self
+ _n_kwas = n_kwas.as(not null)
+ n_kwas.parent = self
+ _n_kwnot = n_kwnot.as(not null)
+ n_kwnot.parent = self
+ _n_kwnullable = n_kwnullable.as(not null)
+ n_kwnullable.parent = self
+ end
+
+ redef fun replace_child(old_child: ANode, new_child: nullable ANode)
+ do
+ if _n_type == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa AType
+ _n_type = new_child
+ else
+ abort
+ end
+ return
+ end
+ if _n_kwas == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TKwas
+ _n_kwas = new_child
+ else
+ abort
+ end
+ return
+ end
+ if _n_kwnot == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TKwnot
+ _n_kwnot = new_child
+ else
+ abort
+ end
+ return
+ end
+ if _n_kwnullable == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TKwnullable
+ _n_kwnullable = new_child
+ else
+ abort
+ end
+ return
+ end
+ end
+
+ redef fun visit_all(v: Visitor)
+ do
+ v.enter_visit(_n_type)
+ v.enter_visit(_n_kwas)
+ v.enter_visit(_n_kwnot)
+ v.enter_visit(_n_kwnullable)
+ end
+end
+redef class AQualified
+ private init empty_init do end
+
+ init init_aqualified (
+ n_id: Collection[Object], # Should be Collection[TId]
+ n_classid: nullable TClassid
+ )
+ do
+ empty_init
+ for n in n_id do
+ assert n isa TId
+ _n_id.add(n)
+ n.parent = self
+ end
+ _n_classid = n_classid
+ if n_classid != null then
+ n_classid.parent = self
+ end
+ end
+
+ redef fun replace_child(old_child: ANode, new_child: nullable ANode)
+ do
+ for i in [0.._n_id.length[ do
+ if _n_id[i] == old_child then
+ if new_child != null then
+ assert new_child isa TId
+ _n_id[i] = new_child
+ new_child.parent = self
+ else
+ _n_id.remove_at(i)
+ end
+ return
+ end
+ end
+ if _n_classid == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TClassid
+ _n_classid = new_child
+ else
+ _n_classid = null
+ end
+ return
+ end
+ end
+
+ redef fun visit_all(v: Visitor)
+ do
+ for n in _n_id do
+ v.enter_visit(n)
+ end
+ if _n_classid != null then
+ v.enter_visit(_n_classid.as(not null))
+ end
+ end
+end
+redef class ADoc
+ private init empty_init do end
+
+ init init_adoc (
+ n_comment: Collection[Object] # Should be Collection[TComment]
+ )
+ do
+ empty_init
+ for n in n_comment do
+ assert n isa TComment
+ _n_comment.add(n)
+ n.parent = self
+ end
+ end
+
+ redef fun replace_child(old_child: ANode, new_child: nullable ANode)
+ do
+ for i in [0.._n_comment.length[ do
+ if _n_comment[i] == old_child then
+ if new_child != null then
+ assert new_child isa TComment
+ _n_comment[i] = new_child
+ new_child.parent = self
+ else
+ _n_comment.remove_at(i)
+ end
+ return
+ end
+ end
+ end
+
+ redef fun visit_all(v: Visitor)
+ do
+ for n in _n_comment do
+ v.enter_visit(n)
+ end
+ end
+end
+
+redef class Start
redef fun replace_child(old_child: ANode, new_child: nullable ANode)
do
if _n_base == old_child then