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

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

#include <com/sun/star/uno/RuntimeException.hpp>

#include <com/sun/star/uno/XInterface.hpp>

#include <rtl/process.h>

#include <rtl/ustrbuf.hxx>

#include <rtl/ustring.h>

#include <rtl/ustring.hxx>

#include <sal/log.hxx>

#include <sal/types.h>

#include <uno/environment.h>

#include <uno/lbnames.h>

#include <uno/mapping.h>

#include <cppu/EnvDcp.hxx>

namespace {

const OUString & cppu_cppenv_getStaticOIdPart()

{

    static OUString s_aStaticOidPart = []() {

        OUStringBuffer aRet(64);

        aRet.append("];");

        // good guid

        sal_uInt8 ar[16];

        ::rtl_getGlobalProcessId(ar);

        for (unsigned char i : ar)

        {

            aRet.append(static_cast<sal_Int32>(i), 16);

        }

        return aRet.makeStringAndClear();

    }();

    return s_aStaticOidPart;

}

}

extern "C" {

static void s_stub_computeObjectIdentifier(va_list * pParam)

{

    uno_ExtEnvironment  * pEnv       = va_arg(*pParam, uno_ExtEnvironment *);

    rtl_uString        ** ppOId      = va_arg(*pParam, rtl_uString **);

    void                * pInterface = va_arg(*pParam, void *);

    assert(pEnv && ppOId && pInterface);

    if (!(pEnv && ppOId && pInterface))

        return;

    if (*ppOId)

    {

        rtl_uString_release( *ppOId );

        *ppOId = nullptr;

    }

    try

    {

        ::com::sun::star::uno::Reference<

              ::com::sun::star::uno::XInterface > xHome(

                  static_cast< css::uno::XInterface * >(

                      pInterface ),

                  ::com::sun::star::uno::UNO_QUERY );

        assert(xHome.is() && "### query to XInterface failed!");

        if (xHome.is())

        {

            // interface

            OUString aRet =

                OUString::number( reinterpret_cast< sal_IntPtr >(xHome.get()), 16 ) +

                ";" +

                // ;environment[context]

                OUString::unacquired(&pEnv->aBase.pTypeName) +

                "[" +

                OUString::number( reinterpret_cast< sal_IntPtr >(pEnv->aBase.pContext), 16 ) +

                // ];good guid

                cppu_cppenv_getStaticOIdPart();

            *ppOId = aRet.pData;

            ::rtl_uString_acquire( *ppOId );

        }

    }

    catch (const css::uno::RuntimeException & e)

    {

        SAL_WARN("bridges",

            "### RuntimeException occurred during queryInterface(): "

            << e.Message);

    }

}

static void computeObjectIdentifier(

    uno_ExtEnvironment * pExtEnv, rtl_uString ** ppOId, void * pInterface )

{

    uno_Environment_invoke(&pExtEnv->aBase, s_stub_computeObjectIdentifier, pExtEnv, ppOId, pInterface);

}

static void s_stub_acquireInterface(va_list * pParam)

{

    /*uno_ExtEnvironment * pExtEnv = */va_arg(*pParam, uno_ExtEnvironment *);

    void               * pCppI   = va_arg(*pParam, void *);

    static_cast< css::uno::XInterface * >( pCppI )->acquire();

}

static void acquireInterface( uno_ExtEnvironment * pExtEnv, void * pCppI )

{

    uno_Environment_invoke(&pExtEnv->aBase, s_stub_acquireInterface, pExtEnv, pCppI);

}

static void s_stub_releaseInterface(va_list * pParam)

{

    /*uno_ExtEnvironment * pExtEnv = */va_arg(*pParam, uno_ExtEnvironment *);

    void               * pCppI   = va_arg(*pParam, void *);

    static_cast< css::uno::XInterface * >( pCppI )->release();

}

static void releaseInterface( uno_ExtEnvironment * pExtEnv, void * pCppI )

{

    uno_Environment_invoke(&pExtEnv->aBase, s_stub_releaseInterface, pExtEnv, pCppI);

}

static void environmentDisposing(

    SAL_UNUSED_PARAMETER uno_Environment * )

{

}

#ifdef DISABLE_DYNLOADING

#define uno_initEnvironment CPPU_ENV_uno_initEnvironment

#endif

SAL_DLLPUBLIC_EXPORT void uno_initEnvironment(uno_Environment * pCppEnv) noexcept

{

    assert(pCppEnv->pExtEnv);

    assert(

        ::rtl_ustr_ascii_compare_WithLength(

             pCppEnv->pTypeName->buffer, rtl_str_getLength(CPPU_CURRENT_LANGUAGE_BINDING_NAME), CPPU_CURRENT_LANGUAGE_BINDING_NAME )

        == 0

        && "### wrong environment type!");

    reinterpret_cast<uno_ExtEnvironment *>(pCppEnv)->computeObjectIdentifier

        = computeObjectIdentifier;

    reinterpret_cast<uno_ExtEnvironment *>(pCppEnv)->acquireInterface = acquireInterface;

    reinterpret_cast<uno_ExtEnvironment *>(pCppEnv)->releaseInterface = releaseInterface;

    pCppEnv->environmentDisposing = environmentDisposing;

}

#ifdef DISABLE_DYNLOADING

#define uno_ext_getMapping CPPU_ENV_uno_ext_getMapping

#endif

SAL_DLLPUBLIC_EXPORT void uno_ext_getMapping(

    uno_Mapping ** ppMapping, uno_Environment * pFrom, uno_Environment * pTo) noexcept

{

    assert(ppMapping && pFrom && pTo);

    if (!(ppMapping && pFrom && pTo && pFrom->pExtEnv && pTo->pExtEnv))

        return;

    uno_Mapping * pMapping = nullptr;

    OUString from_envTypeName(cppu::EnvDcp::getTypeName(pFrom->pTypeName));

    OUString to_envTypeName(cppu::EnvDcp::getTypeName(pTo->pTypeName));

    if (rtl_ustr_ascii_compare(

            from_envTypeName.pData->buffer,

            CPPU_CURRENT_LANGUAGE_BINDING_NAME ) == 0 &&

        rtl_ustr_ascii_compare(

            to_envTypeName.pData->buffer, UNO_LB_UNO ) == 0)

    {

        // ref count initially 1

        pMapping = bridges::cpp_uno::shared::Bridge::createMapping(

            pFrom->pExtEnv, pTo->pExtEnv, true );

        ::uno_registerMapping(

            &pMapping, bridges::cpp_uno::shared::freeMapping,

            &pFrom->pExtEnv->aBase,

            &pTo->pExtEnv->aBase, nullptr );

    }

    else if (rtl_ustr_ascii_compare(

                 to_envTypeName.pData->buffer,

                 CPPU_CURRENT_LANGUAGE_BINDING_NAME ) == 0 &&

             rtl_ustr_ascii_compare(

                 from_envTypeName.pData->buffer, UNO_LB_UNO ) == 0)

    {

        // ref count initially 1

        pMapping = bridges::cpp_uno::shared::Bridge::createMapping(

            pTo->pExtEnv, pFrom->pExtEnv, false );

        ::uno_registerMapping(

            &pMapping, bridges::cpp_uno::shared::freeMapping,

            &pFrom->pExtEnv->aBase,

            &pTo->pExtEnv->aBase, nullptr );

    }

    if (*ppMapping)

    {

        (*(*ppMapping)->release)( *ppMapping );

    }

    if (pMapping)

        *ppMapping = pMapping;

}

}

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