/**************************************************************
 * 
 * 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
 * 
 * Unless required by applicable law or agreed to in writing,
 * software distributed under the License is distributed on an
 * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
 * KIND, either express or implied.  See the License for the
 * specific language governing permissions and limitations
 * under the License.
 * 
 *************************************************************/


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

#include <com/sun/star/reflection/XIdlField.hpp>
#include <com/sun/star/reflection/XIdlField2.hpp>
#include "com/sun/star/uno/TypeClass.hpp"

#include "base.hxx"


namespace stoc_corefl
{

//==================================================================================================
class IdlCompFieldImpl
	: public IdlMemberImpl
	, public XIdlField
	, public XIdlField2
{
	sal_Int32					_nOffset;
	
public:
	IdlCompFieldImpl( IdlReflectionServiceImpl * pReflection, const OUString & rName,
					  typelib_TypeDescription * pTypeDescr, typelib_TypeDescription * pDeclTypeDescr,
					  sal_Int32 nOffset )
		: IdlMemberImpl( pReflection, rName, pTypeDescr, pDeclTypeDescr )
		, _nOffset( nOffset )
		{}
	
	// 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);
};

// XInterface
//__________________________________________________________________________________________________
Any IdlCompFieldImpl::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 IdlCompFieldImpl::acquire() throw()
{
	IdlMemberImpl::acquire();
}
//__________________________________________________________________________________________________
void IdlCompFieldImpl::release() throw()
{
	IdlMemberImpl::release();
}

// XTypeProvider
//__________________________________________________________________________________________________
Sequence< Type > IdlCompFieldImpl::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 > IdlCompFieldImpl::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 > IdlCompFieldImpl::getDeclaringClass()
	throw(::com::sun::star::uno::RuntimeException)
{
	if (! _xDeclClass.is())
	{
		MutexGuard aGuard( getMutexAccess() );
		if (! _xDeclClass.is())
		{
			typelib_CompoundTypeDescription * pTD =
				(typelib_CompoundTypeDescription *)getDeclTypeDescr();
			while (pTD)
			{
				typelib_TypeDescriptionReference ** ppTypeRefs = pTD->ppTypeRefs;
				for ( sal_Int32 nPos = pTD->nMembers; nPos--; )
				{
					if (td_equals( (typelib_TypeDescription *)getTypeDescr(), ppTypeRefs[nPos] ))
					{
						_xDeclClass = getReflection()->forType( (typelib_TypeDescription *)pTD );
						return _xDeclClass;
					}
				}
				pTD = pTD->pBaseTypeDescription;
			}
		}
	}
	return _xDeclClass;
}
//__________________________________________________________________________________________________
OUString IdlCompFieldImpl::getName()
	throw(::com::sun::star::uno::RuntimeException)
{
	return IdlMemberImpl::getName();
}

// XIdlField
//__________________________________________________________________________________________________
Reference< XIdlClass > IdlCompFieldImpl::getType()
	throw(::com::sun::star::uno::RuntimeException)
{
	return getReflection()->forType( getTypeDescr() );
}
//__________________________________________________________________________________________________
FieldAccessMode IdlCompFieldImpl::getAccessMode()
	throw(::com::sun::star::uno::RuntimeException)
{
    return FieldAccessMode_READWRITE;
}
//__________________________________________________________________________________________________
Any IdlCompFieldImpl::get( const Any & rObj )
	throw(::com::sun::star::lang::IllegalArgumentException, ::com::sun::star::uno::RuntimeException)
{
	if (rObj.getValueTypeClass() == com::sun::star::uno::TypeClass_STRUCT ||
		rObj.getValueTypeClass() == com::sun::star::uno::TypeClass_EXCEPTION)
	{
		typelib_TypeDescription * pObjTD = 0;
		TYPELIB_DANGER_GET( &pObjTD, rObj.getValueTypeRef() );
		
		typelib_TypeDescription * pTD = pObjTD;
		typelib_TypeDescription * pDeclTD = getDeclTypeDescr();
		while (pTD && !typelib_typedescription_equals( pTD, pDeclTD ))
			pTD = (typelib_TypeDescription *)((typelib_CompoundTypeDescription *)pTD)->pBaseTypeDescription;
		
		OSL_ENSURE( pTD, "### illegal object type!" );
		if (pTD)
		{
			TYPELIB_DANGER_RELEASE( pObjTD );
			Any aRet;
			uno_any_destruct(
                &aRet, reinterpret_cast< uno_ReleaseFunc >(cpp_release) );
			uno_any_construct(
                &aRet, (char *)rObj.getValue() + _nOffset, getTypeDescr(),
                reinterpret_cast< uno_AcquireFunc >(cpp_acquire) );
			return aRet;
		}
		TYPELIB_DANGER_RELEASE( pObjTD );
	}
	throw IllegalArgumentException(
		OUString( RTL_CONSTASCII_USTRINGPARAM("illegal object given!") ),
		(XWeak *)(OWeakObject *)this, 0 );
}
//__________________________________________________________________________________________________
void IdlCompFieldImpl::set( const Any & rObj, const Any & rValue )
	throw(::com::sun::star::lang::IllegalArgumentException, ::com::sun::star::lang::IllegalAccessException, ::com::sun::star::uno::RuntimeException)
{
	if (rObj.getValueTypeClass() == com::sun::star::uno::TypeClass_STRUCT ||
		rObj.getValueTypeClass() == com::sun::star::uno::TypeClass_EXCEPTION)
	{
		typelib_TypeDescription * pObjTD = 0;
		TYPELIB_DANGER_GET( &pObjTD, rObj.getValueTypeRef() );
		
		typelib_TypeDescription * pTD = pObjTD;
		typelib_TypeDescription * pDeclTD = getDeclTypeDescr();
		while (pTD && !typelib_typedescription_equals( pTD, pDeclTD ))
			pTD = (typelib_TypeDescription *)((typelib_CompoundTypeDescription *)pTD)->pBaseTypeDescription;
		
		OSL_ENSURE( pTD, "### illegal object type!" );
		if (pTD)
		{
			TYPELIB_DANGER_RELEASE( pObjTD );
			if (coerce_assign( (char *)rObj.getValue() + _nOffset, getTypeDescr(), rValue, getReflection() ))
			{
				return;
			}
			else
			{
				throw IllegalArgumentException(
					OUString( RTL_CONSTASCII_USTRINGPARAM("illegal value given!") ),
					(XWeak *)(OWeakObject *)this, 1 );
			}
		}
		TYPELIB_DANGER_RELEASE( pObjTD );
	}
	throw IllegalArgumentException(
		OUString( RTL_CONSTASCII_USTRINGPARAM("illegal object given!") ),
		(XWeak *)(OWeakObject *)this, 0 );
}

//__________________________________________________________________________________________________
void IdlCompFieldImpl::set( Any & rObj, const Any & rValue )
	throw(::com::sun::star::lang::IllegalArgumentException, ::com::sun::star::lang::IllegalAccessException, ::com::sun::star::uno::RuntimeException)
{
	if (rObj.getValueTypeClass() == com::sun::star::uno::TypeClass_STRUCT ||
		rObj.getValueTypeClass() == com::sun::star::uno::TypeClass_EXCEPTION)
	{
		typelib_TypeDescription * pObjTD = 0;
		TYPELIB_DANGER_GET( &pObjTD, rObj.getValueTypeRef() );
		
		typelib_TypeDescription * pTD = pObjTD;
		typelib_TypeDescription * pDeclTD = getDeclTypeDescr();
		while (pTD && !typelib_typedescription_equals( pTD, pDeclTD ))
			pTD = (typelib_TypeDescription *)((typelib_CompoundTypeDescription *)pTD)->pBaseTypeDescription;
		
		OSL_ENSURE( pTD, "### illegal object type!" );
		if (pTD)
		{
			TYPELIB_DANGER_RELEASE( pObjTD );
			if (coerce_assign( (char *)rObj.getValue() + _nOffset, getTypeDescr(), rValue, getReflection() ))
			{
				return;
			}
			else
			{
				throw IllegalArgumentException(
					OUString( RTL_CONSTASCII_USTRINGPARAM("illegal value given!") ),
					(XWeak *)(OWeakObject *)this, 1 );
			}
		}
		TYPELIB_DANGER_RELEASE( pObjTD );
	}
	throw IllegalArgumentException(
		OUString( RTL_CONSTASCII_USTRINGPARAM("illegal object given!") ),
		(XWeak *)(OWeakObject *)this, 0 );
}

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


//__________________________________________________________________________________________________
CompoundIdlClassImpl::~CompoundIdlClassImpl()
{
	delete _pFields;
}

//__________________________________________________________________________________________________
sal_Bool CompoundIdlClassImpl::isAssignableFrom( const Reference< XIdlClass > & xType )
	throw(::com::sun::star::uno::RuntimeException)
{
	if (xType.is())
	{
		TypeClass eTC = xType->getTypeClass();
		if (eTC == TypeClass_STRUCT || eTC == TypeClass_EXCEPTION)
		{
			if (equals( xType ))
				return sal_True;
			else
			{
				const Sequence< Reference< XIdlClass > > & rSeq = xType->getSuperclasses();
				if (rSeq.getLength())
				{
					OSL_ENSURE( rSeq.getLength() == 1, "### unexpected len of super classes!" );
					return isAssignableFrom( rSeq[0] );
				}
			}
		}
	}
	return sal_False;
}
//__________________________________________________________________________________________________
Sequence< Reference< XIdlClass > > CompoundIdlClassImpl::getSuperclasses()
	throw(::com::sun::star::uno::RuntimeException)
{
	if (! _xSuperClass.is())
	{
		MutexGuard aGuard( getMutexAccess() );
		if (! _xSuperClass.is())
		{
			typelib_CompoundTypeDescription * pCompTypeDescr = getTypeDescr()->pBaseTypeDescription;
			if (pCompTypeDescr)
				_xSuperClass = getReflection()->forType( (typelib_TypeDescription *)pCompTypeDescr );
		}
	}
	if (_xSuperClass.is())
		return Sequence< Reference< XIdlClass > >( &_xSuperClass, 1 );
	else
		return Sequence< Reference< XIdlClass > >();
}
//__________________________________________________________________________________________________
Reference< XIdlField > CompoundIdlClassImpl::getField( const OUString & rName )
	throw(::com::sun::star::uno::RuntimeException)
{
	if (! _pFields)
		getFields(); // init fields
	
	const OUString2Field::const_iterator iFind( _aName2Field.find( rName ) );
	if (iFind != _aName2Field.end())
		return Reference< XIdlField >( (*iFind).second );
	else
		return Reference< XIdlField >();
}
//__________________________________________________________________________________________________
Sequence< Reference< XIdlField > > CompoundIdlClassImpl::getFields()
	throw(::com::sun::star::uno::RuntimeException)
{
	MutexGuard aGuard( getMutexAccess() );
	if (! _pFields)
	{
		sal_Int32 nAll = 0;
		typelib_CompoundTypeDescription * pCompTypeDescr = getTypeDescr();
		for ( ; pCompTypeDescr; pCompTypeDescr = pCompTypeDescr->pBaseTypeDescription )
			nAll += pCompTypeDescr->nMembers;
		
		Sequence< Reference< XIdlField > > * pFields =
			new Sequence< Reference< XIdlField > >( nAll );
		Reference< XIdlField > * pSeq = pFields->getArray();
		
		for ( pCompTypeDescr = getTypeDescr(); pCompTypeDescr;
			  pCompTypeDescr = pCompTypeDescr->pBaseTypeDescription )
		{
			typelib_TypeDescriptionReference ** ppTypeRefs = pCompTypeDescr->ppTypeRefs;
			rtl_uString ** ppNames						   = pCompTypeDescr->ppMemberNames;
			sal_Int32 * pMemberOffsets					   = pCompTypeDescr->pMemberOffsets;
			
			for ( sal_Int32 nPos = pCompTypeDescr->nMembers; nPos--; )
			{
				typelib_TypeDescription * pTD = 0;
				TYPELIB_DANGER_GET( &pTD, ppTypeRefs[nPos] );
				OSL_ENSURE( pTD, "### cannot get field in struct!" );
				if (pTD)
				{
					OUString aName( ppNames[nPos] );
					_aName2Field[aName] = pSeq[--nAll] = new IdlCompFieldImpl(
						getReflection(), aName, pTD, IdlClassImpl::getTypeDescr(), pMemberOffsets[nPos] );
					TYPELIB_DANGER_RELEASE( pTD );
				}
			}
		}
		
		_pFields = pFields;
	}
	return *_pFields;
}

}