/**

 * $Id$

 *

 * Define the main (emu) GTK window, along with its menubars,

 * toolbars, etc.

 *

 * Copyright (c) 2005 Nathan Keynes.

 *

 * This program is free software; you can redistribute it and/or modify

 * it under the terms of the GNU General Public License as published by

 * the Free Software Foundation; either version 2 of the License, or

 * (at your option) any later version.

 *

 * This program is distributed in the hope that it will be useful,

 * but WITHOUT ANY WARRANTY; without even the implied warranty of

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

 * GNU General Public License for more details.

 */

#include <assert.h>

#include <string.h>

#include <gtk/gtk.h>

#include <gdk/gdkkeysyms.h>

#include "lxdream.h"

#include "display.h"

#include "gtkui/gtkui.h"

#include "maple/maple.h"

#define MAX_DEVICES 4

static void controller_device_configure(maple_device_t device);

struct maple_config_class {

    const char *name;

    void (*config_func)(maple_device_t device);

};

typedef struct maple_slot_data {

    maple_device_t old_device;

    maple_device_t new_device;

    GtkWidget *button;

    GtkWidget *combo;

} *maple_slot_data_t;

static struct maple_config_class maple_device_config[] = {

        { "Sega Controller", controller_device_configure },

        { "Sega Lightgun", controller_device_configure },

        { NULL, NULL } };

static struct maple_slot_data maple_data[MAX_DEVICES];

static void config_keysym_hook( void *data, const gchar *keysym )

{

    GtkWidget *widget = (GtkWidget *)data;

    gtk_entry_set_text( GTK_ENTRY(widget), keysym );

    g_object_set_data( G_OBJECT(widget), "keypress_mode", GINT_TO_POINTER(FALSE) );

    input_set_keysym_hook(NULL, NULL);

}

static gboolean config_key_buttonpress( GtkWidget *widget, GdkEventButton *event, gpointer user_data )

{

    gboolean keypress_mode = GPOINTER_TO_INT(g_object_get_data( G_OBJECT(widget), "keypress_mode"));

    if( keypress_mode ) {

        gchar *keysym = input_keycode_to_keysym( &system_mouse_driver, event->button);

        if( keysym != NULL ) {

            config_keysym_hook( widget, keysym );

            g_free(keysym);

        }

        return TRUE;

    } else {

        gtk_entry_set_text( GTK_ENTRY(widget), _("<press key>") );

        g_object_set_data( G_OBJECT(widget), "keypress_mode", GINT_TO_POINTER(TRUE) );

        input_set_keysym_hook(config_keysym_hook, widget);

    }

    return FALSE;

}

static gboolean config_key_keypress( GtkWidget *widget, GdkEventKey *event, gpointer user_data )

{

    gboolean keypress_mode = GPOINTER_TO_INT(g_object_get_data( G_OBJECT(widget), "keypress_mode"));

    if( keypress_mode ) {

        if( event->keyval == GDK_Escape ) {

            gtk_entry_set_text( GTK_ENTRY(widget), "" );

            g_object_set_data( G_OBJECT(widget), "keypress_mode", GINT_TO_POINTER(FALSE) );

            return TRUE;

        }

        GdkKeymap *keymap = gdk_keymap_get_default();

        guint keyval;

        gdk_keymap_translate_keyboard_state( keymap, event->hardware_keycode, 0, 0, &keyval, 

                                             NULL, NULL, NULL );

        gtk_entry_set_text( GTK_ENTRY(widget), gdk_keyval_name(keyval) );

        g_object_set_data( G_OBJECT(widget), "keypress_mode", GINT_TO_POINTER(FALSE) );

        input_set_keysym_hook(NULL, NULL);

        return TRUE;

    } else {

        switch( event->keyval ) {

        case GDK_Return:

        case GDK_KP_Enter:

            gtk_entry_set_text( GTK_ENTRY(widget), _("<press key>") );

            g_object_set_data( G_OBJECT(widget), "keypress_mode", GINT_TO_POINTER(TRUE) );

            input_set_keysym_hook(config_keysym_hook, widget);

            return TRUE;

        case GDK_BackSpace:

        case GDK_Delete:

            gtk_entry_set_text( GTK_ENTRY(widget), "" );

            return TRUE;

        }

        return FALSE;

    }

}

static void controller_config_done( GtkWidget *panel, gboolean isOK )

{

    if( isOK ) {

        maple_device_t device = (maple_device_t)gtk_object_get_data( GTK_OBJECT(panel), "maple_device" );

        lxdream_config_entry_t conf = device->get_config(device);

        int i;

        for( i=0; conf[i].key != NULL; i++ ) {

            char buf[64];

            GtkWidget *entry1, *entry2;

            const gchar *key1, *key2;

            snprintf( buf, sizeof(buf), "%s.1", conf[i].key );

            entry1 = GTK_WIDGET(g_object_get_qdata( G_OBJECT(panel), g_quark_from_string(buf)));

            key1 = gtk_entry_get_text(GTK_ENTRY(entry1));

            snprintf( buf, sizeof(buf), "%s.2", conf[i].key );

            entry2 = GTK_WIDGET(g_object_get_qdata( G_OBJECT(panel), g_quark_from_string(buf)));

            key2 = gtk_entry_get_text(GTK_ENTRY(entry2));

            if( key1 == NULL || key1[0] == '\0') {

                lxdream_set_config_value( &conf[i], key2 );

            } else if( key2 == NULL || key2[0] == '\0') {

                lxdream_set_config_value( &conf[i], key1 );

            } else {

                char buf[64];

                snprintf( buf, sizeof(buf), "%s, %s", key1, key2 );

                lxdream_set_config_value( &conf[i], buf );

            }

        }

    }

    input_set_keysym_hook(NULL, NULL);

}

static void controller_device_configure( maple_device_t device )

{

    lxdream_config_entry_t conf = maple_get_device_config(device);

    int count, i;

    for( count=0; conf[count].key != NULL; count++ );

    GtkWidget *table = gtk_table_new( (count+1)>>1, 6, FALSE );

    GList *focus_chain = NULL;

    gtk_object_set_data( GTK_OBJECT(table), "maple_device", device );

    for( i=0; i<count; i++ ) {

        GtkWidget *text, *text2;

        char buf[64];

        int x=0;

        int y=i;

        if( i >= (count+1)>>1 ) {

            x = 3;

            y -= (count+1)>>1;

        }

        gtk_table_attach( GTK_TABLE(table), gtk_label_new(gettext(conf[i].label)), x, x+1, y, y+1, 

                          GTK_SHRINK, GTK_SHRINK, 0, 0 );

        text = gtk_entry_new();

        gtk_entry_set_width_chars( GTK_ENTRY(text), 11 );

        gtk_entry_set_editable( GTK_ENTRY(text), FALSE );

        g_signal_connect( text, "key_press_event", 

                          G_CALLBACK(config_key_keypress), NULL );

        g_signal_connect( text, "button_press_event",

                          G_CALLBACK(config_key_buttonpress), NULL );

        snprintf( buf, sizeof(buf), "%s.1", conf[i].key );

        g_object_set_data( G_OBJECT(text), "keypress_mode", GINT_TO_POINTER(FALSE) );

        g_object_set_qdata( G_OBJECT(table), g_quark_from_string(buf), text );

        gtk_table_attach_defaults( GTK_TABLE(table), text, x+1, x+2, y, y+1);

        focus_chain = g_list_append( focus_chain, text );

        text2 = gtk_entry_new();

        gtk_entry_set_width_chars( GTK_ENTRY(text2), 11 );

        gtk_entry_set_editable( GTK_ENTRY(text2), FALSE );

        g_signal_connect( text2, "key_press_event", 

                          G_CALLBACK(config_key_keypress), NULL );

        g_signal_connect( text2, "button_press_event",

                          G_CALLBACK(config_key_buttonpress), NULL );

        snprintf( buf, sizeof(buf), "%s.2", conf[i].key );

        g_object_set_data( G_OBJECT(text2), "keypress_mode", GINT_TO_POINTER(FALSE) );

        g_object_set_qdata( G_OBJECT(table), g_quark_from_string(buf), text2 );

        gtk_table_attach_defaults( GTK_TABLE(table), text2, x+2, x+3, y, y+1);

        focus_chain = g_list_append( focus_chain, text2 );

        if( conf[i].value != NULL ) {

            gchar **parts = g_strsplit(conf[i].value,",",3);

            if( parts[0] != NULL ) {

                gtk_entry_set_text( GTK_ENTRY(text), g_strstrip(parts[0]) );

                if( parts[1] != NULL ) {

                    gtk_entry_set_text( GTK_ENTRY(text2), g_strstrip(parts[1]) );

                }

            }

            g_strfreev(parts);

        }

    }

    gtk_container_set_focus_chain( GTK_CONTAINER(table), focus_chain );

    gtk_gui_run_property_dialog( _("Controller Configuration"), table, controller_config_done );

}

gboolean maple_properties_activated( GtkButton *button, gpointer user_data )

{

    maple_slot_data_t data = (maple_slot_data_t)user_data;

    if( data->new_device != NULL ) {

        int i;

        for( i=0; maple_device_config[i].name != NULL; i++ ) {

            if( strcmp(data->new_device->device_class->name, maple_device_config[i].name) == 0 ) {

                if( data->new_device == data->old_device ) {

                    // Make a copy at this point if we haven't already

                    data->new_device = data->old_device->clone(data->old_device);

                }

                maple_device_config[i].config_func(data->new_device);

                break;

            }

        }

        if( maple_device_config[i].name == NULL ) {

            gui_error_dialog( _("No configuration page available for device type") );

        }

    }

    return TRUE;

}

gboolean maple_device_changed( GtkComboBox *combo, gpointer user_data )

{

    maple_slot_data_t data = (maple_slot_data_t)user_data;

    int active = gtk_combo_box_get_active(combo);

    gboolean has_config = FALSE;

    if( active != 0 ) {

        gchar *devname = gtk_combo_box_get_active_text(combo);

        const maple_device_class_t devclz = maple_get_device_class(devname);

        assert(devclz != NULL);

        if( data->new_device != NULL ) {

            if( data->new_device->device_class != devclz ) {

                if( data->new_device != data->old_device ) {

                    data->new_device->destroy(data->new_device);

                }

                data->new_device = maple_new_device(devname);

            }

        } else {

            data->new_device = maple_new_device(devname);

        }

        has_config = data->new_device != NULL && data->new_device->get_config != NULL;

    } else {

        if( data->new_device != NULL && data->new_device != data->old_device ) {

            data->new_device->destroy(data->new_device);

        }

        data->new_device = NULL;

    }

    gtk_widget_set_sensitive(data->button, has_config);

    return TRUE;

}

void maple_dialog_done( GtkWidget *panel, gboolean isOK )

{

    if( isOK ) {

        int i;

        for( i=0; i<MAX_DEVICES; i++ ) {

            if( maple_data[i].new_device != maple_data[i].old_device ) {

                if( maple_data[i].old_device != NULL ) {

                    maple_detach_device(i,0);

                }

                if( maple_data[i].new_device != NULL ) {

                    maple_attach_device(maple_data[i].new_device, i, 0 );

                }

            }

        }

        lxdream_save_config();

    } else {

        int i;

        for( i=0; i<MAX_DEVICES; i++ ) {

            if( maple_data[i].new_device != NULL && 

                    maple_data[i].new_device != maple_data[i].old_device ) {

                maple_data[i].new_device->destroy(maple_data[i].new_device);

            }

        }

    }

}

GtkWidget *maple_panel_new()

{

    GtkWidget *table = gtk_table_new(4, 3, TRUE);

    int i,j;

    const struct maple_device_class **devices = maple_get_device_classes();

    for( i=0; i< MAX_DEVICES; i++ ) {

        char buf[16];

        GtkWidget *combo, *button;

        int active = 0;

        maple_device_t device = maple_get_device(i,0);

        snprintf( buf, sizeof(buf), _("Slot %d."), i );

        gtk_table_attach_defaults( GTK_TABLE(table), gtk_label_new(buf), 0, 1, i, i+1 );

        combo = gtk_combo_box_new_text();

        gtk_combo_box_append_text( GTK_COMBO_BOX(combo), _("<empty>") );

        for( j=0; devices[j] != NULL; j++ ) {

            gtk_combo_box_append_text(GTK_COMBO_BOX(combo), devices[j]->name);

            if( device != NULL && device->device_class == devices[j] ) {

                active = j+1;

            }

        }

        gtk_combo_box_set_active(GTK_COMBO_BOX(combo), active);

        gtk_table_attach_defaults( GTK_TABLE(table), combo, 1, 2, i, i+1 );

        button = gtk_button_new_from_stock( GTK_STOCK_PROPERTIES );

        gtk_widget_set_sensitive(button, active != 0 && device->get_config != NULL);

        gtk_table_attach_defaults( GTK_TABLE(table), button, 2, 3, i, i+1 );

        maple_data[i].old_device = device;

        maple_data[i].new_device = device;

        maple_data[i].combo = combo;

        maple_data[i].button = button;

        g_signal_connect( button, "clicked", 

                          G_CALLBACK( maple_properties_activated ), &maple_data[i] );

        g_signal_connect( combo, "changed", 

                          G_CALLBACK( maple_device_changed ), &maple_data[i] );

    }

    return table;

}

void maple_dialog_run( )

{

    gtk_gui_run_property_dialog( _("Controller Settings"), maple_panel_new(), maple_dialog_done );

}