1 /*************************************************************************
3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
5 * Copyright 2008 by Sun Microsystems, Inc.
7 * OpenOffice.org - a multi-platform office productivity suite
9 * $RCSfile: except.cxx,v $
12 * This file is part of OpenOffice.org.
14 * OpenOffice.org is free software: you can redistribute it and/or modify
15 * it under the terms of the GNU Lesser General Public License version 3
16 * only, as published by the Free Software Foundation.
18 * OpenOffice.org is distributed in the hope that it will be useful,
19 * but WITHOUT ANY WARRANTY; without even the implied warranty of
20 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21 * GNU Lesser General Public License version 3 for more details
22 * (a copy is included in the LICENSE file that accompanied this code).
24 * You should have received a copy of the GNU Lesser General Public License
25 * version 3 along with OpenOffice.org. If not, see
26 * <http://www.openoffice.org/license.html>
27 * for a copy of the LGPLv3 License.
29 ************************************************************************/
31 // MARKER(update_precomp.py): autogen include statement, do not remove
32 #include "precompiled_bridges.hxx"
40 #include <rtl/strbuf.hxx>
41 #include <rtl/ustrbuf.hxx>
42 #include <osl/diagnose.h>
43 #include <osl/mutex.hxx>
45 #include <com/sun/star/uno/genfunc.hxx>
46 #include <typelib/typedescription.hxx>
52 using namespace ::std
;
53 using namespace ::osl
;
54 using namespace ::rtl
;
55 using namespace ::com::sun::star::uno
;
56 using namespace ::__cxxabiv1
;
59 namespace CPPU_CURRENT_NAMESPACE
62 void dummy_can_throw_anything( char const * )
66 //==================================================================================================
67 static OUString
toUNOname( char const * p
) SAL_THROW( () )
69 #if OSL_DEBUG_LEVEL > 1
70 char const * start
= p
;
73 // example: N3com3sun4star4lang24IllegalArgumentExceptionE
75 OUStringBuffer
buf( 64 );
76 OSL_ASSERT( 'N' == *p
);
82 long n
= (*p
++ - '0');
83 while ('0' <= *p
&& '9' >= *p
)
88 buf
.appendAscii( p
, n
);
91 buf
.append( (sal_Unicode
)'.' );
94 #if OSL_DEBUG_LEVEL > 1
95 OUString
ret( buf
.makeStringAndClear() );
96 OString
c_ret( OUStringToOString( ret
, RTL_TEXTENCODING_ASCII_US
) );
97 fprintf( stderr
, "> toUNOname(): %s => %s\n", start
, c_ret
.getStr() );
100 return buf
.makeStringAndClear();
104 //==================================================================================================
107 typedef hash_map
< OUString
, type_info
*, OUStringHash
> t_rtti_map
;
111 t_rtti_map m_generatedRttis
;
116 RTTI() SAL_THROW( () );
117 ~RTTI() SAL_THROW( () );
119 type_info
* getRTTI( typelib_CompoundTypeDescription
* ) SAL_THROW( () );
121 //__________________________________________________________________________________________________
122 RTTI::RTTI() SAL_THROW( () )
123 : m_hApp( dlopen( 0, RTLD_LAZY
) )
126 //__________________________________________________________________________________________________
127 RTTI::~RTTI() SAL_THROW( () )
132 //__________________________________________________________________________________________________
133 type_info
* RTTI::getRTTI( typelib_CompoundTypeDescription
*pTypeDescr
) SAL_THROW( () )
137 OUString
const & unoName
= *(OUString
const *)&pTypeDescr
->aBase
.pTypeName
;
139 MutexGuard
guard( m_mutex
);
140 t_rtti_map::const_iterator
iRttiFind( m_rttis
.find( unoName
) );
141 if (iRttiFind
== m_rttis
.end())
144 OStringBuffer
buf( 64 );
145 buf
.append( RTL_CONSTASCII_STRINGPARAM("_ZTIN") );
149 OUString
token( unoName
.getToken( 0, '.', index
) );
150 buf
.append( token
.getLength() );
151 OString
c_token( OUStringToOString( token
, RTL_TEXTENCODING_ASCII_US
) );
152 buf
.append( c_token
);
157 OString
symName( buf
.makeStringAndClear() );
158 rtti
= (type_info
*)dlsym( m_hApp
, symName
.getStr() );
162 pair
< t_rtti_map::iterator
, bool > insertion(
163 m_rttis
.insert( t_rtti_map::value_type( unoName
, rtti
) ) );
164 OSL_ENSURE( insertion
.second
, "### inserting new rtti failed?!" );
168 // try to lookup the symbol in the generated rtti map
169 t_rtti_map::const_iterator
iFind( m_generatedRttis
.find( unoName
) );
170 if (iFind
== m_generatedRttis
.end())
172 // we must generate it !
173 // symbol and rtti-name is nearly identical,
174 // the symbol is prefixed with _ZTI
175 char const * rttiName
= symName
.getStr() +4;
176 #if OSL_DEBUG_LEVEL > 1
177 fprintf( stderr
,"generated rtti for %s\n", rttiName
);
179 if (pTypeDescr
->pBaseTypeDescription
)
181 // ensure availability of base
182 type_info
* base_rtti
= getRTTI(
183 (typelib_CompoundTypeDescription
*)pTypeDescr
->pBaseTypeDescription
);
184 rtti
= new __si_class_type_info(
185 strdup( rttiName
), (__class_type_info
*)base_rtti
);
189 // this class has no base class
190 rtti
= new __class_type_info( strdup( rttiName
) );
193 pair
< t_rtti_map::iterator
, bool > insertion(
194 m_generatedRttis
.insert( t_rtti_map::value_type( unoName
, rtti
) ) );
195 OSL_ENSURE( insertion
.second
, "### inserting new generated rtti failed?!" );
197 else // taking already generated rtti
199 rtti
= iFind
->second
;
205 rtti
= iRttiFind
->second
;
211 //--------------------------------------------------------------------------------------------------
212 static void deleteException( void * pExc
)
214 __cxa_exception
const * header
= ((__cxa_exception
const *)pExc
- 1);
215 typelib_TypeDescription
* pTD
= 0;
216 OUString
unoName( toUNOname( header
->exceptionType
->name() ) );
217 ::typelib_typedescription_getByName( &pTD
, unoName
.pData
);
218 OSL_ENSURE( pTD
, "### unknown exception type! leaving out destruction => leaking!!!" );
221 ::uno_destructData( pExc
, pTD
, cpp_release
);
222 ::typelib_typedescription_release( pTD
);
226 //==================================================================================================
227 void raiseException( uno_Any
* pUnoExc
, uno_Mapping
* pUno2Cpp
)
233 // construct cpp exception object
234 typelib_TypeDescription
* pTypeDescr
= 0;
235 TYPELIB_DANGER_GET( &pTypeDescr
, pUnoExc
->pType
);
236 OSL_ASSERT( pTypeDescr
);
240 pCppExc
= __cxa_allocate_exception( pTypeDescr
->nSize
);
241 ::uno_copyAndConvertData( pCppExc
, pUnoExc
->pData
, pTypeDescr
, pUno2Cpp
);
243 // destruct uno exception
244 ::uno_any_destruct( pUnoExc
, 0 );
245 // avoiding locked counts
246 static RTTI
* s_rtti
= 0;
249 MutexGuard
guard( Mutex::getGlobalMutex() );
252 #ifdef LEAK_STATIC_DATA
255 static RTTI rtti_data
;
260 rtti
= (type_info
*)s_rtti
->getRTTI( (typelib_CompoundTypeDescription
*) pTypeDescr
);
261 TYPELIB_DANGER_RELEASE( pTypeDescr
);
262 OSL_ENSURE( rtti
, "### no rtti for throwing exception!" );
267 __cxa_throw( pCppExc
, rtti
, deleteException
);
270 //==================================================================================================
271 void fillUnoException( __cxa_exception
* header
, uno_Any
* pExc
, uno_Mapping
* pCpp2Uno
)
273 OSL_ENSURE( header
, "### no exception header!!!" );
277 typelib_TypeDescription
* pExcTypeDescr
= 0;
278 OUString
unoName( toUNOname( header
->exceptionType
->name() ) );
279 ::typelib_typedescription_getByName( &pExcTypeDescr
, unoName
.pData
);
280 OSL_ENSURE( pExcTypeDescr
, "### can not get type description for exception!!!" );
284 // construct uno exception any
285 ::uno_any_constructAndConvert( pExc
, header
->adjustedPtr
, pExcTypeDescr
, pCpp2Uno
);
286 ::typelib_typedescription_release( pExcTypeDescr
);