4 // Copyright (C) 2004 SuperTux Development Team, see AUTHORS for details
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.
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.
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
25 #include "screen/surface.h"
26 #include "level_subset.h"
28 static bool has_suffix(const std::string& data, const std::string& suffix)
30 if (data.length() >= suffix.length())
31 return data.compare(data.length() - suffix.length(), suffix.length(), suffix) == 0;
36 LevelSubset::LevelSubset()
41 LevelSubset::~LevelSubset()
45 void LevelSubset::create(const std::string& subset_name)
48 LevelSubset new_subset;
49 new_subset.name = subset_name;
50 new_subset.title = "Unknown Title";
51 new_subset.description = "No description so far.";
55 void LevelSubset::read_info_file(const std::string& info_file)
57 lisp_object_t* root_obj = lisp_read_from_file(info_file);
58 lisp_object_t* cur = lisp_car(root_obj);
60 if (lisp_symbol_p(cur) && strcmp(lisp_symbol(cur), "supertux-level-subset") == 0)
62 LispReader reader(lisp_cdr(root_obj));
64 reader.read_string("title", title, true);
65 reader.read_string("description", description, true);
66 reader.read_string_vector("levels", levels);
70 std::cout << "LevelSubset: parse error in info file: " << info_file << std::endl;
76 void LevelSubset::load(const char* subset)
80 // Check in which directory our subset is located (ie. ~/.supertux/
81 // or SUPERTUX_DATADIR)
83 snprintf(filename, 1024, "%s/levels/%s/", st_dir, subset);
84 if (access(filename, R_OK) == 0)
90 snprintf(filename, 1024, "%s/levels/%s/", datadir.c_str(), subset);
91 if (access(filename, R_OK) == 0)
94 std::cout << "Error: LevelSubset: couldn't find subset: " << subset << std::endl;
97 read_info_file(directory + "info");
100 { // Level info file doesn't define any levels, so read the
101 // directory to see what we can find
102 std::vector<std::string> files;
104 snprintf(filename, 1024, "%s/levels/%s/", st_dir, subset);
105 if(access(filename, R_OK) == 0)
107 files = read_directory(filename);
111 snprintf(filename, 1024, "%s/levels/%s/", datadir.c_str(), subset);
112 files = read_directory(filename);
115 for(std::vector<std::string>::iterator i = files.begin(); i != files.end(); ++i)
117 if (has_suffix(*i, ".stl"))
118 levels.push_back(*i);
127 std::string filename;
129 /* Save data file: */
130 filename = "/levels/" + name + "/";
132 fcreatedir(filename.c_str());
133 filename = std::string(st_dir) + "/levels/" + name + "/info";
134 if(!fwriteable(filename.c_str()))
135 filename = datadir + "/levels/" + name + "/info";
136 if(fwriteable(filename.c_str()))
138 fi = fopen(filename.c_str(), "w");
141 perror(filename.c_str());
145 fprintf(fi,";; SuperTux-Level-Subset\n");
146 fprintf(fi,"(supertux-level-subset\n");
148 /* Save title info: */
149 fprintf(fi," (title \"%s\")\n", title.c_str());
151 /* Save the description: */
152 fprintf(fi," (description \"%s\")\n", description.c_str());
160 LevelSubset::add_level(const std::string& name)
162 levels.push_back(name);
166 LevelSubset::get_level_filename(unsigned int num)
168 assert(num < levels.size());
170 return directory + levels[num];
174 LevelSubset::get_num_levels() const
176 return levels.size();