blob: e39ccb063f1e396ac82d36f6c2fb18563af76dc2 [file] [log] [blame]
%module exception_partial_info
// This produced compilable code for Tcl, Python in 1.3.27, fails in 1.3.29
%{
#if defined(_MSC_VER)
#pragma warning(disable: 4290) // C++ exception specification ignored except to indicate a function is not __declspec(nothrow)
#endif
#if __GNUC__ >= 7
#pragma GCC diagnostic push
#pragma GCC diagnostic ignored "-Wdeprecated" // dynamic exception specifications are deprecated in C++11
#endif
%}
%{
class myException
{
public:
virtual const char *name() = 0;
};
class ex1 : public myException
{
public:
virtual const char *name() { return "ex1"; }
};
class ex2 : public myException
{
public:
virtual const char *name() { return "ex2"; }
};
%}
#if !defined(SWIGUTL)
#if !defined(SWIGCHICKEN)
%inline %{
class Impl
{
public:
void f1() throw (myException) { ex1 e; throw e; }
void f2() throw (myException) { ex2 e; throw e; }
};
%}
#else
#warning "Chicken needs fixing for partial exception information"
#endif
#else
#warning "UTL needs fixing for partial exception information"
#endif
%{
#if defined(_MSC_VER)
#pragma warning(default: 4290) // C++ exception specification ignored except to indicate a function is not __declspec(nothrow)
#endif
#if __GNUC__ >= 7
#pragma GCC diagnostic pop
#endif
%}