xref: /minix3/external/bsd/lutok/dist/exceptions.cpp (revision 11be35a165022172ed3cea20f2b5df0307540b0e)
1*11be35a1SLionel Sambuc // Copyright 2011 Google Inc.
2*11be35a1SLionel Sambuc // All rights reserved.
3*11be35a1SLionel Sambuc //
4*11be35a1SLionel Sambuc // Redistribution and use in source and binary forms, with or without
5*11be35a1SLionel Sambuc // modification, are permitted provided that the following conditions are
6*11be35a1SLionel Sambuc // met:
7*11be35a1SLionel Sambuc //
8*11be35a1SLionel Sambuc // * Redistributions of source code must retain the above copyright
9*11be35a1SLionel Sambuc //   notice, this list of conditions and the following disclaimer.
10*11be35a1SLionel Sambuc // * Redistributions in binary form must reproduce the above copyright
11*11be35a1SLionel Sambuc //   notice, this list of conditions and the following disclaimer in the
12*11be35a1SLionel Sambuc //   documentation and/or other materials provided with the distribution.
13*11be35a1SLionel Sambuc // * Neither the name of Google Inc. nor the names of its contributors
14*11be35a1SLionel Sambuc //   may be used to endorse or promote products derived from this software
15*11be35a1SLionel Sambuc //   without specific prior written permission.
16*11be35a1SLionel Sambuc //
17*11be35a1SLionel Sambuc // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
18*11be35a1SLionel Sambuc // "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
19*11be35a1SLionel Sambuc // LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
20*11be35a1SLionel Sambuc // A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
21*11be35a1SLionel Sambuc // OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
22*11be35a1SLionel Sambuc // SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
23*11be35a1SLionel Sambuc // LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
24*11be35a1SLionel Sambuc // DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
25*11be35a1SLionel Sambuc // THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
26*11be35a1SLionel Sambuc // (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
27*11be35a1SLionel Sambuc // OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
28*11be35a1SLionel Sambuc 
29*11be35a1SLionel Sambuc #include <cassert>
30*11be35a1SLionel Sambuc 
31*11be35a1SLionel Sambuc #include <lua.hpp>
32*11be35a1SLionel Sambuc 
33*11be35a1SLionel Sambuc #include "c_gate.hpp"
34*11be35a1SLionel Sambuc #include "exceptions.hpp"
35*11be35a1SLionel Sambuc #include "state.ipp"
36*11be35a1SLionel Sambuc 
37*11be35a1SLionel Sambuc 
38*11be35a1SLionel Sambuc /// Constructs a new error with a plain-text message.
39*11be35a1SLionel Sambuc ///
40*11be35a1SLionel Sambuc /// \param message The plain-text error message.
error(const std::string & message)41*11be35a1SLionel Sambuc lutok::error::error(const std::string& message) :
42*11be35a1SLionel Sambuc     std::runtime_error(message)
43*11be35a1SLionel Sambuc {
44*11be35a1SLionel Sambuc }
45*11be35a1SLionel Sambuc 
46*11be35a1SLionel Sambuc 
47*11be35a1SLionel Sambuc /// Destructor for the error.
~error(void)48*11be35a1SLionel Sambuc lutok::error::~error(void) throw()
49*11be35a1SLionel Sambuc {
50*11be35a1SLionel Sambuc }
51*11be35a1SLionel Sambuc 
52*11be35a1SLionel Sambuc 
53*11be35a1SLionel Sambuc /// Constructs a new error.
54*11be35a1SLionel Sambuc ///
55*11be35a1SLionel Sambuc /// \param api_function_ The name of the API function that caused the error.
56*11be35a1SLionel Sambuc /// \param message The plain-text error message provided by Lua.
api_error(const std::string & api_function_,const std::string & message)57*11be35a1SLionel Sambuc lutok::api_error::api_error(const std::string& api_function_,
58*11be35a1SLionel Sambuc                             const std::string& message) :
59*11be35a1SLionel Sambuc     error(message),
60*11be35a1SLionel Sambuc     _api_function(api_function_)
61*11be35a1SLionel Sambuc {
62*11be35a1SLionel Sambuc }
63*11be35a1SLionel Sambuc 
64*11be35a1SLionel Sambuc 
65*11be35a1SLionel Sambuc /// Destructor for the error.
~api_error(void)66*11be35a1SLionel Sambuc lutok::api_error::~api_error(void) throw()
67*11be35a1SLionel Sambuc {
68*11be35a1SLionel Sambuc }
69*11be35a1SLionel Sambuc 
70*11be35a1SLionel Sambuc 
71*11be35a1SLionel Sambuc /// Constructs a new api_error with the message on the top of the Lua stack.
72*11be35a1SLionel Sambuc ///
73*11be35a1SLionel Sambuc /// \pre There is an error message on the top of the stack.
74*11be35a1SLionel Sambuc /// \post The error message is popped from the stack.
75*11be35a1SLionel Sambuc ///
76*11be35a1SLionel Sambuc /// \param state_ The Lua state.
77*11be35a1SLionel Sambuc /// \param api_function_ The name of the Lua API function that caused the error.
78*11be35a1SLionel Sambuc ///
79*11be35a1SLionel Sambuc /// \return A new api_error with the popped message.
80*11be35a1SLionel Sambuc lutok::api_error
from_stack(state & state_,const std::string & api_function_)81*11be35a1SLionel Sambuc lutok::api_error::from_stack(state& state_, const std::string& api_function_)
82*11be35a1SLionel Sambuc {
83*11be35a1SLionel Sambuc     lua_State* raw_state = lutok::state_c_gate(state_).c_state();
84*11be35a1SLionel Sambuc 
85*11be35a1SLionel Sambuc     assert(lua_isstring(raw_state, -1));
86*11be35a1SLionel Sambuc     const std::string message = lua_tostring(raw_state, -1);
87*11be35a1SLionel Sambuc     lua_pop(raw_state, 1);
88*11be35a1SLionel Sambuc     return lutok::api_error(api_function_, message);
89*11be35a1SLionel Sambuc }
90*11be35a1SLionel Sambuc 
91*11be35a1SLionel Sambuc 
92*11be35a1SLionel Sambuc /// Gets the name of the Lua API function that caused this error.
93*11be35a1SLionel Sambuc ///
94*11be35a1SLionel Sambuc /// \return The name of the function.
95*11be35a1SLionel Sambuc const std::string&
api_function(void) const96*11be35a1SLionel Sambuc lutok::api_error::api_function(void) const
97*11be35a1SLionel Sambuc {
98*11be35a1SLionel Sambuc     return _api_function;
99*11be35a1SLionel Sambuc }
100*11be35a1SLionel Sambuc 
101*11be35a1SLionel Sambuc 
102*11be35a1SLionel Sambuc /// Constructs a new error.
103*11be35a1SLionel Sambuc ///
104*11be35a1SLionel Sambuc /// \param filename_ The file that count not be found.
file_not_found_error(const std::string & filename_)105*11be35a1SLionel Sambuc lutok::file_not_found_error::file_not_found_error(
106*11be35a1SLionel Sambuc     const std::string& filename_) :
107*11be35a1SLionel Sambuc     error("File '" + filename_ + "' not found"),
108*11be35a1SLionel Sambuc     _filename(filename_)
109*11be35a1SLionel Sambuc {
110*11be35a1SLionel Sambuc }
111*11be35a1SLionel Sambuc 
112*11be35a1SLionel Sambuc 
113*11be35a1SLionel Sambuc /// Destructor for the error.
~file_not_found_error(void)114*11be35a1SLionel Sambuc lutok::file_not_found_error::~file_not_found_error(void) throw()
115*11be35a1SLionel Sambuc {
116*11be35a1SLionel Sambuc }
117*11be35a1SLionel Sambuc 
118*11be35a1SLionel Sambuc 
119*11be35a1SLionel Sambuc /// Gets the name of the file that could not be found.
120*11be35a1SLionel Sambuc ///
121*11be35a1SLionel Sambuc /// \return The name of the file.
122*11be35a1SLionel Sambuc const std::string&
filename(void) const123*11be35a1SLionel Sambuc lutok::file_not_found_error::filename(void) const
124*11be35a1SLionel Sambuc {
125*11be35a1SLionel Sambuc     return _filename;
126*11be35a1SLionel Sambuc }
127