[picodrive.git] / platform / common / config_file.c

/*
 * 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"

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[128], *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, const char *bind_str, int dev_id, const int *binds, int no_defaults)
{
	char act[48];
	int key_count = 0, k, i;
	const int *def_binds;

	in_get_config(dev_id, IN_CFG_BIND_COUNT, &key_count);
	def_binds = in_get_dev_def_binds(dev_id);

	for (k = 0; k < key_count; k++)
	{
		const char *name;
		int t, mask;
		act[0] = act[31] = 0;

		for (t = 0; t < IN_BINDTYPE_COUNT; t++)
			if (binds[IN_BIND_OFFS(k, t)] != def_binds[IN_BIND_OFFS(k, t)])
				break;

		if (no_defaults && t == IN_BINDTYPE_COUNT)
			continue;	/* no change from defaults */

		name = in_get_key_name(dev_id, k);

		for (t = 0; t < IN_BINDTYPE_COUNT; t++)
			if (binds[IN_BIND_OFFS(k, t)] != 0 || def_binds[IN_BIND_OFFS(k, t)] == 0)
				break;

		if (t == IN_BINDTYPE_COUNT) {
			/* key has default bind removed */
			fprintf(fn, "%s %s =" NL, bind_str, name);
			continue;
		}

		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, "%s %s = player1 %s" NL, bind_str, 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, "%s %s = player2 %s" NL, bind_str, 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, "%s %s = %s" NL, bind_str, name, mystrip(act));
			}
		}
	}
}

/* XXX: this should go to menu structures instead */
static int default_var(const menu_entry *me)
{
	switch (me->id)
	{
		case MA_OPT2_ENABLE_YM2612:
		case MA_OPT2_ENABLE_SN76496:
		case MA_OPT2_ENABLE_Z80:
		case MA_OPT_6BUTTON_PAD:
		case MA_OPT_ACC_SPRITES:
		case MA_OPT_ARM940_SOUND:
		case MA_CDOPT_PCM:
		case MA_CDOPT_CDDA:
		case MA_CDOPT_SCALEROT_CHIP:
		case MA_CDOPT_BETTER_SYNC:
		case MA_CDOPT_SAVERAM:
		case MA_32XOPT_ENABLE_32X:
		case MA_32XOPT_PWM:
		case MA_OPT2_SVP_DYNAREC:
		case MA_OPT2_NO_SPRITE_LIM:
		case MA_OPT2_NO_IDLE_LOOPS:
			return defaultConfig.s_PicoOpt;

		case MA_OPT_SRAM_STATES:
		case MA_OPT_SHOW_FPS:
		case MA_OPT_ENABLE_SOUND:
		case MA_OPT2_GZIP_STATES:
		case MA_OPT2_SQUIDGEHACK:
		case MA_OPT2_NO_LAST_ROM:
		case MA_OPT2_RAMTIMINGS:
		case MA_CDOPT_LEDS:
		case MA_OPT2_A_SN_GAMMA:
		case MA_OPT2_VSYNC:
		case MA_OPT_INTERLACED:
		case MA_OPT2_DBLBUFF:
		case MA_OPT2_STATUS_LINE:
		case MA_OPT2_NO_FRAME_LIMIT:
		case MA_OPT_TEARING_FIX:
			return defaultConfig.EmuOpt;

		case MA_CTRL_TURBO_RATE: return defaultConfig.turbo_rate;
		case MA_OPT_SCALING:     return defaultConfig.scaling;
		case MA_OPT_ROTATION:    return defaultConfig.rotation;
		case MA_OPT2_GAMMA:      return defaultConfig.gamma;
		case MA_OPT_FRAMESKIP:   return defaultConfig.Frameskip;
		case MA_OPT_CONFIRM_STATES: return defaultConfig.confirm_save;
		case MA_OPT_CPU_CLOCKS:  return defaultConfig.CPUclock;
		case MA_OPT_RENDERER:    return defaultConfig.renderer;
		case MA_32XOPT_RENDERER: return defaultConfig.renderer32x;

		case MA_OPT_SAVE_SLOT:
			return 0;

		default:
			lprintf("missing default for %d\n", me->id);
			return 0;
	}
}

static int is_cust_val_default(const menu_entry *me)
{
	switch (me->id)
	{
		case MA_OPT_REGION:
			return defaultConfig.s_PicoRegion == PicoRegionOverride &&
				defaultConfig.s_PicoAutoRgnOrder == PicoAutoRgnOrder;
		case MA_OPT_SOUND_QUALITY:
			return defaultConfig.s_PsndRate == PsndRate &&
				((defaultConfig.s_PicoOpt ^ PicoOpt) & POPT_EN_STEREO) == 0;
		case MA_CDOPT_READAHEAD:
			return defaultConfig.s_PicoCDBuffers == PicoCDBuffers;
		case MA_32XOPT_MSH2_CYCLES:
			return p32x_msh2_multiplier == MSH2_MULTI_DEFAULT;
		case MA_32XOPT_SSH2_CYCLES:
			return p32x_ssh2_multiplier == SSH2_MULTI_DEFAULT;
		default:break;
	}

	lprintf("is_cust_val_default: unhandled id %i\n", me->id);
	return 0;
}

int config_writesect(const char *fname, const char *section)
{
	FILE *fo = NULL, *fn = NULL; // old and new
	int no_defaults = 0; // avoid saving defaults
	menu_entry *me;
	int t, tlen, ret;
	char line[128], *tmp;

	if (section != NULL)
	{
		no_defaults = 1;

		fo = fopen(fname, "r");
		if (fo == NULL) {
			fn = fopen(fname, "w");
			goto write;
		}

		ret = seek_sect(fo, section);
		if (!ret) {
			// sect not found, we can simply append
			fclose(fo); fo = NULL;
			fn = fopen(fname, "a");
			goto write;
		}

		// use 2 files..
		fclose(fo);
		rename(fname, "tmp.cfg");
		fo = fopen("tmp.cfg", "r");
		fn = fopen(fname, "w");
		if (fo == NULL || fn == NULL) goto write;

		// copy everything until sect
		tlen = strlen(section);
		while (!feof(fo))
		{
			tmp = fgets(line, sizeof(line), fo);
			if (tmp == NULL) break;

			if (line[0] == '[' && strncmp(line + 1, section, tlen) == 0 && line[tlen+1] == ']')
				break;
			fputs(line, fn);
		}

		// now skip to next sect
		while (!feof(fo))
		{
			tmp = fgets(line, sizeof(line), fo);
			if (tmp == NULL) break;
			if (line[0] == '[') {
				fseek(fo, -strlen(line), SEEK_CUR);
				break;
			}
		}
		if (feof(fo))
		{
			fclose(fo); fo = NULL;
			remove("tmp.cfg");
		}
	}
	else
	{
		fn = fopen(fname, "w");
	}

write:
	if (fn == NULL) {
		if (fo) fclose(fo);
		return -1;
	}
	if (section != NULL)
		fprintf(fn, "[%s]" NL, section);

	for (me = me_list_get_first(); me != NULL; me = me_list_get_next())
	{
		int dummy;
		if (!me->need_to_save)
			continue;
		if (me->name == NULL || me->name[0] == 0)
			continue;

		if (me->beh == MB_OPT_ONOFF || me->beh == MB_OPT_CUSTONOFF) {
			if (!no_defaults || ((*(int *)me->var ^ default_var(me)) & me->mask))
				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) {
			if (!no_defaults || (*(int *)me->var ^ default_var(me)))
				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 && (!no_defaults || (*(int *)me->var ^ default_var(me)))) {
					strncpy(line, names[t], sizeof(line));
					goto write_line;
				}
		}
		else if (me->generate_name != NULL) {
			if (!no_defaults || !is_cust_val_default(me)) {
				strncpy(line, me->generate_name(0, &dummy), sizeof(line));
				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 device names */
	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);
		if (binds == NULL || name == NULL)
			continue;

		fprintf(fn, "input%d = %s" NL, t, name);
	}

	/* 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);
		char strbind[16];
		int count = 0;

		if (binds == NULL || name == NULL)
			continue;

		sprintf(strbind, "bind%d", t);
		if (t == 0) strbind[4] = 0;

		in_get_config(t, IN_CFG_BIND_COUNT, &count);
		keys_write(fn, strbind, t, binds, no_defaults);
	}

#ifndef PSP
	if (section == NULL)
		fprintf(fn, "Sound Volume = %i" NL, currentConfig.volume);
#endif

	fprintf(fn, NL);

	if (fo != NULL)
	{
		// copy whatever is left
		while (!feof(fo))
		{
			tmp = fgets(line, sizeof(line), fo);
			if (tmp == NULL) break;

			fputs(line, fn);
		}
		fclose(fo);
		remove("tmp.cfg");
	}

	fclose(fn);
	return 0;
}


int config_writelrom(const char *fname)
{
	char line[128], *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[128], *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);
		strncpy(rom_fname_loaded, tmp, len);
		rom_fname_loaded[len-1] = 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;
			PsndRate = strtoul(val, &tmp, 10);
			if (PsndRate < 8000 || PsndRate > 44100)
				PsndRate = 22050;
			if (*tmp == 'H' || *tmp == 'h') tmp++;
			if (*tmp == 'Z' || *tmp == 'z') tmp++;
			while (*tmp == ' ') tmp++;
			if        (strcasecmp(tmp, "stereo") == 0) {
				PicoOpt |=  POPT_EN_STEREO;
			} else if (strcasecmp(tmp, "mono") == 0) {
				PicoOpt &= ~POPT_EN_STEREO;
			} else
				return 0;
			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;
				PicoRegionOverride = PicoAutoRgnOrder = 0;
				for (i = 0; p < end && i < 3; i++)
				{
					while (*p == ' ') p++;
					if        (p[0] == 'J' && p[1] == 'P') {
						PicoAutoRgnOrder |= 1 << (i*4);
					} else if (p[0] == 'U' && p[1] == 'S') {
						PicoAutoRgnOrder |= 4 << (i*4);
					} else if (p[0] == 'E' && p[1] == 'U') {
						PicoAutoRgnOrder |= 8 << (i*4);
					}
					while (*p != ' ' && *p != 0) p++;
					if (*p == 0) break;
				}
			}
			else   if (strcasecmp(val, "Auto") == 0) {
				PicoRegionOverride = 0;
			} else if (strcasecmp(val, "Japan NTSC") == 0) {
				PicoRegionOverride = 1;
			} else if (strcasecmp(val, "Japan PAL") == 0) {
				PicoRegionOverride = 2;
			} else if (strcasecmp(val, "USA") == 0) {
				PicoRegionOverride = 4;
			} else if (strcasecmp(val, "Europe") == 0) {
				PicoRegionOverride = 8;
			} else
				return 0;
			return 1;

		case MA_OPT2_GAMMA:
			if (strcasecmp(var, "Gamma correction") != 0) return 0;
			currentConfig.gamma = (int) (atof(val) * 100.0);
			return 1;

		case MA_CDOPT_READAHEAD:
			if (strcasecmp(var, "ReadAhead buffer") != 0) return 0;
			PicoCDBuffers = atoi(val) / 2;
			return 1;

		case MA_32XOPT_MSH2_CYCLES:
		case MA_32XOPT_SSH2_CYCLES: {
			int *mul = (me->id == MA_32XOPT_MSH2_CYCLES) ? &p32x_msh2_multiplier : &p32x_ssh2_multiplier;
			*mul = ((unsigned int)atoi(val) << SH2_MULTI_SHIFT) / 7670;
			return 1;
		}

		/* PSP */
		case MA_OPT3_SCALE:
			if (strcasecmp(var, "Scale factor") != 0) return 0;
			currentConfig.scale = atof(val);
			return 1;
		case MA_OPT3_HSCALE32:
			if (strcasecmp(var, "Hor. scale (for low res. games)") != 0) return 0;
			currentConfig.hscale32 = atof(val);
			return 1;
		case MA_OPT3_HSCALE40:
			if (strcasecmp(var, "Hor. scale (for hi res. games)") != 0) return 0;
			currentConfig.hscale40 = atof(val);
			return 1;
		case MA_OPT3_VSYNC:
			// XXX: use enum
			if (strcasecmp(var, "Wait for vsync") != 0) return 0;
			if        (strcasecmp(val, "never") == 0) {
				currentConfig.EmuOpt &= ~0x12000;
			} else if (strcasecmp(val, "sometimes") == 0) {
				currentConfig.EmuOpt |=  0x12000;
			} else if (strcasecmp(val, "always") == 0) {
				currentConfig.EmuOpt &= ~0x12000;
				currentConfig.EmuOpt |=  0x02000;
			} else
				return 0;
			return 1;

		default:
			lprintf("unhandled custom_read %i: %s\n", me->id, var);
			return 0;
	}
}


static unsigned int keys_encountered = 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(const char *key, const char *val, int dev_id)
{
	int acts, type;

	acts = parse_bind_val(val, &type);
	if (acts == -1) {
		lprintf("config: unhandled action \"%s\"\n", val);
		return;
	}

	in_config_bind_key(dev_id, key, acts, type);
}

static int get_numvar_num(const char *var)
{
	char *p = NULL;
	int num;
	
	if (var[0] == ' ')
		return 0;

	num = strtoul(var, &p, 10);
	if (*p == 0 || *p == ' ')
		return num;

	return -1;
}

/* map dev number in confing to input dev number */
static unsigned char input_dev_map[IN_MAX_DEVS];

static void parse(const char *var, const char *val)
{
	menu_entry *me;
	int tmp;

	if (strcasecmp(var, "LastUsedROM") == 0)
		return; /* handled elsewhere */

	if (strcasecmp(var, "Sound Volume") == 0) {
		currentConfig.volume = atoi(val);
		return;
	}

	/* input: device name */
	if (strncasecmp(var, "input", 5) == 0) {
		int num = get_numvar_num(var + 5);
		if (num >= 0 && num < IN_MAX_DEVS)
			input_dev_map[num] = in_config_parse_dev(val);
		else
			lprintf("config: failed to parse: %s\n", var);
		return;
	}

	// key binds
	if (strncasecmp(var, "bind", 4) == 0) {
		const char *p = var + 4;
		int num = get_numvar_num(p);
		if (num < 0 || num >= IN_MAX_DEVS) {
			lprintf("config: failed to parse: %s\n", var);
			return;
		}

		num = input_dev_map[num];
		if (num < 0 || num >= IN_MAX_DEVS) {
			lprintf("config: invalid device id: %s\n", var);
			return;
		}

		while (*p && *p != ' ') p++;
		while (*p && *p == ' ') p++;
		keys_parse(p, val, num);
		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_havesect(const char *fname, const char *section)
{
	FILE *f;
	int ret;

	f = fopen(fname, "r");
	if (f == NULL) return 0;

	ret = seek_sect(f, section);
	fclose(f);
	return ret;
}

int config_readsect(const char *fname, const char *section)
{
	char line[128], *var, *val;
	FILE *f;
	int ret;

	f = fopen(fname, "r");
	if (f == NULL) return -1;

	if (section != NULL)
	{
		ret = seek_sect(f, section);
		if (!ret) {
			lprintf("config_readsect: %s: missing section [%s]\n", fname, section);
			fclose(f);
			return -1;
		}
	}

	keys_encountered = 0;
	memset(input_dev_map, 0xff, sizeof(input_dev_map));

	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);
	}

	fclose(f);
	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;
}
Commit	Line	Data
	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
	57	static void keys_write(FILE fn, const char bind_str, int dev_id, const int *binds, int no_defaults)
	58	{
	59	char act[48];
	60	int key_count = 0, k, i;
	61	const int *def_binds;
	62
	63	in_get_config(dev_id, IN_CFG_BIND_COUNT, &key_count);
	64	def_binds = in_get_dev_def_binds(dev_id);
	65
	66	for (k = 0; k < key_count; k++)
	67	{
	68	const char *name;
	69	int t, mask;
	70	act[0] = act[31] = 0;
	71
	72	for (t = 0; t < IN_BINDTYPE_COUNT; t++)
	73	if (binds[IN_BIND_OFFS(k, t)] != def_binds[IN_BIND_OFFS(k, t)])
	74	break;
	75
	76	if (no_defaults && t == IN_BINDTYPE_COUNT)
	77	continue; /* no change from defaults */
	78
	79	name = in_get_key_name(dev_id, k);
	80
	81	for (t = 0; t < IN_BINDTYPE_COUNT; t++)
	82	if (binds[IN_BIND_OFFS(k, t)] != 0 \|\| def_binds[IN_BIND_OFFS(k, t)] == 0)
	83	break;
	84
	85	if (t == IN_BINDTYPE_COUNT) {
	86	/* key has default bind removed */
	87	fprintf(fn, "%s %s =" NL, bind_str, name);
	88	continue;
	89	}
	90
	91	for (i = 0; me_ctrl_actions[i].name != NULL; i++) {
	92	mask = me_ctrl_actions[i].mask;
	93	if (mask & binds[IN_BIND_OFFS(k, IN_BINDTYPE_PLAYER12)]) {
	94	strncpy(act, me_ctrl_actions[i].name, 31);
	95	fprintf(fn, "%s %s = player1 %s" NL, bind_str, name, mystrip(act));
	96	}
	97	mask = me_ctrl_actions[i].mask << 16;
	98	if (mask & binds[IN_BIND_OFFS(k, IN_BINDTYPE_PLAYER12)]) {
	99	strncpy(act, me_ctrl_actions[i].name, 31);
	100	fprintf(fn, "%s %s = player2 %s" NL, bind_str, name, mystrip(act));
	101	}
	102	}
	103
	104	for (i = 0; emuctrl_actions[i].name != NULL; i++) {
	105	mask = emuctrl_actions[i].mask;
	106	if (mask & binds[IN_BIND_OFFS(k, IN_BINDTYPE_EMU)]) {
	107	strncpy(act, emuctrl_actions[i].name, 31);
	108	fprintf(fn, "%s %s = %s" NL, bind_str, name, mystrip(act));
	109	}
	110	}
	111	}
	112	}
	113
	114	/* XXX: this should go to menu structures instead */
	115	static int default_var(const menu_entry *me)
	116	{
	117	switch (me->id)
	118	{
	119	case MA_OPT2_ENABLE_YM2612:
	120	case MA_OPT2_ENABLE_SN76496:
	121	case MA_OPT2_ENABLE_Z80:
	122	case MA_OPT_6BUTTON_PAD:
	123	case MA_OPT_ACC_SPRITES:
	124	case MA_OPT_ARM940_SOUND:
	125	case MA_CDOPT_PCM:
	126	case MA_CDOPT_CDDA:
	127	case MA_CDOPT_SCALEROT_CHIP:
	128	case MA_CDOPT_BETTER_SYNC:
	129	case MA_CDOPT_SAVERAM:
	130	case MA_32XOPT_ENABLE_32X:
	131	case MA_32XOPT_PWM:
	132	case MA_OPT2_SVP_DYNAREC:
	133	case MA_OPT2_NO_SPRITE_LIM:
	134	case MA_OPT2_NO_IDLE_LOOPS:
	135	return defaultConfig.s_PicoOpt;
	136
	137	case MA_OPT_SRAM_STATES:
	138	case MA_OPT_SHOW_FPS:
	139	case MA_OPT_ENABLE_SOUND:
	140	case MA_OPT2_GZIP_STATES:
	141	case MA_OPT2_SQUIDGEHACK:
	142	case MA_OPT2_NO_LAST_ROM:
	143	case MA_OPT2_RAMTIMINGS:
	144	case MA_CDOPT_LEDS:
	145	case MA_OPT2_A_SN_GAMMA:
	146	case MA_OPT2_VSYNC:
	147	case MA_OPT_INTERLACED:
	148	case MA_OPT2_DBLBUFF:
	149	case MA_OPT2_STATUS_LINE:
	150	case MA_OPT2_NO_FRAME_LIMIT:
	151	case MA_OPT_TEARING_FIX:
	152	return defaultConfig.EmuOpt;
	153
	154	case MA_CTRL_TURBO_RATE: return defaultConfig.turbo_rate;
	155	case MA_OPT_SCALING: return defaultConfig.scaling;
	156	case MA_OPT_ROTATION: return defaultConfig.rotation;
	157	case MA_OPT2_GAMMA: return defaultConfig.gamma;
	158	case MA_OPT_FRAMESKIP: return defaultConfig.Frameskip;
	159	case MA_OPT_CONFIRM_STATES: return defaultConfig.confirm_save;
	160	case MA_OPT_CPU_CLOCKS: return defaultConfig.CPUclock;
	161	case MA_OPT_RENDERER: return defaultConfig.renderer;
	162	case MA_32XOPT_RENDERER: return defaultConfig.renderer32x;
	163
	164	case MA_OPT_SAVE_SLOT:
	165	return 0;
	166
	167	default:
	168	lprintf("missing default for %d\n", me->id);
	169	return 0;
	170	}
	171	}
	172
	173	static int is_cust_val_default(const menu_entry *me)
	174	{
	175	switch (me->id)
	176	{
	177	case MA_OPT_REGION:
	178	return defaultConfig.s_PicoRegion == PicoRegionOverride &&
	179	defaultConfig.s_PicoAutoRgnOrder == PicoAutoRgnOrder;
	180	case MA_OPT_SOUND_QUALITY:
	181	return defaultConfig.s_PsndRate == PsndRate &&
	182	((defaultConfig.s_PicoOpt ^ PicoOpt) & POPT_EN_STEREO) == 0;
	183	case MA_CDOPT_READAHEAD:
	184	return defaultConfig.s_PicoCDBuffers == PicoCDBuffers;
	185	case MA_32XOPT_MSH2_CYCLES:
	186	return p32x_msh2_multiplier == MSH2_MULTI_DEFAULT;
	187	case MA_32XOPT_SSH2_CYCLES:
	188	return p32x_ssh2_multiplier == SSH2_MULTI_DEFAULT;
	189	default:break;
	190	}
	191
	192	lprintf("is_cust_val_default: unhandled id %i\n", me->id);
	193	return 0;
	194	}
	195
	196	int config_writesect(const char fname, const char section)
	197	{
	198	FILE fo = NULL, fn = NULL; // old and new
	199	int no_defaults = 0; // avoid saving defaults
	200	menu_entry *me;
	201	int t, tlen, ret;
	202	char line[128], *tmp;
	203
	204	if (section != NULL)
	205	{
	206	no_defaults = 1;
	207
	208	fo = fopen(fname, "r");
	209	if (fo == NULL) {
	210	fn = fopen(fname, "w");
	211	goto write;
	212	}
	213
	214	ret = seek_sect(fo, section);
	215	if (!ret) {
	216	// sect not found, we can simply append
	217	fclose(fo); fo = NULL;
	218	fn = fopen(fname, "a");
	219	goto write;
	220	}
	221
	222	// use 2 files..
	223	fclose(fo);
	224	rename(fname, "tmp.cfg");
	225	fo = fopen("tmp.cfg", "r");
	226	fn = fopen(fname, "w");
	227	if (fo == NULL \|\| fn == NULL) goto write;
	228
	229	// copy everything until sect
	230	tlen = strlen(section);
	231	while (!feof(fo))
	232	{
	233	tmp = fgets(line, sizeof(line), fo);
	234	if (tmp == NULL) break;
	235
	236	if (line[0] == '[' && strncmp(line + 1, section, tlen) == 0 && line[tlen+1] == ']')
	237	break;
	238	fputs(line, fn);
	239	}
	240
	241	// now skip to next sect
	242	while (!feof(fo))
	243	{
	244	tmp = fgets(line, sizeof(line), fo);
	245	if (tmp == NULL) break;
	246	if (line[0] == '[') {
	247	fseek(fo, -strlen(line), SEEK_CUR);
	248	break;
	249	}
	250	}
	251	if (feof(fo))
	252	{
	253	fclose(fo); fo = NULL;
	254	remove("tmp.cfg");
	255	}
	256	}
	257	else
	258	{
	259	fn = fopen(fname, "w");
	260	}
	261
	262	write:
	263	if (fn == NULL) {
	264	if (fo) fclose(fo);
	265	return -1;
	266	}
	267	if (section != NULL)
	268	fprintf(fn, "[%s]" NL, section);
	269
	270	for (me = me_list_get_first(); me != NULL; me = me_list_get_next())
	271	{
	272	int dummy;
	273	if (!me->need_to_save)
	274	continue;
	275	if (me->name == NULL \|\| me->name[0] == 0)
	276	continue;
	277
	278	if (me->beh == MB_OPT_ONOFF \|\| me->beh == MB_OPT_CUSTONOFF) {
	279	if (!no_defaults \|\| (((int )me->var ^ default_var(me)) & me->mask))
	280	fprintf(fn, "%s = %i" NL, me->name, ((int )me->var & me->mask) ? 1 : 0);
	281	}
	282	else if (me->beh == MB_OPT_RANGE \|\| me->beh == MB_OPT_CUSTRANGE) {
	283	if (!no_defaults \|\| ((int )me->var ^ default_var(me)))
	284	fprintf(fn, "%s = %i" NL, me->name, (int )me->var);
	285	}
	286	else if (me->beh == MB_OPT_ENUM && me->data != NULL) {
	287	const char names = (const char )me->data;
	288	for (t = 0; names[t] != NULL; t++)
	289	if ((int )me->var == t && (!no_defaults \|\| ((int )me->var ^ default_var(me)))) {
	290	strncpy(line, names[t], sizeof(line));
	291	goto write_line;
	292	}
	293	}
	294	else if (me->generate_name != NULL) {
	295	if (!no_defaults \|\| !is_cust_val_default(me)) {
	296	strncpy(line, me->generate_name(0, &dummy), sizeof(line));
	297	goto write_line;
	298	}
	299	}
	300	else
	301	lprintf("config: unhandled write: %i\n", me->id);
	302	continue;
	303
	304	write_line:
	305	line[sizeof(line) - 1] = 0;
	306	mystrip(line);
	307	fprintf(fn, "%s = %s" NL, me->name, line);
	308	}
	309
	310	/* input: save device names */
	311	for (t = 0; t < IN_MAX_DEVS; t++)
	312	{
	313	const int *binds = in_get_dev_binds(t);
	314	const char *name = in_get_dev_name(t, 0, 0);
	315	if (binds == NULL \|\| name == NULL)
	316	continue;
	317
	318	fprintf(fn, "input%d = %s" NL, t, name);
	319	}
	320
	321	/* input: save binds */
	322	for (t = 0; t < IN_MAX_DEVS; t++)
	323	{
	324	const int *binds = in_get_dev_binds(t);
	325	const char *name = in_get_dev_name(t, 0, 0);
	326	char strbind[16];
	327	int count = 0;
	328
	329	if (binds == NULL \|\| name == NULL)
	330	continue;
	331
	332	sprintf(strbind, "bind%d", t);
	333	if (t == 0) strbind[4] = 0;
	334
	335	in_get_config(t, IN_CFG_BIND_COUNT, &count);
	336	keys_write(fn, strbind, t, binds, no_defaults);
	337	}
	338
	339	#ifndef PSP
	340	if (section == NULL)
	341	fprintf(fn, "Sound Volume = %i" NL, currentConfig.volume);
	342	#endif
	343
	344	fprintf(fn, NL);
	345
	346	if (fo != NULL)
	347	{
	348	// copy whatever is left
	349	while (!feof(fo))
	350	{
	351	tmp = fgets(line, sizeof(line), fo);
	352	if (tmp == NULL) break;
	353
	354	fputs(line, fn);
	355	}
	356	fclose(fo);
	357	remove("tmp.cfg");
	358	}
	359
	360	fclose(fn);
	361	return 0;
	362	}
	363
	364
	365	int config_writelrom(const char *fname)
	366	{
	367	char line[128], tmp, optr = NULL;
	368	char *old_data = NULL;
	369	int size;
	370	FILE *f;
	371
	372	if (strlen(rom_fname_loaded) == 0) return -1;
	373
	374	f = fopen(fname, "r");
	375	if (f != NULL)
	376	{
	377	fseek(f, 0, SEEK_END);
	378	size = ftell(f);
	379	fseek(f, 0, SEEK_SET);
	380	old_data = malloc(size + size/8);
	381	if (old_data != NULL)
	382	{
	383	optr = old_data;
	384	while (!feof(f))
	385	{
	386	tmp = fgets(line, sizeof(line), f);
	387	if (tmp == NULL) break;
	388	mystrip(line);
	389	if (strncasecmp(line, "LastUsedROM", 11) == 0)
	390	continue;
	391	sprintf(optr, "%s", line);
	392	optr += strlen(optr);
	393	}
	394	}
	395	fclose(f);
	396	}
	397
	398	f = fopen(fname, "w");
	399	if (f == NULL) return -1;
	400
	401	if (old_data != NULL) {
	402	fwrite(old_data, 1, optr - old_data, f);
	403	free(old_data);
	404	}
	405	fprintf(f, "LastUsedROM = %s" NL, rom_fname_loaded);
	406	fclose(f);
	407	return 0;
	408	}
	409
	410	/* --------------------------------------------------------------------------*/
	411
	412	int config_readlrom(const char *fname)
	413	{
	414	char line[128], *tmp;
	415	int i, len, ret = -1;
	416	FILE *f;
	417
	418	f = fopen(fname, "r");
	419	if (f == NULL) return -1;
	420
	421	// seek to the section needed
	422	while (!feof(f))
	423	{
	424	tmp = fgets(line, sizeof(line), f);
	425	if (tmp == NULL) break;
	426
	427	if (strncasecmp(line, "LastUsedROM", 11) != 0) continue;
	428	len = strlen(line);
	429	for (i = 0; i < len; i++)
	430	if (line[i] == '#' \|\| line[i] == '\r' \|\| line[i] == '\n') { line[i] = 0; break; }
	431	tmp = strchr(line, '=');
	432	if (tmp == NULL) break;
	433	tmp++;
	434	mystrip(tmp);
	435
	436	len = sizeof(rom_fname_loaded);
	437	strncpy(rom_fname_loaded, tmp, len);
	438	rom_fname_loaded[len-1] = 0;
	439	ret = 0;
	440	break;
	441	}
	442	fclose(f);
	443	return ret;
	444	}
	445
	446
	447	static int custom_read(menu_entry me, const char var, const char *val)
	448	{
	449	char *tmp;
	450
	451	switch (me->id)
	452	{
	453	case MA_OPT_FRAMESKIP:
	454	if (strcasecmp(var, "Frameskip") != 0) return 0;
	455	if (strcasecmp(val, "Auto") == 0)
	456	currentConfig.Frameskip = -1;
	457	else currentConfig.Frameskip = atoi(val);
	458	return 1;
	459
	460	case MA_OPT_SOUND_QUALITY:
	461	if (strcasecmp(var, "Sound Quality") != 0) return 0;
	462	PsndRate = strtoul(val, &tmp, 10);
	463	if (PsndRate < 8000 \|\| PsndRate > 44100)
	464	PsndRate = 22050;
	465	if (tmp == 'H' \|\| tmp == 'h') tmp++;
	466	if (tmp == 'Z' \|\| tmp == 'z') tmp++;
	467	while (*tmp == ' ') tmp++;
	468	if (strcasecmp(tmp, "stereo") == 0) {
	469	PicoOpt \|= POPT_EN_STEREO;
	470	} else if (strcasecmp(tmp, "mono") == 0) {
	471	PicoOpt &= ~POPT_EN_STEREO;
	472	} else
	473	return 0;
	474	return 1;
	475
	476	case MA_OPT_REGION:
	477	if (strcasecmp(var, "Region") != 0) return 0;
	478	if (strncasecmp(val, "Auto: ", 6) == 0)
	479	{
	480	const char p = val + 5, end = val + strlen(val);
	481	int i;
	482	PicoRegionOverride = PicoAutoRgnOrder = 0;
	483	for (i = 0; p < end && i < 3; i++)
	484	{
	485	while (*p == ' ') p++;
	486	if (p[0] == 'J' && p[1] == 'P') {
	487	PicoAutoRgnOrder \|= 1 << (i*4);
	488	} else if (p[0] == 'U' && p[1] == 'S') {
	489	PicoAutoRgnOrder \|= 4 << (i*4);
	490	} else if (p[0] == 'E' && p[1] == 'U') {
	491	PicoAutoRgnOrder \|= 8 << (i*4);
	492	}
	493	while (p != ' ' && p != 0) p++;
	494	if (*p == 0) break;
	495	}
	496	}
	497	else if (strcasecmp(val, "Auto") == 0) {
	498	PicoRegionOverride = 0;
	499	} else if (strcasecmp(val, "Japan NTSC") == 0) {
	500	PicoRegionOverride = 1;
	501	} else if (strcasecmp(val, "Japan PAL") == 0) {
	502	PicoRegionOverride = 2;
	503	} else if (strcasecmp(val, "USA") == 0) {
	504	PicoRegionOverride = 4;
	505	} else if (strcasecmp(val, "Europe") == 0) {
	506	PicoRegionOverride = 8;
	507	} else
	508	return 0;
	509	return 1;
	510
	511	case MA_OPT2_GAMMA:
	512	if (strcasecmp(var, "Gamma correction") != 0) return 0;
	513	currentConfig.gamma = (int) (atof(val) * 100.0);
	514	return 1;
	515
	516	case MA_CDOPT_READAHEAD:
	517	if (strcasecmp(var, "ReadAhead buffer") != 0) return 0;
	518	PicoCDBuffers = atoi(val) / 2;
	519	return 1;
	520
	521	case MA_32XOPT_MSH2_CYCLES:
	522	case MA_32XOPT_SSH2_CYCLES: {
	523	int *mul = (me->id == MA_32XOPT_MSH2_CYCLES) ? &p32x_msh2_multiplier : &p32x_ssh2_multiplier;
	524	*mul = ((unsigned int)atoi(val) << SH2_MULTI_SHIFT) / 7670;
	525	return 1;
	526	}
	527
	528	/* PSP */
	529	case MA_OPT3_SCALE:
	530	if (strcasecmp(var, "Scale factor") != 0) return 0;
	531	currentConfig.scale = atof(val);
	532	return 1;
	533	case MA_OPT3_HSCALE32:
	534	if (strcasecmp(var, "Hor. scale (for low res. games)") != 0) return 0;
	535	currentConfig.hscale32 = atof(val);
	536	return 1;
	537	case MA_OPT3_HSCALE40:
	538	if (strcasecmp(var, "Hor. scale (for hi res. games)") != 0) return 0;
	539	currentConfig.hscale40 = atof(val);
	540	return 1;
	541	case MA_OPT3_VSYNC:
	542	// XXX: use enum
	543	if (strcasecmp(var, "Wait for vsync") != 0) return 0;
	544	if (strcasecmp(val, "never") == 0) {
	545	currentConfig.EmuOpt &= ~0x12000;
	546	} else if (strcasecmp(val, "sometimes") == 0) {
	547	currentConfig.EmuOpt \|= 0x12000;
	548	} else if (strcasecmp(val, "always") == 0) {
	549	currentConfig.EmuOpt &= ~0x12000;
	550	currentConfig.EmuOpt \|= 0x02000;
	551	} else
	552	return 0;
	553	return 1;
	554
	555	default:
	556	lprintf("unhandled custom_read %i: %s\n", me->id, var);
	557	return 0;
	558	}
	559	}
	560
	561
	562	static unsigned int keys_encountered = 0;
	563
	564	static int parse_bind_val(const char val, int type)
	565	{
	566	int i;
	567
	568	*type = IN_BINDTYPE_NONE;
	569	if (val[0] == 0)
	570	return 0;
	571
	572	if (strncasecmp(val, "player", 6) == 0)
	573	{
	574	int player, shift = 0;
	575	player = atoi(val + 6) - 1;
	576
	577	if (player > 1)
	578	return -1;
	579	if (player == 1)
	580	shift = 16;
	581
	582	*type = IN_BINDTYPE_PLAYER12;
	583	for (i = 0; me_ctrl_actions[i].name != NULL; i++) {
	584	if (strncasecmp(me_ctrl_actions[i].name, val + 8, strlen(val + 8)) == 0)
	585	return me_ctrl_actions[i].mask << shift;
	586	}
	587	}
	588	for (i = 0; emuctrl_actions[i].name != NULL; i++) {
	589	if (strncasecmp(emuctrl_actions[i].name, val, strlen(val)) == 0) {
	590	*type = IN_BINDTYPE_EMU;
	591	return emuctrl_actions[i].mask;
	592	}
	593	}
	594
	595	return -1;
	596	}
	597
	598	static void keys_parse(const char key, const char val, int dev_id)
	599	{
	600	int acts, type;
	601
	602	acts = parse_bind_val(val, &type);
	603	if (acts == -1) {
	604	lprintf("config: unhandled action \"%s\"\n", val);
	605	return;
	606	}
	607
	608	in_config_bind_key(dev_id, key, acts, type);
	609	}
	610
	611	static int get_numvar_num(const char *var)
	612	{
	613	char *p = NULL;
	614	int num;
	615
	616	if (var[0] == ' ')
	617	return 0;
	618
	619	num = strtoul(var, &p, 10);
	620	if (p == 0 \|\| p == ' ')
	621	return num;
	622
	623	return -1;
	624	}
	625
	626	/* map dev number in confing to input dev number */
	627	static unsigned char input_dev_map[IN_MAX_DEVS];
	628
	629	static void parse(const char var, const char val)
	630	{
	631	menu_entry *me;
	632	int tmp;
	633
	634	if (strcasecmp(var, "LastUsedROM") == 0)
	635	return; /* handled elsewhere */
	636
	637	if (strcasecmp(var, "Sound Volume") == 0) {
	638	currentConfig.volume = atoi(val);
	639	return;
	640	}
	641
	642	/* input: device name */
	643	if (strncasecmp(var, "input", 5) == 0) {
	644	int num = get_numvar_num(var + 5);
	645	if (num >= 0 && num < IN_MAX_DEVS)
	646	input_dev_map[num] = in_config_parse_dev(val);
	647	else
	648	lprintf("config: failed to parse: %s\n", var);
	649	return;
	650	}
	651
	652	// key binds
	653	if (strncasecmp(var, "bind", 4) == 0) {
	654	const char *p = var + 4;
	655	int num = get_numvar_num(p);
	656	if (num < 0 \|\| num >= IN_MAX_DEVS) {
	657	lprintf("config: failed to parse: %s\n", var);
	658	return;
	659	}
	660
	661	num = input_dev_map[num];
	662	if (num < 0 \|\| num >= IN_MAX_DEVS) {
	663	lprintf("config: invalid device id: %s\n", var);
	664	return;
	665	}
	666
	667	while (p && p != ' ') p++;
	668	while (p && p == ' ') p++;
	669	keys_parse(p, val, num);
	670	return;
	671	}
	672
	673	for (me = me_list_get_first(); me != NULL; me = me_list_get_next())
	674	{
	675	char *p;
	676
	677	if (!me->need_to_save)
	678	continue;
	679	if (me->name == NULL \|\| strcasecmp(var, me->name) != 0)
	680	continue;
	681
	682	if (me->beh == MB_OPT_ONOFF) {
	683	tmp = strtol(val, &p, 0);
	684	if (*p != 0)
	685	goto bad_val;
	686	if (tmp) (int )me->var \|= me->mask;
	687	else (int )me->var &= ~me->mask;
	688	return;
	689	}
	690	else if (me->beh == MB_OPT_RANGE) {
	691	tmp = strtol(val, &p, 0);
	692	if (*p != 0)
	693	goto bad_val;
	694	if (tmp < me->min) tmp = me->min;
	695	if (tmp > me->max) tmp = me->max;
	696	(int )me->var = tmp;
	697	return;
	698	}
	699	else if (me->beh == MB_OPT_ENUM) {
	700	const char *names, p1;
	701	int i;
	702
	703	names = (const char **)me->data;
	704	if (names == NULL)
	705	goto bad_val;
	706	for (i = 0; names[i] != NULL; i++) {
	707	for (p1 = names[i]; *p1 == ' '; p1++)
	708	;
	709	if (strcasecmp(p1, val) == 0) {
	710	(int )me->var = i;
	711	return;
	712	}
	713	}
	714	goto bad_val;
	715	}
	716	else if (custom_read(me, var, val))
	717	return;
	718	}
	719
	720	lprintf("config_readsect: unhandled var: \"%s\"\n", var);
	721	return;
	722
	723	bad_val:
	724	lprintf("config_readsect: unhandled val for \"%s\": %s\n", var, val);
	725	}
	726
	727
	728	int config_havesect(const char fname, const char section)
	729	{
	730	FILE *f;
	731	int ret;
	732
	733	f = fopen(fname, "r");
	734	if (f == NULL) return 0;
	735
	736	ret = seek_sect(f, section);
	737	fclose(f);
	738	return ret;
	739	}
	740
	741	int config_readsect(const char fname, const char section)
	742	{
	743	char line[128], var, val;
	744	FILE *f;
	745	int ret;
	746
	747	f = fopen(fname, "r");
	748	if (f == NULL) return -1;
	749
	750	if (section != NULL)
	751	{
	752	ret = seek_sect(f, section);
	753	if (!ret) {
	754	lprintf("config_readsect: %s: missing section [%s]\n", fname, section);
	755	fclose(f);
	756	return -1;
	757	}
	758	}
	759
	760	keys_encountered = 0;
	761	memset(input_dev_map, 0xff, sizeof(input_dev_map));
	762
	763	while (!feof(f))
	764	{
	765	ret = config_get_var_val(f, line, sizeof(line), &var, &val);
	766	if (ret == 0) break;
	767	if (ret == -1) continue;
	768
	769	parse(var, val);
	770	}
	771
	772	fclose(f);
	773	return 0;
	774	}
	775
	776	#endif // _MSC_VER
	777
	778	static char mystrip(char str)
	779	{
	780	int i, len;
	781
	782	len = strlen(str);
	783	for (i = 0; i < len; i++)
	784	if (str[i] != ' ') break;
	785	if (i > 0) memmove(str, str + i, len - i + 1);
	786
	787	len = strlen(str);
	788	for (i = len - 1; i >= 0; i--)
	789	if (str[i] != ' ') break;
	790	str[i+1] = 0;
	791
	792	return str;
	793	}
	794
	795	/* returns:
	796	* 0 - EOF, end
	797	* 1 - parsed ok
	798	* -1 - failed to parse line
	799	*/
	800	int config_get_var_val(void file, char line, int lsize, char rvar, char rval)
	801	{
	802	char var, val, *tmp;
	803	FILE *f = file;
	804	int len, i;
	805
	806	tmp = fgets(line, lsize, f);
	807	if (tmp == NULL) return 0;
	808
	809	if (line[0] == '[') return 0; // other section
	810
	811	// strip comments, linefeed, spaces..
	812	len = strlen(line);
	813	for (i = 0; i < len; i++)
	814	if (line[i] == '#' \|\| line[i] == '\r' \|\| line[i] == '\n') { line[i] = 0; break; }
	815	mystrip(line);
	816	len = strlen(line);
	817	if (len <= 0) return -1;;
	818
	819	// get var and val
	820	for (i = 0; i < len; i++)
	821	if (line[i] == '=') break;
	822	if (i >= len \|\| strchr(&line[i+1], '=') != NULL) {
	823	lprintf("config_readsect: can't parse: %s\n", line);
	824	return -1;
	825	}
	826	line[i] = 0;
	827	var = line;
	828	val = &line[i+1];
	829	mystrip(var);
	830	mystrip(val);
	831
	832	#ifndef _MSC_VER
	833	if (strlen(var) == 0 \|\| (strlen(val) == 0 && strncasecmp(var, "bind", 4) != 0)) {
	834	lprintf("config_readsect: something's empty: \"%s\" = \"%s\"\n", var, val);
	835	return -1;;
	836	}
	837	#endif
	838
	839	*rvar = var;
	840	*rval = val;
	841	return 1;
	842	}
	843