fix incomplete init
[picodrive.git] / platform / common / config_file.c
... / ...
CommitLineData
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
21static 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
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
56static 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
94int 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
136write_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
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
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
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
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
247static 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
364static 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
398static 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
434static 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
502bad_val:
503 lprintf("config_readsect: unhandled val for \"%s\": \"%s\"\n", var, val);
504}
505
506int 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
555static 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 */
577int 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