/usr/local/src/libreoffice/stoc/source/inspect/introspection.cxx

Bug Summary

File:	stoc/source/inspect/introspection.cxx
Location:	line 315, column 19
Description:	Value stored to 'nSearchFrom' during its initialization is never read

Annotated 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 <string.h>
21
22	#define INTROSPECTION_CACHE_MAX_SIZE100 100
23
24	#include <osl/diagnose.h>
25	#include <osl/mutex.hxx>
26	#include <osl/thread.h>
27	#include <cppuhelper/queryinterface.hxx>
28	#include <cppuhelper/weak.hxx>
29	#include <cppuhelper/component.hxx>
30	#include <cppuhelper/factory.hxx>
31	#include <cppuhelper/implbase3.hxx>
32	#include <cppuhelper/typeprovider.hxx>
33	#include <salhelper/simplereferenceobject.hxx>
34
35	#include <com/sun/star/uno/DeploymentException.hpp>
36	#include <com/sun/star/lang/XSingleServiceFactory.hpp>
37	#include <com/sun/star/lang/XMultiServiceFactory.hpp>
38	#include <com/sun/star/lang/XServiceInfo.hpp>
39	#include <com/sun/star/lang/XEventListener.hpp>
40	#include <com/sun/star/reflection/XIdlReflection.hpp>
41	#include <com/sun/star/reflection/XIdlClass.hpp>
42	#include <com/sun/star/reflection/XIdlField2.hpp>
43	#include <com/sun/star/beans/UnknownPropertyException.hpp>
44	#include <com/sun/star/beans/Property.hpp>
45	#include <com/sun/star/beans/XPropertySet.hpp>
46	#include <com/sun/star/beans/XFastPropertySet.hpp>
47	#include <com/sun/star/beans/XIntrospection.hpp>
48	#include <com/sun/star/beans/XIntrospectionAccess.hpp>
49	#include <com/sun/star/beans/XMaterialHolder.hpp>
50	#include <com/sun/star/beans/XExactName.hpp>
51	#include <com/sun/star/beans/PropertyAttribute.hpp>
52	#include <com/sun/star/beans/PropertyConcept.hpp>
53	#include <com/sun/star/beans/MethodConcept.hpp>
54	#include <com/sun/star/container/XNameContainer.hpp>
55	#include <com/sun/star/container/XIndexContainer.hpp>
56	#include <com/sun/star/container/XEnumerationAccess.hpp>
57
58	#include <rtl/ref.hxx>
59	#include <rtl/ustrbuf.hxx>
60	#include <rtl/ref.hxx>
61	#include <rtl/strbuf.hxx>
62	#include <boost/unordered_map.hpp>
63
64	using namespace com::sun::star::uno;
65	using namespace com::sun::star::lang;
66	using namespace com::sun::star::reflection;
67	using namespace com::sun::star::container;
68	using namespace com::sun::star::registry;
69	using namespace com::sun::star::beans;
70	using namespace com::sun::star::beans::PropertyAttribute;
71	using namespace com::sun::star::beans::PropertyConcept;
72	using namespace com::sun::star::beans::MethodConcept;
73	using namespace cppu;
74	using namespace osl;
75
76	#define IMPLEMENTATION_NAME"com.sun.star.comp.stoc.Introspection" "com.sun.star.comp.stoc.Introspection"
77	#define SERVICE_NAME"com.sun.star.beans.Introspection" "com.sun.star.beans.Introspection"
78
79	namespace stoc_inspect
80	{
81
82	typedef WeakImplHelper3< XIntrospectionAccess, XMaterialHolder, XExactName > IntrospectionAccessHelper;
83
84
85	//==================================================================================================
86
87	// Spezial-Wert fuer Method-Concept, um "normale" Funktionen kennzeichnen zu koennen
88	#define MethodConcept_NORMAL_IMPL0x80000000 0x80000000
89
90
91	// Methode zur Feststellung, ob eine Klasse von einer anderen abgeleitet ist
92	sal_Bool isDerivedFrom( Reference<XIdlClass> xToTestClass, Reference<XIdlClass> xDerivedFromClass )
93	{
94	Sequence< Reference<XIdlClass> > aClassesSeq = xToTestClass->getSuperclasses();
95	const Reference<XIdlClass>* pClassesArray = aClassesSeq.getConstArray();
96
97	sal_Int32 nSuperClassCount = aClassesSeq.getLength();
98	for ( sal_Int32 i = 0; i < nSuperClassCount; ++i )
99	{
100	const Reference<XIdlClass>& rxClass = pClassesArray[i];
101
102	if ( xDerivedFromClass->equals( rxClass ) \|\|
103	isDerivedFrom( rxClass, xDerivedFromClass )
104	)
105	return sal_True((sal_Bool)1);
106	}
107
108	return sal_False((sal_Bool)0);
109	}
110
111	//========================================================================
112
113	// * Klassifizierung der Properties (kein enum, um Sequence verwenden zu koennen) *
114	// Properties aus einem PropertySet-Interface
115	#define MAP_PROPERTY_SET0 0
116	// Properties aus Fields
117	#define MAP_FIELD1 1
118	// Properties, die durch get/set-Methoden beschrieben werden
119	#define MAP_GETSET2 2
120	// Properties, die nur eine set-Methode haben
121	#define MAP_SETONLY3 3
122
123
124	// Schrittweite, in der die Groesse der Sequences angepasst wird
125	#define ARRAY_SIZE_STEP20 20
126
127
128
129	//**************************************
130	//* IntrospectionAccessStatic_Impl *
131	//**************************************
132	// Entspricht dem alten IntrospectionAccessImpl, bildet jetzt den statischen
133	// Anteil des neuen Instanz-bezogenen ImplIntrospectionAccess
134
135	// Hashtable fuer die Suche nach Namen
136	struct hashName_Impl
137	{
138	size_t operator()(const ::rtl::OUString Str) const
139	{
140	return (size_t)Str.hashCode();
141	}
142	};
143
144	struct eqName_Impl
145	{
146	sal_Bool operator()(const ::rtl::OUString Str1, const ::rtl::OUString Str2) const
147	{
148	return ( Str1 == Str2 );
149	}
150	};
151
152	typedef boost::unordered_map
153	<
154	::rtl::OUString,
155	sal_Int32,
156	hashName_Impl,
157	eqName_Impl
158	>
159	IntrospectionNameMap;
160
161
162	// Hashtable zur Zuordnung der exakten Namen zu den zu Lower-Case
163	// konvertierten Namen, dient zur Unterst�tzung von XExactName
164	typedef boost::unordered_map
165	<
166	::rtl::OUString,
167	::rtl::OUString,
168	hashName_Impl,
169	eqName_Impl
170	>
171	LowerToExactNameMap;
172
173
174	class ImplIntrospectionAccess;
175	class IntrospectionAccessStatic_Impl: public salhelper::SimpleReferenceObject
176	{
177	friend class ImplIntrospection;
178	friend class ImplIntrospectionAccess;
179
180	// CoreReflection halten
181	Reference< XIdlReflection > mxCoreReflection;
182
183	// InterfaceSequences, um Zusatz-Infos zu einer Property speichern zu koennen.
184	// z.B. das Field bei MAP_FIELD, die get/set-Methoden bei MAP_GETSET usw.
185	Sequence< Reference<XInterface> > aInterfaceSeq1;
186	Sequence< Reference<XInterface> > aInterfaceSeq2;
187
188	// Hashtables fuer die Namen
189	IntrospectionNameMap maPropertyNameMap;
190	IntrospectionNameMap maMethodNameMap;
191	LowerToExactNameMap maLowerToExactNameMap;
192
193	// Sequence aller Properties, auch zum Liefern aus getProperties()
194	Sequence<Property> maAllPropertySeq;
195
196	// Mapping der Properties auf Zugriffs-Arten
197	Sequence<sal_Int16> maMapTypeSeq;
198
199	// Klassifizierung der gefundenen Methoden
200	Sequence<sal_Int32> maPropertyConceptSeq;
201
202	// Anzahl der Properties
203	sal_Int32 mnPropCount;
204
205	// Anzahl der Properties, die den jeweiligen Konzepten zugeordnet sind
206	//sal_Int32 mnDangerousPropCount;
207	sal_Int32 mnPropertySetPropCount;
208	sal_Int32 mnAttributePropCount;
209	sal_Int32 mnMethodPropCount;
210
211	// Flag, ob ein FastPropertySet unterstuetzt wird
212	sal_Bool mbFastPropSet;
213
214	// Original-Handles eines FastPropertySets
215	sal_Int32* mpOrgPropertyHandleArray;
216
217	// MethodSequence, die alle Methoden aufnimmt
218	Sequence< Reference<XIdlMethod> > maAllMethodSeq;
219
220	// Klassifizierung der gefundenen Methoden
221	Sequence<sal_Int32> maMethodConceptSeq;
222
223	// Anzahl der Methoden
224	sal_Int32 mnMethCount;
225
226	// Sequence der Listener, die angemeldet werden koennen
227	Sequence< Type > maSupportedListenerSeq;
228
229	// BaseInit (soll spaeter in der Applikation erfolgen!)
230	void BaseInit( void );
231
232	// Hilfs-Methoden zur Groessen-Anpassung der Sequences
233	void checkPropertyArraysSize
234	(
235	Property*& rpAllPropArray,
236	sal_Int16*& rpMapTypeArray,
237	sal_Int32*& rpPropertyConceptArray,
238	sal_Int32 iNextIndex
239	);
240	void checkInterfaceArraySize( Sequence< Reference<XInterface> >& rSeq, Reference<XInterface>*& rpInterfaceArray,
241	sal_Int32 iNextIndex );
242
243	public:
244	IntrospectionAccessStatic_Impl( Reference< XIdlReflection > xCoreReflection_ );
245	~IntrospectionAccessStatic_Impl()
246	{
247	delete[] mpOrgPropertyHandleArray;
248	}
249	sal_Int32 getPropertyIndex( const ::rtl::OUString& aPropertyName ) const;
250	sal_Int32 getMethodIndex( const ::rtl::OUString& aMethodName ) const;
251
252	// Methoden von XIntrospectionAccess (ALT, jetzt nur Impl)
253	void setPropertyValue(const Any& obj, const ::rtl::OUString& aPropertyName, const Any& aValue) const;
254	// void setPropertyValue(Any& obj, const ::rtl::OUString& aPropertyName, const Any& aValue) const;
255	Any getPropertyValue(const Any& obj, const ::rtl::OUString& aPropertyName) const;
256	void setPropertyValueByIndex(const Any& obj, sal_Int32 nIndex, const Any& aValue) const;
257	// void setPropertyValueByIndex(Any& obj, sal_Int32 nIndex, const Any& aValue) const;
258	Any getPropertyValueByIndex(const Any& obj, sal_Int32 nIndex) const;
259
260	Sequence<Property> getProperties(void) const { return maAllPropertySeq; }
261	Sequence< Reference<XIdlMethod> > getMethods(void) const { return maAllMethodSeq; }
262	Sequence< Type > getSupportedListeners(void) const { return maSupportedListenerSeq; }
263	Sequence<sal_Int32> getPropertyConcepts(void) const { return maPropertyConceptSeq; }
264	Sequence<sal_Int32> getMethodConcepts(void) const { return maMethodConceptSeq; }
265	};
266
267
268	// Ctor
269	IntrospectionAccessStatic_Impl::IntrospectionAccessStatic_Impl( Reference< XIdlReflection > xCoreReflection_ )
270	: mxCoreReflection( xCoreReflection_ )
271	{
272	aInterfaceSeq1.realloc( ARRAY_SIZE_STEP20 );
273	aInterfaceSeq2.realloc( ARRAY_SIZE_STEP20 );
274
275	// Property-Daten
276	maAllPropertySeq.realloc( ARRAY_SIZE_STEP20 );
277	maMapTypeSeq.realloc( ARRAY_SIZE_STEP20 );
278	maPropertyConceptSeq.realloc( ARRAY_SIZE_STEP20 );
279
280	mbFastPropSet = sal_False((sal_Bool)0);
281	mpOrgPropertyHandleArray = NULL__null;
282
283	mnPropCount = 0;
284	//mnDangerousPropCount = 0;
285	mnPropertySetPropCount = 0;
286	mnAttributePropCount = 0;
287	mnMethodPropCount = 0;
288
289	// Method-Daten
290	mnMethCount = 0;
291	}
292
293	sal_Int32 IntrospectionAccessStatic_Impl::getPropertyIndex( const ::rtl::OUString& aPropertyName ) const
294	{
295	sal_Int32 iHashResult = -1;
296	IntrospectionAccessStatic_Impl* pThis = (IntrospectionAccessStatic_Impl*)this;
297	IntrospectionNameMap::iterator aIt = pThis->maPropertyNameMap.find( aPropertyName );
298	if( !( aIt == pThis->maPropertyNameMap.end() ) )
299	iHashResult = (*aIt).second;
300	return iHashResult;
301	}
302
303	sal_Int32 IntrospectionAccessStatic_Impl::getMethodIndex( const ::rtl::OUString& aMethodName ) const
304	{
305	sal_Int32 iHashResult = -1;
306	IntrospectionAccessStatic_Impl* pThis = (IntrospectionAccessStatic_Impl*)this;
307	IntrospectionNameMap::iterator aIt = pThis->maMethodNameMap.find( aMethodName );
308	if( !( aIt == pThis->maMethodNameMap.end() ) )
309	{
310	iHashResult = (*aIt).second;
311	}
312	// #95159 Check if full qualified name matches
313	else
314	{
315	sal_Int32 nSearchFrom = aMethodName.getLength();
	Value stored to 'nSearchFrom' during its initialization is never read
316	nSearchFrom = aMethodName.getLength();
317	while( true )
318	{
319	// Strategy: Search back until the first '_' is found
320	sal_Int32 nFound = aMethodName.lastIndexOf( '_', nSearchFrom );
321	if( nFound == -1 )
322	break;
323
324	::rtl::OUString aPureMethodName = aMethodName.copy( nFound + 1 );
325
326	aIt = pThis->maMethodNameMap.find( aPureMethodName );
327	if( !( aIt == pThis->maMethodNameMap.end() ) )
328	{
329	// Check if it can be a type?
330	// Problem: Does not work if package names contain _ ?!
331	::rtl::OUString aStr = aMethodName.copy( 0, nFound );
332	::rtl::OUString aTypeName = aStr.replace( '_', '.' );
333	Reference< XIdlClass > xClass = mxCoreReflection->forName( aTypeName );
334	if( xClass.is() )
335	{
336	// If this is a valid class it could be the right method
337
338	// Could be the right method, type has to be checked
339	iHashResult = (*aIt).second;
340
341	const Reference<XIdlMethod>* pMethods = maAllMethodSeq.getConstArray();
342	const Reference<XIdlMethod> xMethod = pMethods[ iHashResult ];
343
344	Reference< XIdlClass > xMethClass = xMethod->getDeclaringClass();
345	if( xClass->equals( xMethClass ) )
346	{
347	break;
348	}
349	else
350	{
351	iHashResult = -1;
352
353	// Could also be another method with the same name
354	// Iterate over all methods
355	sal_Int32 nLen = maAllMethodSeq.getLength();
356	for( int i = 0 ; i < nLen ; ++i )
357	{
358	const Reference<XIdlMethod> xMethod2 = pMethods[ i ];
359
360	::rtl::OUString aTestClassName = xMethod2->getDeclaringClass()->getName();
361	::rtl::OUString aTestMethodName = xMethod2->getName();
362
363	if( xMethod2->getName() == aPureMethodName )
364	{
365	Reference< XIdlClass > xMethClass2 = xMethod2->getDeclaringClass();
366
367	if( xClass->equals( xMethClass2 ) )
368	{
369	iHashResult = i;
370	break;
371	}
372	}
373	}
374
375	if( iHashResult != -1 )
376	break;
377	}
378	}
379	}
380
381	nSearchFrom = nFound - 1;
382	if( nSearchFrom < 0 )
383	break;
384	}
385	}
386	return iHashResult;
387	}
388
389	void IntrospectionAccessStatic_Impl::setPropertyValue( const Any& obj, const ::rtl::OUString& aPropertyName, const Any& aValue ) const
390	//void IntrospectionAccessStatic_Impl::setPropertyValue( Any& obj, const ::rtl::OUString& aPropertyName, const Any& aValue ) const
391	{
392	sal_Int32 i = getPropertyIndex( aPropertyName );
393	if( i != -1 )
394	setPropertyValueByIndex( obj, (sal_Int32)i, aValue );
395	else
396	throw UnknownPropertyException();
397	}
398
399	void IntrospectionAccessStatic_Impl::setPropertyValueByIndex(const Any& obj, sal_Int32 nSequenceIndex, const Any& aValue) const
400	//void IntrospectionAccessStatic_Impl::setPropertyValueByIndex( Any& obj, sal_Int32 nSequenceIndex, const Any& aValue) const
401	{
402	// Handelt es sich bei dem uebergebenen Objekt ueberhaupt um was passendes?
403	TypeClass eObjType = obj.getValueType().getTypeClass();
404
405	Reference<XInterface> xInterface;
406	if( eObjType == TypeClass_INTERFACE )
407	{
408	xInterface = ( Reference<XInterface>)obj.getValue();
409	}
410	else if( nSequenceIndex >= mnPropCount \|\| ( eObjType != TypeClass_STRUCT && eObjType != TypeClass_EXCEPTION ) )
411	{
412	throw IllegalArgumentException();
413	}
414
415	// Flags pruefen
416	const Property* pProps = maAllPropertySeq.getConstArray();
417	if( (pProps[ nSequenceIndex ].Attributes & READONLY) != 0 )
418	{
419	throw UnknownPropertyException();
420	}
421
422	const sal_Int16* pMapTypeArray = maMapTypeSeq.getConstArray();
423	switch( pMapTypeArray[ nSequenceIndex ] )
424	{
425	case MAP_PROPERTY_SET0:
426	{
427	// Property besorgen
428	const Property& rProp = maAllPropertySeq.getConstArray()[ nSequenceIndex ];
429
430	// Interface-Parameter auf den richtigen Typ bringen
431	sal_Bool bUseCopy = sal_False((sal_Bool)0);
432	Any aRealValue;
433
434	TypeClass eValType = aValue.getValueType().getTypeClass();
435	if( eValType == TypeClass_INTERFACE )
436	{
437	Type aPropType = rProp.Type;
438	::rtl::OUString aTypeName( aPropType.getTypeName() );
439	Reference< XIdlClass > xPropClass = mxCoreReflection->forName( aTypeName );
440	//Reference<XIdlClass> xPropClass = rProp.Type;
441	if( xPropClass.is() && xPropClass->getTypeClass() == TypeClass_INTERFACE )
442	{
443	Reference<XInterface> valInterface = (Reference<XInterface>)aValue.getValue();
444	if( valInterface.is() )
445	{
446	//Any queryInterface( const Type& rType );
447	aRealValue = valInterface->queryInterface( aPropType );
448	if( aRealValue.hasValue() )
449	bUseCopy = sal_True((sal_Bool)1);
450	}
451	}
452	}
453
454	// Haben wir ein FastPropertySet und ein gueltiges Handle?
455	// ACHTUNG: An dieser Stelle wird ausgenutzt, dass das PropertySet
456	// zu Beginn des Introspection-Vorgangs abgefragt wird.
457	sal_Int32 nOrgHandle;
458	if( mbFastPropSet && ( nOrgHandle = mpOrgPropertyHandleArray[ nSequenceIndex ] ) != -1 )
459	{
460	// PropertySet-Interface holen
461	Reference<XFastPropertySet> xFastPropSet =
462	Reference<XFastPropertySet>::query( xInterface );
463	if( xFastPropSet.is() )
464	{
465	xFastPropSet->setFastPropertyValue( nOrgHandle, bUseCopy ? aRealValue : aValue );
466	}
467	else
468	{
469	// throw UnknownPropertyException
470	}
471	}
472	// sonst eben das normale nehmen
473	else
474	{
475	// PropertySet-Interface holen
476	Reference<XPropertySet> xPropSet =
477	Reference<XPropertySet>::query( xInterface );
478	if( xPropSet.is() )
479	{
480	xPropSet->setPropertyValue( rProp.Name, bUseCopy ? aRealValue : aValue );
481	}
482	else
483	{
484	// throw UnknownPropertyException
485	}
486	}
487	}
488	break;
489
490	case MAP_FIELD1:
491	{
492	Reference<XIdlField> xField = (XIdlField*)(aInterfaceSeq1.getConstArray()[ nSequenceIndex ].get());
493	Reference<XIdlField2> xField2(xField, UNO_QUERY);
494	if( xField2.is() )
495	{
496	xField2->set( (Any&)obj, aValue );
497	// IllegalArgumentException
498	// NullPointerException
499	} else
500	if( xField.is() )
501	{
502	xField->set( obj, aValue );
503	// IllegalArgumentException
504	// NullPointerException
505	}
506	else
507	{
508	// throw IllegalArgumentException();
509	}
510	}
511	break;
512
513	case MAP_GETSET2:
514	case MAP_SETONLY3:
515	{
516	// set-Methode holen
517	Reference<XIdlMethod> xMethod = (XIdlMethod*)(aInterfaceSeq2.getConstArray()[ nSequenceIndex ].get());
518	if( xMethod.is() )
519	{
520	Sequence<Any> args( 1 );
521	args.getArray()[0] = aValue;
522	xMethod->invoke( obj, args );
523	}
524	else
525	{
526	// throw IllegalArgumentException();
527	}
528	}
529	break;
530	}
531	}
532
533	Any IntrospectionAccessStatic_Impl::getPropertyValue( const Any& obj, const ::rtl::OUString& aPropertyName ) const
534	{
535	sal_Int32 i = getPropertyIndex( aPropertyName );
536	if( i != -1 )
537	return getPropertyValueByIndex( obj, i );
538
539	throw UnknownPropertyException();
540	}
541
542	Any IntrospectionAccessStatic_Impl::getPropertyValueByIndex(const Any& obj, sal_Int32 nSequenceIndex) const
543	{
544	Any aRet;
545
546	// Handelt es sich bei dem uebergebenen Objekt ueberhaupt um was passendes?
547	TypeClass eObjType = obj.getValueType().getTypeClass();
548
549	Reference<XInterface> xInterface;
550	if( eObjType == TypeClass_INTERFACE )
551	{
552	xInterface = (Reference<XInterface>)obj.getValue();
553	}
554	else if( nSequenceIndex >= mnPropCount \|\| ( eObjType != TypeClass_STRUCT && eObjType != TypeClass_EXCEPTION ) )
555	{
556	// throw IllegalArgumentException();
557	return aRet;
558	}
559
560	const sal_Int16* pMapTypeArray = maMapTypeSeq.getConstArray();
561	switch( pMapTypeArray[ nSequenceIndex ] )
562	{
563	case MAP_PROPERTY_SET0:
564	{
565	// Property besorgen
566	const Property& rProp = maAllPropertySeq.getConstArray()[ nSequenceIndex ];
567
568	// Haben wir ein FastPropertySet und ein gueltiges Handle?
569	// ACHTUNG: An dieser Stelle wird ausgenutzt, dass das PropertySet
570	// zu Beginn des Introspection-Vorgangs abgefragt wird.
571	sal_Int32 nOrgHandle;
572	if( mbFastPropSet && ( nOrgHandle = mpOrgPropertyHandleArray[ nSequenceIndex ] ) != -1 )
573	{
574	// PropertySet-Interface holen
575	Reference<XFastPropertySet> xFastPropSet =
576	Reference<XFastPropertySet>::query( xInterface );
577	if( xFastPropSet.is() )
578	{
579	aRet = xFastPropSet->getFastPropertyValue( nOrgHandle);
580	}
581	else
582	{
583	// throw UnknownPropertyException
584	return aRet;
585	}
586	}
587	// sonst eben das normale nehmen
588	else
589	{
590	// PropertySet-Interface holen
591	Reference<XPropertySet> xPropSet =
592	Reference<XPropertySet>::query( xInterface );
593	if( xPropSet.is() )
594	{
595	aRet = xPropSet->getPropertyValue( rProp.Name );
596	}
597	else
598	{
599	// throw UnknownPropertyException
600	return aRet;
601	}
602	}
603	}
604	break;
605
606	case MAP_FIELD1:
607	{
608	Reference<XIdlField> xField = (XIdlField*)(aInterfaceSeq1.getConstArray()[ nSequenceIndex ].get());
609	if( xField.is() )
610	{
611	aRet = xField->get( obj );
612	// IllegalArgumentException
613	// NullPointerException
614	}
615	else
616	{
617	// throw IllegalArgumentException();
618	return aRet;
619	}
620	}
621	break;
622
623	case MAP_GETSET2:
624	{
625	// get-Methode holen
626	Reference<XIdlMethod> xMethod = (XIdlMethod*)(aInterfaceSeq1.getConstArray()[ nSequenceIndex ].get());
627	if( xMethod.is() )
628	{
629	Sequence<Any> args;
630	aRet = xMethod->invoke( obj, args );
631	}
632	else
633	{
634	// throw IllegalArgumentException();
635	return aRet;
636	}
637	}
638	break;
639
640	case MAP_SETONLY3:
641	// get-Methode gibt es nicht
642	// throw WriteOnlyPropertyException();
643	return aRet;
644	}
645	return aRet;
646	}
647
648
649	// Hilfs-Methoden zur Groessen-Anpassung der Sequences
650	void IntrospectionAccessStatic_Impl::checkPropertyArraysSize
651	(
652	Property*& rpAllPropArray,
653	sal_Int16*& rpMapTypeArray,
654	sal_Int32*& rpPropertyConceptArray,
655	sal_Int32 iNextIndex
656	)
657	{
658	sal_Int32 nLen = maAllPropertySeq.getLength();
659	if( iNextIndex >= nLen )
660	{
661	maAllPropertySeq.realloc( nLen + ARRAY_SIZE_STEP20 );
662	rpAllPropArray = maAllPropertySeq.getArray();
663
664	maMapTypeSeq.realloc( nLen + ARRAY_SIZE_STEP20 );
665	rpMapTypeArray = maMapTypeSeq.getArray();
666
667	maPropertyConceptSeq.realloc( nLen + ARRAY_SIZE_STEP20 );
668	rpPropertyConceptArray = maPropertyConceptSeq.getArray();
669	}
670	}
671
672	void IntrospectionAccessStatic_Impl::checkInterfaceArraySize( Sequence< Reference<XInterface> >& rSeq,
673	Reference<XInterface>*& rpInterfaceArray, sal_Int32 iNextIndex )
674	{
675	sal_Int32 nLen = rSeq.getLength();
676	if( iNextIndex >= nLen )
677	{
678	// Neue Groesse mit ARRAY_SIZE_STEP abgleichen
679	sal_Int32 nMissingSize = iNextIndex - nLen + 1;
680	sal_Int32 nSteps = nMissingSize / ARRAY_SIZE_STEP20 + 1;
681	sal_Int32 nNewSize = nLen + nSteps * ARRAY_SIZE_STEP20;
682
683	rSeq.realloc( nNewSize );
684	rpInterfaceArray = rSeq.getArray();
685	}
686	}
687
688
689	//*******************************
690	//* ImplIntrospectionAccess *
691	//*******************************
692
693	// Neue Impl-Klasse im Rahmen der Introspection-Umstellung auf Instanz-gebundene
694	// Introspection mit Property-Zugriff ueber XPropertySet. Die alte Klasse
695	// ImplIntrospectionAccess lebt als IntrospectionAccessStatic_Impl
696	class ImplIntrospectionAccess : public IntrospectionAccessHelper
697	{
698	friend class ImplIntrospection;
699
700	// Untersuchtes Objekt
701	Any maInspectedObject;
702
703	// Als Interface
704	Reference<XInterface> mxIface;
705
706	// Statische Daten der Introspection
707	rtl::Reference< IntrospectionAccessStatic_Impl > mpStaticImpl;
708
709	// Adapter-Implementation
710	WeakReference< XInterface > maAdapter;
711
712	// Letzte Sequence, die bei getProperties geliefert wurde (Optimierung)
713	Sequence<Property> maLastPropertySeq;
714	sal_Int32 mnLastPropertyConcept;
715
716	// Letzte Sequence, die bei getMethods geliefert wurde (Optimierung)
717	Sequence<Reference<XIdlMethod> > maLastMethodSeq;
718	sal_Int32 mnLastMethodConcept;
719
720	public:
721	ImplIntrospectionAccess( const Any& obj, rtl::Reference< IntrospectionAccessStatic_Impl > const & pStaticImpl_ );
722	~ImplIntrospectionAccess();
723
724	// Methoden von XIntrospectionAccess
725	virtual sal_Int32 SAL_CALL getSuppliedMethodConcepts(void)
726	throw( RuntimeException );
727	virtual sal_Int32 SAL_CALL getSuppliedPropertyConcepts(void)
728	throw( RuntimeException );
729	virtual Property SAL_CALL getProperty(const ::rtl::OUString& Name, sal_Int32 PropertyConcepts)
730	throw( NoSuchElementException, RuntimeException );
731	virtual sal_Bool SAL_CALL hasProperty(const ::rtl::OUString& Name, sal_Int32 PropertyConcepts)
732	throw( RuntimeException );
733	virtual Sequence< Property > SAL_CALL getProperties(sal_Int32 PropertyConcepts)
734	throw( RuntimeException );
735	virtual Reference<XIdlMethod> SAL_CALL getMethod(const ::rtl::OUString& Name, sal_Int32 MethodConcepts)
736	throw( NoSuchMethodException, RuntimeException );
737	virtual sal_Bool SAL_CALL hasMethod(const ::rtl::OUString& Name, sal_Int32 MethodConcepts)
738	throw( RuntimeException );
739	virtual Sequence< Reference<XIdlMethod> > SAL_CALL getMethods(sal_Int32 MethodConcepts)
740	throw( RuntimeException );
741	virtual Sequence< Type > SAL_CALL getSupportedListeners(void)
742	throw( RuntimeException );
743	using OWeakObject::queryAdapter;
744	virtual Reference<XInterface> SAL_CALL queryAdapter( const Type& rType )
745	throw( IllegalTypeException, RuntimeException );
746
747	// Methoden von XMaterialHolder
748	virtual Any SAL_CALL getMaterial(void) throw(RuntimeException);
749
750	// Methoden von XExactName
751	virtual ::rtl::OUString SAL_CALL getExactName( const ::rtl::OUString& rApproximateName ) throw( RuntimeException );
752	};
753
754	ImplIntrospectionAccess::ImplIntrospectionAccess
755	( const Any& obj, rtl::Reference< IntrospectionAccessStatic_Impl > const & pStaticImpl_ )
756	: maInspectedObject( obj ), mpStaticImpl( pStaticImpl_ ), maAdapter()
757	{
758	// Objekt als Interface merken, wenn moeglich
759	TypeClass eType = maInspectedObject.getValueType().getTypeClass();
760	if( eType == TypeClass_INTERFACE )
761	mxIface = (Reference<XInterface>)maInspectedObject.getValue();
762
763	mnLastPropertyConcept = -1;
764	mnLastMethodConcept = -1;
765	}
766
767	ImplIntrospectionAccess::~ImplIntrospectionAccess()
768	{
769	}
770
771
772	//*******************************
773	//* ImplIntrospectionAdapter *
774	//*******************************
775
776	// Neue Impl-Klasse im Rahmen der Introspection-Umstellung auf Instanz-gebundene
777	// Introspection mit Property-Zugriff ueber XPropertySet. Die alte Klasse
778	// ImplIntrospectionAccess lebt als IntrospectionAccessStatic_Impl
779	class ImplIntrospectionAdapter :
780	public XPropertySet, public XFastPropertySet, public XPropertySetInfo,
781	public XNameContainer, public XIndexContainer,
782	public XEnumerationAccess, public XIdlArray,
783	public OWeakObject
784	{
785	// Parent-Objekt
786	::rtl::Reference< ImplIntrospectionAccess > mpAccess;
787
788	// Untersuchtes Objekt
789	const Any& mrInspectedObject;
790
791	// Statische Daten der Introspection
792	rtl::Reference< IntrospectionAccessStatic_Impl > mpStaticImpl;
793
794	// Objekt als Interface
795	Reference<XInterface> mxIface;
796
797	// Original-Interfaces des Objekts
798	Reference<XElementAccess> mxObjElementAccess;
799	Reference<XNameContainer> mxObjNameContainer;
800	Reference<XNameAccess> mxObjNameAccess;
801	Reference<XIndexAccess> mxObjIndexAccess;
802	Reference<XIndexContainer> mxObjIndexContainer;
803	Reference<XEnumerationAccess> mxObjEnumerationAccess;
804	Reference<XIdlArray> mxObjIdlArray;
805
806	public:
807	ImplIntrospectionAdapter( ImplIntrospectionAccess* pAccess_,
808	const Any& obj,
809	rtl::Reference< IntrospectionAccessStatic_Impl > const & pStaticImpl_ );
810
811	// Methoden von XInterface
812	virtual Any SAL_CALL queryInterface( const Type& rType ) throw( RuntimeException );
813	virtual void SAL_CALL acquire() throw() { OWeakObject::acquire(); }
814	virtual void SAL_CALL release() throw() { OWeakObject::release(); }
815
816	// Methoden von XPropertySet
817	virtual Reference<XPropertySetInfo> SAL_CALL getPropertySetInfo() throw( RuntimeException );
818	virtual void SAL_CALL setPropertyValue(const ::rtl::OUString& aPropertyName, const Any& aValue)
819	throw( UnknownPropertyException, PropertyVetoException, IllegalArgumentException, WrappedTargetException, RuntimeException );
820	virtual Any SAL_CALL getPropertyValue(const ::rtl::OUString& aPropertyName)
821	throw( UnknownPropertyException, WrappedTargetException, RuntimeException );
822	virtual void SAL_CALL addPropertyChangeListener(const ::rtl::OUString& aPropertyName, const Reference<XPropertyChangeListener>& aListener)
823	throw( UnknownPropertyException, WrappedTargetException, RuntimeException );
824	virtual void SAL_CALL removePropertyChangeListener(const ::rtl::OUString& aPropertyName, const Reference<XPropertyChangeListener>& aListener)
825	throw( UnknownPropertyException, WrappedTargetException, RuntimeException );
826	virtual void SAL_CALL addVetoableChangeListener(const ::rtl::OUString& aPropertyName, const Reference<XVetoableChangeListener>& aListener)
827	throw( UnknownPropertyException, WrappedTargetException, RuntimeException );
828	virtual void SAL_CALL removeVetoableChangeListener(const ::rtl::OUString& aPropertyName, const Reference<XVetoableChangeListener>& aListener)
829	throw( UnknownPropertyException, WrappedTargetException, RuntimeException );
830
831	// Methoden von XFastPropertySet
832	virtual void SAL_CALL setFastPropertyValue(sal_Int32 nHandle, const Any& aValue)
833	throw( UnknownPropertyException, PropertyVetoException, IllegalArgumentException, WrappedTargetException, RuntimeException );
834	virtual Any SAL_CALL getFastPropertyValue(sal_Int32 nHandle)
835	throw( UnknownPropertyException, WrappedTargetException, RuntimeException );
836
837	// Methoden von XPropertySetInfo
838	virtual Sequence< Property > SAL_CALL getProperties(void) throw( RuntimeException );
839	virtual Property SAL_CALL getPropertyByName(const ::rtl::OUString& Name) throw( RuntimeException );
840	virtual sal_Bool SAL_CALL hasPropertyByName(const ::rtl::OUString& Name) throw( RuntimeException );
841
842	// Methoden von XElementAccess
843	virtual Type SAL_CALL getElementType(void) throw( RuntimeException );
844	virtual sal_Bool SAL_CALL hasElements(void) throw( RuntimeException );
845
846	// Methoden von XNameAccess
847	virtual Any SAL_CALL getByName(const ::rtl::OUString& Name)
848	throw( NoSuchElementException, WrappedTargetException, RuntimeException );
849	virtual Sequence< ::rtl::OUString > SAL_CALL getElementNames(void) throw( RuntimeException );
850	virtual sal_Bool SAL_CALL hasByName(const ::rtl::OUString& Name) throw( RuntimeException );
851
852	// Methoden von XNameContainer
853	virtual void SAL_CALL insertByName(const ::rtl::OUString& Name, const Any& Element)
854	throw( IllegalArgumentException, ElementExistException, WrappedTargetException, RuntimeException );
855	virtual void SAL_CALL replaceByName(const ::rtl::OUString& Name, const Any& Element)
856	throw( IllegalArgumentException, NoSuchElementException, WrappedTargetException, RuntimeException );
857	virtual void SAL_CALL removeByName(const ::rtl::OUString& Name)
858	throw( NoSuchElementException, WrappedTargetException, RuntimeException );
859
860	// Methoden von XIndexAccess
861	virtual sal_Int32 SAL_CALL getCount(void) throw( RuntimeException );
862	virtual Any SAL_CALL getByIndex(sal_Int32 Index)
863	throw( IndexOutOfBoundsException, WrappedTargetException, RuntimeException );
864
865	// Methoden von XIndexContainer
866	virtual void SAL_CALL insertByIndex(sal_Int32 Index, const Any& Element)
867	throw( IllegalArgumentException, IndexOutOfBoundsException, WrappedTargetException, RuntimeException );
868	virtual void SAL_CALL replaceByIndex(sal_Int32 Index, const Any& Element)
869	throw( IllegalArgumentException, IndexOutOfBoundsException, WrappedTargetException, RuntimeException );
870	virtual void SAL_CALL removeByIndex(sal_Int32 Index)
871	throw( IndexOutOfBoundsException, WrappedTargetException, RuntimeException );
872
873	// Methoden von XEnumerationAccess
874	virtual Reference<XEnumeration> SAL_CALL createEnumeration(void) throw( RuntimeException );
875
876	// Methoden von XIdlArray
877	virtual void SAL_CALL realloc(Any& array, sal_Int32 length)
878	throw( IllegalArgumentException, RuntimeException );
879	virtual sal_Int32 SAL_CALL getLen(const Any& array) throw( IllegalArgumentException, RuntimeException );
880	virtual Any SAL_CALL get(const Any& array, sal_Int32 index)
881	throw( IllegalArgumentException, ArrayIndexOutOfBoundsException, RuntimeException );
882	virtual void SAL_CALL set(Any& array, sal_Int32 index, const Any& value)
883	throw( IllegalArgumentException, ArrayIndexOutOfBoundsException, RuntimeException );
884	};
885
886	ImplIntrospectionAdapter::ImplIntrospectionAdapter( ImplIntrospectionAccess* pAccess_,
887	const Any& obj,
888	rtl::Reference< IntrospectionAccessStatic_Impl > const & pStaticImpl_ )
889	: mpAccess( pAccess_), mrInspectedObject( obj ), mpStaticImpl( pStaticImpl_ )
890	{
891	// Objekt als Interfaceholen
892	TypeClass eType = mrInspectedObject.getValueType().getTypeClass();
893	if( eType == TypeClass_INTERFACE )
894	{
895	mxIface = ( Reference< XInterface >)mrInspectedObject.getValue();
896
897	mxObjElementAccess = Reference<XElementAccess>::query( mxIface );
898	mxObjNameAccess = Reference<XNameAccess>::query( mxIface );
899	mxObjNameContainer = Reference<XNameContainer>::query( mxIface );
900	mxObjIndexAccess = Reference<XIndexAccess>::query( mxIface );
901	mxObjIndexContainer = Reference<XIndexContainer>::query( mxIface );
902	mxObjEnumerationAccess = Reference<XEnumerationAccess>::query( mxIface );
903	mxObjIdlArray = Reference<XIdlArray>::query( mxIface );
904	}
905	}
906
907	// Methoden von XInterface
908	Any SAL_CALL ImplIntrospectionAdapter::queryInterface( const Type& rType )
909	throw( RuntimeException )
910	{
911	Any aRet( ::cppu::queryInterface(
912	rType,
913	static_cast< XPropertySet * >( this ),
914	static_cast< XFastPropertySet * >( this ),
915	static_cast< XPropertySetInfo * >( this ) ) );
916	if( !aRet.hasValue() )
917	aRet = OWeakObject::queryInterface( rType );
918
919	if( !aRet.hasValue() )
920	{
921	// Wrapper fuer die Objekt-Interfaces
922	if( ( mxObjElementAccess.is() && (aRet = ::cppu::queryInterface
923	( rType, static_cast< XElementAccess* >( static_cast< XNameAccess* >( this ) ) ) ).hasValue() )
924	\|\| ( mxObjNameAccess.is() && (aRet = ::cppu::queryInterface( rType, static_cast< XNameAccess* >( this ) ) ).hasValue() )
925	\|\| ( mxObjNameContainer.is() && (aRet = ::cppu::queryInterface( rType, static_cast< XNameContainer* >( this ) ) ).hasValue() )
926	\|\| ( mxObjIndexAccess.is() && (aRet = ::cppu::queryInterface( rType, static_cast< XIndexAccess* >( this ) ) ).hasValue() )
927	\|\| ( mxObjIndexContainer.is() && (aRet = ::cppu::queryInterface( rType, static_cast< XIndexContainer* >( this ) ) ).hasValue() )
928	\|\| ( mxObjEnumerationAccess .is() && (aRet = ::cppu::queryInterface( rType, static_cast< XEnumerationAccess* >( this ) ) ).hasValue() )
929	\|\| ( mxObjIdlArray.is() && (aRet = ::cppu::queryInterface( rType, static_cast< XIdlArray* >( this ) ) ).hasValue() )
930	)
931	{
932	}
933	}
934	return aRet;
935	}
936
937
938	//***************************************************
939	//* Implementation von ImplIntrospectionAdapter *
940	//***************************************************
941
942	// Methoden von XPropertySet
943	Reference<XPropertySetInfo> ImplIntrospectionAdapter::getPropertySetInfo(void)
944	throw( RuntimeException )
945	{
946	return (XPropertySetInfo *)this;
947	}
948
949	void ImplIntrospectionAdapter::setPropertyValue(const ::rtl::OUString& aPropertyName, const Any& aValue)
950	throw( UnknownPropertyException, PropertyVetoException, IllegalArgumentException, WrappedTargetException, RuntimeException )
951	{
952	mpStaticImpl->setPropertyValue( mrInspectedObject, aPropertyName, aValue );
953	}
954
955	Any ImplIntrospectionAdapter::getPropertyValue(const ::rtl::OUString& aPropertyName)
956	throw( UnknownPropertyException, WrappedTargetException, RuntimeException )
957	{
958	return mpStaticImpl->getPropertyValue( mrInspectedObject, aPropertyName );
959	}
960
961	void ImplIntrospectionAdapter::addPropertyChangeListener(const ::rtl::OUString& aPropertyName, const Reference<XPropertyChangeListener>& aListener)
962	throw( UnknownPropertyException, WrappedTargetException, RuntimeException )
963	{
964	if( mxIface.is() )
965	{
966	Reference<XPropertySet> xPropSet =
967	Reference<XPropertySet>::query( mxIface );
968	//Reference<XPropertySet> xPropSet( mxIface, USR_QUERY );
969	if( xPropSet.is() )
970	xPropSet->addPropertyChangeListener(aPropertyName, aListener);
971	}
972	}
973
974	void ImplIntrospectionAdapter::removePropertyChangeListener(const ::rtl::OUString& aPropertyName, const Reference<XPropertyChangeListener>& aListener)
975	throw( UnknownPropertyException, WrappedTargetException, RuntimeException )
976	{
977	if( mxIface.is() )
978	{
979	Reference<XPropertySet> xPropSet =
980	Reference<XPropertySet>::query( mxIface );
981	//Reference<XPropertySet> xPropSet( mxIface, USR_QUERY );
982	if( xPropSet.is() )
983	xPropSet->removePropertyChangeListener(aPropertyName, aListener);
984	}
985	}
986
987	void ImplIntrospectionAdapter::addVetoableChangeListener(const ::rtl::OUString& aPropertyName, const Reference<XVetoableChangeListener>& aListener)
988	throw( UnknownPropertyException, WrappedTargetException, RuntimeException )
989	{
990	if( mxIface.is() )
991	{
992	Reference<XPropertySet> xPropSet =
993	Reference<XPropertySet>::query( mxIface );
994	//Reference<XPropertySet> xPropSet( mxIface, USR_QUERY );
995	if( xPropSet.is() )
996	xPropSet->addVetoableChangeListener(aPropertyName, aListener);
997	}
998	}
999
1000	void ImplIntrospectionAdapter::removeVetoableChangeListener(const ::rtl::OUString& aPropertyName, const Reference<XVetoableChangeListener>& aListener)
1001	throw( UnknownPropertyException, WrappedTargetException, RuntimeException )
1002	{
1003	if( mxIface.is() )
1004	{
1005	Reference<XPropertySet> xPropSet =
1006	Reference<XPropertySet>::query( mxIface );
1007	if( xPropSet.is() )
1008	xPropSet->removeVetoableChangeListener(aPropertyName, aListener);
1009	}
1010	}
1011
1012
1013	// Methoden von XFastPropertySet
1014	void ImplIntrospectionAdapter::setFastPropertyValue(sal_Int32, const Any&)
1015	throw( UnknownPropertyException, PropertyVetoException, IllegalArgumentException, WrappedTargetException, RuntimeException )
1016	{
1017	}
1018
1019	Any ImplIntrospectionAdapter::getFastPropertyValue(sal_Int32)
1020	throw( UnknownPropertyException, WrappedTargetException, RuntimeException )
1021	{
1022	return Any();
1023	}
1024
1025	// Methoden von XPropertySetInfo
1026	Sequence< Property > ImplIntrospectionAdapter::getProperties(void) throw( RuntimeException )
1027	{
1028	return mpStaticImpl->getProperties();
1029	}
1030
1031	Property ImplIntrospectionAdapter::getPropertyByName(const ::rtl::OUString& Name)
1032	throw( RuntimeException )
1033	{
1034	return mpAccess->getProperty( Name, PropertyConcept::ALL );
1035	}
1036
1037	sal_Bool ImplIntrospectionAdapter::hasPropertyByName(const ::rtl::OUString& Name)
1038	throw( RuntimeException )
1039	{
1040	return mpAccess->hasProperty( Name, PropertyConcept::ALL );
1041	}
1042
1043	// Methoden von XElementAccess
1044	Type ImplIntrospectionAdapter::getElementType(void) throw( RuntimeException )
1045	{
1046	return mxObjElementAccess->getElementType();
1047	}
1048
1049	sal_Bool ImplIntrospectionAdapter::hasElements(void) throw( RuntimeException )
1050	{
1051	return mxObjElementAccess->hasElements();
1052	}
1053
1054	// Methoden von XNameAccess
1055	Any ImplIntrospectionAdapter::getByName(const ::rtl::OUString& Name)
1056	throw( NoSuchElementException, WrappedTargetException, RuntimeException )
1057	{
1058	return mxObjNameAccess->getByName( Name );
1059	}
1060
1061	Sequence< ::rtl::OUString > ImplIntrospectionAdapter::getElementNames(void)
1062	throw( RuntimeException )
1063	{
1064	return mxObjNameAccess->getElementNames();
1065	}
1066
1067	sal_Bool ImplIntrospectionAdapter::hasByName(const ::rtl::OUString& Name)
1068	throw( RuntimeException )
1069	{
1070	return mxObjNameAccess->hasByName( Name );
1071	}
1072
1073	// Methoden von XNameContainer
1074	void ImplIntrospectionAdapter::insertByName(const ::rtl::OUString& Name, const Any& Element)
1075	throw( IllegalArgumentException, ElementExistException, WrappedTargetException, RuntimeException )
1076	{
1077	mxObjNameContainer->insertByName( Name, Element );
1078	}
1079
1080	void ImplIntrospectionAdapter::replaceByName(const ::rtl::OUString& Name, const Any& Element)
1081	throw( IllegalArgumentException, NoSuchElementException, WrappedTargetException, RuntimeException )
1082	{
1083	mxObjNameContainer->replaceByName( Name, Element );
1084	}
1085
1086	void ImplIntrospectionAdapter::removeByName(const ::rtl::OUString& Name)
1087	throw( NoSuchElementException, WrappedTargetException, RuntimeException )
1088	{
1089	mxObjNameContainer->removeByName( Name );
1090	}
1091
1092	// Methoden von XIndexAccess
1093	// Schon in XNameAccess: virtual Reference<XIdlClass> getElementType(void) const
1094	sal_Int32 ImplIntrospectionAdapter::getCount(void) throw( RuntimeException )
1095	{
1096	return mxObjIndexAccess->getCount();
1097	}
1098
1099	Any ImplIntrospectionAdapter::getByIndex(sal_Int32 Index)
1100	throw( IndexOutOfBoundsException, WrappedTargetException, RuntimeException )
1101	{
1102	return mxObjIndexAccess->getByIndex( Index );
1103	}
1104
1105	// Methoden von XIndexContainer
1106	void ImplIntrospectionAdapter::insertByIndex(sal_Int32 Index, const Any& Element)
1107	throw( IllegalArgumentException, IndexOutOfBoundsException, WrappedTargetException, RuntimeException )
1108	{
1109	mxObjIndexContainer->insertByIndex( Index, Element );
1110	}
1111
1112	void ImplIntrospectionAdapter::replaceByIndex(sal_Int32 Index, const Any& Element)
1113	throw( IllegalArgumentException, IndexOutOfBoundsException, WrappedTargetException, RuntimeException )
1114	{
1115	mxObjIndexContainer->replaceByIndex( Index, Element );
1116	}
1117
1118	void ImplIntrospectionAdapter::removeByIndex(sal_Int32 Index)
1119	throw( IndexOutOfBoundsException, WrappedTargetException, RuntimeException )
1120	{
1121	mxObjIndexContainer->removeByIndex( Index );
1122	}
1123
1124	// Methoden von XEnumerationAccess
1125	// Schon in XNameAccess: virtual Reference<XIdlClass> getElementType(void) const;
1126	Reference<XEnumeration> ImplIntrospectionAdapter::createEnumeration(void) throw( RuntimeException )
1127	{
1128	return mxObjEnumerationAccess->createEnumeration();
1129	}
1130
1131	// Methoden von XIdlArray
1132	void ImplIntrospectionAdapter::realloc(Any& array, sal_Int32 length)
1133	throw( IllegalArgumentException, RuntimeException )
1134	{
1135	mxObjIdlArray->realloc( array, length );
1136	}
1137
1138	sal_Int32 ImplIntrospectionAdapter::getLen(const Any& array)
1139	throw( IllegalArgumentException, RuntimeException )
1140	{
1141	return mxObjIdlArray->getLen( array );
1142	}
1143
1144	Any ImplIntrospectionAdapter::get(const Any& array, sal_Int32 index)
1145	throw( IllegalArgumentException, ArrayIndexOutOfBoundsException, RuntimeException )
1146	{
1147	return mxObjIdlArray->get( array, index );
1148	}
1149
1150	void ImplIntrospectionAdapter::set(Any& array, sal_Int32 index, const Any& value)
1151	throw( IllegalArgumentException, ArrayIndexOutOfBoundsException, RuntimeException )
1152	{
1153	mxObjIdlArray->set( array, index, value );
1154	}
1155
1156
1157	//**************************************************
1158	//* Implementation von ImplIntrospectionAccess *
1159	//**************************************************
1160
1161	// Methoden von XIntrospectionAccess
1162	sal_Int32 ImplIntrospectionAccess::getSuppliedMethodConcepts(void)
1163	throw( RuntimeException )
1164	{
1165	return MethodConcept::DANGEROUS \|
1166	PROPERTY \|
1167	LISTENER \|
1168	ENUMERATION \|
1169	NAMECONTAINER \|
1170	INDEXCONTAINER;
1171	}
1172
1173	sal_Int32 ImplIntrospectionAccess::getSuppliedPropertyConcepts(void)
1174	throw( RuntimeException )
1175	{
1176	return PropertyConcept::DANGEROUS \|
1177	PROPERTYSET \|
1178	ATTRIBUTES \|
1179	METHODS;
1180	}
1181
1182	Property ImplIntrospectionAccess::getProperty(const ::rtl::OUString& Name, sal_Int32 PropertyConcepts)
1183	throw( NoSuchElementException, RuntimeException )
1184	{
1185	Property aRet;
1186	sal_Int32 i = mpStaticImpl->getPropertyIndex( Name );
1187	sal_Bool bFound = sal_False((sal_Bool)0);
1188	if( i != -1 )
1189	{
1190	sal_Int32 nConcept = mpStaticImpl->getPropertyConcepts().getConstArray()[ i ];
1191	if( (PropertyConcepts & nConcept) != 0 )
1192	{
1193	const Property* pProps = mpStaticImpl->getProperties().getConstArray();
1194	aRet = pProps[ i ];
1195	bFound = sal_True((sal_Bool)1);
1196	}
1197	}
1198	if( !bFound )
1199	throw NoSuchElementException() ;
1200	return aRet;
1201	}
1202
1203	sal_Bool ImplIntrospectionAccess::hasProperty(const ::rtl::OUString& Name, sal_Int32 PropertyConcepts)
1204	throw( RuntimeException )
1205	{
1206	sal_Int32 i = mpStaticImpl->getPropertyIndex( Name );
1207	sal_Bool bRet = sal_False((sal_Bool)0);
1208	if( i != -1 )
1209	{
1210	sal_Int32 nConcept = mpStaticImpl->getPropertyConcepts().getConstArray()[ i ];
1211	if( (PropertyConcepts & nConcept) != 0 )
1212	bRet = sal_True((sal_Bool)1);
1213	}
1214	return bRet;
1215	}
1216
1217	Sequence< Property > ImplIntrospectionAccess::getProperties(sal_Int32 PropertyConcepts)
1218	throw( RuntimeException )
1219	{
1220	// Wenn alle unterstuetzten Konzepte gefordert werden, Sequence einfach durchreichen
1221	sal_Int32 nAllSupportedMask = PROPERTYSET \|
1222	ATTRIBUTES \|
1223	METHODS;
1224	if( ( PropertyConcepts & nAllSupportedMask ) == nAllSupportedMask )
1225	{
1226	return mpStaticImpl->getProperties();
1227	}
1228
1229	// Gleiche Sequence wie beim vorigen mal?
1230	if( mnLastPropertyConcept == PropertyConcepts )
1231	{
1232	return maLastPropertySeq;
1233	}
1234
1235	// Anzahl der zu liefernden Properties
1236	sal_Int32 nCount = 0;
1237
1238	// Es gibt zur Zeit keine DANGEROUS-Properties
1239	// if( PropertyConcepts & DANGEROUS )
1240	// nCount += mpStaticImpl->mnDangerousPropCount;
1241	if( PropertyConcepts & PROPERTYSET )
1242	nCount += mpStaticImpl->mnPropertySetPropCount;
1243	if( PropertyConcepts & ATTRIBUTES )
1244	nCount += mpStaticImpl->mnAttributePropCount;
1245	if( PropertyConcepts & METHODS )
1246	nCount += mpStaticImpl->mnMethodPropCount;
1247
1248	// Sequence entsprechend der geforderten Anzahl reallocieren
1249	ImplIntrospectionAccess* pThis = (ImplIntrospectionAccess*)this; // const umgehen
1250	pThis->maLastPropertySeq.realloc( nCount );
1251	Property* pDestProps = pThis->maLastPropertySeq.getArray();
1252
1253	// Alle Properties durchgehen und entsprechend der Concepte uebernehmen
1254	Sequence<Property> aPropSeq = mpStaticImpl->getProperties();
1255	const Property* pSourceProps = aPropSeq.getConstArray();
1256	const sal_Int32* pConcepts = mpStaticImpl->getPropertyConcepts().getConstArray();
1257	sal_Int32 nLen = aPropSeq.getLength();
1258
1259	sal_Int32 iDest = 0;
1260	for( sal_Int32 i = 0 ; i < nLen ; i++ )
1261	{
1262	sal_Int32 nConcept = pConcepts[ i ];
1263	if( nConcept & PropertyConcepts )
1264	pDestProps[ iDest++ ] = pSourceProps[ i ];
1265	}
1266
1267	// PropertyConcept merken, dies entspricht maLastPropertySeq
1268	pThis->mnLastPropertyConcept = PropertyConcepts;
1269
1270	// Zusammengebastelte Sequence liefern
1271	return maLastPropertySeq;
1272	}
1273
1274	Reference<XIdlMethod> ImplIntrospectionAccess::getMethod(const ::rtl::OUString& Name, sal_Int32 MethodConcepts)
1275	throw( NoSuchMethodException, RuntimeException )
1276	{
1277	Reference<XIdlMethod> xRet;
1278	sal_Int32 i = mpStaticImpl->getMethodIndex( Name );
1279	if( i != -1 )
1280	{
1281
1282	sal_Int32 nConcept = mpStaticImpl->getMethodConcepts().getConstArray()[ i ];
1283	if( (MethodConcepts & nConcept) != 0 )
1284	{
1285	const Reference<XIdlMethod>* pMethods = mpStaticImpl->getMethods().getConstArray();
1286	xRet = pMethods[i];
1287	}
1288	}
1289	if( !xRet.is() )
1290	throw NoSuchMethodException();
1291	return xRet;
1292	}
1293
1294	sal_Bool ImplIntrospectionAccess::hasMethod(const ::rtl::OUString& Name, sal_Int32 MethodConcepts)
1295	throw( RuntimeException )
1296	{
1297	sal_Int32 i = mpStaticImpl->getMethodIndex( Name );
1298	sal_Bool bRet = sal_False((sal_Bool)0);
1299	if( i != -1 )
1300	{
1301	sal_Int32 nConcept = mpStaticImpl->getMethodConcepts().getConstArray()[ i ];
1302	if( (MethodConcepts & nConcept) != 0 )
1303	bRet = sal_True((sal_Bool)1);
1304	}
1305	return bRet;
1306	}
1307
1308	Sequence< Reference<XIdlMethod> > ImplIntrospectionAccess::getMethods(sal_Int32 MethodConcepts)
1309	throw( RuntimeException )
1310	{
1311	ImplIntrospectionAccess* pThis = (ImplIntrospectionAccess*)this; // const umgehen
1312
1313	// Wenn alle unterstuetzten Konzepte gefordert werden, Sequence einfach durchreichen
1314	sal_Int32 nAllSupportedMask = MethodConcept::DANGEROUS \|
1315	PROPERTY \|
1316	LISTENER \|
1317	ENUMERATION \|
1318	NAMECONTAINER \|
1319	INDEXCONTAINER \|
1320	MethodConcept_NORMAL_IMPL0x80000000;
1321	if( ( MethodConcepts & nAllSupportedMask ) == nAllSupportedMask )
1322	{
1323	return mpStaticImpl->getMethods();
1324	}
1325
1326	// Gleiche Sequence wie beim vorigen mal?
1327	if( mnLastMethodConcept == MethodConcepts )
1328	{
1329	return maLastMethodSeq;
1330	}
1331
1332	// Methoden-Sequences besorgen
1333	Sequence< Reference<XIdlMethod> > aMethodSeq = mpStaticImpl->getMethods();
1334	const Reference<XIdlMethod>* pSourceMethods = aMethodSeq.getConstArray();
1335	const sal_Int32* pConcepts = mpStaticImpl->getMethodConcepts().getConstArray();
1336	sal_Int32 nLen = aMethodSeq.getLength();
1337
1338	// Sequence entsprechend der geforderten Anzahl reallocieren
1339	// Anders als bei den Properties kann die Anzahl nicht durch
1340	// Zaehler in inspect() vorher ermittelt werden, da Methoden
1341	// mehreren Konzepten angehoeren koennen
1342	pThis->maLastMethodSeq.realloc( nLen );
1343	Reference<XIdlMethod>* pDestMethods = pThis->maLastMethodSeq.getArray();
1344
1345	// Alle Methods durchgehen und entsprechend der Concepte uebernehmen
1346	sal_Int32 iDest = 0;
1347	for( sal_Int32 i = 0 ; i < nLen ; i++ )
1348	{
1349	sal_Int32 nConcept = pConcepts[ i ];
1350	if( nConcept & MethodConcepts )
1351	pDestMethods[ iDest++ ] = pSourceMethods[ i ];
1352
1353	#if OSL_DEBUG_LEVEL1 > 0
1354	static bool debug = false;
1355	if ( debug )
1356	{
1357	// Methode mit Concepts ausgeben
1358	const Reference< XIdlMethod >& rxMethod = pSourceMethods[ i ];
1359	::rtl::OString aNameStr = ::rtl::OUStringToOString( rxMethod->getName(), osl_getThreadTextEncoding() );
1360	::rtl::OString ConceptStr;
1361	if( nConcept & MethodConcept::DANGEROUS )
1362	ConceptStr += "DANGEROUS \|";
1363	if( nConcept & MethodConcept::PROPERTY )
1364	ConceptStr += "PROPERTY \|";
1365	if( nConcept & MethodConcept::LISTENER )
1366	ConceptStr += "LISTENER \|";
1367	if( nConcept & MethodConcept::ENUMERATION )
1368	ConceptStr += "ENUMERATION \|";
1369	if( nConcept & MethodConcept::NAMECONTAINER )
1370	ConceptStr += "NAMECONTAINER \|";
1371	if( nConcept & MethodConcept::INDEXCONTAINER )
1372	ConceptStr += "INDEXCONTAINER \|";
1373	OSL_TRACE( "Method %ld: %s, Concepts = %s", i, aNameStr.getStr(), ConceptStr.getStr() )do { if (true && (1 > 0)) { sal_detail_logFormat(( SAL_DETAIL_LOG_LEVEL_INFO), ("legacy.osl"), ("/usr/local/src/libreoffice/stoc/source/inspect/introspection.cxx" ":" "1373" ": "), "Method %ld: %s, Concepts = %s", i, aNameStr .getStr(), ConceptStr.getStr()); } } while (false);
1374	}
1375	#endif
1376	}
1377
1378	// Auf die richtige Laenge bringen
1379	pThis->maLastMethodSeq.realloc( iDest );
1380
1381	// MethodConcept merken, dies entspricht maLastMethodSeq
1382	pThis->mnLastMethodConcept = MethodConcepts;
1383
1384	// Zusammengebastelte Sequence liefern
1385	return maLastMethodSeq;
1386	}
1387
1388	Sequence< Type > ImplIntrospectionAccess::getSupportedListeners(void)
1389	throw( RuntimeException )
1390	{
1391	return mpStaticImpl->getSupportedListeners();
1392	}
1393
1394	Reference<XInterface> SAL_CALL ImplIntrospectionAccess::queryAdapter( const Type& rType )
1395	throw( IllegalTypeException, RuntimeException )
1396	{
1397	// Gibt es schon einen Adapter?
1398	Reference< XInterface > xAdapter( maAdapter );
1399	if( !xAdapter.is() )
1400	{
1401	xAdapter = *( new ImplIntrospectionAdapter( this, maInspectedObject, mpStaticImpl ) );
1402	maAdapter = xAdapter;
1403	}
1404
1405	Reference<XInterface> xRet;
1406	xAdapter->queryInterface( rType ) >>= xRet;
1407	return xRet;
1408	}
1409
1410	// Methoden von XMaterialHolder
1411	Any ImplIntrospectionAccess::getMaterial(void) throw(RuntimeException)
1412	{
1413	return maInspectedObject;
1414	}
1415
1416	// Hilfs-Funktion zur LowerCase-Wandlung eines ::rtl::OUString
1417	::rtl::OUString toLower( ::rtl::OUString aUStr )
1418	{
1419	// Tabelle fuer XExactName pflegen
1420	::rtl::OUString aOWStr( aUStr.getStr() );
1421	::rtl::OUString aOWLowerStr = aOWStr.toAsciiLowerCase();
1422	::rtl::OUString aLowerUStr( aOWLowerStr.getStr() );
1423	return aLowerUStr;
1424	}
1425
1426	// Methoden von XExactName
1427	::rtl::OUString ImplIntrospectionAccess::getExactName( const ::rtl::OUString& rApproximateName ) throw( RuntimeException )
1428	{
1429	::rtl::OUString aRetStr;
1430	LowerToExactNameMap::iterator aIt =
1431	mpStaticImpl->maLowerToExactNameMap.find( toLower( rApproximateName ) );
1432	if( !( aIt == mpStaticImpl->maLowerToExactNameMap.end() ) )
1433	aRetStr = (*aIt).second;
1434	return aRetStr;
1435	}
1436
1437
1438	//-----------------------------------------------------------------------------
1439
1440	struct hashIntrospectionKey_Impl
1441	{
1442	Sequence< Reference<XIdlClass> > aIdlClasses;
1443	Reference<XPropertySetInfo> xPropInfo;
1444	Reference<XIdlClass> xImplClass;
1445	sal_Int32 nHitCount;
1446
1447	void IncHitCount() const { ((hashIntrospectionKey_Impl*)this)->nHitCount++; }
1448	hashIntrospectionKey_Impl() : nHitCount( 0 ) {}
1449	hashIntrospectionKey_Impl( const Sequence< Reference<XIdlClass> > & rIdlClasses,
1450	const Reference<XPropertySetInfo> & rxPropInfo,
1451	const Reference<XIdlClass> & rxImplClass );
1452	};
1453
1454	hashIntrospectionKey_Impl::hashIntrospectionKey_Impl
1455	(
1456	const Sequence< Reference<XIdlClass> > & rIdlClasses,
1457	const Reference<XPropertySetInfo> & rxPropInfo,
1458	const Reference<XIdlClass> & rxImplClass
1459	)
1460	: aIdlClasses( rIdlClasses )
1461	, xPropInfo( rxPropInfo )
1462	, xImplClass( rxImplClass )
1463	, nHitCount( 0 )
1464	{}
1465
1466
1467	struct hashIntrospectionAccessCache_Impl
1468	{
1469	size_t operator()(const hashIntrospectionKey_Impl & rObj ) const
1470	{
1471	return (size_t)rObj.xImplClass.get() ^ (size_t)rObj.xPropInfo.get();
1472	}
1473
1474	bool operator()( const hashIntrospectionKey_Impl & rObj1,
1475	const hashIntrospectionKey_Impl & rObj2 ) const
1476	{
1477	if( rObj1.xPropInfo != rObj2.xPropInfo
1478	\|\| rObj1.xImplClass != rObj2.xImplClass )
1479	return sal_False((sal_Bool)0);
1480
1481	sal_Int32 nCount1 = rObj1.aIdlClasses.getLength();
1482	sal_Int32 nCount2 = rObj2.aIdlClasses.getLength();
1483	if( nCount1 != nCount2 )
1484	return sal_False((sal_Bool)0);
1485
1486	const Reference<XIdlClass>* pRefs1 = rObj1.aIdlClasses.getConstArray();
1487	const Reference<XIdlClass>* pRefs2 = rObj2.aIdlClasses.getConstArray();
1488	return memcmp( pRefs1, pRefs2, nCount1 * sizeof( Reference<XIdlClass> ) ) == 0;
1489	}
1490
1491	};
1492
1493	typedef boost::unordered_map
1494	<
1495	hashIntrospectionKey_Impl,
1496	rtl::Reference< IntrospectionAccessStatic_Impl >,
1497	hashIntrospectionAccessCache_Impl,
1498	hashIntrospectionAccessCache_Impl
1499	>
1500	IntrospectionAccessCacheMap;
1501
1502	// For XTypeProvider
1503	struct hashTypeProviderKey_Impl
1504	{
1505	Reference<XPropertySetInfo> xPropInfo;
1506	Sequence< sal_Int8 > maImpIdSeq;
1507	sal_Int32 nHitCount;
1508
1509	void IncHitCount() const { ((hashTypeProviderKey_Impl*)this)->nHitCount++; }
1510	hashTypeProviderKey_Impl() : nHitCount( 0 ) {}
1511	hashTypeProviderKey_Impl( const Reference<XPropertySetInfo> & rxPropInfo, const Sequence< sal_Int8 > & aImpIdSeq_ );
1512	};
1513
1514	hashTypeProviderKey_Impl::hashTypeProviderKey_Impl
1515	(
1516	const Reference<XPropertySetInfo> & rxPropInfo,
1517	const Sequence< sal_Int8 > & aImpIdSeq_
1518	)
1519	: xPropInfo( rxPropInfo )
1520	, maImpIdSeq( aImpIdSeq_ )
1521	, nHitCount( 0 )
1522	{}
1523
1524
1525	struct TypeProviderAccessCache_Impl
1526	{
1527	size_t operator()(const hashTypeProviderKey_Impl & rObj ) const;
1528
1529	bool operator()( const hashTypeProviderKey_Impl & rObj1,
1530	const hashTypeProviderKey_Impl & rObj2 ) const
1531	{
1532	if( rObj1.xPropInfo != rObj2.xPropInfo )
1533	return sal_False((sal_Bool)0);
1534
1535	bool bEqual = false;
1536	sal_Int32 nLen1 = rObj1.maImpIdSeq.getLength();
1537	sal_Int32 nLen2 = rObj2.maImpIdSeq.getLength();
1538	if( nLen1 == nLen2 && nLen1 > 0 )
1539	{
1540	const sal_Int8* pId1 = rObj1.maImpIdSeq.getConstArray();
1541	const sal_Int8* pId2 = rObj2.maImpIdSeq.getConstArray();
1542	bEqual = (memcmp( pId1, pId2, nLen1 * sizeof( sal_Int8 ) ) == 0 );
1543	}
1544	return bEqual;
1545	}
1546	};
1547
1548	size_t TypeProviderAccessCache_Impl::operator()(const hashTypeProviderKey_Impl & rObj ) const
1549	{
1550	const sal_Int32* pBytesAsInt32Array = (const sal_Int32*)rObj.maImpIdSeq.getConstArray();
1551	sal_Int32 nLen = rObj.maImpIdSeq.getLength();
1552	sal_Int32 nCount32 = nLen / 4;
1553	sal_Int32 nMod32 = nLen % 4;
1554
1555	// XOR with full 32 bit values
1556	sal_Int32 nId32 = 0;
1557	sal_Int32 i;
1558	for( i = 0 ; i < nCount32 ; i++ )
1559	nId32 ^= *(pBytesAsInt32Array++);
1560
1561	// XOR with remaining byte values
1562	if( nMod32 )
1563	{
1564	const sal_Int8* pBytes = (const sal_Int8*)pBytesAsInt32Array;
1565	sal_Int8* pInt8_Id32 = (sal_Int8*)&nId32;
1566	for( i = 0 ; i < nMod32 ; i++ )
1567	(pInt8_Id32++) ^= (pBytes++);
1568	}
1569
1570	return (size_t)nId32;
1571	}
1572
1573
1574	typedef boost::unordered_map
1575	<
1576	hashTypeProviderKey_Impl,
1577	rtl::Reference< IntrospectionAccessStatic_Impl >,
1578	TypeProviderAccessCache_Impl,
1579	TypeProviderAccessCache_Impl
1580	>
1581	TypeProviderAccessCacheMap;
1582
1583	//*************************
1584	//* ImplIntrospection *
1585	//*************************
1586
1587	struct OIntrospectionMutex
1588	{
1589	Mutex m_mutex;
1590	};
1591
1592	class ImplIntrospection : public XIntrospection
1593	, public XServiceInfo
1594	, public OIntrospectionMutex
1595	, public OComponentHelper
1596	{
1597	// Implementation der Introspection.
1598	rtl::Reference< IntrospectionAccessStatic_Impl > implInspect(const Any& aToInspectObj);
1599
1600	// Save XMultiServiceFactory from createComponent
1601	Reference<XMultiServiceFactory> m_xSMgr;
1602
1603	// CoreReflection halten
1604	Reference< XIdlReflection > mxCoreReflection;
1605
1606	// Klassen, deren Methoden eine spezielle Rolle spielen
1607	Reference<XIdlClass> mxElementAccessClass;
1608	Reference<XIdlClass> mxNameContainerClass;
1609	Reference<XIdlClass> mxNameAccessClass;
1610	Reference<XIdlClass> mxIndexContainerClass;
1611	Reference<XIdlClass> mxIndexAccessClass;
1612	Reference<XIdlClass> mxEnumerationAccessClass;
1613	Reference<XIdlClass> mxInterfaceClass;
1614	Reference<XIdlClass> mxAggregationClass;
1615	sal_Bool mbDisposed;
1616
1617	sal_uInt16 mnCacheEntryCount;
1618	sal_uInt16 mnTPCacheEntryCount;
1619	IntrospectionAccessCacheMap* mpCache;
1620	TypeProviderAccessCacheMap* mpTypeProviderCache;
1621
1622	public:
1623	ImplIntrospection( const Reference<XMultiServiceFactory> & rXSMgr );
1624
1625	// Methoden von XInterface
1626	virtual Any SAL_CALL queryInterface( const Type& rType ) throw( RuntimeException );
1627	virtual void SAL_CALL acquire() throw() { OComponentHelper::acquire(); }
1628	virtual void SAL_CALL release() throw() { OComponentHelper::release(); }
1629
1630	// XTypeProvider
1631	Sequence< Type > SAL_CALL getTypes( ) throw( RuntimeException );
1632	Sequence<sal_Int8> SAL_CALL getImplementationId( ) throw( RuntimeException );
1633
1634	// XServiceInfo
1635	::rtl::OUString SAL_CALL getImplementationName() throw();
1636	sal_Bool SAL_CALL supportsService(const ::rtl::OUString& ServiceName) throw();
1637	Sequence< ::rtl::OUString > SAL_CALL getSupportedServiceNames(void) throw();
1638	static ::rtl::OUString SAL_CALL getImplementationName_Static( );
1639	static Sequence< ::rtl::OUString > SAL_CALL getSupportedServiceNames_Static(void) throw();
1640
1641	// Methoden von XIntrospection
1642	virtual Reference<XIntrospectionAccess> SAL_CALL inspect(const Any& aToInspectObj)
1643	throw( RuntimeException );
1644
1645	protected:
1646	// some XComponent part from OComponentHelper
1647	virtual void SAL_CALL dispose() throw(::com::sun::star::uno::RuntimeException);
1648	};
1649
1650	enum MethodType
1651	{
1652	STANDARD_METHOD, // normale Methode, kein Bezug zu Properties oder Listenern
1653	GETSET_METHOD, // gehoert zu einer get/set-Property
1654	ADD_LISTENER_METHOD, // add-Methode einer Listener-Schnittstelle
1655	REMOVE_LISTENER_METHOD, // remove-Methode einer Listener-Schnittstelle
1656	INVALID_METHOD // Methode, deren Klasse nicht beruecksichtigt wird, z.B. XPropertySet
1657	};
1658
1659	// Ctor
1660	ImplIntrospection::ImplIntrospection( const Reference<XMultiServiceFactory> & rXSMgr )
1661	: OComponentHelper( m_mutex )
1662	, m_xSMgr( rXSMgr )
1663	{
1664	mnCacheEntryCount = 0;
1665	mnTPCacheEntryCount = 0;
1666	mpCache = NULL__null;
1667	mpTypeProviderCache = NULL__null;
1668
1669	// Spezielle Klassen holen
1670	// Reference< XInterface > xServiceIface = m_xSMgr->createInstance( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.reflection.CoreReflection")) );
1671	// if( xServiceIface.is() )
1672	// mxCoreReflection = Reference< XIdlReflection >::query( xServiceIface );
1673	Reference< XPropertySet > xProps( rXSMgr, UNO_QUERY );
1674	OSL_ASSERT( xProps.is() )do { if (true && (!(xProps.is()))) { sal_detail_logFormat ((SAL_DETAIL_LOG_LEVEL_WARN), ("legacy.osl"), ("/usr/local/src/libreoffice/stoc/source/inspect/introspection.cxx" ":" "1674" ": "), "OSL_ASSERT: %s", "xProps.is()"); } } while (false);
1675	if (xProps.is())
1676	{
1677	Reference< XComponentContext > xContext;
1678	xProps->getPropertyValue(
1679	::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("DefaultContext")(&("DefaultContext")[0]), ((sal_Int32)((sizeof ("DefaultContext" ) / sizeof (("DefaultContext")[0]))-1)), (((rtl_TextEncoding) 11)) ) ) >>= xContext;
1680	OSL_ASSERT( xContext.is() )do { if (true && (!(xContext.is()))) { sal_detail_logFormat ((SAL_DETAIL_LOG_LEVEL_WARN), ("legacy.osl"), ("/usr/local/src/libreoffice/stoc/source/inspect/introspection.cxx" ":" "1680" ": "), "OSL_ASSERT: %s", "xContext.is()"); } } while (false);
1681	if (xContext.is())
1682	{
1683	xContext->getValueByName(
1684	::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("/singletons/com.sun.star.reflection.theCoreReflection")(&("/singletons/com.sun.star.reflection.theCoreReflection" )[0]), ((sal_Int32)((sizeof ("/singletons/com.sun.star.reflection.theCoreReflection" ) / sizeof (("/singletons/com.sun.star.reflection.theCoreReflection" )[0]))-1)), (((rtl_TextEncoding) 11)) ) ) >>= mxCoreReflection;
1685	OSL_ENSURE( mxCoreReflection.is(), "### CoreReflection singleton not accessible!?" )do { if (true && (!(mxCoreReflection.is()))) { sal_detail_logFormat ((SAL_DETAIL_LOG_LEVEL_WARN), ("legacy.osl"), ("/usr/local/src/libreoffice/stoc/source/inspect/introspection.cxx" ":" "1685" ": "), "%s", "### CoreReflection singleton not accessible!?" ); } } while (false);
1686	}
1687	}
1688	if (! mxCoreReflection.is())
1689	{
1690	throw DeploymentException(
1691	::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("/singletons/com.sun.star.reflection.theCoreReflection singleton not accessible")(&("/singletons/com.sun.star.reflection.theCoreReflection singleton not accessible" )[0]), ((sal_Int32)((sizeof ("/singletons/com.sun.star.reflection.theCoreReflection singleton not accessible" ) / sizeof (("/singletons/com.sun.star.reflection.theCoreReflection singleton not accessible" )[0]))-1)), (((rtl_TextEncoding) 11)) ),
1692	Reference< XInterface >() );
1693	}
1694
1695	mxElementAccessClass = mxCoreReflection->forName( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.container.XElementAccess")(&("com.sun.star.container.XElementAccess")[0]), ((sal_Int32 )((sizeof ("com.sun.star.container.XElementAccess") / sizeof ( ("com.sun.star.container.XElementAccess")[0]))-1)), (((rtl_TextEncoding ) 11))) );
1696	mxNameContainerClass = mxCoreReflection->forName( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.container.XNameContainer")(&("com.sun.star.container.XNameContainer")[0]), ((sal_Int32 )((sizeof ("com.sun.star.container.XNameContainer") / sizeof ( ("com.sun.star.container.XNameContainer")[0]))-1)), (((rtl_TextEncoding ) 11))) );
1697	mxNameAccessClass = mxCoreReflection->forName( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.container.XNameAccess")(&("com.sun.star.container.XNameAccess")[0]), ((sal_Int32 )((sizeof ("com.sun.star.container.XNameAccess") / sizeof (("com.sun.star.container.XNameAccess" )[0]))-1)), (((rtl_TextEncoding) 11))) );
1698	mxIndexContainerClass = mxCoreReflection->forName( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.container.XIndexContainer")(&("com.sun.star.container.XIndexContainer")[0]), ((sal_Int32 )((sizeof ("com.sun.star.container.XIndexContainer") / sizeof (("com.sun.star.container.XIndexContainer")[0]))-1)), (((rtl_TextEncoding ) 11))) );
1699	mxIndexAccessClass = mxCoreReflection->forName( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.container.XIndexAccess")(&("com.sun.star.container.XIndexAccess")[0]), ((sal_Int32 )((sizeof ("com.sun.star.container.XIndexAccess") / sizeof (( "com.sun.star.container.XIndexAccess")[0]))-1)), (((rtl_TextEncoding ) 11))) );
1700	mxEnumerationAccessClass = mxCoreReflection->forName( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.container.XEnumerationAccess")(&("com.sun.star.container.XEnumerationAccess")[0]), ((sal_Int32 )((sizeof ("com.sun.star.container.XEnumerationAccess") / sizeof (("com.sun.star.container.XEnumerationAccess")[0]))-1)), ((( rtl_TextEncoding) 11))) );
1701	mxInterfaceClass = mxCoreReflection->forName( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.uno.XInterface")(&("com.sun.star.uno.XInterface")[0]), ((sal_Int32)((sizeof ("com.sun.star.uno.XInterface") / sizeof (("com.sun.star.uno.XInterface" )[0]))-1)), (((rtl_TextEncoding) 11))) );
1702	mxAggregationClass = mxCoreReflection->forName( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.uno.XAggregation")(&("com.sun.star.uno.XAggregation")[0]), ((sal_Int32)((sizeof ("com.sun.star.uno.XAggregation") / sizeof (("com.sun.star.uno.XAggregation" )[0]))-1)), (((rtl_TextEncoding) 11))) );
1703	mbDisposed = sal_False((sal_Bool)0);
1704	}
1705
1706	// XComponent
1707	void ImplIntrospection::dispose() throw(::com::sun::star::uno::RuntimeException)
1708	{
1709	OComponentHelper::dispose();
1710
1711	// Cache loeschen
1712	delete mpCache;
1713	mpCache = NULL__null;
1714	delete mpTypeProviderCache;
1715	mpTypeProviderCache = NULL__null;
1716
1717	mxElementAccessClass = NULL__null;
1718	mxNameContainerClass = NULL__null;
1719	mxNameAccessClass = NULL__null;
1720	mxIndexContainerClass = NULL__null;
1721	mxIndexAccessClass = NULL__null;
1722	mxEnumerationAccessClass = NULL__null;
1723	mxInterfaceClass = NULL__null;
1724	mxAggregationClass = NULL__null;
1725	mbDisposed = sal_True((sal_Bool)1);
1726	}
1727
1728
1729	//-----------------------------------------------------------------------------
1730
1731	// XInterface
1732	Any ImplIntrospection::queryInterface( const Type & rType )
1733	throw(::com::sun::star::uno::RuntimeException)
1734	{
1735	Any aRet( ::cppu::queryInterface(
1736	rType,
1737	static_cast< XIntrospection * >( this ),
1738	static_cast< XServiceInfo * >( this ) ) );
1739
1740	return (aRet.hasValue() ? aRet : OComponentHelper::queryInterface( rType ));
1741	}
1742
1743	// XTypeProvider
1744	Sequence< Type > ImplIntrospection::getTypes()
1745	throw( RuntimeException )
1746	{
1747	static OTypeCollection * s_pTypes = 0;
1748	if (! s_pTypes)
1749	{
1750	MutexGuard aGuard( Mutex::getGlobalMutex() );
1751	if (! s_pTypes)
1752	{
1753	static OTypeCollection s_aTypes(
1754	::getCppuType( (const Reference< XIntrospection > *)0 ),
1755	::getCppuType( (const Reference< XServiceInfo > *)0 ),
1756	OComponentHelper::getTypes() );
1757	s_pTypes = &s_aTypes;
1758	}
1759	}
1760	return s_pTypes->getTypes();
1761	}
1762
1763	Sequence< sal_Int8 > ImplIntrospection::getImplementationId()
1764	throw( RuntimeException )
1765	{
1766	static OImplementationId * s_pId = 0;
1767	if (! s_pId)
1768	{
1769	MutexGuard aGuard( Mutex::getGlobalMutex() );
1770	if (! s_pId)
1771	{
1772	static OImplementationId s_aId;
1773	s_pId = &s_aId;
1774	}
1775	}
1776	return s_pId->getImplementationId();
1777	}
1778
1779
1780	// XServiceInfo
1781	::rtl::OUString ImplIntrospection::getImplementationName() throw()
1782	{
1783	return getImplementationName_Static();
1784	}
1785
1786	// XServiceInfo
1787	sal_Bool ImplIntrospection::supportsService(const ::rtl::OUString& ServiceName) throw()
1788	{
1789	Sequence< ::rtl::OUString > aSNL = getSupportedServiceNames();
1790	const ::rtl::OUString * pArray = aSNL.getConstArray();
1791	for( sal_Int32 i = 0; i < aSNL.getLength(); i++ )
1792	if( pArray[i] == ServiceName )
1793	return sal_True((sal_Bool)1);
1794	return sal_False((sal_Bool)0);
1795	}
1796
1797	// XServiceInfo
1798	Sequence< ::rtl::OUString > ImplIntrospection::getSupportedServiceNames(void) throw()
1799	{
1800	return getSupportedServiceNames_Static();
1801	}
1802
1803	//*************************************************************************
1804	// Helper XServiceInfo
1805	::rtl::OUString ImplIntrospection::getImplementationName_Static( )
1806	{
1807	return ::rtl::OUString::createFromAscii( IMPLEMENTATION_NAME"com.sun.star.comp.stoc.Introspection" );
1808	}
1809
1810	// ORegistryServiceManager_Static
1811	Sequence< ::rtl::OUString > ImplIntrospection::getSupportedServiceNames_Static(void) throw()
1812	{
1813	Sequence< ::rtl::OUString > aSNS( 1 );
1814	aSNS.getArray()[0] = ::rtl::OUString::createFromAscii( SERVICE_NAME"com.sun.star.beans.Introspection" );
1815	return aSNS;
1816	}
1817
1818	//*************************************************************************
1819
1820	// Methoden von XIntrospection
1821	Reference<XIntrospectionAccess> ImplIntrospection::inspect(const Any& aToInspectObj)
1822	throw( RuntimeException )
1823	{
1824	Reference<XIntrospectionAccess> xAccess;
1825
1826	if ( aToInspectObj.getValueType().getTypeClass() == TypeClass_TYPE )
1827	{
1828	Type aType;
1829	aToInspectObj >>= aType;
1830
1831	Reference< XIdlClass > xIdlClass = mxCoreReflection->forName(((Type*)(aToInspectObj.getValue()))->getTypeName());
1832
1833	if ( xIdlClass.is() )
1834	{
1835	Any aRealInspectObj;
1836	aRealInspectObj <<= xIdlClass;
1837
1838	rtl::Reference< IntrospectionAccessStatic_Impl > pStaticImpl( implInspect( aRealInspectObj ) );
1839	if( pStaticImpl.is() )
1840	xAccess = new ImplIntrospectionAccess( aRealInspectObj, pStaticImpl );
1841	}
1842	}
1843	else
1844	{
1845	rtl::Reference< IntrospectionAccessStatic_Impl > pStaticImpl( implInspect( aToInspectObj ) );
1846	if( pStaticImpl.is() )
1847	xAccess = new ImplIntrospectionAccess( aToInspectObj, pStaticImpl );
1848	}
1849
1850	return xAccess;
1851	}
1852
1853	//-----------------------------------------------------------------------------
1854
1855	// Hashtable fuer Pruefung auf mehrfache Beruecksichtigung von Interfaces
1856	struct hashInterface_Impl
1857	{
1858	size_t operator()(const void* p) const
1859	{
1860	return (size_t)p;
1861	}
1862	};
1863
1864	struct eqInterface_Impl
1865	{
1866	bool operator()(const void* p1, const void* p2) const
1867	{
1868	return ( p1 == p2 );
1869	}
1870	};
1871
1872	typedef boost::unordered_map
1873	<
1874	void*,
1875	void*,
1876	hashInterface_Impl,
1877	eqInterface_Impl
1878	>
1879	CheckedInterfacesMap;
1880
1881
1882
1883	// TODO: Spaeter auslagern
1884	Reference<XIdlClass> TypeToIdlClass( const Type& rType, const Reference< XMultiServiceFactory > & xMgr )
1885	{
1886	static Reference< XIdlReflection > xRefl;
1887
1888	// void als Default-Klasse eintragen
1889	Reference<XIdlClass> xRetClass;
1890	typelib_TypeDescription * pTD = 0;
1891	rType.getDescription( &pTD );
1892	if( pTD )
1893	{
1894	::rtl::OUString sOWName( pTD->pTypeName );
1895	if( !xRefl.is() )
1896	{
1897	xRefl = Reference< XIdlReflection >( xMgr->createInstance( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.reflection.CoreReflection")(&("com.sun.star.reflection.CoreReflection")[0]), ((sal_Int32 )((sizeof ("com.sun.star.reflection.CoreReflection") / sizeof (("com.sun.star.reflection.CoreReflection")[0]))-1)), (((rtl_TextEncoding ) 11))) ), UNO_QUERY );
1898	OSL_ENSURE( xRefl.is(), "### no corereflection!" )do { if (true && (!(xRefl.is()))) { sal_detail_logFormat ((SAL_DETAIL_LOG_LEVEL_WARN), ("legacy.osl"), ("/usr/local/src/libreoffice/stoc/source/inspect/introspection.cxx" ":" "1898" ": "), "%s", "### no corereflection!"); } } while (false);
1899	}
1900	xRetClass = xRefl->forName( sOWName );
1901	}
1902	return xRetClass;
1903	}
1904
1905	// Implementation der Introspection.
1906	rtl::Reference< IntrospectionAccessStatic_Impl > ImplIntrospection::implInspect(const Any& aToInspectObj)
1907	{
1908	MutexGuard aGuard( m_mutex );
1909
1910	// Wenn die Introspection schon disposed ist, wird nur ein leeres Ergebnis geliefert
1911	if( mbDisposed )
1912	return NULL__null;
1913
1914	// Objekt untersuchen
1915	TypeClass eType = aToInspectObj.getValueType().getTypeClass();
1916	if( eType != TypeClass_INTERFACE && eType != TypeClass_STRUCT && eType != TypeClass_EXCEPTION )
1917	return NULL__null;
1918
1919	Reference<XInterface> x;
1920	if( eType == TypeClass_INTERFACE )
1921	{
1922	// Interface aus dem Any besorgen
1923	x = (Reference<XInterface>)aToInspectObj.getValue();
1924	if( !x.is() )
1925	return NULL__null;
1926	}
1927
1928	// Haben wir schon eine Cache-Instanz
1929	if( !mpCache )
1930	mpCache = new IntrospectionAccessCacheMap;
1931	if( !mpTypeProviderCache )
1932	mpTypeProviderCache = new TypeProviderAccessCacheMap;
1933	IntrospectionAccessCacheMap& aCache = *mpCache;
1934	TypeProviderAccessCacheMap& aTPCache = *mpTypeProviderCache;
1935
1936	// Pointer auf ggf. noetige neue IntrospectionAccess-Instanz
1937	rtl::Reference< IntrospectionAccessStatic_Impl > pAccess;
1938
1939	// Pruefen: Ist schon ein passendes Access-Objekt gecached?
1940	Sequence< Reference<XIdlClass> > SupportedClassSeq;
1941	Sequence< Type > SupportedTypesSeq;
1942	Reference<XTypeProvider> xTypeProvider;
1943	Reference<XIdlClass> xImplClass;
1944	Reference<XPropertySetInfo> xPropSetInfo;
1945	Reference<XPropertySet> xPropSet;
1946
1947	// Look for interfaces XTypeProvider and PropertySet
1948	if( eType == TypeClass_INTERFACE )
1949	{
1950	xTypeProvider = Reference<XTypeProvider>::query( x );
1951	if( xTypeProvider.is() )
1952	{
1953	SupportedTypesSeq = xTypeProvider->getTypes();
1954	sal_Int32 nTypeCount = SupportedTypesSeq.getLength();
1955	if( nTypeCount )
1956	{
1957	SupportedClassSeq.realloc( nTypeCount );
1958	Reference<XIdlClass>* pClasses = SupportedClassSeq.getArray();
1959
1960	const Type* pTypes = SupportedTypesSeq.getConstArray();
1961	for( sal_Int32 i = 0 ; i < nTypeCount ; i++ )
1962	{
1963	pClasses[ i ] = TypeToIdlClass( pTypes[ i ], m_xSMgr );
1964	}
1965	// TODO: Caching!
1966	}
1967	}
1968	else
1969	{
1970	xImplClass = TypeToIdlClass( aToInspectObj.getValueType(), m_xSMgr );
1971	SupportedClassSeq.realloc( 1 );
1972	SupportedClassSeq.getArray()[ 0 ] = xImplClass;
1973	}
1974
1975	xPropSet = Reference<XPropertySet>::query( x );
1976	// Jetzt versuchen, das PropertySetInfo zu bekommen
1977	if( xPropSet.is() )
1978	xPropSetInfo = xPropSet->getPropertySetInfo();
1979	}
1980	else
1981	{
1982	xImplClass = TypeToIdlClass( aToInspectObj.getValueType(), m_xSMgr );
1983	}
1984
1985	if( xTypeProvider.is() )
1986	{
1987	Sequence< sal_Int8 > aImpIdSeq = xTypeProvider->getImplementationId();
1988	sal_Int32 nIdLen = aImpIdSeq.getLength();
1989
1990	if( nIdLen )
1991	{
1992	// cache only, if the descriptor class is set
1993	hashTypeProviderKey_Impl aKeySeq( xPropSetInfo, aImpIdSeq );
1994
1995	TypeProviderAccessCacheMap::iterator aIt = aTPCache.find( aKeySeq );
1996	if( aIt == aTPCache.end() )
1997	{
1998	// not found
1999	// Neue Instanz anlegen und unter dem gegebenen Key einfuegen
2000	pAccess = new IntrospectionAccessStatic_Impl( mxCoreReflection );
2001
2002	// Groesse begrenzen, alten Eintrag wieder rausschmeissen
2003	if( mnTPCacheEntryCount > INTROSPECTION_CACHE_MAX_SIZE100 )
2004	{
2005	// Access mit dem kleinsten HitCount suchen
2006	TypeProviderAccessCacheMap::iterator iter = aTPCache.begin();
2007	TypeProviderAccessCacheMap::iterator end = aTPCache.end();
2008	TypeProviderAccessCacheMap::iterator toDelete = iter;
2009	while( iter != end )
2010	{
2011	if( (iter).first.nHitCount < (toDelete).first.nHitCount )
2012	toDelete = iter;
2013	++iter;
2014	}
2015	aTPCache.erase( toDelete );
2016	}
2017	else
2018	mnTPCacheEntryCount++;
2019
2020	// Neuer Eintrage rein in die Table
2021	aKeySeq.nHitCount = 1;
2022	aTPCache[ aKeySeq ] = pAccess;
2023
2024	}
2025	else
2026	{
2027	// Hit-Count erhoehen
2028	(*aIt).first.IncHitCount();
2029	return (*aIt).second;
2030	}
2031	}
2032	}
2033	else if( xImplClass.is() )
2034	{
2035	// cache only, if the descriptor class is set
2036	hashIntrospectionKey_Impl aKeySeq( SupportedClassSeq, xPropSetInfo, xImplClass );
2037
2038	IntrospectionAccessCacheMap::iterator aIt = aCache.find( aKeySeq );
2039	if( aIt == aCache.end() )
2040	{
2041	// not found
2042	// Neue Instanz anlegen und unter dem gegebenen Key einfuegen
2043	pAccess = new IntrospectionAccessStatic_Impl( mxCoreReflection );
2044
2045	// Groesse begrenzen, alten Eintrag wieder rausschmeissen
2046	if( mnCacheEntryCount > INTROSPECTION_CACHE_MAX_SIZE100 )
2047	{
2048	// Access mit dem kleinsten HitCount suchen
2049	IntrospectionAccessCacheMap::iterator iter = aCache.begin();
2050	IntrospectionAccessCacheMap::iterator end = aCache.end();
2051	IntrospectionAccessCacheMap::iterator toDelete = iter;
2052	while( iter != end )
2053	{
2054	if( (iter).first.nHitCount < (toDelete).first.nHitCount )
2055	toDelete = iter;
2056	++iter;
2057	}
2058	aCache.erase( toDelete );
2059	}
2060	else
2061	mnCacheEntryCount++;
2062
2063	// Neuer Eintrage rein in die Table
2064	aKeySeq.nHitCount = 1;
2065	aCache[ aKeySeq ] = pAccess;
2066
2067	}
2068	else
2069	{
2070	// Hit-Count erhoehen
2071	(*aIt).first.IncHitCount();
2072	return (*aIt).second;
2073	}
2074	}
2075
2076	// Kein Access gecached -> neu anlegen
2077	Property* pAllPropArray;
2078	Reference<XInterface>* pInterfaces1;
2079	Reference<XInterface>* pInterfaces2;
2080	sal_Int16* pMapTypeArray;
2081	sal_Int32* pPropertyConceptArray;
2082	sal_Int32 i;
2083
2084	if( !pAccess.is() )
2085	pAccess = new IntrospectionAccessStatic_Impl( mxCoreReflection );
2086
2087	// Referenzen auf wichtige Daten von pAccess
2088	sal_Int32& rPropCount = pAccess->mnPropCount;
2089	IntrospectionNameMap& rPropNameMap = pAccess->maPropertyNameMap;
2090	IntrospectionNameMap& rMethodNameMap = pAccess->maMethodNameMap;
2091	LowerToExactNameMap& rLowerToExactNameMap = pAccess->maLowerToExactNameMap;
2092
2093	// Schon mal Pointer auf das eigene Property-Feld holen
2094	pAllPropArray = pAccess->maAllPropertySeq.getArray();
2095	pInterfaces1 = pAccess->aInterfaceSeq1.getArray();
2096	pInterfaces2 = pAccess->aInterfaceSeq2.getArray();
2097	pMapTypeArray = pAccess->maMapTypeSeq.getArray();
2098	pPropertyConceptArray = pAccess->maPropertyConceptSeq.getArray();
2099
2100	//*************************
2101	//* Analyse vornehmen *
2102	//*************************
2103	if( eType == TypeClass_INTERFACE )
2104	{
2105	// Zunaechst nach speziellen Interfaces suchen, die fuer
2106	// die Introspection von besonderer Bedeutung sind.
2107
2108	// XPropertySet vorhanden?
2109	if( xPropSet.is() && xPropSetInfo.is() )
2110	{
2111	// Gibt es auch ein FastPropertySet?
2112	Reference<XFastPropertySet> xDummy = Reference<XFastPropertySet>::query( x );
2113	sal_Bool bFast = pAccess->mbFastPropSet = xDummy.is();
2114
2115	Sequence<Property> aPropSeq = xPropSetInfo->getProperties();
2116	const Property* pProps = aPropSeq.getConstArray();
2117	sal_Int32 nLen = aPropSeq.getLength();
2118
2119	// Bei FastPropertySet muessen wir uns die Original-Handles merken
2120	if( bFast )
2121	pAccess->mpOrgPropertyHandleArray = new sal_Int32[ nLen ];
2122
2123	for( i = 0 ; i < nLen ; i++ )
2124	{
2125	// Property in eigene Liste uebernehmen
2126	pAccess->checkPropertyArraysSize
2127	( pAllPropArray, pMapTypeArray, pPropertyConceptArray, rPropCount );
2128	Property& rProp = pAllPropArray[ rPropCount ];
2129	rProp = pProps[ i ];
2130
2131	if( bFast )
2132	pAccess->mpOrgPropertyHandleArray[ i ] = rProp.Handle;
2133
2134	// PropCount als Handle fuer das eigene FastPropertySet eintragen
2135	rProp.Handle = rPropCount;
2136
2137	// Art der Property merken
2138	pMapTypeArray[ rPropCount ] = MAP_PROPERTY_SET0;
2139	pPropertyConceptArray[ rPropCount ] = PROPERTYSET;
2140	pAccess->mnPropertySetPropCount++;
2141
2142	// Namen in Hashtable eintragen, wenn nicht schon bekannt
2143	::rtl::OUString aPropName = rProp.Name;
2144
2145	// Haben wir den Namen schon?
2146	IntrospectionNameMap::iterator aIt = rPropNameMap.find( aPropName );
2147	if( aIt == rPropNameMap.end() )
2148	{
2149	// Neuer Eintrag in die Hashtable
2150	rPropNameMap[ aPropName ] = rPropCount;
2151
2152	// Tabelle fuer XExactName pflegen
2153	rLowerToExactNameMap[ toLower( aPropName ) ] = aPropName;
2154	}
2155	else
2156	{
2157	OSL_FAIL(do { if (true && (((sal_Bool)1))) { sal_detail_logFormat ((SAL_DETAIL_LOG_LEVEL_WARN), ("legacy.osl"), ("/usr/local/src/libreoffice/stoc/source/inspect/introspection.cxx" ":" "2160" ": "), "%s", ( ::rtl::OString( "Introspection: Property \"" ) + ::rtl::OUStringToOString( aPropName, (((rtl_TextEncoding ) 76)) ) + ::rtl::OString( "\" found more than once in PropertySet" ) ).getStr()); } } while (false)
2158	( ::rtl::OString( "Introspection: Property \"" ) +do { if (true && (((sal_Bool)1))) { sal_detail_logFormat ((SAL_DETAIL_LOG_LEVEL_WARN), ("legacy.osl"), ("/usr/local/src/libreoffice/stoc/source/inspect/introspection.cxx" ":" "2160" ": "), "%s", ( ::rtl::OString( "Introspection: Property \"" ) + ::rtl::OUStringToOString( aPropName, (((rtl_TextEncoding ) 76)) ) + ::rtl::OString( "\" found more than once in PropertySet" ) ).getStr()); } } while (false)
2159	::rtl::OUStringToOString( aPropName, RTL_TEXTENCODING_UTF8 ) +do { if (true && (((sal_Bool)1))) { sal_detail_logFormat ((SAL_DETAIL_LOG_LEVEL_WARN), ("legacy.osl"), ("/usr/local/src/libreoffice/stoc/source/inspect/introspection.cxx" ":" "2160" ": "), "%s", ( ::rtl::OString( "Introspection: Property \"" ) + ::rtl::OUStringToOString( aPropName, (((rtl_TextEncoding ) 76)) ) + ::rtl::OString( "\" found more than once in PropertySet" ) ).getStr()); } } while (false)
2160	::rtl::OString( "\" found more than once in PropertySet" ) ).getStr() )do { if (true && (((sal_Bool)1))) { sal_detail_logFormat ((SAL_DETAIL_LOG_LEVEL_WARN), ("legacy.osl"), ("/usr/local/src/libreoffice/stoc/source/inspect/introspection.cxx" ":" "2160" ": "), "%s", ( ::rtl::OString( "Introspection: Property \"" ) + ::rtl::OUStringToOString( aPropName, (((rtl_TextEncoding ) 76)) ) + ::rtl::OString( "\" found more than once in PropertySet" ) ).getStr()); } } while (false);
2161	}
2162
2163	// Count pflegen
2164	rPropCount++;
2165	}
2166	}
2167
2168	// Indizes in die Export-Tabellen
2169	sal_Int32 iAllExportedMethod = 0;
2170	sal_Int32 iAllSupportedListener = 0;
2171
2172	// Hashtable fuer Pruefung auf mehrfache Beruecksichtigung von Interfaces
2173	CheckedInterfacesMap aCheckedInterfacesMap;
2174
2175	// Flag, ob XInterface-Methoden erfasst werden sollen
2176	// (das darf nur einmal erfolgen, initial zulassen)
2177	sal_Bool bXInterfaceIsInvalid = sal_False((sal_Bool)0);
2178
2179	// Flag, ob die XInterface-Methoden schon erfasst wurden. Wenn sal_True,
2180	// wird bXInterfaceIsInvalid am Ende der Iface-Schleife aktiviert und
2181	// XInterface-Methoden werden danach abgeklemmt.
2182	sal_Bool bFoundXInterface = sal_False((sal_Bool)0);
2183
2184	sal_Int32 nClassCount = SupportedClassSeq.getLength();
2185	for( sal_Int32 nIdx = 0 ; nIdx < nClassCount; nIdx++ )
2186	{
2187	Reference<XIdlClass> xImplClass2 = SupportedClassSeq.getConstArray()[nIdx];
2188	while( xImplClass2.is() )
2189	{
2190	// Interfaces der Implementation holen
2191	Sequence< Reference<XIdlClass> > aClassSeq = xImplClass2->getInterfaces();
2192	sal_Int32 nIfaceCount = aClassSeq.getLength();
2193
2194	aClassSeq.realloc( nIfaceCount + 1 );
2195	aClassSeq.getArray()[ nIfaceCount ] = xImplClass2;
2196	nIfaceCount++;
2197
2198	const Reference<XIdlClass>* pParamArray = aClassSeq.getConstArray();
2199
2200	for( sal_Int32 j = 0 ; j < nIfaceCount ; j++ )
2201	{
2202	const Reference<XIdlClass>& rxIfaceClass = pParamArray[j];
2203
2204	// Pruefen, ob das Interface schon beruecksichtigt wurde.
2205	XInterface* pIface = ( static_cast< XInterface* >( rxIfaceClass.get() ) );
2206	if( aCheckedInterfacesMap.count( pIface ) > 0 )
2207	{
2208	// Kennen wir schon
2209	continue;
2210	}
2211	else
2212	{
2213	// Sonst eintragen
2214	aCheckedInterfacesMap[ pIface ] = pIface;
2215	}
2216
2217	//********************************************************************
2218
2219	// 2. Fields als Properties registrieren
2220
2221	// Felder holen
2222	Sequence< Reference<XIdlField> > fields = rxIfaceClass->getFields();
2223	const Reference<XIdlField>* pFields = fields.getConstArray();
2224	sal_Int32 nLen = fields.getLength();
2225
2226	for( i = 0 ; i < nLen ; i++ )
2227	{
2228	Reference<XIdlField> xField = pFields[i];
2229	Reference<XIdlClass> xPropType = xField->getType();
2230
2231	// Ist die PropertySequence gross genug?
2232	pAccess->checkPropertyArraysSize
2233	( pAllPropArray, pMapTypeArray, pPropertyConceptArray, rPropCount );
2234
2235	// In eigenes Property-Array eintragen
2236	Property& rProp = pAllPropArray[ rPropCount ];
2237	::rtl::OUString aFieldName = xField->getName();
2238	rProp.Name = aFieldName;
2239	rProp.Handle = rPropCount;
2240	Type aFieldType( xPropType->getTypeClass(), xPropType->getName() );
2241	rProp.Type = aFieldType;
2242	FieldAccessMode eAccessMode = xField->getAccessMode();
2243	rProp.Attributes = (eAccessMode == FieldAccessMode_READONLY \|\|
2244	eAccessMode == FieldAccessMode_CONST)
2245	? READONLY : 0;
2246
2247	// Namen in Hashtable eintragen
2248	::rtl::OUString aPropName = rProp.Name;
2249
2250	// Haben wir den Namen schon?
2251	IntrospectionNameMap::iterator aIt = rPropNameMap.find( aPropName );
2252	if( !( aIt == rPropNameMap.end() ) )
2253	continue;
2254
2255	// Neuer Eintrag in die Hashtable
2256	rPropNameMap[ aPropName ] = rPropCount;
2257
2258	// Tabelle fuer XExactName pflegen
2259	rLowerToExactNameMap[ toLower( aPropName ) ] = aPropName;
2260
2261	// Field merken
2262	pAccess->checkInterfaceArraySize( pAccess->aInterfaceSeq1,
2263	pInterfaces1, rPropCount );
2264	pInterfaces1[ rPropCount ] = xField;
2265
2266	// Art der Property merken
2267	pMapTypeArray[ rPropCount ] = MAP_FIELD1;
2268	pPropertyConceptArray[ rPropCount ] = ATTRIBUTES;
2269	pAccess->mnAttributePropCount++;
2270
2271	// Count pflegen
2272	rPropCount++;
2273	}
2274
2275	//********************************************************************
2276
2277	// 3. Methoden
2278
2279	// Zaehler fuer die gefundenen Listener
2280	sal_Int32 nListenerCount = 0;
2281
2282	// Alle Methoden holen und merken
2283	Sequence< Reference<XIdlMethod> > methods = rxIfaceClass->getMethods();
2284	const Reference<XIdlMethod>* pSourceMethods = methods.getConstArray();
2285	sal_Int32 nSourceMethodCount = methods.getLength();
2286
2287	// 3. a) get/set- und Listener-Methoden suchen
2288
2289	// Feld fuer Infos ueber die Methoden anlegen, damit spaeter leicht die Methoden
2290	// gefunden werden koennen, die nicht im Zusammenhang mit Properties oder Listenern
2291	// stehen. NEU: auch MethodConceptArray initialisieren
2292	MethodType* pMethodTypes = new MethodType[ nSourceMethodCount ];
2293	sal_Int32* pLocalMethodConcepts = new sal_Int32[ nSourceMethodCount ];
2294	for( i = 0 ; i < nSourceMethodCount ; i++ )
2295	{
2296	pMethodTypes[ i ] = STANDARD_METHOD;
2297	pLocalMethodConcepts[ i ] = 0;
2298	}
2299
2300	::rtl::OUString aMethName;
2301	::rtl::OUString aPropName;
2302	::rtl::OUString aStartStr;
2303	for( i = 0 ; i < nSourceMethodCount ; i++ )
2304	{
2305	// Methode ansprechen
2306	const Reference<XIdlMethod>& rxMethod_i = pSourceMethods[i];
2307	sal_Int32& rMethodConcept_i = pLocalMethodConcepts[ i ];
2308
2309	// Namen besorgen
2310	aMethName = rxMethod_i->getName();
2311
2312	// Methoden katalogisieren
2313	// Alle (?) Methoden von XInterface filtern, damit z.B. nicht
2314	// vom Scripting aus acquire oder release gerufen werden kann
2315	if( rxMethod_i->getDeclaringClass()->equals( mxInterfaceClass ) )
2316	{
2317	// XInterface-Methoden sind hiermit einmal beruecksichtigt
2318	bFoundXInterface = sal_True((sal_Bool)1);
2319
2320	if( bXInterfaceIsInvalid )
2321	{
2322	pMethodTypes[ i ] = INVALID_METHOD;
2323	continue;
2324	}
2325	else
2326	{
2327	if( aMethName != ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("queryInterface")(&("queryInterface")[0]), ((sal_Int32)((sizeof ("queryInterface" ) / sizeof (("queryInterface")[0]))-1)), (((rtl_TextEncoding) 11))) )
2328	{
2329	rMethodConcept_i \|= MethodConcept::DANGEROUS;
2330	continue;
2331	}
2332	}
2333	}
2334	else if( rxMethod_i->getDeclaringClass()->equals( mxAggregationClass ) )
2335	{
2336	if( aMethName == "setDelegator" )
2337	{
2338	rMethodConcept_i \|= MethodConcept::DANGEROUS;
2339	continue;
2340	}
2341	}
2342	else if( rxMethod_i->getDeclaringClass()->equals( mxElementAccessClass ) )
2343	{
2344	rMethodConcept_i \|= ( NAMECONTAINER \|
2345	INDEXCONTAINER \|
2346	ENUMERATION );
2347	}
2348	else if( rxMethod_i->getDeclaringClass()->equals( mxNameContainerClass ) \|\|
2349	rxMethod_i->getDeclaringClass()->equals( mxNameAccessClass ) )
2350	{
2351	rMethodConcept_i \|= NAMECONTAINER;
2352	}
2353	else if( rxMethod_i->getDeclaringClass()->equals( mxIndexContainerClass ) \|\|
2354	rxMethod_i->getDeclaringClass()->equals( mxIndexAccessClass ) )
2355	{
2356	rMethodConcept_i \|= INDEXCONTAINER;
2357	}
2358	else if( rxMethod_i->getDeclaringClass()->equals( mxEnumerationAccessClass ) )
2359	{
2360	rMethodConcept_i \|= ENUMERATION;
2361	}
2362
2363	// Wenn der Name zu kurz ist, wird's sowieso nichts
2364	if( aMethName.getLength() <= 3 )
2365	continue;
2366
2367	// Ist es eine get-Methode?
2368	aStartStr = aMethName.copy( 0, 3 );
2369	if( aStartStr == "get" )
2370	{
2371	// Namen der potentiellen Property
2372	aPropName = aMethName.copy( 3 );
2373
2374	// get-Methode darf keinen Parameter haben
2375	Sequence< Reference<XIdlClass> > getParams = rxMethod_i->getParameterTypes();
2376	if( getParams.getLength() > 0 )
2377	{
2378	continue;
2379	}
2380
2381	// Haben wir den Namen schon?
2382	IntrospectionNameMap::iterator aIt = rPropNameMap.find( aPropName );
2383	if( !( aIt == rPropNameMap.end() ) )
2384	{
2385	/* TODO
2386	OSL_TRACE(
2387	String( "Introspection: Property \"" ) +
2388	OOUStringToString( aPropName, CHARSET_SYSTEM ) +
2389	String( "\" found more than once" ) );
2390	*/
2391	continue;
2392	}
2393
2394	// Eine readonly-Property ist es jetzt mindestens schon
2395	rMethodConcept_i \|= PROPERTY;
2396
2397	pMethodTypes[i] = GETSET_METHOD;
2398	Reference<XIdlClass> xGetRetType = rxMethod_i->getReturnType();
2399
2400	// Ist die PropertySequence gross genug?
2401	pAccess->checkPropertyArraysSize
2402	( pAllPropArray, pMapTypeArray, pPropertyConceptArray, rPropCount );
2403
2404	// In eigenes Property-Array eintragen
2405	Property& rProp = pAllPropArray[ rPropCount ];
2406	rProp.Name = aPropName;
2407	rProp.Handle = rPropCount;
2408	rProp.Type = Type( xGetRetType->getTypeClass(), xGetRetType->getName() );
2409	rProp.Attributes = READONLY;
2410
2411	// Neuer Eintrag in die Hashtable
2412	rPropNameMap[ aPropName ] = rPropCount;
2413
2414	// Tabelle fuer XExactName pflegen
2415	rLowerToExactNameMap[ toLower( aPropName ) ] = aPropName;
2416
2417	// get-Methode merken
2418	pAccess->checkInterfaceArraySize( pAccess->aInterfaceSeq1,
2419	pInterfaces1, rPropCount );
2420	pInterfaces1[ rPropCount ] = rxMethod_i;
2421
2422	// Art der Property merken
2423	pMapTypeArray[ rPropCount ] = MAP_GETSET2;
2424	pPropertyConceptArray[ rPropCount ] = METHODS;
2425	pAccess->mnMethodPropCount++;
2426
2427	// Passende set-Methode suchen
2428	sal_Int32 k;
2429	for( k = 0 ; k < nSourceMethodCount ; k++ )
2430	{
2431	// Methode ansprechen
2432	const Reference<XIdlMethod>& rxMethod_k = pSourceMethods[k];
2433
2434	// Nur Methoden nehmen, die nicht schon zugeordnet sind
2435	if( k == i \|\| pMethodTypes[k] != STANDARD_METHOD )
2436	continue;
2437
2438	// Name holen und auswerten
2439	::rtl::OUString aMethName2 = rxMethod_k->getName();
2440	::rtl::OUString aStartStr2 = aMethName2.copy( 0, 3 );
2441	// ACHTUNG: Wegen SDL-Bug NICHT != bei ::rtl::OUString verwenden !!!
2442	if( !( aStartStr2 == "set" ) )
2443	continue;
2444
2445	// Ist es denn der gleiche Name?
2446	::rtl::OUString aPropName2 = aMethName2.copy( 3 );
2447	// ACHTUNG: Wegen SDL-Bug NICHT != bei ::rtl::OUString verwenden !!!
2448	if( !( aPropName == aPropName2 ) )
2449	continue;
2450
2451	// set-Methode muss void returnen
2452	Reference<XIdlClass> xSetRetType = rxMethod_k->getReturnType();
2453	if( xSetRetType->getTypeClass() != TypeClass_VOID )
2454	{
2455	continue;
2456	}
2457
2458	// set-Methode darf nur einen Parameter haben
2459	Sequence< Reference<XIdlClass> > setParams = rxMethod_k->getParameterTypes();
2460	sal_Int32 nParamCount = setParams.getLength();
2461	if( nParamCount != 1 )
2462	{
2463	continue;
2464	}
2465
2466	// Jetzt muss nur noch der return-Typ dem Parameter-Typ entsprechen
2467	const Reference<XIdlClass>* pParamArray2 = setParams.getConstArray();
2468	Reference<XIdlClass> xParamType = pParamArray2[ 0 ];
2469	if( xParamType->equals( xGetRetType ) )
2470	{
2471	pLocalMethodConcepts[ k ] = PROPERTY;
2472
2473	pMethodTypes[k] = GETSET_METHOD;
2474
2475	// ReadOnly-Flag wieder loschen
2476	rProp.Attributes &= ~READONLY;
2477
2478	// set-Methode merken
2479	pAccess->checkInterfaceArraySize( pAccess->aInterfaceSeq2,
2480	pInterfaces2, rPropCount );
2481	pInterfaces2[ rPropCount ] = rxMethod_k;
2482	}
2483	}
2484
2485	// Count pflegen
2486	rPropCount++;
2487	}
2488
2489	// Ist es eine addListener-Methode?
2490	else if( aStartStr == "add" )
2491	{
2492	::rtl::OUString aListenerStr( "Listener" );
2493
2494	// Namen der potentiellen Property
2495	sal_Int32 nStrLen = aMethName.getLength();
2496	sal_Int32 nCopyLen = nStrLen - aListenerStr.getLength();
2497	::rtl::OUString aEndStr = aMethName.copy( nCopyLen > 0 ? nCopyLen : 0 );
2498
2499	// Endet das Teil auf Listener?
2500	// ACHTUNG: Wegen SDL-Bug NICHT != bei ::rtl::OUString verwenden !!!
2501	if( !( aEndStr == aListenerStr ) )
2502	continue;
2503
2504	// Welcher Listener?
2505	::rtl::OUString aListenerName = aMethName.copy( 3, nStrLen - aListenerStr.getLength() - 3 );
2506
2507	// TODO: Hier koennten noch genauere Pruefungen vorgenommen werden
2508	// - Rueckgabe-Typ
2509	// - Anzahl und Art der Parameter
2510
2511
2512	// Passende remove-Methode suchen, sonst gilt's nicht
2513	sal_Int32 k;
2514	for( k = 0 ; k < nSourceMethodCount ; k++ )
2515	{
2516	// Methode ansprechen
2517	const Reference<XIdlMethod>& rxMethod_k = pSourceMethods[k];
2518
2519	// Nur Methoden nehmen, die nicht schon zugeordnet sind
2520	if( k == i \|\| pMethodTypes[k] != STANDARD_METHOD )
2521	continue;
2522
2523	// Name holen und auswerten
2524	::rtl::OUString aMethName2 = rxMethod_k->getName();
2525	sal_Int32 nNameLen = aMethName2.getLength();
2526	sal_Int32 nCopyLen2 = (nNameLen < 6) ? nNameLen : 6;
2527	::rtl::OUString aStartStr2 = aMethName2.copy( 0, nCopyLen2 );
2528	::rtl::OUString aRemoveStr( RTL_CONSTASCII_USTRINGPARAM("remove" )(&("remove")[0]), ((sal_Int32)((sizeof ("remove") / sizeof (("remove")[0]))-1)), (((rtl_TextEncoding) 11)) );
2529	// ACHTUNG: Wegen SDL-Bug NICHT != bei ::rtl::OUString verwenden !!!
2530	if( !( aStartStr2 == aRemoveStr ) )
2531	continue;
2532
2533	// Ist es denn der gleiche Listener?
2534	if( aMethName2.getLength() - aRemoveStr.getLength() <= aListenerStr.getLength() )
2535	continue;
2536	::rtl::OUString aListenerName2 = aMethName2.copy
2537	( 6, aMethName2.getLength() - aRemoveStr.getLength() - aListenerStr.getLength() );
2538	// ACHTUNG: Wegen SDL-Bug NICHT != bei ::rtl::OUString verwenden !!!
2539	if( !( aListenerName == aListenerName2 ) )
2540	continue;
2541
2542	// TODO: Hier koennten noch genauere Pruefungen vorgenommen werden
2543	// - Rueckgabe-Typ
2544	// - Anzahl und Art der Parameter
2545
2546
2547	// Methoden sind als Listener-Schnittstelle erkannt
2548	rMethodConcept_i \|= LISTENER;
2549	pLocalMethodConcepts[ k ] \|= LISTENER;
2550
2551	pMethodTypes[i] = ADD_LISTENER_METHOD;
2552	pMethodTypes[k] = REMOVE_LISTENER_METHOD;
2553	nListenerCount++;
2554	}
2555	}
2556	}
2557
2558
2559	// Jetzt koennen noch SET-Methoden ohne zugehoerige GET-Methode existieren,
2560	// diese muessen zu Write-Only-Properties gemachte werden.
2561	for( i = 0 ; i < nSourceMethodCount ; i++ )
2562	{
2563	// Methode ansprechen
2564	const Reference<XIdlMethod>& rxMethod_i = pSourceMethods[i];
2565
2566	// Nur Methoden nehmen, die nicht schon zugeordnet sind
2567	if( pMethodTypes[i] != STANDARD_METHOD )
2568	continue;
2569
2570	// Namen besorgen
2571	aMethName = rxMethod_i->getName();
2572
2573	// Wenn der Name zu kurz ist, wird's sowieso nichts
2574	if( aMethName.getLength() <= 3 )
2575	continue;
2576
2577	// Ist es eine set-Methode ohne zugehoerige get-Methode?
2578	aStartStr = aMethName.copy( 0, 3 );
2579	if( aStartStr == "set" )
2580	{
2581	// Namen der potentiellen Property
2582	aPropName = aMethName.copy( 3 );
2583
2584	// set-Methode muss void returnen
2585	Reference<XIdlClass> xSetRetType = rxMethod_i->getReturnType();
2586	if( xSetRetType->getTypeClass() != TypeClass_VOID )
2587	{
2588	continue;
2589	}
2590
2591	// set-Methode darf nur einen Parameter haben
2592	Sequence< Reference<XIdlClass> > setParams = rxMethod_i->getParameterTypes();
2593	sal_Int32 nParamCount = setParams.getLength();
2594	if( nParamCount != 1 )
2595	{
2596	continue;
2597	}
2598
2599	// Haben wir den Namen schon?
2600	IntrospectionNameMap::iterator aIt = rPropNameMap.find( aPropName );
2601	if( !( aIt == rPropNameMap.end() ) )
2602	{
2603	/* TODO:
2604	OSL_TRACE(
2605	String( "Introspection: Property \"" ) +
2606	OOUStringToString( aPropName, CHARSET_SYSTEM ) +
2607	String( "\" found more than once" ) );
2608	*/
2609	continue;
2610	}
2611
2612	// Alles klar, es ist eine Write-Only-Property
2613	pLocalMethodConcepts[ i ] = PROPERTY;
2614
2615	pMethodTypes[i] = GETSET_METHOD;
2616	Reference<XIdlClass> xGetRetType = setParams.getConstArray()[0];
2617
2618	// Ist die PropertySequence gross genug?
2619	pAccess->checkPropertyArraysSize
2620	( pAllPropArray, pMapTypeArray, pPropertyConceptArray, rPropCount );
2621
2622	// In eigenes Property-Array eintragen
2623	Property& rProp = pAllPropArray[ rPropCount ];
2624	rProp.Name = aPropName;
2625	rProp.Handle = rPropCount;
2626	rProp.Type = Type( xGetRetType->getTypeClass(), xGetRetType->getName() );
2627	rProp.Attributes = 0; // PROPERTY_WRITEONLY ???
2628
2629	// Neuer Eintrag in die Hashtable
2630	rPropNameMap[ aPropName ] = rPropCount;
2631
2632	// Tabelle fuer XExactName pflegen
2633	rLowerToExactNameMap[ toLower( aPropName ) ] = aPropName;
2634
2635	// set-Methode merken
2636	pAccess->checkInterfaceArraySize( pAccess->aInterfaceSeq2,
2637	pInterfaces2, rPropCount );
2638	pInterfaces2[ rPropCount ] = rxMethod_i;
2639
2640	// Art der Property merken
2641	pMapTypeArray[ rPropCount ] = MAP_SETONLY3;
2642	pPropertyConceptArray[ rPropCount ] = METHODS;
2643	pAccess->mnMethodPropCount++;
2644
2645	// Count pflegen
2646	rPropCount++;
2647	}
2648	}
2649
2650
2651	//********************************************************************
2652
2653	// 4. Methoden in die Gesamt-Sequence uebernehmen
2654
2655	// Wieviele Methoden muessen in die Method-Sequence?
2656	sal_Int32 nExportedMethodCount = 0;
2657	sal_Int32 nSupportedListenerCount = 0;
2658	for( i = 0 ; i < nSourceMethodCount ; i++ )
2659	{
2660	if( pMethodTypes[ i ] != INVALID_METHOD )
2661	{
2662	nExportedMethodCount++;
2663	}
2664	if( pMethodTypes[ i ] == ADD_LISTENER_METHOD )
2665	{
2666	nSupportedListenerCount++;
2667	}
2668	}
2669
2670	// Sequences im Access-Objekt entsprechend aufbohren
2671	pAccess->maAllMethodSeq.realloc( nExportedMethodCount + iAllExportedMethod );
2672	pAccess->maMethodConceptSeq.realloc( nExportedMethodCount + iAllExportedMethod );
2673	pAccess->maSupportedListenerSeq.realloc( nSupportedListenerCount + iAllSupportedListener );
2674
2675	// Methoden reinschreiben
2676	Reference<XIdlMethod>* pDestMethods = pAccess->maAllMethodSeq.getArray();
2677	sal_Int32* pMethodConceptArray = pAccess->maMethodConceptSeq.getArray();
2678	Type* pListenerClassRefs = pAccess->maSupportedListenerSeq.getArray();
2679	for( i = 0 ; i < nSourceMethodCount ; i++ )
2680	{
2681	if( pMethodTypes[ i ] != INVALID_METHOD )
2682	{
2683	// Methode ansprechen
2684	const Reference<XIdlMethod>& rxMethod = pSourceMethods[i];
2685
2686	// Namen in Hashtable eintragen, wenn nicht schon bekannt
2687	::rtl::OUString aMethName2 = rxMethod->getName();
2688	IntrospectionNameMap::iterator aIt = rMethodNameMap.find( aMethName2 );
2689	if( aIt == rMethodNameMap.end() )
2690	{
2691	// Eintragen
2692	rMethodNameMap[ aMethName2 ] = iAllExportedMethod;
2693
2694	// Tabelle fuer XExactName pflegen
2695	rLowerToExactNameMap[ toLower( aMethName2 ) ] = aMethName2;
2696	}
2697	else
2698	{
2699	sal_Int32 iHashResult = (*aIt).second;
2700
2701	Reference<XIdlMethod> xExistingMethod = pDestMethods[ iHashResult ];
2702
2703	Reference< XIdlClass > xExistingMethClass =
2704	xExistingMethod->getDeclaringClass();
2705	Reference< XIdlClass > xNewMethClass = rxMethod->getDeclaringClass();
2706	if( xExistingMethClass->equals( xNewMethClass ) )
2707	continue;
2708	}
2709
2710	pDestMethods[ iAllExportedMethod ] = rxMethod;
2711
2712	// Wenn kein Concept gesetzt wurde, ist die Methode "normal"
2713	sal_Int32& rMethodConcept_i = pLocalMethodConcepts[ i ];
2714	if( !rMethodConcept_i )
2715	rMethodConcept_i = MethodConcept_NORMAL_IMPL0x80000000;
2716	pMethodConceptArray[ iAllExportedMethod ] = rMethodConcept_i;
2717	iAllExportedMethod++;
2718	}
2719	if( pMethodTypes[ i ] == ADD_LISTENER_METHOD )
2720	{
2721	// Klasse des Listeners ermitteln
2722	const Reference<XIdlMethod>& rxMethod = pSourceMethods[i];
2723
2724	// void als Default-Klasse eintragen
2725	Reference<XIdlClass> xListenerClass = TypeToIdlClass( getCppuVoidType(), m_xSMgr );
2726	// ALT: Reference<XIdlClass> xListenerClass = Void_getReflection()->getIdlClass();
2727
2728	// 1. Moeglichkeit: Parameter nach einer Listener-Klasse durchsuchen
2729	// Nachteil: Superklassen muessen rekursiv durchsucht werden
2730	Sequence< Reference<XIdlClass> > aParams = rxMethod->getParameterTypes();
2731	const Reference<XIdlClass>* pParamArray2 = aParams.getConstArray();
2732
2733	Reference<XIdlClass> xEventListenerClass = TypeToIdlClass( getCppuType( (Reference<XEventListener>*) NULL__null ), m_xSMgr );
2734	// ALT: Reference<XIdlClass> xEventListenerClass = XEventListener_getReflection()->getIdlClass();
2735	sal_Int32 nParamCount = aParams.getLength();
2736	sal_Int32 k;
2737	for( k = 0 ; k < nParamCount ; k++ )
2738	{
2739	const Reference<XIdlClass>& rxClass = pParamArray2[k];
2740
2741	// Sind wir von einem Listener abgeleitet?
2742	if( rxClass->equals( xEventListenerClass ) \|\|
2743	isDerivedFrom( rxClass, xEventListenerClass ) )
2744	{
2745	xListenerClass = rxClass;
2746	break;
2747	}
2748	}
2749
2750	// 2. Moeglichkeit: Namen der Methode auswerden
2751	// Nachteil: geht nicht bei Test-Listenern, die es nicht gibt
2752	//aMethName = rxMethod->getName();
2753	//aListenerName = aMethName.Copy( 3, aMethName.Len()-8-3 );
2754	//Reference<XIdlClass> xListenerClass = reflection->forName( aListenerName );
2755	Type aListenerType( TypeClass_INTERFACE, xListenerClass->getName() );
2756	pListenerClassRefs[ iAllSupportedListener ] = aListenerType;
2757	iAllSupportedListener++;
2758	}
2759	}
2760
2761	// Wenn in diesem Durchlauf XInterface-Methoden
2762	// dabei waren, diese zukuenftig ignorieren
2763	if( bFoundXInterface )
2764	bXInterfaceIsInvalid = sal_True((sal_Bool)1);
2765
2766	delete[] pMethodTypes;
2767	delete[] pLocalMethodConcepts;
2768	}
2769
2770	// Super-Klasse(n) vorhanden? Dann dort fortsetzen
2771	Sequence< Reference<XIdlClass> > aSuperClassSeq = xImplClass2->getSuperclasses();
2772
2773	// Zur Zeit wird nur von einer Superklasse ausgegangen
2774	if( aSuperClassSeq.getLength() >= 1 )
2775	{
2776	xImplClass2 = aSuperClassSeq.getConstArray()[0];
2777	OSL_ENSURE( xImplClass2.is(), "super class null" )do { if (true && (!(xImplClass2.is()))) { sal_detail_logFormat ((SAL_DETAIL_LOG_LEVEL_WARN), ("legacy.osl"), ("/usr/local/src/libreoffice/stoc/source/inspect/introspection.cxx" ":" "2777" ": "), "%s", "super class null"); } } while (false );
2778	}
2779	else
2780	{
2781	xImplClass2 = NULL__null;
2782	}
2783	}
2784	}
2785
2786	// Anzahl der exportierten Methoden uebernehmen und Sequences anpassen
2787	// (kann abweichen, weil doppelte Methoden erst nach der Ermittlung
2788	// von nExportedMethodCount herausgeworfen werden)
2789	sal_Int32& rMethCount = pAccess->mnMethCount;
2790	rMethCount = iAllExportedMethod;
2791	pAccess->maAllMethodSeq.realloc( rMethCount );
2792	pAccess->maMethodConceptSeq.realloc( rMethCount );
2793
2794	// Groesse der Property-Sequences anpassen
2795	pAccess->maAllPropertySeq.realloc( rPropCount );
2796	pAccess->maPropertyConceptSeq.realloc( rPropCount );
2797	pAccess->maMapTypeSeq.realloc( rPropCount );
2798	}
2799	// Bei structs Fields als Properties registrieren
2800	else //if( eType == TypeClass_STRUCT )
2801	{
2802	// Ist es ein Interface oder eine struct?
2803	//Reference<XIdlClass> xClassRef = aToInspectObj.getReflection()->getIdlClass();
2804	Reference<XIdlClass> xClassRef = TypeToIdlClass( aToInspectObj.getValueType(), m_xSMgr );
2805	if( !xClassRef.is() )
2806	{
2807	OSL_FAIL( "Can't get XIdlClass from Reflection" )do { if (true && (((sal_Bool)1))) { sal_detail_logFormat ((SAL_DETAIL_LOG_LEVEL_WARN), ("legacy.osl"), ("/usr/local/src/libreoffice/stoc/source/inspect/introspection.cxx" ":" "2807" ": "), "%s", "Can't get XIdlClass from Reflection" ); } } while (false);
2808	return pAccess;
2809	}
2810
2811	// Felder holen
2812	Sequence< Reference<XIdlField> > fields = xClassRef->getFields();
2813	const Reference<XIdlField>* pFields = fields.getConstArray();
2814	sal_Int32 nLen = fields.getLength();
2815
2816	for( i = 0 ; i < nLen ; i++ )
2817	{
2818	Reference<XIdlField> xField = pFields[i];
2819	Reference<XIdlClass> xPropType = xField->getType();
2820	::rtl::OUString aPropName = xField->getName();
2821
2822	// Ist die PropertySequence gross genug?
2823	pAccess->checkPropertyArraysSize
2824	( pAllPropArray, pMapTypeArray, pPropertyConceptArray, rPropCount );
2825
2826	// In eigenes Property-Array eintragen
2827	Property& rProp = pAllPropArray[ rPropCount ];
2828	rProp.Name = aPropName;
2829	rProp.Handle = rPropCount;
2830	rProp.Type = Type( xPropType->getTypeClass(), xPropType->getName() );
2831	FieldAccessMode eAccessMode = xField->getAccessMode();
2832	rProp.Attributes = (eAccessMode == FieldAccessMode_READONLY \|\|
2833	eAccessMode == FieldAccessMode_CONST)
2834	? READONLY : 0;
2835
2836	//FieldAccessMode eAccessMode = xField->getAccessMode();
2837	//rProp.Attributes = (eAccessMode == FieldAccessMode::READONLY \|\| eAccessMode == CONST)
2838	//? PropertyAttribute::READONLY : 0;
2839
2840	// Namen in Hashtable eintragen
2841	rPropNameMap[ aPropName ] = rPropCount;
2842
2843	// Tabelle fuer XExactName pflegen
2844	rLowerToExactNameMap[ toLower( aPropName ) ] = aPropName;
2845
2846	// Field merken
2847	pAccess->checkInterfaceArraySize( pAccess->aInterfaceSeq1,
2848	pInterfaces1, rPropCount );
2849	pInterfaces1[ rPropCount ] = xField;
2850
2851	// Art der Property merken
2852	pMapTypeArray[ rPropCount ] = MAP_FIELD1;
2853	pPropertyConceptArray[ rPropCount ] = ATTRIBUTES;
2854	pAccess->mnAttributePropCount++;
2855
2856	// Count pflegen
2857	rPropCount++;
2858	}
2859	}
2860
2861	// Property-Sequence auf die richtige Laenge bringen
2862	pAccess->maAllPropertySeq.realloc( pAccess->mnPropCount );
2863
2864	return pAccess;
2865	}
2866
2867	//*************************************************************************
2868	Reference< XInterface > SAL_CALL ImplIntrospection_CreateInstance( const Reference< XMultiServiceFactory > & rSMgr )
2869	throw( RuntimeException )
2870	{
2871	Reference< XInterface > xService = (OWeakObject)(OComponentHelper)new ImplIntrospection( rSMgr );
2872	return xService;
2873	}
2874
2875	}
2876
2877	#ifdef DISABLE_DYNLOADING
2878	#define component_getFactory introspection_component_getFactory
2879	#endif
2880
2881	extern "C"
2882	{
2883	SAL_DLLPUBLIC_EXPORT__attribute__ ((visibility("default"))) void * SAL_CALL component_getFactory(
2884	const sal_Char * pImplName, void * pServiceManager,
2885	SAL_UNUSED_PARAMETER__attribute__ ((unused)) void * )
2886	{
2887	void * pRet = 0;
2888
2889	if (pServiceManager && rtl_str_compare( pImplName, IMPLEMENTATION_NAME"com.sun.star.comp.stoc.Introspection" ) == 0)
2890	{
2891	Reference< XSingleServiceFactory > xFactory( createOneInstanceFactory(
2892	reinterpret_cast< XMultiServiceFactory * >( pServiceManager ),
2893	::rtl::OUString::createFromAscii( pImplName ),
2894	stoc_inspect::ImplIntrospection_CreateInstance,
2895	stoc_inspect::ImplIntrospection::getSupportedServiceNames_Static() ) );
2896
2897	if (xFactory.is())
2898	{
2899	xFactory->acquire();
2900	pRet = xFactory.get();
2901	}
2902	}
2903
2904	return pRet;
2905	}
2906	}
2907
2908
2909	/* vim:set shiftwidth=4 softtabstop=4 expandtab: */