161dff127SAndrew Rist /**************************************************************
2cdf0e10cSrcweir *
361dff127SAndrew Rist * Licensed to the Apache Software Foundation (ASF) under one
461dff127SAndrew Rist * or more contributor license agreements. See the NOTICE file
561dff127SAndrew Rist * distributed with this work for additional information
661dff127SAndrew Rist * regarding copyright ownership. The ASF licenses this file
761dff127SAndrew Rist * to you under the Apache License, Version 2.0 (the
861dff127SAndrew Rist * "License"); you may not use this file except in compliance
961dff127SAndrew Rist * with the License. You may obtain a copy of the License at
1061dff127SAndrew Rist *
1161dff127SAndrew Rist * http://www.apache.org/licenses/LICENSE-2.0
1261dff127SAndrew Rist *
1361dff127SAndrew Rist * Unless required by applicable law or agreed to in writing,
1461dff127SAndrew Rist * software distributed under the License is distributed on an
1561dff127SAndrew Rist * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
1661dff127SAndrew Rist * KIND, either express or implied. See the License for the
1761dff127SAndrew Rist * specific language governing permissions and limitations
1861dff127SAndrew Rist * under the License.
1961dff127SAndrew Rist *
2061dff127SAndrew Rist *************************************************************/
2161dff127SAndrew Rist
2261dff127SAndrew Rist
23cdf0e10cSrcweir
24cdf0e10cSrcweir // MARKER(update_precomp.py): autogen include statement, do not remove
25cdf0e10cSrcweir #include "precompiled_bridges.hxx"
26cdf0e10cSrcweir
27*de2c434cSPedro Giffuni #include <cstddef>
28*de2c434cSPedro Giffuni #include <exception>
29*de2c434cSPedro Giffuni #include <typeinfo>
30*de2c434cSPedro Giffuni
31cdf0e10cSrcweir #include <stdio.h>
32*de2c434cSPedro Giffuni #include <string.h>
33cdf0e10cSrcweir #include <dlfcn.h>
34cdf0e10cSrcweir #include <cxxabi.h>
35cdf0e10cSrcweir #include <hash_map>
36cdf0e10cSrcweir #include <sys/param.h>
37cdf0e10cSrcweir
38cdf0e10cSrcweir #include <rtl/strbuf.hxx>
39cdf0e10cSrcweir #include <rtl/ustrbuf.hxx>
40cdf0e10cSrcweir #include <osl/diagnose.h>
41cdf0e10cSrcweir #include <osl/mutex.hxx>
42cdf0e10cSrcweir
43cdf0e10cSrcweir #include <com/sun/star/uno/genfunc.hxx>
44cdf0e10cSrcweir #include "com/sun/star/uno/RuntimeException.hpp"
45cdf0e10cSrcweir #include <typelib/typedescription.hxx>
46cdf0e10cSrcweir #include <uno/any2.h>
47cdf0e10cSrcweir
48cdf0e10cSrcweir #include "share.hxx"
49cdf0e10cSrcweir
50cdf0e10cSrcweir
51cdf0e10cSrcweir using namespace ::std;
52cdf0e10cSrcweir using namespace ::osl;
53cdf0e10cSrcweir using namespace ::rtl;
54cdf0e10cSrcweir using namespace ::com::sun::star::uno;
55cdf0e10cSrcweir using namespace ::__cxxabiv1;
56cdf0e10cSrcweir
57cdf0e10cSrcweir
58cdf0e10cSrcweir namespace CPPU_CURRENT_NAMESPACE
59cdf0e10cSrcweir {
60cdf0e10cSrcweir
dummy_can_throw_anything(char const *)61cdf0e10cSrcweir void dummy_can_throw_anything( char const * )
62cdf0e10cSrcweir {
63cdf0e10cSrcweir }
64cdf0e10cSrcweir
65cdf0e10cSrcweir //==================================================================================================
toUNOname(char const * p)66cdf0e10cSrcweir static OUString toUNOname( char const * p ) SAL_THROW( () )
67cdf0e10cSrcweir {
68cdf0e10cSrcweir #if OSL_DEBUG_LEVEL > 1
69cdf0e10cSrcweir char const * start = p;
70cdf0e10cSrcweir #endif
71cdf0e10cSrcweir
72cdf0e10cSrcweir // example: N3com3sun4star4lang24IllegalArgumentExceptionE
73cdf0e10cSrcweir
74cdf0e10cSrcweir OUStringBuffer buf( 64 );
75cdf0e10cSrcweir OSL_ASSERT( 'N' == *p );
76cdf0e10cSrcweir ++p; // skip N
77cdf0e10cSrcweir
78cdf0e10cSrcweir while ('E' != *p)
79cdf0e10cSrcweir {
80cdf0e10cSrcweir // read chars count
81cdf0e10cSrcweir long n = (*p++ - '0');
82cdf0e10cSrcweir while ('0' <= *p && '9' >= *p)
83cdf0e10cSrcweir {
84cdf0e10cSrcweir n *= 10;
85cdf0e10cSrcweir n += (*p++ - '0');
86cdf0e10cSrcweir }
87cdf0e10cSrcweir buf.appendAscii( p, n );
88cdf0e10cSrcweir p += n;
89cdf0e10cSrcweir if ('E' != *p)
90cdf0e10cSrcweir buf.append( (sal_Unicode)'.' );
91cdf0e10cSrcweir }
92cdf0e10cSrcweir
93cdf0e10cSrcweir #if OSL_DEBUG_LEVEL > 1
94cdf0e10cSrcweir OUString ret( buf.makeStringAndClear() );
95cdf0e10cSrcweir OString c_ret( OUStringToOString( ret, RTL_TEXTENCODING_ASCII_US ) );
96cdf0e10cSrcweir fprintf( stderr, "> toUNOname(): %s => %s\n", start, c_ret.getStr() );
97cdf0e10cSrcweir return ret;
98cdf0e10cSrcweir #else
99cdf0e10cSrcweir return buf.makeStringAndClear();
100cdf0e10cSrcweir #endif
101cdf0e10cSrcweir }
102cdf0e10cSrcweir
103cdf0e10cSrcweir //==================================================================================================
104cdf0e10cSrcweir class RTTI
105cdf0e10cSrcweir {
106cdf0e10cSrcweir typedef hash_map< OUString, type_info *, OUStringHash > t_rtti_map;
107cdf0e10cSrcweir
108cdf0e10cSrcweir Mutex m_mutex;
109cdf0e10cSrcweir t_rtti_map m_rttis;
110cdf0e10cSrcweir t_rtti_map m_generatedRttis;
111cdf0e10cSrcweir
112cdf0e10cSrcweir void * m_hApp;
113cdf0e10cSrcweir
114cdf0e10cSrcweir public:
115cdf0e10cSrcweir RTTI() SAL_THROW( () );
116cdf0e10cSrcweir ~RTTI() SAL_THROW( () );
117cdf0e10cSrcweir
118cdf0e10cSrcweir type_info * getRTTI( typelib_CompoundTypeDescription * ) SAL_THROW( () );
119cdf0e10cSrcweir };
120cdf0e10cSrcweir //__________________________________________________________________________________________________
RTTI()121cdf0e10cSrcweir RTTI::RTTI() SAL_THROW( () )
122cdf0e10cSrcweir #if __FreeBSD_version < 602103
123cdf0e10cSrcweir : m_hApp( dlopen( 0, RTLD_NOW | RTLD_GLOBAL ) )
124cdf0e10cSrcweir #else
125cdf0e10cSrcweir : m_hApp( dlopen( 0, RTLD_LAZY ) )
126cdf0e10cSrcweir #endif
127cdf0e10cSrcweir {
128cdf0e10cSrcweir }
129cdf0e10cSrcweir //__________________________________________________________________________________________________
~RTTI()130cdf0e10cSrcweir RTTI::~RTTI() SAL_THROW( () )
131cdf0e10cSrcweir {
132cdf0e10cSrcweir dlclose( m_hApp );
133cdf0e10cSrcweir }
134cdf0e10cSrcweir
135cdf0e10cSrcweir //__________________________________________________________________________________________________
getRTTI(typelib_CompoundTypeDescription * pTypeDescr)136cdf0e10cSrcweir type_info * RTTI::getRTTI( typelib_CompoundTypeDescription *pTypeDescr ) SAL_THROW( () )
137cdf0e10cSrcweir {
138cdf0e10cSrcweir type_info * rtti;
139cdf0e10cSrcweir
140cdf0e10cSrcweir OUString const & unoName = *(OUString const *)&pTypeDescr->aBase.pTypeName;
141cdf0e10cSrcweir
142cdf0e10cSrcweir MutexGuard guard( m_mutex );
143cdf0e10cSrcweir t_rtti_map::const_iterator iRttiFind( m_rttis.find( unoName ) );
144cdf0e10cSrcweir if (iRttiFind == m_rttis.end())
145cdf0e10cSrcweir {
146cdf0e10cSrcweir // RTTI symbol
147cdf0e10cSrcweir OStringBuffer buf( 64 );
148cdf0e10cSrcweir buf.append( RTL_CONSTASCII_STRINGPARAM("_ZTIN") );
149cdf0e10cSrcweir sal_Int32 index = 0;
150cdf0e10cSrcweir do
151cdf0e10cSrcweir {
152cdf0e10cSrcweir OUString token( unoName.getToken( 0, '.', index ) );
153cdf0e10cSrcweir buf.append( token.getLength() );
154cdf0e10cSrcweir OString c_token( OUStringToOString( token, RTL_TEXTENCODING_ASCII_US ) );
155cdf0e10cSrcweir buf.append( c_token );
156cdf0e10cSrcweir }
157cdf0e10cSrcweir while (index >= 0);
158cdf0e10cSrcweir buf.append( 'E' );
159cdf0e10cSrcweir
160cdf0e10cSrcweir OString symName( buf.makeStringAndClear() );
161cdf0e10cSrcweir #if __FreeBSD_version < 602103 /* #i22253# */
162cdf0e10cSrcweir rtti = (type_info *)dlsym( RTLD_DEFAULT, symName.getStr() );
163cdf0e10cSrcweir #else
164cdf0e10cSrcweir rtti = (type_info *)dlsym( m_hApp, symName.getStr() );
165cdf0e10cSrcweir #endif
166cdf0e10cSrcweir
167cdf0e10cSrcweir if (rtti)
168cdf0e10cSrcweir {
169cdf0e10cSrcweir pair< t_rtti_map::iterator, bool > insertion(
170cdf0e10cSrcweir m_rttis.insert( t_rtti_map::value_type( unoName, rtti ) ) );
171cdf0e10cSrcweir OSL_ENSURE( insertion.second, "### inserting new rtti failed?!" );
172cdf0e10cSrcweir }
173cdf0e10cSrcweir else
174cdf0e10cSrcweir {
175cdf0e10cSrcweir // try to lookup the symbol in the generated rtti map
176cdf0e10cSrcweir t_rtti_map::const_iterator iFind( m_generatedRttis.find( unoName ) );
177cdf0e10cSrcweir if (iFind == m_generatedRttis.end())
178cdf0e10cSrcweir {
179cdf0e10cSrcweir // we must generate it !
180cdf0e10cSrcweir // symbol and rtti-name is nearly identical,
181cdf0e10cSrcweir // the symbol is prefixed with _ZTI
182cdf0e10cSrcweir char const * rttiName = symName.getStr() +4;
183cdf0e10cSrcweir #if OSL_DEBUG_LEVEL > 1
184cdf0e10cSrcweir fprintf( stderr,"generated rtti for %s\n", rttiName );
185*de2c434cSPedro Giffuni #ifndef __GLIBCXX__ /* #i124421# */
186*de2c434cSPedro Giffuni const OString aCUnoName = OUStringToOString( unoName, RTL_TEXTENCODING_UTF8);
187*de2c434cSPedro Giffuni OSL_TRACE( "TypeInfo for \"%s\" not found and cannot be generated.\n", aCUnoName.getStr());
188*de2c434cSPedro Giffuni #endif /* __GLIBCXX__ */
189cdf0e10cSrcweir #endif
190*de2c434cSPedro Giffuni #ifdef __GLIBCXX__ /* #i124421# */
191cdf0e10cSrcweir if (pTypeDescr->pBaseTypeDescription)
192cdf0e10cSrcweir {
193cdf0e10cSrcweir // ensure availability of base
194cdf0e10cSrcweir type_info * base_rtti = getRTTI(
195cdf0e10cSrcweir (typelib_CompoundTypeDescription *)pTypeDescr->pBaseTypeDescription );
196cdf0e10cSrcweir rtti = new __si_class_type_info(
197cdf0e10cSrcweir strdup( rttiName ), (__class_type_info *)base_rtti );
198cdf0e10cSrcweir }
199cdf0e10cSrcweir else
200cdf0e10cSrcweir {
201cdf0e10cSrcweir // this class has no base class
202cdf0e10cSrcweir rtti = new __class_type_info( strdup( rttiName ) );
203cdf0e10cSrcweir }
204*de2c434cSPedro Giffuni #else /* __GLIBCXX__ */
205*de2c434cSPedro Giffuni rtti = NULL;
206*de2c434cSPedro Giffuni #endif /* __GLIBCXX__ */
207cdf0e10cSrcweir
208cdf0e10cSrcweir pair< t_rtti_map::iterator, bool > insertion(
209cdf0e10cSrcweir m_generatedRttis.insert( t_rtti_map::value_type( unoName, rtti ) ) );
210cdf0e10cSrcweir OSL_ENSURE( insertion.second, "### inserting new generated rtti failed?!" );
211cdf0e10cSrcweir }
212cdf0e10cSrcweir else // taking already generated rtti
213cdf0e10cSrcweir {
214cdf0e10cSrcweir rtti = iFind->second;
215cdf0e10cSrcweir }
216cdf0e10cSrcweir }
217cdf0e10cSrcweir }
218cdf0e10cSrcweir else
219cdf0e10cSrcweir {
220cdf0e10cSrcweir rtti = iRttiFind->second;
221cdf0e10cSrcweir }
222cdf0e10cSrcweir
223cdf0e10cSrcweir return rtti;
224cdf0e10cSrcweir }
225cdf0e10cSrcweir
226cdf0e10cSrcweir //--------------------------------------------------------------------------------------------------
deleteException(void * pExc)227cdf0e10cSrcweir static void deleteException( void * pExc )
228cdf0e10cSrcweir {
229cdf0e10cSrcweir __cxa_exception const * header = ((__cxa_exception const *)pExc - 1);
230cdf0e10cSrcweir typelib_TypeDescription * pTD = 0;
231cdf0e10cSrcweir OUString unoName( toUNOname( header->exceptionType->name() ) );
232cdf0e10cSrcweir ::typelib_typedescription_getByName( &pTD, unoName.pData );
233cdf0e10cSrcweir OSL_ENSURE( pTD, "### unknown exception type! leaving out destruction => leaking!!!" );
234cdf0e10cSrcweir if (pTD)
235cdf0e10cSrcweir {
236cdf0e10cSrcweir ::uno_destructData( pExc, pTD, cpp_release );
237cdf0e10cSrcweir ::typelib_typedescription_release( pTD );
238cdf0e10cSrcweir }
239cdf0e10cSrcweir }
240cdf0e10cSrcweir
241cdf0e10cSrcweir //==================================================================================================
raiseException(uno_Any * pUnoExc,uno_Mapping * pUno2Cpp)242cdf0e10cSrcweir void raiseException( uno_Any * pUnoExc, uno_Mapping * pUno2Cpp )
243cdf0e10cSrcweir {
244cdf0e10cSrcweir #if OSL_DEBUG_LEVEL > 1
245cdf0e10cSrcweir OString cstr(
246cdf0e10cSrcweir OUStringToOString(
247cdf0e10cSrcweir *reinterpret_cast< OUString const * >( &pUnoExc->pType->pTypeName ),
248cdf0e10cSrcweir RTL_TEXTENCODING_ASCII_US ) );
249cdf0e10cSrcweir fprintf( stderr, "> uno exception occured: %s\n", cstr.getStr() );
250cdf0e10cSrcweir #endif
251cdf0e10cSrcweir void * pCppExc;
252cdf0e10cSrcweir type_info * rtti;
253cdf0e10cSrcweir
254cdf0e10cSrcweir {
255cdf0e10cSrcweir // construct cpp exception object
256cdf0e10cSrcweir typelib_TypeDescription * pTypeDescr = 0;
257cdf0e10cSrcweir TYPELIB_DANGER_GET( &pTypeDescr, pUnoExc->pType );
258cdf0e10cSrcweir OSL_ASSERT( pTypeDescr );
259cdf0e10cSrcweir if (! pTypeDescr)
260cdf0e10cSrcweir {
261cdf0e10cSrcweir throw RuntimeException(
262cdf0e10cSrcweir OUString( RTL_CONSTASCII_USTRINGPARAM("cannot get typedescription for type ") ) +
263cdf0e10cSrcweir *reinterpret_cast< OUString const * >( &pUnoExc->pType->pTypeName ),
264cdf0e10cSrcweir Reference< XInterface >() );
265cdf0e10cSrcweir }
266cdf0e10cSrcweir
267cdf0e10cSrcweir pCppExc = __cxa_allocate_exception( pTypeDescr->nSize );
268cdf0e10cSrcweir ::uno_copyAndConvertData( pCppExc, pUnoExc->pData, pTypeDescr, pUno2Cpp );
269cdf0e10cSrcweir
270cdf0e10cSrcweir // destruct uno exception
271cdf0e10cSrcweir ::uno_any_destruct( pUnoExc, 0 );
272cdf0e10cSrcweir // avoiding locked counts
273cdf0e10cSrcweir static RTTI * s_rtti = 0;
274cdf0e10cSrcweir if (! s_rtti)
275cdf0e10cSrcweir {
276cdf0e10cSrcweir MutexGuard guard( Mutex::getGlobalMutex() );
277cdf0e10cSrcweir if (! s_rtti)
278cdf0e10cSrcweir {
279cdf0e10cSrcweir #ifdef LEAK_STATIC_DATA
280cdf0e10cSrcweir s_rtti = new RTTI();
281cdf0e10cSrcweir #else
282cdf0e10cSrcweir static RTTI rtti_data;
283cdf0e10cSrcweir s_rtti = &rtti_data;
284cdf0e10cSrcweir #endif
285cdf0e10cSrcweir }
286cdf0e10cSrcweir }
287cdf0e10cSrcweir rtti = (type_info *)s_rtti->getRTTI( (typelib_CompoundTypeDescription *) pTypeDescr );
288cdf0e10cSrcweir TYPELIB_DANGER_RELEASE( pTypeDescr );
289cdf0e10cSrcweir OSL_ENSURE( rtti, "### no rtti for throwing exception!" );
290cdf0e10cSrcweir if (! rtti)
291cdf0e10cSrcweir {
292cdf0e10cSrcweir throw RuntimeException(
293cdf0e10cSrcweir OUString( RTL_CONSTASCII_USTRINGPARAM("no rtti for type ") ) +
294cdf0e10cSrcweir *reinterpret_cast< OUString const * >( &pUnoExc->pType->pTypeName ),
295cdf0e10cSrcweir Reference< XInterface >() );
296cdf0e10cSrcweir }
297cdf0e10cSrcweir }
298cdf0e10cSrcweir
299cdf0e10cSrcweir __cxa_throw( pCppExc, rtti, deleteException );
300cdf0e10cSrcweir }
301cdf0e10cSrcweir
302cdf0e10cSrcweir //==================================================================================================
fillUnoException(__cxa_exception * header,uno_Any * pUnoExc,uno_Mapping * pCpp2Uno)303cdf0e10cSrcweir void fillUnoException( __cxa_exception * header, uno_Any * pUnoExc, uno_Mapping * pCpp2Uno )
304cdf0e10cSrcweir {
305cdf0e10cSrcweir if (! header)
306cdf0e10cSrcweir {
307cdf0e10cSrcweir RuntimeException aRE(
308cdf0e10cSrcweir OUString( RTL_CONSTASCII_USTRINGPARAM("no exception header!") ),
309cdf0e10cSrcweir Reference< XInterface >() );
310cdf0e10cSrcweir Type const & rType = ::getCppuType( &aRE );
311cdf0e10cSrcweir uno_type_any_constructAndConvert( pUnoExc, &aRE, rType.getTypeLibType(), pCpp2Uno );
312cdf0e10cSrcweir #if OSL_DEBUG_LEVEL > 0
313cdf0e10cSrcweir OString cstr( OUStringToOString( aRE.Message, RTL_TEXTENCODING_ASCII_US ) );
314cdf0e10cSrcweir OSL_ENSURE( 0, cstr.getStr() );
315cdf0e10cSrcweir #endif
316cdf0e10cSrcweir return;
317cdf0e10cSrcweir }
318cdf0e10cSrcweir
319cdf0e10cSrcweir typelib_TypeDescription * pExcTypeDescr = 0;
320cdf0e10cSrcweir OUString unoName( toUNOname( header->exceptionType->name() ) );
321cdf0e10cSrcweir #if OSL_DEBUG_LEVEL > 1
322cdf0e10cSrcweir OString cstr_unoName( OUStringToOString( unoName, RTL_TEXTENCODING_ASCII_US ) );
323cdf0e10cSrcweir fprintf( stderr, "> c++ exception occured: %s\n", cstr_unoName.getStr() );
324cdf0e10cSrcweir #endif
325cdf0e10cSrcweir typelib_typedescription_getByName( &pExcTypeDescr, unoName.pData );
326cdf0e10cSrcweir if (0 == pExcTypeDescr)
327cdf0e10cSrcweir {
328cdf0e10cSrcweir RuntimeException aRE(
329cdf0e10cSrcweir OUString( RTL_CONSTASCII_USTRINGPARAM("exception type not found: ") ) + unoName,
330cdf0e10cSrcweir Reference< XInterface >() );
331cdf0e10cSrcweir Type const & rType = ::getCppuType( &aRE );
332cdf0e10cSrcweir uno_type_any_constructAndConvert( pUnoExc, &aRE, rType.getTypeLibType(), pCpp2Uno );
333cdf0e10cSrcweir #if OSL_DEBUG_LEVEL > 0
334cdf0e10cSrcweir OString cstr( OUStringToOString( aRE.Message, RTL_TEXTENCODING_ASCII_US ) );
335cdf0e10cSrcweir OSL_ENSURE( 0, cstr.getStr() );
336cdf0e10cSrcweir #endif
337cdf0e10cSrcweir }
338cdf0e10cSrcweir else
339cdf0e10cSrcweir {
340cdf0e10cSrcweir // construct uno exception any
341cdf0e10cSrcweir uno_any_constructAndConvert( pUnoExc, header->adjustedPtr, pExcTypeDescr, pCpp2Uno );
342cdf0e10cSrcweir typelib_typedescription_release( pExcTypeDescr );
343cdf0e10cSrcweir }
344cdf0e10cSrcweir }
345cdf0e10cSrcweir
346cdf0e10cSrcweir }
347cdf0e10cSrcweir
348