Teuchos_CWrapperSupport_Cpp.hpp

// @HEADER
// *****************************************************************************
//                    Teuchos: Common Tools Package
//
// Copyright 2004 NTESS and the Teuchos contributors.
// SPDX-License-Identifier: BSD-3-Clause
// *****************************************************************************
// @HEADER
 
#ifndef TEUCHOS_C_WRAPPER_SUPPORT_CPP_HPP
#define TEUCHOS_C_WRAPPER_SUPPORT_CPP_HPP
 
 
#include "Teuchos_StandardCatchMacros.hpp"
#include "Teuchos_FancyOStream.hpp"
 

 
 
namespace Teuchos {
 

class TEUCHOSCORE_LIB_DLL_EXPORT CWrapperErrorHandling {
public:

  static void setPrintErrorOStream(const RCP<FancyOStream> &errorOStream);

  static RCP<FancyOStream> getPrintErrorOStream();

  static void setShowStackTraceOnException(const bool showStrackTraceOnException);

  static bool getShowStackTraceOnException();
 
 
}; // class CWrapperErrorHandling
 
 
} // Teuchos
 
 

#define TEUCHOS_CWRAPPER_TRY(IERR) \
  TEUCHOS_TEST_FOR_EXCEPT((IERR) == 0); \
  (*(IERR)) = 0; \
  bool cwrapper_try_success = true; \
  try
// Above: We must set *ierr = 0 in case a return statement will return the
// value.
 

#define TEUCHOS_CWRAPPER_CATCH_ERROR_CODE(IERR) \
  TEUCHOS_STANDARD_CATCH_STATEMENTS_IMPL( \
    true, *Teuchos::CWrapperErrorHandling::getPrintErrorOStream(), \
    Teuchos::CWrapperErrorHandling::getShowStackTraceOnException(), \
    cwrapper_try_success ); \
  if (!cwrapper_try_success) { (*(IERR)) = -1; }
// Above: We make sure and set the error code in case there is a failure.
 
 

#define TEUCHOS_CWRAPPER_SET_ERROR_CODE(IERR, IERR_VALUE) \
  if ((IERR)) { \
    (*(IERR)) = (IERR_VALUE); \
  }
 
 
#endif // TEUCHOS_C_WRAPPER_SUPPORT_CPP_HPP