|
Teuchos - Trilinos Tools Package
Version of the Day
|
00001 // @HEADER 00002 // *********************************************************************** 00003 // 00004 // Teuchos: Common Tools Package 00005 // Copyright (2004) Sandia Corporation 00006 // 00007 // Under terms of Contract DE-AC04-94AL85000, there is a non-exclusive 00008 // license for use of this work by or on behalf of the U.S. Government. 00009 // 00010 // Redistribution and use in source and binary forms, with or without 00011 // modification, are permitted provided that the following conditions are 00012 // met: 00013 // 00014 // 1. Redistributions of source code must retain the above copyright 00015 // notice, this list of conditions and the following disclaimer. 00016 // 00017 // 2. Redistributions in binary form must reproduce the above copyright 00018 // notice, this list of conditions and the following disclaimer in the 00019 // documentation and/or other materials provided with the distribution. 00020 // 00021 // 3. Neither the name of the Corporation nor the names of the 00022 // contributors may be used to endorse or promote products derived from 00023 // this software without specific prior written permission. 00024 // 00025 // THIS SOFTWARE IS PROVIDED BY SANDIA CORPORATION "AS IS" AND ANY 00026 // EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 00027 // IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 00028 // PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL SANDIA CORPORATION OR THE 00029 // CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, 00030 // EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, 00031 // PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 00032 // PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 00033 // LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 00034 // NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 00035 // SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 00036 // 00037 // Questions? Contact Michael A. Heroux (maherou@sandia.gov) 00038 // 00039 // *********************************************************************** 00040 // @HEADER 00041 00042 #include "Teuchos_TypeNameTraits.hpp" 00043 #include "Teuchos_Assert.hpp" 00044 00045 // Define this if you want to force name demangling if supported 00046 //#define HAVE_TEUCHOS_DEMANGLE 00047 00048 #if defined(HAVE_GCC_ABI_DEMANGLE) && defined(HAVE_TEUCHOS_DEMANGLE) 00049 # include <cxxabi.h> 00050 #endif 00051 00052 00053 std::string Teuchos::demangleName( const std::string &mangledName ) 00054 { 00055 #if defined(HAVE_GCC_ABI_DEMANGLE) && defined(HAVE_TEUCHOS_DEMANGLE) 00056 int status; 00057 char* _demangledName = abi::__cxa_demangle (mangledName.c_str (), 0, 0, &status); 00058 if (status != 0 || 0 == _demangledName) { 00059 #ifdef TEUCHOS_DEBUG 00060 // In a debug build, we check if demangling succeeded. 00061 std::string nullstr ("NULL"); 00062 const char* demangle_output = _demangledName ? _demangledName : nullstr.c_str (); 00063 using std::endl; 00064 TEUCHOS_TEST_FOR_EXCEPTION( 00065 true, std::logic_error, 00066 "Error, name demangling with g++ has been enabled but the function " 00067 "abi::__cxa_demangle(" << mangledName << ") returned returnVal = " << 00068 demangle_output <<" and status = " << status << "." << endl << "This " 00069 "suggests that name demangling may be broken on this platform." << endl 00070 << "You may prevent this exception from being thrown in the future by " 00071 "turning off name demangling for this build at configure time." << endl 00072 << "Do this by setting the CMake configuration option " 00073 "Teuchos_ENABLE_GCC_DEMANGLE to OFF." << endl << "Add the following to " 00074 "your list of CMake options:" << endl << endl << 00075 " -D Teuchos_ENABLE_GCC_DEMANGLE:BOOL=OFF" << endl); 00076 #endif 00077 if (_demangledName != NULL) { 00078 // The C library standard requires that free() do the right 00079 // thing with NULL input, but it doesn't hurt to check. 00080 free (_demangledName); 00081 } 00082 return (mangledName + "<demangle-failed>"); 00083 } 00084 const std::string demangledName (_demangledName); 00085 free (_demangledName); // We have to free this before we return! 00086 return demangledName; 00087 #else 00088 return mangledName; 00089 #endif 00090 }
1.7.6.1