android: make armeabi buildable
[picodrive.git] / platform / common / config_file.c
CommitLineData
835e7900 1/*
2 * Human-readable config file management for PicoDrive
cff531af 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.
835e7900 7 */
8
4609d0cd 9#include <stdio.h>
835e7900 10#include <string.h>
11#include <stdlib.h>
f8af9634 12#ifdef __EPOC32__
ca482e5d 13#include <unistd.h>
14#endif
e743be20 15
16#include "../libpicofe/input.h"
17#include "../libpicofe/plat.h"
18#include "../libpicofe/lprintf.h"
39e6f973 19#include "config_file.h"
4609d0cd 20
21static char *mystrip(char *str);
22
23#ifndef _MSC_VER
24
21ebcfd3 25#include "menu_pico.h"
835e7900 26#include "emu.h"
efcba75f 27#include <pico/pico.h>
835e7900 28
823b9004 29// always output DOS endlines
30#ifdef _WIN32
31#define NL "\n"
32#else
7b802576 33#define NL "\r\n"
823b9004 34#endif
835e7900 35
835e7900 36static 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
504e2f56 56static void keys_write(FILE *fn, int dev_id, const int *binds)
1ca2ea4f 57{
7e4c661a 58 char act[48];
45285368 59 int key_count = 0, k, i;
7e4c661a 60
45285368 61 in_get_config(dev_id, IN_CFG_BIND_COUNT, &key_count);
1ca2ea4f 62
093b8a42 63 for (k = 0; k < key_count; k++)
1ca2ea4f 64 {
7e4c661a 65 const char *name;
504e2f56 66 int mask;
1ca2ea4f 67 act[0] = act[31] = 0;
7e4c661a 68
093b8a42 69 name = in_get_key_name(dev_id, k);
ca482e5d 70
67b7b971 71 for (i = 0; me_ctrl_actions[i].name != NULL; i++) {
093b8a42 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);
504e2f56 75 fprintf(fn, "bind %s = player1 %s" NL, name, mystrip(act));
093b8a42 76 }
77 mask = me_ctrl_actions[i].mask << 16;
78 if (mask & binds[IN_BIND_OFFS(k, IN_BINDTYPE_PLAYER12)]) {
bdec53c9 79 strncpy(act, me_ctrl_actions[i].name, 31);
504e2f56 80 fprintf(fn, "bind %s = player2 %s" NL, name, mystrip(act));
1ca2ea4f 81 }
82 }
1ca2ea4f 83
bdec53c9 84 for (i = 0; emuctrl_actions[i].name != NULL; i++) {
093b8a42 85 mask = emuctrl_actions[i].mask;
86 if (mask & binds[IN_BIND_OFFS(k, IN_BINDTYPE_EMU)]) {
bdec53c9 87 strncpy(act, emuctrl_actions[i].name, 31);
504e2f56 88 fprintf(fn, "bind %s = %s" NL, name, mystrip(act));
bdec53c9 89 }
90 }
1ca2ea4f 91 }
92}
93
504e2f56 94int config_write(const char *fname)
dabe23b6 95{
504e2f56 96 FILE *fn = NULL;
835e7900 97 menu_entry *me;
504e2f56 98 int t;
99 char line[128];
c46ffd31 100
504e2f56 101 fn = fopen(fname, "w");
102 if (fn == NULL)
835e7900 103 return -1;
835e7900 104
fcdefcf6 105 for (me = me_list_get_first(); me != NULL; me = me_list_get_next())
835e7900 106 {
713c9224 107 int dummy;
504e2f56 108 if (!me->need_to_save || !me->enabled)
fcdefcf6 109 continue;
45285368 110 if (me->name == NULL || me->name[0] == 0)
111 continue;
fcdefcf6 112
dabe23b6 113 if (me->beh == MB_OPT_ONOFF || me->beh == MB_OPT_CUSTONOFF) {
504e2f56 114 fprintf(fn, "%s = %i" NL, me->name, (*(int *)me->var & me->mask) ? 1 : 0);
fcdefcf6 115 }
116 else if (me->beh == MB_OPT_RANGE || me->beh == MB_OPT_CUSTRANGE) {
504e2f56 117 fprintf(fn, "%s = %i" NL, me->name, *(int *)me->var);
fcdefcf6 118 }
119 else if (me->beh == MB_OPT_ENUM && me->data != NULL) {
120 const char **names = (const char **)me->data;
504e2f56 121 for (t = 0; names[t] != NULL; t++) {
122 if (*(int *)me->var == t) {
fcdefcf6 123 strncpy(line, names[t], sizeof(line));
124 goto write_line;
125 }
504e2f56 126 }
fcdefcf6 127 }
45285368 128 else if (me->generate_name != NULL) {
504e2f56 129 strncpy(line, me->generate_name(0, &dummy), sizeof(line));
130 goto write_line;
fcdefcf6 131 }
132 else
133 lprintf("config: unhandled write: %i\n", me->id);
134 continue;
135
136write_line:
137 line[sizeof(line) - 1] = 0;
138 mystrip(line);
139 fprintf(fn, "%s = %s" NL, me->name, line);
835e7900 140 }
1ca2ea4f 141
7e4c661a 142 /* input: save binds */
143 for (t = 0; t < IN_MAX_DEVS; t++)
144 {
145 const int *binds = in_get_dev_binds(t);
713c9224 146 const char *name = in_get_dev_name(t, 0, 0);
45285368 147 int count = 0;
7e4c661a 148
149 if (binds == NULL || name == NULL)
150 continue;
151
504e2f56 152 fprintf(fn, "binddev = %s" NL, name);
7e4c661a 153
45285368 154 in_get_config(t, IN_CFG_BIND_COUNT, &count);
504e2f56 155 keys_write(fn, t, binds);
7e4c661a 156 }
157
504e2f56 158 fprintf(fn, "Sound Volume = %i" NL, currentConfig.volume);
7b802576 159
835e7900 160 fprintf(fn, NL);
161
835e7900 162 fclose(fn);
163 return 0;
164}
165
835e7900 166int 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
713c9224 173 if (strlen(rom_fname_loaded) == 0) return -1;
835e7900 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 }
713c9224 206 fprintf(f, "LastUsedROM = %s" NL, rom_fname_loaded);
835e7900 207 fclose(f);
208 return 0;
209}
210
1ca2ea4f 211/* --------------------------------------------------------------------------*/
212
213int 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
713c9224 237 len = sizeof(rom_fname_loaded);
238 strncpy(rom_fname_loaded, tmp, len);
239 rom_fname_loaded[len-1] = 0;
1ca2ea4f 240 ret = 0;
241 break;
242 }
243 fclose(f);
244 return ret;
245}
246
835e7900 247static int custom_read(menu_entry *me, const char *var, const char *val)
248{
249 char *tmp;
835e7900 250
251 switch (me->id)
252 {
835e7900 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;
21ecaf23 265 if (*tmp == 'H' || *tmp == 'h') tmp++;
266 if (*tmp == 'Z' || *tmp == 'z') tmp++;
835e7900 267 while (*tmp == ' ') tmp++;
268 if (strcasecmp(tmp, "stereo") == 0) {
602133e1 269 PicoOpt |= POPT_EN_STEREO;
835e7900 270 } else if (strcasecmp(tmp, "mono") == 0) {
602133e1 271 PicoOpt &= ~POPT_EN_STEREO;
835e7900 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;
c46ffd31 283 for (i = 0; p < end && i < 3; i++)
284 {
285 while (*p == ' ') p++;
835e7900 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 }
c46ffd31 293 while (*p != ' ' && *p != 0) p++;
294 if (*p == 0) break;
835e7900 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
fcdefcf6 311 case MA_32XOPT_MSH2_CYCLES:
ed4402a7 312 currentConfig.msh2_khz = atoi(val);
313 Pico32xSetClocks(currentConfig.msh2_khz * 1000, 0);
314 return 1;
315
316 case MA_32XOPT_SSH2_CYCLES:
317 currentConfig.ssh2_khz = atoi(val);
318 Pico32xSetClocks(0, currentConfig.ssh2_khz * 1000);
fcdefcf6 319 return 1;
fcdefcf6 320
68af34fe 321 case MA_OPT2_GAMMA:
322 currentConfig.gamma = atoi(val);
323 return 1;
324
6fc57144 325 /* PSP */
326 case MA_OPT3_SCALE:
327 if (strcasecmp(var, "Scale factor") != 0) return 0;
328 currentConfig.scale = atof(val);
329 return 1;
330 case MA_OPT3_HSCALE32:
331 if (strcasecmp(var, "Hor. scale (for low res. games)") != 0) return 0;
332 currentConfig.hscale32 = atof(val);
333 return 1;
334 case MA_OPT3_HSCALE40:
335 if (strcasecmp(var, "Hor. scale (for hi res. games)") != 0) return 0;
336 currentConfig.hscale40 = atof(val);
337 return 1;
6fc57144 338 case MA_OPT3_VSYNC:
fcdefcf6 339 // XXX: use enum
6fc57144 340 if (strcasecmp(var, "Wait for vsync") != 0) return 0;
341 if (strcasecmp(val, "never") == 0) {
342 currentConfig.EmuOpt &= ~0x12000;
343 } else if (strcasecmp(val, "sometimes") == 0) {
344 currentConfig.EmuOpt |= 0x12000;
345 } else if (strcasecmp(val, "always") == 0) {
346 currentConfig.EmuOpt &= ~0x12000;
347 currentConfig.EmuOpt |= 0x02000;
348 } else
349 return 0;
350 return 1;
351
835e7900 352 default:
fcdefcf6 353 lprintf("unhandled custom_read %i: %s\n", me->id, var);
835e7900 354 return 0;
355 }
356}
357
093b8a42 358static int parse_bind_val(const char *val, int *type)
7e4c661a 359{
360 int i;
361
093b8a42 362 *type = IN_BINDTYPE_NONE;
7e4c661a 363 if (val[0] == 0)
364 return 0;
365
366 if (strncasecmp(val, "player", 6) == 0)
367 {
093b8a42 368 int player, shift = 0;
7e4c661a 369 player = atoi(val + 6) - 1;
093b8a42 370
7e4c661a 371 if (player > 1)
372 return -1;
093b8a42 373 if (player == 1)
374 shift = 16;
7e4c661a 375
093b8a42 376 *type = IN_BINDTYPE_PLAYER12;
67b7b971 377 for (i = 0; me_ctrl_actions[i].name != NULL; i++) {
7e4c661a 378 if (strncasecmp(me_ctrl_actions[i].name, val + 8, strlen(val + 8)) == 0)
093b8a42 379 return me_ctrl_actions[i].mask << shift;
7e4c661a 380 }
381 }
382 for (i = 0; emuctrl_actions[i].name != NULL; i++) {
093b8a42 383 if (strncasecmp(emuctrl_actions[i].name, val, strlen(val)) == 0) {
384 *type = IN_BINDTYPE_EMU;
7e4c661a 385 return emuctrl_actions[i].mask;
093b8a42 386 }
7e4c661a 387 }
388
389 return -1;
390}
391
504e2f56 392static void keys_parse_all(FILE *f)
1ca2ea4f 393{
504e2f56 394 char line[256], *var, *val;
395 int dev_id = -1;
093b8a42 396 int acts, type;
504e2f56 397 int ret;
1ca2ea4f 398
504e2f56 399 while (!feof(f))
400 {
401 ret = config_get_var_val(f, line, sizeof(line), &var, &val);
402 if (ret == 0) break;
403 if (ret == -1) continue;
1ca2ea4f 404
504e2f56 405 if (strcasecmp(var, "binddev") == 0) {
406 dev_id = in_config_parse_dev(val);
407 if (dev_id < 0) {
408 printf("input: can't handle dev: %s\n", val);
409 continue;
410 }
411 in_unbind_all(dev_id, -1, -1);
412 continue;
413 }
414 if (dev_id < 0 || strncasecmp(var, "bind ", 5) != 0)
415 continue;
7e4c661a 416
504e2f56 417 acts = parse_bind_val(val, &type);
418 if (acts == -1) {
419 lprintf("config: unhandled action \"%s\"\n", val);
9db6a544 420 continue;
504e2f56 421 }
7e4c661a 422
504e2f56 423 mystrip(var + 5);
424 in_config_bind_key(dev_id, var + 5, acts, type);
425 }
7e4c661a 426}
427
504e2f56 428static void parse(const char *var, const char *val, int *keys_encountered)
835e7900 429{
430 menu_entry *me;
fcdefcf6 431 int tmp;
835e7900 432
1ca2ea4f 433 if (strcasecmp(var, "LastUsedROM") == 0)
434 return; /* handled elsewhere */
435
7e4c661a 436 if (strncasecmp(var, "bind", 4) == 0) {
504e2f56 437 *keys_encountered = 1;
438 return; /* handled elsewhere */
439 }
7e4c661a 440
504e2f56 441 if (strcasecmp(var, "Sound Volume") == 0) {
442 currentConfig.volume = atoi(val);
1ca2ea4f 443 return;
444 }
7e4c661a 445
fcdefcf6 446 for (me = me_list_get_first(); me != NULL; me = me_list_get_next())
835e7900 447 {
fcdefcf6 448 char *p;
449
713c9224 450 if (!me->need_to_save)
fcdefcf6 451 continue;
45285368 452 if (me->name == NULL || strcasecmp(var, me->name) != 0)
453 continue;
fcdefcf6 454
45285368 455 if (me->beh == MB_OPT_ONOFF) {
456 tmp = strtol(val, &p, 0);
457 if (*p != 0)
fcdefcf6 458 goto bad_val;
45285368 459 if (tmp) *(int *)me->var |= me->mask;
460 else *(int *)me->var &= ~me->mask;
461 return;
462 }
463 else if (me->beh == MB_OPT_RANGE) {
464 tmp = strtol(val, &p, 0);
465 if (*p != 0)
466 goto bad_val;
467 if (tmp < me->min) tmp = me->min;
468 if (tmp > me->max) tmp = me->max;
469 *(int *)me->var = tmp;
470 return;
471 }
472 else if (me->beh == MB_OPT_ENUM) {
473 const char **names, *p1;
474 int i;
475
476 names = (const char **)me->data;
477 if (names == NULL)
478 goto bad_val;
479 for (i = 0; names[i] != NULL; i++) {
480 for (p1 = names[i]; *p1 == ' '; p1++)
481 ;
482 if (strcasecmp(p1, val) == 0) {
483 *(int *)me->var = i;
484 return;
485 }
fcdefcf6 486 }
45285368 487 goto bad_val;
835e7900 488 }
45285368 489 else if (custom_read(me, var, val))
490 return;
835e7900 491 }
fcdefcf6 492
493 lprintf("config_readsect: unhandled var: \"%s\"\n", var);
494 return;
495
496bad_val:
504e2f56 497 lprintf("config_readsect: unhandled val for \"%s\": \"%s\"\n", var, val);
1ca2ea4f 498}
499
835e7900 500int config_readsect(const char *fname, const char *section)
501{
4609d0cd 502 char line[128], *var, *val;
504e2f56 503 int keys_encountered = 0;
1ca2ea4f 504 FILE *f;
4609d0cd 505 int ret;
835e7900 506
1ca2ea4f 507 f = fopen(fname, "r");
d6114368 508 if (f == NULL) return -1;
835e7900 509
510 if (section != NULL)
511 {
504e2f56 512 /* for game_def.cfg only */
835e7900 513 ret = seek_sect(f, section);
514 if (!ret) {
c46ffd31 515 lprintf("config_readsect: %s: missing section [%s]\n", fname, section);
835e7900 516 fclose(f);
517 return -1;
518 }
519 }
520
504e2f56 521 emu_set_defconfig();
bdec53c9 522
835e7900 523 while (!feof(f))
524 {
4609d0cd 525 ret = config_get_var_val(f, line, sizeof(line), &var, &val);
526 if (ret == 0) break;
527 if (ret == -1) continue;
835e7900 528
504e2f56 529 parse(var, val, &keys_encountered);
530 }
531
532 if (keys_encountered) {
533 rewind(f);
534 keys_parse_all(f);
835e7900 535 }
536
537 fclose(f);
504e2f56 538
539 lprintf("config_readsect: loaded from %s", fname);
540 if (section != NULL)
541 lprintf(" [%s]", section);
542 printf("\n");
543
835e7900 544 return 0;
545}
546
4609d0cd 547#endif // _MSC_VER
548
549static char *mystrip(char *str)
550{
551 int i, len;
552
553 len = strlen(str);
554 for (i = 0; i < len; i++)
555 if (str[i] != ' ') break;
556 if (i > 0) memmove(str, str + i, len - i + 1);
557
558 len = strlen(str);
559 for (i = len - 1; i >= 0; i--)
560 if (str[i] != ' ') break;
561 str[i+1] = 0;
562
563 return str;
564}
565
566/* returns:
567 * 0 - EOF, end
568 * 1 - parsed ok
569 * -1 - failed to parse line
570 */
571int config_get_var_val(void *file, char *line, int lsize, char **rvar, char **rval)
572{
573 char *var, *val, *tmp;
574 FILE *f = file;
575 int len, i;
576
577 tmp = fgets(line, lsize, f);
578 if (tmp == NULL) return 0;
579
580 if (line[0] == '[') return 0; // other section
581
582 // strip comments, linefeed, spaces..
583 len = strlen(line);
584 for (i = 0; i < len; i++)
585 if (line[i] == '#' || line[i] == '\r' || line[i] == '\n') { line[i] = 0; break; }
586 mystrip(line);
587 len = strlen(line);
588 if (len <= 0) return -1;;
589
590 // get var and val
591 for (i = 0; i < len; i++)
592 if (line[i] == '=') break;
593 if (i >= len || strchr(&line[i+1], '=') != NULL) {
594 lprintf("config_readsect: can't parse: %s\n", line);
595 return -1;
596 }
597 line[i] = 0;
598 var = line;
599 val = &line[i+1];
600 mystrip(var);
601 mystrip(val);
602
603#ifndef _MSC_VER
604 if (strlen(var) == 0 || (strlen(val) == 0 && strncasecmp(var, "bind", 4) != 0)) {
605 lprintf("config_readsect: something's empty: \"%s\" = \"%s\"\n", var, val);
606 return -1;;
607 }
608#endif
609
610 *rvar = var;
611 *rval = val;
612 return 1;
613}
614