123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618 |
- /*
- * Human-readable config file management for PicoDrive
- * (C) notaz, 2008-2010
- *
- * This work is licensed under the terms of MAME license.
- * See COPYING file in the top-level directory.
- */
- #include <stdio.h>
- #include <string.h>
- #include <stdlib.h>
- #ifdef __EPOC32__
- #include <unistd.h>
- #endif
- #include "../libpicofe/input.h"
- #include "../libpicofe/plat.h"
- #include "../libpicofe/lprintf.h"
- #include "config_file.h"
- #ifdef USE_LIBRETRO_VFS
- #include "file_stream_transforms.h"
- #endif
- static char *mystrip(char *str);
- #ifndef _MSC_VER
- #include "menu_pico.h"
- #include "emu.h"
- #include <pico/pico.h>
- // always output DOS endlines
- #ifdef _WIN32
- #define NL "\n"
- #else
- #define NL "\r\n"
- #endif
- static int seek_sect(FILE *f, const char *section)
- {
- char line[640], *tmp;
- int len;
- len = strlen(section);
- // seek to the section needed
- while (!feof(f))
- {
- tmp = fgets(line, sizeof(line), f);
- if (tmp == NULL) break;
- if (line[0] != '[') continue; // not section start
- if (strncmp(line + 1, section, len) == 0 && line[len+1] == ']')
- return 1; // found it
- }
- return 0;
- }
- static void keys_write(FILE *fn, int dev_id, const int *binds)
- {
- char act[48];
- int key_count = 0, k, i;
- in_get_config(dev_id, IN_CFG_BIND_COUNT, &key_count);
- for (k = 0; k < key_count; k++)
- {
- const char *name;
- int mask;
- act[0] = act[31] = 0;
- name = in_get_key_name(dev_id, k);
- for (i = 0; me_ctrl_actions[i].name != NULL; i++) {
- mask = me_ctrl_actions[i].mask;
- if (mask & binds[IN_BIND_OFFS(k, IN_BINDTYPE_PLAYER12)]) {
- strncpy(act, me_ctrl_actions[i].name, 31);
- fprintf(fn, "bind %s = player1 %s" NL, name, mystrip(act));
- }
- mask = me_ctrl_actions[i].mask << 16;
- if (mask & binds[IN_BIND_OFFS(k, IN_BINDTYPE_PLAYER12)]) {
- strncpy(act, me_ctrl_actions[i].name, 31);
- fprintf(fn, "bind %s = player2 %s" NL, name, mystrip(act));
- }
- }
- for (i = 0; emuctrl_actions[i].name != NULL; i++) {
- mask = emuctrl_actions[i].mask;
- if (mask & binds[IN_BIND_OFFS(k, IN_BINDTYPE_EMU)]) {
- strncpy(act, emuctrl_actions[i].name, 31);
- fprintf(fn, "bind %s = %s" NL, name, mystrip(act));
- }
- }
- }
- }
- int config_write(const char *fname)
- {
- FILE *fn = NULL;
- menu_entry *me;
- int t;
- char line[640];
- fn = fopen(fname, "w");
- if (fn == NULL)
- return -1;
- for (me = me_list_get_first(); me != NULL; me = me_list_get_next())
- {
- int dummy;
- if (!me->need_to_save || !me->enabled)
- continue;
- if (me->name == NULL || me->name[0] == 0)
- continue;
- if (me->beh == MB_OPT_ONOFF || me->beh == MB_OPT_CUSTONOFF) {
- fprintf(fn, "%s = %i" NL, me->name, (*(int *)me->var & me->mask) ? 1 : 0);
- }
- else if (me->beh == MB_OPT_RANGE || me->beh == MB_OPT_CUSTRANGE) {
- fprintf(fn, "%s = %i" NL, me->name, *(int *)me->var);
- }
- else if (me->beh == MB_OPT_ENUM && me->data != NULL) {
- const char **names = (const char **)me->data;
- for (t = 0; names[t] != NULL; t++) {
- if (*(int *)me->var == t) {
- strncpy(line, names[t], sizeof(line)-1);
- line[sizeof(line)-1] = '\0';
- goto write_line;
- }
- }
- }
- else if (me->generate_name != NULL) {
- strncpy(line, me->generate_name(me->id, &dummy), sizeof(line)-1);
- line[sizeof(line)-1] = '\0';
- goto write_line;
- }
- else
- lprintf("config: unhandled write: %i\n", me->id);
- continue;
- write_line:
- line[sizeof(line) - 1] = 0;
- mystrip(line);
- fprintf(fn, "%s = %s" NL, me->name, line);
- }
- /* input: save binds */
- for (t = 0; t < IN_MAX_DEVS; t++)
- {
- const int *binds = in_get_dev_binds(t);
- const char *name = in_get_dev_name(t, 0, 0);
- int count = 0;
- if (binds == NULL || name == NULL)
- continue;
- fprintf(fn, "binddev = %s" NL, name);
- in_get_config(t, IN_CFG_BIND_COUNT, &count);
- keys_write(fn, t, binds);
- }
- fprintf(fn, "Sound Volume = %i" NL, currentConfig.volume);
- fprintf(fn, NL);
- fclose(fn);
- return 0;
- }
- int config_writelrom(const char *fname)
- {
- char line[640], *tmp, *optr = NULL;
- char *old_data = NULL;
- int size;
- FILE *f;
- if (strlen(rom_fname_loaded) == 0) return -1;
- f = fopen(fname, "r");
- if (f != NULL)
- {
- fseek(f, 0, SEEK_END);
- size = ftell(f);
- fseek(f, 0, SEEK_SET);
- old_data = malloc(size + size/8);
- if (old_data != NULL)
- {
- optr = old_data;
- while (!feof(f))
- {
- tmp = fgets(line, sizeof(line), f);
- if (tmp == NULL) break;
- mystrip(line);
- if (strncasecmp(line, "LastUsedROM", 11) == 0)
- continue;
- sprintf(optr, "%s", line);
- optr += strlen(optr);
- }
- }
- fclose(f);
- }
- f = fopen(fname, "w");
- if (f == NULL) return -1;
- if (old_data != NULL) {
- fwrite(old_data, 1, optr - old_data, f);
- free(old_data);
- }
- fprintf(f, "LastUsedROM = %s" NL, rom_fname_loaded);
- fclose(f);
- return 0;
- }
- /* --------------------------------------------------------------------------*/
- int config_readlrom(const char *fname)
- {
- char line[640], *tmp;
- int i, len, ret = -1;
- FILE *f;
- f = fopen(fname, "r");
- if (f == NULL) return -1;
- // seek to the section needed
- while (!feof(f))
- {
- tmp = fgets(line, sizeof(line), f);
- if (tmp == NULL) break;
- if (strncasecmp(line, "LastUsedROM", 11) != 0) continue;
- len = strlen(line);
- for (i = 0; i < len; i++)
- if (line[i] == '#' || line[i] == '\r' || line[i] == '\n') { line[i] = 0; break; }
- tmp = strchr(line, '=');
- if (tmp == NULL) break;
- tmp++;
- mystrip(tmp);
- len = sizeof(rom_fname_loaded)-1;
- strncpy(rom_fname_loaded, tmp, len);
- rom_fname_loaded[len] = 0;
- ret = 0;
- break;
- }
- fclose(f);
- return ret;
- }
- static int custom_read(menu_entry *me, const char *var, const char *val)
- {
- char *tmp;
- switch (me->id)
- {
- case MA_OPT_FRAMESKIP:
- if (strcasecmp(var, "Frameskip") != 0) return 0;
- if (strcasecmp(val, "Auto") == 0)
- currentConfig.Frameskip = -1;
- else currentConfig.Frameskip = atoi(val);
- return 1;
- case MA_OPT_SOUND_QUALITY:
- if (strcasecmp(var, "Sound Quality") != 0) return 0;
- PicoIn.sndRate = strtoul(val, &tmp, 10);
- if (PicoIn.sndRate < 8000 || PicoIn.sndRate > 44100)
- PicoIn.sndRate = 22050;
- if (*tmp == 'H' || *tmp == 'h') tmp++;
- if (*tmp == 'Z' || *tmp == 'z') tmp++;
- while (*tmp == ' ') tmp++;
- if (strcasecmp(tmp, "stereo") == 0) {
- PicoIn.opt |= POPT_EN_STEREO;
- } else if (strcasecmp(tmp, "mono") == 0) {
- PicoIn.opt &= ~POPT_EN_STEREO;
- } else
- return 0;
- return 1;
- case MA_OPT_SOUND_ALPHA:
- if (strcasecmp(var, "Filter strength") != 0) return 0;
- PicoIn.sndFilterAlpha = 0x10000 * atof(val);
- return 1;
- case MA_OPT_REGION:
- if (strcasecmp(var, "Region") != 0) return 0;
- if (strncasecmp(val, "Auto: ", 6) == 0)
- {
- const char *p = val + 5, *end = val + strlen(val);
- int i;
- PicoIn.regionOverride = PicoIn.autoRgnOrder = 0;
- for (i = 0; p < end && i < 3; i++)
- {
- while (*p == ' ') p++;
- if (p[0] == 'J' && p[1] == 'P') {
- PicoIn.autoRgnOrder |= 1 << (i*4);
- } else if (p[0] == 'U' && p[1] == 'S') {
- PicoIn.autoRgnOrder |= 4 << (i*4);
- } else if (p[0] == 'E' && p[1] == 'U') {
- PicoIn.autoRgnOrder |= 8 << (i*4);
- }
- while (*p != ' ' && *p != 0) p++;
- if (*p == 0) break;
- }
- }
- else if (strcasecmp(val, "Auto") == 0) {
- PicoIn.regionOverride = 0;
- } else if (strcasecmp(val, "Japan NTSC") == 0) {
- PicoIn.regionOverride = 1;
- } else if (strcasecmp(val, "Japan PAL") == 0) {
- PicoIn.regionOverride = 2;
- } else if (strcasecmp(val, "USA") == 0) {
- PicoIn.regionOverride = 4;
- } else if (strcasecmp(val, "Europe") == 0) {
- PicoIn.regionOverride = 8;
- } else
- return 0;
- return 1;
- case MA_32XOPT_MSH2_CYCLES:
- currentConfig.msh2_khz = atoi(val);
- Pico32xSetClocks(currentConfig.msh2_khz * 1000, 0);
- return 1;
- case MA_32XOPT_SSH2_CYCLES:
- currentConfig.ssh2_khz = atoi(val);
- Pico32xSetClocks(0, currentConfig.ssh2_khz * 1000);
- return 1;
- case MA_OPT2_GAMMA:
- currentConfig.gamma = atoi(val);
- return 1;
- case MA_OPT2_MAX_FRAMESKIP:
- currentConfig.max_skip = atoi(val);
- return 1;
- /* PSP */
- case MA_OPT3_VSYNC:
- // XXX: use enum
- if (strcasecmp(var, "Wait for vsync") != 0) return 0;
- if (strcasecmp(val, "never") == 0) {
- currentConfig.EmuOpt &= ~(EOPT_VSYNC|EOPT_VSYNC_MODE);
- } else if (strcasecmp(val, "sometimes") == 0) {
- currentConfig.EmuOpt |= (EOPT_VSYNC|EOPT_VSYNC_MODE);
- } else if (strcasecmp(val, "always") == 0) {
- currentConfig.EmuOpt &= ~EOPT_VSYNC_MODE;
- currentConfig.EmuOpt |= EOPT_VSYNC;
- } else
- return 0;
- return 1;
- default:
- lprintf("unhandled custom_read %i: %s\n", me->id, var);
- return 0;
- }
- }
- static int parse_bind_val(const char *val, int *type)
- {
- int i;
- *type = IN_BINDTYPE_NONE;
- if (val[0] == 0)
- return 0;
-
- if (strncasecmp(val, "player", 6) == 0)
- {
- int player, shift = 0;
- player = atoi(val + 6) - 1;
- if (player > 1)
- return -1;
- if (player == 1)
- shift = 16;
- *type = IN_BINDTYPE_PLAYER12;
- for (i = 0; me_ctrl_actions[i].name != NULL; i++) {
- if (strncasecmp(me_ctrl_actions[i].name, val + 8, strlen(val + 8)) == 0)
- return me_ctrl_actions[i].mask << shift;
- }
- }
- for (i = 0; emuctrl_actions[i].name != NULL; i++) {
- if (strncasecmp(emuctrl_actions[i].name, val, strlen(val)) == 0) {
- *type = IN_BINDTYPE_EMU;
- return emuctrl_actions[i].mask;
- }
- }
- return -1;
- }
- static void keys_parse_all(FILE *f)
- {
- char line[640], *var, *val;
- int dev_id = -1;
- int acts, type;
- int ret;
- while (!feof(f))
- {
- ret = config_get_var_val(f, line, sizeof(line), &var, &val);
- if (ret == 0) break;
- if (ret == -1) continue;
- if (strcasecmp(var, "binddev") == 0) {
- dev_id = in_config_parse_dev(val);
- if (dev_id < 0) {
- printf("input: can't handle dev: %s\n", val);
- continue;
- }
- in_unbind_all(dev_id, -1, -1);
- continue;
- }
- if (dev_id < 0 || strncasecmp(var, "bind ", 5) != 0)
- continue;
- acts = parse_bind_val(val, &type);
- if (acts == -1) {
- lprintf("config: unhandled action \"%s\"\n", val);
- continue;
- }
- mystrip(var + 5);
- in_config_bind_key(dev_id, var + 5, acts, type);
- }
- in_clean_binds();
- }
- static void parse(const char *var, const char *val, int *keys_encountered)
- {
- menu_entry *me;
- int tmp;
- if (strcasecmp(var, "LastUsedROM") == 0)
- return; /* handled elsewhere */
- if (strncasecmp(var, "bind", 4) == 0) {
- *keys_encountered = 1;
- return; /* handled elsewhere */
- }
- if (strcasecmp(var, "Sound Volume") == 0) {
- currentConfig.volume = atoi(val);
- return;
- }
- for (me = me_list_get_first(); me != NULL; me = me_list_get_next())
- {
- char *p;
- if (!me->need_to_save)
- continue;
- if (me->name == NULL || strcasecmp(var, me->name) != 0)
- continue;
- if (me->beh == MB_OPT_ONOFF) {
- tmp = strtol(val, &p, 0);
- if (*p != 0)
- goto bad_val;
- if (tmp) *(int *)me->var |= me->mask;
- else *(int *)me->var &= ~me->mask;
- return;
- }
- else if (me->beh == MB_OPT_RANGE) {
- tmp = strtol(val, &p, 0);
- if (*p != 0)
- goto bad_val;
- if (tmp < me->min) tmp = me->min;
- if (tmp > me->max) tmp = me->max;
- *(int *)me->var = tmp;
- return;
- }
- else if (me->beh == MB_OPT_ENUM) {
- const char **names, *p1;
- int i;
- names = (const char **)me->data;
- if (names == NULL)
- goto bad_val;
- for (i = 0; names[i] != NULL; i++) {
- for (p1 = names[i]; *p1 == ' '; p1++)
- ;
- if (strcasecmp(p1, val) == 0) {
- *(int *)me->var = i;
- return;
- }
- }
- goto bad_val;
- }
- else if (custom_read(me, var, val))
- return;
- }
- lprintf("config_readsect: unhandled var: \"%s\"\n", var);
- return;
- bad_val:
- lprintf("config_readsect: unhandled val for \"%s\": \"%s\"\n", var, val);
- }
- int config_readsect(const char *fname, const char *section)
- {
- char line[640], *var, *val;
- int keys_encountered = 0;
- FILE *f;
- int ret;
- f = fopen(fname, "r");
- if (f == NULL) return -1;
- if (section != NULL)
- {
- /* for game_def.cfg only */
- ret = seek_sect(f, section);
- if (!ret) {
- lprintf("config_readsect: %s: missing section [%s]\n", fname, section);
- fclose(f);
- return -1;
- }
- }
- emu_set_defconfig();
- while (!feof(f))
- {
- ret = config_get_var_val(f, line, sizeof(line), &var, &val);
- if (ret == 0) break;
- if (ret == -1) continue;
- parse(var, val, &keys_encountered);
- }
- if (keys_encountered) {
- rewind(f);
- keys_parse_all(f);
- }
- fclose(f);
- lprintf("config_readsect: loaded from %s", fname);
- if (section != NULL)
- lprintf(" [%s]", section);
- printf("\n");
- return 0;
- }
- #endif // _MSC_VER
- static char *mystrip(char *str)
- {
- int i, len;
- len = strlen(str);
- for (i = 0; i < len; i++)
- if (str[i] != ' ') break;
- if (i > 0) memmove(str, str + i, len - i + 1);
- len = strlen(str);
- for (i = len - 1; i >= 0; i--)
- if (str[i] != ' ') break;
- str[i+1] = 0;
- return str;
- }
- /* returns:
- * 0 - EOF, end
- * 1 - parsed ok
- * -1 - failed to parse line
- */
- int config_get_var_val(void *file, char *line, int lsize, char **rvar, char **rval)
- {
- char *var, *val, *tmp;
- FILE *f = file;
- int len, i;
- tmp = fgets(line, lsize, f);
- if (tmp == NULL) return 0;
- if (line[0] == '[') return 0; // other section
- // strip comments, linefeed, spaces..
- len = strlen(line);
- for (i = 0; i < len; i++)
- if (line[i] == '#' || line[i] == '\r' || line[i] == '\n') { line[i] = 0; break; }
- mystrip(line);
- len = strlen(line);
- if (len <= 0) return -1;;
- // get var and val
- for (i = 0; i < len; i++)
- if (line[i] == '=') break;
- if (i >= len || strchr(&line[i+1], '=') != NULL) {
- lprintf("config_readsect: can't parse: %s\n", line);
- return -1;
- }
- line[i] = 0;
- var = line;
- val = &line[i+1];
- mystrip(var);
- mystrip(val);
- #ifndef _MSC_VER
- if (strlen(var) == 0 || (strlen(val) == 0 && strncasecmp(var, "bind", 4) != 0)) {
- lprintf("config_readsect: something's empty: \"%s\" = \"%s\"\n", var, val);
- return -1;;
- }
- #endif
- *rvar = var;
- *rval = val;
- return 1;
- }
|