/* -*- compile-command: "make MEMDEBUG=TRUE -j3"; -*- */
/* 
 * Copyright 2000-2013 by Eric House (xwords@eehouse.org).  All rights
 * reserved.
 *
 * 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., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
 */

#ifdef PLATFORM_GTK

#include "main.h"
#include "gtkmain.h"
#include "gamesdb.h"
#include "gtkboard.h"
#include "linuxmain.h"
#include "relaycon.h"

static void onNewData( GtkAppGlobals* apg, sqlite3_int64 rowid, 
                       XP_Bool isNew );

static void
recordOpened( GtkAppGlobals* apg, GtkGameGlobals* globals )
{
    apg->globalsList = g_slist_prepend( apg->globalsList, globals );
    globals->apg = apg;
}

static void
recordClosed( GtkAppGlobals* apg, GtkGameGlobals* globals )
{
    apg->globalsList = g_slist_remove( apg->globalsList, globals );
}

static XP_Bool
gameIsOpen( GtkAppGlobals* apg, sqlite3_int64 rowid )
{
    XP_Bool found = XP_FALSE;
    GSList* iter;
    for ( iter = apg->globalsList; !!iter && !found; iter = iter->next ) {
        GtkGameGlobals* globals = (GtkGameGlobals*)iter->data;
        found = globals->cGlobals.selRow == rowid;
    }
    return found;
}

static GtkGameGlobals*
findGame( const GtkAppGlobals* apg, XP_U32 clientToken )
{
    GtkGameGlobals* result = NULL;
    GSList* iter;
    for ( iter = apg->globalsList; !!iter; iter = iter->next ) {
        GtkGameGlobals* globals = (GtkGameGlobals*)iter->data;
        CommonGlobals* cGlobals = &globals->cGlobals;
        if ( cGlobals->selRow == clientToken ) {
            result = globals;
            break;
        }
    }
    return result;
}

enum { CHECK_ITEM, ROW_ITEM, NAME_ITEM, ROOM_ITEM, OVER_ITEM, TURN_ITEM, NMOVES_ITEM, MISSING_ITEM,
       N_ITEMS };

static void
tree_selection_changed_cb( GtkTreeSelection* selection, gpointer data )
{
    GtkAppGlobals* apg = (GtkAppGlobals*)data;

    GtkTreeIter iter;
    GtkTreeModel *model;

    if ( gtk_tree_selection_get_selected( selection, &model, &iter ) ) {
        gtk_tree_model_get( model, &iter, ROW_ITEM, &apg->selRow, -1 );
    }
}

static void
addTextColumn( GtkWidget* list, const gchar* title, int item )
{
    GtkCellRenderer* renderer = gtk_cell_renderer_text_new();
    GtkTreeViewColumn* column =
        gtk_tree_view_column_new_with_attributes( title, renderer, "text", 
                                                  item, NULL );
    gtk_tree_view_append_column( GTK_TREE_VIEW(list), column );
}

static GtkWidget*
init_games_list( GtkAppGlobals* apg )
{
    GtkWidget* list = gtk_tree_view_new();
    GtkCellRenderer* renderer;
    GtkTreeViewColumn* column;

    renderer = gtk_cell_renderer_toggle_new();
    column = 
        gtk_tree_view_column_new_with_attributes( "<sel>", renderer, "active", 
                                                  CHECK_ITEM, NULL );
    gtk_tree_view_append_column( GTK_TREE_VIEW(list), column );

    addTextColumn( list, "Row", ROW_ITEM );
    addTextColumn( list, "Name", NAME_ITEM );
    addTextColumn( list, "Room", ROOM_ITEM );
    addTextColumn( list, "Ended", OVER_ITEM );
    addTextColumn( list, "Turn", TURN_ITEM );
    addTextColumn( list, "NMoves", NMOVES_ITEM );
    addTextColumn( list, "NMissing", MISSING_ITEM );

    GtkListStore* store = gtk_list_store_new( N_ITEMS, G_TYPE_BOOLEAN, 
                                              G_TYPE_INT64, G_TYPE_STRING, 
                                              G_TYPE_STRING, G_TYPE_BOOLEAN, 
                                              G_TYPE_INT, G_TYPE_INT, 
                                              G_TYPE_INT );
    gtk_tree_view_set_model( GTK_TREE_VIEW(list), GTK_TREE_MODEL(store) );
    g_object_unref( store );

    GtkTreeSelection* select =
        gtk_tree_view_get_selection( GTK_TREE_VIEW (list) );
    gtk_tree_selection_set_mode( select, GTK_SELECTION_SINGLE );
    g_signal_connect( G_OBJECT(select), "changed",
                      G_CALLBACK (tree_selection_changed_cb), apg );
    return list;
}

static void
add_to_list( GtkWidget* list, sqlite3_int64 rowid, XP_Bool isNew, 
             const GameInfo* gib )
{
    GtkTreeModel *model = gtk_tree_view_get_model(GTK_TREE_VIEW(list));
    GtkListStore* store = GTK_LIST_STORE( model );
    GtkTreeIter iter;
    if ( isNew ) {
        gtk_list_store_append( store, &iter );
    } else {
        gboolean valid;
        for ( valid = gtk_tree_model_get_iter_first( model, &iter );
              valid;
              valid = gtk_tree_model_iter_next( model, &iter ) ) {
            sqlite3_int64 tmpid;
            gtk_tree_model_get( model, &iter, ROW_ITEM, &tmpid, -1 );
            if ( tmpid == rowid ) {
                break;
            }
        }
    }
    gtk_list_store_set( store, &iter, 
                        ROW_ITEM, rowid,
                        NAME_ITEM, gib->name,
                        ROOM_ITEM, gib->room,
                        OVER_ITEM, gib->gameOver,
                        TURN_ITEM, gib->turn,
                        NMOVES_ITEM, gib->nMoves,
                        MISSING_ITEM, gib->nMissing,
                        -1 );
    XP_LOGF( "DONE adding" );
}

static void
handle_newgame_button( GtkWidget* XP_UNUSED(widget), void* closure )
{
    GtkAppGlobals* apg = (GtkAppGlobals*)closure;
    XP_LOGF( "%s called", __func__ );
    GtkGameGlobals* globals = malloc( sizeof(*globals) );
    apg->params->needsNewGame = XP_FALSE;
    initGlobals( globals, apg->params );
    if ( !makeNewGame( globals ) ) {
        freeGlobals( globals );
    } else {
        GtkWidget* gameWindow = globals->window;
        globals->cGlobals.pDb = apg->pDb;
        globals->cGlobals.selRow = -1;
        recordOpened( apg, globals );
        gtk_widget_show( gameWindow );
    }
}

static void
handle_open_button( GtkWidget* XP_UNUSED(widget), void* closure )
{
    GtkAppGlobals* apg = (GtkAppGlobals*)closure;
    if ( -1 != apg->selRow && !gameIsOpen( apg, apg->selRow ) ) {
        apg->params->needsNewGame = XP_FALSE;
        GtkGameGlobals* globals = malloc( sizeof(*globals) );
        initGlobals( globals, apg->params );
        globals->cGlobals.pDb = apg->pDb;
        globals->cGlobals.selRow = apg->selRow;
        recordOpened( apg, globals );
        gtk_widget_show( globals->window );
    }
}

static void
handle_quit_button( GtkWidget* XP_UNUSED(widget), gpointer XP_UNUSED(data) )
{
    // GtkAppGlobals* apg = (GtkAppGlobals*)data;
    gtk_main_quit();
}

static void
handle_destroy( GtkWidget* XP_UNUSED(widget), gpointer data )
{
    LOG_FUNC();
    GtkAppGlobals* apg = (GtkAppGlobals*)data;
    GSList* iter;
    for ( iter = apg->globalsList; !!iter; iter = iter->next ) {
        GtkGameGlobals* globals = (GtkGameGlobals*)iter->data;
        freeGlobals( globals );
    }
    g_slist_free( apg->globalsList );
    gtk_main_quit();
}

static void
addButton( gchar* label, GtkWidget* parent, GCallback proc, void* closure )
{
    GtkWidget* button = gtk_button_new_with_label( label );
    gtk_container_add( GTK_CONTAINER(parent), button );
    g_signal_connect( GTK_OBJECT(button), "clicked",
                      G_CALLBACK(proc), closure );
    gtk_widget_show( button );
}

static GtkWidget* 
makeGamesWindow( GtkAppGlobals* apg )
{
    GtkWidget* window;

    window = gtk_window_new( GTK_WINDOW_TOPLEVEL );
    g_signal_connect( G_OBJECT(window), "destroy",
                      G_CALLBACK(handle_destroy), apg );
    
    GtkWidget* vbox = gtk_vbox_new( FALSE, 0 );
    gtk_container_add( GTK_CONTAINER(window), vbox );
    gtk_widget_show( vbox );
    GtkWidget* list = init_games_list( apg );
    apg->listWidget = list;
    gtk_container_add( GTK_CONTAINER(vbox), list );
    
    gtk_widget_show( list );

    GSList* games = listGames( apg );
    for ( GSList* iter = games; !!iter; iter = iter->next ) {
        sqlite3_int64* rowid = (sqlite3_int64*)iter->data;
        onNewData( apg, *rowid, XP_TRUE );
    }
    g_slist_free( games );

    GtkWidget* hbox = gtk_hbox_new( FALSE, 0 );
    gtk_widget_show( hbox );
    gtk_container_add( GTK_CONTAINER(vbox), hbox );

    addButton( "New game", hbox, G_CALLBACK(handle_newgame_button), apg );
    addButton( "Open", hbox, G_CALLBACK(handle_open_button), apg );
    addButton( "Quit", hbox, G_CALLBACK(handle_quit_button), apg );

    gtk_widget_show( window );
    return window;
}

static gint
freeGameGlobals( gpointer data )
{
    LOG_FUNC();
    GtkGameGlobals* globals = (GtkGameGlobals*)data;
    GtkAppGlobals* apg = globals->apg;
    recordClosed( apg, globals );
    freeGlobals( globals );
    return 0;                   /* don't run again */
}

void
windowDestroyed( GtkGameGlobals* globals )
{
    /* schedule to run after we're back to main loop */
    (void)g_idle_add( freeGameGlobals, globals );
}

static void
onNewData( GtkAppGlobals* apg, sqlite3_int64 rowid, XP_Bool isNew )
{
    GameInfo gib;
    if ( getGameInfo( apg, rowid, &gib ) ) {
        add_to_list( apg->listWidget, rowid, isNew, &gib );
    }
}

static gboolean
app_socket_proc( GIOChannel* source, GIOCondition condition, gpointer data )
{
    if ( 0 != (G_IO_IN & condition) ) {
        GtkAppGlobals* apg = (GtkAppGlobals*)data;
        int socket = g_io_channel_unix_get_fd( source );
        GList* iter;
        for ( iter = apg->sources; !!iter; iter = iter->next ) {
            SourceData* sd = (SourceData*)iter->data;
            if ( sd->channel == source ) {
                (*sd->proc)( sd->procClosure, socket );
                break;
            }
        }
        XP_ASSERT( !!iter );    /* didn't fail to find it */
    }
    return TRUE;
}

static void
socketChanged( void* closure, int newSock, int XP_UNUSED(oldSock), SockReceiver proc,
               void* procClosure )
{
    GtkAppGlobals* apg = (GtkAppGlobals*)closure;
    SourceData* sd = g_malloc( sizeof(*sd) );
    sd->channel = g_io_channel_unix_new( newSock );
    sd->watch = g_io_add_watch( sd->channel, G_IO_IN | G_IO_ERR, app_socket_proc, apg );
    sd->proc = proc;
    sd->procClosure = procClosure;
    apg->sources = g_list_append( apg->sources, sd );
}

static void
gtkGotBuf( void* closure, XP_U8* buf, XP_U16 len )
{
    LOG_FUNC();
    GtkAppGlobals* apg = (GtkAppGlobals*)closure;
    XP_U32 gameToken;
    XP_ASSERT( sizeof(gameToken) < len );
    gameToken = ntohl(*(XP_U32*)&buf[0]);
    buf += sizeof(gameToken);
    len -= sizeof(gameToken);

    GtkGameGlobals* globals = findGame( apg, gameToken );
    if ( !!globals ) {
        gameGotBuf( globals, buf, len );
    } else {
        XP_LOGF( "%s: game with token %lu not found; not open or deleted", 
                 __func__, gameToken );
    }
}

static void
gtkDevIDChanged( void* closure, const XP_UCHAR* devID )
{
    GtkAppGlobals* apg = (GtkAppGlobals*)closure;
    XP_LOGF( "%s(devID=%s)", __func__, devID );
    store( apg->pDb, KEY_RDEVID, devID );
}

void
onGameSaved( void* closure, sqlite3_int64 rowid, 
             XP_Bool firstTime )
{
    GtkGameGlobals* globals = (GtkGameGlobals*)closure;
    GtkAppGlobals* apg = globals->apg;
    onNewData( apg, rowid, firstTime );
}

int
gtkmain( LaunchParams* params )
{
    GtkAppGlobals apg = {0};
    apg.selRow = -1;
    apg.params = params;
    apg.pDb = openGamesDB( params->dbName );
    params->socketChanged = socketChanged;
    params->socketChangedClosure = &apg;

    RelayConnProcs procs = {
        .msgReceived = gtkGotBuf,
        .devIDChanged = gtkDevIDChanged,
    };

    XP_UCHAR devIDBuf[64] = {0};
    XP_UCHAR* devID;
    DevIDType typ = ID_TYPE_RELAY;
    if ( !!params->rDevID ) {
        devID = params->rDevID;
    } else {
        fetch( apg.pDb, KEY_RDEVID, devIDBuf, sizeof(devIDBuf) );
        if ( '\0' != devIDBuf[0] ) {
            devID = devIDBuf;
        } else {
            devID = params->devID;
            typ = ID_TYPE_LINUX;
        }
    }

    relaycon_init( params, &procs, &apg, 
                   params->connInfo.relay.relayName,
                   params->connInfo.relay.defaultSendPort,
                   devID, typ );

    (void)makeGamesWindow( &apg );
    gtk_main();

    closeGamesDB( apg.pDb );
    relaycon_cleanup( params );

    return 0;
} /* gtkmain */

#endif /* PLATFORM_GTK */