lib/utils/configfile.cpp

   1 //  $Id$
   2 //
   3 //  SuperTux -  A Jump'n Run
   4 //  Copyright (C) 2004 Michael George <mike@georgetech.com>
   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 #include <cstdlib>
  21 #include <string>
  22
  23 #include "utils/configfile.h"
  24 #include "app/setup.h"
  25 #include "app/globals.h"
  26
  27 #ifdef WIN32
  28 const char * config_filename = "/st_config.dat";
  29 #else
  30 const char * config_filename = "/config";
  31 #endif
  32
  33 Config* config = 0;
  34
  35 static void defaults ()
  36 {
  37   /* Set defaults: */
  38   debug_mode = false;
  39   audio_device = true;
  40
  41   use_fullscreen = false;
  42   show_fps = false;
  43   use_gl = false;
  44
  45   use_sound = true;
  46   use_music = true;
  47 }
  48
  49 void Config::load()
  50 {
  51   FILE * file = NULL;
  52
  53   defaults();
  54
  55   /* override defaults from config file */
  56
  57   file = opendata(config_filename, "r");
  58
  59   if (file == NULL)
  60     return;
  61
  62   /* read config file */
  63
  64   lisp_stream_t   stream;
  65   lisp_object_t * root_obj = NULL;
  66
  67   lisp_stream_init_file (&stream, file);
  68   root_obj = lisp_read (&stream);
  69
  70   if (root_obj->type == LISP_TYPE_EOF || root_obj->type == LISP_TYPE_PARSE_ERROR)
  71     return;
  72
  73   if (strcmp(lisp_symbol(lisp_car(root_obj)), "supertux-config") != 0)
  74     return;
  75
  76   LispReader reader(lisp_cdr(root_obj));
  77
  78   reader.read_bool("fullscreen", use_fullscreen);
  79   reader.read_bool("sound",      use_sound);
  80   reader.read_bool("music",      use_music);
  81   reader.read_bool("show_fps",   show_fps);
  82
  83   std::string video;
  84   reader.read_string ("video", video);
  85   if (video == "opengl")
  86     use_gl = true;
  87   else
  88     use_gl = false;
  89
  90   reader.read_int ("joystick", joystick_num);
  91
  92   if (joystick_num >= 0)
  93     {
  94     reader.read_int ("joystick-x", joystick_keymap.x_axis);
  95     reader.read_int ("joystick-y", joystick_keymap.y_axis);
  96     reader.read_int ("joystick-a", joystick_keymap.a_button);
  97     reader.read_int ("joystick-b", joystick_keymap.b_button);
  98     reader.read_int ("joystick-start", joystick_keymap.start_button);
  99     reader.read_int ("joystick-deadzone", joystick_keymap.dead_zone);
 100     }
 101
 102   customload(reader);
 103
 104   lisp_free(root_obj);
 105 }
 106
 107 void Config::save ()
 108 {
 109   /* write settings to config file */
 110   FILE * config = opendata(config_filename, "w");
 111
 112   if(config)
 113     {
 114       fprintf(config, "(supertux-config\n");
 115       fprintf(config, "\t;; the following options can be set to #t or #f:\n");
 116       fprintf(config, "\t(fullscreen %s)\n", use_fullscreen ? "#t" : "#f");
 117       fprintf(config, "\t(sound      %s)\n", use_sound      ? "#t" : "#f");
 118       fprintf(config, "\t(music      %s)\n", use_music      ? "#t" : "#f");
 119       fprintf(config, "\t(show_fps   %s)\n", show_fps       ? "#t" : "#f");
 120
 121       fprintf(config, "\n\t;; either \"opengl\" or \"sdl\"\n");
 122       fprintf(config, "\t(video      \"%s\")\n", use_gl ? "opengl" : "sdl");
 123
 124       if(use_joystick)
 125         {
 126         fprintf(config, "\n\t;; joystick number:\n");
 127         fprintf(config, "\t(joystick   %d)\n", joystick_num);
 128
 129         fprintf(config, "\t(joystick-x   %d)\n", joystick_keymap.x_axis);
 130         fprintf(config, "\t(joystick-y   %d)\n", joystick_keymap.y_axis);
 131         fprintf(config, "\t(joystick-a   %d)\n", joystick_keymap.a_button);
 132         fprintf(config, "\t(joystick-b   %d)\n", joystick_keymap.b_button);
 133         fprintf(config, "\t(joystick-start  %d)\n", joystick_keymap.start_button);
 134         fprintf(config, "\t(joystick-deadzone  %d)\n", joystick_keymap.dead_zone);
 135         }
 136
 137         customsave(config);
 138
 139       fprintf(config, ")\n");
 140     }
 141 }
 142
 143 /* EOF */