1*b1cdbd2cSJim Jagielski /**************************************************************
2*b1cdbd2cSJim Jagielski *
3*b1cdbd2cSJim Jagielski * Licensed to the Apache Software Foundation (ASF) under one
4*b1cdbd2cSJim Jagielski * or more contributor license agreements. See the NOTICE file
5*b1cdbd2cSJim Jagielski * distributed with this work for additional information
6*b1cdbd2cSJim Jagielski * regarding copyright ownership. The ASF licenses this file
7*b1cdbd2cSJim Jagielski * to you under the Apache License, Version 2.0 (the
8*b1cdbd2cSJim Jagielski * "License"); you may not use this file except in compliance
9*b1cdbd2cSJim Jagielski * with the License. You may obtain a copy of the License at
10*b1cdbd2cSJim Jagielski *
11*b1cdbd2cSJim Jagielski * http://www.apache.org/licenses/LICENSE-2.0
12*b1cdbd2cSJim Jagielski *
13*b1cdbd2cSJim Jagielski * Unless required by applicable law or agreed to in writing,
14*b1cdbd2cSJim Jagielski * software distributed under the License is distributed on an
15*b1cdbd2cSJim Jagielski * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16*b1cdbd2cSJim Jagielski * KIND, either express or implied. See the License for the
17*b1cdbd2cSJim Jagielski * specific language governing permissions and limitations
18*b1cdbd2cSJim Jagielski * under the License.
19*b1cdbd2cSJim Jagielski *
20*b1cdbd2cSJim Jagielski *************************************************************/
21*b1cdbd2cSJim Jagielski
22*b1cdbd2cSJim Jagielski
23*b1cdbd2cSJim Jagielski
24*b1cdbd2cSJim Jagielski // MARKER(update_precomp.py): autogen include statement, do not remove
25*b1cdbd2cSJim Jagielski #include "precompiled_cli_ure.hxx"
26*b1cdbd2cSJim Jagielski
27*b1cdbd2cSJim Jagielski #include <sal/alloca.h>
28*b1cdbd2cSJim Jagielski #include "rtl/ustrbuf.hxx"
29*b1cdbd2cSJim Jagielski #include "cli_base.h"
30*b1cdbd2cSJim Jagielski #include "cli_bridge.h"
31*b1cdbd2cSJim Jagielski
32*b1cdbd2cSJim Jagielski namespace sr=System::Reflection;
33*b1cdbd2cSJim Jagielski namespace css=com::sun::star;
34*b1cdbd2cSJim Jagielski using namespace rtl;
35*b1cdbd2cSJim Jagielski
36*b1cdbd2cSJim Jagielski namespace cli_uno
37*b1cdbd2cSJim Jagielski {
38*b1cdbd2cSJim Jagielski
39*b1cdbd2cSJim Jagielski union largest
40*b1cdbd2cSJim Jagielski {
41*b1cdbd2cSJim Jagielski sal_Int64 n;
42*b1cdbd2cSJim Jagielski double d;
43*b1cdbd2cSJim Jagielski void * p;
44*b1cdbd2cSJim Jagielski uno_Any a;
45*b1cdbd2cSJim Jagielski };
46*b1cdbd2cSJim Jagielski
call_uno(uno_Interface * pUnoI,typelib_TypeDescription * member_td,typelib_TypeDescriptionReference * return_type,sal_Int32 nParams,typelib_MethodParameter const * pParams,System::Object * args[],System::Type * argTypes[],System::Object ** ppExc) const47*b1cdbd2cSJim Jagielski System::Object* Bridge::call_uno(uno_Interface * pUnoI,
48*b1cdbd2cSJim Jagielski typelib_TypeDescription* member_td,
49*b1cdbd2cSJim Jagielski typelib_TypeDescriptionReference * return_type,
50*b1cdbd2cSJim Jagielski sal_Int32 nParams, typelib_MethodParameter const * pParams,
51*b1cdbd2cSJim Jagielski System::Object * args[], System::Type* argTypes[],
52*b1cdbd2cSJim Jagielski System::Object** ppExc) const
53*b1cdbd2cSJim Jagielski {
54*b1cdbd2cSJim Jagielski // return mem
55*b1cdbd2cSJim Jagielski sal_Int32 return_size = sizeof (largest);
56*b1cdbd2cSJim Jagielski if ((0 != return_type) &&
57*b1cdbd2cSJim Jagielski (typelib_TypeClass_STRUCT == return_type->eTypeClass ||
58*b1cdbd2cSJim Jagielski typelib_TypeClass_EXCEPTION == return_type->eTypeClass))
59*b1cdbd2cSJim Jagielski {
60*b1cdbd2cSJim Jagielski TypeDescr return_td( return_type );
61*b1cdbd2cSJim Jagielski if (return_td.get()->nSize > sizeof (largest))
62*b1cdbd2cSJim Jagielski return_size = return_td.get()->nSize;
63*b1cdbd2cSJim Jagielski }
64*b1cdbd2cSJim Jagielski //Prepare memory that contains all converted arguments and return valuse
65*b1cdbd2cSJim Jagielski //The memory block contains first pointers to the arguments which are in the same block
66*b1cdbd2cSJim Jagielski // For example, 2 arguments, 1 ret.
67*b1cdbd2cSJim Jagielski //
68*b1cdbd2cSJim Jagielski // | Pointer
69*b1cdbd2cSJim Jagielski // | Pointer
70*b1cdbd2cSJim Jagielski // | Return value
71*b1cdbd2cSJim Jagielski // | Arg 1
72*b1cdbd2cSJim Jagielski // | Arg 2
73*b1cdbd2cSJim Jagielski //
74*b1cdbd2cSJim Jagielski // If an argument is larger then union largest, such as some structures, then the pointer
75*b1cdbd2cSJim Jagielski // points to an extra block of memory. The same goes for a big return value.
76*b1cdbd2cSJim Jagielski
77*b1cdbd2cSJim Jagielski char * mem = (char *)alloca(
78*b1cdbd2cSJim Jagielski (nParams * sizeof (void *)) + return_size + (nParams * sizeof (largest)) );
79*b1cdbd2cSJim Jagielski //array of pointers to args
80*b1cdbd2cSJim Jagielski void ** uno_args = (void **)mem;
81*b1cdbd2cSJim Jagielski //If an attribute is set, then uno_ret must be null, e.g void setAttribute(int )
82*b1cdbd2cSJim Jagielski void * uno_ret= NULL;
83*b1cdbd2cSJim Jagielski if ( !(member_td->eTypeClass == typelib_TypeClass_INTERFACE_ATTRIBUTE && nParams == 1))
84*b1cdbd2cSJim Jagielski uno_ret = (mem + (nParams * sizeof (void *)));
85*b1cdbd2cSJim Jagielski largest * uno_args_mem = (largest *)(mem + (nParams * sizeof (void *)) + return_size);
86*b1cdbd2cSJim Jagielski
87*b1cdbd2cSJim Jagielski OSL_ASSERT( (0 == nParams) || (nParams == args->get_Length()) );
88*b1cdbd2cSJim Jagielski for ( sal_Int32 nPos = 0; nPos < nParams; ++nPos )
89*b1cdbd2cSJim Jagielski {
90*b1cdbd2cSJim Jagielski typelib_MethodParameter const & param = pParams[ nPos ];
91*b1cdbd2cSJim Jagielski typelib_TypeDescriptionReference * type = param.pTypeRef;
92*b1cdbd2cSJim Jagielski
93*b1cdbd2cSJim Jagielski uno_args[ nPos ] = &uno_args_mem[ nPos ];
94*b1cdbd2cSJim Jagielski if (typelib_TypeClass_STRUCT == type->eTypeClass ||
95*b1cdbd2cSJim Jagielski typelib_TypeClass_EXCEPTION == type->eTypeClass)
96*b1cdbd2cSJim Jagielski {
97*b1cdbd2cSJim Jagielski TypeDescr td( type );
98*b1cdbd2cSJim Jagielski if (td.get()->nSize > sizeof (largest))
99*b1cdbd2cSJim Jagielski uno_args[ nPos ] = alloca( td.get()->nSize );
100*b1cdbd2cSJim Jagielski }
101*b1cdbd2cSJim Jagielski
102*b1cdbd2cSJim Jagielski if (param.bIn)
103*b1cdbd2cSJim Jagielski {
104*b1cdbd2cSJim Jagielski try
105*b1cdbd2cSJim Jagielski {
106*b1cdbd2cSJim Jagielski // in, in/out params
107*b1cdbd2cSJim Jagielski map_to_uno(
108*b1cdbd2cSJim Jagielski uno_args[ nPos ],args[nPos] , type, false /* no assign */);
109*b1cdbd2cSJim Jagielski }
110*b1cdbd2cSJim Jagielski catch (...)
111*b1cdbd2cSJim Jagielski {
112*b1cdbd2cSJim Jagielski // cleanup uno in args
113*b1cdbd2cSJim Jagielski for (sal_Int32 n = 0; n < nPos; ++n)
114*b1cdbd2cSJim Jagielski {
115*b1cdbd2cSJim Jagielski typelib_MethodParameter const & param = pParams[n];
116*b1cdbd2cSJim Jagielski if (param.bIn)
117*b1cdbd2cSJim Jagielski {
118*b1cdbd2cSJim Jagielski uno_type_destructData(uno_args[n], param.pTypeRef, 0);
119*b1cdbd2cSJim Jagielski }
120*b1cdbd2cSJim Jagielski }
121*b1cdbd2cSJim Jagielski throw;
122*b1cdbd2cSJim Jagielski }
123*b1cdbd2cSJim Jagielski }
124*b1cdbd2cSJim Jagielski }
125*b1cdbd2cSJim Jagielski uno_Any uno_exc_holder;
126*b1cdbd2cSJim Jagielski uno_Any * uno_exc = &uno_exc_holder;
127*b1cdbd2cSJim Jagielski // call binary uno
128*b1cdbd2cSJim Jagielski
129*b1cdbd2cSJim Jagielski (*pUnoI->pDispatcher)( pUnoI, member_td, uno_ret, uno_args, &uno_exc );
130*b1cdbd2cSJim Jagielski
131*b1cdbd2cSJim Jagielski if (0 == uno_exc)
132*b1cdbd2cSJim Jagielski {
133*b1cdbd2cSJim Jagielski // convert out args; destruct uno args
134*b1cdbd2cSJim Jagielski for ( sal_Int32 nPos = 0; nPos < nParams; ++nPos )
135*b1cdbd2cSJim Jagielski {
136*b1cdbd2cSJim Jagielski typelib_MethodParameter const & param = pParams[ nPos ];
137*b1cdbd2cSJim Jagielski typelib_TypeDescriptionReference * type = param.pTypeRef;
138*b1cdbd2cSJim Jagielski if (param.bOut)
139*b1cdbd2cSJim Jagielski {
140*b1cdbd2cSJim Jagielski try
141*b1cdbd2cSJim Jagielski {
142*b1cdbd2cSJim Jagielski map_to_cli(
143*b1cdbd2cSJim Jagielski &args[nPos], uno_args[nPos], param.pTypeRef,
144*b1cdbd2cSJim Jagielski argTypes != NULL ? argTypes[nPos] : NULL, false );
145*b1cdbd2cSJim Jagielski }
146*b1cdbd2cSJim Jagielski catch (...)
147*b1cdbd2cSJim Jagielski {
148*b1cdbd2cSJim Jagielski // cleanup further uno args
149*b1cdbd2cSJim Jagielski for ( sal_Int32 n = nPos; n < nParams; ++n )
150*b1cdbd2cSJim Jagielski {
151*b1cdbd2cSJim Jagielski uno_type_destructData( uno_args[n], pParams[n].pTypeRef, 0 );
152*b1cdbd2cSJim Jagielski }
153*b1cdbd2cSJim Jagielski // cleanup uno return value
154*b1cdbd2cSJim Jagielski uno_type_destructData( uno_ret, return_type, 0 );
155*b1cdbd2cSJim Jagielski throw;
156*b1cdbd2cSJim Jagielski }
157*b1cdbd2cSJim Jagielski }
158*b1cdbd2cSJim Jagielski //cleanup args
159*b1cdbd2cSJim Jagielski if (typelib_TypeClass_DOUBLE < type->eTypeClass &&
160*b1cdbd2cSJim Jagielski typelib_TypeClass_ENUM != type->eTypeClass) // opt
161*b1cdbd2cSJim Jagielski {
162*b1cdbd2cSJim Jagielski uno_type_destructData(uno_args[nPos], type, 0);
163*b1cdbd2cSJim Jagielski }
164*b1cdbd2cSJim Jagielski }
165*b1cdbd2cSJim Jagielski
166*b1cdbd2cSJim Jagielski if ((0 != return_type) &&
167*b1cdbd2cSJim Jagielski (typelib_TypeClass_VOID != return_type->eTypeClass))
168*b1cdbd2cSJim Jagielski {
169*b1cdbd2cSJim Jagielski // convert uno return value
170*b1cdbd2cSJim Jagielski try
171*b1cdbd2cSJim Jagielski {
172*b1cdbd2cSJim Jagielski System::Object* cli_ret;
173*b1cdbd2cSJim Jagielski map_to_cli(
174*b1cdbd2cSJim Jagielski &cli_ret, uno_ret, return_type, 0, false);
175*b1cdbd2cSJim Jagielski uno_type_destructData(uno_ret, return_type, 0);
176*b1cdbd2cSJim Jagielski return cli_ret;
177*b1cdbd2cSJim Jagielski }
178*b1cdbd2cSJim Jagielski catch (...)
179*b1cdbd2cSJim Jagielski {
180*b1cdbd2cSJim Jagielski uno_type_destructData(uno_ret, return_type, 0);
181*b1cdbd2cSJim Jagielski throw;
182*b1cdbd2cSJim Jagielski }
183*b1cdbd2cSJim Jagielski }
184*b1cdbd2cSJim Jagielski return 0; // void return
185*b1cdbd2cSJim Jagielski }
186*b1cdbd2cSJim Jagielski else // exception occured
187*b1cdbd2cSJim Jagielski {
188*b1cdbd2cSJim Jagielski // destruct uno in args
189*b1cdbd2cSJim Jagielski for ( sal_Int32 nPos = 0; nPos < nParams; ++nPos )
190*b1cdbd2cSJim Jagielski {
191*b1cdbd2cSJim Jagielski typelib_MethodParameter const & param = pParams[ nPos ];
192*b1cdbd2cSJim Jagielski if (param.bIn)
193*b1cdbd2cSJim Jagielski {
194*b1cdbd2cSJim Jagielski uno_type_destructData( uno_args[ nPos ], param.pTypeRef, 0 );
195*b1cdbd2cSJim Jagielski }
196*b1cdbd2cSJim Jagielski }
197*b1cdbd2cSJim Jagielski map_to_cli(ppExc, uno_exc_holder.pData,
198*b1cdbd2cSJim Jagielski uno_exc_holder.pType, NULL, false);
199*b1cdbd2cSJim Jagielski return 0;
200*b1cdbd2cSJim Jagielski }
201*b1cdbd2cSJim Jagielski }
202*b1cdbd2cSJim Jagielski
call_cli(System::Object * cliI,sr::MethodInfo * method,typelib_TypeDescriptionReference * return_type,typelib_MethodParameter * params,int nParams,void * uno_ret,void * uno_args[],uno_Any ** uno_exc) const203*b1cdbd2cSJim Jagielski void Bridge::call_cli(
204*b1cdbd2cSJim Jagielski System::Object* cliI,
205*b1cdbd2cSJim Jagielski sr::MethodInfo* method,
206*b1cdbd2cSJim Jagielski typelib_TypeDescriptionReference * return_type,
207*b1cdbd2cSJim Jagielski typelib_MethodParameter * params, int nParams,
208*b1cdbd2cSJim Jagielski void * uno_ret, void * uno_args [], uno_Any ** uno_exc ) const
209*b1cdbd2cSJim Jagielski {
210*b1cdbd2cSJim Jagielski System::Object *args[]= new System::Object*[nParams];
211*b1cdbd2cSJim Jagielski for (int nPos= 0; nPos < nParams; nPos++)
212*b1cdbd2cSJim Jagielski {
213*b1cdbd2cSJim Jagielski typelib_MethodParameter const & param= params[nPos];
214*b1cdbd2cSJim Jagielski if (param.bIn)
215*b1cdbd2cSJim Jagielski {
216*b1cdbd2cSJim Jagielski map_to_cli( &args[nPos],
217*b1cdbd2cSJim Jagielski uno_args[nPos], param.pTypeRef, 0, false);
218*b1cdbd2cSJim Jagielski }
219*b1cdbd2cSJim Jagielski }
220*b1cdbd2cSJim Jagielski System::Object* retInvoke= NULL;
221*b1cdbd2cSJim Jagielski try
222*b1cdbd2cSJim Jagielski {
223*b1cdbd2cSJim Jagielski retInvoke= method->Invoke(cliI, args);
224*b1cdbd2cSJim Jagielski }
225*b1cdbd2cSJim Jagielski catch (sr::TargetInvocationException* e)
226*b1cdbd2cSJim Jagielski {
227*b1cdbd2cSJim Jagielski System::Exception* exc= e->get_InnerException();
228*b1cdbd2cSJim Jagielski css::uno::TypeDescription td(mapCliType(exc->GetType()));
229*b1cdbd2cSJim Jagielski // memory for exception
230*b1cdbd2cSJim Jagielski std::auto_ptr< rtl_mem > memExc(rtl_mem::allocate(td.get()->nSize));
231*b1cdbd2cSJim Jagielski map_to_uno(memExc.get(), exc, td.get()->pWeakRef, false);
232*b1cdbd2cSJim Jagielski (*uno_exc)->pType= td.get()->pWeakRef;
233*b1cdbd2cSJim Jagielski (*uno_exc)->pData= memExc.release();
234*b1cdbd2cSJim Jagielski return;
235*b1cdbd2cSJim Jagielski }
236*b1cdbd2cSJim Jagielski catch (System::Exception* e)
237*b1cdbd2cSJim Jagielski {
238*b1cdbd2cSJim Jagielski OUStringBuffer buf( 128 );
239*b1cdbd2cSJim Jagielski buf.appendAscii( RTL_CONSTASCII_STRINGPARAM(
240*b1cdbd2cSJim Jagielski "Unexspected exception during invocation of cli object. "
241*b1cdbd2cSJim Jagielski "Original message is: \n") );
242*b1cdbd2cSJim Jagielski buf.append(mapCliString(e->get_Message()));
243*b1cdbd2cSJim Jagielski throw BridgeRuntimeError( buf.makeStringAndClear() );
244*b1cdbd2cSJim Jagielski }
245*b1cdbd2cSJim Jagielski
246*b1cdbd2cSJim Jagielski //convert out, in/out params
247*b1cdbd2cSJim Jagielski for (int nPos = 0; nPos < nParams; ++nPos )
248*b1cdbd2cSJim Jagielski {
249*b1cdbd2cSJim Jagielski typelib_MethodParameter const & param = params[ nPos ];
250*b1cdbd2cSJim Jagielski
251*b1cdbd2cSJim Jagielski if (param.bOut)
252*b1cdbd2cSJim Jagielski {
253*b1cdbd2cSJim Jagielski try
254*b1cdbd2cSJim Jagielski {
255*b1cdbd2cSJim Jagielski map_to_uno(
256*b1cdbd2cSJim Jagielski uno_args[ nPos ], args[ nPos ], param.pTypeRef,
257*b1cdbd2cSJim Jagielski sal_True == param.bIn /* assign if inout */);
258*b1cdbd2cSJim Jagielski // out array
259*b1cdbd2cSJim Jagielski }
260*b1cdbd2cSJim Jagielski catch (...)
261*b1cdbd2cSJim Jagielski {
262*b1cdbd2cSJim Jagielski // cleanup uno pure out
263*b1cdbd2cSJim Jagielski for ( sal_Int32 n = 0; n < nPos; ++n )
264*b1cdbd2cSJim Jagielski {
265*b1cdbd2cSJim Jagielski typelib_MethodParameter const & param = params[ n ];
266*b1cdbd2cSJim Jagielski if (! param.bIn)
267*b1cdbd2cSJim Jagielski uno_type_destructData( uno_args[ n ], param.pTypeRef, 0 );
268*b1cdbd2cSJim Jagielski }
269*b1cdbd2cSJim Jagielski throw;
270*b1cdbd2cSJim Jagielski }
271*b1cdbd2cSJim Jagielski }
272*b1cdbd2cSJim Jagielski }
273*b1cdbd2cSJim Jagielski // return value
274*b1cdbd2cSJim Jagielski if (0 != return_type)
275*b1cdbd2cSJim Jagielski {
276*b1cdbd2cSJim Jagielski map_to_uno(
277*b1cdbd2cSJim Jagielski uno_ret, retInvoke, return_type, false /* no assign */);
278*b1cdbd2cSJim Jagielski }
279*b1cdbd2cSJim Jagielski // no exception occured
280*b1cdbd2cSJim Jagielski *uno_exc = 0;
281*b1cdbd2cSJim Jagielski }
282*b1cdbd2cSJim Jagielski
283*b1cdbd2cSJim Jagielski
284*b1cdbd2cSJim Jagielski
285*b1cdbd2cSJim Jagielski
286*b1cdbd2cSJim Jagielski }
287