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   message()
  24 {
  25   std::ostringstream msg;
  26   msg << "Squirrel error: " << message << " (";
  27   const char* lasterr;
  28   sq_getlasterror(v);
  29   if(sq_gettype(v, -1) != OT_STRING)
  30   {
  31     lasterr = "no error info";
  32   }
  33   else
  34   {
  35     sq_getstring(v, -1, &lasterr);
  36   }
  37   msg << lasterr << ")";
  38   sq_pop(v, 1);
  39   this->message = msg.str();
  40 }
  41
  42 SquirrelError::~SquirrelError() throw()
  43 {}
  44
  45 const char*
  46 SquirrelError::what() const throw()
  47 {
  48   return message.c_str();
  49 }
  50
  51 }
  52
  53 /* EOF */