/*
 * Copyright (c) 1996 Joerg Wunsch
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE DEVELOPERS ``AS IS'' AND ANY EXPRESS OR
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
 * IN NO EVENT SHALL THE DEVELOPERS BE LIABLE FOR ANY DIRECT, INDIRECT,
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 *
 * $FreeBSD$
 *
 */

#include "sysinstall.h"
#include <errno.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <sys/kbio.h>

struct keymapInfo {
    const char *name;
    const struct keymap *map;
};

#include "keymap.h"

/*
 * keymap.h is being automatically generated by the Makefile.  It
 * contains definitions for all desired keymaps.  Note that since we
 * don't support font loading nor screen mapping during installation,
 * we simply don't care for any other keys than the ASCII subset.
 *
 * Therefore, if no keymap with the exact name has been found in the
 * first pass, we make a second pass over the table looking just for
 * the language name only.
 */

#ifdef WITH_SYSCONS
static int
keymapSetDefault(const char *prefix)
{
    dialogMenuItem *items = MenuSysconsKeymap.items;
    int i;
    size_t plen = strlen(prefix);

    for (i = 0; items[i].data; ++i)
	if (!strncmp(prefix, items[i].data, plen))
	    return i;

    return -1;
}

int
keymapMenuSelect(dialogMenuItem *self)
{
    static const struct {
	const char *country, *lang;
    } map[] = {
	{"dk", "danish"},
	{"ee", "estonian"},
	{"fi", "finnish"},
	{"de", "german"},
	{"is", "icelandic"},
	{"no", "norwegian"},
	{"pl", "pl_PL"},
	{"es", "spanish"},
	{"se", "swedish"},
	{"ch", "swiss"},
	{"gb", "uk"},
	{"gg", "uk"},
	{"ie", "uk"},
	{"im", "uk"},
	{"je", "uk"},
	{NULL, NULL}
    };
    const char *country, *lang;
    int i;
    int choice, scroll, curr, max;
    char prefix[16 + 1];

    if ((country = variable_get(VAR_COUNTRY)) != NULL)
    {
	lang = country;
	for (i = 0; map[i].country; ++i)
	    if (!strcmp(country, map[i].country))
	    {
		lang = map[i].lang;
		break;
	    }

	snprintf(prefix, sizeof(prefix), "keymap=%s.iso", lang);
	if ((choice = keymapSetDefault(prefix)) == -1)
	{
	    snprintf(prefix, sizeof(prefix), "keymap=%s", lang);
	    if ((choice = keymapSetDefault(prefix)) == -1) {
#ifdef PC98
		    snprintf(prefix, sizeof(prefix), "keymap=jp.pc98");
#else
		    snprintf(prefix, sizeof(prefix), "keymap=us.iso");
#endif
		    if ((choice = keymapSetDefault(prefix)) == -1)
			    choice = 0;
	    }
	}

	dmenuSetDefaultIndex(&MenuSysconsKeymap, &choice, &scroll, &curr, &max);
	return dmenuOpen(&MenuSysconsKeymap, &choice, &scroll, &curr, &max, FALSE);
    }
    else
	return dmenuOpenSimple(&MenuSysconsKeymap, FALSE) ? DITEM_SUCCESS :
	    DITEM_FAILURE;
}
#endif

/*
 * Return values:
 *
 *  0: OK
 * -1: no appropriate keymap found
 * -2: error installing map (other than ENXIO which means we're not on syscons)
 */

int
loadKeymap(const char *lang)
{
    int passno, err;
    char *llang;
    size_t l;
    struct keymapInfo *kip;

    llang = strdup(lang);
    if (llang == NULL)
	abort();

    for (passno = 0; passno < 2; passno++)
    {
	if (passno > 0) 
	{
	    /* make the match more fuzzy */
	    l = strspn(llang, "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789");
	    llang[l] = '\0';
	}

	l = strlen(llang);

	for (kip = keymapInfos; kip->name; kip++)
	    if (strncmp(kip->name, llang, l) == 0)
	    {
		/* Yep, got it! */
		err = ioctl(0, PIO_KEYMAP, kip->map);
		free(llang);
		return (err == -1 && errno != ENOTTY)? -2: 0;
	    }
    }
    free(llang);
    return -1;
}