public virtual void CaseTKeywordTo(TKeywordTo node)
{
DefaultCase(node);
}
internal override void RemoveChild(Node child)
{
if ( _keyword_for_ == child )
{
_keyword_for_ = null;
return;
}
if ( _identifier_ == child )
{
_identifier_ = null;
return;
}
if ( _keyword_from_ == child )
{
_keyword_from_ = null;
return;
}
if ( _a_ == child )
{
_a_ = null;
return;
}
if ( _keyword_to_ == child )
{
_keyword_to_ = null;
return;
}
if ( _b_ == child )
{
_b_ = null;
return;
}
if ( _block_ == child )
{
_block_ = null;
return;
}
}
public AForrange(
TKeywordFor _keyword_for_,
TIdentifier _identifier_,
TKeywordFrom _keyword_from_,
PSimple _a_,
TKeywordTo _keyword_to_,
PSimple _b_,
PBlock _block_
)
{
SetKeywordFor (_keyword_for_);
SetIdentifier (_identifier_);
SetKeywordFrom (_keyword_from_);
SetA (_a_);
SetKeywordTo (_keyword_to_);
SetB (_b_);
SetBlock (_block_);
}
public void SetKeywordTo(TKeywordTo node)
{
if(_keyword_to_ != null)
{
_keyword_to_.Parent(null);
}
if(node != null)
{
if(node.Parent() != null)
{
node.Parent().RemoveChild(node);
}
node.Parent(this);
}
_keyword_to_ = node;
}
public override void CaseTKeywordTo(TKeywordTo node)
{
index = 29;
}