2 * Human-readable config file management for PicoDrive
16 static char *mystrip(char *str);
22 #include <pico/pico.h>
26 static int seek_sect(FILE *f, const char *section)
31 len = strlen(section);
32 // seek to the section needed
35 tmp = fgets(line, sizeof(line), f);
36 if (tmp == NULL) break;
38 if (line[0] != '[') continue; // not section start
39 if (strncmp(line + 1, section, len) == 0 && line[len+1] == ']')
47 static void custom_write(FILE *f, const menu_entry *me, int no_def)
54 if (no_def && defaultConfig.gamma == currentConfig.gamma) return;
55 fprintf(f, "Gamma correction = %.3f", (double)currentConfig.gamma / 100.0);
57 case MA_OPT2_SQUIDGEHACK:
58 if (no_def && !((defaultConfig.EmuOpt^currentConfig.EmuOpt)&0x0010)) return;
59 fprintf(f, "Squidgehack = %i", (currentConfig.EmuOpt&0x0010)>>4);
61 case MA_CDOPT_READAHEAD:
62 if (no_def && defaultConfig.s_PicoCDBuffers == PicoCDBuffers) return;
63 sprintf(str24, "%i", PicoCDBuffers * 2);
64 fprintf(f, "ReadAhead buffer = %s", str24);
68 if (no_def && defaultConfig.scale == currentConfig.scale) return;
69 fprintf(f, "Scale factor = %.2f", currentConfig.scale);
71 case MA_OPT3_HSCALE32:
72 if (no_def && defaultConfig.hscale32 == currentConfig.hscale32) return;
73 fprintf(f, "Hor. scale (for low res. games) = %.2f", currentConfig.hscale32);
75 case MA_OPT3_HSCALE40:
76 if (no_def && defaultConfig.hscale40 == currentConfig.hscale40) return;
77 fprintf(f, "Hor. scale (for hi res. games) = %.2f", currentConfig.hscale40);
79 case MA_OPT3_FILTERING:
80 if (no_def && defaultConfig.scaling == currentConfig.scaling) return;
81 fprintf(f, "Bilinear filtering = %i", currentConfig.scaling);
84 if (no_def && defaultConfig.gamma == currentConfig.gamma) return;
85 fprintf(f, "Gamma adjustment = %i", currentConfig.gamma);
87 case MA_OPT3_BLACKLVL:
88 if (no_def && defaultConfig.gamma2 == currentConfig.gamma2) return;
89 fprintf(f, "Black level = %i", currentConfig.gamma2);
92 if (no_def && (defaultConfig.EmuOpt&0x12000) == (currentConfig.gamma2&0x12000)) return;
93 strcpy(str24, "never");
94 if (currentConfig.EmuOpt & 0x2000)
95 strcpy(str24, (currentConfig.EmuOpt & 0x10000) ? "sometimes" : "always");
96 fprintf(f, "Wait for vsync = %s", str24);
100 lprintf("unhandled custom_write: %i\n", me->id);
107 static void keys_write(FILE *fn, const char *bind_str, int dev_id, const int *binds, int no_defaults)
111 const int *def_binds;
113 key_count = in_get_dev_info(dev_id, IN_INFO_BIND_COUNT);
114 def_binds = in_get_dev_def_binds(dev_id);
116 for (k = 0; k < key_count; k++)
120 act[0] = act[31] = 0;
122 for (t = 0; t < IN_BINDTYPE_COUNT; t++)
123 if (binds[IN_BIND_OFFS(k, t)] != def_binds[IN_BIND_OFFS(k, t)])
126 if (no_defaults && t == IN_BINDTYPE_COUNT)
127 continue; /* no change from defaults */
129 name = in_get_key_name(dev_id, k);
131 for (t = 0; t < IN_BINDTYPE_COUNT; t++)
132 if (binds[IN_BIND_OFFS(k, t)] != 0 || def_binds[IN_BIND_OFFS(k, t)] == 0)
135 if (t == IN_BINDTYPE_COUNT) {
136 /* key has default bind removed */
137 fprintf(fn, "%s %s =" NL, bind_str, name);
141 for (i = 0; i < sizeof(me_ctrl_actions) / sizeof(me_ctrl_actions[0]); i++) {
142 mask = me_ctrl_actions[i].mask;
143 if (mask & binds[IN_BIND_OFFS(k, IN_BINDTYPE_PLAYER12)]) {
144 strncpy(act, me_ctrl_actions[i].name, 31);
145 fprintf(fn, "%s %s = player1 %s" NL, bind_str, name, mystrip(act));
147 mask = me_ctrl_actions[i].mask << 16;
148 if (mask & binds[IN_BIND_OFFS(k, IN_BINDTYPE_PLAYER12)]) {
149 strncpy(act, me_ctrl_actions[i].name, 31);
150 fprintf(fn, "%s %s = player2 %s" NL, bind_str, name, mystrip(act));
154 for (i = 0; emuctrl_actions[i].name != NULL; i++) {
155 mask = emuctrl_actions[i].mask;
156 if (mask & binds[IN_BIND_OFFS(k, IN_BINDTYPE_EMU)]) {
157 strncpy(act, emuctrl_actions[i].name, 31);
158 fprintf(fn, "%s %s = %s" NL, bind_str, name, mystrip(act));
165 static int default_var(const menu_entry *me)
169 case MA_OPT_ACC_TIMING:
170 case MA_OPT_ACC_SPRITES:
171 case MA_OPT_ARM940_SOUND:
172 case MA_OPT_6BUTTON_PAD:
173 case MA_OPT2_ENABLE_Z80:
174 case MA_OPT2_ENABLE_YM2612:
175 case MA_OPT2_ENABLE_SN76496:
176 case MA_OPT2_SVP_DYNAREC:
179 case MA_CDOPT_SAVERAM:
180 case MA_CDOPT_SCALEROT_CHIP:
181 case MA_CDOPT_BETTER_SYNC:
182 return defaultConfig.s_PicoOpt;
184 case MA_OPT_SHOW_FPS:
185 case MA_OPT_ENABLE_SOUND:
186 case MA_OPT_SRAM_STATES:
187 case MA_OPT2_A_SN_GAMMA:
189 case MA_OPT2_GZIP_STATES:
190 case MA_OPT2_NO_LAST_ROM:
191 case MA_OPT2_RAMTIMINGS:
193 return defaultConfig.EmuOpt;
195 case MA_CTRL_TURBO_RATE: return defaultConfig.turbo_rate;
196 case MA_OPT_SCALING: return defaultConfig.scaling;
197 case MA_OPT_ROTATION: return defaultConfig.rotation;
199 case MA_OPT_SAVE_SLOT:
205 int config_writesect(const char *fname, const char *section)
207 FILE *fo = NULL, *fn = NULL; // old and new
208 int no_defaults = 0; // avoid saving defaults
211 char line[128], *tmp;
217 fo = fopen(fname, "r");
219 fn = fopen(fname, "w");
223 ret = seek_sect(fo, section);
225 // sect not found, we can simply append
226 fclose(fo); fo = NULL;
227 fn = fopen(fname, "a");
233 rename(fname, "tmp.cfg");
234 fo = fopen("tmp.cfg", "r");
235 fn = fopen(fname, "w");
236 if (fo == NULL || fn == NULL) goto write;
238 // copy everything until sect
239 tlen = strlen(section);
242 tmp = fgets(line, sizeof(line), fo);
243 if (tmp == NULL) break;
245 if (line[0] == '[' && strncmp(line + 1, section, tlen) == 0 && line[tlen+1] == ']')
250 // now skip to next sect
253 tmp = fgets(line, sizeof(line), fo);
254 if (tmp == NULL) break;
255 if (line[0] == '[') {
256 fseek(fo, -strlen(line), SEEK_CUR);
262 fclose(fo); fo = NULL;
268 fn = fopen(fname, "w");
277 fprintf(fn, "[%s]" NL, section);
279 me = me_list_get_first();
283 if (!me->need_to_save)
285 if (me->beh == MB_OPT_ONOFF) {
286 if (!no_defaults || ((*(int *)me->var ^ default_var(me)) & me->mask))
287 fprintf(fn, "%s = %i" NL, me->name, (*(int *)me->var & me->mask) ? 1 : 0);
288 } else if (me->beh == MB_OPT_RANGE) {
289 if (!no_defaults || (*(int *)me->var ^ default_var(me)))
290 fprintf(fn, "%s = %i" NL, me->name, *(int *)me->var);
291 } else if (me->name != NULL && me->generate_name != NULL) {
292 strncpy(line, me->generate_name(0, &dummy), sizeof(line));
293 line[sizeof(line) - 1] = 0;
295 fprintf(fn, "%s = %s" NL, me->name, line);
297 custom_write(fn, me, no_defaults);
299 me = me_list_get_next();
302 /* input: save device names */
303 for (t = 0; t < IN_MAX_DEVS; t++)
305 const int *binds = in_get_dev_binds(t);
306 const char *name = in_get_dev_name(t, 0, 0);
307 if (binds == NULL || name == NULL)
310 fprintf(fn, "input%d = %s" NL, t, name);
313 /* input: save binds */
314 for (t = 0; t < IN_MAX_DEVS; t++)
316 const int *binds = in_get_dev_binds(t);
317 const char *name = in_get_dev_name(t, 0, 0);
321 if (binds == NULL || name == NULL)
324 sprintf(strbind, "bind%d", t);
325 if (t == 0) strbind[4] = 0;
327 count = in_get_dev_info(t, IN_INFO_BIND_COUNT);
328 keys_write(fn, strbind, t, binds, no_defaults);
333 fprintf(fn, "Sound Volume = %i" NL, currentConfig.volume);
340 // copy whatever is left
343 tmp = fgets(line, sizeof(line), fo);
344 if (tmp == NULL) break;
357 int config_writelrom(const char *fname)
359 char line[128], *tmp, *optr = NULL;
360 char *old_data = NULL;
364 if (strlen(rom_fname_loaded) == 0) return -1;
366 f = fopen(fname, "r");
369 fseek(f, 0, SEEK_END);
371 fseek(f, 0, SEEK_SET);
372 old_data = malloc(size + size/8);
373 if (old_data != NULL)
378 tmp = fgets(line, sizeof(line), f);
379 if (tmp == NULL) break;
381 if (strncasecmp(line, "LastUsedROM", 11) == 0)
383 sprintf(optr, "%s", line);
384 optr += strlen(optr);
390 f = fopen(fname, "w");
391 if (f == NULL) return -1;
393 if (old_data != NULL) {
394 fwrite(old_data, 1, optr - old_data, f);
397 fprintf(f, "LastUsedROM = %s" NL, rom_fname_loaded);
402 /* --------------------------------------------------------------------------*/
404 int config_readlrom(const char *fname)
406 char line[128], *tmp;
407 int i, len, ret = -1;
410 f = fopen(fname, "r");
411 if (f == NULL) return -1;
413 // seek to the section needed
416 tmp = fgets(line, sizeof(line), f);
417 if (tmp == NULL) break;
419 if (strncasecmp(line, "LastUsedROM", 11) != 0) continue;
421 for (i = 0; i < len; i++)
422 if (line[i] == '#' || line[i] == '\r' || line[i] == '\n') { line[i] = 0; break; }
423 tmp = strchr(line, '=');
424 if (tmp == NULL) break;
428 len = sizeof(rom_fname_loaded);
429 strncpy(rom_fname_loaded, tmp, len);
430 rom_fname_loaded[len-1] = 0;
439 static int custom_read(menu_entry *me, const char *var, const char *val)
446 case MA_OPT_RENDERER:
447 if (strcasecmp(var, "Renderer") != 0) return 0;
448 if (strcasecmp(val, "8bit fast") == 0 || strcasecmp(val, "fast") == 0) {
449 PicoOpt |= POPT_ALT_RENDERER;
451 else if (strcasecmp(val, "16bit accurate") == 0 || strcasecmp(val, "accurate") == 0) {
452 PicoOpt &= ~POPT_ALT_RENDERER;
453 currentConfig.EmuOpt |= 0x80;
455 else if (strcasecmp(val, "8bit accurate") == 0) {
456 PicoOpt &= ~POPT_ALT_RENDERER;
457 currentConfig.EmuOpt &= ~0x80;
465 if (strcasecmp(var, "Scaling") != 0) return 0;
466 if (strcasecmp(val, "OFF") == 0) {
467 currentConfig.scaling = EOPT_SCALE_NONE;
468 } else if (strcasecmp(val, "hw horizontal") == 0) {
469 currentConfig.scaling = EOPT_SCALE_HW_H;
470 } else if (strcasecmp(val, "hw horiz. + vert.") == 0) {
471 currentConfig.scaling = EOPT_SCALE_HW_HV;
472 } else if (strcasecmp(val, "sw horizontal") == 0) {
473 currentConfig.scaling = EOPT_SCALE_SW_H;
481 case MA_OPT_FRAMESKIP:
482 if (strcasecmp(var, "Frameskip") != 0) return 0;
483 if (strcasecmp(val, "Auto") == 0)
484 currentConfig.Frameskip = -1;
485 else currentConfig.Frameskip = atoi(val);
488 case MA_OPT_SOUND_QUALITY:
489 if (strcasecmp(var, "Sound Quality") != 0) return 0;
490 PsndRate = strtoul(val, &tmp, 10);
491 if (PsndRate < 8000 || PsndRate > 44100)
493 while (*tmp == ' ') tmp++;
494 if (strcasecmp(tmp, "stereo") == 0) {
495 PicoOpt |= POPT_EN_STEREO;
496 } else if (strcasecmp(tmp, "mono") == 0) {
497 PicoOpt &= ~POPT_EN_STEREO;
503 if (strcasecmp(var, "Region") != 0) return 0;
504 if (strncasecmp(val, "Auto: ", 6) == 0)
506 const char *p = val + 5, *end = val + strlen(val);
508 PicoRegionOverride = PicoAutoRgnOrder = 0;
509 for (i = 0; p < end && i < 3; i++)
511 while (*p == ' ') p++;
512 if (p[0] == 'J' && p[1] == 'P') {
513 PicoAutoRgnOrder |= 1 << (i*4);
514 } else if (p[0] == 'U' && p[1] == 'S') {
515 PicoAutoRgnOrder |= 4 << (i*4);
516 } else if (p[0] == 'E' && p[1] == 'U') {
517 PicoAutoRgnOrder |= 8 << (i*4);
519 while (*p != ' ' && *p != 0) p++;
523 else if (strcasecmp(val, "Auto") == 0) {
524 PicoRegionOverride = 0;
525 } else if (strcasecmp(val, "Japan NTSC") == 0) {
526 PicoRegionOverride = 1;
527 } else if (strcasecmp(val, "Japan PAL") == 0) {
528 PicoRegionOverride = 2;
529 } else if (strcasecmp(val, "USA") == 0) {
530 PicoRegionOverride = 4;
531 } else if (strcasecmp(val, "Europe") == 0) {
532 PicoRegionOverride = 8;
537 case MA_OPT_CONFIRM_STATES:
538 if (strcasecmp(var, "Confirm savestate") != 0) return 0;
539 if (strcasecmp(val, "OFF") == 0) {
540 currentConfig.EmuOpt &= ~(5<<9);
541 } else if (strcasecmp(val, "writes") == 0) {
542 currentConfig.EmuOpt &= ~(5<<9);
543 currentConfig.EmuOpt |= 1<<9;
544 } else if (strcasecmp(val, "loads") == 0) {
545 currentConfig.EmuOpt &= ~(5<<9);
546 currentConfig.EmuOpt |= 4<<9;
547 } else if (strcasecmp(val, "both") == 0) {
548 currentConfig.EmuOpt &= ~(5<<9);
549 currentConfig.EmuOpt |= 5<<9;
555 case MA_OPT_CPU_CLOCKS:
557 if (strcasecmp(var, "GP2X CPU clocks") != 0) return 0;
559 if (strcasecmp(var, "PSP CPU clock") != 0) return 0;
561 currentConfig.CPUclock = atoi(val);
566 if (strcasecmp(var, "Gamma correction") != 0) return 0;
567 currentConfig.gamma = (int) (atof(val) * 100.0);
570 case MA_OPT2_SQUIDGEHACK:
571 if (strcasecmp(var, "Squidgehack") != 0) return 0;
573 if (tmpi) *(int *)me->var |= me->mask;
574 else *(int *)me->var &= ~me->mask;
577 case MA_CDOPT_READAHEAD:
578 if (strcasecmp(var, "ReadAhead buffer") != 0) return 0;
579 PicoCDBuffers = atoi(val) / 2;
584 if (strcasecmp(var, "Scale factor") != 0) return 0;
585 currentConfig.scale = atof(val);
587 case MA_OPT3_HSCALE32:
588 if (strcasecmp(var, "Hor. scale (for low res. games)") != 0) return 0;
589 currentConfig.hscale32 = atof(val);
591 case MA_OPT3_HSCALE40:
592 if (strcasecmp(var, "Hor. scale (for hi res. games)") != 0) return 0;
593 currentConfig.hscale40 = atof(val);
595 case MA_OPT3_FILTERING:
596 if (strcasecmp(var, "Bilinear filtering") != 0) return 0;
597 currentConfig.scaling = atoi(val);
600 if (strcasecmp(var, "Gamma adjustment") != 0) return 0;
601 currentConfig.gamma = atoi(val);
603 case MA_OPT3_BLACKLVL:
604 if (strcasecmp(var, "Black level") != 0) return 0;
605 currentConfig.gamma2 = atoi(val);
608 if (strcasecmp(var, "Wait for vsync") != 0) return 0;
609 if (strcasecmp(val, "never") == 0) {
610 currentConfig.EmuOpt &= ~0x12000;
611 } else if (strcasecmp(val, "sometimes") == 0) {
612 currentConfig.EmuOpt |= 0x12000;
613 } else if (strcasecmp(val, "always") == 0) {
614 currentConfig.EmuOpt &= ~0x12000;
615 currentConfig.EmuOpt |= 0x02000;
621 lprintf("unhandled custom_read: %i\n", me->id);
627 static unsigned int keys_encountered = 0;
629 static int parse_bind_val(const char *val, int *type)
633 *type = IN_BINDTYPE_NONE;
637 if (strncasecmp(val, "player", 6) == 0)
639 int player, shift = 0;
640 player = atoi(val + 6) - 1;
647 *type = IN_BINDTYPE_PLAYER12;
648 for (i = 0; i < sizeof(me_ctrl_actions) / sizeof(me_ctrl_actions[0]); i++) {
649 if (strncasecmp(me_ctrl_actions[i].name, val + 8, strlen(val + 8)) == 0)
650 return me_ctrl_actions[i].mask << shift;
653 for (i = 0; emuctrl_actions[i].name != NULL; i++) {
654 if (strncasecmp(emuctrl_actions[i].name, val, strlen(val)) == 0) {
655 *type = IN_BINDTYPE_EMU;
656 return emuctrl_actions[i].mask;
663 static void keys_parse(const char *key, const char *val, int dev_id)
667 acts = parse_bind_val(val, &type);
669 lprintf("config: unhandled action \"%s\"\n", val);
673 in_config_bind_key(dev_id, key, acts, type);
676 static int get_numvar_num(const char *var)
684 num = strtoul(var, &p, 10);
685 if (*p == 0 || *p == ' ')
691 /* map dev number in confing to input dev number */
692 static unsigned char input_dev_map[IN_MAX_DEVS];
694 static void parse(const char *var, const char *val)
699 if (strcasecmp(var, "LastUsedROM") == 0)
700 return; /* handled elsewhere */
702 if (strcasecmp(var, "Sound Volume") == 0) {
703 currentConfig.volume = atoi(val);
707 /* input: device name */
708 if (strncasecmp(var, "input", 5) == 0) {
709 int num = get_numvar_num(var + 5);
710 if (num >= 0 && num < IN_MAX_DEVS)
711 input_dev_map[num] = in_config_parse_dev(val);
713 lprintf("config: failed to parse: %s\n", var);
718 if (strncasecmp(var, "bind", 4) == 0) {
719 const char *p = var + 4;
720 int num = get_numvar_num(p);
721 if (num < 0 || num >= IN_MAX_DEVS) {
722 lprintf("config: failed to parse: %s\n", var);
726 num = input_dev_map[num];
727 if (num < 0 || num >= IN_MAX_DEVS) {
728 lprintf("config: invalid device id: %s\n", var);
732 while (*p && *p != ' ') p++;
733 while (*p && *p == ' ') p++;
734 keys_parse(p, val, num);
738 me = me_list_get_first();
739 while (me != NULL && ret == 0)
741 if (!me->need_to_save)
743 if (me->name != NULL && me->name[0] != 0) {
744 if (strcasecmp(var, me->name) != 0)
745 goto next; /* surely not this one */
746 if (me->beh == MB_OPT_ONOFF) {
748 if (tmp) *(int *)me->var |= me->mask;
749 else *(int *)me->var &= ~me->mask;
751 } else if (me->beh == MB_OPT_RANGE) {
753 if (tmp < me->min) tmp = me->min;
754 if (tmp > me->max) tmp = me->max;
755 *(int *)me->var = tmp;
759 ret = custom_read(me, var, val);
761 me = me_list_get_next();
763 if (!ret) lprintf("config_readsect: unhandled var: \"%s\"\n", var);
767 int config_havesect(const char *fname, const char *section)
772 f = fopen(fname, "r");
773 if (f == NULL) return 0;
775 ret = seek_sect(f, section);
780 int config_readsect(const char *fname, const char *section)
782 char line[128], *var, *val;
786 f = fopen(fname, "r");
787 if (f == NULL) return -1;
791 ret = seek_sect(f, section);
793 lprintf("config_readsect: %s: missing section [%s]\n", fname, section);
799 keys_encountered = 0;
800 memset(input_dev_map, 0xff, sizeof(input_dev_map));
805 ret = config_get_var_val(f, line, sizeof(line), &var, &val);
807 if (ret == -1) continue;
819 static char *mystrip(char *str)
824 for (i = 0; i < len; i++)
825 if (str[i] != ' ') break;
826 if (i > 0) memmove(str, str + i, len - i + 1);
829 for (i = len - 1; i >= 0; i--)
830 if (str[i] != ' ') break;
839 * -1 - failed to parse line
841 int config_get_var_val(void *file, char *line, int lsize, char **rvar, char **rval)
843 char *var, *val, *tmp;
847 tmp = fgets(line, lsize, f);
848 if (tmp == NULL) return 0;
850 if (line[0] == '[') return 0; // other section
852 // strip comments, linefeed, spaces..
854 for (i = 0; i < len; i++)
855 if (line[i] == '#' || line[i] == '\r' || line[i] == '\n') { line[i] = 0; break; }
858 if (len <= 0) return -1;;
861 for (i = 0; i < len; i++)
862 if (line[i] == '=') break;
863 if (i >= len || strchr(&line[i+1], '=') != NULL) {
864 lprintf("config_readsect: can't parse: %s\n", line);
874 if (strlen(var) == 0 || (strlen(val) == 0 && strncasecmp(var, "bind", 4) != 0)) {
875 lprintf("config_readsect: something's empty: \"%s\" = \"%s\"\n", var, val);