fix cr/lfs and remove trailing whitespaces...
[supertux.git] / src / lisp / list_iterator.hpp
1 //  $Id$
2 //
3 //  SuperTux
4 //  Copyright (C) 2006 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  02111-1307, USA.
19
20 #ifndef __LISP_ITERATOR_H__
21 #define __LISP_ITERATOR_H__
22
23 #include "lisp/lisp.hpp"
24
25 namespace lisp
26 {
27
28 /**
29  * Small and a bit hacky helper class that helps parsing lisp lists where all
30  * entries are lists again themselves
31  */
32 class ListIterator
33 {
34 public:
35   ListIterator(const lisp::Lisp* cur);
36
37   const std::string& item() const
38   { return current_item; }
39   lisp::Lisp* lisp() const
40   { return current_lisp; }
41   lisp::Lisp* value() const
42   { return current_lisp->get_car(); }
43   bool next();
44
45 private:
46   std::string current_item;
47   lisp::Lisp* current_lisp;
48   const lisp::Lisp* cur;
49 };
50
51 }
52
53 #endif