/**

  * $Id$

  *

  * Implements the memory dump window.

  *

  * 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 <ctype.h>

 #include <assert.h>

 #include <string.h>

 #include <stdlib.h>

 #include <glib/gi18n.h>

 #include "mem.h"

 #include "gtkui/gtkui.h"

 #define MAX_DUMP_SIZE 4096

 #define DUMP_WINDOW_TAG 0xD4B9DA7A

 struct dump_window_info {

     uint32_t _tag;

     uint32_t start;

     uint32_t end;

     int flags;

     unsigned char *data;

     GtkWidget *window;

     GtkWidget *fromInput, *toInput;

     GtkWidget *textArea;

     GtkTextTag *changedTag;

     GtkTextBuffer *textBuffer;

     struct dump_window_info *next;

 };

 static dump_window_t dump_list_head = NULL;

 gboolean on_dump_window_delete_event( GtkWidget *widget, GdkEvent *event,

                                       gpointer user_data );

 void on_dump_window_button_view_clicked( GtkWidget *widget, gpointer user_data );

 void dump_window_set_text( dump_window_t data, unsigned char *old_data, unsigned char *new_data );

 dump_window_t dump_window_new( const gchar *title )

 {

     GtkWidget *vbox3;

     GtkWidget *hbox2;

     GtkWidget *dump_view_button;

     GtkWidget *scrolledwindow9;

     dump_window_t dump = g_malloc0( sizeof( struct dump_window_info ) );

     dump->_tag = DUMP_WINDOW_TAG;

     dump->next = dump_list_head;

     dump_list_head = dump;

     dump->data = NULL;

     dump->start = 0;

     dump->end = 0;

     dump->window = gtk_window_new (GTK_WINDOW_TOPLEVEL);

     gtk_window_set_title (GTK_WINDOW (dump->window), _("Memory dump"));

     vbox3 = gtk_vbox_new (FALSE, 0);

     gtk_container_add (GTK_CONTAINER (dump->window), vbox3);

     hbox2 = gtk_hbox_new (FALSE, 0);

     dump->fromInput = gtk_entry_new ();

     gtk_entry_set_text( GTK_ENTRY(dump->fromInput), "" );

     dump->toInput = gtk_entry_new ();

     gtk_entry_set_text( GTK_ENTRY(dump->toInput), "" );

     dump_view_button = gtk_button_new_with_mnemonic (_("View"));

     gtk_box_pack_start (GTK_BOX (hbox2), gtk_label_new(_(" From ")), FALSE, FALSE, 0);

     gtk_box_pack_start (GTK_BOX (hbox2), dump->fromInput, FALSE, TRUE, 0);

     gtk_box_pack_start (GTK_BOX (hbox2), gtk_label_new(_(" To ")), FALSE, FALSE, 0);

     gtk_box_pack_start (GTK_BOX (hbox2), dump->toInput, FALSE, TRUE, 0);

     gtk_box_pack_start (GTK_BOX (hbox2), dump_view_button, FALSE, FALSE, 0);

     gtk_box_pack_start (GTK_BOX (hbox2), gtk_label_new (_("   ")), TRUE, TRUE, 0);

     gtk_box_pack_start (GTK_BOX (vbox3), hbox2, FALSE, TRUE, 3);

     dump->textArea = gtk_text_view_new ();

     dump->textBuffer = gtk_text_buffer_new(NULL);

     dump->changedTag = gtk_text_buffer_create_tag(dump->textBuffer, "changed",

             "foreground", "blue", NULL);

     gtk_widget_modify_font(GTK_WIDGET(dump->textArea),gui_fixed_font);

     gtk_text_view_set_editable(GTK_TEXT_VIEW(dump->textArea), FALSE);

     gtk_text_view_set_buffer(GTK_TEXT_VIEW(dump->textArea), dump->textBuffer);

     scrolledwindow9 = gtk_scrolled_window_new (NULL, NULL);

     gtk_scrolled_window_set_shadow_type (GTK_SCROLLED_WINDOW (scrolledwindow9), GTK_SHADOW_IN);

     gtk_container_add (GTK_CONTAINER (scrolledwindow9), dump->textArea);

     gtk_box_pack_start (GTK_BOX (vbox3), scrolledwindow9, TRUE, TRUE, 0);

     g_signal_connect (dump->window, "delete_event",

                       G_CALLBACK (on_dump_window_delete_event),

                       dump);

     g_signal_connect (dump_view_button, "clicked",

                       G_CALLBACK (on_dump_window_button_view_clicked),

                       dump);

     gtk_widget_show_all( dump->window );

     return dump;

 }

 void gtk_entry_set_hex_value( GtkEntry *entry, uint32_t value )

 {

     char buf[10];

     sprintf( buf, "%08X", value );

     gtk_entry_set_text( entry, buf );

 }

 uint32_t gtk_entry_get_hex_value( GtkEntry *entry, uint32_t defaultValue )

 {

     const gchar *text = gtk_entry_get_text(entry);

     if( text == NULL )

         return defaultValue;

     gchar *endptr;

     uint32_t value = strtoul( text, &endptr, 16 );

     if( text == endptr ) { /* invalid input */

         value = defaultValue;

         gtk_entry_set_hex_value( entry, value );

     }

     return value;

 }

 gboolean on_dump_window_delete_event( GtkWidget *widget, GdkEvent *event,

                                       gpointer user_data )

 {

     dump_window_t data = (dump_window_t)user_data;

     if( data->data != NULL )

         free( data->data );

     dump_window_t node = dump_list_head;

     if( node == data )

         dump_list_head = data->next;

     else {

         while( node->next != data ) {

             node = node->next;

             assert( node != NULL );

         }

         node->next = data->next;

     }

     free( data );

     return FALSE;

 }

 void on_dump_window_button_view_clicked( GtkWidget *widget, gpointer user_data )

 {

     dump_window_t data = (dump_window_t)user_data;

     uint32_t startVal, endVal;

     assert( data != NULL );

     assert( data->_tag == DUMP_WINDOW_TAG );

     startVal = gtk_entry_get_hex_value(GTK_ENTRY(data->fromInput), data->start);

     endVal = gtk_entry_get_hex_value(GTK_ENTRY(data->toInput), data->end);

     if( startVal != data->start || endVal != data->end ) {

         if( startVal > endVal ) {

             int tmp = endVal;

             endVal = startVal;

             startVal = tmp;

         }

         if( endVal > startVal + MAX_DUMP_SIZE )

             endVal = startVal + MAX_DUMP_SIZE;

         gtk_entry_set_hex_value(GTK_ENTRY(data->fromInput),startVal);

         gtk_entry_set_hex_value(GTK_ENTRY(data->toInput),endVal);

         data->start = startVal;

         data->end = endVal;

         if( data->data != NULL ) {

             free( data->data );

             data->data = NULL;

         }

         if( startVal != endVal ) {

             data->data = malloc( endVal - startVal );

             mem_copy_from_sh4( data->data, startVal, endVal-startVal );

             dump_window_set_text( data, data->data, data->data );

         }

     }

 }

 void dump_window_update( dump_window_t data )

 {

     if( data->data == NULL )

         return;

     unsigned char tmp[data->end-data->start];

     int length = data->end-data->start;

     memcpy( tmp, data->data, length );

     mem_copy_from_sh4( data->data, data->start, length );

     dump_window_set_text( data, tmp, data->data );

 }

 void dump_window_update_all( )

 {

     dump_window_t node = dump_list_head;

     while( node != NULL ) {

         dump_window_update(node);

         node = node->next;

     }

 }

 void dump_window_set_text( dump_window_t data, unsigned char *old_data, unsigned char *new_data )

 {

     GtkTextBuffer *buf = data->textBuffer;

     GtkTextTag *changedTag = data->changedTag;

     GtkTextIter iter, endIter;

     int i, j, offset;

     /* Clear out the buffer */

     gtk_text_buffer_get_start_iter(buf,&iter);

     gtk_text_buffer_get_end_iter(buf,&endIter);

     gtk_text_buffer_delete(buf,&iter,&endIter);

     gtk_text_buffer_get_start_iter(buf,&iter);

     for( offset = 0, i=data->start; i<data->end; i+=16, offset+=16 ) {

         char text[80];

         sprintf(text, "%08X:", i );

         gtk_text_buffer_insert( buf, &iter, text, 9 );

         for( j=0; j<16; j++ ) {

             if( j%4 == 0 )

                 gtk_text_buffer_insert( buf, &iter, " ", 1 );

             if( i+j < data->end ) {

                 int oldVal = ((int)old_data[offset+j])&0xFF;

                 int newVal = ((int)new_data[offset+j])&0xFF;

                 sprintf(text, "%02X ", newVal);

                 if( oldVal == newVal )

                     gtk_text_buffer_insert( buf, &iter, text, 3 );

                 else

                     gtk_text_buffer_insert_with_tags( buf, &iter, text, 3,

                             changedTag, NULL );

             } else {

                 gtk_text_buffer_insert( buf, &iter, "   ", 3 );

             }

         }

         gtk_text_buffer_insert( buf, &iter, "  ", 2 );

         for( j=0; j<16 && i+j < data->end; j++ ) {

             int oldVal = ((int)old_data[offset+j])&0xFF;

             int newVal = ((int)new_data[offset+j])&0xFF;

             if( isprint(newVal) )

                 sprintf( text, "%c", newVal );

             else strcpy( text, "." );

             if( oldVal == newVal )

                 gtk_text_buffer_insert( buf, &iter, text, 1 );

             else

                 gtk_text_buffer_insert_with_tags( buf, &iter, text, 1,

                         changedTag, NULL );

         }

         gtk_text_buffer_insert( buf, &iter, "\n", 1 );

     }

 }