/* Hey EMACS -*- linux-c -*- */

/*  TiEmu - Tiemu Is an EMUlator
 *
 *  Copyright (c) 2006, Romain Liévin
 *
 *  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.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program; if not, write to the Free Software
 *  Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
 */

#ifdef HAVE_CONFIG_H
#  include <config.h>
#endif				/*  */

#include <gtk/gtk.h>
#include <glade/glade.h>
#include <gdk-pixbuf/gdk-pixbuf.h>
#include <string.h>

#include "support.h"
#include "cflibs.h"
#include "ti68k_int.h"
#include "struct.h"
#include "calc.h"
#include "engine.h"
#include "fs_misc.h"
#include "romversion.h"

void dnd_init(void)
{
	extern GtkWidget *main_wnd;

	gtk_drag_dest_set (main_wnd, 0, NULL, 0, 0);
}

GLADE_CB gboolean
on_calc_wnd_drag_drop              (GtkWidget       *widget,
                                        GdkDragContext  *context,
                                        gint             x,
                                        gint             y,
                                        guint            time,
                                        gpointer         user_data)
{
	if (context->targets)
    {
      gtk_drag_get_data (widget, context, 
			 GDK_POINTER_TO_ATOM (context->targets->data), 
			 time);
      return TRUE;
    }

	return FALSE;
}

extern int import_romversion(const char *filename);

GLADE_CB void
on_calc_wnd_drag_data_received     (GtkWidget       *widget,
                                        GdkDragContext  *context,
                                        gint             x,
                                        gint             y,
                                        GtkSelectionData *data,
                                        guint            info,
                                        guint            time,
                                        gpointer         user_data)
{
	gchar **filenames = NULL;

	if ((data->length >= 0) && (data->format == 8))
    {
		gchar *tok, *str = data->data;
		gchar **uris, **p;
		guint length;
		gchar *fn;

		g_print ("Received \"%s\"\n", str);

		// is this an URI?
		if(g_ascii_strncasecmp(str, "file://", 7))
			gtk_drag_finish (context, FALSE, FALSE, time);

		// tails '\r\n' termination
		if ((tok = strrchr(str, '\r')) || (tok = strrchr(str, '\n')))
			*tok = '\0';

		// split if several filenames
		uris = g_strsplit(str, "\r\n", 0);
		length =  g_strv_length(uris);
		printf("uris size = %u\n", length);

		// convert URIs to filenames
		for(p = uris; *p; p++)
		{
			// is this an URI?
			if (!g_ascii_strncasecmp(*p, "file://", 7)) 
			{
				GError *error = NULL;
				gchar *fn;
				gchar *tok;

				// convert URI to filename
				fn = g_filename_from_uri(*p, NULL, &error);
				if(fn == NULL)
				{
					fprintf(stderr, "DnD error: %s\n", error ? error->message : "g_filename_from_uri error");
					g_strfreev(uris);

					goto ocwwdr_end;
				}

				// tails string
				if ((tok = strchr(fn, '\r')) || (tok = strchr(fn, '\n')))
					*tok = '\0';

				// debug
				printf("fn = <%s>\n", fn);
				g_free(*p);
				*p = fn;
			}
		}

		// we have got our filenames...
		filenames = uris;
		fn = filenames[0];

		// let's them process!
		if((length == 1) && !strcmp(calcfiles_fext_get(fn), "skn"))
		{
			// Load new skin (fs_misc.c)
			g_free(options.skin_file);
			options.skin_file = g_strdup(fn);

			hid_change_skin(options.skin_file);
		}
		else if(length == 1 && (!strcmp(calcfiles_fext_get(fn), "rom") || 
				ti68k_is_a_rom_file(fn) || ti68k_is_a_tib_file(fn)))
		{
			{
				// Add rom to wizard
				if(!engine_is_stopped()) engine_stop();
				import_romversion(fn);
				display_romversion_dbox(FALSE);
				engine_start();
			}
		}
		else if((length == 1) && !strcmp(calcfiles_fext_get(fn), "sav"))
		{
			// Load save state
			engine_stop();
			fs_load_state(fn);
			engine_start();
		}
		else if(calcfiles_file_is_ti(fn) && 
				(calcfiles_calc_is_ti9x(calcfiles_file_get_model(fn)) ||
					calcfiles_file_is_tigroup(fn))) 
		{
			// Send one or more file (fs_misc.c)
			if(engine_is_stopped()) goto ocwwdr_end;

			engine_stop();
			fs_send_files(filenames);
			engine_start();
		}

      gtk_drag_finish (context, TRUE, FALSE, time);
	  g_strfreev(filenames);
      return;
    }
  
ocwwdr_end:
	g_strfreev(filenames);
	gtk_drag_finish (context, FALSE, FALSE, time);
}