src/lisp/list_iterator.cpp

   1 //  $Id$
   2 //
   3 //  SuperTux
   4 //  Copyright (C) 2005 Matthias Braun <matze@braunis.de>
   5 //
   6 //  This program is free software; you can redistribute it and/or
   7 //  modify it under the terms of the GNU General Public License
   8 //  as published by the Free Software Foundation; either version 2
   9 //  of the License, or (at your option) any later version.
  10 //
  11 //  This program is distributed in the hope that it will be useful,
  12 //  but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 //  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 //  GNU General Public License for more details.
  15 //
  16 //  You should have received a copy of the GNU General Public License
  17 //  along with this program; if not, write to the Free Software
  18 //  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
  19 //  02111-1307, USA.
  20
  21 #include <config.h>
  22
  23 #include "list_iterator.hpp"
  24 #include <stdexcept>
  25
  26 namespace lisp
  27 {
  28
  29 ListIterator::ListIterator(const lisp::Lisp* newlisp)
  30   : current_lisp(0), cur(newlisp)
  31 {
  32 }
  33
  34 bool
  35 ListIterator::next()
  36 {
  37   if(cur == 0)
  38     return false;
  39
  40   const lisp::Lisp* child = cur->get_car();
  41   if(!child)
  42     throw std::runtime_error("child is 0 in list entry");
  43   if(child->get_type() != lisp::Lisp::TYPE_CONS)
  44     throw std::runtime_error("Expected CONS");
  45   const lisp::Lisp* name = child->get_car();
  46   if(!name || (
  47         name->get_type() != lisp::Lisp::TYPE_SYMBOL
  48         && name->get_type() != lisp::Lisp::TYPE_STRING))
  49     throw std::runtime_error("Expected symbol");
  50   name->get(current_item);
  51   current_lisp = child->get_cdr();
  52
  53   cur = cur->get_cdr();
  54   return true;
  55 }
  56
  57 }