xref: /aoo4110/main/stoc/test/testiadapter.cxx (revision b1cdbd2c)
1 /**************************************************************
2  *
3  * Licensed to the Apache Software Foundation (ASF) under one
4  * or more contributor license agreements.  See the NOTICE file
5  * distributed with this work for additional information
6  * regarding copyright ownership.  The ASF licenses this file
7  * to you under the Apache License, Version 2.0 (the
8  * "License"); you may not use this file except in compliance
9  * with the License.  You may obtain a copy of the License at
10  *
11  *   http://www.apache.org/licenses/LICENSE-2.0
12  *
13  * Unless required by applicable law or agreed to in writing,
14  * software distributed under the License is distributed on an
15  * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16  * KIND, either express or implied.  See the License for the
17  * specific language governing permissions and limitations
18  * under the License.
19  *
20  *************************************************************/
21 
22 
23 
24 // MARKER(update_precomp.py): autogen include statement, do not remove
25 #include "precompiled_stoc.hxx"
26 
27 #include <stdio.h>
28 
29 #include <sal/main.h>
30 #include <osl/diagnose.h>
31 
32 #include <cppuhelper/servicefactory.hxx>
33 #include <cppuhelper/weak.hxx>
34 
35 #include <test/XLanguageBindingTest.hpp>
36 #include <com/sun/star/registry/XSimpleRegistry.hpp>
37 #include <com/sun/star/registry/XImplementationRegistration.hpp>
38 #include <com/sun/star/script/XInvocation.hpp>
39 #include <com/sun/star/script/XInvocationAdapterFactory.hpp>
40 #include <com/sun/star/script/XInvocationAdapterFactory2.hpp>
41 #include <com/sun/star/lang/XComponent.hpp>
42 #include <com/sun/star/lang/XSingleServiceFactory.hpp>
43 
44 #include <cppuhelper/implbase1.hxx>
45 
46 
47 using namespace test;
48 using namespace rtl;
49 using namespace cppu;
50 using namespace osl;
51 using namespace com::sun::star::uno;
52 using namespace com::sun::star::script;
53 using namespace com::sun::star::beans;
54 using namespace com::sun::star::lang;
55 using namespace com::sun::star::reflection;
56 using namespace com::sun::star::lang;
57 using namespace com::sun::star::registry;
58 
59 
60 //==================================================================================================
equals(const test::TestElement & rData1,const test::TestElement & rData2)61 sal_Bool equals( const test::TestElement & rData1, const test::TestElement & rData2 )
62 {
63 	OSL_ENSURE( rData1.Bool == rData2.Bool, "### bool does not match!" );
64 	OSL_ENSURE( rData1.Char == rData2.Char, "### char does not match!" );
65 	OSL_ENSURE( rData1.Byte == rData2.Byte, "### byte does not match!" );
66 	OSL_ENSURE( rData1.Short == rData2.Short, "### short does not match!" );
67 	OSL_ENSURE( rData1.UShort == rData2.UShort, "### unsigned short does not match!" );
68 	OSL_ENSURE( rData1.Long == rData2.Long, "### long does not match!" );
69 	OSL_ENSURE( rData1.ULong == rData2.ULong, "### unsigned long does not match!" );
70 	OSL_ENSURE( rData1.Hyper == rData2.Hyper, "### hyper does not match!" );
71 	OSL_ENSURE( rData1.UHyper == rData2.UHyper, "### unsigned hyper does not match!" );
72 	OSL_ENSURE( rData1.Float == rData2.Float, "### float does not match!" );
73 	OSL_ENSURE( rData1.Double == rData2.Double, "### double does not match!" );
74 	OSL_ENSURE( rData1.Enum == rData2.Enum, "### enum does not match!" );
75 	OSL_ENSURE( rData1.String == rData2.String, "### string does not match!" );
76 	OSL_ENSURE( rData1.Interface == rData2.Interface, "### interface does not match!" );
77 	OSL_ENSURE( rData1.Any == rData2.Any, "### any does not match!" );
78 
79 	return (rData1.Bool == rData2.Bool &&
80 			rData1.Char == rData2.Char &&
81 			rData1.Byte == rData2.Byte &&
82 			rData1.Short == rData2.Short &&
83 			rData1.UShort == rData2.UShort &&
84 			rData1.Long == rData2.Long &&
85 			rData1.ULong == rData2.ULong &&
86 			rData1.Hyper == rData2.Hyper &&
87 			rData1.UHyper == rData2.UHyper &&
88 			rData1.Float == rData2.Float &&
89 			rData1.Double == rData2.Double &&
90 			rData1.Enum == rData2.Enum &&
91 			rData1.String == rData2.String &&
92 			rData1.Interface == rData2.Interface &&
93 			rData1.Any == rData2.Any);
94 }
95 //==================================================================================================
equals(const test::TestData & rData1,const test::TestData & rData2)96 sal_Bool equals( const test::TestData & rData1, const test::TestData & rData2 )
97 {
98 	sal_Int32 nLen;
99 
100 	if ((rData1.Sequence == rData2.Sequence) &&
101 		equals( (const test::TestElement &)rData1, (const test::TestElement &)rData2 ) &&
102 		(nLen = rData1.Sequence.getLength()) == rData2.Sequence.getLength())
103 	{
104 		// once again by hand sequence ==
105 		const test::TestElement * pElements1 = rData1.Sequence.getConstArray();
106 		const test::TestElement * pElements2 = rData2.Sequence.getConstArray();
107 		for ( ; nLen--; )
108 		{
109 			if (! equals( pElements1[nLen], pElements2[nLen] ))
110 			{
111 				OSL_ENSURE( sal_False, "### sequence element did not match!" );
112 				return sal_False;
113 			}
114 		}
115 		return sal_True;
116 	}
117 	return sal_False;
118 }
119 //==================================================================================================
assign(test::TestElement & rData,sal_Bool bBool,sal_Unicode cChar,sal_Int8 nByte,sal_Int16 nShort,sal_uInt16 nUShort,sal_Int32 nLong,sal_uInt32 nULong,sal_Int64 nHyper,sal_uInt64 nUHyper,float fFloat,double fDouble,test::TestEnum eEnum,const::rtl::OUString & rStr,const::com::sun::star::uno::Reference<::com::sun::star::uno::XInterface> & xTest,const::com::sun::star::uno::Any & rAny)120 void assign( test::TestElement & rData,
121 			 sal_Bool bBool, sal_Unicode cChar, sal_Int8 nByte,
122 			 sal_Int16 nShort, sal_uInt16 nUShort,
123 			 sal_Int32 nLong, sal_uInt32 nULong,
124 			 sal_Int64 nHyper, sal_uInt64 nUHyper,
125 			 float fFloat, double fDouble,
126 			 test::TestEnum eEnum, const ::rtl::OUString& rStr,
127 			 const ::com::sun::star::uno::Reference< ::com::sun::star::uno::XInterface >& xTest,
128 			 const ::com::sun::star::uno::Any& rAny )
129 {
130 	rData.Bool = bBool;
131 	rData.Char = cChar;
132 	rData.Byte = nByte;
133 	rData.Short = nShort;
134 	rData.UShort = nUShort;
135 	rData.Long = nLong;
136 	rData.ULong = nULong;
137 	rData.Hyper = nHyper;
138 	rData.UHyper = nUHyper;
139 	rData.Float = fFloat;
140 	rData.Double = fDouble;
141 	rData.Enum = eEnum;
142 	rData.String = rStr;
143 	rData.Interface = xTest;
144 	rData.Any = rAny;
145 }
146 //==================================================================================================
assign(test::TestData & rData,sal_Bool bBool,sal_Unicode cChar,sal_Int8 nByte,sal_Int16 nShort,sal_uInt16 nUShort,sal_Int32 nLong,sal_uInt32 nULong,sal_Int64 nHyper,sal_uInt64 nUHyper,float fFloat,double fDouble,test::TestEnum eEnum,const::rtl::OUString & rStr,const::com::sun::star::uno::Reference<::com::sun::star::uno::XInterface> & xTest,const::com::sun::star::uno::Any & rAny,const com::sun::star::uno::Sequence<test::TestElement> & rSequence)147 void assign( test::TestData & rData,
148 			 sal_Bool bBool, sal_Unicode cChar, sal_Int8 nByte,
149 			 sal_Int16 nShort, sal_uInt16 nUShort,
150 			 sal_Int32 nLong, sal_uInt32 nULong,
151 			 sal_Int64 nHyper, sal_uInt64 nUHyper,
152 			 float fFloat, double fDouble,
153 			 test::TestEnum eEnum, const ::rtl::OUString& rStr,
154 			 const ::com::sun::star::uno::Reference< ::com::sun::star::uno::XInterface >& xTest,
155 			 const ::com::sun::star::uno::Any& rAny,
156 			 const com::sun::star::uno::Sequence< test::TestElement >& rSequence )
157 {
158 	assign( (test::TestElement &)rData,
159 			bBool, cChar, nByte, nShort, nUShort, nLong, nULong, nHyper, nUHyper, fFloat, fDouble,
160 			eEnum, rStr, xTest, rAny );
161 	rData.Sequence = rSequence;
162 }
163 
164 //==================================================================================================
165 class Test_Impl : public WeakImplHelper1< XLanguageBindingTest >
166 {
167 	test::TestData _aData, _aStructData;
168 
169 public:
~Test_Impl()170 	virtual ~Test_Impl()
171 		{ OSL_TRACE( "> scalar Test_Impl dtor <\n" ); }
172 
173 	// XLBTestBase
174     virtual void SAL_CALL setValues( sal_Bool bBool, sal_Unicode cChar, sal_Int8 nByte,
175 									 sal_Int16 nShort, sal_uInt16 nUShort,
176 									 sal_Int32 nLong, sal_uInt32 nULong,
177 									 sal_Int64 nHyper, sal_uInt64 nUHyper,
178 									 float fFloat, double fDouble,
179 									 test::TestEnum eEnum, const ::rtl::OUString& rStr,
180 									 const ::com::sun::star::uno::Reference< ::com::sun::star::uno::XInterface >& xTest,
181 									 const ::com::sun::star::uno::Any& rAny,
182 									 const ::com::sun::star::uno::Sequence<test::TestElement >& rSequence,
183 									 const test::TestData& rStruct )
184 		throw(com::sun::star::uno::RuntimeException);
185 
186     virtual test::TestData SAL_CALL setValues2( sal_Bool& bBool, sal_Unicode& cChar, sal_Int8& nByte,
187 												sal_Int16& nShort, sal_uInt16& nUShort,
188 												sal_Int32& nLong, sal_uInt32& nULong,
189 												sal_Int64& nHyper, sal_uInt64& nUHyper,
190 												float& fFloat, double& fDouble,
191 												test::TestEnum& eEnum, rtl::OUString& rStr,
192 												::com::sun::star::uno::Reference< ::com::sun::star::uno::XInterface >& xTest,
193 												::com::sun::star::uno::Any& rAny,
194 												::com::sun::star::uno::Sequence<test::TestElement >& rSequence,
195 												test::TestData& rStruct )
196 		throw(com::sun::star::uno::RuntimeException);
197 
198     virtual test::TestData SAL_CALL getValues( sal_Bool& bBool, sal_Unicode& cChar, sal_Int8& nByte,
199 											   sal_Int16& nShort, sal_uInt16& nUShort,
200 											   sal_Int32& nLong, sal_uInt32& nULong,
201 											   sal_Int64& nHyper, sal_uInt64& nUHyper,
202 											   float& fFloat, double& fDouble,
203 											   test::TestEnum& eEnum, rtl::OUString& rStr,
204 											   ::com::sun::star::uno::Reference< ::com::sun::star::uno::XInterface >& xTest,
205 											   ::com::sun::star::uno::Any& rAny,
206 											   ::com::sun::star::uno::Sequence< test::TestElement >& rSequence,
207 											   test::TestData& rStruct )
208 		throw(com::sun::star::uno::RuntimeException);
209 
getBool()210     virtual sal_Bool SAL_CALL getBool() throw(com::sun::star::uno::RuntimeException)
211 		{ return _aData.Bool; }
getByte()212     virtual sal_Int8 SAL_CALL getByte() throw(com::sun::star::uno::RuntimeException)
213 		{ return _aData.Byte; }
getChar()214     virtual sal_Unicode SAL_CALL getChar() throw(com::sun::star::uno::RuntimeException)
215 		{ return _aData.Char; }
getShort()216     virtual sal_Int16 SAL_CALL getShort() throw(com::sun::star::uno::RuntimeException)
217 		{ return _aData.Short; }
getUShort()218     virtual sal_uInt16 SAL_CALL getUShort() throw(com::sun::star::uno::RuntimeException)
219 		{ return _aData.UShort; }
getLong()220     virtual sal_Int32 SAL_CALL getLong() throw(com::sun::star::uno::RuntimeException)
221 		{ return _aData.Long; }
getULong()222     virtual sal_uInt32 SAL_CALL getULong() throw(com::sun::star::uno::RuntimeException)
223 		{ return _aData.ULong; }
getHyper()224     virtual sal_Int64 SAL_CALL getHyper() throw(com::sun::star::uno::RuntimeException)
225 		{ return _aData.Hyper; }
getUHyper()226     virtual sal_uInt64 SAL_CALL getUHyper() throw(com::sun::star::uno::RuntimeException)
227 		{ return _aData.UHyper; }
getFloat()228     virtual float SAL_CALL getFloat() throw(com::sun::star::uno::RuntimeException)
229 		{ return _aData.Float; }
getDouble()230     virtual double SAL_CALL getDouble() throw(com::sun::star::uno::RuntimeException)
231 		{ return _aData.Double; }
getEnum()232     virtual test::TestEnum SAL_CALL getEnum() throw(com::sun::star::uno::RuntimeException)
233 		{ return _aData.Enum; }
getString()234     virtual rtl::OUString SAL_CALL getString() throw(com::sun::star::uno::RuntimeException)
235 		{ return _aData.String; }
getInterface()236     virtual com::sun::star::uno::Reference< ::com::sun::star::uno::XInterface > SAL_CALL getInterface(  ) throw(com::sun::star::uno::RuntimeException)
237 		{ return _aData.Interface; }
getAny()238     virtual com::sun::star::uno::Any SAL_CALL getAny() throw(com::sun::star::uno::RuntimeException)
239 		{ return _aData.Any; }
getSequence()240     virtual com::sun::star::uno::Sequence< test::TestElement > SAL_CALL getSequence() throw(com::sun::star::uno::RuntimeException)
241 		{ return _aData.Sequence; }
getStruct()242     virtual test::TestData SAL_CALL getStruct() throw(com::sun::star::uno::RuntimeException)
243 		{ return _aStructData; }
244 
setBool(sal_Bool _bool)245     virtual void SAL_CALL setBool( sal_Bool _bool ) throw(::com::sun::star::uno::RuntimeException)
246 		{ _aData.Bool = _bool; }
setByte(sal_Int8 _byte)247     virtual void SAL_CALL setByte( sal_Int8 _byte ) throw(::com::sun::star::uno::RuntimeException)
248 		{ _aData.Byte = _byte; }
setChar(sal_Unicode _char)249     virtual void SAL_CALL setChar( sal_Unicode _char ) throw(::com::sun::star::uno::RuntimeException)
250 		{ _aData.Char = _char; }
setShort(sal_Int16 _short)251     virtual void SAL_CALL setShort( sal_Int16 _short ) throw(::com::sun::star::uno::RuntimeException)
252 		{ _aData.Short = _short; }
setUShort(sal_uInt16 _ushort)253     virtual void SAL_CALL setUShort( sal_uInt16 _ushort ) throw(::com::sun::star::uno::RuntimeException)
254 		{ _aData.UShort = _ushort; }
setLong(sal_Int32 _long)255     virtual void SAL_CALL setLong( sal_Int32 _long ) throw(::com::sun::star::uno::RuntimeException)
256 		{ _aData.Long = _long; }
setULong(sal_uInt32 _ulong)257     virtual void SAL_CALL setULong( sal_uInt32 _ulong ) throw(::com::sun::star::uno::RuntimeException)
258 		{ _aData.ULong = _ulong; }
setHyper(sal_Int64 _hyper)259     virtual void SAL_CALL setHyper( sal_Int64 _hyper ) throw(::com::sun::star::uno::RuntimeException)
260 		{ _aData.Hyper = _hyper; }
setUHyper(sal_uInt64 _uhyper)261     virtual void SAL_CALL setUHyper( sal_uInt64 _uhyper ) throw(::com::sun::star::uno::RuntimeException)
262 		{ _aData.UHyper = _uhyper; }
setFloat(float _float)263     virtual void SAL_CALL setFloat( float _float ) throw(::com::sun::star::uno::RuntimeException)
264 		{ _aData.Float = _float; }
setDouble(double _double)265     virtual void SAL_CALL setDouble( double _double ) throw(::com::sun::star::uno::RuntimeException)
266 		{ _aData.Double = _double; }
setEnum(test::TestEnum _enum)267     virtual void SAL_CALL setEnum( test::TestEnum _enum ) throw(::com::sun::star::uno::RuntimeException)
268 		{ _aData.Enum = _enum; }
setString(const::rtl::OUString & _string)269     virtual void SAL_CALL setString( const ::rtl::OUString& _string ) throw(::com::sun::star::uno::RuntimeException)
270 		{ _aData.String = _string; }
setInterface(const::com::sun::star::uno::Reference<::com::sun::star::uno::XInterface> & _interface)271     virtual void SAL_CALL setInterface( const ::com::sun::star::uno::Reference< ::com::sun::star::uno::XInterface >& _interface ) throw(::com::sun::star::uno::RuntimeException)
272 		{ _aData.Interface = _interface; }
setAny(const::com::sun::star::uno::Any & _any)273     virtual void SAL_CALL setAny( const ::com::sun::star::uno::Any& _any ) throw(::com::sun::star::uno::RuntimeException)
274 		{ _aData.Any = _any; }
setSequence(const::com::sun::star::uno::Sequence<test::TestElement> & _sequence)275     virtual void SAL_CALL setSequence( const ::com::sun::star::uno::Sequence<test::TestElement >& _sequence ) throw(::com::sun::star::uno::RuntimeException)
276 		{ _aData.Sequence = _sequence; }
setStruct(const test::TestData & _struct)277     virtual void SAL_CALL setStruct( const test::TestData& _struct ) throw(::com::sun::star::uno::RuntimeException)
278 		{ _aStructData = _struct; }
279 
280 	// XLanguageBindingTest
281     virtual test::TestData SAL_CALL raiseException( sal_Bool& bBool, sal_Unicode& cChar, sal_Int8& nByte, sal_Int16& nShort, sal_uInt16& nUShort, sal_Int32& nLong, sal_uInt32& nULong, sal_Int64& nHyper, sal_uInt64& nUHyper, float& fFloat, double& fDouble, test::TestEnum& eEnum, ::rtl::OUString& aString, ::com::sun::star::uno::Reference< ::com::sun::star::uno::XInterface >& xInterface, ::com::sun::star::uno::Any& aAny, ::com::sun::star::uno::Sequence<test::TestElement >& aSequence,test::TestData& aStruct )
282 		throw(::com::sun::star::lang::IllegalArgumentException, ::com::sun::star::uno::RuntimeException);
283 
284     virtual sal_Int32 SAL_CALL getRuntimeException() throw(::com::sun::star::uno::RuntimeException);
285     virtual void SAL_CALL setRuntimeException( sal_Int32 _runtimeexception ) throw(::com::sun::star::uno::RuntimeException);
286 };
287 //==================================================================================================
288 class XLB_Invocation : public WeakImplHelper1< XInvocation >
289 {
290 	Reference< XLanguageBindingTest > _xLBT;
291 
292 public:
XLB_Invocation(const Reference<XMultiServiceFactory> &,const Reference<XLanguageBindingTest> & xLBT)293 	XLB_Invocation( const Reference< XMultiServiceFactory > & /*xMgr*/,
294 					const Reference< XLanguageBindingTest > & xLBT )
295 		: _xLBT( xLBT )
296 		{}
297 
298 	// XInvocation
getIntrospection()299     virtual Reference< XIntrospectionAccess > SAL_CALL getIntrospection() throw(::com::sun::star::uno::RuntimeException)
300 		{ return Reference< XIntrospectionAccess >(); }
301     virtual Any SAL_CALL invoke( const OUString & rFunctionName,
302 								 const Sequence< Any > & rParams,
303 								 Sequence< sal_Int16 > & rOutParamIndex,
304 								 Sequence< Any > & rOutParam ) throw(::com::sun::star::lang::IllegalArgumentException, ::com::sun::star::script::CannotConvertException, ::com::sun::star::reflection::InvocationTargetException, ::com::sun::star::uno::RuntimeException);
305     virtual void SAL_CALL setValue( const OUString & rPropertyName, const Any & rValue ) throw(::com::sun::star::beans::UnknownPropertyException, ::com::sun::star::script::CannotConvertException, ::com::sun::star::reflection::InvocationTargetException, ::com::sun::star::uno::RuntimeException);
306     virtual Any SAL_CALL getValue( const OUString & rPropertyName ) throw(::com::sun::star::beans::UnknownPropertyException, ::com::sun::star::uno::RuntimeException);
307     virtual sal_Bool SAL_CALL hasMethod( const OUString & rName ) throw(::com::sun::star::uno::RuntimeException);
308     virtual sal_Bool SAL_CALL hasProperty( const OUString & rName ) throw(::com::sun::star::uno::RuntimeException);
309 };
310 //__________________________________________________________________________________________________
invoke(const OUString & rFunctionName,const Sequence<Any> & rParams,Sequence<sal_Int16> & rOutParamIndex,Sequence<Any> & rOutParam)311 Any XLB_Invocation::invoke( const OUString & rFunctionName,
312 							const Sequence< Any > & rParams,
313 							Sequence< sal_Int16 > & rOutParamIndex,
314 							Sequence< Any > & rOutParam )
315 	throw(::com::sun::star::lang::IllegalArgumentException, ::com::sun::star::script::CannotConvertException, ::com::sun::star::reflection::InvocationTargetException, ::com::sun::star::uno::RuntimeException)
316 {
317     bool bImplementedMethod = true;
318 
319 	Any aRet;
320 
321 	OSL_ASSERT( rOutParam.getLength() == 0 );
322 	OSL_ASSERT( rOutParamIndex.getLength() == 0 );
323 
324 	try
325 	{
326 		sal_Bool aBool;
327 		sal_Unicode aChar;
328 		sal_Int8 nByte;
329 		sal_Int16 nShort;
330 		sal_uInt16 nUShort;
331 		sal_Int32 nLong;
332 		sal_uInt32 nULong;
333 		sal_Int64 nHyper;
334 		sal_uInt64 nUHyper;
335 		float fFloat;
336 		double fDouble;
337 		TestEnum eEnum;
338 		OUString aString;
339 		Reference< XInterface > xInterface;
340 		Any aAny;
341 		Sequence< TestElement > aSeq;
342 		TestData aData;
343 
344 		if (rFunctionName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("setValues") ))
345 		{
346 			OSL_ASSERT( rParams.getLength() == 17 );
347 			aBool = *(sal_Bool *)rParams[0].getValue();
348 			aChar = *(sal_Unicode *)rParams[1].getValue();
349 			rParams[2] >>= nByte;
350 			rParams[3] >>= nShort;
351 			rParams[4] >>= nUShort;
352 			rParams[5] >>= nLong;
353 			rParams[6] >>= nULong;
354 			rParams[7] >>= nHyper;
355 			rParams[8] >>= nUHyper;
356 			rParams[9] >>= fFloat;
357 			rParams[10] >>= fDouble;
358 			rParams[11] >>= eEnum;
359 			rParams[12] >>= aString;
360 			rParams[13] >>= xInterface;
361 			rParams[14] >>= aAny;
362 			rParams[15] >>= aSeq;
363 			rParams[16] >>= aData;
364 
365 			_xLBT->setValues( aBool, aChar, nByte, nShort, nUShort, nLong, nULong,
366 							  nHyper, nUHyper, fFloat, fDouble, eEnum, aString, xInterface,
367 							  aAny, aSeq, aData );
368 
369 			rOutParamIndex.realloc( 0 );
370 			rOutParam.realloc( 0 );
371 		}
372 		else if (rFunctionName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("setValues2") ))
373 		{
374 			aBool = *(sal_Bool *)rParams[0].getValue();
375 			aChar = *(sal_Unicode *)rParams[1].getValue();
376 			rParams[2] >>= nByte;
377 			rParams[3] >>= nShort;
378 			rParams[4] >>= nUShort;
379 			rParams[5] >>= nLong;
380 			rParams[6] >>= nULong;
381 			rParams[7] >>= nHyper;
382 			rParams[8] >>= nUHyper;
383 			rParams[9] >>= fFloat;
384 			rParams[10] >>= fDouble;
385 			rParams[11] >>= eEnum;
386 			rParams[12] >>= aString;
387 			rParams[13] >>= xInterface;
388 			rParams[14] >>= aAny;
389 			rParams[15] >>= aSeq;
390 			rParams[16] >>= aData;
391 
392 			aRet <<= _xLBT->setValues2( aBool, aChar, nByte, nShort, nUShort, nLong, nULong,
393 										nHyper, nUHyper, fFloat, fDouble, eEnum, aString, xInterface,
394 										aAny, aSeq, aData );
395 
396 			rOutParamIndex.realloc( 17 );
397 			rOutParamIndex[0] = 0;
398 			rOutParamIndex[1] = 1;
399 			rOutParamIndex[2] = 2;
400 			rOutParamIndex[3] = 3;
401 			rOutParamIndex[4] = 4;
402 			rOutParamIndex[5] = 5;
403 			rOutParamIndex[6] = 6;
404 			rOutParamIndex[7] = 7;
405 			rOutParamIndex[8] = 8;
406 			rOutParamIndex[9] = 9;
407 			rOutParamIndex[10] = 10;
408 			rOutParamIndex[11] = 11;
409 			rOutParamIndex[12] = 12;
410 			rOutParamIndex[13] = 13;
411 			rOutParamIndex[14] = 14;
412 			rOutParamIndex[15] = 15;
413 			rOutParamIndex[16] = 16;
414 
415 			rOutParam.realloc( 17 );
416 			rOutParam[0].setValue( &aBool, ::getCppuBooleanType() );
417 			rOutParam[1].setValue( &aChar, ::getCppuCharType() );
418 			rOutParam[2] <<= nByte;
419 			rOutParam[3] <<= nShort;
420 			rOutParam[4] <<= nUShort;
421 			rOutParam[5] <<= nLong;
422 			rOutParam[6] <<= nULong;
423 			rOutParam[7] <<= nHyper;
424 			rOutParam[8] <<= nUHyper;
425 			rOutParam[9] <<= fFloat;
426 			rOutParam[10] <<= fDouble;
427 			rOutParam[11] <<= eEnum;
428 			rOutParam[12] <<= aString;
429 			rOutParam[13] <<= xInterface;
430 			rOutParam[14] <<= aAny;
431 			rOutParam[15] <<= aSeq;
432 			rOutParam[16] <<= aData;
433 		}
434 		else if (rFunctionName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("getValues") ))
435 		{
436 			aRet <<= _xLBT->getValues( aBool, aChar, nByte, nShort, nUShort, nLong, nULong,
437 									   nHyper, nUHyper, fFloat, fDouble, eEnum, aString, xInterface,
438 									   aAny, aSeq, aData );
439 
440 			rOutParamIndex.realloc( 17 );
441 			rOutParamIndex[0] = 0;
442 			rOutParamIndex[1] = 1;
443 			rOutParamIndex[2] = 2;
444 			rOutParamIndex[3] = 3;
445 			rOutParamIndex[4] = 4;
446 			rOutParamIndex[5] = 5;
447 			rOutParamIndex[6] = 6;
448 			rOutParamIndex[7] = 7;
449 			rOutParamIndex[8] = 8;
450 			rOutParamIndex[9] = 9;
451 			rOutParamIndex[10] = 10;
452 			rOutParamIndex[11] = 11;
453 			rOutParamIndex[12] = 12;
454 			rOutParamIndex[13] = 13;
455 			rOutParamIndex[14] = 14;
456 			rOutParamIndex[15] = 15;
457 			rOutParamIndex[16] = 16;
458 
459 			rOutParam.realloc( 17 );
460 			rOutParam[0].setValue( &aBool, ::getCppuBooleanType() );
461 			rOutParam[1].setValue( &aChar, ::getCppuCharType() );
462 			rOutParam[2] <<= nByte;
463 			rOutParam[3] <<= nShort;
464 			rOutParam[4] <<= nUShort;
465 			rOutParam[5] <<= nLong;
466 			rOutParam[6] <<= nULong;
467 			rOutParam[7] <<= nHyper;
468 			rOutParam[8] <<= nUHyper;
469 			rOutParam[9] <<= fFloat;
470 			rOutParam[10] <<= fDouble;
471 			rOutParam[11] <<= eEnum;
472 			rOutParam[12] <<= aString;
473 			rOutParam[13] <<= xInterface;
474 			rOutParam[14] <<= aAny;
475 			rOutParam[15] <<= aSeq;
476 			rOutParam[16] <<= aData;
477 		}
478 		else if (rFunctionName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("raiseException") ))
479 		{
480 			aRet <<= _xLBT->raiseException( aBool, aChar, nByte, nShort, nUShort, nLong, nULong,
481 											nHyper, nUHyper, fFloat, fDouble, eEnum, aString, xInterface,
482 											aAny, aSeq, aData );
483 
484 			rOutParamIndex.realloc( 17 );
485 			rOutParamIndex[0] = 0;
486 			rOutParamIndex[1] = 1;
487 			rOutParamIndex[2] = 2;
488 			rOutParamIndex[3] = 3;
489 			rOutParamIndex[4] = 4;
490 			rOutParamIndex[5] = 5;
491 			rOutParamIndex[6] = 6;
492 			rOutParamIndex[7] = 7;
493 			rOutParamIndex[8] = 8;
494 			rOutParamIndex[9] = 9;
495 			rOutParamIndex[10] = 10;
496 			rOutParamIndex[11] = 11;
497 			rOutParamIndex[12] = 12;
498 			rOutParamIndex[13] = 13;
499 			rOutParamIndex[14] = 14;
500 			rOutParamIndex[15] = 15;
501 			rOutParamIndex[16] = 16;
502 
503 			rOutParam.realloc( 17 );
504 			rOutParam[0].setValue( &aBool, ::getCppuBooleanType() );
505 			rOutParam[1].setValue( &aChar, ::getCppuCharType() );
506 			rOutParam[2] <<= nByte;
507 			rOutParam[3] <<= nShort;
508 			rOutParam[4] <<= nUShort;
509 			rOutParam[5] <<= nLong;
510 			rOutParam[6] <<= nULong;
511 			rOutParam[7] <<= nHyper;
512 			rOutParam[8] <<= nUHyper;
513 			rOutParam[9] <<= fFloat;
514 			rOutParam[10] <<= fDouble;
515 			rOutParam[11] <<= eEnum;
516 			rOutParam[12] <<= aString;
517 			rOutParam[13] <<= xInterface;
518 			rOutParam[14] <<= aAny;
519 			rOutParam[15] <<= aSeq;
520 			rOutParam[16] <<= aData;
521 		}
522 		else
523 		{
524             bImplementedMethod = false;
525 		}
526 	}
527 	catch (IllegalArgumentException & rExc)
528 	{
529 		// thrown by raiseException() call
530 		InvocationTargetException aExc;
531 		aExc.TargetException <<= rExc;
532 		throw aExc;
533 	}
534 	catch (Exception &)
535 	{
536 		OSL_ENSURE( sal_False, "### unexpected exception caught!" );
537 		throw;
538 	}
539 
540     if (! bImplementedMethod)
541     {
542         throw IllegalArgumentException(
543             OUString( RTL_CONSTASCII_USTRINGPARAM("not an implemented method!") ),
544             (OWeakObject *)this, 0 );
545     }
546 
547 	return aRet;
548 }
549 //__________________________________________________________________________________________________
setValue(const OUString & rName,const Any & rValue)550 void XLB_Invocation::setValue( const OUString & rName, const Any & rValue )
551 	throw(::com::sun::star::beans::UnknownPropertyException, ::com::sun::star::script::CannotConvertException, ::com::sun::star::reflection::InvocationTargetException, ::com::sun::star::uno::RuntimeException)
552 {
553 	if (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Bool") ))
554 		_xLBT->setBool( *(const sal_Bool *)rValue.getValue() );
555 	else if (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Byte") ))
556 		_xLBT->setByte( *(const sal_Int8 *)rValue.getValue() );
557 	else if (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Char") ))
558 		_xLBT->setChar( *(const sal_Unicode *)rValue.getValue() );
559 	else if (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Short") ))
560 		_xLBT->setShort( *(const sal_Int16 *)rValue.getValue() );
561 	else if (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("UShort") ))
562 		_xLBT->setUShort( *(const sal_uInt16 *)rValue.getValue() );
563 	else if (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Long") ))
564 		_xLBT->setLong( *(const sal_Int32 *)rValue.getValue() );
565 	else if (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("ULong") ))
566 		_xLBT->setULong( *(const sal_uInt32 *)rValue.getValue() );
567 	else if (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Hyper") ))
568 		_xLBT->setHyper( *(const sal_Int64 *)rValue.getValue() );
569 	else if (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("UHyper") ))
570 		_xLBT->setUHyper( *(const sal_uInt64 *)rValue.getValue() );
571 	else if (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Float") ))
572 		_xLBT->setFloat( *(const float *)rValue.getValue() );
573 	else if (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Double") ))
574 		_xLBT->setDouble( *(const double *)rValue.getValue() );
575 	else if (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Enum") ))
576 		_xLBT->setEnum( *(const TestEnum *)rValue.getValue() );
577 	else if (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("String") ))
578 		_xLBT->setString( *(const OUString *)rValue.getValue() );
579 	else if (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Interface") ))
580 		_xLBT->setInterface( *(const Reference< XInterface > *)rValue.getValue() );
581 	else if (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Any") ))
582 		_xLBT->setAny( rValue );
583 	else if (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Sequence") ))
584 		_xLBT->setSequence( *(const Sequence< TestElement > *)rValue.getValue() );
585 	else if (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Struct") ))
586 		_xLBT->setStruct( *(const TestData *)rValue.getValue() );
587 	else if (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("RuntimeException") ))
588 		_xLBT->setRuntimeException( *(const sal_Int32 *)rValue.getValue() );
589 }
590 //__________________________________________________________________________________________________
getValue(const OUString & rName)591 Any XLB_Invocation::getValue( const OUString & rName )
592 	throw(::com::sun::star::beans::UnknownPropertyException, ::com::sun::star::uno::RuntimeException)
593 {
594 	Any aRet;
595 	if (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Bool") ))
596 	{
597 		sal_Bool aBool = _xLBT->getBool();
598 		aRet.setValue( &aBool, ::getCppuBooleanType() );
599 	}
600 	else if (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Byte") ))
601 		aRet <<= _xLBT->getByte();
602 	else if (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Char") ))
603 	{
604 		sal_Unicode aChar = _xLBT->getChar();
605 		aRet.setValue( &aChar, ::getCppuCharType() );
606 	}
607 	else if (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Short") ))
608 		aRet <<= _xLBT->getShort();
609 	else if (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("UShort") ))
610 		aRet <<= _xLBT->getUShort();
611 	else if (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Long") ))
612 		aRet <<= _xLBT->getLong();
613 	else if (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("ULong") ))
614 		aRet <<= _xLBT->getULong();
615 	else if (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Hyper") ))
616 		aRet <<= _xLBT->getHyper();
617 	else if (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("UHyper") ))
618 		aRet <<= _xLBT->getUHyper();
619 	else if (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Float") ))
620 		aRet <<= _xLBT->getFloat();
621 	else if (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Double") ))
622 		aRet <<= _xLBT->getDouble();
623 	else if (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Enum") ))
624 		aRet <<= _xLBT->getEnum();
625 	else if (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("String") ))
626 		aRet <<= _xLBT->getString();
627 	else if (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Interface") ))
628 		aRet <<= _xLBT->getInterface();
629 	else if (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Any") ))
630 		aRet <<= _xLBT->getAny();
631 	else if (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Sequence") ))
632 		aRet <<= _xLBT->getSequence();
633 	else if (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Struct") ))
634 		aRet <<= _xLBT->getStruct();
635 	else if (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("RuntimeException") ))
636 		aRet <<= _xLBT->getRuntimeException();
637 	return aRet;
638 }
639 //__________________________________________________________________________________________________
hasMethod(const OUString & rName)640 sal_Bool XLB_Invocation::hasMethod( const OUString & rName )
641 	throw(::com::sun::star::uno::RuntimeException)
642 {
643 	return (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("raiseException") ) ||
644 			rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("getValues") ) ||
645 			rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("setValues2") ) ||
646 			rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("setValues") ) ||
647 			rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("acquire") ) ||
648 			rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("release") ) ||
649 			rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("queryInterface") ));
650 }
651 //__________________________________________________________________________________________________
hasProperty(const OUString & rName)652 sal_Bool XLB_Invocation::hasProperty( const OUString & rName )
653 	throw(::com::sun::star::uno::RuntimeException)
654 {
655 	return (rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Bool") ) ||
656 			rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Byte") ) ||
657 			rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Char") ) ||
658 			rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Short") ) ||
659 			rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("UShort") ) ||
660 			rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Long") ) ||
661 			rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("ULong") ) ||
662 			rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Hyper") ) ||
663 			rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("UHyper") ) ||
664 			rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Float") ) ||
665 			rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Double") ) ||
666 			rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Enum") ) ||
667 			rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("String") ) ||
668 			rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Interface") ) ||
669 			rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Any") ) ||
670 			rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Sequence") ) ||
671 			rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("Struct") ) ||
672 			rName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("RuntimeException") ) );
673 }
674 
675 //##################################################################################################
676 
677 //__________________________________________________________________________________________________
setValues(sal_Bool bBool,sal_Unicode cChar,sal_Int8 nByte,sal_Int16 nShort,sal_uInt16 nUShort,sal_Int32 nLong,sal_uInt32 nULong,sal_Int64 nHyper,sal_uInt64 nUHyper,float fFloat,double fDouble,test::TestEnum eEnum,const::rtl::OUString & rStr,const::com::sun::star::uno::Reference<::com::sun::star::uno::XInterface> & xTest,const::com::sun::star::uno::Any & rAny,const::com::sun::star::uno::Sequence<test::TestElement> & rSequence,const test::TestData & rStruct)678 void Test_Impl::setValues( sal_Bool bBool, sal_Unicode cChar, sal_Int8 nByte,
679 						   sal_Int16 nShort, sal_uInt16 nUShort,
680 						   sal_Int32 nLong, sal_uInt32 nULong,
681 						   sal_Int64 nHyper, sal_uInt64 nUHyper,
682 						   float fFloat, double fDouble,
683 						   test::TestEnum eEnum, const ::rtl::OUString& rStr,
684 						   const ::com::sun::star::uno::Reference< ::com::sun::star::uno::XInterface >& xTest,
685 						   const ::com::sun::star::uno::Any& rAny,
686 						   const ::com::sun::star::uno::Sequence<test::TestElement >& rSequence,
687 						   const test::TestData& rStruct )
688 	throw(com::sun::star::uno::RuntimeException)
689 {
690 	assign( _aData,
691 			bBool, cChar, nByte, nShort, nUShort, nLong, nULong, nHyper, nUHyper, fFloat, fDouble,
692 			eEnum, rStr, xTest, rAny, rSequence );
693 	_aStructData = rStruct;
694 }
695 //__________________________________________________________________________________________________
setValues2(sal_Bool & bBool,sal_Unicode & cChar,sal_Int8 & nByte,sal_Int16 & nShort,sal_uInt16 & nUShort,sal_Int32 & nLong,sal_uInt32 & nULong,sal_Int64 & nHyper,sal_uInt64 & nUHyper,float & fFloat,double & fDouble,test::TestEnum & eEnum,rtl::OUString & rStr,::com::sun::star::uno::Reference<::com::sun::star::uno::XInterface> & xTest,::com::sun::star::uno::Any & rAny,::com::sun::star::uno::Sequence<test::TestElement> & rSequence,test::TestData & rStruct)696 test::TestData Test_Impl::setValues2( sal_Bool& bBool, sal_Unicode& cChar, sal_Int8& nByte,
697 									  sal_Int16& nShort, sal_uInt16& nUShort,
698 									  sal_Int32& nLong, sal_uInt32& nULong,
699 									  sal_Int64& nHyper, sal_uInt64& nUHyper,
700 									  float& fFloat, double& fDouble,
701 									  test::TestEnum& eEnum, rtl::OUString& rStr,
702 									  ::com::sun::star::uno::Reference< ::com::sun::star::uno::XInterface >& xTest,
703 									  ::com::sun::star::uno::Any& rAny,
704 									  ::com::sun::star::uno::Sequence<test::TestElement >& rSequence,
705 									  test::TestData& rStruct )
706 	throw(com::sun::star::uno::RuntimeException)
707 {
708 	assign( _aData,
709 			bBool, cChar, nByte, nShort, nUShort, nLong, nULong, nHyper, nUHyper, fFloat, fDouble,
710 			eEnum, rStr, xTest, rAny, rSequence );
711 	_aStructData = rStruct;
712 	return _aStructData;
713 }
714 //__________________________________________________________________________________________________
getValues(sal_Bool & bBool,sal_Unicode & cChar,sal_Int8 & nByte,sal_Int16 & nShort,sal_uInt16 & nUShort,sal_Int32 & nLong,sal_uInt32 & nULong,sal_Int64 & nHyper,sal_uInt64 & nUHyper,float & fFloat,double & fDouble,test::TestEnum & eEnum,rtl::OUString & rStr,::com::sun::star::uno::Reference<::com::sun::star::uno::XInterface> & xTest,::com::sun::star::uno::Any & rAny,::com::sun::star::uno::Sequence<test::TestElement> & rSequence,test::TestData & rStruct)715 test::TestData Test_Impl::getValues( sal_Bool& bBool, sal_Unicode& cChar, sal_Int8& nByte,
716 									 sal_Int16& nShort, sal_uInt16& nUShort,
717 									 sal_Int32& nLong, sal_uInt32& nULong,
718 									 sal_Int64& nHyper, sal_uInt64& nUHyper,
719 									 float& fFloat, double& fDouble,
720 									 test::TestEnum& eEnum, rtl::OUString& rStr,
721 									 ::com::sun::star::uno::Reference< ::com::sun::star::uno::XInterface >& xTest,
722 									 ::com::sun::star::uno::Any& rAny,
723 									 ::com::sun::star::uno::Sequence<test::TestElement >& rSequence,
724 									 test::TestData& rStruct )
725 	throw(com::sun::star::uno::RuntimeException)
726 {
727 	 bBool = _aData.Bool;
728 	 cChar = _aData.Char;
729 	 nByte = _aData.Byte;
730 	 nShort = _aData.Short;
731 	 nUShort = _aData.UShort;
732 	 nLong = _aData.Long;
733 	 nULong = _aData.ULong;
734 	 nHyper = _aData.Hyper;
735 	 nUHyper = _aData.UHyper;
736 	 fFloat = _aData.Float;
737 	 fDouble = _aData.Double;
738 	 eEnum = _aData.Enum;
739 	 rStr = _aData.String;
740 	 xTest = _aData.Interface;
741 	 rAny = _aData.Any;
742 	 rSequence = _aData.Sequence;
743 	 rStruct = _aStructData;
744 	 return _aStructData;
745 }
746 
747 //==================================================================================================
performTest(const Reference<XLanguageBindingTest> & xLBT)748 sal_Bool performTest( const Reference<XLanguageBindingTest > & xLBT )
749 {
750 	OSL_ENSURE( xLBT.is(), "### no test interface!" );
751 	if (xLBT.is())
752 	{
753 		// this data is never ever granted access to by calls other than equals(), assign()!
754 		test::TestData aData; // test against this data
755 
756 		Reference<XInterface > xI( *new OWeakObject() );
757 
758 		assign( (test::TestElement &)aData,
759 				sal_True, '@', 17, 0x1234, 0xfedc, 0x12345678, 0xfedcba98,
760 				SAL_CONST_INT64(0x123456789abcdef0),
761                 SAL_CONST_UINT64(0xfedcba9876543210),
762 				(float)17.0815, 3.1415926359, TestEnum_LOLA, OUString::createFromAscii("dumdidum"), xI,
763 				Any( &xI, ::getCppuType( (const Reference<XInterface > *)0 ) ) );
764 
765 		OSL_ENSURE( aData.Any == xI, "### unexpected any!" );
766 		OSL_ENSURE( !(aData.Any != xI), "### unexpected any!" );
767 
768 		aData.Sequence = Sequence<test::TestElement >( (const test::TestElement *)&aData, 1 );
769 		// aData complete
770 		//================================================================================
771 
772 		// this is a manually copy of aData for first setting...
773 		test::TestData aSetData;
774 
775 		assign( (test::TestElement &)aSetData,
776 				aData.Bool, aData.Char, aData.Byte, aData.Short, aData.UShort,
777 				aData.Long, aData.ULong, aData.Hyper, aData.UHyper, aData.Float, aData.Double,
778 				aData.Enum, aData.String, xI,
779 				Any( &xI, ::getCppuType( (const Reference<XInterface > *)0 ) ) );
780 
781 		aSetData.Sequence = Sequence<test::TestElement >( (const test::TestElement *)&aSetData, 1 );
782 
783 		xLBT->setValues(
784 			aSetData.Bool, aSetData.Char, aSetData.Byte, aSetData.Short, aSetData.UShort,
785 			aSetData.Long, aSetData.ULong, aSetData.Hyper, aSetData.UHyper, aSetData.Float, aSetData.Double,
786 			aSetData.Enum, aSetData.String, aSetData.Interface, aSetData.Any, aSetData.Sequence, aSetData );
787 
788 		{
789 		test::TestData aRet, aRet2;
790 		xLBT->getValues(
791 			aRet.Bool, aRet.Char, aRet.Byte, aRet.Short, aRet.UShort,
792 			aRet.Long, aRet.ULong, aRet.Hyper, aRet.UHyper, aRet.Float, aRet.Double,
793 			aRet.Enum, aRet.String, aRet.Interface, aRet.Any, aRet.Sequence, aRet2 );
794 
795 		OSL_ASSERT( equals( aData, aRet ) && equals( aData, aRet2 ) );
796 
797 		// set last retrieved values
798 		test::TestData aSV2ret = xLBT->setValues2(
799 			aRet.Bool, aRet.Char, aRet.Byte, aRet.Short, aRet.UShort,
800 			aRet.Long, aRet.ULong, aRet.Hyper, aRet.UHyper, aRet.Float, aRet.Double,
801 			aRet.Enum, aRet.String, aRet.Interface, aRet.Any, aRet.Sequence, aRet2 );
802 
803 		OSL_ASSERT( equals( aData, aSV2ret ) && equals( aData, aRet2 ) );
804 		}
805 		{
806 		test::TestData aRet, aRet2;
807 		test::TestData aGVret = xLBT->getValues(
808 			aRet.Bool, aRet.Char, aRet.Byte, aRet.Short, aRet.UShort,
809 			aRet.Long, aRet.ULong, aRet.Hyper, aRet.UHyper, aRet.Float, aRet.Double,
810 			aRet.Enum, aRet.String, aRet.Interface, aRet.Any, aRet.Sequence, aRet2 );
811 
812 		OSL_ASSERT( equals( aData, aRet ) && equals( aData, aRet2 ) && equals( aData, aGVret ) );
813 
814 		// set last retrieved values
815 		xLBT->setBool( aRet.Bool );
816 		xLBT->setChar( aRet.Char );
817 		xLBT->setByte( aRet.Byte );
818 		xLBT->setShort( aRet.Short );
819 		xLBT->setUShort( aRet.UShort );
820 		xLBT->setLong( aRet.Long );
821 		xLBT->setULong( aRet.ULong );
822 		xLBT->setHyper( aRet.Hyper );
823 		xLBT->setUHyper( aRet.UHyper );
824 		xLBT->setFloat( aRet.Float );
825 		xLBT->setDouble( aRet.Double );
826 		xLBT->setEnum( aRet.Enum );
827 		xLBT->setString( aRet.String );
828 		xLBT->setInterface( aRet.Interface );
829 		xLBT->setAny( aRet.Any );
830 		xLBT->setSequence( aRet.Sequence );
831 		xLBT->setStruct( aRet2 );
832 		}
833 		{
834 		test::TestData aRet, aRet2;
835 		aRet.Hyper = xLBT->getHyper();
836 		aRet.UHyper = xLBT->getUHyper();
837 		aRet.Float = xLBT->getFloat();
838 		aRet.Double = xLBT->getDouble();
839 		aRet.Byte = xLBT->getByte();
840 		aRet.Char = xLBT->getChar();
841 		aRet.Bool = xLBT->getBool();
842 		aRet.Short = xLBT->getShort();
843 		aRet.UShort = xLBT->getUShort();
844 		aRet.Long = xLBT->getLong();
845 		aRet.ULong = xLBT->getULong();
846 		aRet.Enum = xLBT->getEnum();
847 		aRet.String = xLBT->getString();
848 		aRet.Interface = xLBT->getInterface();
849 		aRet.Any = xLBT->getAny();
850 		aRet.Sequence = xLBT->getSequence();
851 		aRet2 = xLBT->getStruct();
852 
853 		return (equals( aData, aRet ) && equals( aData, aRet2 ));
854 		}
855 	}
856 	return sal_False;
857 }
858 
859 //__________________________________________________________________________________________________
raiseException(sal_Bool &,sal_Unicode &,sal_Int8 &,sal_Int16 &,sal_uInt16 &,sal_Int32 &,sal_uInt32 &,sal_Int64 &,sal_uInt64 &,float &,double &,test::TestEnum &,::rtl::OUString &,::com::sun::star::uno::Reference<::com::sun::star::uno::XInterface> &,::com::sun::star::uno::Any &,::com::sun::star::uno::Sequence<test::TestElement> &,test::TestData &)860 test::TestData Test_Impl::raiseException( sal_Bool& /*bBool*/, sal_Unicode& /*cChar*/, sal_Int8& /*nByte*/, sal_Int16& /*nShort*/, sal_uInt16& /*nUShort*/, sal_Int32& /*nLong*/, sal_uInt32& /*nULong*/, sal_Int64& /*nHyper*/, sal_uInt64& /*nUHyper*/, float& /*fFloat*/, double& /*fDouble*/, test::TestEnum& /*eEnum*/, ::rtl::OUString& /*aString*/, ::com::sun::star::uno::Reference< ::com::sun::star::uno::XInterface >& /*xInterface*/, ::com::sun::star::uno::Any& /*aAny*/, ::com::sun::star::uno::Sequence< test::TestElement >& /*aSequence*/, test::TestData& /*aStruct*/ )
861 	throw(::com::sun::star::lang::IllegalArgumentException, ::com::sun::star::uno::RuntimeException)
862 {
863 	IllegalArgumentException aExc;
864 	aExc.ArgumentPosition = 5;
865 	aExc.Message		  = OUString::createFromAscii("dum dum dum ich tanz im kreis herum...");
866 	aExc.Context		  = *this;
867 	throw aExc;
868 }
869 //__________________________________________________________________________________________________
getRuntimeException()870 sal_Int32 Test_Impl::getRuntimeException() throw(::com::sun::star::uno::RuntimeException)
871 {
872 	RuntimeException aExc;
873 	aExc.Message		  = OUString::createFromAscii("dum dum dum ich tanz im kreis herum...");
874 	aExc.Context		  = *this;
875 	throw aExc;
876 }
877 //__________________________________________________________________________________________________
setRuntimeException(sal_Int32)878 void Test_Impl::setRuntimeException( sal_Int32 /*_runtimeexception*/ ) throw(::com::sun::star::uno::RuntimeException)
879 {
880 	RuntimeException aExc;
881 	aExc.Message		  = OUString::createFromAscii("dum dum dum ich tanz im kreis herum...");
882 	aExc.Context		  = *this;
883 	throw aExc;
884 }
885 
886 //==================================================================================================
raiseException(const Reference<XLanguageBindingTest> & xLBT)887 sal_Bool raiseException( const Reference<XLanguageBindingTest > & xLBT )
888 {
889 	try
890 	{
891 		try
892 		{
893 			try
894 			{
895 				test::TestData aRet, aRet2;
896 				xLBT->raiseException(
897 					aRet.Bool, aRet.Char, aRet.Byte, aRet.Short, aRet.UShort,
898 					aRet.Long, aRet.ULong, aRet.Hyper, aRet.UHyper, aRet.Float, aRet.Double,
899 					aRet.Enum, aRet.String, aRet.Interface, aRet.Any, aRet.Sequence, aRet2 );
900 				return sal_False;
901 			}
902 			catch (IllegalArgumentException aExc)
903 			{
904 				OSL_ENSURE( aExc.ArgumentPosition == 5 &&
905 //  							 aExc.Context == xLBT &&
906 							 aExc.Message.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM("dum dum dum ich tanz im kreis herum...")),
907 							 "### unexpected exception content!" );
908 
909 				Reference<XLanguageBindingTest > xLBT2(
910 					Reference<XLanguageBindingTest >::query( aExc.Context ) );
911 
912 				OSL_ENSURE( xLBT2.is(), "### unexpected source of exception!" );
913 				if (xLBT2.is())
914 					xLBT2->getRuntimeException();
915 				else
916 					return sal_False;
917 			}
918 		}
919 		catch (const RuntimeException & rExc)
920 		{
921 			OSL_ENSURE(//rExc.Context == xLBT &&
922 						rExc.Message.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM("dum dum dum ich tanz im kreis herum...")),
923 						"### unexpected exception content!" );
924 
925 			Reference<XLanguageBindingTest > xLBT2(
926 				Reference<XLanguageBindingTest >::query( rExc.Context ) );
927 
928 			OSL_ENSURE( xLBT2.is(), "### unexpected source of exception!" );
929 			if (xLBT2.is())
930 				xLBT2->setRuntimeException( 0xcafebabe );
931 			else
932 				return sal_False;
933 		}
934 	}
935 	catch (Exception & aExc)
936 	{
937 		OSL_ENSURE( //aExc.Context == xLBT &&
938 					 aExc.Message.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM("dum dum dum ich tanz im kreis herum...")),
939 					 "### unexpected exception content!" );
940 		return (//aExc.Context == xLBT &&
941 				aExc.Message.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM("dum dum dum ich tanz im kreis herum...")));
942 	}
943 	return sal_False;
944 }
945 
946 //==================================================================================================
test_adapter(const Reference<XMultiServiceFactory> & xMgr)947 static sal_Bool test_adapter( const Reference< XMultiServiceFactory > & xMgr )
948 {
949 	Reference< XInvocationAdapterFactory > xAdapFac(
950 		xMgr->createInstance( OUString::createFromAscii("com.sun.star.script.InvocationAdapterFactory") ), UNO_QUERY );
951 	Reference< XInvocationAdapterFactory2 > xAdapFac2( xAdapFac, UNO_QUERY_THROW );
952 
953 	Reference< XLanguageBindingTest > xOriginal( (XLanguageBindingTest *)new Test_Impl() );
954 	Reference< XInvocation > xInvok( new XLB_Invocation( xMgr, xOriginal ) );
955 	Reference< XLanguageBindingTest > xLBT( xAdapFac->createAdapter(
956 		xInvok, ::getCppuType( (const Reference< XLanguageBindingTest > *)0 ) ), UNO_QUERY );
957 	Reference< XLanguageBindingTest > xLBT2(
958         xAdapFac->createAdapter(
959             xInvok, ::getCppuType( (const Reference< XLanguageBindingTest > *)0 ) ), UNO_QUERY );
960     if (xLBT != xLBT2)
961         return sal_False;
962 	Reference< XInterface > xLBT3(
963         xAdapFac->createAdapter(
964             xInvok, ::getCppuType( (const Reference< XInterface > *)0 ) ), UNO_QUERY );
965     if (xLBT != xLBT3)
966         return sal_False;
967     Type ar[ 2 ] = {
968         ::getCppuType( (const Reference< XLBTestBase > *)0 ),
969         ::getCppuType( (const Reference< XInterface > *)0 ) };
970 	Reference< XInterface > xLBT4(
971         xAdapFac2->createAdapter( xInvok, Sequence< Type >( ar, 2 ) ), UNO_QUERY );
972     if (xLBT != xLBT4)
973         return sal_False;
974     Reference< XSimpleRegistry > xInvalidAdapter(
975         xAdapFac->createAdapter(
976             xInvok, ::getCppuType( (const Reference< XSimpleRegistry > *)0 ) ), UNO_QUERY );
977     if (xLBT == xInvalidAdapter)
978         return sal_False;
979 
980     try
981     {
982         xInvalidAdapter->isValid();
983         return sal_False;
984     }
985     catch (RuntimeException &)
986     {
987     }
988 
989 	return (performTest( xLBT ) && raiseException( xLBT ));
990 }
991 //==================================================================================================
test_invocation(const Reference<XMultiServiceFactory> & xMgr)992 static sal_Bool test_invocation( const Reference< XMultiServiceFactory > & xMgr )
993 {
994 	Reference< XInvocationAdapterFactory > xAdapFac(
995 		xMgr->createInstance( OUString::createFromAscii("com.sun.star.script.InvocationAdapterFactory") ), UNO_QUERY );
996 	Reference< XSingleServiceFactory > xInvocFac(
997 		xMgr->createInstance( OUString::createFromAscii("com.sun.star.script.Invocation") ), UNO_QUERY );
998 
999 	Reference< XLanguageBindingTest > xOriginal( (XLanguageBindingTest *)new Test_Impl() );
1000 	Any aOriginal( &xOriginal, ::getCppuType( &xOriginal ) );
1001 	Reference< XInvocation > xInvok(
1002 		xInvocFac->createInstanceWithArguments( Sequence< Any >( &aOriginal, 1 ) ), UNO_REF_QUERY );
1003 
1004 	Reference< XLanguageBindingTest > xLBT( xAdapFac->createAdapter(
1005 		xInvok, ::getCppuType( (const Reference< XLanguageBindingTest > *)0 ) ), UNO_QUERY );
1006 
1007 	return (performTest( xLBT ) && raiseException( xLBT ));
1008 }
1009 
SAL_IMPLEMENT_MAIN()1010 SAL_IMPLEMENT_MAIN()
1011 {
1012 	Reference< XMultiServiceFactory > xMgr( createRegistryServiceFactory(
1013 		OUString( RTL_CONSTASCII_USTRINGPARAM("stoctest.rdb") ) ) );
1014 
1015 	try
1016 	{
1017 		Reference< XImplementationRegistration > xImplReg(
1018 			xMgr->createInstance(
1019 				OUString(
1020                     RTL_CONSTASCII_USTRINGPARAM(
1021                         "com.sun.star.registry.ImplementationRegistration") ) ),
1022 			UNO_QUERY );
1023 		OSL_ENSURE( xImplReg.is(), "### no impl reg!" );
1024 
1025 		xImplReg->registerImplementation(
1026 			OUString::createFromAscii("com.sun.star.loader.SharedLibrary"),
1027 			OUString::createFromAscii("invocadapt.uno" SAL_DLLEXTENSION),
1028 			Reference< XSimpleRegistry >() );
1029 		xImplReg->registerImplementation(
1030 			OUString::createFromAscii("com.sun.star.loader.SharedLibrary"),
1031 			OUString::createFromAscii("stocservices.uno" SAL_DLLEXTENSION),
1032 			Reference< XSimpleRegistry >() );
1033 		xImplReg->registerImplementation(
1034 			OUString::createFromAscii("com.sun.star.loader.SharedLibrary"),
1035 			OUString::createFromAscii("invocation.uno" SAL_DLLEXTENSION),
1036 			Reference< XSimpleRegistry >() );
1037 		xImplReg->registerImplementation(
1038 			OUString::createFromAscii("com.sun.star.loader.SharedLibrary"),
1039 			OUString::createFromAscii("reflection.uno" SAL_DLLEXTENSION),
1040 			Reference< XSimpleRegistry >() );
1041 		xImplReg->registerImplementation(
1042 			OUString::createFromAscii("com.sun.star.loader.SharedLibrary"),
1043 			OUString::createFromAscii("introspection.uno" SAL_DLLEXTENSION),
1044 			Reference< XSimpleRegistry >() );
1045 
1046 		if (test_adapter( xMgr ))
1047 		{
1048 			fprintf( stderr, "> test_iadapter() succeeded.\n" );
1049 			if (test_invocation( xMgr ))
1050 			{
1051 				fprintf( stderr, "> test_invocation() succeeded.\n" );
1052 			}
1053 		}
1054 	}
1055 	catch (Exception & rExc)
1056 	{
1057 		fprintf( stderr, "> exception occured: " );
1058 		OString aMsg( OUStringToOString( rExc.Message, RTL_TEXTENCODING_ASCII_US ) );
1059 		fprintf( stderr, "%s\n", aMsg.getStr() );
1060 	}
1061 
1062 	Reference< XComponent >( xMgr, UNO_QUERY )->dispose();
1063 
1064 	return 0;
1065 }
1066