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

**

** Copyright (C) 2008 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 "qxsdschemadebugger_p.h"

QT_BEGIN_NAMESPACE

using namespace QPatternist;

XsdSchemaDebugger::XsdSchemaDebugger(const NamePool::Ptr &namePool)

    : m_namePool(namePool)

{

}

void XsdSchemaDebugger::dumpParticle(const XsdParticle::Ptr &particle, int level)

{

    QString prefix; prefix.fill(QLatin1Char(' '), level);

    qDebug("%s min=%s max=%s", qPrintable(prefix), qPrintable(QString::number(particle->minimumOccurs())),

                               qPrintable(particle->maximumOccursUnbounded() ? QLatin1String("unbounded") : QString::number(particle->maximumOccurs())));

    if (particle->term()->isElement()) {

        qDebug("%selement (%s)", qPrintable(prefix), qPrintable(XsdElement::Ptr(particle->term())->displayName(m_namePool)));

    } else if (particle->term()->isModelGroup()) {

        const XsdModelGroup::Ptr group(particle->term());

        if (group->compositor() == XsdModelGroup::SequenceCompositor) {

            qDebug("%ssequence", qPrintable(prefix));

        } else if (group->compositor() == XsdModelGroup::AllCompositor) {

            qDebug("%sall", qPrintable(prefix));

        } else if (group->compositor() == XsdModelGroup::ChoiceCompositor) {

            qDebug("%schoice", qPrintable(prefix));

        }

        for (int i = 0; i < group->particles().count(); ++i)

            dumpParticle(group->particles().at(i), level + 5);

    } else if (particle->term()->isWildcard()) {

        XsdWildcard::Ptr wildcard(particle->term());

        qDebug("%swildcard (process=%d)", qPrintable(prefix), wildcard->processContents());

    }

}

void XsdSchemaDebugger::dumpInheritance(const SchemaType::Ptr &type, int level)

{

    QString prefix; prefix.fill(QLatin1Char(' '), level);

    qDebug("%s-->%s", qPrintable(prefix), qPrintable(type->displayName(m_namePool)));

    if (type->wxsSuperType())

        dumpInheritance(type->wxsSuperType(), ++level);

}

void XsdSchemaDebugger::dumpWildcard(const XsdWildcard::Ptr &wildcard)

{

    QVector<QString> varietyNames;

    varietyNames.append(QLatin1String("Any"));

    varietyNames.append(QLatin1String("Enumeration"));

    varietyNames.append(QLatin1String("Not"));

    QVector<QString> processContentsNames;

    processContentsNames.append(QLatin1String("Strict"));

    processContentsNames.append(QLatin1String("Lax"));

    processContentsNames.append(QLatin1String("Skip"));

    qDebug("      processContents: %s", qPrintable(processContentsNames.at((int)wildcard->processContents())));

    const XsdWildcard::NamespaceConstraint::Ptr constraint = wildcard->namespaceConstraint();

    qDebug("      variety: %s", qPrintable(varietyNames.at((int)constraint->variety())));

    if (constraint->variety() != XsdWildcard::NamespaceConstraint::Any)

        qDebug() << "      namespaces:" << constraint->namespaces();

}

void XsdSchemaDebugger::dumpType(const SchemaType::Ptr &type)

{

    if (type->isComplexType()) {

        const XsdComplexType::Ptr complexType(type);

        qDebug("\n+++ Complex Type +++");

        qDebug("Name: %s (abstract: %s)", qPrintable(complexType->displayName(m_namePool)), complexType->isAbstract() ? "yes" : "no");

        if (complexType->wxsSuperType())

            qDebug("  base type: %s", qPrintable(complexType->wxsSuperType()->displayName(m_namePool)));

        else

            qDebug("  base type: (none)");

        if (complexType->contentType()->variety() == XsdComplexType::ContentType::Empty)

            qDebug("  content type: empty");

        if (complexType->contentType()->variety() == XsdComplexType::ContentType::Simple)

            qDebug("  content type: simple");

        if (complexType->contentType()->variety() == XsdComplexType::ContentType::ElementOnly)

            qDebug("  content type: element-only");

        if (complexType->contentType()->variety() == XsdComplexType::ContentType::Mixed)

            qDebug("  content type: mixed");

        if (complexType->contentType()->variety() == XsdComplexType::ContentType::Simple) {

            if (complexType->contentType()->simpleType())

                qDebug("  simple type: %s", qPrintable(complexType->contentType()->simpleType()->displayName(m_namePool)));

            else

                qDebug("  simple type: (none)");

        }

        const XsdAttributeUse::List uses = complexType->attributeUses();

        qDebug("   %d attributes", uses.count());

        for (int i = 0; i < uses.count(); ++i) {

            qDebug("      attr: %s", qPrintable(uses.at(i)->attribute()->displayName(m_namePool)));

        }

        qDebug("   has attribute wildcard: %s", complexType->attributeWildcard() ? "yes" : "no");

        if (complexType->attributeWildcard()) {

            dumpWildcard(complexType->attributeWildcard());

        }

        if (complexType->contentType()->particle()) {

            dumpParticle(complexType->contentType()->particle(), 5);

        }

    } else {

        qDebug("\n+++ Simple Type +++");

        qDebug("Name: %s", qPrintable(type->displayName(m_namePool)));

        if (type->isDefinedBySchema()) {

            const XsdSimpleType::Ptr simpleType(type);

            if (simpleType->primitiveType())

                qDebug("  primitive type: %s", qPrintable(simpleType->primitiveType()->displayName(m_namePool)));

            else

                qDebug("  primitive type: (none)");

        }

        dumpInheritance(type, 0);

    }

}

void XsdSchemaDebugger::dumpElement(const XsdElement::Ptr &element)

{

    QStringList disallowedSubstGroup;

    if (element->disallowedSubstitutions() & XsdElement::RestrictionConstraint)

        disallowedSubstGroup << QLatin1String("restriction");

    if (element->disallowedSubstitutions() & XsdElement::ExtensionConstraint)

        disallowedSubstGroup << QLatin1String("extension");

    if (element->disallowedSubstitutions() & XsdElement::SubstitutionConstraint)

        disallowedSubstGroup << QLatin1String("substitution");

    qDebug() << "Name:" << element->displayName(m_namePool);

    qDebug() << "IsAbstract:" << (element->isAbstract() ? "yes" : "no");

    qDebug() << "Type:" << element->type()->displayName(m_namePool);

    qDebug() << "DisallowedSubstitutionGroups:" << disallowedSubstGroup.join(QLatin1String("' "));

}

void XsdSchemaDebugger::dumpAttribute(const XsdAttribute::Ptr &attribute)

{

    qDebug() << "Name:" << attribute->displayName(m_namePool);

    qDebug() << "Type:" << attribute->type()->displayName(m_namePool);

}

void XsdSchemaDebugger::dumpSchema(const XsdSchema::Ptr &schema)

{

    qDebug() << "------------------------------ Schema -------------------------------";

    // elements

    {

        qDebug() << "Global Elements:";

        const XsdElement::List elements = schema->elements();

        for (int i = 0; i < elements.count(); ++i) {

            dumpElement(elements.at(i));

        }

    }

    // attributes

    {

        qDebug() << "Global Attributes:";

        const XsdAttribute::List attributes = schema->attributes();

        for (int i = 0; i < attributes.count(); ++i) {

            dumpAttribute(attributes.at(i));

        }

    }

    // types

    {

        qDebug() << "Global Types:";

        const SchemaType::List types = schema->types();

        for (int i = 0; i < types.count(); ++i) {

            dumpType(types.at(i));

        }

    }

    // anonymous types

    {

        qDebug() << "Anonymous Types:";

        const SchemaType::List types = schema->anonymousTypes();

        for (int i = 0; i < types.count(); ++i) {

            dumpType(types.at(i));

        }

    }

    qDebug() << "+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++";

}

QT_END_NAMESPACE