src/scripting/squirrel_error.cpp

   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 "scripting/squirrel_error.hpp"
  18 #include <sstream>
  19
  20 namespace Scripting {
  21
  22 SquirrelError::SquirrelError(HSQUIRRELVM v, const std::string& message) throw()
  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   this->message = msg.str();
  39 }
  40
  41 SquirrelError::~SquirrelError() throw()
  42 {}
  43
  44 const char*
  45 SquirrelError::what() const throw()
  46 {
  47   return message.c_str();
  48 }
  49
  50 }
  51
  52 /* EOF */