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 #include <stdio.h> 25cdf0e10cSrcweir #include <string.h> 26cdf0e10cSrcweir #include <dlfcn.h> 27cdf0e10cSrcweir #include <cxxabi.h> 28cdf0e10cSrcweir #include <hash_map> 29cdf0e10cSrcweir 30cdf0e10cSrcweir #include <rtl/strbuf.hxx> 31cdf0e10cSrcweir #include <rtl/ustrbuf.hxx> 32cdf0e10cSrcweir #include <osl/diagnose.h> 33cdf0e10cSrcweir #include <osl/mutex.hxx> 34cdf0e10cSrcweir 35cdf0e10cSrcweir #include <com/sun/star/uno/genfunc.hxx> 36cdf0e10cSrcweir #include "com/sun/star/uno/RuntimeException.hpp" 37cdf0e10cSrcweir #include <typelib/typedescription.hxx> 38cdf0e10cSrcweir #include <uno/any2.h> 39cdf0e10cSrcweir 40cdf0e10cSrcweir #include "share.hxx" 41cdf0e10cSrcweir 42cdf0e10cSrcweir 43cdf0e10cSrcweir using namespace ::std; 44cdf0e10cSrcweir using namespace ::osl; 45cdf0e10cSrcweir using namespace ::rtl; 46cdf0e10cSrcweir using namespace ::com::sun::star::uno; 47cdf0e10cSrcweir using namespace ::__cxxabiv1; 48cdf0e10cSrcweir 49cdf0e10cSrcweir extern sal_Int32 * pHack; 50cdf0e10cSrcweir extern sal_Int32 nHack; 51cdf0e10cSrcweir 52cdf0e10cSrcweir namespace CPPU_CURRENT_NAMESPACE 53cdf0e10cSrcweir { dummy_can_throw_anything(char const *)54cdf0e10cSrcweir void dummy_can_throw_anything( char const * ) 55cdf0e10cSrcweir { 56cdf0e10cSrcweir } 57cdf0e10cSrcweir 58cdf0e10cSrcweir //=================================================================== toUNOname(char const * p)59cdf0e10cSrcweir static OUString toUNOname( char const * p ) SAL_THROW( () ) 60cdf0e10cSrcweir { 61cdf0e10cSrcweir #if OSL_DEBUG_LEVEL > 1 62cdf0e10cSrcweir char const * start = p; 63cdf0e10cSrcweir #endif 64cdf0e10cSrcweir 65cdf0e10cSrcweir // example: N3com3sun4star4lang24IllegalArgumentExceptionE 66cdf0e10cSrcweir 67cdf0e10cSrcweir OUStringBuffer buf( 64 ); 68cdf0e10cSrcweir OSL_ASSERT( 'N' == *p ); 69cdf0e10cSrcweir ++p; // skip N 70cdf0e10cSrcweir 71cdf0e10cSrcweir while ('E' != *p) 72cdf0e10cSrcweir { 73cdf0e10cSrcweir // read chars count 74cdf0e10cSrcweir long n = (*p++ - '0'); 75cdf0e10cSrcweir while ('0' <= *p && '9' >= *p) 76cdf0e10cSrcweir { 77cdf0e10cSrcweir n *= 10; 78cdf0e10cSrcweir n += (*p++ - '0'); 79cdf0e10cSrcweir } 80cdf0e10cSrcweir buf.appendAscii( p, n ); 81cdf0e10cSrcweir p += n; 82cdf0e10cSrcweir if ('E' != *p) 83cdf0e10cSrcweir buf.append( (sal_Unicode)'.' ); 84cdf0e10cSrcweir } 85cdf0e10cSrcweir 86cdf0e10cSrcweir #if OSL_DEBUG_LEVEL > 1 87cdf0e10cSrcweir OUString ret( buf.makeStringAndClear() ); 88cdf0e10cSrcweir OString c_ret( OUStringToOString( ret, RTL_TEXTENCODING_ASCII_US ) ); 89cdf0e10cSrcweir fprintf( stderr, "> toUNOname(): %s => %s\n", start, c_ret.getStr() ); 90cdf0e10cSrcweir return ret; 91cdf0e10cSrcweir #else 92cdf0e10cSrcweir return buf.makeStringAndClear(); 93cdf0e10cSrcweir #endif 94cdf0e10cSrcweir } 95cdf0e10cSrcweir 96cdf0e10cSrcweir //===================================================================== 97cdf0e10cSrcweir class RTTI 98cdf0e10cSrcweir { 99cdf0e10cSrcweir typedef hash_map< OUString, type_info *, OUStringHash > t_rtti_map; 100cdf0e10cSrcweir 101cdf0e10cSrcweir Mutex m_mutex; 102cdf0e10cSrcweir t_rtti_map m_rttis; 103cdf0e10cSrcweir t_rtti_map m_generatedRttis; 104cdf0e10cSrcweir 105cdf0e10cSrcweir void * m_hApp; 106cdf0e10cSrcweir 107cdf0e10cSrcweir public: 108cdf0e10cSrcweir RTTI() SAL_THROW( () ); 109cdf0e10cSrcweir ~RTTI() SAL_THROW( () ); 110cdf0e10cSrcweir 111cdf0e10cSrcweir type_info * getRTTI(typelib_CompoundTypeDescription *) SAL_THROW( () ); 112cdf0e10cSrcweir }; 113cdf0e10cSrcweir //____________________________________________________________________ RTTI()114cdf0e10cSrcweir RTTI::RTTI() SAL_THROW( () ) 115cdf0e10cSrcweir : m_hApp( dlopen( 0, RTLD_LAZY ) ) 116cdf0e10cSrcweir { 117cdf0e10cSrcweir } 118cdf0e10cSrcweir //____________________________________________________________________ ~RTTI()119cdf0e10cSrcweir RTTI::~RTTI() SAL_THROW( () ) 120cdf0e10cSrcweir { 121cdf0e10cSrcweir dlclose( m_hApp ); 122cdf0e10cSrcweir } 123cdf0e10cSrcweir 124cdf0e10cSrcweir //____________________________________________________________________ getRTTI(typelib_CompoundTypeDescription * pTypeDescr)125cdf0e10cSrcweir type_info * RTTI::getRTTI( typelib_CompoundTypeDescription *pTypeDescr ) SAL_THROW( () ) 126cdf0e10cSrcweir { 127cdf0e10cSrcweir type_info * rtti; 128cdf0e10cSrcweir 129cdf0e10cSrcweir OUString const & unoName = *(OUString const *)&pTypeDescr->aBase.pTypeName; 130cdf0e10cSrcweir 131cdf0e10cSrcweir MutexGuard guard( m_mutex ); 132cdf0e10cSrcweir t_rtti_map::const_iterator iRttiFind( m_rttis.find( unoName ) ); 133cdf0e10cSrcweir if (iRttiFind == m_rttis.end()) 134cdf0e10cSrcweir { 135cdf0e10cSrcweir // RTTI symbol 136cdf0e10cSrcweir OStringBuffer buf( 64 ); 137cdf0e10cSrcweir buf.append( RTL_CONSTASCII_STRINGPARAM("_ZTIN") ); 138cdf0e10cSrcweir sal_Int32 index = 0; 139cdf0e10cSrcweir do 140cdf0e10cSrcweir { 141cdf0e10cSrcweir OUString token( unoName.getToken( 0, '.', index ) ); 142cdf0e10cSrcweir buf.append( token.getLength() ); 143cdf0e10cSrcweir OString c_token( OUStringToOString( token, RTL_TEXTENCODING_ASCII_US ) ); 144cdf0e10cSrcweir buf.append( c_token ); 145cdf0e10cSrcweir } 146cdf0e10cSrcweir while (index >= 0); 147cdf0e10cSrcweir buf.append( 'E' ); 148cdf0e10cSrcweir 149cdf0e10cSrcweir OString symName( buf.makeStringAndClear() ); 150cdf0e10cSrcweir rtti = (type_info *)dlsym( m_hApp, symName.getStr() ); 151cdf0e10cSrcweir 152cdf0e10cSrcweir if (rtti) 153cdf0e10cSrcweir { 154cdf0e10cSrcweir pair< t_rtti_map::iterator, bool > insertion( 155cdf0e10cSrcweir m_rttis.insert( t_rtti_map::value_type( unoName, rtti ) ) ); 156cdf0e10cSrcweir OSL_ENSURE( insertion.second, "### inserting new rtti failed?!" ); 157cdf0e10cSrcweir } 158cdf0e10cSrcweir else 159cdf0e10cSrcweir { 160cdf0e10cSrcweir // try to lookup the symbol in the generated rtti map 161cdf0e10cSrcweir t_rtti_map::const_iterator iFind( m_generatedRttis.find( unoName ) ); 162cdf0e10cSrcweir if (iFind == m_generatedRttis.end()) 163cdf0e10cSrcweir { 164cdf0e10cSrcweir // we must generate it ! 165cdf0e10cSrcweir // symbol and rtti-name is nearly identical, 166cdf0e10cSrcweir // the symbol is prefixed with _ZTI 167cdf0e10cSrcweir char const * rttiName = symName.getStr() +4; 168cdf0e10cSrcweir #if OSL_DEBUG_LEVEL > 1 169cdf0e10cSrcweir fprintf( stderr,"generated rtti for %s\n", rttiName ); 170cdf0e10cSrcweir #endif 171cdf0e10cSrcweir if (pTypeDescr->pBaseTypeDescription) 172cdf0e10cSrcweir { 173cdf0e10cSrcweir // ensure availability of base 174cdf0e10cSrcweir type_info * base_rtti = getRTTI( 175cdf0e10cSrcweir (typelib_CompoundTypeDescription *)pTypeDescr->pBaseTypeDescription ); 176cdf0e10cSrcweir rtti = new __si_class_type_info( 177cdf0e10cSrcweir strdup( rttiName ), (__class_type_info *)base_rtti ); 178cdf0e10cSrcweir } 179cdf0e10cSrcweir else 180cdf0e10cSrcweir { 181cdf0e10cSrcweir // this class has no base class 182cdf0e10cSrcweir rtti = new __class_type_info( strdup( rttiName ) ); 183cdf0e10cSrcweir } 184cdf0e10cSrcweir 185cdf0e10cSrcweir pair< t_rtti_map::iterator, bool > insertion( 186cdf0e10cSrcweir m_generatedRttis.insert( t_rtti_map::value_type( unoName, rtti ) ) ); 187cdf0e10cSrcweir OSL_ENSURE( insertion.second, "### inserting new generated rtti failed?!" ); 188cdf0e10cSrcweir } 189cdf0e10cSrcweir else // taking already generated rtti 190cdf0e10cSrcweir { 191cdf0e10cSrcweir rtti = iFind->second; 192cdf0e10cSrcweir } 193cdf0e10cSrcweir } 194cdf0e10cSrcweir } 195cdf0e10cSrcweir else 196cdf0e10cSrcweir { 197cdf0e10cSrcweir rtti = iRttiFind->second; 198cdf0e10cSrcweir } 199cdf0e10cSrcweir 200cdf0e10cSrcweir return rtti; 201cdf0e10cSrcweir } 202cdf0e10cSrcweir 203cdf0e10cSrcweir //------------------------------------------------------------------ deleteException(void * pExc)204cdf0e10cSrcweir static void deleteException( void * pExc ) 205cdf0e10cSrcweir { 206cdf0e10cSrcweir __cxa_exception const * header = ((__cxa_exception const *)pExc - 1); 207cdf0e10cSrcweir typelib_TypeDescription * pTD = 0; 208cdf0e10cSrcweir OUString unoName( toUNOname( header->exceptionType->name() ) ); 209cdf0e10cSrcweir ::typelib_typedescription_getByName( &pTD, unoName.pData ); 210cdf0e10cSrcweir OSL_ENSURE( pTD, "### unknown exception type! leaving out destruction => leaking!!!" ); 211cdf0e10cSrcweir if (pTD) 212cdf0e10cSrcweir { 213cdf0e10cSrcweir ::uno_destructData( pExc, pTD, cpp_release ); 214cdf0e10cSrcweir ::typelib_typedescription_release( pTD ); 215cdf0e10cSrcweir } 216cdf0e10cSrcweir } 217cdf0e10cSrcweir 218cdf0e10cSrcweir //================================================================== raiseException(uno_Any * pUnoExc,uno_Mapping * pUno2Cpp)219cdf0e10cSrcweir void raiseException( uno_Any * pUnoExc, uno_Mapping * pUno2Cpp ) 220cdf0e10cSrcweir { 221cdf0e10cSrcweir #if OSL_DEBUG_LEVEL > 1 222cdf0e10cSrcweir OString cstr( 223cdf0e10cSrcweir OUStringToOString( 224cdf0e10cSrcweir *reinterpret_cast< OUString const * >( &pUnoExc->pType->pTypeName ), 225cdf0e10cSrcweir RTL_TEXTENCODING_ASCII_US ) ); 226*07a3d7f1SPedro Giffuni fprintf( stderr, "> uno exception occurred: %s\n", cstr.getStr() ); 227cdf0e10cSrcweir #endif 228cdf0e10cSrcweir void * pCppExc; 229cdf0e10cSrcweir type_info * rtti; 230cdf0e10cSrcweir 231cdf0e10cSrcweir { 232cdf0e10cSrcweir // construct cpp exception object 233cdf0e10cSrcweir typelib_TypeDescription * pTypeDescr = 0; 234cdf0e10cSrcweir TYPELIB_DANGER_GET( &pTypeDescr, pUnoExc->pType ); 235cdf0e10cSrcweir OSL_ASSERT( pTypeDescr ); 236cdf0e10cSrcweir if (! pTypeDescr) 237cdf0e10cSrcweir { 238cdf0e10cSrcweir throw RuntimeException( 239cdf0e10cSrcweir OUString( RTL_CONSTASCII_USTRINGPARAM("cannot get typedescription for type ") ) + 240cdf0e10cSrcweir *reinterpret_cast< OUString const * >( &pUnoExc->pType->pTypeName ), 241cdf0e10cSrcweir Reference< XInterface >() ); 242cdf0e10cSrcweir } 243cdf0e10cSrcweir 244cdf0e10cSrcweir pCppExc = __cxa_allocate_exception( pTypeDescr->nSize ); 245cdf0e10cSrcweir ::uno_copyAndConvertData( pCppExc, pUnoExc->pData, pTypeDescr, pUno2Cpp ); 246cdf0e10cSrcweir 247cdf0e10cSrcweir // destruct uno exception 248cdf0e10cSrcweir ::uno_any_destruct( pUnoExc, 0 ); 249cdf0e10cSrcweir // avoiding locked counts 250cdf0e10cSrcweir static RTTI * s_rtti = 0; 251cdf0e10cSrcweir if (! s_rtti) 252cdf0e10cSrcweir { 253cdf0e10cSrcweir MutexGuard guard( Mutex::getGlobalMutex() ); 254cdf0e10cSrcweir if (! s_rtti) 255cdf0e10cSrcweir { 256cdf0e10cSrcweir #ifdef LEAK_STATIC_DATA 257cdf0e10cSrcweir s_rtti = new RTTI(); 258cdf0e10cSrcweir #else 259cdf0e10cSrcweir static RTTI rtti_data; 260cdf0e10cSrcweir s_rtti = &rtti_data; 261cdf0e10cSrcweir #endif 262cdf0e10cSrcweir } 263cdf0e10cSrcweir } 264cdf0e10cSrcweir rtti = (type_info *)s_rtti->getRTTI( (typelib_CompoundTypeDescription *) pTypeDescr ); 265cdf0e10cSrcweir TYPELIB_DANGER_RELEASE( pTypeDescr ); 266cdf0e10cSrcweir OSL_ENSURE( rtti, "### no rtti for throwing exception!" ); 267cdf0e10cSrcweir if (! rtti) 268cdf0e10cSrcweir { 269cdf0e10cSrcweir throw RuntimeException( 270cdf0e10cSrcweir OUString( RTL_CONSTASCII_USTRINGPARAM("no rtti for type ") ) + 271cdf0e10cSrcweir *reinterpret_cast< OUString const * >( &pUnoExc->pType->pTypeName ), 272cdf0e10cSrcweir Reference< XInterface >() ); 273cdf0e10cSrcweir } 274cdf0e10cSrcweir } 275cdf0e10cSrcweir 276cdf0e10cSrcweir 277cdf0e10cSrcweir __cxa_throw( pCppExc, rtti, deleteException ); 278cdf0e10cSrcweir } 279cdf0e10cSrcweir getAdjustedPtr(__cxa_exception * header)280cdf0e10cSrcweir static void* getAdjustedPtr(__cxa_exception* header) 281cdf0e10cSrcweir { 282cdf0e10cSrcweir return header->adjustedPtr; 283cdf0e10cSrcweir } 284cdf0e10cSrcweir 285cdf0e10cSrcweir //=================================================================== fillUnoException(__cxa_exception * header,uno_Any * pUnoExc,uno_Mapping * pCpp2Uno)286cdf0e10cSrcweir void fillUnoException( __cxa_exception * header, uno_Any * pUnoExc, uno_Mapping * pCpp2Uno ) 287cdf0e10cSrcweir { 288cdf0e10cSrcweir if (! header) 289cdf0e10cSrcweir { 290cdf0e10cSrcweir RuntimeException aRE( 291cdf0e10cSrcweir OUString( RTL_CONSTASCII_USTRINGPARAM("no exception header!") ), 292cdf0e10cSrcweir Reference< XInterface >() ); 293cdf0e10cSrcweir Type const & rType = ::getCppuType( &aRE ); 294cdf0e10cSrcweir uno_type_any_constructAndConvert( pUnoExc, &aRE, rType.getTypeLibType(), pCpp2Uno ); 295cdf0e10cSrcweir #if OSL_DEBUG_LEVEL > 0 296cdf0e10cSrcweir OString cstr( OUStringToOString( aRE.Message, RTL_TEXTENCODING_ASCII_US ) ); 297cdf0e10cSrcweir OSL_ENSURE( 0, cstr.getStr() ); 298cdf0e10cSrcweir #endif 299cdf0e10cSrcweir return; 300cdf0e10cSrcweir } 301cdf0e10cSrcweir 302cdf0e10cSrcweir typelib_TypeDescription * pExcTypeDescr = 0; 303cdf0e10cSrcweir OUString unoName( toUNOname( header->exceptionType->name() ) ); 304cdf0e10cSrcweir #if OSL_DEBUG_LEVEL > 1 305cdf0e10cSrcweir OString cstr_unoName( OUStringToOString( unoName, RTL_TEXTENCODING_ASCII_US ) ); 306*07a3d7f1SPedro Giffuni fprintf( stderr, "> c++ exception occurred: %s\n", cstr_unoName.getStr() ); 307cdf0e10cSrcweir #endif 308cdf0e10cSrcweir typelib_typedescription_getByName( &pExcTypeDescr, unoName.pData ); 309cdf0e10cSrcweir if (0 == pExcTypeDescr) 310cdf0e10cSrcweir { 311cdf0e10cSrcweir RuntimeException aRE( 312cdf0e10cSrcweir OUString( RTL_CONSTASCII_USTRINGPARAM("exception type not found: ") ) + unoName, 313cdf0e10cSrcweir Reference< XInterface >() ); 314cdf0e10cSrcweir Type const & rType = ::getCppuType( &aRE ); 315cdf0e10cSrcweir uno_type_any_constructAndConvert( pUnoExc, &aRE, rType.getTypeLibType(), pCpp2Uno ); 316cdf0e10cSrcweir #if OSL_DEBUG_LEVEL > 0 317cdf0e10cSrcweir OString cstr( OUStringToOString( aRE.Message, RTL_TEXTENCODING_ASCII_US ) ); 318cdf0e10cSrcweir OSL_ENSURE( 0, cstr.getStr() ); 319cdf0e10cSrcweir #endif 320cdf0e10cSrcweir } 321cdf0e10cSrcweir else 322cdf0e10cSrcweir { 323cdf0e10cSrcweir // construct uno exception any 324cdf0e10cSrcweir uno_any_constructAndConvert( pUnoExc, getAdjustedPtr(header), pExcTypeDescr, pCpp2Uno ); 325cdf0e10cSrcweir typelib_typedescription_release( pExcTypeDescr ); 326cdf0e10cSrcweir } 327cdf0e10cSrcweir } 328cdf0e10cSrcweir } 329cdf0e10cSrcweir 330cdf0e10cSrcweir /* vi:set tabstop=4 shiftwidth=4 expandtab: */ 331