/*      $NetBSD: board.cc,v 1.5 2021/12/05 09:22:45 rillig Exp $        */

/*-
* Copyright (c) 2003 The NetBSD Foundation, Inc.
* All rights reserved.
*
* This code is derived from software contributed to The NetBSD Foundation
* by Christos Zoulas.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
*    notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
*    notice, this list of conditions and the following disclaimer in the
*    documentation and/or other materials provided with the distribution.
*
* THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
* ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
* TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
* PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
* BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
* CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
* SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
* CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
* ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
* POSSIBILITY OF SUCH DAMAGE.
*/

/*
* Board manipulations
*/

#include "defs.h"
RCSID("$NetBSD: board.cc,v 1.5 2021/12/05 09:22:45 rillig Exp $")

#include <stdio.h>
#include <string.h>
#include <stdarg.h>
#include "board.h"
#include "gamescreen.h"
#include "box.h"
#include "player.h"

BOARD::BOARD(size_t y, size_t x, GAMESCREEN* scrn) :
   _ny(y),
   _nx(x),
   _scrn(scrn)
{
   _ty = 2 * _ny + 1;
   _tx = 2 * _nx + 1;

   _b = new int*[_ty];

   for (y = 0; y < _ty; y++)
       _b[y] = new int[_tx];

   init();
}

BOARD::BOARD(const BOARD& b) :
   _ty(b._ty),
   _tx(b._tx),
   _ny(b._ny),
   _nx(b._nx),
   _scrn(NULL)
{
   _b = new int*[_ty];

   for (size_t y = 0; y < _ty; y++) {
       _b[y] = new int[_tx];
       static_cast<void>(memcpy(_b[y], b._b[y], _tx * sizeof(int)));
   }
}

BOARD::~BOARD()
{
   size_t y;

   for (y = 0; y < _ty; y++)
       delete[] _b[y];

   delete[] _b;
}

// Clear all boxes and reset state for a new game
void BOARD::init(void)
{
   size_t x, y;

   for (y = 0; y < _ny; y++)
       for (x = 0; x < _nx; x++) {
           BOX box(y, x, *this);
           box.reset();
       }
}

/*
* Make a move for player with initial 'c', adding an edge at box(x, y)
* and the specified direction.
* returns:
*      -1:     Invalid move
*       n:     Number of closures n E [0..2]
*/
int BOARD::domove(size_t y, size_t x, int dir, char c)
{
   int closed = 0;

   // Check if out of bounds
   if (!bounds(y, x))
       return -1;

   BOX box1(y, x, *this);

   // Check if the edge is already there
   if (box1.isset(dir))
       return -1;

   box1.set(dir);

   if (box1.count() == 4) {
       // New box; name it and count it
       box1.name() = c;
       closed++;
   }

   box1.paint();

   // Check other box
   x += BOX::edges[dir].x;
   y += BOX::edges[dir].y;

   if (bounds(y, x)) {
       BOX box2(y, x, *this);
       if (box2.count() == 4) {
           box2.name() = c;
           box2.paint();
           closed++;
       }
   }
   return closed;
}

// Return true if the board is full
int BOARD::full(void) const
{
   for (size_t y = 0; y < _ny; y++)
       for (size_t x = 0; x < _nx; x++) {
           BOX box(y, x, const_cast<BOARD&>(*this));
           if (box.count() != 4)
               return 0;
       }
   return 1;
}

// Return if the coordinates are within bounds; we don't check for < 0,
// since size_t is unsigned
int BOARD::bounds(size_t y, size_t x) const
{
   return x < _nx && y < _ny;
}

// Paint all boxes, effectively redrawing the board
void BOARD::paint(void) const
{
   for (size_t y = 0; y < _ny; y++)
       for (size_t x = 0; x < _nx; x++) {
           BOX box(y, x, const_cast<BOARD&>(*this));
           box.paint();
       }
}

// Clear the screen
void BOARD::clean(void) const
{
   if (!_scrn)
       return;
   _scrn->clean();
}

// Move cursor to x, y
void BOARD::setpos(size_t y, size_t x) const
{
   if (!_scrn)
       return;
   _scrn->moveto(y, x);
   _scrn->redraw();
}

// Return character indicating move
int BOARD::getmove(void) const
{
   if (!_scrn)
       return 'q';
   _scrn->redraw();
   return _scrn->getinput();
}

// Ring the bell
void BOARD::bell(void) const
{
   if (!_scrn)
       return;
   _scrn->bell();
}

// Post the score in the current game for player i
void BOARD::score(size_t i, const PLAYER& p)
{
   if (_scrn == NULL)
       return;
   _scrn->score(i, p);
}

// Post the number of games won for player i
void BOARD::games(size_t i, const PLAYER& p)
{
   if (_scrn == NULL)
       return;
   _scrn->games(i, p);
}

// Post the total score for player i
void BOARD::total(size_t i, const PLAYER& p)
{
   if (_scrn == NULL)
       return;
   _scrn->total(i, p);
}

// Post the total score for player i
void BOARD::ties(const PLAYER& p)
{
   if (_scrn == NULL)
       return;
   _scrn->ties(p);
}

// Internal algorithm error; post and abort
void BOARD::abort(const char* s, ...) const
{
   for (size_t i = 0; i < _ny; i++)
       fprintf(stderr, "\n");

   va_list ap;
   fprintf(stderr, "Algorithm internal error: ");
   va_start(ap, s);
   vfprintf(stderr, s, ap);
   va_end(ap);
   fprintf(stderr, "\n");
   ::abort();
}