405 lines
16 KiB
C++
405 lines
16 KiB
C++
/*************************************************************************
|
|
*
|
|
* 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 <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;
|
|
}
|
|
|
|
}
|
|
|
|
|