1// SuperTux
2// Copyright (C) 2006 Matthias Braun <matze@braunis.de>
3//
4// This program is free software: you can redistribute it and/or modify
5// it under the terms of the GNU General Public License as published by
6// the Free Software Foundation, either version 3 of the License, or
7// (at your option) any later version.
8//
9// This program is distributed in the hope that it will be useful,
10// but WITHOUT ANY WARRANTY; without even the implied warranty of
11// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12// GNU General Public License for more details.
13//
14// You should have received a copy of the GNU General Public License
15// along with this program. If not, see <http://www.gnu.org/licenses/>.
16
17#include "squirrel/squirrel_error.hpp"
18
19#include <sstream>
20
21SquirrelError::SquirrelError(HSQUIRRELVM v, const std::string& message_) throw() :
22 message()
23{
24 std::ostringstream msg;
25 msg << "Squirrel error: " << message_ << " (";
26 const char* lasterr;
27 sq_getlasterror(v);
28 if (sq_gettype(v, -1) != OT_STRING)
29 {
30 lasterr = "no error info";
31 }
32 else
33 {
34 sq_getstring(v, -1, &lasterr);
35 }
36 msg << lasterr << ")";
37 sq_pop(v, 1);
38 message = msg.str();
39}
40
41SquirrelError::~SquirrelError() throw()
42{}
43
44const char*
45SquirrelError::what() const throw()
46{
47 return message.c_str();
48}
49
50/* EOF */
51