/* -*- 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 <comphelper/anytohash.hxx>

#include <o3tl/hash_combine.hxx>
#include <typelib/typedescription.hxx>

#include <com/sun/star/uno/Sequence.hxx>

#include "typedescriptionref.hxx"

using namespace ::com::sun::star;
using ::com::sun::star::uno::TypeDescription;
using ::comphelper::detail::TypeDescriptionRef;

namespace comphelper {
namespace {

std::optional<size_t> hashValue( size_t hash,
                  void const * val, typelib_TypeDescriptionReference * typeRef )
{
    o3tl::hash_combine( hash, typeRef->eTypeClass );
    if (typeRef->eTypeClass == typelib_TypeClass_VOID) {
        return hash;
    }
    assert(val != nullptr);

    switch (typeRef->eTypeClass) {
    case typelib_TypeClass_INTERFACE: {
        return std::nullopt; // not implemented
    }
    case typelib_TypeClass_STRUCT:
    case typelib_TypeClass_EXCEPTION: {
        TypeDescription typeDescr( typeRef );
        if (!typeDescr.is())
            typeDescr.makeComplete();
        if (!typeDescr.is())
            return std::nullopt;

        typelib_CompoundTypeDescription * compType =
            reinterpret_cast< typelib_CompoundTypeDescription * >(
                typeDescr.get() );
        sal_Int32 nDescr = compType->nMembers;

        if (compType->pBaseTypeDescription) {
            std::optional<size_t> tmpHash = hashValue(
                hash, val, reinterpret_cast<
                typelib_TypeDescription * >(
                    compType->pBaseTypeDescription)->pWeakRef);
            if(!tmpHash.has_value())
                return std::nullopt;
            hash = *tmpHash;
        }

        typelib_TypeDescriptionReference ** ppTypeRefs =
            compType->ppTypeRefs;
        sal_Int32 * memberOffsets = compType->pMemberOffsets;

        for ( sal_Int32 nPos = 0; nPos < nDescr; ++nPos )
        {
            TypeDescriptionRef memberType( ppTypeRefs[ nPos ] );
            if (!memberType.is())
                return std::nullopt;

            std::optional<size_t> tmpHash = hashValue( hash,
                             static_cast< char const * >(
                                 val ) + memberOffsets[ nPos ],
                             memberType->pWeakRef );
            if(!tmpHash.has_value())
                return std::nullopt;
            hash = *tmpHash;
        }
        break;
    }
    case typelib_TypeClass_SEQUENCE: {
        TypeDescriptionRef typeDescr( typeRef );
        if (!typeDescr.is())
            return std::nullopt;

        typelib_TypeDescriptionReference * elementTypeRef =
            reinterpret_cast<
            typelib_IndirectTypeDescription * >(typeDescr.get())->pType;
        TypeDescriptionRef elementTypeDescr( elementTypeRef );
        if (!elementTypeDescr.is())
            return std::nullopt;

        sal_Int32 nElementSize = elementTypeDescr->nSize;
        uno_Sequence * seq =
            *static_cast< uno_Sequence * const * >(val);
        sal_Int32 nElements = seq->nElements;

        if (nElements > 0)
        {
            char const * pElements = seq->elements;
            for ( sal_Int32 nPos = 0; nPos < nElements; ++nPos )
            {
                std::optional<size_t> tmpHash = hashValue( hash,
                    pElements + (nElementSize * nPos),
                    elementTypeDescr->pWeakRef );
                if(!tmpHash.has_value())
                    return std::nullopt;
                hash = *tmpHash;
            }
        }
        break;
    }
    case typelib_TypeClass_ANY: {
        uno_Any const * pAny = static_cast< uno_Any const * >(val);
        return hashValue( hash, pAny->pData, pAny->pType );
    }
    case typelib_TypeClass_TYPE: {
        OUString const & str = OUString::unacquired(
            &(*static_cast<
                     typelib_TypeDescriptionReference * const * >(val)
                        )->pTypeName );
        o3tl::hash_combine( hash, str.hashCode() );
        break;
    }
    case typelib_TypeClass_STRING: {
        OUString const & str = OUString::unacquired(
            static_cast< rtl_uString * const * >(val) );
        o3tl::hash_combine( hash, str.hashCode() );
        break;
    }
    case typelib_TypeClass_ENUM: {
        TypeDescription typeDescr( typeRef );
        if (!typeDescr.is())
            typeDescr.makeComplete();
        if (!typeDescr.is())
            return std::nullopt;

        o3tl::hash_combine( hash, *static_cast< int const * >(val));
        break;
    }
    case typelib_TypeClass_BOOLEAN:
        if (*static_cast< sal_Bool const * >(val))
            o3tl::hash_combine( hash, true );
        else
            o3tl::hash_combine( hash, false );
        break;
    case typelib_TypeClass_CHAR: {
        o3tl::hash_combine( hash, *static_cast< sal_Unicode const * >(val));
        break;
    }
    case typelib_TypeClass_FLOAT:
        o3tl::hash_combine( hash, *static_cast< float const * >(val) );
        break;
    case typelib_TypeClass_DOUBLE:
        o3tl::hash_combine( hash, *static_cast< double const * >(val) );
        break;
    case typelib_TypeClass_BYTE:
        o3tl::hash_combine( hash, *static_cast< sal_Int8 const * >(val) );
        break;
    case typelib_TypeClass_SHORT:
        o3tl::hash_combine( hash, *static_cast< sal_Int16 const * >(val) );
        break;
    case typelib_TypeClass_UNSIGNED_SHORT:
        o3tl::hash_combine( hash, *static_cast< sal_uInt16 const * >(val) );
        break;
    case typelib_TypeClass_LONG:
        o3tl::hash_combine( hash, *static_cast< sal_Int32 const * >(val) );
        break;
    case typelib_TypeClass_UNSIGNED_LONG:
        o3tl::hash_combine( hash, *static_cast< sal_uInt32 const * >(val) );
        break;
    case typelib_TypeClass_HYPER:
        o3tl::hash_combine( hash, *static_cast< sal_Int64 const * >(val) );
        break;
    case typelib_TypeClass_UNSIGNED_HYPER:
        o3tl::hash_combine( hash, *static_cast< sal_uInt64 const * >(val) );
        break;
//     case typelib_TypeClass_UNKNOWN:
//     case typelib_TypeClass_SERVICE:
//     case typelib_TypeClass_MODULE:
    default:
        return std::nullopt;
    }
    return hash;
}

} // anon namespace


std::optional<size_t> anyToHash( uno::Any const & value )
{
    size_t hash = 0;
    return hashValue( hash, value.getValue(), value.getValueTypeRef());
}

} // namespace comphelper

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