internal override void RemoveChild(Node child)
{
if (_token_ == child)
{
_token_ = null;
return;
}
if (_type_ == child)
{
_type_ = null;
return;
}
if (_lvalue_ == child)
{
_lvalue_ = null;
return;
}
}
public ADelegateExp(
TDelegate _token_,
PType _type_,
PLvalue _lvalue_
)
{
SetToken(_token_);
SetType(_type_);
SetLvalue(_lvalue_);
}
public void SetToken(TDelegate node)
{
if (_token_ != null)
{
_token_.Parent(null);
}
if (node != null)
{
if (node.Parent() != null)
{
node.Parent().RemoveChild(node);
}
node.Parent(this);
}
_token_ = node;
}
internal override void RemoveChild(Node child)
{
if (_visibility_modifier_ == child)
{
_visibility_modifier_ = null;
return;
}
if (_trigger_ == child)
{
_trigger_ = null;
return;
}
if (_static_ == child)
{
_static_ = null;
return;
}
if (_native_ == child)
{
_native_ = null;
return;
}
if (_inline_ == child)
{
_inline_ = null;
return;
}
if (_delegate_ == child)
{
_delegate_ = null;
return;
}
if (_return_type_ == child)
{
_return_type_ = null;
return;
}
if (_name_ == child)
{
_name_ = null;
return;
}
if (_formals_.Contains(child))
{
_formals_.Remove(child);
return;
}
if (_block_ == child)
{
_block_ = null;
return;
}
}
public void SetDelegate(TDelegate node)
{
if (_delegate_ != null)
{
_delegate_.Parent(null);
}
if (node != null)
{
if (node.Parent() != null)
{
node.Parent().RemoveChild(node);
}
node.Parent(this);
}
_delegate_ = node;
}
public AMethodDecl(
PVisibilityModifier _visibility_modifier_,
TTrigger _trigger_,
TStatic _static_,
TNative _native_,
TInline _inline_,
TDelegate _delegate_,
PType _return_type_,
TIdentifier _name_,
IList _formals_,
PBlock _block_
)
{
SetVisibilityModifier(_visibility_modifier_);
SetTrigger(_trigger_);
SetStatic(_static_);
SetNative(_native_);
SetInline(_inline_);
SetDelegate(_delegate_);
SetReturnType(_return_type_);
SetName(_name_);
this._formals_ = new TypedList(new Formals_Cast(this));
this._formals_.Clear();
this._formals_.AddAll(_formals_);
SetBlock(_block_);
}
public virtual void CaseTDelegate(TDelegate node)
{
DefaultCase(node);
}
public override void CaseTDelegate(TDelegate node)
{
index = 28;
}