text: /**************************************************************
   * 
   * 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;
  }
  
  }
  
  
  