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

**

** Copyright (C) 2010 Nokia Corporation and/or its subsidiary(-ies).

** 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 <QStringList>

#include "qboolean_p.h"

#include "qcommonvalues_p.h"

#include "qitemmappingiterator_p.h"

#include "qpatternistlocale_p.h"

#include "qatomicstring_p.h"

#include "qpatternmatchingfns_p.h"

QT_BEGIN_NAMESPACE

using namespace QPatternist;

MatchesFN::MatchesFN() : PatternPlatform(2)

{

}

Item MatchesFN::evaluateSingleton(const DynamicContext::Ptr &context) const

{

    const QRegExp regexp(pattern(context));

    QString input;

    const Item arg(m_operands.first()->evaluateSingleton(context));

    if(arg)

        input = arg.stringValue();

    return Boolean::fromValue(input.contains(regexp));

}

ReplaceFN::ReplaceFN() : PatternPlatform(3)

{

}

Item ReplaceFN::evaluateSingleton(const DynamicContext::Ptr &context) const

{

    const QRegExp regexp(pattern(context));

    QString input;

    const Item arg(m_operands.first()->evaluateSingleton(context));

    if(arg)

        input = arg.stringValue();

    const QString replacement(m_replacementString.isNull() ? parseReplacement(regexp.captureCount(), context)

                                                           : m_replacementString);

    return AtomicString::fromValue(input.replace(regexp, replacement));

}

QString ReplaceFN::errorAtEnd(const char ch)

{

    return QtXmlPatterns::tr("%1 must be followed by %2 or %3, not at "

                             "the end of the replacement string.")

                             .arg(formatKeyword(QLatin1Char(ch)))

                             .arg(formatKeyword(QLatin1Char('\\')))

                             .arg(formatKeyword(QLatin1Char('$')));

}

QString ReplaceFN::parseReplacement(const int,

                                    const DynamicContext::Ptr &context) const

{

    // TODO what if there is no groups, can one rewrite to the replacement then?

    const QString input(m_operands.at(2)->evaluateSingleton(context).stringValue());

    QString retval;

    retval.reserve(input.size());

    const int len = input.length();

    for(int i = 0; i < len; ++i)

    {

        const QChar ch(input.at(i));

        switch(ch.toAscii())

        {

            case '$':

            {

                /* QRegExp uses '\' as opposed to '$' for marking sub groups. */

                retval.append(QLatin1Char('\\'));

                ++i;

                if(i == len)

                {

                    context->error(errorAtEnd('$'), ReportContext::FORX0004, this);

                    return QString();

                }

                const QChar nextCh(input.at(i));

                if(nextCh.isDigit())

                    retval.append(nextCh);

                else

                {

                    context->error(QtXmlPatterns::tr("In the replacement string, %1 must be "

                                                     "followed by at least one digit when not escaped.")

                                                     .arg(formatKeyword(QLatin1Char('$'))),

                                                ReportContext::FORX0004, this);

                    return QString();

                }

                break;

            }

            case '\\':

            {

                ++i;

                if(i == len)

                {

                    /* error, we've reached the end. */;

                    context->error(errorAtEnd('\\'), ReportContext::FORX0004, this);

                }

                const QChar nextCh(input.at(i));

                if(nextCh == QLatin1Char('\\') || nextCh == QLatin1Char('$'))

                {

                    retval.append(ch);

                    break;

                }

                else

                {

                    context->error(QtXmlPatterns::tr("In the replacement string, %1 can only be used to "

                                                     "escape itself or %2, not %3")

                                                     .arg(formatKeyword(QLatin1Char('\\')))

                                                     .arg(formatKeyword(QLatin1Char('$')))

                                                     .arg(formatKeyword(nextCh)),

                                               ReportContext::FORX0004, this);

                    return QString();

                }

            }

            default:

                retval.append(ch);

        }

    }

    return retval;

}

Expression::Ptr ReplaceFN::compress(const StaticContext::Ptr &context)

{

    const Expression::Ptr me(PatternPlatform::compress(context));

    if(me != this)

        return me;

    if(m_operands.at(2)->is(IDStringValue))

    {

        const int capt = captureCount();

        if(capt == -1)

            return me;

        else

            m_replacementString = parseReplacement(captureCount(), context->dynamicContext());

    }

    return me;

}

TokenizeFN::TokenizeFN() : PatternPlatform(2)

{

}

/**

 * Used by QAbstractXmlForwardIterator.

 */

static inline bool qIsForwardIteratorEnd(const QString &item)

{

    return item.isNull();

}

Item TokenizeFN::mapToItem(const QString &subject, const DynamicContext::Ptr &) const

{

    return AtomicString::fromValue(subject);

}

Item::Iterator::Ptr TokenizeFN::evaluateSequence(const DynamicContext::Ptr &context) const

{

    const Item arg(m_operands.first()->evaluateSingleton(context));

    if(!arg)

        return CommonValues::emptyIterator;

    const QString input(arg.stringValue());

    if(input.isEmpty())

        return CommonValues::emptyIterator;

    const QRegExp regExp(pattern(context));

    const QStringList result(input.split(regExp, QString::KeepEmptyParts));

    return makeItemMappingIterator<Item>(ConstPtr(this),

                                         makeListIterator(result),

                                         DynamicContext::Ptr());

}

QT_END_NAMESPACE