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_SOURCE
   6
   7 #include <luabind/config.hpp>
   8 #include <luabind/exception_handler.hpp>
   9 #include <luabind/error.hpp>
  10 #include <stdexcept>
  11
  12 namespace luabind { namespace detail {
  13
  14 namespace
  15 {
  16   exception_handler_base* handler_chain = 0;
  17
  18   void push_exception_string(lua_State* L, char const* exception, char const* what)
  19   {
  20       lua_pushstring(L, exception);
  21       lua_pushstring(L, ": '");
  22       lua_pushstring(L, what);
  23       lua_pushstring(L, "'");
  24       lua_concat(L, 4);
  25   }
  26 }
  27
  28 void exception_handler_base::try_next(lua_State* L) const
  29 {
  30     if (next)
  31         next->handle(L);
  32     else
  33         throw;
  34 }
  35
  36 LUABIND_API void handle_exception_aux(lua_State* L)
  37 {
  38     try
  39     {
  40         if (handler_chain)
  41             handler_chain->handle(L);
  42         else
  43             throw;
  44     }
  45     catch (error const&)
  46     {}
  47     catch (std::logic_error const& e)
  48     {
  49         push_exception_string(L, "std::logic_error", e.what());
  50     }
  51     catch (std::runtime_error const& e)
  52     {
  53         push_exception_string(L, "std::runtime_error", e.what());
  54     }
  55     catch (std::exception const& e)
  56     {
  57         push_exception_string(L, "std::exception", e.what());
  58     }
  59     catch (char const* str)
  60     {
  61         push_exception_string(L, "c-string", str);
  62     }
  63     catch (...)
  64     {
  65         lua_pushstring(L, "Unknown C++ exception");
  66     }
  67 }
  68
  69 LUABIND_API void register_exception_handler(exception_handler_base* handler)
  70 {
  71     if (!handler_chain) handler_chain = handler;
  72     else
  73     {
  74         exception_handler_base* p = handler_chain;
  75
  76         for (; p->next; p = p->next);
  77
  78         handler->next = 0;
  79         p->next = handler;
  80     }
  81 }
  82
  83 }} // namespace luabind::detail
  84