Alc/alcConfig.c

   1 /**
   2  * OpenAL cross platform audio library
   3  * Copyright (C) 1999-2007 by authors.
   4  * This library is free software; you can redistribute it and/or
   5  *  modify it under the terms of the GNU Library General Public
   6  *  License as published by the Free Software Foundation; either
   7  *  version 2 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  *  Library General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Library General Public
  15  *  License along with this library; if not, write to the
  16  *  Free Software Foundation, Inc.,
  17  *  51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  18  * Or go to http://www.gnu.org/copyleft/lgpl.html
  19  */
  20
  21 #ifdef _WIN32
  22 #ifdef __MINGW32__
  23 #define _WIN32_IE 0x501
  24 #else
  25 #define _WIN32_IE 0x400
  26 #endif
  27 #endif
  28
  29 #include "config.h"
  30
  31 #include <stdlib.h>
  32 #include <stdio.h>
  33 #include <ctype.h>
  34 #include <string.h>
  35 #ifdef _WIN32_IE
  36 #include <windows.h>
  37 #include <shlobj.h>
  38 #endif
  39
  40 #include "alMain.h"
  41 #include "compat.h"
  42 #include "bool.h"
  43
  44
  45 typedef struct ConfigEntry {
  46     char *key;
  47     char *value;
  48 } ConfigEntry;
  49
  50 typedef struct ConfigBlock {
  51     ConfigEntry *entries;
  52     unsigned int entryCount;
  53 } ConfigBlock;
  54 static ConfigBlock cfgBlock;
  55
  56
  57 static char *lstrip(char *line)
  58 {
  59     while(isspace(line[0]))
  60         line++;
  61     return line;
  62 }
  63
  64 static char *rstrip(char *line)
  65 {
  66     size_t len = strlen(line);
  67     while(len > 0 && isspace(line[len-1]))
  68         len--;
  69     line[len] = 0;
  70     return line;
  71 }
  72
  73 static int readline(FILE *f, char **output, size_t *maxlen)
  74 {
  75     size_t len = 0;
  76     int c;
  77
  78     while((c=fgetc(f)) != EOF && (c == '\r' || c == '\n'))
  79         ;
  80     if(c == EOF)
  81         return 0;
  82
  83     do {
  84         if(len+1 >= *maxlen)
  85         {
  86             void *temp = NULL;
  87             size_t newmax;
  88
  89             newmax = (*maxlen ? (*maxlen)<<1 : 32);
  90             if(newmax > *maxlen)
  91                 temp = realloc(*output, newmax);
  92             if(!temp)
  93             {
  94                 ERR("Failed to realloc "SZFMT" bytes from "SZFMT"!\n", newmax, *maxlen);
  95                 return 0;
  96             }
  97
  98             *output = temp;
  99             *maxlen = newmax;
 100         }
 101         (*output)[len++] = c;
 102         (*output)[len] = '\0';
 103     } while((c=fgetc(f)) != EOF && c != '\r' && c != '\n');
 104
 105     return 1;
 106 }
 107
 108
 109 static char *expdup(const char *str)
 110 {
 111     char *output = NULL;
 112     size_t maxlen = 0;
 113     size_t len = 0;
 114
 115     while(*str != '\0')
 116     {
 117         const char *addstr;
 118         size_t addstrlen;
 119         size_t i;
 120
 121         if(str[0] != '$')
 122         {
 123             const char *next = strchr(str, '$');
 124             addstr = str;
 125             addstrlen = next ? (size_t)(next-str) : strlen(str);
 126
 127             str += addstrlen;
 128         }
 129         else
 130         {
 131             str++;
 132             if(*str == '$')
 133             {
 134                 const char *next = strchr(str+1, '$');
 135                 addstr = str;
 136                 addstrlen = next ? (size_t)(next-str) : strlen(str);
 137
 138                 str += addstrlen;
 139             }
 140             else
 141             {
 142                 bool hasbraces;
 143                 char envname[1024];
 144                 size_t k = 0;
 145
 146                 hasbraces = (*str == '{');
 147                 if(hasbraces) str++;
 148
 149                 while((isalnum(*str) || *str == '_') && k < sizeof(envname)-1)
 150                     envname[k++] = *(str++);
 151                 envname[k++] = '\0';
 152
 153                 if(hasbraces && *str != '}')
 154                     continue;
 155
 156                 if(hasbraces) str++;
 157                 if((addstr=getenv(envname)) == NULL)
 158                     continue;
 159                 addstrlen = strlen(addstr);
 160             }
 161         }
 162         if(addstrlen == 0)
 163             continue;
 164
 165         if(addstrlen >= maxlen-len)
 166         {
 167             void *temp = NULL;
 168             size_t newmax;
 169
 170             newmax = len+addstrlen+1;
 171             if(newmax > maxlen)
 172                 temp = realloc(output, newmax);
 173             if(!temp)
 174             {
 175                 ERR("Failed to realloc "SZFMT" bytes from "SZFMT"!\n", newmax, maxlen);
 176                 return output;
 177             }
 178
 179             output = temp;
 180             maxlen = newmax;
 181         }
 182
 183         for(i = 0;i < addstrlen;i++)
 184             output[len++] = addstr[i];
 185         output[len] = '\0';
 186     }
 187
 188     return output ? output : calloc(1, 1);
 189 }
 190
 191
 192 static void LoadConfigFromFile(FILE *f)
 193 {
 194     char curSection[128] = "";
 195     char *buffer = NULL;
 196     size_t maxlen = 0;
 197     ConfigEntry *ent;
 198
 199     while(readline(f, &buffer, &maxlen))
 200     {
 201         char *line, *comment;
 202         char key[256] = "";
 203         char value[256] = "";
 204
 205         line = rstrip(lstrip(buffer));
 206         if(!line[0]) continue;
 207
 208         if(line[0] == '[')
 209         {
 210             char *section = line+1;
 211             char *endsection;
 212
 213             endsection = strchr(section, ']');
 214             if(!endsection || section == endsection)
 215             {
 216                 ERR("config parse error: bad line \"%s\"\n", line);
 217                 continue;
 218             }
 219             if(endsection[1] != 0)
 220             {
 221                 char *end = endsection+1;
 222                 while(isspace(*end))
 223                     ++end;
 224                 if(*end != 0 && *end != '#')
 225                 {
 226                     ERR("config parse error: bad line \"%s\"\n", line);
 227                     continue;
 228                 }
 229             }
 230             *endsection = 0;
 231
 232             if(strcasecmp(section, "general") == 0)
 233                 curSection[0] = 0;
 234             else
 235             {
 236                 strncpy(curSection, section, sizeof(curSection)-1);
 237                 curSection[sizeof(curSection)-1] = 0;
 238             }
 239
 240             continue;
 241         }
 242
 243         comment = strchr(line, '#');
 244         if(comment) *(comment++) = 0;
 245         if(!line[0]) continue;
 246
 247         if(sscanf(line, "%255[^=] = \"%255[^\"]\"", key, value) == 2 ||
 248            sscanf(line, "%255[^=] = '%255[^\']'", key, value) == 2 ||
 249            sscanf(line, "%255[^=] = %255[^\n]", key, value) == 2)
 250         {
 251             /* sscanf doesn't handle '' or "" as empty values, so clip it
 252              * manually. */
 253             if(strcmp(value, "\"\"") == 0 || strcmp(value, "''") == 0)
 254                 value[0] = 0;
 255         }
 256         else if(sscanf(line, "%255[^=] %255[=]", key, value) == 2)
 257         {
 258             /* Special case for 'key =' */
 259             value[0] = 0;
 260         }
 261         else
 262         {
 263             ERR("config parse error: malformed option line: \"%s\"\n\n", line);
 264             continue;
 265         }
 266         rstrip(key);
 267
 268         if(curSection[0] != 0)
 269         {
 270             size_t len = strlen(curSection);
 271             memmove(&key[len+1], key, sizeof(key)-1-len);
 272             key[len] = '/';
 273             memcpy(key, curSection, len);
 274         }
 275
 276         /* Check if we already have this option set */
 277         ent = cfgBlock.entries;
 278         while((unsigned int)(ent-cfgBlock.entries) < cfgBlock.entryCount)
 279         {
 280             if(strcasecmp(ent->key, key) == 0)
 281                 break;
 282             ent++;
 283         }
 284
 285         if((unsigned int)(ent-cfgBlock.entries) >= cfgBlock.entryCount)
 286         {
 287             /* Allocate a new option entry */
 288             ent = realloc(cfgBlock.entries, (cfgBlock.entryCount+1)*sizeof(ConfigEntry));
 289             if(!ent)
 290             {
 291                  ERR("config parse error: error reallocating config entries\n");
 292                  continue;
 293             }
 294             cfgBlock.entries = ent;
 295             ent = cfgBlock.entries + cfgBlock.entryCount;
 296             cfgBlock.entryCount++;
 297
 298             ent->key = strdup(key);
 299             ent->value = NULL;
 300         }
 301
 302         free(ent->value);
 303         ent->value = expdup(value);
 304
 305         TRACE("found '%s' = '%s'\n", ent->key, ent->value);
 306     }
 307
 308     free(buffer);
 309 }
 310
 311 #ifdef _WIN32
 312 void ReadALConfig(void)
 313 {
 314     WCHAR buffer[PATH_MAX];
 315     const WCHAR *str;
 316     FILE *f;
 317
 318     if(SHGetSpecialFolderPathW(NULL, buffer, CSIDL_APPDATA, FALSE) != FALSE)
 319     {
 320         al_string filepath = AL_STRING_INIT_STATIC();
 321         al_string_copy_wcstr(&filepath, buffer);
 322         al_string_append_cstr(&filepath, "\\alsoft.ini");
 323
 324         TRACE("Loading config %s...\n", al_string_get_cstr(filepath));
 325         f = al_fopen(al_string_get_cstr(filepath), "rt");
 326         if(f)
 327         {
 328             LoadConfigFromFile(f);
 329             fclose(f);
 330         }
 331         al_string_deinit(&filepath);
 332     }
 333
 334     if((str=_wgetenv(L"ALSOFT_CONF")) != NULL && *str)
 335     {
 336         al_string filepath = AL_STRING_INIT_STATIC();
 337         al_string_copy_wcstr(&filepath, str);
 338
 339         TRACE("Loading config %s...\n", al_string_get_cstr(filepath));
 340         f = al_fopen(al_string_get_cstr(filepath), "rt");
 341         if(f)
 342         {
 343             LoadConfigFromFile(f);
 344             fclose(f);
 345         }
 346         al_string_deinit(&filepath);
 347     }
 348 }
 349 #else
 350 void ReadALConfig(void)
 351 {
 352     char buffer[PATH_MAX];
 353     const char *str;
 354     FILE *f;
 355
 356     str = "/etc/openal/alsoft.conf";
 357
 358     TRACE("Loading config %s...\n", str);
 359     f = al_fopen(str, "r");
 360     if(f)
 361     {
 362         LoadConfigFromFile(f);
 363         fclose(f);
 364     }
 365
 366     if(!(str=getenv("XDG_CONFIG_DIRS")) || str[0] == 0)
 367         str = "/etc/xdg";
 368     strncpy(buffer, str, sizeof(buffer)-1);
 369     buffer[sizeof(buffer)-1] = 0;
 370     /* Go through the list in reverse, since "the order of base directories
 371      * denotes their importance; the first directory listed is the most
 372      * important". Ergo, we need to load the settings from the later dirs
 373      * first so that the settings in the earlier dirs override them.
 374      */
 375     while(1)
 376     {
 377         char *next = strrchr(buffer, ':');
 378         if(next) *(next++) = 0;
 379         else next = buffer;
 380
 381         if(next[0] != '/')
 382             WARN("Ignoring XDG config dir: %s\n", next);
 383         else
 384         {
 385             size_t len = strlen(next);
 386             strncpy(next+len, "/alsoft.conf", buffer+sizeof(buffer)-next-len);
 387             buffer[sizeof(buffer)-1] = 0;
 388
 389             TRACE("Loading config %s...\n", next);
 390             f = al_fopen(next, "r");
 391             if(f)
 392             {
 393                 LoadConfigFromFile(f);
 394                 fclose(f);
 395             }
 396         }
 397         if(next == buffer)
 398             break;
 399     }
 400
 401     if((str=getenv("HOME")) != NULL && *str)
 402     {
 403         snprintf(buffer, sizeof(buffer), "%s/.alsoftrc", str);
 404
 405         TRACE("Loading config %s...\n", buffer);
 406         f = al_fopen(buffer, "r");
 407         if(f)
 408         {
 409             LoadConfigFromFile(f);
 410             fclose(f);
 411         }
 412     }
 413
 414     if((str=getenv("XDG_CONFIG_HOME")) != NULL && str[0] != 0)
 415         snprintf(buffer, sizeof(buffer), "%s/%s", str, "alsoft.conf");
 416     else
 417     {
 418         buffer[0] = 0;
 419         if((str=getenv("HOME")) != NULL && str[0] != 0)
 420             snprintf(buffer, sizeof(buffer), "%s/.config/%s", str, "alsoft.conf");
 421     }
 422     if(buffer[0] != 0)
 423     {
 424         TRACE("Loading config %s...\n", buffer);
 425         f = al_fopen(buffer, "r");
 426         if(f)
 427         {
 428             LoadConfigFromFile(f);
 429             fclose(f);
 430         }
 431     }
 432
 433     if((str=getenv("ALSOFT_CONF")) != NULL && *str)
 434     {
 435         TRACE("Loading config %s...\n", str);
 436         f = al_fopen(str, "r");
 437         if(f)
 438         {
 439             LoadConfigFromFile(f);
 440             fclose(f);
 441         }
 442     }
 443 }
 444 #endif
 445
 446 void FreeALConfig(void)
 447 {
 448     unsigned int i;
 449
 450     for(i = 0;i < cfgBlock.entryCount;i++)
 451     {
 452         free(cfgBlock.entries[i].key);
 453         free(cfgBlock.entries[i].value);
 454     }
 455     free(cfgBlock.entries);
 456 }
 457
 458 const char *GetConfigValue(const char *devName, const char *blockName, const char *keyName, const char *def)
 459 {
 460     unsigned int i;
 461     char key[256];
 462
 463     if(!keyName)
 464         return def;
 465
 466     if(blockName && strcasecmp(blockName, "general") != 0)
 467     {
 468         if(devName)
 469             snprintf(key, sizeof(key), "%s/%s/%s", blockName, devName, keyName);
 470         else
 471             snprintf(key, sizeof(key), "%s/%s", blockName, keyName);
 472     }
 473     else
 474     {
 475         if(devName)
 476             snprintf(key, sizeof(key), "%s/%s", devName, keyName);
 477         else
 478         {
 479             strncpy(key, keyName, sizeof(key)-1);
 480             key[sizeof(key)-1] = 0;
 481         }
 482     }
 483
 484     for(i = 0;i < cfgBlock.entryCount;i++)
 485     {
 486         if(strcmp(cfgBlock.entries[i].key, key) == 0)
 487         {
 488             TRACE("Found %s = \"%s\"\n", key, cfgBlock.entries[i].value);
 489             if(cfgBlock.entries[i].value[0])
 490                 return cfgBlock.entries[i].value;
 491             return def;
 492         }
 493     }
 494
 495     if(!devName)
 496     {
 497         TRACE("Key %s not found\n", key);
 498         return def;
 499     }
 500     return GetConfigValue(NULL, blockName, keyName, def);
 501 }
 502
 503 int ConfigValueExists(const char *devName, const char *blockName, const char *keyName)
 504 {
 505     const char *val = GetConfigValue(devName, blockName, keyName, "");
 506     return !!val[0];
 507 }
 508
 509 int ConfigValueStr(const char *devName, const char *blockName, const char *keyName, const char **ret)
 510 {
 511     const char *val = GetConfigValue(devName, blockName, keyName, "");
 512     if(!val[0]) return 0;
 513
 514     *ret = val;
 515     return 1;
 516 }
 517
 518 int ConfigValueInt(const char *devName, const char *blockName, const char *keyName, int *ret)
 519 {
 520     const char *val = GetConfigValue(devName, blockName, keyName, "");
 521     if(!val[0]) return 0;
 522
 523     *ret = strtol(val, NULL, 0);
 524     return 1;
 525 }
 526
 527 int ConfigValueUInt(const char *devName, const char *blockName, const char *keyName, unsigned int *ret)
 528 {
 529     const char *val = GetConfigValue(devName, blockName, keyName, "");
 530     if(!val[0]) return 0;
 531
 532     *ret = strtoul(val, NULL, 0);
 533     return 1;
 534 }
 535
 536 int ConfigValueFloat(const char *devName, const char *blockName, const char *keyName, float *ret)
 537 {
 538     const char *val = GetConfigValue(devName, blockName, keyName, "");
 539     if(!val[0]) return 0;
 540
 541 #ifdef HAVE_STRTOF
 542     *ret = strtof(val, NULL);
 543 #else
 544     *ret = (float)strtod(val, NULL);
 545 #endif
 546     return 1;
 547 }
 548
 549 int ConfigValueBool(const char *devName, const char *blockName, const char *keyName, int *ret)
 550 {
 551     const char *val = GetConfigValue(devName, blockName, keyName, "");
 552     if(!val[0]) return 0;
 553
 554     *ret = (strcasecmp(val, "true") == 0 || strcasecmp(val, "yes") == 0 ||
 555             strcasecmp(val, "on") == 0 || atoi(val) != 0);
 556     return 1;
 557 }
 558
 559 int GetConfigValueBool(const char *devName, const char *blockName, const char *keyName, int def)
 560 {
 561     const char *val = GetConfigValue(devName, blockName, keyName, "");
 562
 563     if(!val[0]) return !!def;
 564     return (strcasecmp(val, "true") == 0 || strcasecmp(val, "yes") == 0 ||
 565             strcasecmp(val, "on") == 0 || atoi(val) != 0);
 566 }