src/exception_handler.cpp

   1 // Copyright Daniel Wallin 2005. Use, modification and distribution is
   2 // subject to the Boost Software License, Version 1.0. (See accompanying
   3 // file LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)
   4
   5 #define LUABIND_BUILDING
   6
   7 #include <luabind/config.hpp>
   8 #include <luabind/exception_handler.hpp>
   9 #include <luabind/error.hpp>
  10 #include <stdexcept>
  11
  12 #ifndef LUABIND_NO_EXCEPTIONS
  13
  14 namespace luabind { namespace detail {
  15
  16 namespace
  17 {
  18   exception_handler_base* handler_chain = 0;
  19
  20   void push_exception_string(lua_State* L, char const* exception, char const* what)
  21   {
  22       lua_pushstring(L, exception);
  23       lua_pushstring(L, ": '");
  24       lua_pushstring(L, what);
  25       lua_pushstring(L, "'");
  26       lua_concat(L, 4);
  27   }
  28 }
  29
  30 void exception_handler_base::try_next(lua_State* L) const
  31 {
  32     if (next)
  33         next->handle(L);
  34     else
  35         throw;
  36 }
  37
  38 LUABIND_API void handle_exception_aux(lua_State* L)
  39 {
  40     try
  41     {
  42         if (handler_chain)
  43             handler_chain->handle(L);
  44         else
  45             throw;
  46     }
  47     catch (error const&)
  48     {}
  49     catch (std::logic_error const& e)
  50     {
  51         push_exception_string(L, "std::logic_error", e.what());
  52     }
  53     catch (std::runtime_error const& e)
  54     {
  55         push_exception_string(L, "std::runtime_error", e.what());
  56     }
  57     catch (std::exception const& e)
  58     {
  59         push_exception_string(L, "std::exception", e.what());
  60     }
  61     catch (char const* str)
  62     {
  63         push_exception_string(L, "c-string", str);
  64     }
  65     catch (...)
  66     {
  67         lua_pushstring(L, "Unknown C++ exception");
  68     }
  69 }
  70
  71 LUABIND_API void register_exception_handler(exception_handler_base* handler)
  72 {
  73     if (!handler_chain) handler_chain = handler;
  74     else
  75     {
  76         exception_handler_base* p = handler_chain;
  77
  78         for (; p->next; p = p->next);
  79
  80         handler->next = 0;
  81         p->next = handler;
  82     }
  83 }
  84
  85 }} // namespace luabind::detail
  86
  87 #endif // LUABIND_NO_EXCEPTIONS