#include <stdlib.h>

#include <stdarg.h>

#include <gnome.h>

#include <math.h>

#include "gui.h"

#include "mem.h"

#include "sh4dasm.h"

#include "sh4core.h"

GdkColor *msg_colors[] = { &clrError, &clrError, &clrWarn, &clrNormal,

                           &clrDebug, &clrTrace };

#define REG_INT 0

#define REG_FLT 1

#define REG_SPECIAL 2

struct reg_map_struct {

    char *name;

    int type;

    void *value;

};

struct reg_map_struct sh4_reg_map[] = 

	          { {"R0", REG_INT, &sh4r.r[0]}, {"R1", REG_INT, &sh4r.r[1]},

                {"R2", REG_INT, &sh4r.r[2]}, {"R3", REG_INT, &sh4r.r[3]},

                {"R4", REG_INT, &sh4r.r[4]}, {"R5", REG_INT, &sh4r.r[5]},

                {"R6", REG_INT, &sh4r.r[6]}, {"R7", REG_INT, &sh4r.r[7]},

                {"R8", REG_INT, &sh4r.r[8]}, {"R9", REG_INT, &sh4r.r[9]},

                {"R10",REG_INT, &sh4r.r[10]}, {"R11",REG_INT, &sh4r.r[11]},

                {"R12",REG_INT, &sh4r.r[12]}, {"R13",REG_INT, &sh4r.r[13]},

                {"R14",REG_INT, &sh4r.r[14]}, {"R15",REG_INT, &sh4r.r[15]},

                {"SR", REG_INT, &sh4r.sr}, {"GBR", REG_INT, &sh4r.gbr},

                {"SSR",REG_INT, &sh4r.ssr}, {"SPC", REG_INT, &sh4r.spc},

                {"SGR",REG_INT, &sh4r.sgr}, {"DBR", REG_INT, &sh4r.dbr},

                {"VBR",REG_INT, &sh4r.vbr},

                {"PC", REG_INT, &sh4r.pc}, {"PR", REG_INT, &sh4r.pr},

                {"MACL",REG_INT, &sh4r.mac},{"MACH",REG_INT, ((uint32_t *)&sh4r.mac)+1},

                {"FPUL", REG_INT, &sh4r.fpul}, {"FPSCR", REG_INT, &sh4r.fpscr},

                {NULL, 0, NULL} };

GtkCList *msgs, *regs, *disasm;

GtkEntry *page_field;

GtkProgressBar *icounter;

char icounter_text[16];

struct sh4_registers sh4r_s;

int disasm_from = -1, disasm_to = -1;

int disasm_pc = -1;

void init_debug_win(GtkWidget *win)

{

    int i;

    char buf[20];

    char *arr[2];

    GnomeAppBar *appbar;

    regs = gtk_object_get_data(GTK_OBJECT(win), "reg_list");

    arr[1] = buf;

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

        arr[0] = sh4_reg_map[i].name;

        if( sh4_reg_map[i].type == REG_INT )

            sprintf( buf, "%08X", *((uint32_t *)sh4_reg_map[i].value) );

        else

            sprintf( buf, "%f", *((float *)sh4_reg_map[i].value) );

        gtk_clist_append( regs, arr );

    }

    gtk_widget_modify_font( GTK_WIDGET(regs), fixed_list_font );

    msgs = gtk_object_get_data(GTK_OBJECT(win), "output_list");

    disasm = gtk_object_get_data(GTK_OBJECT(win), "disasm_list");

    gtk_clist_set_column_width( disasm, 1, 16 );

    page_field = gtk_object_get_data(GTK_OBJECT(win), "page_field");

    appbar = gtk_object_get_data(GTK_OBJECT(win), "debug_appbar");

    icounter = gnome_appbar_get_progress( appbar );

    gtk_progress_bar_set_text(icounter, "1");

}

/*

 * Check for changed registers and update the display

 */

void update_registers( void )

{

    int i;

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

        if( sh4_reg_map[i].type == REG_INT ) {

            /* Yes this _is_ probably fairly evil */

            if( *((uint32_t *)sh4_reg_map[i].value) !=

                *((uint32_t *)((char *)&sh4r_s + ((char *)sh4_reg_map[i].value - (char *)&sh4r))) ) {

                char buf[20];

                sprintf( buf, "%08X", *((uint32_t *)sh4_reg_map[i].value) );

                gtk_clist_set_text( regs, i, 1, buf );

                gtk_clist_set_foreground( regs, i, &clrChanged );

            } else {

                gtk_clist_set_foreground( regs, i, &clrNormal );

            }

        } else {

            if( *((float *)sh4_reg_map[i].value) !=

                *((float *)((char *)&sh4r_s + ((char *)sh4_reg_map[i].value - (char *)&sh4r))) ) {

                char buf[20];

                sprintf( buf, "%f", *((float *)sh4_reg_map[i].value) );

                gtk_clist_set_text( regs, i, 1, buf );

                gtk_clist_set_foreground( regs, i, &clrChanged );

            } else {

                gtk_clist_set_foreground( regs, i, &clrNormal );

            }

        }

    }

    if( sh4r.pc != sh4r_s.pc )

        set_disassembly_pc( sh4r.pc, FALSE );

    memcpy( &sh4r_s, &sh4r, sizeof(sh4r) );

}

void update_icount( void )

{

    sprintf( icounter_text, "%d", sh4r.icount );

    gtk_progress_bar_set_text( icounter, icounter_text );

}

void set_disassembly_region( unsigned int page )

{

    uint32_t i, posn;

    uint16_t op;

    char buf[80];

    char addr[10];

    char opcode[6] = "";

    char *arr[4] = { addr, " ", opcode, buf };

    unsigned int from = page & 0xFFFFF000;

    unsigned int to = from + 4096;

    gtk_clist_clear(disasm);

    sprintf( addr, "%08X", from );

    gtk_entry_set_text( page_field, addr );

    if( !mem_has_page( from ) ) {

        arr[3] = "This page is currently unmapped";

        gtk_clist_append( disasm, arr );

        gtk_clist_set_foreground( disasm, 0, &clrError );

    } else {

        for( i=from; i<to; i+=2 ) {

            sh4_disasm_instruction( i, buf, sizeof(buf) );

            sprintf( addr, "%08X", i );

            op = mem_read_phys_word(i);

            sprintf( opcode, "%02X %02X", op&0xFF, op>>8 );

            posn = gtk_clist_append( disasm, arr );

            if( buf[0] == '?' )

                gtk_clist_set_foreground( disasm, posn, &clrWarn );

        }

        if( disasm_pc != -1 && disasm_pc >= from && disasm_pc < to )

            gtk_clist_set_foreground( disasm, (disasm_pc - from)>>1,

                                      &clrPC );

    }

    if( page != from ) { /* not a page boundary */

        gtk_clist_moveto( disasm, (page-from)>>1, 0, 0.5, 0.0 );

    }

    disasm_from = from;

    disasm_to = to;

}

void jump_to_disassembly( unsigned int addr, gboolean select )

{

    int row;

    if( addr < disasm_from || addr >= disasm_to )

        set_disassembly_region(addr);

    row = (addr-disasm_from)>>1;

    if(select) {

        gtk_clist_select_row( disasm, row, 0 );

    }

    if( gtk_clist_row_is_visible( disasm, row ) != GTK_VISIBILITY_FULL ){

        gtk_clist_moveto( disasm, row, 0, 0.5, 0.0 );

    }

}

void set_disassembly_pc( unsigned int pc, gboolean select )

{

    int row;

    jump_to_disassembly( pc, select );

    if( disasm_pc != -1 && disasm_pc >= disasm_from && disasm_pc < disasm_to )

        gtk_clist_set_foreground( disasm, (disasm_pc - disasm_from)>>1,

                                  &clrNormal );

    row = (pc - disasm_from)>>1;

    gtk_clist_set_foreground( disasm, row, &clrPC );

    disasm_pc = pc;

}

void emit( int level, int source, char *msg, ... )

{

    char buf[20], addr[10] = "", *p;

    char *arr[3] = {buf, addr};

    int posn;

    time_t tm = time(NULL);

    va_list ap;

    va_start(ap, msg);

    p = g_strdup_vprintf( msg, ap );

    strftime( buf, sizeof(buf), "%H:%M:%S", localtime(&tm) );

    if( source != -1 )

        sprintf( addr, "%08X", sh4r.pc );

    arr[2] = p;

    posn = gtk_clist_append(msgs, arr);

    free(p);

    va_end(ap);

    gtk_clist_set_foreground( msgs, posn, msg_colors[level] );

    gtk_clist_moveto( msgs, posn, 0, 1.0, 0.0 );

    /* emit _really_ slows down the emu, to the point where the gui can be

     * completely unresponsive if I don't include this:

     */

    while( gtk_events_pending() )

        gtk_main_iteration();

}