diff options
Diffstat (limited to 'stoc/source/corereflection/crcomp.cxx')
| -rw-r--r-- | stoc/source/corereflection/crcomp.cxx | 407 |
1 files changed, 0 insertions, 407 deletions
diff --git a/stoc/source/corereflection/crcomp.cxx b/stoc/source/corereflection/crcomp.cxx deleted file mode 100644 index c44c50537..000000000 --- a/stoc/source/corereflection/crcomp.cxx +++ /dev/null @@ -1,407 +0,0 @@ -/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ -/************************************************************************* - * - * 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; -} - -} - - -/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ |