/* -*-mode: C; fill-column: 78; c-basic-offset: 4; -*- */ 
/* 
 * Copyright 1997-2000 by Eric House (fixin@peak.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_NCURSES

#include <stdlib.h>
#include <assert.h>


#include "cursesmain.h"
#include "draw.h"
#include "board.h"

static void
drawRect( WINDOW* win, XP_Rect* rect, char vert, char hor )
{
    wmove( win, rect->top-1, rect->left );
    whline( win, hor, rect->width );
    wmove( win, rect->top+rect->height, rect->left );
    whline( win, hor, rect->width );

    wmove( win, rect->top, rect->left-1 );
    wvline( win, vert, rect->height );
    wmove( win, rect->top, rect->left+rect->width );
    wvline( win, vert, rect->height );
} /* drawRect */

static void
eraseRect( CursesDrawCtx* dctx, XP_Rect* rect )
{
    int y, bottom = rect->top + rect->height;
    for ( y = rect->top; y < bottom; ++y ) {
        mvwhline( dctx->boardWin, y, rect->left, ' ', rect->width );
    }
} /* eraseRect */

static void
curses_draw_destroyCtxt( DrawCtx* p_dctx )
{
    // CursesDrawCtx* dctx = (CursesDrawCtx*)p_dctx;
} /* draw_setup */

static XP_Bool
curses_draw_boardBegin( DrawCtx* p_dctx, XP_Rect* rect, XP_Bool hasfocus )
{
    CursesDrawCtx* dctx = (CursesDrawCtx*)p_dctx;
    if ( hasfocus ) {
        drawRect( dctx->boardWin, rect, '+', '+' ); 
    } else {
        drawRect( dctx->boardWin, rect, '|', '-' ); 
    }
    return XP_TRUE;
} /* draw_finish */

static XP_Bool
curses_draw_trayBegin( DrawCtx* p_dctx, XP_Rect* rect, XP_U16 owner, 
                       XP_Bool hasfocus )
{
    CursesDrawCtx* dctx = (CursesDrawCtx*)p_dctx;
    if ( hasfocus ) {
        drawRect( dctx->boardWin, rect, '+', '+' );
    } else {
        drawRect( dctx->boardWin, rect, '|', '-' ); 
    }
    return XP_TRUE;
} /* draw_finish */

static void
curses_draw_scoreBegin( DrawCtx* p_dctx, XP_Rect* rect, XP_U16 numPlayers, 
                        XP_Bool hasfocus )
{
    CursesDrawCtx* dctx = (CursesDrawCtx*)p_dctx;
    if ( hasfocus ) {
        drawRect( dctx->boardWin, rect, '+', '+' ); 
    } else {
        drawRect( dctx->boardWin, rect, '|', '-' ); 
    }

} /* curses_draw_scoreBegin */

static void
formatRemText( char* buf, XP_S16 nTilesLeft )
{
    strcpy( buf, "Tiles left in pool: " );
    buf += strlen( buf );
    if ( nTilesLeft < 0 ) {
        strcpy( buf, "***" );
    } else {
        sprintf( buf, "%.3d", nTilesLeft );
    }
} /* formatRemText */

static void
curses_draw_measureRemText( DrawCtx* dctx, XP_Rect* r, 
                            XP_S16 nTilesLeft, 
                            XP_U16* width, XP_U16* height )
{
    char buf[32];

    formatRemText( buf, nTilesLeft );
    
    *width = strlen(buf);
    *height = 1;
} /* curses_draw_measureRemText */

static void
curses_draw_drawRemText( DrawCtx* p_dctx, XP_Rect* rInner, XP_Rect* rOuter,
                         XP_S16 nTilesLeft )
{
    CursesDrawCtx* dctx = (CursesDrawCtx*)p_dctx;
    char buf[32];

    formatRemText( buf, nTilesLeft );
    mvwprintw( dctx->boardWin, rInner->top, rInner->left, buf );
} /* curses_draw_drawRemText */

static void
formatScoreText( char* buf, DrawScoreInfo* dsi )
{
    XP_S16 nTilesLeft = dsi->nTilesLeft;
    char label;
    XP_Bool isRobot = dsi->isRobot;

    if ( nTilesLeft < 0 ) {
        nTilesLeft = MAX_TRAY_TILES;
    }

    if ( dsi->isRemote ) {
        if ( isRobot ) {
            label = 'R';
        } else {
            label = 'N';
        }
    } else {
        if ( isRobot ) {
            label = 'r';
        } else {
            label = 'n';
        }
    }

    sprintf( buf, "%s[%c] %s (%d)", (dsi->isTurn?"->":"  "), 
             label, dsi->name, nTilesLeft );
} /* formatScoreText */

static void
curses_draw_measureScoreText( DrawCtx* p_dctx, XP_Rect* r, 
                              DrawScoreInfo* dsi,
                              XP_U16* width, XP_U16* height )
{
    char buf[100];
    formatScoreText( buf, dsi );

    *width = strlen( buf );
    *height = 1;		/* one line per player */
} /* curses_draw_measureScoreText */

static void
curses_draw_score_pendingScore( DrawCtx* p_dctx, XP_Rect* rect, XP_S16 score,
                                XP_U16 playerNum )
{
    CursesDrawCtx* dctx = (CursesDrawCtx*)p_dctx;
    char buf[4];

    if ( score >= 0 ) {
        sprintf( buf, "%.3d", score );
    } else {
        strcpy( buf, "???" );
    }

    mvwprintw( dctx->boardWin, rect->top+1, rect->left, "pt:" );
    mvwprintw( dctx->boardWin, rect->top+2, rect->left, "%s", buf );
    wrefresh( dctx->boardWin );
} /* curses_draw_score_pendingScore */

static void
curses_draw_boardFinished( DrawCtx* p_dctx )
{
    CursesDrawCtx* dctx = (CursesDrawCtx*)p_dctx;
    wrefresh( dctx->boardWin );
} /* curses_draw_boardFinished */

static void
curses_draw_trayFinished( DrawCtx* p_dctx )
{
    CursesDrawCtx* dctx = (CursesDrawCtx*)p_dctx;
    wrefresh( dctx->boardWin );
} /* draw_finished */

static void
curses_draw_scoreFinished( DrawCtx* p_dctx )
{
    CursesDrawCtx* dctx = (CursesDrawCtx*)p_dctx;
    wrefresh( dctx->boardWin );
} /* draw_finished */

#define MY_PAIR 1

static void
curses_draw_score_drawPlayer( DrawCtx* p_dctx, XP_S16 playerNum,
                              XP_Rect* rInner, XP_Rect* rOuter, 
                              DrawScoreInfo* dsi )
{
    CursesDrawCtx* dctx = (CursesDrawCtx*)p_dctx;
    char curSBuf[6];
    char buf[100];
    int y = rInner->top;
    
    if ( dsi->selected ) {
        wstandout( dctx->boardWin );
    }
    /* first blank out the whole thing! */
    mvwhline( dctx->boardWin, y, rOuter->left, ' ', rOuter->width );

    /* print the name and turn/remoteness indicator */
    formatScoreText( buf, dsi );
    mvwprintw( dctx->boardWin, y, rOuter->left, buf );

    if ( 0 && dsi->isTurn/*  && !remote */ ) {
        /* print score:curscore at the right edge.  If curscore is illegal,
           replace with "??" */
        mvwprintw( dctx->boardWin, y, rOuter->left + rOuter->width - 7,
                   "%s:%.3d", curSBuf, dsi->score );
    } else {
        mvwprintw( dctx->boardWin, y, rOuter->left + rOuter->width - 3,
                   "%.3d", dsi->score );
    }

    if ( dsi->selected ) {
        wstandend( dctx->boardWin );
    }
    /*     (void)wcolor_set( dctx->boardWin, prev, NULL ); */
} /* curses_draw_score_drawPlayer */

static XP_Bool
curses_draw_drawCell( DrawCtx* p_dctx, XP_Rect* rect, 
                      XP_UCHAR* letter, XP_Bitmap bitmap,
                      XP_S16 owner, XWBonusType bonus, HintAtts hintAtts,
                      XP_Bool isBlank, XP_Bool highlight, XP_Bool isStar )
{
    CursesDrawCtx* dctx = (CursesDrawCtx*)p_dctx;

    if ( *letter == LETTER_NONE ) {
        switch ( bonus ) {
        case BONUS_DOUBLE_LETTER:
            letter[0] = '+'; break;
        case BONUS_DOUBLE_WORD:
            letter[0] = '*'; break;
        case BONUS_TRIPLE_LETTER:
            letter[0] = '^'; break;
        case BONUS_TRIPLE_WORD:
            letter[0] = '#'; break;
        default:
            letter[0] = ' ';
        } /* switch */
    }

    if ( highlight ) {
        wstandout( dctx->boardWin );
    }

    mvwaddnstr( dctx->boardWin, rect->top, rect->left, letter, 
                strlen(letter) );

    if ( highlight ) {
        wstandend( dctx->boardWin );
    }

    return XP_TRUE;
} /* curses_draw_drawCell */

static void
curses_stringInTile( CursesDrawCtx* dctx, XP_Rect* rect, 
                     XP_UCHAR* letter, XP_UCHAR* val )
{
    eraseRect( dctx, rect );

    mvwaddnstr( dctx->boardWin, rect->top+1, rect->left+(rect->width/2),
                letter, strlen(letter) );

    if ( !!val ) {
        int len = strlen( val );
        mvwaddnstr( dctx->boardWin, rect->top+rect->height-2, 
                    rect->left + rect->width - len, val, len );
    }
} /* curses_stringInTile */

static void
curses_draw_drawTile( DrawCtx* p_dctx, XP_Rect* rect, 
                      XP_UCHAR* textP, XP_Bitmap bitmap,
                      XP_S16 val, XP_Bool highlighted )
{
    char numbuf[5];
    char letterbuf[5];
    char* nump = NULL;
    CursesDrawCtx* dctx = (CursesDrawCtx*)p_dctx;

    letterbuf[0] = !!textP? *textP: '_'; /* BLANK or bitmap */
    letterbuf[1] = '\0';
    if ( val >= 0 ) {
        sprintf( numbuf, "%.2d", val );
        if ( numbuf[0] == '0' ) {
            numbuf[0] = ' ';
        }
        nump = numbuf;
    }

    curses_stringInTile( dctx, rect, letterbuf, nump );

    if ( highlighted ) {
        mvwaddnstr( dctx->boardWin, rect->top+rect->height-1, 
                    rect->left, "*-*", 3 );
    }
} /* curses_draw_drawTile */

static  void
curses_draw_drawTileBack( DrawCtx* p_dctx, XP_Rect* rect )
{
    CursesDrawCtx* dctx = (CursesDrawCtx*)p_dctx;
    curses_stringInTile( dctx, rect, "?", "?" );
} /* curses_draw_drawTileBack */

static void
curses_draw_drawTrayDivider( DrawCtx* p_dctx, XP_Rect* rect, 
                             XP_Bool selected )
{
    CursesDrawCtx* dctx = (CursesDrawCtx*)p_dctx;
    wmove( dctx->boardWin, rect->top, rect->left );
    wvline( dctx->boardWin, '#', rect->height );

} /* curses_draw_drawTrayDivider */

static void
curses_draw_drawBoardArrow( DrawCtx* p_dctx, XP_Rect* rect, 
                             XWBonusType cursorBonus, XP_Bool vertical )
{
    CursesDrawCtx* dctx = (CursesDrawCtx*)p_dctx;
#if 1
    char ch = vertical?'|':'-';
    mvwaddch( dctx->boardWin, rect->top, rect->left, ch );
#else
    chtype curChar = mvwinch(dctx->boardWin, rect->top, rect->left );
    wstandout( dctx->boardWin );
    mvwaddch( dctx->boardWin, rect->top, rect->left, curChar);
    wstandend( dctx->boardWin );
#endif
} /* curses_draw_drawBoardArrow */

static void
curses_draw_drawBoardCursor( DrawCtx* p_dctx, XP_Rect* rect )
{
    CursesDrawCtx* dctx = (CursesDrawCtx*)p_dctx;
    chtype curChar = mvwinch(dctx->boardWin, rect->top, rect->left );
    wstandout( dctx->boardWin );
    mvwaddch( dctx->boardWin, rect->top, rect->left, curChar);
    wstandend( dctx->boardWin );
} /* curses_draw_drawBoardCursor */

static void
curses_draw_drawTrayCursor( DrawCtx* p_dctx, XP_Rect* rect )
{
    CursesDrawCtx* dctx = (CursesDrawCtx*)p_dctx;
    wmove( dctx->boardWin, rect->top, rect->left );
    whline( dctx->boardWin, 'v', rect->width );
} /* curses_draw_drawTrayCursor */

static void 
curses_draw_clearRect( DrawCtx* p_dctx, XP_Rect* rectP )
{
    CursesDrawCtx* dctx = (CursesDrawCtx*)p_dctx;
    XP_Rect rect = *rectP;

    eraseRect( dctx, &rect );
} /* curses_draw_clearRect */

static XP_UCHAR*
curses_draw_getMiniWText( DrawCtx* p_dctx, XWMiniTextType textHint )
{
    return "Trading...";
} /* curses_draw_getMiniWText */

static void
curses_draw_measureMiniWText( DrawCtx* p_dctx, unsigned char* str, 
                              XP_U16* widthP, XP_U16* heightP )
{
    *widthP = strlen(str) + 4;
    *heightP = 3;
} /* curses_draw_measureMiniWText */

static void
curses_draw_drawMiniWindow( DrawCtx* p_dctx, XP_UCHAR* text,
                            XP_Rect* rect, void** closure )
{
    CursesDrawCtx* dctx = (CursesDrawCtx*)p_dctx;
    XP_Rect smallerR;

    smallerR.top = rect->top + 1;
    smallerR.left = rect->left + 1;
    smallerR.width = rect->width - 2;
    smallerR.height = rect->height - 2;

    eraseRect( dctx, rect );
    drawRect( dctx->boardWin, &smallerR, '|', '-' );

    mvwprintw( dctx->boardWin, smallerR.top, smallerR.left, text, 
               strlen(text) );
} /* curses_draw_drawMiniWindow */

static void
curses_draw_eraseMiniWindow( DrawCtx* p_dctx, XP_Rect* rect,
                             XP_Bool lastTime, void** closure,
                             XP_Bool* invalUnder )
{
    *invalUnder = XP_TRUE;
} /*  curses_draw_eraseMiniWindow*/

#if 0
static void
curses_draw_frameTray( DrawCtx* p_dctx, XP_Rect* rect )
{
    CursesDrawCtx* dctx = (CursesDrawCtx*)p_dctx;
    box( dctx->boardWin, '*', '+');
} /* curses_draw_frameTray */
#endif

static void
draw_doNothing( DrawCtx* dctx, ... )
{
} /* draw_doNothing */

DrawCtx* 
cursesDrawCtxtMake( WINDOW* boardWin )
{
    CursesDrawCtx* dctx = malloc( sizeof(CursesDrawCtx) );
    short i;

    dctx->vtable = malloc( sizeof(*(((CursesDrawCtx*)dctx)->vtable)) );

    for ( i = 0; i < sizeof(*dctx->vtable)/4; ++i ) {
        ((void**)(dctx->vtable))[i] = draw_doNothing;
    }

    SET_VTABLE_ENTRY( dctx->vtable, draw_destroyCtxt, curses );
    SET_VTABLE_ENTRY( dctx->vtable, draw_boardBegin, curses );
    SET_VTABLE_ENTRY( dctx->vtable, draw_boardFinished, curses );
    SET_VTABLE_ENTRY( dctx->vtable, draw_trayBegin, curses );
    SET_VTABLE_ENTRY( dctx->vtable, draw_trayFinished, curses );

    SET_VTABLE_ENTRY( dctx->vtable, draw_scoreBegin, curses );

    SET_VTABLE_ENTRY( dctx->vtable, draw_measureRemText, curses );
    SET_VTABLE_ENTRY( dctx->vtable, draw_drawRemText, curses );
    SET_VTABLE_ENTRY( dctx->vtable, draw_measureScoreText, curses );
    SET_VTABLE_ENTRY( dctx->vtable, draw_score_pendingScore, curses );
    SET_VTABLE_ENTRY( dctx->vtable, draw_score_drawPlayer, curses );
    SET_VTABLE_ENTRY( dctx->vtable, draw_scoreFinished, curses );

    SET_VTABLE_ENTRY( dctx->vtable, draw_drawCell, curses );
    SET_VTABLE_ENTRY( dctx->vtable, draw_drawTile, curses );
    SET_VTABLE_ENTRY( dctx->vtable, draw_drawTileBack, curses );
    SET_VTABLE_ENTRY( dctx->vtable, draw_drawTrayDivider, curses );
    
    SET_VTABLE_ENTRY( dctx->vtable, draw_drawBoardArrow, curses );
    SET_VTABLE_ENTRY( dctx->vtable, draw_drawBoardCursor, curses );
    SET_VTABLE_ENTRY( dctx->vtable, draw_drawTrayCursor, curses );

    SET_VTABLE_ENTRY( dctx->vtable, draw_clearRect, curses );

    SET_VTABLE_ENTRY( dctx->vtable, draw_drawMiniWindow, curses );
    SET_VTABLE_ENTRY( dctx->vtable, draw_eraseMiniWindow, curses );
    SET_VTABLE_ENTRY( dctx->vtable, draw_getMiniWText, curses );
    SET_VTABLE_ENTRY( dctx->vtable, draw_measureMiniWText, curses );


    /*     SET_VTABLE_ENTRY( dctx, draw_getBonusText, gtk ); */
    /*     SET_VTABLE_ENTRY( dctx, draw_eraseMiniWindow, gtk ); */


    /*     SET_VTABLE_ENTRY( dctx, draw_frameTray, curses ); */

    dctx->boardWin = boardWin;

    return (DrawCtx*)dctx;
} /* curses_drawctxt_init */

#endif /* PLATFORM_NCURSES */