2 // Copyright (C) 2006 Matthias Braun <matze@braunis.de>
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.
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.
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/>.
17 #include "lisp/list_iterator.hpp"
22 ListIterator::ListIterator(const lisp::Lisp* newlisp) :
35 const lisp::Lisp* child = cur->get_car();
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();
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();