internal override void RemoveChild(Node child)
{
if ( _keyword_func_ == child )
{
_keyword_func_ = null;
return;
}
if ( _identifier_ == child )
{
_identifier_ = null;
return;
}
if ( _operator_opening_parenthesis_ == child )
{
_operator_opening_parenthesis_ = null;
return;
}
if ( _parameterlist_ == child )
{
_parameterlist_ = null;
return;
}
if ( _operator_closing_parenthesis_ == child )
{
_operator_closing_parenthesis_ = null;
return;
}
if ( _block_ == child )
{
_block_ = null;
return;
}
}
public virtual void CaseTOperatorClosingParenthesis(TOperatorClosingParenthesis node)
{
DefaultCase(node);
}
public AFunctiondeclaration(
TKeywordFunc _keyword_func_,
TIdentifier _identifier_,
TOperatorOpeningParenthesis _operator_opening_parenthesis_,
PParameterlist _parameterlist_,
TOperatorClosingParenthesis _operator_closing_parenthesis_,
PBlock _block_
)
{
SetKeywordFunc (_keyword_func_);
SetIdentifier (_identifier_);
SetOperatorOpeningParenthesis (_operator_opening_parenthesis_);
SetParameterlist (_parameterlist_);
SetOperatorClosingParenthesis (_operator_closing_parenthesis_);
SetBlock (_block_);
}
public void SetOperatorClosingParenthesis(TOperatorClosingParenthesis node)
{
if(_operator_closing_parenthesis_ != null)
{
_operator_closing_parenthesis_.Parent(null);
}
if(node != null)
{
if(node.Parent() != null)
{
node.Parent().RemoveChild(node);
}
node.Parent(this);
}
_operator_closing_parenthesis_ = node;
}
public AFunction(
TKeywordFunc _keyword_func_,
TOperatorOpeningParenthesis _operator_opening_parenthesis_,
TOperatorClosingParenthesis _operator_closing_parenthesis_,
PType _type_,
PBlock _block_
)
{
SetKeywordFunc (_keyword_func_);
SetOperatorOpeningParenthesis (_operator_opening_parenthesis_);
SetOperatorClosingParenthesis (_operator_closing_parenthesis_);
SetType (_type_);
SetBlock (_block_);
}
internal override void RemoveChild(Node child)
{
if ( _keyword_func_ == child )
{
_keyword_func_ = null;
return;
}
if ( _operator_opening_parenthesis_ == child )
{
_operator_opening_parenthesis_ = null;
return;
}
if ( _operator_closing_parenthesis_ == child )
{
_operator_closing_parenthesis_ = null;
return;
}
if ( _type_ == child )
{
_type_ = null;
return;
}
if ( _block_ == child )
{
_block_ = null;
return;
}
}
internal override void RemoveChild(Node child)
{
if ( _simple_ == child )
{
_simple_ = null;
return;
}
if ( _operator_opening_parenthesis_ == child )
{
_operator_opening_parenthesis_ = null;
return;
}
if ( _argumentlist_ == child )
{
_argumentlist_ = null;
return;
}
if ( _operator_closing_parenthesis_ == child )
{
_operator_closing_parenthesis_ = null;
return;
}
}
public ACall(
PSimple _simple_,
TOperatorOpeningParenthesis _operator_opening_parenthesis_,
PArgumentlist _argumentlist_,
TOperatorClosingParenthesis _operator_closing_parenthesis_
)
{
SetSimple (_simple_);
SetOperatorOpeningParenthesis (_operator_opening_parenthesis_);
SetArgumentlist (_argumentlist_);
SetOperatorClosingParenthesis (_operator_closing_parenthesis_);
}
internal override void RemoveChild(Node child)
{
if ( _operator_opening_parenthesis_ == child )
{
_operator_opening_parenthesis_ = null;
return;
}
if ( _expression_ == child )
{
_expression_ = null;
return;
}
if ( _newline_ == child )
{
_newline_ = null;
return;
}
if ( _operator_closing_parenthesis_ == child )
{
_operator_closing_parenthesis_ = null;
return;
}
}
public AParenthetical(
TOperatorOpeningParenthesis _operator_opening_parenthesis_,
PExpression _expression_,
TNewline _newline_,
TOperatorClosingParenthesis _operator_closing_parenthesis_
)
{
SetOperatorOpeningParenthesis (_operator_opening_parenthesis_);
SetExpression (_expression_);
SetNewline (_newline_);
SetOperatorClosingParenthesis (_operator_closing_parenthesis_);
}
public override void CaseTOperatorClosingParenthesis(TOperatorClosingParenthesis node)
{
index = 2;
}