/*
  * UAE - The Un*x Amiga Emulator
  *
  * Config file handling
  * This still needs some thought before it's complete...
  *
  * Copyright 1998 Brian King, Bernd Schmidt
  */

#include "sysconfig.h"
#include "sysdeps.h"

#include <ctype.h>

#include "config.h"
#include "options.h"
#include "threaddep/penguin.h"
#include "uae.h"
#include "autoconf.h"

/* @@@ need to get rid of this... just cut part of the manual and print that
 * as a help text.  */
struct cfg_lines
{
    const char *config_label, *config_help;
};

static struct cfg_lines opttable[] =
{
    {"help", "Prints this help" },
    {"config_description", "" },
    {"use_gui", "Enable the GUI?  If no, then goes straight to emulator" },
    {"use_debugger", "Enable the debugger?" },
    {"cpu_speed", "can be max, real, or a number between 1 and 20" },
    {"cpu_type", "Can be 68000, 68010, 68EC020, 68EC020/68881, 68020, 68020/68881" },
    {"cpu_compatible", "yes enables compatibility-mode" },
    {"cpu_24bit_addressing", "must be set to 'no' in order for Z3mem or P96mem to work" },
    {"autoconfig", "yes = add filesystems and extra ram" },
    {"accuracy", "emulation accuracy, default is 2" },
    {"log_illegal_mem", "print illegal memory access by Amiga software?" },
    {"fastmem_size", "Size in megabytes of fast-memory" },
    {"chipmem_size", "Size in megabytes of chip-memory" },
    {"bogomem_size", "Size in megabytes of bogo-memory at 0xC00000" },
    {"a3000mem_size", "Size in megabytes of A3000 memory" },
    {"gfxcard_size", "Size in megabytes of Picasso96 graphics-card memory" },
    {"z3mem_size", "Size in megabytes of Zorro-III expansion memory" },
    {"gfx_test_speed", "Test graphics speed?" },
    {"gfx_framerate", "Print every nth frame" },
    {"gfx_width", "Screen width" },
    {"gfx_height", "Screen height" },
    {"gfx_lores", "Treat display as lo-res?" },
    {"gfx_linemode", "Can be none, double, or scanlines" },
    {"gfx_fullscreen_amiga", "Amiga screens are fullscreen?" },
    {"gfx_fullscreen_picasso", "Picasso screens are fullscreen?" },
    {"gfx_correct_aspect", "Correct aspect ratio?" },
    {"gfx_center_horizontal", "Center display horizontally?" },
    {"gfx_center_vertical", "Center display vertically?" },
    {"gfx_colour_mode", "" },
    {"gfx_32bit_blits", "Enable 32 bit blitter emulation" },
    {"gfx_immediate_blits", "Perform blits immediately" },
    {"gfx_ntsc", "NTSC 60Hz timing" },
    {"gfx_chipset", "Chipset compatability" },
    {"show_leds", "LED display" },
    {"gfxlib_replacement", "Use graphics.library replacement?" },
    {"bsdsocket_emu", "Utilize a bsdsocket.library replacement?" },
    {"sound_output", "" },
    {"sound_frequency", "" },
    {"sound_bits", "" },
    {"sound_channels", "" },
    {"sound_min_buff", "" },
    {"sound_max_buff", "" },
    {"parallel_on_demand", "" },
    {"serial_on_demand", "" },
    {"joyport0", "" },
    {"joyport1", "" },
    {"kickstart_rom_file", "Kickstart ROM image, (C) Copyright Amiga, Inc." },
    {"kickstart_key_file", "Key-file for encrypted ROM images (from Cloanto's Amiga Forever)" },
    {"floppy0", "Diskfile for drive 0" },
    {"floppy1", "Diskfile for drive 1" },
    {"floppy2", "Diskfile for drive 2" },
    {"floppy3", "Diskfile for drive 3" },
    {"hardfile", "access,sectors, surfaces, reserved, blocksize, path format" },
    {"filesystem", "access,'Amiga volume-name':'host directory path' - where 'access' can be 'read-only' or 'read-write'" }
};

static const char *linemode1[] = { "none", "double", "scanlines", 0 };
static const char *linemode2[] = { "n", "d", "s", 0 };
static const char *speedmode[] = { "max", "real", 0 };
static const char *cpumode[] = { "68000", "68000", "68010", "68010",
				 "68ec020", "68020", "68ec020/68881", "68020/68881", 0 };
static const char *portmode[] = { "joy0", "joy1", "mouse", "kbd1", "kbd2", "kbd3", 0 };
static const char *colormode1[] = { "8bit", "15bit", "16bit", "8bit_dither", "4bit_dither", "32bit", 0 };
static const char *colormode2[] = { "8", "15", "16", "8d", "4d", "32", 0 };
static const char *centermode1[] = { "none", "simple", "smart", 0 };
static const char *centermode2[] = { "false", "true", "smart", 0 };
static const char *soundmode1[] = { "none", "interrupts", "normal", "exact", 0 };
static const char *soundmode2[] = { "none", "interrupts", "good", "best", 0 };
static const char *stereomode1[] = { "mono", "stereo", 0 };
static const char *stereomode2[] = { "m", "s", 0 };
static const char *stereomode3[] = { "1", "2", 0 };
static const char *chipsetmode1[] = { "ocs", "ecs agnes", "ecs denise", "ecs", "aga", 0 };
static const char *chipsetmode2[] = { "0", "1", "2", "3", "4", 0 };

#define UNEXPANDED "$(FILE_PATH)"

static int match_string (const char *table[], const char *str)
{
    int i;
    for (i = 0; table[i] != 0; i++)
	if (strcasecmp (table[i], str) == 0)
	    return i;
    return -1;
}

char *cfgfile_subst_path (const char *path, const char *subst, const char *file)
{
    /* @@@ use strcasecmp for some targets.  */
    if (strlen (path) > 0 && strncmp (file, path, strlen (path)) == 0) {
	int l;
	char *p = xmalloc (strlen (file) + strlen (subst) + 2);
	strcpy (p, subst);
	l = strlen (p);
	while (l > 0 && p[l - 1] == '/')
	    p[--l] = '\0';
	l = strlen (path);
	while (file[l] == '/')
	    l++;
	strcat (p, "/"); strcat (p, file + l);
	return p;
    }
    return my_strdup (file);
}

void save_options (FILE *f, struct uae_prefs *p)
{
    struct strlist *sl;
    char *str;
    int i;

    fprintf (f, "config_description=%s\n", p->description);

    for (sl = p->unknown_lines; sl; sl = sl->next)
	fprintf (f, "%s\n", sl->str);

    fprintf (f, "%s.rom_path=%s\n", TARGET_NAME, p->path_rom);
    fprintf (f, "%s.floppy_path=%s\n", TARGET_NAME, p->path_floppy);
    fprintf (f, "%s.hardfile_path=%s\n", TARGET_NAME, p->path_hardfile);

    target_save_options (f, p);

    fprintf (f, "use_gui=%s\n", p->start_gui ? "true" : "false");
    fprintf (f, "use_debugger=%s\n", p->start_debugger ? "true" : "false");
    str = cfgfile_subst_path (p->path_rom, UNEXPANDED, p->romfile);
    fprintf (f, "kickstart_rom_file=%s\n", str);
    free (str);
    str = cfgfile_subst_path (p->path_rom, UNEXPANDED, p->keyfile);
    fprintf (f, "kickstart_key_file=%s\n", str);
    free (str);

    for (i = 0; i < 4; i++) {
	str = cfgfile_subst_path (p->path_floppy, UNEXPANDED, p->df[i]);
	fprintf (f, "floppy%d=%s\n", i, str);
	free (str);
    }
    fprintf (f, "parallel_on_demand=%s\n", p->parallel_demand ? "true" : "false");
    fprintf (f, "serial_on_demand=%s\n", p->serial_demand ? "true" : "false");

    fprintf (f, "sound_output=%s\n", soundmode1[p->produce_sound]);
    fprintf (f, "sound_channels=%s\n", stereomode1[p->stereo]);
    fprintf (f, "sound_bits=%d\n", p->sound_bits);
    fprintf (f, "sound_min_buff=%d\n", p->sound_minbsiz);
    fprintf (f, "sound_max_buff=%d\n", p->sound_maxbsiz);
    fprintf (f, "sound_frequency=%d\n", p->sound_freq);

    fprintf (f, "sound_pri_time=%d\n", p->sound_pri_time);
    fprintf (f, "sound_pri_cutoff=%d\n", p->sound_pri_cutoff);

    fprintf (f, "joyport0=%s\n", portmode[p->jport0]);
    fprintf (f, "joyport1=%s\n", portmode[p->jport1]);

    fprintf (f, "bsdsocket_emu=%s\n", p->socket_emu ? "true" : "false");

    fprintf (f, "gfx_chipset=%s\n", chipsetmode1[p->chipset]);
    fprintf (f, "gfx_framerate=%d\n", p->framerate);
    fprintf (f, "gfx_width=%d\n", p->gfx_width);
    fprintf (f, "gfx_height=%d\n", p->gfx_height);
    fprintf (f, "gfx_lores=%s\n", p->gfx_lores ? "true" : "false");
    fprintf (f, "gfx_linemode=%s\n", linemode1[p->gfx_linedbl]);
    fprintf (f, "gfx_correct_aspect=%s\n", p->gfx_correct_aspect ? "true" : "false");
    fprintf (f, "gfx_fullscreen_amiga=%s\n", p->gfx_afullscreen ? "true" : "false");
    fprintf (f, "gfx_fullscreen_picasso=%s\n", p->gfx_pfullscreen ? "true" : "false");
    fprintf (f, "gfx_center_horizontal=%s\n", centermode1[p->gfx_xcenter]);
    fprintf (f, "gfx_center_vertical=%s\n", centermode1[p->gfx_ycenter]);
    fprintf (f, "gfx_colour_mode=%s\n", colormode1[p->color_mode]);
    fprintf (f, "gfx_32bit_blits=%s\n", p->blits_32bit_enabled ? "true" : "false");
    fprintf (f, "gfx_immediate_blits=%s\n", p->immediate_blits ? "true" : "false");
    fprintf (f, "gfx_ntsc=%s\n", p->ntscmode ? "true" : "false");
    fprintf (f, "show_leds=%s\n", p->leds_on_screen ? "true" : "false");
    fprintf (f, "fastmem_size=%d\n", p->fastmem_size / 0x100000);
    fprintf (f, "a3000mem_size=%d\n", p->a3000mem_size / 0x100000);
    fprintf (f, "z3mem_size=%d\n", p->z3fastmem_size / 0x100000);
    fprintf (f, "bogomem_size=%d\n", p->bogomem_size / 0x40000);
    fprintf (f, "gfxcard_size=%d\n", p->gfxmem_size / 0x100000);
    fprintf (f, "chipmem_size=%d\n", p->chipmem_size / 0x80000);

    if (p->m68k_speed > 0)
	fprintf (f, "cpu_speed=%d\n", p->m68k_speed);
    else
	fprintf (f, "cpu_speed=%s\n", p->m68k_speed == -1 ? "max" : "real");

    fprintf (f, "cpu_type=%s\n", cpumode[p->cpu_level * 2 + !p->address_space_24]);
    fprintf (f, "cpu_compatible=%s\n", p->cpu_compatible ? "true" : "false");
    fprintf (f, "autoconfig=%s\n", p->automount_uaedev ? "true" : "false");

    fprintf (f, "accuracy=%d\n", p->emul_accuracy);
    fprintf (f, "log_illegal_mem=%s\n", p->illegal_mem ? "true" : "false");

    fprintf (f, "kbd_lang=%s\n", (p->keyboard_lang == KBD_LANG_DE ? "de"
				  : p->keyboard_lang == KBD_LANG_ES ? "es"
				  : p->keyboard_lang == KBD_LANG_US ? "us"
				  : p->keyboard_lang == KBD_LANG_SE ? "se"
				  : p->keyboard_lang == KBD_LANG_FR ? "fr"
				  : p->keyboard_lang == KBD_LANG_IT ? "it"
				  : "FOO"));

    write_filesys_config (p->mountinfo, UNEXPANDED, p->path_hardfile, f);

    /* Don't write gfxlib/gfx_test_speed options.  */
}

int cfgfile_yesno (char *option, char *value, char *name, int *location)
{
    if (strcmp (option, name) != 0)
	return 0;
    if (strcasecmp (value, "yes") == 0 || strcasecmp (value, "y") == 0
	|| strcasecmp (value, "true") == 0 || strcasecmp (value, "t") == 0)
	*location = 1;
    else if (strcasecmp (value, "no") == 0 || strcasecmp (value, "n") == 0
	|| strcasecmp (value, "false") == 0 || strcasecmp (value, "f") == 0)
	*location = 0;
    else
	write_log ("Option `%s' requires a value of either `yes' or `no'.\n", option);
    return 1;
}

int cfgfile_intval (char *option, char *value, char *name, int *location, int scale)
{
    int base = 10;
    char *endptr;
    if (strcmp (option, name) != 0)
	return 0;
    /* I guess octal isn't popular enough to worry about here...  */
    if (value[0] == '0' && value[1] == 'x')
	value += 2, base = 16;
    *location = strtol (value, &endptr, base) * scale;

    if (*endptr != '\0' || *value == '\0')
	write_log ("Option `%s' requires a numeric argument.\n", option);
    return 1;
}

int cfgfile_floatval (char *option, char *value, char *name, int *location, int scale )
{
    float val = 0.0;
    int result = 0;

    if (strcmp (option, name) == 0)
    {
        if( sscanf( value, "%f", &val ) == 1 )
            result = 1;
        *location = (int)(val*scale);
    }
    return result;
}

int cfgfile_strval (char *option, char *value, char *name, int *location, const char *table[], int more)
{
    int result = 0;
    int val = 0;
    if (strcmp (option, name) == 0)
    {
        val = match_string (table, value);
        if (val == -1) 
        {
	        if (! more)
	            write_log ("Unknown value '%s' for option '%s'.\n", value, option);
        }
        else
        {
            *location = val;
            result = 1;
        }
    }
    return result;
}

int cfgfile_string (char *option, char *value, char *name, char *location, int maxsz)
{
    if (strcmp (option, name) != 0)
	return 0;
    strncpy (location, value, maxsz - 1);
    location[maxsz - 1] = '\0';
    return 1;
}

static int getintval (char **p, int *result, int delim)
{
    char *value = *p;
    int base = 10;
    char *endptr;
    char *p2 = strchr (*p, delim);

    if (p2 == 0)
	return 0;

    *p2++ = '\0';

    if (value[0] == '0' && value[1] == 'x')
	value += 2, base = 16;
    *result = strtol (value, &endptr, base);
    *p = p2;

    if (*endptr != '\0' || *value == '\0')
	return 0;

    return 1;
}

int cfgfile_parse_option (struct uae_prefs *p, char *option, char *value)
{
    char *section = 0;
    char *tmpp;
    for (tmpp = option; *tmpp != '\0'; tmpp++)
	if (isupper (*tmpp))
	    *tmpp = tolower (*tmpp);
    tmpp = strchr (option, '.');
    if (tmpp) {
	section = option;
	option = tmpp + 1;
	*tmpp = '\0';
	if (strcmp (section, TARGET_NAME) == 0) {
	    /* We special case the various path options here.  */
	    if (cfgfile_string (option, value, "rom_path", p->path_rom, 256)
		|| cfgfile_string (option, value, "floppy_path", p->path_floppy, 256)
		|| cfgfile_string (option, value, "hardfile_path", p->path_hardfile, 256))
		return 1;
	    return target_parse_option (p, option, value);
	}
	return 0;
    }
    if (cfgfile_yesno (option, value, "use_debugger", &p->start_debugger)
	|| cfgfile_yesno (option, value, "use_gui", &p->start_gui)
    || cfgfile_yesno (option, value, "bsdsocket_emu", &p->socket_emu)
	|| cfgfile_yesno (option, value, "gfx_immediate_blits", &p->immediate_blits)
	|| cfgfile_yesno (option, value, "gfx_32bit_blits", &p->blits_32bit_enabled)
	|| cfgfile_yesno (option, value, "gfx_lores", &p->gfx_lores)
	|| cfgfile_yesno (option, value, "gfx_correct_aspect", &p->gfx_correct_aspect)
	|| cfgfile_yesno (option, value, "gfx_fullscreen_amiga", &p->gfx_afullscreen)
	|| cfgfile_yesno (option, value, "gfx_fullscreen_picasso", &p->gfx_pfullscreen)
    || cfgfile_yesno (option, value, "gfx_ntsc", &p->ntscmode)
    || cfgfile_yesno (option, value, "show_leds", &p->leds_on_screen)
	|| cfgfile_yesno (option, value, "cpu_compatible", &p->cpu_compatible)
	|| cfgfile_yesno (option, value, "cpu_24bit_addressing", &p->address_space_24)
	|| cfgfile_yesno (option, value, "autoconfig", &p->automount_uaedev)
	|| cfgfile_yesno (option, value, "parallel_on_demand", &p->parallel_demand)
	|| cfgfile_yesno (option, value, "serial_on_demand", &p->serial_demand)
	|| cfgfile_yesno (option, value, "log_illegal_mem", &p->illegal_mem))
	return 1;
    if (cfgfile_intval (option, value, "accuracy", &p->emul_accuracy, 1)
	|| cfgfile_intval (option, value, "sound_min_buff", &p->sound_minbsiz, 1)
	|| cfgfile_intval (option, value, "sound_max_buff", &p->sound_maxbsiz, 1)
	|| cfgfile_intval (option, value, "sound_frequency", &p->sound_freq, 1)
	|| cfgfile_intval (option, value, "sound_bits", &p->sound_bits, 1)
	|| cfgfile_intval (option, value, "sound_pri_cutoff", &p->sound_pri_cutoff, 1)
	|| cfgfile_intval (option, value, "sound_pri_time", &p->sound_pri_time, 1)
	|| cfgfile_intval (option, value, "gfx_framerate", &p->framerate, 1)
	|| cfgfile_intval (option, value, "gfx_width", &p->gfx_width, 1)
	|| cfgfile_intval (option, value, "gfx_height", &p->gfx_height, 1)
    || cfgfile_floatval (option, value, "a3000mem_size", &p->a3000mem_size, 0x100000)
	|| cfgfile_floatval (option, value, "bogomem_size", &p->bogomem_size, 0x40000)
	|| cfgfile_floatval (option, value, "chipmem_size", &p->chipmem_size, 0x80000)
    || cfgfile_intval (option, value, "fastmem_size", &p->fastmem_size, 0x100000)
	|| cfgfile_intval (option, value, "a3000mem_size", &p->a3000mem_size, 0x100000)
	|| cfgfile_intval (option, value, "z3mem_size", &p->z3fastmem_size, 0x100000)
	|| cfgfile_intval (option, value, "bogomem_size", &p->bogomem_size, 0x40000)
	|| cfgfile_intval (option, value, "gfxcard_size", &p->gfxmem_size, 0x100000)
	|| cfgfile_intval (option, value, "chipmem_size", &p->chipmem_size, 0x80000))
	return 1;
    if (cfgfile_strval (option, value, "sound_output", &p->produce_sound, soundmode2, 1)
    || cfgfile_strval (option, value, "sound_output", &p->produce_sound, soundmode1, 0)
	|| cfgfile_strval (option, value, "sound_channels", &p->stereo, stereomode1, 1)
	|| cfgfile_strval (option, value, "sound_channels", &p->stereo, stereomode2, 1)
	|| cfgfile_strval (option, value, "sound_channels", &p->stereo, stereomode3, 0)
	|| cfgfile_strval (option, value, "joyport0", &p->jport0, portmode, 0)
	|| cfgfile_strval (option, value, "joyport1", &p->jport1, portmode, 0)
	|| cfgfile_strval (option, value, "gfx_linemode", &p->gfx_linedbl, linemode1, 1)
	|| cfgfile_strval (option, value, "gfx_linemode", &p->gfx_linedbl, linemode2, 0)
	|| cfgfile_strval (option, value, "gfx_center_horizontal", &p->gfx_xcenter, centermode1, 1)
	|| cfgfile_strval (option, value, "gfx_center_vertical", &p->gfx_ycenter, centermode1, 1)
	|| cfgfile_strval (option, value, "gfx_center_horizontal", &p->gfx_xcenter, centermode2, 0)
	|| cfgfile_strval (option, value, "gfx_center_vertical", &p->gfx_ycenter, centermode2, 0)
    || cfgfile_strval (option, value, "gfx_chipset", &p->chipset, chipsetmode1, 1)
    || cfgfile_strval (option, value, "gfx_chipset", &p->chipset, chipsetmode2, 0)
	|| cfgfile_strval (option, value, "gfx_colour_mode", &p->color_mode, colormode1, 1)
	|| cfgfile_strval (option, value, "gfx_colour_mode", &p->color_mode, colormode2, 0)
	|| cfgfile_strval (option, value, "gfx_color_mode", &p->color_mode, colormode1, 1)
	|| cfgfile_strval (option, value, "gfx_color_mode", &p->color_mode, colormode2, 0))
	return 1;
    if (cfgfile_string (option, value, "floppy0", p->df[0], 256)
	|| cfgfile_string (option, value, "floppy1", p->df[1], 256)
	|| cfgfile_string (option, value, "floppy2", p->df[2], 256)
	|| cfgfile_string (option, value, "floppy3", p->df[3], 256)
	|| cfgfile_string (option, value, "kickstart_rom_file", p->romfile, 256)
	|| cfgfile_string (option, value, "kickstart_key_file", p->keyfile, 256)
	|| cfgfile_string (option, value, "config_description", p->description, 256))
	return 1;

    /* Tricky ones... */
    if (cfgfile_strval (option, value, "cpu_type", &p->cpu_level, cpumode, 0)) {
	p->address_space_24 = !(p->cpu_level & 1);
	p->cpu_level >>= 1;
	return 1;
    }
    if (cfgfile_strval (option, value, "cpu_speed", &p->m68k_speed, speedmode, 1)) {
	p->m68k_speed--;
	return 1;
    }
    if (cfgfile_intval (option, value, "cpu_speed", &p->m68k_speed, 1))
	return 1;

    if (strcmp (option, "kbd_lang") == 0) {
	KbdLang l;
	if ((l = KBD_LANG_DE, strcasecmp (value, "de") == 0)
	    || (l = KBD_LANG_SE, strcasecmp (value, "se") == 0)
	    || (l = KBD_LANG_US, strcasecmp (value, "us") == 0)
	    || (l = KBD_LANG_FR, strcasecmp (value, "fr") == 0)
	    || (l = KBD_LANG_IT, strcasecmp (value, "it") == 0)
	    || (l = KBD_LANG_ES, strcasecmp (value, "es") == 0))
	    p->keyboard_lang = l;
	else
	    write_log ("Unknown keyboard language\n");
	return 1;
    }

    if (strcmp (option, "filesystem") == 0
	|| strcmp (option, "hardfile") == 0)
    {
	int secs, heads, reserved, bs, ro;
	char *aname, *root;
	char *tmpp = strchr (value, ',');
	char *str;
	if (tmpp == 0)
	    goto invalid_fs;

	*tmpp++ = '\0';
	if (strcmp (value, "1") == 0 || strcasecmp (value, "ro") == 0
	    || strcasecmp (value, "readonly") == 0
	    || strcasecmp (value, "read-only") == 0)
	    ro = 1;
	else if (strcmp (value, "0") == 0 || strcasecmp (value, "rw") == 0
		 || strcasecmp (value, "readwrite") == 0
		 || strcasecmp (value, "read-write") == 0)
	    ro = 0;
	else
	    goto invalid_fs;
	secs = 0; heads = 0; reserved = 0; bs = 0;

	value = tmpp;
	if (strcmp (option, "filesystem") == 0) {
	    tmpp = strchr (value, ':');
	    if (tmpp == 0)
		goto invalid_fs;
	    *tmpp++ = '\0';
	    aname = value;
	    root = tmpp;
	} else {
	    if (! getintval (&value, &secs, ',')
		|| ! getintval (&value, &heads, ',')
		|| ! getintval (&value, &reserved, ',')
		|| ! getintval (&value, &bs, ','))
		goto invalid_fs;
        root = value;
        aname = 0;
	}
	str = cfgfile_subst_path (UNEXPANDED, p->path_hardfile, root);
	tmpp = add_filesys_unit (p->mountinfo, aname, str, ro, secs,
				 heads, reserved, bs, 0);
	if (tmpp)
	    write_log( "Error while mounting %s: %s\n", str, tmpp );
    free (str);
	return 1;

      invalid_fs:
	write_log ("Invalid filesystem/hardfile specification.\n");
	return 1;
    }

    return 0;
}

void cfgfile_parse_line (struct uae_prefs *p, char *line)
{
    int i;
    char *orig_line = my_strdup (line);
    char *line1, *line2;

    line1 = line;
    line2 = strchr (line, '=');
    if (! line2) {
	write_log ("CFGFILE: line was incomplete with only %s\n", line1);
	return;
    }

    *line2++ = '\0';

    /* Get rid of whitespace.  */
    i = strlen (line2);
    while (i > 0 && (line2[i - 1] == '\t' || line2[i - 1] == ' '
		     || line2[i - 1] == '\r' || line2[i - 1] == '\n'))
	line2[--i] = '\0';
    line2 += strspn (line2, "\t\r\n");
    i = strlen (line);
    while (i > 0 && (line[i - 1] == '\t' || line[i - 1] == ' '
		     || line[i - 1] == '\r' || line[i - 1] == '\n'))
	line[--i] = '\0';
    line += strspn (line, "\t\r\n");

    if (! cfgfile_parse_option (p, line, line2)) {
	struct strlist *u = xmalloc (sizeof (struct strlist));
	u->str = orig_line;
	u->next = p->unknown_lines;
	p->unknown_lines = u;
    } else
	free (orig_line);
}

static void subst (char *p, char *f, int n)
{
    char *str = cfgfile_subst_path (UNEXPANDED, p, f);
    strncpy (f, str, n - 1);
    f[n - 1] = '\0';
    free (str);
}

int cfgfile_load (struct uae_prefs *p, const char *filename)
{
    int i;

    FILE *fh;
    char line[256];

    fh = fopen (filename, "rt");
    if (! fh)
	return 0;

    /* Free up any existing prefs before loading in */
    discard_prefs( p );

    write_log( "Loading config-file \"%s\"\n", filename );
    while (fgets (line, 256, fh) != 0) {
	line[strcspn (line, "\t\r\n")] = '\0'; // %%% - keep ' ' chars
	if (strlen (line) > 0)
	    cfgfile_parse_line (p, line);
    }
    fclose (fh);

    for (i = 0; i < 4; i++)
	subst (p->path_floppy, p->df[i], sizeof p->df[i]);
    subst (p->path_rom, p->romfile, sizeof p->romfile);
    subst (p->path_rom, p->keyfile, sizeof p->keyfile);

    return 1;
}

int cfgfile_save (struct uae_prefs *p, const char *filename)
{
    FILE *fh = fopen (filename, "w");
    if (! fh)
	return 0;

    save_options (fh, p);
    fclose (fh);
    return 1;
}

int cfgfile_get_description (const char *filename, char *description)
{
    int result = 0;
    char *str;

    FILE *fh;
    char line[256];

    if( ( fh = fopen (filename, "rt") ) == NULL )
    {
        write_log( "Couldn't open %s to extract description.\n", filename );
    }
    else
    {
        /* We rely on the first line of a .uae file being the description */
        write_log( "Getting description from config-file \"%s\"\n", filename );
        fgets (line, 256, fh);
        line[strcspn (line, "\t\r\n")] = '\0'; // %%% - keep ' ' chars
        if( str = strchr( line, '=' ) )
        {
            str++;
            strcpy( description, str );
            result = 1;
        }
        else
        {
            write_log( "Invalid formatted config-file.\n" );
        }
        fclose (fh);
    }

    return result;
}

void cfgfile_show_usage (void)
{
    int i;
    write_log ("UAE Configuration Help:\n" \
	       "=======================\n");
    for (i = 0; i < sizeof opttable / sizeof *opttable; i++)
	write_log ("%s: %s\n", opttable[i].config_label, opttable[i].config_help);
}