?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Bump for 3.6-28
[LibreOffice.git] / bridges / source / cpp_uno / gcc3_linux_m68k / cpp2uno.cxx
blob6cc5ccea7c0c6dca6d27e5cef8a293ff640ae300
1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
2 /*************************************************************************
3 *
4 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
5 *
6 * Copyright 2000, 2010 Oracle and/or its affiliates.
7 *
8 * OpenOffice.org - a multi-platform office productivity suite
9 *
10 * This file is part of OpenOffice.org.
11 *
12 * OpenOffice.org is free software: you can redistribute it and/or modify
13 * it under the terms of the GNU Lesser General Public License version 3
14 * only, as published by the Free Software Foundation.
15 *
16 * OpenOffice.org is distributed in the hope that it will be useful,
17 * but WITHOUT ANY WARRANTY; without even the implied warranty of
18 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 * GNU Lesser General Public License version 3 for more details
20 * (a copy is included in the LICENSE file that accompanied this code).
21 *
22 * You should have received a copy of the GNU Lesser General Public License
23 * version 3 along with OpenOffice.org. If not, see
24 * <http://www.openoffice.org/license.html>
25 * for a copy of the LGPLv3 License.
26 *
27 ************************************************************************/
28
29 #include <malloc.h>
30 #include <boost/unordered_map.hpp>
31
32 #include <rtl/alloc.h>
33 #include <osl/mutex.hxx>
34
35 #include <com/sun/star/uno/genfunc.hxx>
36 #include "com/sun/star/uno/RuntimeException.hpp"
37 #include <uno/data.h>
38 #include <typelib/typedescription.hxx>
39
40 #include "bridges/cpp_uno/shared/bridge.hxx"
41 #include "bridges/cpp_uno/shared/cppinterfaceproxy.hxx"
42 #include "bridges/cpp_uno/shared/types.hxx"
43 #include "bridges/cpp_uno/shared/vtablefactory.hxx"
44
45 #include "share.hxx"
46
47 #include <dlfcn.h>
48
49
50 using namespace ::osl;
51 using namespace ::rtl;
52 using namespace ::com::sun::star::uno;
53
54 namespace
55 {
56
57 static typelib_TypeClass cpp2uno_call(
58 bridges::cpp_uno::shared::CppInterfaceProxy* pThis,
59 const typelib_TypeDescription * pMemberTypeDescr,
60 typelib_TypeDescriptionReference * pReturnTypeRef,
61 sal_Int32 nParams, typelib_MethodParameter * pParams,
62 long r8, void ** pCallStack,
63 sal_Int64 * pRegisterReturn /* space for register return */ )
64 {
65 // pCallStack: ret, [return ptr], this, params
66 char * pTopStack = (char *)(pCallStack + 0);
67 char * pCppStack = pTopStack;
68 #if OSL_DEBUG_LEVEL > 2
69 fprintf(stderr, "cpp2uno_call\n");
70 #endif
71 // return
72 typelib_TypeDescription * pReturnTypeDescr = 0;
73 if (pReturnTypeRef)
74 TYPELIB_DANGER_GET( &pReturnTypeDescr, pReturnTypeRef );
75
76 void * pUnoReturn = 0;
77 // complex return ptr: if != 0 && != pUnoReturn, reconversion need
78 void * pCppReturn = 0;
79
80 if (pReturnTypeDescr)
81 {
82 if (bridges::cpp_uno::shared::isSimpleType( pReturnTypeDescr ))
83 {
84 #if OSL_DEBUG_LEVEL > 2
85 fprintf(stderr, "simple return\n");
86 #endif
87 pUnoReturn = pRegisterReturn; // direct way for simple types
88 }
89 else // complex return via ptr (pCppReturn)
90 {
91 #if OSL_DEBUG_LEVEL > 2
92 fprintf(stderr, "complex return\n");
93 #endif
94 pCppReturn = (void *)r8;
95
96 pUnoReturn = (bridges::cpp_uno::shared::relatesToInterfaceType( pReturnTypeDescr )
97 ? alloca( pReturnTypeDescr->nSize )
98 : pCppReturn); // direct way
99 }
100 }
101 // pop this
102 pCppStack += sizeof( void* );
103
104 // stack space
105 OSL_ENSURE( sizeof(void *) == sizeof(sal_Int32),
106 "### unexpected size!" );
107 // parameters
108 void ** pUnoArgs = (void **)alloca( 4 * sizeof(void *) * nParams );
109 void ** pCppArgs = pUnoArgs + nParams;
110 // indizes of values this have to be converted (interface conversion
111 // cpp<=>uno)
112 sal_Int32 * pTempIndizes = (sal_Int32 *)(pUnoArgs + (2 * nParams));
113 // type descriptions for reconversions
114 typelib_TypeDescription ** ppTempParamTypeDescr =
115 (typelib_TypeDescription **)(pUnoArgs + (3 * nParams));
116
117 sal_Int32 nTempIndizes = 0;
118
119 for ( sal_Int32 nPos = 0; nPos < nParams; ++nPos )
120 {
121 const typelib_MethodParameter & rParam = pParams[nPos];
122 typelib_TypeDescription * pParamTypeDescr = 0;
123 TYPELIB_DANGER_GET( &pParamTypeDescr, rParam.pTypeRef );
124
125 if (!rParam.bOut &&
126 bridges::cpp_uno::shared::isSimpleType( pParamTypeDescr ))
127 {
128 switch (pParamTypeDescr->eTypeClass)
129 {
130 case typelib_TypeClass_BYTE:
131 case typelib_TypeClass_BOOLEAN:
132 pCppArgs[nPos] = pCppStack + 3;
133 pUnoArgs[nPos] = pCppStack + 3;
134 break;
135 case typelib_TypeClass_CHAR:
136 case typelib_TypeClass_SHORT:
137 case typelib_TypeClass_UNSIGNED_SHORT:
138 pCppArgs[nPos] = pCppStack + 2;
139 pUnoArgs[nPos] = pCppStack + 2;
140 break;
141 case typelib_TypeClass_HYPER:
142 case typelib_TypeClass_UNSIGNED_HYPER:
143 case typelib_TypeClass_DOUBLE:
144 pCppArgs[nPos] = pCppStack;
145 pUnoArgs[nPos] = pCppStack;
146 pCppStack += sizeof(sal_Int32); // extra long
147 break;
148 default:
149 pCppArgs[nPos] = pCppStack;
150 pUnoArgs[nPos] = pCppStack;
151 break;
152 }
153 // no longer needed
154 TYPELIB_DANGER_RELEASE( pParamTypeDescr );
155 }
156 else // ptr to complex value | ref
157 {
158 pCppArgs[nPos] = *(void **)pCppStack;
159
160 if (! rParam.bIn) // is pure out
161 {
162 // uno out is unconstructed mem!
163 pUnoArgs[nPos] = alloca( pParamTypeDescr->nSize );
164 pTempIndizes[nTempIndizes] = nPos;
165 // will be released at reconversion
166 ppTempParamTypeDescr[nTempIndizes++] = pParamTypeDescr;
167 }
168 // is in/inout
169 else if (bridges::cpp_uno::shared::relatesToInterfaceType(
170 pParamTypeDescr ))
171 {
172 uno_copyAndConvertData( pUnoArgs[nPos] = alloca( pParamTypeDescr->nSize ),
173 *(void **)pCppStack, pParamTypeDescr,
174 pThis->getBridge()->getCpp2Uno() );
175 pTempIndizes[nTempIndizes] = nPos; // has to be reconverted
176 // will be released at reconversion
177 ppTempParamTypeDescr[nTempIndizes++] = pParamTypeDescr;
178 }
179 else // direct way
180 {
181 pUnoArgs[nPos] = *(void **)pCppStack;
182 // no longer needed
183 TYPELIB_DANGER_RELEASE( pParamTypeDescr );
184 }
185 }
186 pCppStack += sizeof(sal_Int32); // standard parameter length
187 }
188
189 // ExceptionHolder
190 uno_Any aUnoExc; // Any will be constructed by callee
191 uno_Any * pUnoExc = &aUnoExc;
192
193 #if OSL_DEBUG_LEVEL > 2
194 fprintf(stderr, "before dispatch\n");
195 #endif
196 // invoke uno dispatch call
197 (*pThis->getUnoI()->pDispatcher)(
198 pThis->getUnoI(), pMemberTypeDescr, pUnoReturn, pUnoArgs, &pUnoExc );
199
200 #if OSL_DEBUG_LEVEL > 2
201 fprintf(stderr, "after dispatch\n");
202 #endif
203
204 // in case an exception occurred...
205 if (pUnoExc)
206 {
207 // destruct temporary in/inout params
208 for ( ; nTempIndizes--; )
209 {
210 sal_Int32 nIndex = pTempIndizes[nTempIndizes];
211
212 if (pParams[nIndex].bIn) // is in/inout => was constructed
213 uno_destructData( pUnoArgs[nIndex],
214 ppTempParamTypeDescr[nTempIndizes], 0 );
215 TYPELIB_DANGER_RELEASE( ppTempParamTypeDescr[nTempIndizes] );
216 }
217 if (pReturnTypeDescr)
218 TYPELIB_DANGER_RELEASE( pReturnTypeDescr );
219
220 CPPU_CURRENT_NAMESPACE::raiseException( &aUnoExc,
221 pThis->getBridge()->getUno2Cpp() ); // has to destruct the any
222 // is here for dummy
223 return typelib_TypeClass_VOID;
224 }
225 else // else no exception occurred...
226 {
227 // temporary params
228 for ( ; nTempIndizes--; )
229 {
230 sal_Int32 nIndex = pTempIndizes[nTempIndizes];
231 typelib_TypeDescription * pParamTypeDescr =
232 ppTempParamTypeDescr[nTempIndizes];
233
234 if (pParams[nIndex].bOut) // inout/out
235 {
236 // convert and assign
237 uno_destructData( pCppArgs[nIndex], pParamTypeDescr,
238 cpp_release );
239 uno_copyAndConvertData( pCppArgs[nIndex], pUnoArgs[nIndex],
240 pParamTypeDescr, pThis->getBridge()->getUno2Cpp() );
241 }
242 // destroy temp uno param
243 uno_destructData( pUnoArgs[nIndex], pParamTypeDescr, 0 );
244
245 TYPELIB_DANGER_RELEASE( pParamTypeDescr );
246 }
247 // return
248 if (pCppReturn) // has complex return
249 {
250 if (pUnoReturn != pCppReturn) // needs reconversion
251 {
252 uno_copyAndConvertData( pCppReturn, pUnoReturn,
253 pReturnTypeDescr, pThis->getBridge()->getUno2Cpp() );
254 // destroy temp uno return
255 uno_destructData( pUnoReturn, pReturnTypeDescr, 0 );
256 }
257 // complex return ptr is set to return reg
258 *(void **)pRegisterReturn = pCppReturn;
259 }
260 if (pReturnTypeDescr)
261 {
262 typelib_TypeClass eRet =
263 (typelib_TypeClass)pReturnTypeDescr->eTypeClass;
264 TYPELIB_DANGER_RELEASE( pReturnTypeDescr );
265 return eRet;
266 }
267 else
268 return typelib_TypeClass_VOID;
269 }
270 }
271
272
273 //=====================================================================
274 static typelib_TypeClass cpp_mediate(
275 sal_Int32 nFunctionIndex, sal_Int32 nVtableOffset,
276 long sp, long r8,
277 sal_Int64 * pRegisterReturn /* space for register return */ )
278 {
279 void ** pCallStack = (void**)(sp);
280 #if OSL_DEBUG_LEVEL > 2
281 fprintf(stderr, "cpp_mediate with\n");
282 fprintf(stderr, "%x %x\n", nFunctionIndex, nVtableOffset);
283 fprintf(stderr, "and %x %x\n", pCallStack, pRegisterReturn);
284 fprintf(stderr, "and %x %x\n", pCallStack[0], pCallStack[1]);
285 #endif
286 OSL_ENSURE( sizeof(sal_Int32)==sizeof(void *), "### unexpected!" );
287
288 void *pThis = pCallStack[0];
289
290 pThis = static_cast< char * >(pThis) - nVtableOffset;
291
292 bridges::cpp_uno::shared::CppInterfaceProxy * pCppI =
293 bridges::cpp_uno::shared::CppInterfaceProxy::castInterfaceToProxy(
294 pThis);
295
296 typelib_InterfaceTypeDescription * pTypeDescr = pCppI->getTypeDescr();
297
298 OSL_ENSURE( nFunctionIndex < pTypeDescr->nMapFunctionIndexToMemberIndex,
299 "### illegal vtable index!" );
300 if (nFunctionIndex >= pTypeDescr->nMapFunctionIndexToMemberIndex)
301 {
302 throw RuntimeException(
303 OUString( RTL_CONSTASCII_USTRINGPARAM( "illegal vtable index!" )),
304 (XInterface *)pCppI );
305 }
306
307 // determine called method
308 OSL_ENSURE( nFunctionIndex < pTypeDescr->nMapFunctionIndexToMemberIndex,
309 "### illegal vtable index!" );
310 sal_Int32 nMemberPos =
311 pTypeDescr->pMapFunctionIndexToMemberIndex[nFunctionIndex];
312 OSL_ENSURE( nMemberPos < pTypeDescr->nAllMembers,
313 "### illegal member index!" );
314
315 TypeDescription aMemberDescr( pTypeDescr->ppAllMembers[nMemberPos] );
316
317 typelib_TypeClass eRet;
318 switch (aMemberDescr.get()->eTypeClass)
319 {
320 case typelib_TypeClass_INTERFACE_ATTRIBUTE:
321 {
322 if (pTypeDescr->pMapMemberIndexToFunctionIndex[nMemberPos] ==
323 nFunctionIndex)
324 {
325 // is GET method
326 eRet = cpp2uno_call(
327 pCppI, aMemberDescr.get(),
328 ((typelib_InterfaceAttributeTypeDescription *)aMemberDescr.get())->pAttributeTypeRef,
329 0, 0, // no params
330 r8, pCallStack, pRegisterReturn );
331 }
332 else
333 {
334 // is SET method
335 typelib_MethodParameter aParam;
336 aParam.pTypeRef =
337 ((typelib_InterfaceAttributeTypeDescription *)aMemberDescr.get())->pAttributeTypeRef;
338 aParam.bIn = sal_True;
339 aParam.bOut = sal_False;
340
341 eRet = cpp2uno_call(
342 pCppI, aMemberDescr.get(),
343 0, // indicates void return
344 1, &aParam,
345 r8, pCallStack, pRegisterReturn );
346 }
347 break;
348 }
349 case typelib_TypeClass_INTERFACE_METHOD:
350 {
351 // is METHOD
352 switch (nFunctionIndex)
353 {
354 case 1: // acquire()
355 pCppI->acquireProxy(); // non virtual call!
356 eRet = typelib_TypeClass_VOID;
357 break;
358 case 2: // release()
359 pCppI->releaseProxy(); // non virtual call!
360 eRet = typelib_TypeClass_VOID;
361 break;
362 case 0: // queryInterface() opt
363 {
364 typelib_TypeDescription * pTD = 0;
365 TYPELIB_DANGER_GET(&pTD,
366 reinterpret_cast<Type *>(pCallStack[1])->getTypeLibType());
367 if (pTD)
368 {
369 XInterface * pInterface = 0;
370 (*pCppI->getBridge()->getCppEnv()->getRegisteredInterface)(
371 pCppI->getBridge()->getCppEnv(),
372 (void **)&pInterface, pCppI->getOid().pData,
373 (typelib_InterfaceTypeDescription *)pTD );
374
375 if (pInterface)
376 {
377 ::uno_any_construct(
378 reinterpret_cast< uno_Any * >( r8 ),
379 &pInterface, pTD, cpp_acquire );
380 pInterface->release();
381 TYPELIB_DANGER_RELEASE( pTD );
382 *(void **)pRegisterReturn = (void*)r8;
383 eRet = typelib_TypeClass_ANY;
384 break;
385 }
386 TYPELIB_DANGER_RELEASE( pTD );
387 }
388 } // else perform queryInterface()
389 default:
390 eRet = cpp2uno_call(
391 pCppI, aMemberDescr.get(),
392 ((typelib_InterfaceMethodTypeDescription *)aMemberDescr.get())->pReturnTypeRef,
393 ((typelib_InterfaceMethodTypeDescription *)aMemberDescr.get())->nParams,
394 ((typelib_InterfaceMethodTypeDescription *)aMemberDescr.get())->pParams,
395 r8, pCallStack, pRegisterReturn );
396 }
397 break;
398 }
399 default:
400 {
401 throw RuntimeException(
402 OUString( RTL_CONSTASCII_USTRINGPARAM( "no member description found!" )),
403 (XInterface *)pCppI );
404 }
405 }
406
407 return eRet;
408 }
409 }
410
411 //=======================================================================
412 /**
413 * is called on incoming vtable calls
414 * (called by asm snippets)
415 */
416
417 extern "C" sal_Int64 cpp_vtable_call( long firstonstack )
418 {
419 register long d0 asm("d0");
420 long functionIndex = d0;
421
422 register long a1 asm("a1");
423 long r8 = a1;
424
425 register long d1 asm("d1");
426 long vtableOffset = d1;
427
428 long sp = (long)&firstonstack;
429
430 sal_Int64 nRegReturn;
431 cpp_mediate( functionIndex, vtableOffset, sp, r8, &nRegReturn );
432 return nRegReturn;
433 }
434
435 namespace
436 {
437 const int codeSnippetSize = 20;
438
439 //some m68k info : http://www2.biglobe.ne.jp/~inaba/trampolines.html
440
441 unsigned char *codeSnippet(unsigned char* code, sal_Int32 functionIndex,
442 sal_Int32 vtableOffset)
443 {
444 unsigned char * p = code;
445 *(short *)&p[0] = 0x203C; //movel functionIndex,d0
446 *(long *)&p[2] = functionIndex;
447 *(short *)&p[6] = 0x223C; //movel functionIndex,d1
448 *(long *)&p[8] = vtableOffset;
449 *(short *)&p[12] = 0x4EF9; //jmp cpp_vtable_call
450 *(long *)&p[14] = (long)&cpp_vtable_call;
451 *(short *)&p[18] = 0x4E71; //nop
452 return code + codeSnippetSize;
453 }
454 }
455
456 struct bridges::cpp_uno::shared::VtableFactory::Slot { void * fn; };
457
458 bridges::cpp_uno::shared::VtableFactory::Slot *
459 bridges::cpp_uno::shared::VtableFactory::mapBlockToVtable(void * block)
460 {
461 return static_cast< Slot * >(block) + 2;
462 }
463
464 sal_Size bridges::cpp_uno::shared::VtableFactory::getBlockSize(
465 sal_Int32 slotCount)
466 {
467 return (slotCount + 2) * sizeof (Slot) + slotCount * codeSnippetSize;
468 }
469
470 bridges::cpp_uno::shared::VtableFactory::Slot *
471 bridges::cpp_uno::shared::VtableFactory::initializeBlock(
472 void * block, sal_Int32 slotCount)
473 {
474 Slot * slots = mapBlockToVtable(block);
475 slots[-2].fn = 0;
476 slots[-1].fn = 0;
477 return slots + slotCount;
478 }
479
480 unsigned char * bridges::cpp_uno::shared::VtableFactory::addLocalFunctions(
481 Slot ** slots, unsigned char * code, sal_PtrDiff writetoexecdiff,
482 typelib_InterfaceTypeDescription const * type, sal_Int32 functionOffset,
483 sal_Int32 functionCount, sal_Int32 vtableOffset)
484 {
485 (*slots) -= functionCount;
486 Slot * s = *slots;
487 for (sal_Int32 i = 0; i < type->nMembers; ++i)
488 {
489 typelib_TypeDescription * member = 0;
490 TYPELIB_DANGER_GET(&member, type->ppMembers[i]);
491 OSL_ASSERT(member != 0);
492 switch (member->eTypeClass)
493 {
494 case typelib_TypeClass_INTERFACE_ATTRIBUTE:
495 // Getter:
496 (s++)->fn = code + writetoexecdiff;
497 code = codeSnippet(code, functionOffset++, vtableOffset);
498 // Setter:
499 if (!reinterpret_cast<
500 typelib_InterfaceAttributeTypeDescription * >(
501 member)->bReadOnly)
502 {
503 (s++)->fn = code + writetoexecdiff;
504 code = codeSnippet(code, functionOffset++, vtableOffset);
505 }
506 break;
507 case typelib_TypeClass_INTERFACE_METHOD:
508 {
509 (s++)->fn = code + writetoexecdiff;
510
511 typelib_InterfaceMethodTypeDescription *pMethodTD =
512 reinterpret_cast<
513 typelib_InterfaceMethodTypeDescription * >(member);
514
515 code = codeSnippet(code, functionOffset++, vtableOffset);
516 break;
517 }
518 default:
519 OSL_ASSERT(false);
520 break;
521 }
522 TYPELIB_DANGER_RELEASE(member);
523 }
524 return code;
525 }
526
527 void bridges::cpp_uno::shared::VtableFactory::flushCode(
528 unsigned char const * /*beg*/, unsigned char const * /*end*/)
529 {
530 }
531
532 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
FREE OFFICE SUITE