[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, 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[128];

	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));
					goto write_line;
				}
			}
		}
		else if (me->generate_name != NULL) {
			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 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[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:
			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;

		/* 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 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[256], *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);
			return;
		}

		mystrip(var + 5);
		in_config_bind_key(dev_id, var + 5, acts, type);
	}
}

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[128], *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;
}
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	static 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
	94	int 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
	136	write_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
	166	int 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
	213	int 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
	247	static 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
	364	static 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
	398	static 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
	434	static 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
	502	bad_val:
	503	lprintf("config_readsect: unhandled val for \"%s\": \"%s\"\n", var, val);
	504	}
	505
	506	int 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
	555	static 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	*/
	577	int 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