/* -*-mode: C; fill-column: 78; c-basic-offset: 4; -*- */
/* 
 * Copyright 1997 - 2006 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.
 */


#include "nwgamest.h"
#include "strutils.h"

#ifdef CPLUS
extern "C" {
#endif

struct NewGameCtx {
    NewGameEnableColProc enableColProc;
    NewGameEnableAttrProc enableAttrProc;
    NewGameSetColProc setColProc;
    NewGameGetColProc getColProc;
    NewGameSetAttrProc setAttrProc;
    void* closure;

    /* Palm needs to store cleartext passwords separately in order to
       store '***' in the visible field */
    XP_Bool enabled[NG_NUM_COLS][MAX_NUM_PLAYERS];
    XP_U16 nPlayers;
#ifndef XWFEATURE_STANDALONE_ONLY
    Connectedness role;
#endif
    XP_Bool isNewGame;

    MPSLOT
};

static void enableOne( NewGameCtx* ngc, XP_U16 player, NewGameColumn col,
                       XP_Bool enable, XP_Bool force );
static void adjustAllRows( NewGameCtx* ngc, XP_Bool force );
static void adjustOneRow( NewGameCtx* ngc, XP_U16 player, XP_Bool force );

NewGameCtx*
newg_make( MPFORMAL XP_Bool isNewGame, 
           NewGameEnableColProc enableColProc, 
           NewGameEnableAttrProc enableAttrProc, 
           NewGameGetColProc getColProc, NewGameSetColProc setColProc,
           NewGameSetAttrProc setAttrProc, void* closure )
{
    NewGameCtx* result = XP_MALLOC( mpool, sizeof(*result) );
    XP_MEMSET( result, 0, sizeof(*result) );

    result->enableColProc = enableColProc;
    result->enableAttrProc = enableAttrProc;
    result->setColProc = setColProc;
    result->getColProc = getColProc;
    result->setAttrProc = setAttrProc;
/*     result->getAttrProc = getAttrProc; */
    result->closure = closure;
    result->isNewGame = isNewGame;
    MPASSIGN(result->mpool, mpool);

    return result;
} /* newg_make */

void
newg_destroy( NewGameCtx* ngc )
{
#ifdef PLATFORM_PALM
    for ( i = 0; i < MAX_NUM_PLAYERS; ++i ) {
        XP_UCHAR* passwd = ngc->passwds[i];
        if ( !!passwd ) {
            XP_FREE( ngc->mpool, passwd );
        }
    }
#endif
} /* newg_destroy */

void
newg_load( NewGameCtx* ngc, const CurGameInfo* gi )
{
    void* closure = ngc->closure;
    NGValue cValue;
    NGValue aValue;
    XP_U16 i;

    ngc->nPlayers = gi->nPlayers;
    aValue.ng_u16 = ngc->nPlayers;
    (*ngc->setAttrProc)( closure, NG_ATTR_NPLAYERS, aValue );
    (*ngc->enableAttrProc)( closure, NG_ATTR_NPLAYERS, ngc->isNewGame );

    ngc->role = gi->serverRole;
    aValue.ng_role = ngc->role;
    (*ngc->setAttrProc)( closure, NG_ATTR_ROLE, aValue );
    (*ngc->enableAttrProc)( closure, NG_ATTR_ROLE, ngc->isNewGame );

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

#ifndef XWFEATURE_STANDALONE_ONLY        
        cValue.ng_bool = gi->players[i].isLocal;
        (*ngc->setColProc)(closure, i, NG_COL_LOCAL, cValue );
#endif

        cValue.ng_cp = gi->players[i].name;
        (*ngc->setColProc)(closure, i, NG_COL_NAME, cValue );

        cValue.ng_cp = gi->players[i].password;
        (*ngc->setColProc)(closure, i, NG_COL_PASSWD, cValue );

        cValue.ng_bool = gi->players[i].isRobot;
        (*ngc->setColProc)(closure, i, NG_COL_ROBOT, cValue );
    }
    
    adjustAllRows( ngc, XP_TRUE );
} /* newg_load */

typedef struct NGCopyClosure {
    XP_U16 player;
    NewGameColumn col;
    NewGameCtx* ngc;
    CurGameInfo* gi;
} NGCopyClosure;

static void
cpToGI( NGValue value, const void* cbClosure )
{
    NGCopyClosure* cpcl = (NGCopyClosure*)cbClosure;
    LocalPlayer* pl = &cpcl->gi->players[cpcl->player];
    XP_UCHAR** strAddr = NULL;
    
    switch ( cpcl->col ) {
#ifndef XWFEATURE_STANDALONE_ONLY
    case NG_COL_LOCAL:
        pl->isLocal = value.ng_bool;
        break;
#endif
    case NG_COL_NAME:
        strAddr = &pl->name;
        break;
    case NG_COL_PASSWD:
        strAddr = &pl->password;
        break;
    case NG_COL_ROBOT:
        pl->isRobot = value.ng_bool;
        break;
    default:
        XP_ASSERT(0);
    }

    if ( !!strAddr ) {
        replaceStringIfDifferent( MPPARM(cpcl->ngc->mpool) strAddr,
                                  value.ng_cp );
    }
} /* cpToGI */

void
newg_store( NewGameCtx* ngc, CurGameInfo* gi )
{
    XP_U16 nPlayers;
    void* closure = ngc->closure;
    NGCopyClosure cpcl;

    cpcl.ngc = ngc;
    cpcl.gi = gi;

    gi->nPlayers = nPlayers = ngc->nPlayers;
    gi->serverRole = ngc->role;

    for ( cpcl.player = 0; cpcl.player < nPlayers; ++cpcl.player ) {
        for ( cpcl.col = 0; cpcl.col < NG_NUM_COLS; ++cpcl.col ) {
            (*ngc->getColProc)( closure, cpcl.player, cpcl.col, 
                                cpToGI, &cpcl );
        }
    }
} /* newg_store */

void
newg_colChanged( NewGameCtx* ngc, XP_U16 player, NewGameColumn col, 
                 NGValue value )
{
    XP_ASSERT( player < ngc->nPlayers );
    adjustOneRow( ngc, player, XP_FALSE );
}

void
newg_attrChanged( NewGameCtx* ngc, NewGameAttr attr, NGValue value )
{
    XP_LOGF( "%s(%d)", __FUNCTION__ );
    if ( attr == NG_ATTR_NPLAYERS ) {
        ngc->nPlayers = value.ng_u16;
    } else if ( NG_ATTR_ROLE == attr ) { 
        ngc->role = value.ng_role;
    } else {
        XP_ASSERT( 0 );
    }
    adjustAllRows( ngc, XP_FALSE );
}

/* This belongs as a util the tray juggling code can also call */
static void
randIntArray( XP_U16* rnums, XP_U16 count )
{
    XP_U16 array[count];        /* C99 thing */
    XP_U16 i;

    for ( i = 0; i < count; ++i ) {
        rnums[i] = array[i] = i;           /* initial state for comparison */
    }

    do {
        for ( i = 1; i < count; ++i ) {
            XP_U16 rIndex = ((XP_U16)XP_RANDOM()) % i;
            XP_U16 tmp = rnums[rIndex];
            rnums[rIndex] = rnums[i];
            rnums[i] = tmp;
        }
    } while ( XP_MEMCMP( rnums, array, count * sizeof(array[0]) ) == 0 );
} /* randIntArray */

typedef struct DeepValue {
    NGValue value;
    NewGameColumn col;
    MPSLOT
} DeepValue;

static void
deepCopy( NGValue value, const void* closure )
{
    DeepValue* dvp = (DeepValue*)closure;
    switch ( dvp->col ) {
    case NG_COL_ROBOT:
    case NG_COL_LOCAL:
        dvp->value.ng_bool = value.ng_bool;
        break;
    case NG_COL_NAME:
    case NG_COL_PASSWD:
        dvp->value.ng_cp = copyString( MPPARM(dvp->mpool) value.ng_cp );
        break;
    default:
        XP_ASSERT(0);
    }
}

static void
deepFree( DeepValue* dvp )
{
    if ( dvp->col == NG_COL_NAME || dvp->col == NG_COL_PASSWD ) {
        XP_FREE( dvp->mpool, (void*)dvp->value.ng_cp );
    }
}

static void
copyFromTo( NewGameCtx* ngc, XP_U16 srcPlayer, XP_U16 destPlayer )
{
    DeepValue dValue;
    void* closure = ngc->closure;
    MPASSIGN(dValue.mpool, ngc->mpool);

    for ( dValue.col = 0; dValue.col < NG_NUM_COLS; ++dValue.col ) {
        (*ngc->getColProc)( closure, srcPlayer, dValue.col, deepCopy, &dValue );
        (*ngc->setColProc)( closure, destPlayer, dValue.col, dValue.value );
        deepFree( &dValue );
    }
} /* copyFromTo */

void
newg_juggle( NewGameCtx* ngc )
{
    XP_U16 nPlayers = ngc->nPlayers;
/*     NewGameColumn strCols[] = { NG_COL_NAME, NG_COL_PASSWD }; */

    LOG_FUNC();
    
    if ( nPlayers > 1 ) {
        XP_U16 pos[MAX_NUM_PLAYERS];
        void* closure = ngc->closure;
        DeepValue tmpValues[NG_NUM_COLS];
        XP_U16 cur;
        NewGameColumn col;

    /* Get a randomly juggled array of numbers 0..nPlayers-1.  Then the number
       at pos[n] inicates where the entry currently at n should be.  The first
       must be copied into tmp, after which each can be moved in sequence
       before tmp is copied into the last empty slot. */
        randIntArray( pos, nPlayers );

        XP_LOGF( "%s: saving off player %d as tmp", __FUNCTION__, pos[0] );
        for ( col = 0; col < NG_NUM_COLS; ++col ) {
            tmpValues[col].col = col;
            MPASSIGN( tmpValues[col].mpool, ngc->mpool );
            (*ngc->getColProc)(closure, pos[0], col, deepCopy, &tmpValues[col] );
        }

        /* Strings must be copied */
/*         for ( col = 0; col < sizeof(strCols)/sizeof(strCols[0]); ++col ) { */
/*             NewGameColumn strCol = strCols[col]; */
/*             tmpValues[strCol].ng_cp = copyString( MPPARM(ngc->mpool) */
/*                                                   tmpValues[strCol].ng_cp ); */
/*         } */

        cur = 0;
        while ( ++cur < nPlayers ) {
            XP_LOGF( "%s: copying player %d to player %d", __FUNCTION__, 
                     pos[cur], pos[cur-1] );
            copyFromTo( ngc, pos[cur], pos[cur-1] );
        }

        --cur;
        XP_LOGF( "%s:  writing tmp back to player %d", __FUNCTION__, 
                 pos[cur] );
        for ( col = 0; col < NG_NUM_COLS; ++col ) {
            (*ngc->setColProc)(closure, pos[cur], col, tmpValues[col].value );
            deepFree( &tmpValues[col] );
        }
        /* copied strings must be freed  */
/*         for ( col = 0; col < sizeof(strCols)/sizeof(strCols[0]); ++col ) { */
/*             NewGameColumn strCol = strCols[col]; */
/*             XP_FREE( ngc->mpool, (void*)tmpValues[strCol].ng_cp ); */
/*         } */
    }
} /* newg_juggle */

static void
enableOne( NewGameCtx* ngc, XP_U16 player, NewGameColumn col, 
           XP_Bool enable, XP_Bool force )
{
    XP_Bool* esp = &ngc->enabled[col][player];
    if ( force || (*esp != enable) ) {
        (*ngc->enableColProc)( ngc->closure, player, col, enable );
    }
    *esp = enable;
} /* enableOne */

static void
adjustAllRows( NewGameCtx* ngc, XP_Bool force )
{
    XP_U16 player;
    for ( player = 0; player < MAX_NUM_PLAYERS; ++player ) {
        adjustOneRow( ngc, player, force );
    }
} /* adjustAllRows */

static void
adjustOneRow( NewGameCtx* ngc, XP_U16 player, XP_Bool force )
{
    XP_Bool enable[NG_NUM_COLS];
    NewGameColumn col;
    XP_MEMSET( enable, 0, sizeof(enable) );
    XP_Bool isLocal = XP_TRUE;
    DeepValue dValue;
/*     NGValue value; */

    /* If there aren't this many players, all are disabled */
    if ( player >= ngc->nPlayers ) {
        /* do nothing: all are false */

    } else {

#ifndef XWFEATURE_STANDALONE_ONLY
        /* If standalone or client, local is disabled */
        if ( ngc->role == SERVER_ISSERVER ) {
            enable[NG_COL_LOCAL] = XP_TRUE;
            dValue.col = NG_COL_LOCAL;
            (*ngc->getColProc)( ngc->closure, player, NG_COL_LOCAL, deepCopy, &dValue );
            isLocal = dValue.value.ng_bool;
        }
#endif

        /* If local is enabled and not set, all else is disabled */
        if ( isLocal ) {
            enable[NG_COL_NAME] = XP_TRUE;
            enable[NG_COL_ROBOT] = XP_TRUE;
            dValue.col = NG_COL_ROBOT;
            (*ngc->getColProc)( ngc->closure, player, NG_COL_ROBOT, deepCopy,
                                &dValue );
            if ( !dValue.value.ng_bool ) {
                enable[NG_COL_PASSWD] = XP_TRUE;
            }
        }
    } 

    for ( col = 0; col < NG_NUM_COLS; ++col ) {
        enableOne( ngc, player, col, enable[col], force );
    }
} /* adjustOneRow */

#ifdef CPLUS
}
#endif