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     al_string ppath;
 317     FILE *f;
 318
 319     if(SHGetSpecialFolderPathW(NULL, buffer, CSIDL_APPDATA, FALSE) != FALSE)
 320     {
 321         al_string filepath = AL_STRING_INIT_STATIC();
 322         al_string_copy_wcstr(&filepath, buffer);
 323         al_string_append_cstr(&filepath, "\\alsoft.ini");
 324
 325         TRACE("Loading config %s...\n", al_string_get_cstr(filepath));
 326         f = al_fopen(al_string_get_cstr(filepath), "rt");
 327         if(f)
 328         {
 329             LoadConfigFromFile(f);
 330             fclose(f);
 331         }
 332         al_string_deinit(&filepath);
 333     }
 334
 335     ppath = GetProcPath();
 336     if(!al_string_empty(ppath))
 337     {
 338         al_string_append_cstr(&ppath, "\\alsoft.ini");
 339         TRACE("Loading config %s...\n", al_string_get_cstr(ppath));
 340         f = al_fopen(al_string_get_cstr(ppath), "r");
 341         if(f)
 342         {
 343             LoadConfigFromFile(f);
 344             fclose(f);
 345         }
 346     }
 347
 348     if((str=_wgetenv(L"ALSOFT_CONF")) != NULL && *str)
 349     {
 350         al_string filepath = AL_STRING_INIT_STATIC();
 351         al_string_copy_wcstr(&filepath, str);
 352
 353         TRACE("Loading config %s...\n", al_string_get_cstr(filepath));
 354         f = al_fopen(al_string_get_cstr(filepath), "rt");
 355         if(f)
 356         {
 357             LoadConfigFromFile(f);
 358             fclose(f);
 359         }
 360         al_string_deinit(&filepath);
 361     }
 362
 363     al_string_deinit(&ppath);
 364 }
 365 #else
 366 void ReadALConfig(void)
 367 {
 368     char buffer[PATH_MAX];
 369     const char *str;
 370     al_string ppath;
 371     FILE *f;
 372
 373     str = "/etc/openal/alsoft.conf";
 374
 375     TRACE("Loading config %s...\n", str);
 376     f = al_fopen(str, "r");
 377     if(f)
 378     {
 379         LoadConfigFromFile(f);
 380         fclose(f);
 381     }
 382
 383     if(!(str=getenv("XDG_CONFIG_DIRS")) || str[0] == 0)
 384         str = "/etc/xdg";
 385     strncpy(buffer, str, sizeof(buffer)-1);
 386     buffer[sizeof(buffer)-1] = 0;
 387     /* Go through the list in reverse, since "the order of base directories
 388      * denotes their importance; the first directory listed is the most
 389      * important". Ergo, we need to load the settings from the later dirs
 390      * first so that the settings in the earlier dirs override them.
 391      */
 392     while(1)
 393     {
 394         char *next = strrchr(buffer, ':');
 395         if(next) *(next++) = 0;
 396         else next = buffer;
 397
 398         if(next[0] != '/')
 399             WARN("Ignoring XDG config dir: %s\n", next);
 400         else
 401         {
 402             size_t len = strlen(next);
 403             strncpy(next+len, "/alsoft.conf", buffer+sizeof(buffer)-next-len);
 404             buffer[sizeof(buffer)-1] = 0;
 405
 406             TRACE("Loading config %s...\n", next);
 407             f = al_fopen(next, "r");
 408             if(f)
 409             {
 410                 LoadConfigFromFile(f);
 411                 fclose(f);
 412             }
 413         }
 414         if(next == buffer)
 415             break;
 416     }
 417
 418     if((str=getenv("HOME")) != NULL && *str)
 419     {
 420         snprintf(buffer, sizeof(buffer), "%s/.alsoftrc", str);
 421
 422         TRACE("Loading config %s...\n", buffer);
 423         f = al_fopen(buffer, "r");
 424         if(f)
 425         {
 426             LoadConfigFromFile(f);
 427             fclose(f);
 428         }
 429     }
 430
 431     if((str=getenv("XDG_CONFIG_HOME")) != NULL && str[0] != 0)
 432         snprintf(buffer, sizeof(buffer), "%s/%s", str, "alsoft.conf");
 433     else
 434     {
 435         buffer[0] = 0;
 436         if((str=getenv("HOME")) != NULL && str[0] != 0)
 437             snprintf(buffer, sizeof(buffer), "%s/.config/%s", str, "alsoft.conf");
 438     }
 439     if(buffer[0] != 0)
 440     {
 441         TRACE("Loading config %s...\n", buffer);
 442         f = al_fopen(buffer, "r");
 443         if(f)
 444         {
 445             LoadConfigFromFile(f);
 446             fclose(f);
 447         }
 448     }
 449
 450     ppath = GetProcPath();
 451     if(!al_string_empty(ppath))
 452     {
 453         al_string_append_cstr(&ppath, "/alsoft.conf");
 454         TRACE("Loading config %s...\n", al_string_get_cstr(ppath));
 455         f = al_fopen(al_string_get_cstr(ppath), "r");
 456         if(f)
 457         {
 458             LoadConfigFromFile(f);
 459             fclose(f);
 460         }
 461     }
 462
 463     if((str=getenv("ALSOFT_CONF")) != NULL && *str)
 464     {
 465         TRACE("Loading config %s...\n", str);
 466         f = al_fopen(str, "r");
 467         if(f)
 468         {
 469             LoadConfigFromFile(f);
 470             fclose(f);
 471         }
 472     }
 473
 474     al_string_deinit(&ppath);
 475 }
 476 #endif
 477
 478 void FreeALConfig(void)
 479 {
 480     unsigned int i;
 481
 482     for(i = 0;i < cfgBlock.entryCount;i++)
 483     {
 484         free(cfgBlock.entries[i].key);
 485         free(cfgBlock.entries[i].value);
 486     }
 487     free(cfgBlock.entries);
 488 }
 489
 490 const char *GetConfigValue(const char *devName, const char *blockName, const char *keyName, const char *def)
 491 {
 492     unsigned int i;
 493     char key[256];
 494
 495     if(!keyName)
 496         return def;
 497
 498     if(blockName && strcasecmp(blockName, "general") != 0)
 499     {
 500         if(devName)
 501             snprintf(key, sizeof(key), "%s/%s/%s", blockName, devName, keyName);
 502         else
 503             snprintf(key, sizeof(key), "%s/%s", blockName, keyName);
 504     }
 505     else
 506     {
 507         if(devName)
 508             snprintf(key, sizeof(key), "%s/%s", devName, keyName);
 509         else
 510         {
 511             strncpy(key, keyName, sizeof(key)-1);
 512             key[sizeof(key)-1] = 0;
 513         }
 514     }
 515
 516     for(i = 0;i < cfgBlock.entryCount;i++)
 517     {
 518         if(strcmp(cfgBlock.entries[i].key, key) == 0)
 519         {
 520             TRACE("Found %s = \"%s\"\n", key, cfgBlock.entries[i].value);
 521             if(cfgBlock.entries[i].value[0])
 522                 return cfgBlock.entries[i].value;
 523             return def;
 524         }
 525     }
 526
 527     if(!devName)
 528     {
 529         TRACE("Key %s not found\n", key);
 530         return def;
 531     }
 532     return GetConfigValue(NULL, blockName, keyName, def);
 533 }
 534
 535 int ConfigValueExists(const char *devName, const char *blockName, const char *keyName)
 536 {
 537     const char *val = GetConfigValue(devName, blockName, keyName, "");
 538     return !!val[0];
 539 }
 540
 541 int ConfigValueStr(const char *devName, const char *blockName, const char *keyName, const char **ret)
 542 {
 543     const char *val = GetConfigValue(devName, blockName, keyName, "");
 544     if(!val[0]) return 0;
 545
 546     *ret = val;
 547     return 1;
 548 }
 549
 550 int ConfigValueInt(const char *devName, const char *blockName, const char *keyName, int *ret)
 551 {
 552     const char *val = GetConfigValue(devName, blockName, keyName, "");
 553     if(!val[0]) return 0;
 554
 555     *ret = strtol(val, NULL, 0);
 556     return 1;
 557 }
 558
 559 int ConfigValueUInt(const char *devName, const char *blockName, const char *keyName, unsigned int *ret)
 560 {
 561     const char *val = GetConfigValue(devName, blockName, keyName, "");
 562     if(!val[0]) return 0;
 563
 564     *ret = strtoul(val, NULL, 0);
 565     return 1;
 566 }
 567
 568 int ConfigValueFloat(const char *devName, const char *blockName, const char *keyName, float *ret)
 569 {
 570     const char *val = GetConfigValue(devName, blockName, keyName, "");
 571     if(!val[0]) return 0;
 572
 573 #ifdef HAVE_STRTOF
 574     *ret = strtof(val, NULL);
 575 #else
 576     *ret = (float)strtod(val, NULL);
 577 #endif
 578     return 1;
 579 }
 580
 581 int ConfigValueBool(const char *devName, const char *blockName, const char *keyName, int *ret)
 582 {
 583     const char *val = GetConfigValue(devName, blockName, keyName, "");
 584     if(!val[0]) return 0;
 585
 586     *ret = (strcasecmp(val, "true") == 0 || strcasecmp(val, "yes") == 0 ||
 587             strcasecmp(val, "on") == 0 || atoi(val) != 0);
 588     return 1;
 589 }
 590
 591 int GetConfigValueBool(const char *devName, const char *blockName, const char *keyName, int def)
 592 {
 593     const char *val = GetConfigValue(devName, blockName, keyName, "");
 594
 595     if(!val[0]) return !!def;
 596     return (strcasecmp(val, "true") == 0 || strcasecmp(val, "yes") == 0 ||
 597             strcasecmp(val, "on") == 0 || atoi(val) != 0);
 598 }