/*************************************************************************
 *
 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
 * 
 * Copyright 2000, 2010 Oracle and/or its affiliates.
 *
 * OpenOffice.org - a multi-platform office productivity suite
 *
 * This file is part of OpenOffice.org.
 *
 * OpenOffice.org is free software: you can redistribute it and/or modify
 * it under the terms of the GNU Lesser General Public License version 3
 * only, as published by the Free Software Foundation.
 *
 * OpenOffice.org is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU Lesser General Public License version 3 for more details
 * (a copy is included in the LICENSE file that accompanied this code).
 *
 * You should have received a copy of the GNU Lesser General Public License
 * version 3 along with OpenOffice.org.  If not, see
 * <http://www.openoffice.org/license.html>
 * for a copy of the LGPLv3 License.
 *
 ************************************************************************/

// MARKER(update_precomp.py): autogen include statement, do not remove
#include "precompiled_stoc.hxx"

#include <sal/config.h>
#ifdef SAL_UNX
#include <sal/alloca.h>
#endif
#if !(defined(MACOSX) || defined(FREEBSD))
#include <malloc.h>
#endif
#include <rtl/alloc.h>
#include <typelib/typedescription.hxx>
#include <uno/data.h>

#include "base.hxx"

#include "com/sun/star/lang/WrappedTargetRuntimeException.hpp"
#include "com/sun/star/uno/RuntimeException.hpp"
#include "cppuhelper/exc_hlp.hxx"

namespace stoc_corefl
{

//==================================================================================================
class IdlAttributeFieldImpl
	: public IdlMemberImpl
	, public XIdlField
	, public XIdlField2
{
public:
	typelib_InterfaceAttributeTypeDescription * getAttributeTypeDescr()
		{ return (typelib_InterfaceAttributeTypeDescription *)getTypeDescr(); }
	
	IdlAttributeFieldImpl( IdlReflectionServiceImpl * pReflection, const OUString & rName,
						   typelib_TypeDescription * pTypeDescr, typelib_TypeDescription * pDeclTypeDescr )
		: IdlMemberImpl( pReflection, rName, pTypeDescr, pDeclTypeDescr )
		{}
	
	// XInterface
	virtual Any SAL_CALL queryInterface( const Type & rType ) throw(::com::sun::star::uno::RuntimeException);
	virtual void SAL_CALL acquire() throw();
	virtual void SAL_CALL release() throw();
	
	// XTypeProvider
	virtual Sequence< Type > SAL_CALL getTypes() throw (::com::sun::star::uno::RuntimeException);
	virtual Sequence< sal_Int8 > SAL_CALL getImplementationId() throw (::com::sun::star::uno::RuntimeException);
	
	// XIdlMember
    virtual Reference< XIdlClass > SAL_CALL getDeclaringClass() throw(::com::sun::star::uno::RuntimeException);
    virtual OUString SAL_CALL getName() throw(::com::sun::star::uno::RuntimeException);
	// XIdlField
    virtual Reference< XIdlClass > SAL_CALL getType() throw(::com::sun::star::uno::RuntimeException);
    virtual FieldAccessMode SAL_CALL getAccessMode() throw(::com::sun::star::uno::RuntimeException);
    virtual Any SAL_CALL get( const Any & rObj ) throw(::com::sun::star::lang::IllegalArgumentException, ::com::sun::star::uno::RuntimeException);    
    virtual void SAL_CALL set( const Any & rObj, const Any & rValue ) throw(::com::sun::star::lang::IllegalArgumentException, ::com::sun::star::lang::IllegalAccessException, ::com::sun::star::uno::RuntimeException);
	// XIdlField2: getType, getAccessMode and get are equal to XIdlField
    virtual void SAL_CALL set( Any & rObj, const Any & rValue ) throw(::com::sun::star::lang::IllegalArgumentException, ::com::sun::star::lang::IllegalAccessException, ::com::sun::star::uno::RuntimeException);

private:
    void checkException(
        uno_Any * exception, Reference< XInterface > const & context);
};

// XInterface
//__________________________________________________________________________________________________
Any IdlAttributeFieldImpl::queryInterface( const Type & rType )
	throw(::com::sun::star::uno::RuntimeException)
{
	Any aRet( ::cppu::queryInterface( rType,
    								  static_cast< XIdlField * >( this ),
                                      static_cast< XIdlField2 * >( this ) ) );
	return (aRet.hasValue() ? aRet : IdlMemberImpl::queryInterface( rType ));
}
//__________________________________________________________________________________________________
void IdlAttributeFieldImpl::acquire() throw()
{
	IdlMemberImpl::acquire();
}
//__________________________________________________________________________________________________
void IdlAttributeFieldImpl::release() throw()
{
	IdlMemberImpl::release();
}

// XTypeProvider
//__________________________________________________________________________________________________
Sequence< Type > IdlAttributeFieldImpl::getTypes()
	throw (::com::sun::star::uno::RuntimeException)
{
	static OTypeCollection * s_pTypes = 0;
	if (! s_pTypes)
	{
		MutexGuard aGuard( getMutexAccess() );
		if (! s_pTypes)
		{
			static OTypeCollection s_aTypes(
				::getCppuType( (const Reference< XIdlField2 > *)0 ),
				::getCppuType( (const Reference< XIdlField > *)0 ),
				IdlMemberImpl::getTypes() );
			s_pTypes = &s_aTypes;
		}
	}
	return s_pTypes->getTypes();
}
//__________________________________________________________________________________________________
Sequence< sal_Int8 > IdlAttributeFieldImpl::getImplementationId()
	throw (::com::sun::star::uno::RuntimeException)
{
	static OImplementationId * s_pId = 0;
	if (! s_pId)
	{
		MutexGuard aGuard( getMutexAccess() );
		if (! s_pId)
		{
			static OImplementationId s_aId;
			s_pId = &s_aId;
		}
	}
	return s_pId->getImplementationId();
}

// XIdlMember
//__________________________________________________________________________________________________
Reference< XIdlClass > IdlAttributeFieldImpl::getDeclaringClass()
	throw(::com::sun::star::uno::RuntimeException)
{
	if (! _xDeclClass.is())
	{
		MutexGuard aGuard( getMutexAccess() );
		if (! _xDeclClass.is())
		{
            rtl::OUString aName(getAttributeTypeDescr()->aBase.aBase.pTypeName);
            sal_Int32 i = aName.indexOf(':');
            OSL_ASSERT(i >= 0);
            _xDeclClass = getReflection()->forName(aName.copy(0, i));
		}
	}
	return _xDeclClass;
}
//__________________________________________________________________________________________________
OUString IdlAttributeFieldImpl::getName()
	throw(::com::sun::star::uno::RuntimeException)
{
	return IdlMemberImpl::getName();
}

// XIdlField
//__________________________________________________________________________________________________
Reference< XIdlClass > IdlAttributeFieldImpl::getType()
	throw(::com::sun::star::uno::RuntimeException)
{
	return getReflection()->forType(
        getAttributeTypeDescr()->pAttributeTypeRef );
}
//__________________________________________________________________________________________________
FieldAccessMode IdlAttributeFieldImpl::getAccessMode()
	throw(::com::sun::star::uno::RuntimeException)
{
    return (((typelib_InterfaceAttributeTypeDescription *)getAttributeTypeDescr())->bReadOnly
			? FieldAccessMode_READONLY : FieldAccessMode_READWRITE);
}
//__________________________________________________________________________________________________
Any IdlAttributeFieldImpl::get( const Any & rObj )
	throw(::com::sun::star::lang::IllegalArgumentException, ::com::sun::star::uno::RuntimeException)
{
	uno_Interface * pUnoI = getReflection()->mapToUno(
        rObj, (typelib_InterfaceTypeDescription *)getDeclTypeDescr() );
	OSL_ENSURE( pUnoI, "### illegal destination object given!" );
	if (pUnoI)
	{
		TypeDescription aTD( getAttributeTypeDescr()->pAttributeTypeRef );
		typelib_TypeDescription * pTD = aTD.get();
		
		uno_Any aExc;
		uno_Any * pExc = &aExc;
		void * pReturn = alloca( pTD->nSize );
		
		(*pUnoI->pDispatcher)( pUnoI, getTypeDescr(), pReturn, 0, &pExc );
		(*pUnoI->release)( pUnoI );
		
        checkException(
            pExc,
            *static_cast< Reference< XInterface > const * >(rObj.getValue()));
		Any aRet;
        uno_any_destruct(
            &aRet, reinterpret_cast< uno_ReleaseFunc >(cpp_release) );
        uno_any_constructAndConvert( &aRet, pReturn, pTD, getReflection()->getUno2Cpp().get() );
        uno_destructData( pReturn, pTD, 0 );
		return aRet;
	}
	throw IllegalArgumentException(
		OUString( RTL_CONSTASCII_USTRINGPARAM("illegal object given!") ),
		(XWeak *)(OWeakObject *)this, 0 );
}
//__________________________________________________________________________________________________
void IdlAttributeFieldImpl::set( Any & rObj, const Any & rValue )
	throw(::com::sun::star::lang::IllegalArgumentException, ::com::sun::star::lang::IllegalAccessException, ::com::sun::star::uno::RuntimeException)
{
	if (getAttributeTypeDescr()->bReadOnly)
	{
		throw IllegalAccessException(
			OUString( RTL_CONSTASCII_USTRINGPARAM("cannot set readonly attribute!") ),
			(XWeak *)(OWeakObject *)this );
	}
	
	uno_Interface * pUnoI = getReflection()->mapToUno(
        rObj, (typelib_InterfaceTypeDescription *)getDeclTypeDescr() );
	OSL_ENSURE( pUnoI, "### illegal destination object given!" );
	if (pUnoI)
	{
		TypeDescription aTD( getAttributeTypeDescr()->pAttributeTypeRef );
		typelib_TypeDescription * pTD = aTD.get();
		
		// construct uno value to be set
		void * pArgs[1];
		void * pArg = pArgs[0] = alloca( pTD->nSize );
		
		sal_Bool bAssign;
		if (pTD->eTypeClass == typelib_TypeClass_ANY)
		{
			uno_copyAndConvertData( pArg, SAL_CONST_CAST( Any *, &rValue ),
									pTD, getReflection()->getCpp2Uno().get() );
			bAssign = sal_True;
		}
		else if (typelib_typedescriptionreference_equals( rValue.getValueTypeRef(), pTD->pWeakRef ))
		{
			uno_copyAndConvertData( pArg, SAL_CONST_CAST( void *, rValue.getValue() ),
									pTD, getReflection()->getCpp2Uno().get() );
			bAssign = sal_True;
		}
		else if (pTD->eTypeClass == typelib_TypeClass_INTERFACE)
		{
			Reference< XInterface > xObj;
            bAssign = extract(
                rValue, (typelib_InterfaceTypeDescription *)pTD, xObj,
                getReflection() );
			if (bAssign)
			{
				*(void **)pArg = getReflection()->getCpp2Uno().mapInterface(
					xObj.get(), (typelib_InterfaceTypeDescription *)pTD );
			}
		}
		else
		{
			typelib_TypeDescription * pValueTD = 0;
			TYPELIB_DANGER_GET( &pValueTD, rValue.getValueTypeRef() );
			// construct temp uno val to do proper assignment: todo opt
			void * pTemp = alloca( pValueTD->nSize );
			uno_copyAndConvertData(
				pTemp, (void *)rValue.getValue(), pValueTD, getReflection()->getCpp2Uno().get() );
			uno_constructData(
				pArg, pTD );
			// assignment does simple conversion
			bAssign = uno_assignData(
				pArg, pTD, pTemp, pValueTD, 0, 0, 0 );
			uno_destructData(
				pTemp, pValueTD, 0 );
			TYPELIB_DANGER_RELEASE( pValueTD );
		}
		
		if (bAssign)
		{
			uno_Any aExc;
			uno_Any * pExc = &aExc;
			(*pUnoI->pDispatcher)( pUnoI, getTypeDescr(), 0, pArgs, &pExc );
			(*pUnoI->release)( pUnoI );
			
			uno_destructData( pArg, pTD, 0 );
            checkException(
                pExc,
                *static_cast< Reference< XInterface > const * >(
                    rObj.getValue()));
			return;
		}
		(*pUnoI->release)( pUnoI );
		
		throw IllegalArgumentException(
			OUString( RTL_CONSTASCII_USTRINGPARAM("illegal value given!") ),
			*(const Reference< XInterface > *)rObj.getValue(), 1 );
	}
	throw IllegalArgumentException(
		OUString( RTL_CONSTASCII_USTRINGPARAM("illegal destination object given!") ),
		(XWeak *)(OWeakObject *)this, 0 );
}
//__________________________________________________________________________________________________
void IdlAttributeFieldImpl::set( const Any & rObj, const Any & rValue )
	throw(::com::sun::star::lang::IllegalArgumentException, ::com::sun::star::lang::IllegalAccessException, ::com::sun::star::uno::RuntimeException)
{
    IdlAttributeFieldImpl::set( const_cast< Any & >( rObj ), rValue );
}

void IdlAttributeFieldImpl::checkException(
    uno_Any * exception, Reference< XInterface > const & context)
{
    if (exception != 0) {
        Any e;
        uno_any_destruct(&e, reinterpret_cast< uno_ReleaseFunc >(cpp_release));
        uno_type_any_constructAndConvert(
            &e, exception->pData, exception->pType,
            getReflection()->getUno2Cpp().get());
        uno_any_destruct(exception, 0);
        if (e.isExtractableTo(
                getCppuType(static_cast< RuntimeException const * >(0))))
        {
            cppu::throwException(e);
        } else {
            throw WrappedTargetRuntimeException(
                OUString(
                    RTL_CONSTASCII_USTRINGPARAM(
                        "non-RuntimeException occured when accessing an"
                        " interface type attribute")),
                context, e);
        }
    }
}

//##################################################################################################
//##################################################################################################
//##################################################################################################


//==================================================================================================
class IdlInterfaceMethodImpl
	: public IdlMemberImpl
	, public XIdlMethod
{
	Sequence< Reference< XIdlClass > > * _pExceptionTypes;
	Sequence< Reference< XIdlClass > > * _pParamTypes;
	Sequence< ParamInfo > *				 _pParamInfos;
	
public:
	typelib_InterfaceMethodTypeDescription * getMethodTypeDescr()
		{ return (typelib_InterfaceMethodTypeDescription *)getTypeDescr(); }
	
	IdlInterfaceMethodImpl( IdlReflectionServiceImpl * pReflection, const OUString & rName,
							typelib_TypeDescription * pTypeDescr, typelib_TypeDescription * pDeclTypeDescr )
		: IdlMemberImpl( pReflection, rName, pTypeDescr, pDeclTypeDescr )
		, _pExceptionTypes( 0 )
		, _pParamTypes( 0 )
		, _pParamInfos( 0 )
		{}
	virtual ~IdlInterfaceMethodImpl();
	
	// XInterface
	virtual Any SAL_CALL queryInterface( const Type & rType ) throw(::com::sun::star::uno::RuntimeException);
	virtual void SAL_CALL acquire() throw();
	virtual void SAL_CALL release() throw();
	
	// XTypeProvider
	virtual Sequence< Type > SAL_CALL getTypes() throw (::com::sun::star::uno::RuntimeException);
	virtual Sequence< sal_Int8 > SAL_CALL getImplementationId() throw (::com::sun::star::uno::RuntimeException);
	
	// XIdlMember
    virtual Reference< XIdlClass > SAL_CALL getDeclaringClass() throw(::com::sun::star::uno::RuntimeException);
    virtual OUString SAL_CALL getName() throw(::com::sun::star::uno::RuntimeException);
	// XIdlMethod
    virtual Reference< XIdlClass > SAL_CALL getReturnType() throw(::com::sun::star::uno::RuntimeException);
    virtual Sequence< Reference< XIdlClass > > SAL_CALL getParameterTypes() throw(::com::sun::star::uno::RuntimeException);
    virtual Sequence< ParamInfo > SAL_CALL getParameterInfos() throw(::com::sun::star::uno::RuntimeException);
    virtual Sequence< Reference< XIdlClass > > SAL_CALL getExceptionTypes() throw(::com::sun::star::uno::RuntimeException);
    virtual MethodMode SAL_CALL getMode() throw(::com::sun::star::uno::RuntimeException);
    virtual Any SAL_CALL invoke( const Any & rObj, Sequence< Any > & rArgs ) throw(::com::sun::star::lang::IllegalArgumentException, ::com::sun::star::reflection::InvocationTargetException, ::com::sun::star::uno::RuntimeException);
};
//__________________________________________________________________________________________________
IdlInterfaceMethodImpl::~IdlInterfaceMethodImpl()
{
	delete _pParamInfos;
	delete _pParamTypes;
	delete _pExceptionTypes;
}

// XInterface
//__________________________________________________________________________________________________
Any IdlInterfaceMethodImpl::queryInterface( const Type & rType )
	throw(::com::sun::star::uno::RuntimeException)
{
	Any aRet( ::cppu::queryInterface( rType, static_cast< XIdlMethod * >( this ) ) );
	return (aRet.hasValue() ? aRet : IdlMemberImpl::queryInterface( rType ));
}
//__________________________________________________________________________________________________
void IdlInterfaceMethodImpl::acquire() throw()
{
	IdlMemberImpl::acquire();
}
//__________________________________________________________________________________________________
void IdlInterfaceMethodImpl::release() throw()
{
	IdlMemberImpl::release();
}

// XTypeProvider
//__________________________________________________________________________________________________
Sequence< Type > IdlInterfaceMethodImpl::getTypes()
	throw (::com::sun::star::uno::RuntimeException)
{
	static OTypeCollection * s_pTypes = 0;
	if (! s_pTypes)
	{
		MutexGuard aGuard( getMutexAccess() );
		if (! s_pTypes)
		{
			static OTypeCollection s_aTypes(
				::getCppuType( (const Reference< XIdlMethod > *)0 ),
				IdlMemberImpl::getTypes() );
			s_pTypes = &s_aTypes;
		}
	}
	return s_pTypes->getTypes();
}
//__________________________________________________________________________________________________
Sequence< sal_Int8 > IdlInterfaceMethodImpl::getImplementationId()
	throw (::com::sun::star::uno::RuntimeException)
{
	static OImplementationId * s_pId = 0;
	if (! s_pId)
	{
		MutexGuard aGuard( getMutexAccess() );
		if (! s_pId)
		{
			static OImplementationId s_aId;
			s_pId = &s_aId;
		}
	}
	return s_pId->getImplementationId();
}

// XIdlMember
//__________________________________________________________________________________________________
Reference< XIdlClass > IdlInterfaceMethodImpl::getDeclaringClass()
	throw(::com::sun::star::uno::RuntimeException)
{
	if (! _xDeclClass.is())
	{
		MutexGuard aGuard( getMutexAccess() );
		if (! _xDeclClass.is())
		{
            rtl::OUString aName(getMethodTypeDescr()->aBase.aBase.pTypeName);
            sal_Int32 i = aName.indexOf(':');
            OSL_ASSERT(i >= 0);
            _xDeclClass = getReflection()->forName(aName.copy(0, i));
		}
	}
	return _xDeclClass;
}
//__________________________________________________________________________________________________
OUString IdlInterfaceMethodImpl::getName()
	throw(::com::sun::star::uno::RuntimeException)
{
	return IdlMemberImpl::getName();
}

// XIdlMethod
//__________________________________________________________________________________________________
Reference< XIdlClass > SAL_CALL IdlInterfaceMethodImpl::getReturnType()
	throw(::com::sun::star::uno::RuntimeException)
{
	return getReflection()->forType( getMethodTypeDescr()->pReturnTypeRef );
}
//__________________________________________________________________________________________________
Sequence< Reference< XIdlClass > > IdlInterfaceMethodImpl::getExceptionTypes()
	throw(::com::sun::star::uno::RuntimeException)
{
	if (! _pExceptionTypes)
	{
		MutexGuard aGuard( getMutexAccess() );
		if (! _pExceptionTypes)
		{
			sal_Int32 nExc = getMethodTypeDescr()->nExceptions;
			Sequence< Reference< XIdlClass > > * pTempExceptionTypes =
				new Sequence< Reference< XIdlClass > >( nExc );
			Reference< XIdlClass > * pExceptionTypes = pTempExceptionTypes->getArray();
			
			typelib_TypeDescriptionReference ** ppExc =
                getMethodTypeDescr()->ppExceptions;
			IdlReflectionServiceImpl * pRefl = getReflection();
			
			while (nExc--)
				pExceptionTypes[nExc] = pRefl->forType( ppExc[nExc] );

			_pExceptionTypes = pTempExceptionTypes;
		}
	}
	return *_pExceptionTypes;
}
//__________________________________________________________________________________________________
Sequence< Reference< XIdlClass > > IdlInterfaceMethodImpl::getParameterTypes()
	throw(::com::sun::star::uno::RuntimeException)
{
	if (! _pParamTypes)
	{
		MutexGuard aGuard( getMutexAccess() );
		if (! _pParamTypes)
		{
			sal_Int32 nParams = getMethodTypeDescr()->nParams;
			Sequence< Reference< XIdlClass > > * pTempParamTypes =
				new Sequence< Reference< XIdlClass > >( nParams );
			Reference< XIdlClass > * pParamTypes = pTempParamTypes->getArray();
			
			typelib_MethodParameter * pTypelibParams =
                getMethodTypeDescr()->pParams;
			IdlReflectionServiceImpl * pRefl = getReflection();
			
			while (nParams--)
				pParamTypes[nParams] = pRefl->forType( pTypelibParams[nParams].pTypeRef );

			_pParamTypes = pTempParamTypes;
		}
	}
	return *_pParamTypes;
}
//__________________________________________________________________________________________________
Sequence< ParamInfo > IdlInterfaceMethodImpl::getParameterInfos()
	throw(::com::sun::star::uno::RuntimeException)
{
	if (! _pParamInfos)
	{
		MutexGuard aGuard( getMutexAccess() );
		if (! _pParamInfos)
		{
			sal_Int32 nParams = getMethodTypeDescr()->nParams;
			Sequence< ParamInfo > * pTempParamInfos = new Sequence< ParamInfo >( nParams );
			ParamInfo * pParamInfos = pTempParamInfos->getArray();
			
			typelib_MethodParameter * pTypelibParams =
                getMethodTypeDescr()->pParams;
			
			if (_pParamTypes) // use param types
			{
				const Reference< XIdlClass > * pParamTypes = _pParamTypes->getConstArray();
				
				while (nParams--)
				{
					const typelib_MethodParameter & rParam = pTypelibParams[nParams];
					ParamInfo & rInfo = pParamInfos[nParams];
					rInfo.aName = rParam.pName;
					if (rParam.bIn)
						rInfo.aMode = (rParam.bOut ? ParamMode_INOUT : ParamMode_IN);
					else
						rInfo.aMode = ParamMode_OUT;
					rInfo.aType = pParamTypes[nParams];
				}
			}
			else // make also param types sequence if not already initialized
			{
				Sequence< Reference< XIdlClass > > * pTempParamTypes =
					new Sequence< Reference< XIdlClass > >( nParams );
				Reference< XIdlClass > * pParamTypes = pTempParamTypes->getArray();
				
				IdlReflectionServiceImpl * pRefl = getReflection();
				
				while (nParams--)
				{
					const typelib_MethodParameter & rParam = pTypelibParams[nParams];
					ParamInfo & rInfo = pParamInfos[nParams];
					rInfo.aName = rParam.pName;
					if (rParam.bIn)
						rInfo.aMode = (rParam.bOut ? ParamMode_INOUT : ParamMode_IN);
					else
						rInfo.aMode = ParamMode_OUT;
					rInfo.aType = pParamTypes[nParams] = pRefl->forType( rParam.pTypeRef );
				}
				
				_pParamTypes = pTempParamTypes;
			}
			
			_pParamInfos = pTempParamInfos;
		}
	}
	return *_pParamInfos;
}
//__________________________________________________________________________________________________
MethodMode SAL_CALL IdlInterfaceMethodImpl::getMode()
	throw(::com::sun::star::uno::RuntimeException)
{
	return
        getMethodTypeDescr()->bOneWay ? MethodMode_ONEWAY : MethodMode_TWOWAY;
}
//__________________________________________________________________________________________________
Any SAL_CALL IdlInterfaceMethodImpl::invoke( const Any & rObj, Sequence< Any > & rArgs )
	throw(::com::sun::star::lang::IllegalArgumentException,
		  ::com::sun::star::reflection::InvocationTargetException,
		  ::com::sun::star::uno::RuntimeException)
{
	if (rObj.getValueTypeClass() == TypeClass_INTERFACE)
	{
		// acquire()/ release()
		if (rtl_ustr_ascii_compare( getTypeDescr()->pTypeName->buffer,
									"com.sun.star.uno.XInterface::acquire" ) == 0)
		{
			(*(const Reference< XInterface > *)rObj.getValue())->acquire();
			return Any();
		}
		else if (rtl_ustr_ascii_compare( getTypeDescr()->pTypeName->buffer,
										 "com.sun.star.uno.XInterface::release" ) == 0)
		{
			(*(const Reference< XInterface > *)rObj.getValue())->release();
			return Any();
		}
	}
	
	uno_Interface * pUnoI = getReflection()->mapToUno(
        rObj, (typelib_InterfaceTypeDescription *)getDeclTypeDescr() );
	OSL_ENSURE( pUnoI, "### illegal destination object given!" );
	if (pUnoI)
	{
		sal_Int32 nParams = getMethodTypeDescr()->nParams;
		if (rArgs.getLength() != nParams)
		{
			(*pUnoI->release)( pUnoI );
			throw IllegalArgumentException(
				OUString( RTL_CONSTASCII_USTRINGPARAM("arguments len differ!") ),
				*(const Reference< XInterface > *)rObj.getValue(), 1 );
		}
		
		Any * pCppArgs = rArgs.getArray();
		typelib_MethodParameter * pParams = getMethodTypeDescr()->pParams;
		typelib_TypeDescription * pReturnType = 0;
		TYPELIB_DANGER_GET(
            &pReturnType, getMethodTypeDescr()->pReturnTypeRef );
		
		void * pUnoReturn = alloca( pReturnType->nSize );
		void ** ppUnoArgs = (void **)alloca( sizeof(void *) * nParams *2 );
		typelib_TypeDescription ** ppParamTypes = (typelib_TypeDescription **)(ppUnoArgs + nParams);

		// convert arguments
		for ( sal_Int32 nPos = 0; nPos < nParams; ++nPos )
		{
			ppParamTypes[nPos] = 0;
			TYPELIB_DANGER_GET( ppParamTypes + nPos, pParams[nPos].pTypeRef );
			typelib_TypeDescription * pTD = ppParamTypes[nPos];
			
			ppUnoArgs[nPos] = alloca( pTD->nSize );
			if (pParams[nPos].bIn)
			{
				sal_Bool bAssign;
				if (typelib_typedescriptionreference_equals(
                        pCppArgs[nPos].getValueTypeRef(), pTD->pWeakRef ))
				{
					uno_type_copyAndConvertData(
						ppUnoArgs[nPos], (void *)pCppArgs[nPos].getValue(),
						pCppArgs[nPos].getValueTypeRef(), getReflection()->getCpp2Uno().get() );
					bAssign = sal_True;
				}
				else if (pTD->eTypeClass == typelib_TypeClass_ANY)
				{
					uno_type_any_constructAndConvert(
						(uno_Any *)ppUnoArgs[nPos], (void *)pCppArgs[nPos].getValue(),
						pCppArgs[nPos].getValueTypeRef(), getReflection()->getCpp2Uno().get() );
					bAssign = sal_True;
				}
				else if (pTD->eTypeClass == typelib_TypeClass_INTERFACE)
				{
					Reference< XInterface > xDest;
                    bAssign = extract(
                        pCppArgs[nPos], (typelib_InterfaceTypeDescription *)pTD,
                        xDest, getReflection() );
					if (bAssign)
					{
						*(void **)ppUnoArgs[nPos] = getReflection()->getCpp2Uno().mapInterface(
							xDest.get(), (typelib_InterfaceTypeDescription *)pTD );
					}
				}
				else
				{
					typelib_TypeDescription * pValueTD = 0;
					TYPELIB_DANGER_GET( &pValueTD, pCppArgs[nPos].getValueTypeRef() );
					// construct temp uno val to do proper assignment: todo opt
					void * pTemp = alloca( pValueTD->nSize );
					uno_copyAndConvertData(
						pTemp, (void *)pCppArgs[nPos].getValue(), pValueTD,
                        getReflection()->getCpp2Uno().get() );
					uno_constructData(
						ppUnoArgs[nPos], pTD );
					// assignment does simple conversion
					bAssign = uno_assignData(
						ppUnoArgs[nPos], pTD, pTemp, pValueTD, 0, 0, 0 );
					uno_destructData(
						pTemp, pValueTD, 0 );
					TYPELIB_DANGER_RELEASE( pValueTD );
				}
				
				if (! bAssign)
				{
					IllegalArgumentException aExc(
						OUString( RTL_CONSTASCII_USTRINGPARAM("cannot coerce argument type during corereflection call!") ),
						*(const Reference< XInterface > *)rObj.getValue(), (sal_Int16)nPos );
					
					// cleanup
					while (nPos--)
					{
						if (pParams[nPos].bIn)
							uno_destructData( ppUnoArgs[nPos], ppParamTypes[nPos], 0 );
						TYPELIB_DANGER_RELEASE( ppParamTypes[nPos] );
					}
					TYPELIB_DANGER_RELEASE( pReturnType );
					(*pUnoI->release)( pUnoI );
					
					throw aExc;
				}
			}
		}
		
		uno_Any aUnoExc;
		uno_Any * pUnoExc = &aUnoExc;
		
		(*pUnoI->pDispatcher)(
			pUnoI, getTypeDescr(), pUnoReturn, ppUnoArgs, &pUnoExc );
		(*pUnoI->release)( pUnoI );
		
		Any aRet;
		if (pUnoExc)
		{
			// cleanup
			while (nParams--)
			{
				if (pParams[nParams].bIn)
					uno_destructData( ppUnoArgs[nParams], ppParamTypes[nParams], 0 );
				TYPELIB_DANGER_RELEASE( ppParamTypes[nParams] );
			}
			TYPELIB_DANGER_RELEASE( pReturnType );
			
			InvocationTargetException aExc;
			aExc.Context = *(const Reference< XInterface > *)rObj.getValue();
			aExc.Message = OUString( RTL_CONSTASCII_USTRINGPARAM("exception occured during invocation!") );
			uno_any_destruct(
                &aExc.TargetException,
                reinterpret_cast< uno_ReleaseFunc >(cpp_release) );
			uno_type_copyAndConvertData(
				&aExc.TargetException, pUnoExc, ::getCppuType( (const Any *)0 ).getTypeLibType(),
                getReflection()->getUno2Cpp().get() );
			uno_any_destruct( pUnoExc, 0 );
			throw aExc;
		}
		else
		{
			// reconvert arguments and cleanup
			while (nParams--)
			{
				if (pParams[nParams].bOut) // write back
				{
					uno_any_destruct(
                        &pCppArgs[nParams],
                        reinterpret_cast< uno_ReleaseFunc >(cpp_release) );
					uno_any_constructAndConvert(
						&pCppArgs[nParams], ppUnoArgs[nParams], ppParamTypes[nParams],
                        getReflection()->getUno2Cpp().get() );
				}
				uno_destructData( ppUnoArgs[nParams], ppParamTypes[nParams], 0 );
				TYPELIB_DANGER_RELEASE( ppParamTypes[nParams] );
			}
			uno_any_destruct(
                &aRet, reinterpret_cast< uno_ReleaseFunc >(cpp_release) );
			uno_any_constructAndConvert(
                &aRet, pUnoReturn, pReturnType,
                getReflection()->getUno2Cpp().get() );
			uno_destructData( pUnoReturn, pReturnType, 0 );
			TYPELIB_DANGER_RELEASE( pReturnType );
		}
		return aRet;
	}
	throw IllegalArgumentException(
		OUString( RTL_CONSTASCII_USTRINGPARAM("illegal destination object given!") ),
		(XWeak *)(OWeakObject *)this, 0 );
}


//##################################################################################################
//##################################################################################################
//##################################################################################################


//__________________________________________________________________________________________________
InterfaceIdlClassImpl::~InterfaceIdlClassImpl()
{
	for ( sal_Int32 nPos = _nMethods + _nAttributes; nPos--; )
		typelib_typedescription_release( _pSortedMemberInit[nPos].second );
	
	delete [] _pSortedMemberInit;
}

//__________________________________________________________________________________________________
Sequence< Reference< XIdlClass > > InterfaceIdlClassImpl::getSuperclasses()
	throw(::com::sun::star::uno::RuntimeException)
{
    MutexGuard aGuard(getMutexAccess());
    if (_xSuperClasses.getLength() == 0) {
        typelib_InterfaceTypeDescription * pType = getTypeDescr();
        _xSuperClasses.realloc(pType->nBaseTypes);
        for (sal_Int32 i = 0; i < pType->nBaseTypes; ++i) {
            _xSuperClasses[i] = getReflection()->forType(
                &pType->ppBaseTypes[i]->aBase);
            OSL_ASSERT(_xSuperClasses[i].is());
        }
    }
    return Sequence< Reference< XIdlClass > >(_xSuperClasses);
}
//__________________________________________________________________________________________________
void InterfaceIdlClassImpl::initMembers()
{
	sal_Int32 nAll = getTypeDescr()->nAllMembers;
	MemberInit * pSortedMemberInit = new MemberInit[nAll];
	typelib_TypeDescriptionReference ** ppAllMembers = getTypeDescr()->ppAllMembers;
	
	for ( sal_Int32 nPos = 0; nPos < nAll; ++nPos )
	{
		sal_Int32 nIndex;
		if (ppAllMembers[nPos]->eTypeClass == typelib_TypeClass_INTERFACE_METHOD)
		{
			// methods to front
			nIndex = _nMethods;
			++_nMethods;
		}
		else
		{
			++_nAttributes;
			nIndex = (nAll - _nAttributes);
			// attributes at the back
		}
		
		typelib_TypeDescription * pTD = 0;
		typelib_typedescriptionreference_getDescription( &pTD, ppAllMembers[nPos] );
		OSL_ENSURE( pTD, "### cannot get type description!" );
		pSortedMemberInit[nIndex].first = ((typelib_InterfaceMemberTypeDescription *)pTD)->pMemberName;
		pSortedMemberInit[nIndex].second = pTD;
	}
	
	_pSortedMemberInit = pSortedMemberInit;
}
//__________________________________________________________________________________________________
sal_Bool InterfaceIdlClassImpl::isAssignableFrom( const Reference< XIdlClass > & xType )
	throw(::com::sun::star::uno::RuntimeException)
{
	if (xType.is() && xType->getTypeClass() == TypeClass_INTERFACE)
	{
		if (equals( xType ))
			return sal_True;
		else
		{
			const Sequence< Reference< XIdlClass > > & rSeq = xType->getSuperclasses();
            for (sal_Int32 i = 0; i < rSeq.getLength(); ++i) {
				if (isAssignableFrom(rSeq[i])) {
                    return true;
                }
			}
		}
	}
	return sal_False;
}
//__________________________________________________________________________________________________
Uik InterfaceIdlClassImpl::getUik()
	throw(::com::sun::star::uno::RuntimeException)
{
	return Uik(0, 0, 0, 0, 0);
        // Uiks are deprecated and this function must not be called
}
//__________________________________________________________________________________________________
Sequence< Reference< XIdlMethod > > InterfaceIdlClassImpl::getMethods()
	throw(::com::sun::star::uno::RuntimeException)
{
	MutexGuard aGuard( getMutexAccess() );
	if (! _pSortedMemberInit)
		initMembers();
	
	// create methods sequence
	Sequence< Reference< XIdlMethod > > aRet( _nMethods );
	Reference< XIdlMethod > * pRet = aRet.getArray();
	for ( sal_Int32 nPos = _nMethods; nPos--; )
	{
		
		/*_aName2Method[_pSortedMemberInit[nPos].first] = */pRet[nPos] = new IdlInterfaceMethodImpl(
			getReflection(), _pSortedMemberInit[nPos].first,
			_pSortedMemberInit[nPos].second, IdlClassImpl::getTypeDescr() );
	}
	return aRet;
}
//__________________________________________________________________________________________________
Sequence< Reference< XIdlField > > InterfaceIdlClassImpl::getFields()
	throw(::com::sun::star::uno::RuntimeException)
{
	MutexGuard aGuard( getMutexAccess() );
	if (! _pSortedMemberInit)
		initMembers();
	
	// create fields sequence
	Sequence< Reference< XIdlField > > aRet( _nAttributes );
	Reference< XIdlField > * pRet = aRet.getArray();
	for ( sal_Int32 nPos = _nAttributes; nPos--; )
	{
		/*_aName2Field[_pSortedMemberInit[_nMethods+nPos].first] = */pRet[_nAttributes-nPos-1] =
			new IdlAttributeFieldImpl(
				getReflection(), _pSortedMemberInit[_nMethods+nPos].first,
				_pSortedMemberInit[_nMethods+nPos].second, IdlClassImpl::getTypeDescr() );
	}
	return aRet;
}
//__________________________________________________________________________________________________
Reference< XIdlMethod > InterfaceIdlClassImpl::getMethod( const OUString & rName )
	throw(::com::sun::star::uno::RuntimeException)
{
	MutexGuard aGuard( getMutexAccess() );
	if (! _pSortedMemberInit)
		initMembers();
	
	Reference< XIdlMethod > xRet;
	
	// try weak map
	const OUString2Method::const_iterator iFind( _aName2Method.find( rName ) );
	if (iFind != _aName2Method.end())
		xRet = (*iFind).second; // harden ref
	
	if (! xRet.is())
	{
		for ( sal_Int32 nPos = _nMethods; nPos--; )
		{
			if (_pSortedMemberInit[nPos].first == rName)
			{
				_aName2Method[rName] = xRet = new IdlInterfaceMethodImpl(
					getReflection(), rName,
					_pSortedMemberInit[nPos].second, IdlClassImpl::getTypeDescr() );
				break;
			}
		}
	}
	return xRet;
}
//__________________________________________________________________________________________________
Reference< XIdlField > InterfaceIdlClassImpl::getField( const OUString & rName )
	throw(::com::sun::star::uno::RuntimeException)
{
	MutexGuard aGuard( getMutexAccess() );
	if (! _pSortedMemberInit)
		initMembers();
	
	Reference< XIdlField > xRet;
	
	// try weak map
	const OUString2Field::const_iterator iFind( _aName2Field.find( rName ) );
	if (iFind != _aName2Field.end())
		xRet = (*iFind).second; // harden ref
	
	if (! xRet.is())
	{
		for ( sal_Int32 nPos = _nAttributes; nPos--; )
		{
			if (_pSortedMemberInit[_nMethods+nPos].first == rName)
			{
				_aName2Field[rName] = xRet = new IdlAttributeFieldImpl(
					getReflection(), rName,
					_pSortedMemberInit[_nMethods+nPos].second, IdlClassImpl::getTypeDescr() );
				break;
			}
		}
	}
	return xRet;
}
//__________________________________________________________________________________________________
void InterfaceIdlClassImpl::createObject( Any & rObj )
	throw(::com::sun::star::uno::RuntimeException)
{
	// interfaces cannot be constructed
	rObj.clear();
}

}