-Started to move stuff from library back to main game
[supertux.git] / src / lisp / list_iterator.h
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 #ifndef __LISP_ITERATOR_H__
22 #define __LISP_ITERATOR_H__
23
24 #include "lisp/lisp.h"
25
26 namespace lisp
27 {
28
29 /**
30  * Small and a bit hacky helper class that helps parsing lisp lists where all
31  * entries are lists again themselves
32  */
33 class ListIterator
34 {
35 public:
36   ListIterator(const lisp::Lisp* cur);
37   
38   const std::string& item() const
39   { return current_item; }
40   lisp::Lisp* lisp() const
41   { return current_lisp; }
42   lisp::Lisp* value() const
43   { return current_lisp->get_car(); }
44   bool next();
45
46 private:
47   std::string current_item;
48   lisp::Lisp* current_lisp;
49   const lisp::Lisp* cur;
50 };
51
52 }
53
54 #endif
55