platform/common/config_file.c

   1 /*
   2  * Human-readable config file management for PicoDrive
   3  * (C) notaz, 2008-2010
   4  *
   5  * This work is licensed under the terms of MAME license.
   6  * See COPYING file in the top-level directory.
   7  */
   8
   9 #include <stdio.h>
  10 #include <string.h>
  11 #include <stdlib.h>
  12 #ifdef __EPOC32__
  13 #include <unistd.h>
  14 #endif
  15
  16 #include "../libpicofe/input.h"
  17 #include "../libpicofe/plat.h"
  18 #include "../libpicofe/lprintf.h"
  19 #include "config_file.h"
  20
  21 static char *mystrip(char *str);
  22
  23 #ifndef _MSC_VER
  24
  25 #include "menu_pico.h"
  26 #include "emu.h"
  27 #include <pico/pico.h>
  28
  29 // always output DOS endlines
  30 #ifdef _WIN32
  31 #define NL "\n"
  32 #else
  33 #define NL "\r\n"
  34 #endif
  35
  36 static int seek_sect(FILE *f, const char *section)
  37 {
  38         char line[128], *tmp;
  39         int len;
  40
  41         len = strlen(section);
  42         // seek to the section needed
  43         while (!feof(f))
  44         {
  45                 tmp = fgets(line, sizeof(line), f);
  46                 if (tmp == NULL) break;
  47
  48                 if (line[0] != '[') continue; // not section start
  49                 if (strncmp(line + 1, section, len) == 0 && line[len+1] == ']')
  50                         return 1; // found it
  51         }
  52
  53         return 0;
  54 }
  55
  56 static void keys_write(FILE *fn, int dev_id, const int *binds)
  57 {
  58         char act[48];
  59         int key_count = 0, k, i;
  60
  61         in_get_config(dev_id, IN_CFG_BIND_COUNT, &key_count);
  62
  63         for (k = 0; k < key_count; k++)
  64         {
  65                 const char *name;
  66                 int mask;
  67                 act[0] = act[31] = 0;
  68
  69                 name = in_get_key_name(dev_id, k);
  70
  71                 for (i = 0; me_ctrl_actions[i].name != NULL; i++) {
  72                         mask = me_ctrl_actions[i].mask;
  73                         if (mask & binds[IN_BIND_OFFS(k, IN_BINDTYPE_PLAYER12)]) {
  74                                 strncpy(act, me_ctrl_actions[i].name, 31);
  75                                 fprintf(fn, "bind %s = player1 %s" NL, name, mystrip(act));
  76                         }
  77                         mask = me_ctrl_actions[i].mask << 16;
  78                         if (mask & binds[IN_BIND_OFFS(k, IN_BINDTYPE_PLAYER12)]) {
  79                                 strncpy(act, me_ctrl_actions[i].name, 31);
  80                                 fprintf(fn, "bind %s = player2 %s" NL, name, mystrip(act));
  81                         }
  82                 }
  83
  84                 for (i = 0; emuctrl_actions[i].name != NULL; i++) {
  85                         mask = emuctrl_actions[i].mask;
  86                         if (mask & binds[IN_BIND_OFFS(k, IN_BINDTYPE_EMU)]) {
  87                                 strncpy(act, emuctrl_actions[i].name, 31);
  88                                 fprintf(fn, "bind %s = %s" NL, name, mystrip(act));
  89                         }
  90                 }
  91         }
  92 }
  93
  94 int config_write(const char *fname)
  95 {
  96         FILE *fn = NULL;
  97         menu_entry *me;
  98         int t;
  99         char line[128];
 100
 101         fn = fopen(fname, "w");
 102         if (fn == NULL)
 103                 return -1;
 104
 105         for (me = me_list_get_first(); me != NULL; me = me_list_get_next())
 106         {
 107                 int dummy;
 108                 if (!me->need_to_save || !me->enabled)
 109                         continue;
 110                 if (me->name == NULL || me->name[0] == 0)
 111                         continue;
 112
 113                 if (me->beh == MB_OPT_ONOFF || me->beh == MB_OPT_CUSTONOFF) {
 114                         fprintf(fn, "%s = %i" NL, me->name, (*(int *)me->var & me->mask) ? 1 : 0);
 115                 }
 116                 else if (me->beh == MB_OPT_RANGE || me->beh == MB_OPT_CUSTRANGE) {
 117                         fprintf(fn, "%s = %i" NL, me->name, *(int *)me->var);
 118                 }
 119                 else if (me->beh == MB_OPT_ENUM && me->data != NULL) {
 120                         const char **names = (const char **)me->data;
 121                         for (t = 0; names[t] != NULL; t++) {
 122                                 if (*(int *)me->var == t) {
 123                                         strncpy(line, names[t], sizeof(line));
 124                                         goto write_line;
 125                                 }
 126                         }
 127                 }
 128                 else if (me->generate_name != NULL) {
 129                         strncpy(line, me->generate_name(0, &dummy), sizeof(line));
 130                         goto write_line;
 131                 }
 132                 else
 133                         lprintf("config: unhandled write: %i\n", me->id);
 134                 continue;
 135
 136 write_line:
 137                 line[sizeof(line) - 1] = 0;
 138                 mystrip(line);
 139                 fprintf(fn, "%s = %s" NL, me->name, line);
 140         }
 141
 142         /* input: save binds */
 143         for (t = 0; t < IN_MAX_DEVS; t++)
 144         {
 145                 const int *binds = in_get_dev_binds(t);
 146                 const char *name = in_get_dev_name(t, 0, 0);
 147                 int count = 0;
 148
 149                 if (binds == NULL || name == NULL)
 150                         continue;
 151
 152                 fprintf(fn, "binddev = %s" NL, name);
 153
 154                 in_get_config(t, IN_CFG_BIND_COUNT, &count);
 155                 keys_write(fn, t, binds);
 156         }
 157
 158         fprintf(fn, "Sound Volume = %i" NL, currentConfig.volume);
 159
 160         fprintf(fn, NL);
 161
 162         fclose(fn);
 163         return 0;
 164 }
 165
 166 int config_writelrom(const char *fname)
 167 {
 168         char line[128], *tmp, *optr = NULL;
 169         char *old_data = NULL;
 170         int size;
 171         FILE *f;
 172
 173         if (strlen(rom_fname_loaded) == 0) return -1;
 174
 175         f = fopen(fname, "r");
 176         if (f != NULL)
 177         {
 178                 fseek(f, 0, SEEK_END);
 179                 size = ftell(f);
 180                 fseek(f, 0, SEEK_SET);
 181                 old_data = malloc(size + size/8);
 182                 if (old_data != NULL)
 183                 {
 184                         optr = old_data;
 185                         while (!feof(f))
 186                         {
 187                                 tmp = fgets(line, sizeof(line), f);
 188                                 if (tmp == NULL) break;
 189                                 mystrip(line);
 190                                 if (strncasecmp(line, "LastUsedROM", 11) == 0)
 191                                         continue;
 192                                 sprintf(optr, "%s", line);
 193                                 optr += strlen(optr);
 194                         }
 195                 }
 196                 fclose(f);
 197         }
 198
 199         f = fopen(fname, "w");
 200         if (f == NULL) return -1;
 201
 202         if (old_data != NULL) {
 203                 fwrite(old_data, 1, optr - old_data, f);
 204                 free(old_data);
 205         }
 206         fprintf(f, "LastUsedROM = %s" NL, rom_fname_loaded);
 207         fclose(f);
 208         return 0;
 209 }
 210
 211 /* --------------------------------------------------------------------------*/
 212
 213 int config_readlrom(const char *fname)
 214 {
 215         char line[128], *tmp;
 216         int i, len, ret = -1;
 217         FILE *f;
 218
 219         f = fopen(fname, "r");
 220         if (f == NULL) return -1;
 221
 222         // seek to the section needed
 223         while (!feof(f))
 224         {
 225                 tmp = fgets(line, sizeof(line), f);
 226                 if (tmp == NULL) break;
 227
 228                 if (strncasecmp(line, "LastUsedROM", 11) != 0) continue;
 229                 len = strlen(line);
 230                 for (i = 0; i < len; i++)
 231                         if (line[i] == '#' || line[i] == '\r' || line[i] == '\n') { line[i] = 0; break; }
 232                 tmp = strchr(line, '=');
 233                 if (tmp == NULL) break;
 234                 tmp++;
 235                 mystrip(tmp);
 236
 237                 len = sizeof(rom_fname_loaded);
 238                 strncpy(rom_fname_loaded, tmp, len);
 239                 rom_fname_loaded[len-1] = 0;
 240                 ret = 0;
 241                 break;
 242         }
 243         fclose(f);
 244         return ret;
 245 }
 246
 247 static int custom_read(menu_entry *me, const char *var, const char *val)
 248 {
 249         char *tmp;
 250
 251         switch (me->id)
 252         {
 253                 case MA_OPT_FRAMESKIP:
 254                         if (strcasecmp(var, "Frameskip") != 0) return 0;
 255                         if (strcasecmp(val, "Auto") == 0)
 256                              currentConfig.Frameskip = -1;
 257                         else currentConfig.Frameskip = atoi(val);
 258                         return 1;
 259
 260                 case MA_OPT_SOUND_QUALITY:
 261                         if (strcasecmp(var, "Sound Quality") != 0) return 0;
 262                         PsndRate = strtoul(val, &tmp, 10);
 263                         if (PsndRate < 8000 || PsndRate > 44100)
 264                                 PsndRate = 22050;
 265                         if (*tmp == 'H' || *tmp == 'h') tmp++;
 266                         if (*tmp == 'Z' || *tmp == 'z') tmp++;
 267                         while (*tmp == ' ') tmp++;
 268                         if        (strcasecmp(tmp, "stereo") == 0) {
 269                                 PicoOpt |=  POPT_EN_STEREO;
 270                         } else if (strcasecmp(tmp, "mono") == 0) {
 271                                 PicoOpt &= ~POPT_EN_STEREO;
 272                         } else
 273                                 return 0;
 274                         return 1;
 275
 276                 case MA_OPT_REGION:
 277                         if (strcasecmp(var, "Region") != 0) return 0;
 278                         if       (strncasecmp(val, "Auto: ", 6) == 0)
 279                         {
 280                                 const char *p = val + 5, *end = val + strlen(val);
 281                                 int i;
 282                                 PicoRegionOverride = PicoAutoRgnOrder = 0;
 283                                 for (i = 0; p < end && i < 3; i++)
 284                                 {
 285                                         while (*p == ' ') p++;
 286                                         if        (p[0] == 'J' && p[1] == 'P') {
 287                                                 PicoAutoRgnOrder |= 1 << (i*4);
 288                                         } else if (p[0] == 'U' && p[1] == 'S') {
 289                                                 PicoAutoRgnOrder |= 4 << (i*4);
 290                                         } else if (p[0] == 'E' && p[1] == 'U') {
 291                                                 PicoAutoRgnOrder |= 8 << (i*4);
 292                                         }
 293                                         while (*p != ' ' && *p != 0) p++;
 294                                         if (*p == 0) break;
 295                                 }
 296                         }
 297                         else   if (strcasecmp(val, "Auto") == 0) {
 298                                 PicoRegionOverride = 0;
 299                         } else if (strcasecmp(val, "Japan NTSC") == 0) {
 300                                 PicoRegionOverride = 1;
 301                         } else if (strcasecmp(val, "Japan PAL") == 0) {
 302                                 PicoRegionOverride = 2;
 303                         } else if (strcasecmp(val, "USA") == 0) {
 304                                 PicoRegionOverride = 4;
 305                         } else if (strcasecmp(val, "Europe") == 0) {
 306                                 PicoRegionOverride = 8;
 307                         } else
 308                                 return 0;
 309                         return 1;
 310
 311                 case MA_OPT2_GAMMA:
 312                         if (strcasecmp(var, "Gamma correction") != 0) return 0;
 313                         currentConfig.gamma = (int) (atof(val) * 100.0);
 314                         return 1;
 315
 316                 case MA_CDOPT_READAHEAD:
 317                         if (strcasecmp(var, "ReadAhead buffer") != 0) return 0;
 318                         PicoCDBuffers = atoi(val) / 2;
 319                         return 1;
 320
 321                 case MA_32XOPT_MSH2_CYCLES:
 322                         currentConfig.msh2_khz = atoi(val);
 323                         Pico32xSetClocks(currentConfig.msh2_khz * 1000, 0);
 324                         return 1;
 325
 326                 case MA_32XOPT_SSH2_CYCLES:
 327                         currentConfig.ssh2_khz = atoi(val);
 328                         Pico32xSetClocks(0, currentConfig.ssh2_khz * 1000);
 329                         return 1;
 330
 331                 /* PSP */
 332                 case MA_OPT3_SCALE:
 333                         if (strcasecmp(var, "Scale factor") != 0) return 0;
 334                         currentConfig.scale = atof(val);
 335                         return 1;
 336                 case MA_OPT3_HSCALE32:
 337                         if (strcasecmp(var, "Hor. scale (for low res. games)") != 0) return 0;
 338                         currentConfig.hscale32 = atof(val);
 339                         return 1;
 340                 case MA_OPT3_HSCALE40:
 341                         if (strcasecmp(var, "Hor. scale (for hi res. games)") != 0) return 0;
 342                         currentConfig.hscale40 = atof(val);
 343                         return 1;
 344                 case MA_OPT3_VSYNC:
 345                         // XXX: use enum
 346                         if (strcasecmp(var, "Wait for vsync") != 0) return 0;
 347                         if        (strcasecmp(val, "never") == 0) {
 348                                 currentConfig.EmuOpt &= ~0x12000;
 349                         } else if (strcasecmp(val, "sometimes") == 0) {
 350                                 currentConfig.EmuOpt |=  0x12000;
 351                         } else if (strcasecmp(val, "always") == 0) {
 352                                 currentConfig.EmuOpt &= ~0x12000;
 353                                 currentConfig.EmuOpt |=  0x02000;
 354                         } else
 355                                 return 0;
 356                         return 1;
 357
 358                 default:
 359                         lprintf("unhandled custom_read %i: %s\n", me->id, var);
 360                         return 0;
 361         }
 362 }
 363
 364 static int parse_bind_val(const char *val, int *type)
 365 {
 366         int i;
 367
 368         *type = IN_BINDTYPE_NONE;
 369         if (val[0] == 0)
 370                 return 0;
 371
 372         if (strncasecmp(val, "player", 6) == 0)
 373         {
 374                 int player, shift = 0;
 375                 player = atoi(val + 6) - 1;
 376
 377                 if (player > 1)
 378                         return -1;
 379                 if (player == 1)
 380                         shift = 16;
 381
 382                 *type = IN_BINDTYPE_PLAYER12;
 383                 for (i = 0; me_ctrl_actions[i].name != NULL; i++) {
 384                         if (strncasecmp(me_ctrl_actions[i].name, val + 8, strlen(val + 8)) == 0)
 385                                 return me_ctrl_actions[i].mask << shift;
 386                 }
 387         }
 388         for (i = 0; emuctrl_actions[i].name != NULL; i++) {
 389                 if (strncasecmp(emuctrl_actions[i].name, val, strlen(val)) == 0) {
 390                         *type = IN_BINDTYPE_EMU;
 391                         return emuctrl_actions[i].mask;
 392                 }
 393         }
 394
 395         return -1;
 396 }
 397
 398 static void keys_parse_all(FILE *f)
 399 {
 400         char line[256], *var, *val;
 401         int dev_id = -1;
 402         int acts, type;
 403         int ret;
 404
 405         while (!feof(f))
 406         {
 407                 ret = config_get_var_val(f, line, sizeof(line), &var, &val);
 408                 if (ret ==  0) break;
 409                 if (ret == -1) continue;
 410
 411                 if (strcasecmp(var, "binddev") == 0) {
 412                         dev_id = in_config_parse_dev(val);
 413                         if (dev_id < 0) {
 414                                 printf("input: can't handle dev: %s\n", val);
 415                                 continue;
 416                         }
 417                         in_unbind_all(dev_id, -1, -1);
 418                         continue;
 419                 }
 420                 if (dev_id < 0 || strncasecmp(var, "bind ", 5) != 0)
 421                         continue;
 422
 423                 acts = parse_bind_val(val, &type);
 424                 if (acts == -1) {
 425                         lprintf("config: unhandled action \"%s\"\n", val);
 426                         return;
 427                 }
 428
 429                 mystrip(var + 5);
 430                 in_config_bind_key(dev_id, var + 5, acts, type);
 431         }
 432 }
 433
 434 static void parse(const char *var, const char *val, int *keys_encountered)
 435 {
 436         menu_entry *me;
 437         int tmp;
 438
 439         if (strcasecmp(var, "LastUsedROM") == 0)
 440                 return; /* handled elsewhere */
 441
 442         if (strncasecmp(var, "bind", 4) == 0) {
 443                 *keys_encountered = 1;
 444                 return; /* handled elsewhere */
 445         }
 446
 447         if (strcasecmp(var, "Sound Volume") == 0) {
 448                 currentConfig.volume = atoi(val);
 449                 return;
 450         }
 451
 452         for (me = me_list_get_first(); me != NULL; me = me_list_get_next())
 453         {
 454                 char *p;
 455
 456                 if (!me->need_to_save)
 457                         continue;
 458                 if (me->name == NULL || strcasecmp(var, me->name) != 0)
 459                         continue;
 460
 461                 if (me->beh == MB_OPT_ONOFF) {
 462                         tmp = strtol(val, &p, 0);
 463                         if (*p != 0)
 464                                 goto bad_val;
 465                         if (tmp) *(int *)me->var |=  me->mask;
 466                         else     *(int *)me->var &= ~me->mask;
 467                         return;
 468                 }
 469                 else if (me->beh == MB_OPT_RANGE) {
 470                         tmp = strtol(val, &p, 0);
 471                         if (*p != 0)
 472                                 goto bad_val;
 473                         if (tmp < me->min) tmp = me->min;
 474                         if (tmp > me->max) tmp = me->max;
 475                         *(int *)me->var = tmp;
 476                         return;
 477                 }
 478                 else if (me->beh == MB_OPT_ENUM) {
 479                         const char **names, *p1;
 480                         int i;
 481
 482                         names = (const char **)me->data;
 483                         if (names == NULL)
 484                                 goto bad_val;
 485                         for (i = 0; names[i] != NULL; i++) {
 486                                 for (p1 = names[i]; *p1 == ' '; p1++)
 487                                         ;
 488                                 if (strcasecmp(p1, val) == 0) {
 489                                         *(int *)me->var = i;
 490                                         return;
 491                                 }
 492                         }
 493                         goto bad_val;
 494                 }
 495                 else if (custom_read(me, var, val))
 496                         return;
 497         }
 498
 499         lprintf("config_readsect: unhandled var: \"%s\"\n", var);
 500         return;
 501
 502 bad_val:
 503         lprintf("config_readsect: unhandled val for \"%s\": \"%s\"\n", var, val);
 504 }
 505
 506 int config_readsect(const char *fname, const char *section)
 507 {
 508         char line[128], *var, *val;
 509         int keys_encountered = 0;
 510         FILE *f;
 511         int ret;
 512
 513         f = fopen(fname, "r");
 514         if (f == NULL) return -1;
 515
 516         if (section != NULL)
 517         {
 518                 /* for game_def.cfg only */
 519                 ret = seek_sect(f, section);
 520                 if (!ret) {
 521                         lprintf("config_readsect: %s: missing section [%s]\n", fname, section);
 522                         fclose(f);
 523                         return -1;
 524                 }
 525         }
 526
 527         emu_set_defconfig();
 528
 529         while (!feof(f))
 530         {
 531                 ret = config_get_var_val(f, line, sizeof(line), &var, &val);
 532                 if (ret ==  0) break;
 533                 if (ret == -1) continue;
 534
 535                 parse(var, val, &keys_encountered);
 536         }
 537
 538         if (keys_encountered) {
 539                 rewind(f);
 540                 keys_parse_all(f);
 541         }
 542
 543         fclose(f);
 544
 545         lprintf("config_readsect: loaded from %s", fname);
 546         if (section != NULL)
 547                 lprintf(" [%s]", section);
 548         printf("\n");
 549
 550         return 0;
 551 }
 552
 553 #endif // _MSC_VER
 554
 555 static char *mystrip(char *str)
 556 {
 557         int i, len;
 558
 559         len = strlen(str);
 560         for (i = 0; i < len; i++)
 561                 if (str[i] != ' ') break;
 562         if (i > 0) memmove(str, str + i, len - i + 1);
 563
 564         len = strlen(str);
 565         for (i = len - 1; i >= 0; i--)
 566                 if (str[i] != ' ') break;
 567         str[i+1] = 0;
 568
 569         return str;
 570 }
 571
 572 /* returns:
 573  *  0 - EOF, end
 574  *  1 - parsed ok
 575  * -1 - failed to parse line
 576  */
 577 int config_get_var_val(void *file, char *line, int lsize, char **rvar, char **rval)
 578 {
 579         char *var, *val, *tmp;
 580         FILE *f = file;
 581         int len, i;
 582
 583         tmp = fgets(line, lsize, f);
 584         if (tmp == NULL) return 0;
 585
 586         if (line[0] == '[') return 0; // other section
 587
 588         // strip comments, linefeed, spaces..
 589         len = strlen(line);
 590         for (i = 0; i < len; i++)
 591                 if (line[i] == '#' || line[i] == '\r' || line[i] == '\n') { line[i] = 0; break; }
 592         mystrip(line);
 593         len = strlen(line);
 594         if (len <= 0) return -1;;
 595
 596         // get var and val
 597         for (i = 0; i < len; i++)
 598                 if (line[i] == '=') break;
 599         if (i >= len || strchr(&line[i+1], '=') != NULL) {
 600                 lprintf("config_readsect: can't parse: %s\n", line);
 601                 return -1;
 602         }
 603         line[i] = 0;
 604         var = line;
 605         val = &line[i+1];
 606         mystrip(var);
 607         mystrip(val);
 608
 609 #ifndef _MSC_VER
 610         if (strlen(var) == 0 || (strlen(val) == 0 && strncasecmp(var, "bind", 4) != 0)) {
 611                 lprintf("config_readsect: something's empty: \"%s\" = \"%s\"\n", var, val);
 612                 return -1;;
 613         }
 614 #endif
 615
 616         *rvar = var;
 617         *rval = val;
 618         return 1;
 619 }
 620