-redef class ASuperclass
- init init_asuperclass (
- n_kwsuper: nullable TKwsuper,
- n_type: nullable AType,
- n_annotations: nullable AAnnotations
- )
- do
- _n_kwsuper = n_kwsuper.as(not null)
- n_kwsuper.parent = self
- _n_type = n_type.as(not null)
- n_type.parent = self
- _n_annotations = n_annotations
- if n_annotations != null then n_annotations.parent = self
- end
-
- redef fun replace_child(old_child: ANode, new_child: nullable ANode)
- do
- if _n_kwsuper == old_child then
- n_kwsuper = new_child.as(TKwsuper)
- return
- end
- if _n_type == old_child then
- n_type = new_child.as(AType)
- return
- end
- if _n_annotations == old_child then
- n_annotations = new_child.as(nullable AAnnotations)
- return
- end
- end
-
- redef fun n_kwsuper=(node)
- do
- _n_kwsuper = node
- node.parent = self
- end
- redef fun n_type=(node)
- do
- _n_type = node
- node.parent = self
- end
- redef fun n_annotations=(node)
- do
- _n_annotations = node
- if node != null then node.parent = self
- end
-
-
- redef fun visit_all(v: Visitor)
- do
- v.enter_visit(_n_kwsuper)
- v.enter_visit(_n_type)
- v.enter_visit(_n_annotations)
- end
-end