Teuchos - Trilinos Tools Package Version of the Day
Teuchos_StandardCatchMacros.hpp
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 #ifndef TEUCHOS_STANDARD_CATCH_MACROS_HPP
00043 #define TEUCHOS_STANDARD_CATCH_MACROS_HPP
00044 
00045 #include "Teuchos_GlobalMPISession.hpp"
00046 #include "Teuchos_FancyOStream.hpp"
00047 #include "Teuchos_TypeNameTraits.hpp"
00048 #include "Teuchos_stacktrace.hpp"
00049 #include "Teuchos_Assert.hpp"
00050 
00051 
00052 #ifdef HAVE_TEUCHOS_STACKTRACE
00053 #  define TEUCHOS_GET_STORED_STACKTRACE() \
00054   (Teuchos::TestForException_getEnableStacktrace() \
00055     ? Teuchos::get_stored_stacktrace() + "\n" \
00056     : std::string() )
00057 #else
00058 #  define TEUCHOS_GET_STORED_STACKTRACE() ""
00059 #endif
00060 
00061 
00065 #define TEUCHOS_STANDARD_CATCH_STATEMENTS_IMPL(VERBOSE, ERR_STREAM, \
00066   SHOW_STACK_TRACE, SUCCESS_FLAG \
00067   ) \
00068   catch (const std::exception &excpt) { \
00069     if((VERBOSE)) { \
00070       std::ostringstream oss; \
00071       oss \
00072         << "\np="<<::Teuchos::GlobalMPISession::getRank() \
00073         <<": *** Caught standard std::exception of type \'" \
00074         <<Teuchos::concreteTypeName(excpt)<<"\' :\n\n"; \
00075       Teuchos::OSTab scsi_tab(oss); \
00076       if (SHOW_STACK_TRACE) { \
00077         scsi_tab.o() << TEUCHOS_GET_STORED_STACKTRACE(); \
00078       } \
00079       scsi_tab.o() << excpt.what() << std::endl; \
00080       (ERR_STREAM) << std::flush; \
00081       (ERR_STREAM) << oss.str(); \
00082       (SUCCESS_FLAG) = false; \
00083     } \
00084   } \
00085   catch (const int &excpt_code) { \
00086     if((VERBOSE)) { \
00087       std::ostringstream oss; \
00088       oss \
00089         << "\np="<<::Teuchos::GlobalMPISession::getRank() \
00090         << ": *** Caught an integer exception with value = " \
00091         << excpt_code << std::endl; \
00092       (ERR_STREAM) << std::flush; \
00093       (ERR_STREAM) << oss.str(); \
00094       (SUCCESS_FLAG) = false; \
00095     } \
00096   } \
00097   catch ( ... ) { \
00098     if ((VERBOSE)) { \
00099       std::ostringstream oss; \
00100       oss << "\np="<<::Teuchos::GlobalMPISession::getRank() \
00101           <<": *** Caught an unknown exception\n"; \
00102       (ERR_STREAM) << std::flush; \
00103       (ERR_STREAM) << oss.str(); \
00104       (SUCCESS_FLAG) = false; \
00105     } \
00106   }
00107 
00108 
00109 
00136 #define TEUCHOS_STANDARD_CATCH_STATEMENTS(VERBOSE, ERR_STREAM, SUCCESS_FLAG) \
00137   TEUCHOS_STANDARD_CATCH_STATEMENTS_IMPL(VERBOSE, ERR_STREAM, true, SUCCESS_FLAG)
00138 
00139 
00140 #endif // TEUCHOS_STANDARD_CATCH_MACROS_HPP
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Defines