init init_amodule (
n_moduledecl: nullable AModuledecl,
n_imports: Collection[Object], # Should be Collection[AImport]
+ n_extern_code_blocks: Collection[Object], # Should be Collection[AExternCodeBlock]
n_classdefs: Collection[Object] # Should be Collection[AClassdef]
)
do
_n_imports.add(n)
n.parent = self
end
+ for n in n_extern_code_blocks do
+ assert n isa AExternCodeBlock
+ _n_extern_code_blocks.add(n)
+ n.parent = self
+ end
for n in n_classdefs do
assert n isa AClassdef
_n_classdefs.add(n)
return
end
end
+ for i in [0.._n_extern_code_blocks.length[ do
+ if _n_extern_code_blocks[i] == old_child then
+ if new_child != null then
+ assert new_child isa AExternCodeBlock
+ _n_extern_code_blocks[i] = new_child
+ new_child.parent = self
+ else
+ _n_extern_code_blocks.remove_at(i)
+ end
+ return
+ end
+ end
for i in [0.._n_classdefs.length[ do
if _n_classdefs[i] == old_child then
if new_child != null then
for n in _n_imports do
v.enter_visit(n)
end
+ for n in _n_extern_code_blocks do
+ v.enter_visit(n)
+ end
for n in _n_classdefs do
v.enter_visit(n)
end
n_classkind: nullable AClasskind,
n_id: nullable TClassid,
n_formaldefs: Collection[Object], # Should be Collection[AFormaldef]
+ n_extern_code_block: nullable AExternCodeBlock,
n_superclasses: Collection[Object], # Should be Collection[ASuperclass]
n_propdefs: Collection[Object], # Should be Collection[APropdef]
n_kwend: nullable TKwend
_n_formaldefs.add(n)
n.parent = self
end
+ _n_extern_code_block = n_extern_code_block
+ if n_extern_code_block != null then
+ n_extern_code_block.parent = self
+ end
for n in n_superclasses do
assert n isa ASuperclass
_n_superclasses.add(n)
return
end
end
+ if _n_extern_code_block == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa AExternCodeBlock
+ _n_extern_code_block = new_child
+ else
+ _n_extern_code_block = null
+ end
+ return
+ end
for i in [0.._n_superclasses.length[ do
if _n_superclasses[i] == old_child then
if new_child != null then
for n in _n_formaldefs do
v.enter_visit(n)
end
+ if _n_extern_code_block != null then
+ v.enter_visit(_n_extern_code_block.as(not null))
+ end
for n in _n_superclasses do
v.enter_visit(n)
end
private init empty_init do end
init init_aexternclasskind (
- n_kwextern: nullable TKwextern
+ n_kwextern: nullable TKwextern,
+ n_kwclass: nullable TKwclass
)
do
empty_init
_n_kwextern = n_kwextern.as(not null)
n_kwextern.parent = self
+ _n_kwclass = n_kwclass
+ if n_kwclass != null then
+ n_kwclass.parent = self
+ end
end
redef fun replace_child(old_child: ANode, new_child: nullable ANode)
end
return
end
+ if _n_kwclass == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TKwclass
+ _n_kwclass = new_child
+ else
+ _n_kwclass = null
+ end
+ return
+ end
end
redef fun visit_all(v: Visitor)
do
v.enter_visit(_n_kwextern)
+ if _n_kwclass != null then
+ v.enter_visit(_n_kwclass.as(not null))
+ end
end
end
redef class AFormaldef
private init empty_init do end
init init_asuperclass (
- n_kwspecial: nullable TKwspecial,
n_kwsuper: nullable TKwsuper,
n_type: nullable AType
)
do
empty_init
- _n_kwspecial = n_kwspecial
- if n_kwspecial != null then
- n_kwspecial.parent = self
- end
- _n_kwsuper = n_kwsuper
- if n_kwsuper != null then
- n_kwsuper.parent = self
- end
+ _n_kwsuper = n_kwsuper.as(not null)
+ n_kwsuper.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_kwspecial == old_child then
- if new_child != null then
- new_child.parent = self
- assert new_child isa TKwspecial
- _n_kwspecial = new_child
- else
- _n_kwspecial = null
- end
- return
- end
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
- _n_kwsuper = null
+ abort
end
return
end
redef fun visit_all(v: Visitor)
do
- if _n_kwspecial != null then
- v.enter_visit(_n_kwspecial.as(not null))
- end
- if _n_kwsuper != null then
- v.enter_visit(_n_kwsuper.as(not null))
- end
+ v.enter_visit(_n_kwsuper)
v.enter_visit(_n_type)
end
end
n_methid: nullable AMethid,
n_signature: nullable ASignature,
n_extern: nullable TString,
- n_extern_calls: nullable AExternCalls
+ n_extern_calls: nullable AExternCalls,
+ n_extern_code_block: nullable AExternCodeBlock
)
do
empty_init
if n_extern_calls != null then
n_extern_calls.parent = self
end
+ _n_extern_code_block = n_extern_code_block
+ if n_extern_code_block != null then
+ n_extern_code_block.parent = self
+ end
end
redef fun replace_child(old_child: ANode, new_child: nullable ANode)
end
return
end
+ if _n_extern_code_block == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa AExternCodeBlock
+ _n_extern_code_block = new_child
+ else
+ _n_extern_code_block = null
+ end
+ return
+ end
end
redef fun visit_all(v: Visitor)
if _n_extern_calls != null then
v.enter_visit(_n_extern_calls.as(not null))
end
+ if _n_extern_code_block != null then
+ v.enter_visit(_n_extern_code_block.as(not null))
+ end
end
end
redef class AConcreteMethPropdef
n_methid: nullable AMethid,
n_signature: nullable ASignature,
n_extern: nullable TString,
- n_extern_calls: nullable AExternCalls
+ n_extern_calls: nullable AExternCalls,
+ n_extern_code_block: nullable AExternCodeBlock
)
do
empty_init
if n_extern_calls != null then
n_extern_calls.parent = self
end
+ _n_extern_code_block = n_extern_code_block
+ if n_extern_code_block != null then
+ n_extern_code_block.parent = self
+ end
end
redef fun replace_child(old_child: ANode, new_child: nullable ANode)
end
return
end
+ if _n_extern_code_block == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa AExternCodeBlock
+ _n_extern_code_block = new_child
+ else
+ _n_extern_code_block = null
+ end
+ return
+ end
end
redef fun visit_all(v: Visitor)
if _n_extern_calls != null then
v.enter_visit(_n_extern_calls.as(not null))
end
+ if _n_extern_code_block != null then
+ v.enter_visit(_n_extern_code_block.as(not null))
+ end
end
end
redef class AMainMethPropdef
v.enter_visit(_n_id)
end
end
+redef class ADebugTypeExpr
+ private init empty_init do end
+
+ init init_adebugtypeexpr (
+ n_kwdebug: nullable TKwdebug,
+ n_kwtype: nullable TKwtype,
+ n_expr: nullable AExpr,
+ n_type: nullable AType
+ )
+ do
+ empty_init
+ _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_kwdebug == old_child then
+ if new_child != null then
+ new_child.parent = self
+ 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
+ return
+ end
+ end
+
+ redef fun visit_all(v: Visitor)
+ do
+ v.enter_visit(_n_kwdebug)
+ v.enter_visit(_n_kwtype)
+ v.enter_visit(_n_expr)
+ v.enter_visit(_n_type)
+ end
+end
redef class AListExprs
private init empty_init do end
v.enter_visit(_n_kwnullable)
end
end
+redef class AInLanguage
+ private init empty_init do end
+
+ init init_ainlanguage (
+ n_kwin: nullable TKwin,
+ n_string: nullable TString
+ )
+ do
+ empty_init
+ _n_kwin = n_kwin.as(not null)
+ n_kwin.parent = self
+ _n_string = n_string.as(not null)
+ n_string.parent = self
+ end
+
+ redef fun replace_child(old_child: ANode, new_child: nullable ANode)
+ do
+ if _n_kwin == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TKwin
+ _n_kwin = new_child
+ else
+ abort
+ end
+ return
+ end
+ if _n_string == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TString
+ _n_string = new_child
+ else
+ abort
+ end
+ return
+ end
+ end
+
+ redef fun visit_all(v: Visitor)
+ do
+ v.enter_visit(_n_kwin)
+ v.enter_visit(_n_string)
+ end
+end
+redef class AExternCodeBlock
+ private init empty_init do end
+
+ init init_aexterncodeblock (
+ n_in_language: nullable AInLanguage,
+ n_extern_code_segment: nullable TExternCodeSegment
+ )
+ do
+ empty_init
+ _n_in_language = n_in_language
+ if n_in_language != null then
+ n_in_language.parent = self
+ end
+ _n_extern_code_segment = n_extern_code_segment.as(not null)
+ n_extern_code_segment.parent = self
+ end
+
+ redef fun replace_child(old_child: ANode, new_child: nullable ANode)
+ do
+ if _n_in_language == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa AInLanguage
+ _n_in_language = new_child
+ else
+ _n_in_language = null
+ end
+ return
+ end
+ if _n_extern_code_segment == old_child then
+ if new_child != null then
+ new_child.parent = self
+ assert new_child isa TExternCodeSegment
+ _n_extern_code_segment = new_child
+ else
+ abort
+ end
+ return
+ end
+ end
+
+ redef fun visit_all(v: Visitor)
+ do
+ if _n_in_language != null then
+ v.enter_visit(_n_in_language.as(not null))
+ end
+ v.enter_visit(_n_extern_code_segment)
+ end
+end
redef class AQualified
private init empty_init do end
end
redef class Start
- init(
- n_base: nullable AModule,
- n_eof: EOF)
- do
- _n_base = n_base
- _n_eof = n_eof
- end
-
redef fun replace_child(old_child: ANode, new_child: nullable ANode)
do
if _n_base == old_child then