/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
/*
 * This file is part of the LibreOffice project.
 *
 * This Source Code Form is subject to the terms of the Mozilla Public
 * License, v. 2.0. If a copy of the MPL was not distributed with this
 * file, You can obtain one at http://mozilla.org/MPL/2.0/.
 *
 * This file incorporates work covered by the following license notice:
 *
 *   Licensed to the Apache Software Foundation (ASF) under one or more
 *   contributor license agreements. See the NOTICE file distributed
 *   with this work for additional information regarding copyright
 *   ownership. The ASF licenses this file to you under the Apache
 *   License, Version 2.0 (the "License"); you may not use this file
 *   except in compliance with the License. You may obtain a copy of
 *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
 */

#include <cppuhelper/implbase.hxx>
#include <cppuhelper/supportsservice.hxx>
#include <com/sun/star/lang/XServiceInfo.hpp>
#include <com/sun/star/lang/XInitialization.hpp>
#include <com/sun/star/rdf/XURI.hpp>
#include <com/sun/star/rdf/URIs.hpp>
#include <com/sun/star/uno/XComponentContext.hpp>

#include <com/sun/star/lang/IllegalArgumentException.hpp>


/// anonymous implementation namespace
namespace {

class CURI:
    public ::cppu::WeakImplHelper<
        css::lang::XServiceInfo,
        css::lang::XInitialization,
        css::rdf::XURI>
{
public:
    explicit CURI();

    // css::lang::XServiceInfo:
    virtual OUString SAL_CALL getImplementationName() override;
    virtual sal_Bool SAL_CALL supportsService(const OUString & ServiceName) override;
    virtual css::uno::Sequence< OUString > SAL_CALL getSupportedServiceNames() override;

    // css::lang::XInitialization:
    virtual void SAL_CALL initialize(const css::uno::Sequence< css::uno::Any > & aArguments) override;

    // css::rdf::XNode:
    virtual OUString SAL_CALL getStringValue() override;

    // css::rdf::XURI:
    virtual OUString SAL_CALL getLocalName() override;
    virtual OUString SAL_CALL getNamespace() override;

private:
    CURI(CURI const&) = delete;
    CURI& operator=(CURI const&) = delete;

    /// handle css.rdf.URIs
    void initFromConstant(const sal_Int16 i_Constant);

    OUString m_Namespace;
    OUString m_LocalName;
};

CURI::CURI()
{}

// com.sun.star.uno.XServiceInfo:
OUString SAL_CALL CURI::getImplementationName()
{
    return u"CURI"_ustr;
}

sal_Bool SAL_CALL CURI::supportsService(OUString const & serviceName)
{
    return cppu::supportsService(this, serviceName);
}

css::uno::Sequence< OUString > SAL_CALL CURI::getSupportedServiceNames()
{
    return { u"com.sun.star.rdf.URI"_ustr };
}

constexpr OUString s_nsXSD = u"http://www.w3.org/2001/XMLSchema-datatypes#"_ustr;
constexpr OUString s_nsRDF = u"http://www.w3.org/1999/02/22-rdf-syntax-ns#"_ustr;
constexpr OUString s_nsRDFs = u"http://www.w3.org/2000/01/rdf-schema#"_ustr;
constexpr OUString s_nsOWL = u"http://www.w3.org/2002/07/owl#"_ustr;
constexpr OUString s_nsPkg = u"http://docs.oasis-open.org/ns/office/1.2/meta/pkg#"_ustr;
constexpr OUString s_nsODF = u"http://docs.oasis-open.org/ns/office/1.2/meta/odf#"_ustr;
constexpr OUString s_nsLO_EXT =
    u"urn:org:documentfoundation:names:experimental:office:xmlns:loext:1.0odf#"_ustr;

void CURI::initFromConstant(const sal_Int16 i_Constant)
{
    OUString ns;
    OUString ln;
    switch (i_Constant)
    {
        case css::rdf::URIs::XSD_NCNAME:
            ns = s_nsXSD;
            ln = u"NCName"_ustr;
            break;

        case css::rdf::URIs::XSD_STRING:
            ns = s_nsXSD;
            ln = u"string"_ustr;
            break;

        case css::rdf::URIs::XSD_NORMALIZEDSTRING:
            ns = s_nsXSD;
            ln = u"normalizedString"_ustr;
            break;

        case css::rdf::URIs::XSD_BOOLEAN:
            ns = s_nsXSD;
            ln = u"boolean"_ustr;
            break;

        case css::rdf::URIs::XSD_DECIMAL:
            ns = s_nsXSD;
            ln = u"decimal"_ustr;
            break;

        case css::rdf::URIs::XSD_FLOAT:
            ns = s_nsXSD;
            ln = u"float"_ustr;
            break;

        case css::rdf::URIs::XSD_DOUBLE:
            ns = s_nsXSD;
            ln = u"double"_ustr;
            break;

        case css::rdf::URIs::XSD_INTEGER:
            ns = s_nsXSD;
            ln = u"integer"_ustr;
            break;

        case css::rdf::URIs::XSD_NONNEGATIVEINTEGER:
            ns = s_nsXSD;
            ln = u"nonNegativeInteger"_ustr;
            break;

        case css::rdf::URIs::XSD_POSITIVEINTEGER:
            ns = s_nsXSD;
            ln = u"positiveInteger"_ustr;
            break;

        case css::rdf::URIs::XSD_NONPOSITIVEINTEGER:
            ns = s_nsXSD;
            ln = u"nonPositiveInteger"_ustr;
            break;

        case css::rdf::URIs::XSD_NEGATIVEINTEGER:
            ns = s_nsXSD;
            ln = u"negativeInteger"_ustr;
            break;

        case css::rdf::URIs::XSD_LONG:
            ns = s_nsXSD;
            ln = u"long"_ustr;
            break;

        case css::rdf::URIs::XSD_INT:
            ns = s_nsXSD;
            ln = u"int"_ustr;
            break;

        case css::rdf::URIs::XSD_SHORT:
            ns = s_nsXSD;
            ln = u"short"_ustr;
            break;

        case css::rdf::URIs::XSD_BYTE:
            ns = s_nsXSD;
            ln = u"byte"_ustr;
            break;

        case css::rdf::URIs::XSD_UNSIGNEDLONG:
            ns = s_nsXSD;
            ln = u"unsignedLong"_ustr;
            break;

        case css::rdf::URIs::XSD_UNSIGNEDINT:
            ns = s_nsXSD;
            ln = u"unsignedInt"_ustr;
            break;

        case css::rdf::URIs::XSD_UNSIGNEDSHORT:
            ns = s_nsXSD;
            ln = u"unsignedShort"_ustr;
            break;

        case css::rdf::URIs::XSD_UNSIGNEDBYTE:
            ns = s_nsXSD;
            ln = u"unsignedByte"_ustr;
            break;

        case css::rdf::URIs::XSD_HEXBINARY:
            ns = s_nsXSD;
            ln = u"hexBinary"_ustr;
            break;

        case css::rdf::URIs::XSD_BASE64BINARY:
            ns = s_nsXSD;
            ln = u"base64Binary"_ustr;
            break;

        case css::rdf::URIs::XSD_DATETIME:
            ns = s_nsXSD;
            ln = u"dateTime"_ustr;
            break;

        case css::rdf::URIs::XSD_TIME:
            ns = s_nsXSD;
            ln = u"time"_ustr;
            break;

        case css::rdf::URIs::XSD_DATE:
            ns = s_nsXSD;
            ln = u"date"_ustr;
            break;

        case css::rdf::URIs::XSD_GYEARMONTH:
            ns = s_nsXSD;
            ln = u"gYearMonth"_ustr;
            break;

        case css::rdf::URIs::XSD_GYEAR:
            ns = s_nsXSD;
            ln = u"gYear"_ustr;
            break;

        case css::rdf::URIs::XSD_GMONTHDAY:
            ns = s_nsXSD;
            ln = u"gMonthDay"_ustr;
            break;

        case css::rdf::URIs::XSD_GDAY:
            ns = s_nsXSD;
            ln = u"gDay"_ustr;
            break;

        case css::rdf::URIs::XSD_GMONTH:
            ns = s_nsXSD;
            ln = u"gMonth"_ustr;
            break;

        case css::rdf::URIs::XSD_ANYURI:
            ns = s_nsXSD;
            ln = u"anyURI"_ustr;
            break;

        case css::rdf::URIs::XSD_TOKEN:
            ns = s_nsXSD;
            ln = u"token"_ustr;
            break;

        case css::rdf::URIs::XSD_LANGUAGE:
            ns = s_nsXSD;
            ln = u"language"_ustr;
            break;

        case css::rdf::URIs::XSD_NMTOKEN:
            ns = s_nsXSD;
            ln = u"NMTOKEN"_ustr;
            break;

        case css::rdf::URIs::XSD_NAME:
            ns = s_nsXSD;
            ln = u"Name"_ustr;
            break;

        case css::rdf::URIs::XSD_DURATION:
            ns = s_nsXSD;
            ln = u"duration"_ustr;
            break;

        case css::rdf::URIs::XSD_QNAME:
            ns = s_nsXSD;
            ln = u"QName"_ustr;
            break;

        case css::rdf::URIs::XSD_NOTATION:
            ns = s_nsXSD;
            ln = u"NOTATION"_ustr;
            break;

        case css::rdf::URIs::XSD_NMTOKENS:
            ns = s_nsXSD;
            ln = u"NMTOKENS"_ustr;
            break;

        case css::rdf::URIs::XSD_ID:
            ns = s_nsXSD;
            ln = u"ID"_ustr;
            break;

        case css::rdf::URIs::XSD_IDREF:
            ns = s_nsXSD;
            ln = u"IDREF"_ustr;
            break;

        case css::rdf::URIs::XSD_IDREFS:
            ns = s_nsXSD;
            ln = u"IDREFS"_ustr;
            break;

        case css::rdf::URIs::XSD_ENTITY:
            ns = s_nsXSD;
            ln = u"ENTITY"_ustr;
            break;

        case css::rdf::URIs::XSD_ENTITIES:
            ns = s_nsXSD;
            ln = u"ENTITIES"_ustr;
            break;

        case css::rdf::URIs::RDF_TYPE:
            ns = s_nsRDF;
            ln = u"type"_ustr;
            break;

        case css::rdf::URIs::RDF_SUBJECT:
            ns = s_nsRDF;
            ln = u"subject"_ustr;
            break;

        case css::rdf::URIs::RDF_PREDICATE:
            ns = s_nsRDF;
            ln = u"predicate"_ustr;
            break;

        case css::rdf::URIs::RDF_OBJECT:
            ns = s_nsRDF;
            ln = u"object"_ustr;
            break;

        case css::rdf::URIs::RDF_PROPERTY:
            ns = s_nsRDF;
            ln = u"Property"_ustr;
            break;

        case css::rdf::URIs::RDF_STATEMENT:
            ns = s_nsRDF;
            ln = u"Statement"_ustr;
            break;

        case css::rdf::URIs::RDF_VALUE:
            ns = s_nsRDF;
            ln = u"value"_ustr;
            break;

        case css::rdf::URIs::RDF_FIRST:
            ns = s_nsRDF;
            ln = u"first"_ustr;
            break;

        case css::rdf::URIs::RDF_REST:
            ns = s_nsRDF;
            ln = u"rest"_ustr;
            break;

        case css::rdf::URIs::RDF_NIL:
            ns = s_nsRDF;
            ln = u"nil"_ustr;
            break;

        case css::rdf::URIs::RDF_XMLLITERAL:
            ns = s_nsRDF;
            ln = u"XMLLiteral"_ustr;
            break;

        case css::rdf::URIs::RDF_ALT:
            ns = s_nsRDF;
            ln = u"Alt"_ustr;
            break;

        case css::rdf::URIs::RDF_BAG:
            ns = s_nsRDF;
            ln = u"Bag"_ustr;
            break;

        case css::rdf::URIs::RDF_LIST:
            ns = s_nsRDF;
            ln = u"List"_ustr;
            break;

        case css::rdf::URIs::RDF_SEQ:
            ns = s_nsRDF;
            ln = u"Seq"_ustr;
            break;

        case css::rdf::URIs::RDF_1:
            ns = s_nsRDF;
            ln = u"_1"_ustr;
            break;

        case css::rdf::URIs::RDFS_COMMENT:
            ns = s_nsRDFs;
            ln = u"comment"_ustr;
            break;

        case css::rdf::URIs::RDFS_LABEL:
            ns = s_nsRDFs;
            ln = u"label"_ustr;
            break;

        case css::rdf::URIs::RDFS_DOMAIN:
            ns = s_nsRDFs;
            ln = u"domain"_ustr;
            break;

        case css::rdf::URIs::RDFS_RANGE:
            ns = s_nsRDFs;
            ln = u"range"_ustr;
            break;

        case css::rdf::URIs::RDFS_SUBCLASSOF:
            ns = s_nsRDFs;
            ln = u"subClassOf"_ustr;
            break;

        case css::rdf::URIs::RDFS_LITERAL:
            ns = s_nsRDFs;
            ln = u"Literal"_ustr;
            break;

        case css::rdf::URIs::OWL_CLASS:
            ns = s_nsOWL;
            ln = u"Class"_ustr;
            break;

        case css::rdf::URIs::OWL_OBJECTPROPERTY:
            ns = s_nsOWL;
            ln = u"ObjectProperty"_ustr;
            break;

        case css::rdf::URIs::OWL_DATATYPEPROPERTY:
            ns = s_nsOWL;
            ln = u"DatatypeProperty"_ustr;
            break;

        case css::rdf::URIs::OWL_FUNCTIONALPROPERTY:
            ns = s_nsOWL;
            ln = u"FunctionalProperty"_ustr;
            break;

        case css::rdf::URIs::OWL_THING:
            ns = s_nsOWL;
            ln = u"Thing"_ustr;
            break;

        case css::rdf::URIs::OWL_NOTHING:
            ns = s_nsOWL;
            ln = u"Nothing"_ustr;
            break;

        case css::rdf::URIs::OWL_INDIVIDUAL:
            ns = s_nsOWL;
            ln = u"Individual"_ustr;
            break;

        case css::rdf::URIs::OWL_EQUIVALENTCLASS:
            ns = s_nsOWL;
            ln = u"equivalentClass"_ustr;
            break;

        case css::rdf::URIs::OWL_EQUIVALENTPROPERTY:
            ns = s_nsOWL;
            ln = u"equivalentProperty"_ustr;
            break;

        case css::rdf::URIs::OWL_SAMEAS:
            ns = s_nsOWL;
            ln = u"sameAs"_ustr;
            break;

        case css::rdf::URIs::OWL_DIFFERENTFROM:
            ns = s_nsOWL;
            ln = u"differentFrom"_ustr;
            break;

        case css::rdf::URIs::OWL_ALLDIFFERENT:
            ns = s_nsOWL;
            ln = u"AllDifferent"_ustr;
            break;

        case css::rdf::URIs::OWL_DISTINCTMEMBERS:
            ns = s_nsOWL;
            ln = u"distinctMembers"_ustr;
            break;

        case css::rdf::URIs::OWL_INVERSEOF:
            ns = s_nsOWL;
            ln = u"inverseOf"_ustr;
            break;

        case css::rdf::URIs::OWL_TRANSITIVEPROPERTY:
            ns = s_nsOWL;
            ln = u"TransitiveProperty"_ustr;
            break;

        case css::rdf::URIs::OWL_SYMMETRICPROPERTY:
            ns = s_nsOWL;
            ln = u"SymmetricProperty"_ustr;
            break;

        case css::rdf::URIs::OWL_INVERSEFUNCTIONALPROPERTY:
            ns = s_nsOWL;
            ln = u"InverseFunctionalProperty"_ustr;
            break;

        case css::rdf::URIs::OWL_RESTRICTION:
            ns = s_nsOWL;
            ln = u"Restriction"_ustr;
            break;

        case css::rdf::URIs::OWL_ONPROPERTY:
            ns = s_nsOWL;
            ln = u"onProperty"_ustr;
            break;

        case css::rdf::URIs::OWL_ALLVALUESFROM:
            ns = s_nsOWL;
            ln = u"allValuesFrom"_ustr;
            break;

        case css::rdf::URIs::OWL_SOMEVALUESFROM:
            ns = s_nsOWL;
            ln = u"someValuesFrom"_ustr;
            break;

        case css::rdf::URIs::OWL_MINCARDINALITY:
            ns = s_nsOWL;
            ln = u"minCardinality"_ustr;
            break;

        case css::rdf::URIs::OWL_MAXCARDINALITY:
            ns = s_nsOWL;
            ln = u"maxCardinality"_ustr;
            break;

        case css::rdf::URIs::OWL_CARDINALITY:
            ns = s_nsOWL;
            ln = u"cardinality"_ustr;
            break;

        case css::rdf::URIs::OWL_ONTOLOGY:
            ns = s_nsOWL;
            ln = u"Ontology"_ustr;
            break;

        case css::rdf::URIs::OWL_IMPORTS:
            ns = s_nsOWL;
            ln = u"imports"_ustr;
            break;

        case css::rdf::URIs::OWL_VERSIONINFO:
            ns = s_nsOWL;
            ln = u"versionInfo"_ustr;
            break;

        case css::rdf::URIs::OWL_PRIORVERSION:
            ns = s_nsOWL;
            ln = u"priorVersion"_ustr;
            break;

        case css::rdf::URIs::OWL_BACKWARDCOMPATIBLEWITH:
            ns = s_nsOWL;
            ln = u"backwardCompatibleWith"_ustr;
            break;

        case css::rdf::URIs::OWL_INCOMPATIBLEWITH:
            ns = s_nsOWL;
            ln = u"incompatibleWith"_ustr;
            break;

        case css::rdf::URIs::OWL_DEPRECATEDCLASS:
            ns = s_nsOWL;
            ln = u"DeprecatedClass"_ustr;
            break;

        case css::rdf::URIs::OWL_DEPRECATEDPROPERTY:
            ns = s_nsOWL;
            ln = u"DeprecatedProperty"_ustr;
            break;

        case css::rdf::URIs::OWL_ANNOTATIONPROPERTY:
            ns = s_nsOWL;
            ln = u"AnnotationProperty"_ustr;
            break;

        case css::rdf::URIs::OWL_ONTOLOGYPROPERTY:
            ns = s_nsOWL;
            ln = u"OntologyProperty"_ustr;
            break;

        case css::rdf::URIs::OWL_ONEOF:
            ns = s_nsOWL;
            ln = u"oneOf"_ustr;
            break;

        case css::rdf::URIs::OWL_DATARANGE:
            ns = s_nsOWL;
            ln = u"dataRange"_ustr;
            break;

        case css::rdf::URIs::OWL_DISJOINTWITH:
            ns = s_nsOWL;
            ln = u"disjointWith"_ustr;
            break;

        case css::rdf::URIs::OWL_UNIONOF:
            ns = s_nsOWL;
            ln = u"unionOf"_ustr;
            break;

        case css::rdf::URIs::OWL_COMPLEMENTOF:
            ns = s_nsOWL;
            ln = u"complementOf"_ustr;
            break;

        case css::rdf::URIs::OWL_INTERSECTIONOF:
            ns = s_nsOWL;
            ln = u"intersectionOf"_ustr;
            break;

        case css::rdf::URIs::OWL_HASVALUE:
            ns = s_nsOWL;
            ln = u"hasValue"_ustr;
            break;


        case css::rdf::URIs::PKG_HASPART:
            ns = s_nsPkg;
            ln = u"hasPart"_ustr;
            break;

        case css::rdf::URIs::PKG_MIMETYPE:
            ns = s_nsPkg;
            ln = u"mimeType"_ustr;
            break;

        case css::rdf::URIs::PKG_PACKAGE:
            ns = s_nsPkg;
            ln = u"Package"_ustr;
            break;

        case css::rdf::URIs::PKG_ELEMENT:
            ns = s_nsPkg;
            ln = u"Element"_ustr;
            break;

        case css::rdf::URIs::PKG_FILE:
            ns = s_nsPkg;
            ln = u"File"_ustr;
            break;

        case css::rdf::URIs::PKG_METADATAFILE:
            ns = s_nsPkg;
            ln = u"MetadataFile"_ustr;
            break;

        case css::rdf::URIs::PKG_DOCUMENT:
            ns = s_nsPkg;
            ln = u"Document"_ustr;
            break;

        case css::rdf::URIs::ODF_PREFIX:
            ns = s_nsODF;
            ln = u"prefix"_ustr;
            break;

        case css::rdf::URIs::ODF_SUFFIX:
            ns = s_nsODF;
            ln = u"suffix"_ustr;
            break;

        case css::rdf::URIs::ODF_ELEMENT:
            ns = s_nsODF;
            ln = u"Element"_ustr;
            break;

        case css::rdf::URIs::ODF_CONTENTFILE:
            ns = s_nsODF;
            ln = u"ContentFile"_ustr;
            break;

        case css::rdf::URIs::ODF_STYLESFILE:
            ns = s_nsODF;
            ln = u"StylesFile"_ustr;
            break;

        case css::rdf::URIs::LO_EXT_SHADING:
            ns = s_nsLO_EXT;
            ln = u"shading"_ustr;
            break;

        default:
            throw css::lang::IllegalArgumentException(
                u"CURI::initialize: invalid URIs constant argument"_ustr, *this, 0);
    }
    m_Namespace = ns;
    m_LocalName = ln;
}

// css::lang::XInitialization:
void SAL_CALL CURI::initialize(const css::uno::Sequence< css::uno::Any > & aArguments)
{
    sal_Int32 len = aArguments.getLength();
    if ((len < 1) || (len > 2)) {
        throw css::lang::IllegalArgumentException(
            u"CURI::initialize: must give 1 or 2 argument(s)"_ustr, *this, 2);
    }

    sal_Int16 arg(0);
    OUString arg0;
    OUString arg1;
    if (aArguments[0] >>= arg) {
        // integer argument: constant from rdf::URIs
        if (len != 1) {
            throw css::lang::IllegalArgumentException(
                u"CURI::initialize: must give 1 int argument"_ustr, *this, 1);
        }
        initFromConstant(arg);
        return;
    }
    if (!(aArguments[0] >>= arg0)) {
        throw css::lang::IllegalArgumentException(
            u"CURI::initialize: argument must be string or short"_ustr, *this, 0);
    }
    if (len > 1) {
        if (!(aArguments[1] >>= arg1)) {
            throw css::lang::IllegalArgumentException(
                u"CURI::initialize: argument must be string"_ustr, *this, 1);
        }
        // just append the parameters and then split them again; seems simplest
        arg0 = arg0 + arg1;
        arg1.clear();
    }

    // split parameter
    sal_Int32 idx = arg0.indexOf('#');
    if (idx < 0)
        idx = arg0.lastIndexOf('/');
    if (idx < 0)
        idx = arg0.lastIndexOf(':');
    if (idx < 0)
    {
        throw css::lang::IllegalArgumentException(
            u"CURI::initialize: argument not splittable: no separator [#/:]"_ustr, *this, 0);
    }
    if (idx < arg0.getLength() - 1) {
        arg1 = arg0.copy(idx+1);
        arg0 = arg0.copy(0, idx+1);
    }

    //FIXME: what is legal?
    if (arg0.isEmpty()) {
        throw css::lang::IllegalArgumentException(
            u"CURI::initialize: argument is not valid namespace"_ustr, *this, 0);
    }
    m_Namespace = arg0;

    //FIXME: what is legal?
    if ((false)) {
        throw css::lang::IllegalArgumentException(
            u"CURI::initialize: argument is not valid local name"_ustr, *this, 1);
    }
    m_LocalName = arg1;
}

// css::rdf::XNode:
OUString SAL_CALL CURI::getStringValue()
{
    return m_Namespace + m_LocalName;
}

// css::rdf::XURI:
OUString SAL_CALL CURI::getNamespace()
{
    return m_Namespace;
}

OUString SAL_CALL CURI::getLocalName()
{
    return m_LocalName;
}

} // closing anonymous implementation namespace


extern "C" SAL_DLLPUBLIC_EXPORT css::uno::XInterface*
unoxml_CURI_get_implementation(
    css::uno::XComponentContext* , css::uno::Sequence<css::uno::Any> const&)
{
    return cppu::acquire(new CURI());
}

/* vim:set shiftwidth=4 softtabstop=4 expandtab: */