move over rewritten lispreader from tuxkart (with additional fixes), generalized...
[supertux.git] / src / tile_manager.cpp
1 //  $Id$
2 // 
3 //  SuperTux
4 //  Copyright (C) 2004 Tobias Glaesser <tobi.web@gmx.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 #include <config.h>
21
22 #include <memory>
23 #include <stdexcept>
24 #include <assert.h>
25 #include "video/drawing_context.h"
26 #include "app/setup.h"
27 #include "app/globals.h"
28 #include "lisp/lisp.h"
29 #include "lisp/parser.h"
30 #include "lisp/list_iterator.h"
31 #include "tile.h"
32 #include "tile_manager.h"
33 #include "resources.h"
34 #include "scene.h"
35
36 TileManager::TileManager(const std::string& filename)
37 {
38   load_tileset(filename);
39 }
40
41 TileManager::~TileManager()
42 {
43   for(Tiles::iterator i = tiles.begin(); i != tiles.end(); ++i)
44     delete *i;
45 }
46
47 void TileManager::load_tileset(std::string filename)
48 {
49   // free old tiles
50   for(Tiles::iterator i = tiles.begin(); i != tiles.end(); ++i)
51     delete *i;
52   tiles.clear();
53
54   std::string::size_type t = filename.rfind('/');
55   if(t == std::string::npos) {
56     tiles_path = "";
57   } else {
58     tiles_path = filename.substr(0, t+1);
59   }
60
61   lisp::Parser parser;
62   std::auto_ptr<lisp::Lisp> root (parser.parse(
63         get_resource_filename(filename)));
64
65   const lisp::Lisp* tiles_lisp = root->get_lisp("supertux-tiles");
66   if(!tiles_lisp)
67     throw std::runtime_error("file is not a supertux tiles file.");
68
69   lisp::ListIterator iter(tiles_lisp);
70   while(iter.next()) {
71     if(iter.item() == "tile") {
72       Tile* tile = new Tile();
73       tile->parse(*(iter.lisp()));
74       while(tile->id >= tiles.size()) {
75         tiles.push_back(0);
76       }
77       tiles[tile->id] = tile;
78     } else if(iter.item() == "tilegroup") {
79         TileGroup tilegroup;
80         const lisp::Lisp* tilegroup_lisp = iter.lisp();
81         tilegroup_lisp->get("name", tilegroup.name);
82         tilegroup_lisp->get_vector("tiles", tilegroup.tiles);
83         tilegroups.insert(tilegroup);
84     } else if(iter.item() == "properties") {
85       // deprecated
86     } else {
87       std::cerr << "Unknown symbol '" << iter.item() << "'.\n";
88     }
89   }
90 }
91