Line data Source code
1 : /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
2 : /*
3 : * This file is part of the LibreOffice project.
4 : *
5 : * This Source Code Form is subject to the terms of the Mozilla Public
6 : * License, v. 2.0. If a copy of the MPL was not distributed with this
7 : * file, You can obtain one at http://mozilla.org/MPL/2.0/.
8 : *
9 : * This file incorporates work covered by the following license notice:
10 : *
11 : * Licensed to the Apache Software Foundation (ASF) under one or more
12 : * contributor license agreements. See the NOTICE file distributed
13 : * with this work for additional information regarding copyright
14 : * ownership. The ASF licenses this file to you under the Apache
15 : * License, Version 2.0 (the "License"); you may not use this file
16 : * except in compliance with the License. You may obtain a copy of
17 : * the License at http://www.apache.org/licenses/LICENSE-2.0 .
18 : */
19 :
20 : #include <rtl/strbuf.hxx>
21 :
22 : #include <com/sun/star/reflection/XIdlField.hpp>
23 : #include <com/sun/star/reflection/XIdlField2.hpp>
24 : #include "com/sun/star/uno/TypeClass.hpp"
25 :
26 : #include "base.hxx"
27 :
28 :
29 : namespace stoc_corefl
30 : {
31 :
32 :
33 132 : class IdlCompFieldImpl
34 : : public IdlMemberImpl
35 : , public XIdlField
36 : , public XIdlField2
37 : {
38 : sal_Int32 _nOffset;
39 :
40 : public:
41 149 : IdlCompFieldImpl( IdlReflectionServiceImpl * pReflection, const OUString & rName,
42 : typelib_TypeDescription * pTypeDescr, typelib_TypeDescription * pDeclTypeDescr,
43 : sal_Int32 nOffset )
44 : : IdlMemberImpl( pReflection, rName, pTypeDescr, pDeclTypeDescr )
45 149 : , _nOffset( nOffset )
46 149 : {}
47 :
48 : // XInterface
49 : virtual Any SAL_CALL queryInterface( const Type & rType ) throw (::com::sun::star::uno::RuntimeException, std::exception) SAL_OVERRIDE;
50 : virtual void SAL_CALL acquire() throw () SAL_OVERRIDE;
51 : virtual void SAL_CALL release() throw () SAL_OVERRIDE;
52 :
53 : // XTypeProvider
54 : virtual Sequence< Type > SAL_CALL getTypes() throw (::com::sun::star::uno::RuntimeException, std::exception) SAL_OVERRIDE;
55 : virtual Sequence< sal_Int8 > SAL_CALL getImplementationId() throw (::com::sun::star::uno::RuntimeException, std::exception) SAL_OVERRIDE;
56 :
57 : // XIdlMember
58 : virtual Reference< XIdlClass > SAL_CALL getDeclaringClass() throw(::com::sun::star::uno::RuntimeException, std::exception) SAL_OVERRIDE;
59 : virtual OUString SAL_CALL getName() throw(::com::sun::star::uno::RuntimeException, std::exception) SAL_OVERRIDE;
60 : // XIdlField
61 : virtual Reference< XIdlClass > SAL_CALL getType() throw(::com::sun::star::uno::RuntimeException, std::exception) SAL_OVERRIDE;
62 : virtual FieldAccessMode SAL_CALL getAccessMode() throw(::com::sun::star::uno::RuntimeException, std::exception) SAL_OVERRIDE;
63 : virtual Any SAL_CALL get( const Any & rObj ) throw(::com::sun::star::lang::IllegalArgumentException, ::com::sun::star::uno::RuntimeException, std::exception) SAL_OVERRIDE;
64 : 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, std::exception) SAL_OVERRIDE;
65 : // XIdlField2: getType, getAccessMode and get are equal to XIdlField
66 : 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, std::exception) SAL_OVERRIDE;
67 : };
68 :
69 : // XInterface
70 :
71 260 : Any IdlCompFieldImpl::queryInterface( const Type & rType )
72 : throw(::com::sun::star::uno::RuntimeException, std::exception)
73 : {
74 : Any aRet( ::cppu::queryInterface( rType,
75 : static_cast< XIdlField * >( this ),
76 260 : static_cast< XIdlField2 * >( this ) ) );
77 260 : return (aRet.hasValue() ? aRet : IdlMemberImpl::queryInterface( rType ));
78 : }
79 :
80 1367 : void IdlCompFieldImpl::acquire() throw()
81 : {
82 1367 : IdlMemberImpl::acquire();
83 1367 : }
84 :
85 1210 : void IdlCompFieldImpl::release() throw()
86 : {
87 1210 : IdlMemberImpl::release();
88 1210 : }
89 :
90 : // XTypeProvider
91 :
92 0 : Sequence< Type > IdlCompFieldImpl::getTypes()
93 : throw (::com::sun::star::uno::RuntimeException, std::exception)
94 : {
95 : static OTypeCollection * s_pTypes = 0;
96 0 : if (! s_pTypes)
97 : {
98 0 : MutexGuard aGuard( getMutexAccess() );
99 0 : if (! s_pTypes)
100 : {
101 : static OTypeCollection s_aTypes(
102 0 : ::getCppuType( (const Reference< XIdlField2 > *)0 ),
103 0 : ::getCppuType( (const Reference< XIdlField > *)0 ),
104 0 : IdlMemberImpl::getTypes() );
105 0 : s_pTypes = &s_aTypes;
106 0 : }
107 : }
108 0 : return s_pTypes->getTypes();
109 : }
110 :
111 0 : Sequence< sal_Int8 > IdlCompFieldImpl::getImplementationId()
112 : throw (::com::sun::star::uno::RuntimeException, std::exception)
113 : {
114 0 : return css::uno::Sequence<sal_Int8>();
115 : }
116 :
117 : // XIdlMember
118 :
119 0 : Reference< XIdlClass > IdlCompFieldImpl::getDeclaringClass()
120 : throw(::com::sun::star::uno::RuntimeException, std::exception)
121 : {
122 0 : if (! _xDeclClass.is())
123 : {
124 0 : MutexGuard aGuard( getMutexAccess() );
125 0 : if (! _xDeclClass.is())
126 : {
127 : typelib_CompoundTypeDescription * pTD =
128 0 : (typelib_CompoundTypeDescription *)getDeclTypeDescr();
129 0 : while (pTD)
130 : {
131 0 : typelib_TypeDescriptionReference ** ppTypeRefs = pTD->ppTypeRefs;
132 0 : for ( sal_Int32 nPos = pTD->nMembers; nPos--; )
133 : {
134 0 : if (td_equals( (typelib_TypeDescription *)getTypeDescr(), ppTypeRefs[nPos] ))
135 : {
136 0 : _xDeclClass = getReflection()->forType( (typelib_TypeDescription *)pTD );
137 0 : return _xDeclClass;
138 : }
139 : }
140 0 : pTD = pTD->pBaseTypeDescription;
141 : }
142 0 : }
143 : }
144 0 : return _xDeclClass;
145 : }
146 :
147 149 : OUString IdlCompFieldImpl::getName()
148 : throw(::com::sun::star::uno::RuntimeException, std::exception)
149 : {
150 149 : return IdlMemberImpl::getName();
151 : }
152 :
153 : // XIdlField
154 :
155 149 : Reference< XIdlClass > IdlCompFieldImpl::getType()
156 : throw(::com::sun::star::uno::RuntimeException, std::exception)
157 : {
158 149 : return getReflection()->forType( getTypeDescr() );
159 : }
160 :
161 149 : FieldAccessMode IdlCompFieldImpl::getAccessMode()
162 : throw(::com::sun::star::uno::RuntimeException, std::exception)
163 : {
164 149 : return FieldAccessMode_READWRITE;
165 : }
166 :
167 438 : Any IdlCompFieldImpl::get( const Any & rObj )
168 : throw(::com::sun::star::lang::IllegalArgumentException, ::com::sun::star::uno::RuntimeException, std::exception)
169 : {
170 438 : if (rObj.getValueTypeClass() == com::sun::star::uno::TypeClass_STRUCT ||
171 0 : rObj.getValueTypeClass() == com::sun::star::uno::TypeClass_EXCEPTION)
172 : {
173 438 : typelib_TypeDescription * pObjTD = 0;
174 438 : TYPELIB_DANGER_GET( &pObjTD, rObj.getValueTypeRef() );
175 :
176 438 : typelib_TypeDescription * pTD = pObjTD;
177 438 : typelib_TypeDescription * pDeclTD = getDeclTypeDescr();
178 876 : while (pTD && !typelib_typedescription_equals( pTD, pDeclTD ))
179 0 : pTD = (typelib_TypeDescription *)((typelib_CompoundTypeDescription *)pTD)->pBaseTypeDescription;
180 :
181 : OSL_ENSURE( pTD, "### illegal object type!" );
182 438 : if (pTD)
183 : {
184 438 : TYPELIB_DANGER_RELEASE( pObjTD );
185 438 : Any aRet;
186 : uno_any_destruct(
187 438 : &aRet, reinterpret_cast< uno_ReleaseFunc >(cpp_release) );
188 : uno_any_construct(
189 876 : &aRet, (char *)rObj.getValue() + _nOffset, getTypeDescr(),
190 1314 : reinterpret_cast< uno_AcquireFunc >(cpp_acquire) );
191 876 : return aRet;
192 : }
193 0 : TYPELIB_DANGER_RELEASE( pObjTD );
194 : }
195 : throw IllegalArgumentException(
196 : OUString("illegal object given!"),
197 0 : (XWeak *)(OWeakObject *)this, 0 );
198 : }
199 :
200 0 : void IdlCompFieldImpl::set( const Any & rObj, const Any & rValue )
201 : throw(::com::sun::star::lang::IllegalArgumentException, ::com::sun::star::lang::IllegalAccessException, ::com::sun::star::uno::RuntimeException, std::exception)
202 : {
203 0 : if (rObj.getValueTypeClass() == com::sun::star::uno::TypeClass_STRUCT ||
204 0 : rObj.getValueTypeClass() == com::sun::star::uno::TypeClass_EXCEPTION)
205 : {
206 0 : typelib_TypeDescription * pObjTD = 0;
207 0 : TYPELIB_DANGER_GET( &pObjTD, rObj.getValueTypeRef() );
208 :
209 0 : typelib_TypeDescription * pTD = pObjTD;
210 0 : typelib_TypeDescription * pDeclTD = getDeclTypeDescr();
211 0 : while (pTD && !typelib_typedescription_equals( pTD, pDeclTD ))
212 0 : pTD = (typelib_TypeDescription *)((typelib_CompoundTypeDescription *)pTD)->pBaseTypeDescription;
213 :
214 : OSL_ENSURE( pTD, "### illegal object type!" );
215 0 : if (pTD)
216 : {
217 0 : TYPELIB_DANGER_RELEASE( pObjTD );
218 0 : if (coerce_assign( (char *)rObj.getValue() + _nOffset, getTypeDescr(), rValue, getReflection() ))
219 : {
220 0 : return;
221 : }
222 : else
223 : {
224 : throw IllegalArgumentException(
225 : OUString("illegal value given!"),
226 0 : (XWeak *)(OWeakObject *)this, 1 );
227 : }
228 : }
229 0 : TYPELIB_DANGER_RELEASE( pObjTD );
230 : }
231 : throw IllegalArgumentException(
232 : OUString("illegal object given!"),
233 0 : (XWeak *)(OWeakObject *)this, 0 );
234 : }
235 :
236 :
237 111 : void IdlCompFieldImpl::set( Any & rObj, const Any & rValue )
238 : throw(::com::sun::star::lang::IllegalArgumentException, ::com::sun::star::lang::IllegalAccessException, ::com::sun::star::uno::RuntimeException, std::exception)
239 : {
240 111 : if (rObj.getValueTypeClass() == com::sun::star::uno::TypeClass_STRUCT ||
241 0 : rObj.getValueTypeClass() == com::sun::star::uno::TypeClass_EXCEPTION)
242 : {
243 111 : typelib_TypeDescription * pObjTD = 0;
244 111 : TYPELIB_DANGER_GET( &pObjTD, rObj.getValueTypeRef() );
245 :
246 111 : typelib_TypeDescription * pTD = pObjTD;
247 111 : typelib_TypeDescription * pDeclTD = getDeclTypeDescr();
248 222 : while (pTD && !typelib_typedescription_equals( pTD, pDeclTD ))
249 0 : pTD = (typelib_TypeDescription *)((typelib_CompoundTypeDescription *)pTD)->pBaseTypeDescription;
250 :
251 : OSL_ENSURE( pTD, "### illegal object type!" );
252 111 : if (pTD)
253 : {
254 111 : TYPELIB_DANGER_RELEASE( pObjTD );
255 111 : if (coerce_assign( (char *)rObj.getValue() + _nOffset, getTypeDescr(), rValue, getReflection() ))
256 : {
257 222 : return;
258 : }
259 : else
260 : {
261 : throw IllegalArgumentException(
262 : OUString("illegal value given!"),
263 0 : (XWeak *)(OWeakObject *)this, 1 );
264 : }
265 : }
266 0 : TYPELIB_DANGER_RELEASE( pObjTD );
267 : }
268 : throw IllegalArgumentException(
269 : OUString("illegal object given!"),
270 0 : (XWeak *)(OWeakObject *)this, 0 );
271 : }
272 :
273 :
274 :
275 :
276 :
277 :
278 :
279 564 : CompoundIdlClassImpl::~CompoundIdlClassImpl()
280 : {
281 188 : delete _pFields;
282 376 : }
283 :
284 :
285 16 : sal_Bool CompoundIdlClassImpl::isAssignableFrom( const Reference< XIdlClass > & xType )
286 : throw(::com::sun::star::uno::RuntimeException, std::exception)
287 : {
288 16 : if (xType.is())
289 : {
290 16 : TypeClass eTC = xType->getTypeClass();
291 16 : if (eTC == TypeClass_STRUCT || eTC == TypeClass_EXCEPTION)
292 : {
293 7 : if (equals( xType ))
294 7 : return sal_True;
295 : else
296 : {
297 0 : const Sequence< Reference< XIdlClass > > & rSeq = xType->getSuperclasses();
298 0 : if (rSeq.getLength())
299 : {
300 : OSL_ENSURE( rSeq.getLength() == 1, "### unexpected len of super classes!" );
301 0 : return isAssignableFrom( rSeq[0] );
302 0 : }
303 : }
304 : }
305 : }
306 9 : return sal_False;
307 : }
308 :
309 0 : Sequence< Reference< XIdlClass > > CompoundIdlClassImpl::getSuperclasses()
310 : throw(::com::sun::star::uno::RuntimeException, std::exception)
311 : {
312 0 : if (! _xSuperClass.is())
313 : {
314 0 : MutexGuard aGuard( getMutexAccess() );
315 0 : if (! _xSuperClass.is())
316 : {
317 0 : typelib_CompoundTypeDescription * pCompTypeDescr = getTypeDescr()->pBaseTypeDescription;
318 0 : if (pCompTypeDescr)
319 0 : _xSuperClass = getReflection()->forType( (typelib_TypeDescription *)pCompTypeDescr );
320 0 : }
321 : }
322 0 : if (_xSuperClass.is())
323 0 : return Sequence< Reference< XIdlClass > >( &_xSuperClass, 1 );
324 : else
325 0 : return Sequence< Reference< XIdlClass > >();
326 : }
327 :
328 0 : Reference< XIdlField > CompoundIdlClassImpl::getField( const OUString & rName )
329 : throw(::com::sun::star::uno::RuntimeException, std::exception)
330 : {
331 0 : if (! _pFields)
332 0 : getFields(); // init fields
333 :
334 0 : const OUString2Field::const_iterator iFind( _aName2Field.find( rName ) );
335 0 : if (iFind != _aName2Field.end())
336 0 : return Reference< XIdlField >( (*iFind).second );
337 : else
338 0 : return Reference< XIdlField >();
339 : }
340 :
341 32 : Sequence< Reference< XIdlField > > CompoundIdlClassImpl::getFields()
342 : throw(::com::sun::star::uno::RuntimeException, std::exception)
343 : {
344 32 : MutexGuard aGuard( getMutexAccess() );
345 32 : if (! _pFields)
346 : {
347 32 : sal_Int32 nAll = 0;
348 32 : typelib_CompoundTypeDescription * pCompTypeDescr = getTypeDescr();
349 75 : for ( ; pCompTypeDescr; pCompTypeDescr = pCompTypeDescr->pBaseTypeDescription )
350 43 : nAll += pCompTypeDescr->nMembers;
351 :
352 : Sequence< Reference< XIdlField > > * pFields =
353 32 : new Sequence< Reference< XIdlField > >( nAll );
354 32 : Reference< XIdlField > * pSeq = pFields->getArray();
355 :
356 75 : for ( pCompTypeDescr = getTypeDescr(); pCompTypeDescr;
357 : pCompTypeDescr = pCompTypeDescr->pBaseTypeDescription )
358 : {
359 43 : typelib_TypeDescriptionReference ** ppTypeRefs = pCompTypeDescr->ppTypeRefs;
360 43 : rtl_uString ** ppNames = pCompTypeDescr->ppMemberNames;
361 43 : sal_Int32 * pMemberOffsets = pCompTypeDescr->pMemberOffsets;
362 :
363 235 : for ( sal_Int32 nPos = pCompTypeDescr->nMembers; nPos--; )
364 : {
365 149 : typelib_TypeDescription * pTD = 0;
366 149 : TYPELIB_DANGER_GET( &pTD, ppTypeRefs[nPos] );
367 : OSL_ENSURE( pTD, "### cannot get field in struct!" );
368 149 : if (pTD)
369 : {
370 149 : OUString aName( ppNames[nPos] );
371 596 : _aName2Field[aName] = pSeq[--nAll] = new IdlCompFieldImpl(
372 745 : getReflection(), aName, pTD, IdlClassImpl::getTypeDescr(), pMemberOffsets[nPos] );
373 149 : TYPELIB_DANGER_RELEASE( pTD );
374 : }
375 : }
376 : }
377 :
378 32 : _pFields = pFields;
379 : }
380 32 : return *_pFields;
381 : }
382 :
383 : }
384 :
385 :
386 : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|