src/lisp/list_iterator.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 "lisp/list_iterator.hpp"
  18 #include <stdexcept>
  19
  20 namespace lisp {
  21
  22 ListIterator::ListIterator(const lisp::Lisp* newlisp) :
  23   current_item(),
  24   current_lisp(0),
  25   cur(newlisp)
  26 {
  27 }
  28
  29 bool
  30 ListIterator::next()
  31 {
  32   if(cur == 0)
  33     return false;
  34
  35   const lisp::Lisp* child = cur->get_car();
  36   if(!child)
  37     throw std::runtime_error("child is 0 in list entry");
  38   if(child->get_type() != lisp::Lisp::TYPE_CONS)
  39     throw std::runtime_error("Expected CONS");
  40   const lisp::Lisp* name = child->get_car();
  41   if(!name || (
  42        name->get_type() != lisp::Lisp::TYPE_SYMBOL
  43        && name->get_type() != lisp::Lisp::TYPE_STRING))
  44     throw std::runtime_error("Expected symbol");
  45   name->get(current_item);
  46   current_lisp = child->get_cdr();
  47
  48   cur = cur->get_cdr();
  49   return true;
  50 }
  51
  52 }
  53
  54 /* EOF */