/****************************************************************************

**

** All rights reserved.

** Contact: Nokia Corporation (qt-info@nokia.com)

**

** This file is part of the QtXmlPatterns module of the Qt Toolkit.

**

** $QT_BEGIN_LICENSE:LGPL$

** No Commercial Usage

** This file contains pre-release code and may not be distributed.

** You may use this file in accordance with the terms and conditions

** contained in the Technology Preview License Agreement accompanying

** this package.

**

** GNU Lesser General Public License Usage

** Alternatively, this file may be used under the terms of the GNU Lesser

** General Public License version 2.1 as published by the Free Software

** Foundation and appearing in the file LICENSE.LGPL included in the

** packaging of this file.  Please review the following information to

** ensure the GNU Lesser General Public License version 2.1 requirements

** will be met: http://www.gnu.org/licenses/old-licenses/lgpl-2.1.html.

**

** In addition, as a special exception, Nokia gives you certain additional

** rights.  These rights are described in the Nokia Qt LGPL Exception

** version 1.1, included in the file LGPL_EXCEPTION.txt in this package.

**

** If you have questions regarding the use of this file, please contact

** Nokia at qt-info@nokia.com.

**

**

**

**

**

**

**

**

** $QT_END_LICENSE$

**

****************************************************************************/

#include "qcallsite_p.h"

#include "qcalltargetdescription_p.h"

QT_BEGIN_NAMESPACE

using namespace QPatternist;

CallTargetDescription::CallTargetDescription(const QXmlName &name) : m_name(name)

{

    Q_ASSERT(!m_name.isNull());

}

QXmlName CallTargetDescription::name() const

{

    return m_name;

}

void CallTargetDescription::checkArgumentsCircularity(CallTargetDescription::List &signList,

                                                      const Expression::Ptr callsite)

{

    /* Check the arguments. */

    const Expression::List ops(callsite->operands());

    const Expression::List::const_iterator end(ops.constEnd());

    Expression::List::const_iterator it(ops.constBegin());

    for(; it != end; ++it)

        checkCallsiteCircularity(signList, *it);

}

void CallTargetDescription::checkCallsiteCircularity(CallTargetDescription::List &signList,

                                                     const Expression::Ptr expr)

{

    Q_ASSERT(expr);

    if(expr->is(Expression::IDUserFunctionCallsite))

    {

        CallTargetDescription::List::const_iterator it(signList.constBegin());

        const CallTargetDescription::List::const_iterator end(signList.constEnd());

        CallSite *const callsite = static_cast<CallSite *>(expr.data());

        for(; it != end; ++it)

        {

            if(callsite->configureRecursion(*it))

            {

                /* A callsite inside the function body to the function. This user function

                 * is recursive if it's to the same function, in other words. Which it was

                 * if configureRecursion() returned true. */

                /* Now we continue and check the arguments of the callsite. That is, the arguments.

                 * This catches for instance local:foo(local:foo(3)). */

                checkArgumentsCircularity(signList, expr);

                return;

            }

        }

        /* Check the body of the function so this callsite isn't "indirectly" a

         * recursive call to the function we're checking. XQTS test case

         * default_namespace-011 is an example of this. */

        signList.append(callsite->callTargetDescription());

        checkCallsiteCircularity(signList, callsite->body());

    }

    checkArgumentsCircularity(signList, expr); /* We're done in this case. */

}

QT_END_NAMESPACE