/*	$NetBSD: bdisp.c,v 1.55 2022/05/29 17:01:42 rillig Exp $	*/

/*
 * Copyright (c) 1994
 *	The Regents of the University of California.  All rights reserved.
 *
 * This code is derived from software contributed to Berkeley by
 * Ralph Campbell.
 *
 * 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.
 * 3. Neither the name of the University nor the names of its contributors
 *    may be used to endorse or promote products derived from this software
 *    without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE REGENTS 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 REGENTS 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.
 */

#include <sys/cdefs.h>
/*	@(#)bdisp.c	8.2 (Berkeley) 5/3/95	*/
__RCSID("$NetBSD: bdisp.c,v 1.55 2022/05/29 17:01:42 rillig Exp $");

#include <curses.h>
#include <string.h>
#include <stdlib.h>
#include <err.h>
#include "gomoku.h"

#define	SCRNH		24		/* assume 24 lines for the moment */
#define	SCRNW		80		/* assume 80 chars for the moment */

static	int	lastline;
static	const char pcolor[] = "*O.?";

#define	scr_y(by)	(1 + (BSZ - 1) - ((by) - 1))
#define	scr_x(bx)	(3 + 2 * ((bx) - 1))

#define TRANSCRIPT_COL	(3 + (2 * BSZ - 1) + 3 + 3)

/*
 * Initialize screen display.
 */
void
cursinit(void)
{

	if (initscr() == NULL)
		errx(EXIT_FAILURE, "Couldn't initialize screen");

	if (LINES < SCRNH || COLS < SCRNW)
		errx(EXIT_FAILURE, "Screen too small (need %dx%d)",
		    SCRNW, SCRNH);

	keypad(stdscr, true);
	nonl();
	noecho();
	cbreak();
	leaveok(stdscr, false);

	mousemask(BUTTON1_CLICKED, NULL);
}

/*
 * Restore screen display.
 */
void
cursfini(void)
{

	move(BSZ + 4, 0);
	clrtoeol();
	refresh();
	echo();
	endwin();
}

/*
 * Initialize board display.
 */
void
bdisp_init(void)
{

	/* top and bottom borders */
	for (int col = 1; col <= BSZ; col++) {
		mvaddch(scr_y(BSZ + 1), scr_x(col), letters[col]);
		mvaddch(scr_y(0), scr_x(col), letters[col]);
	}

	/* left and right edges */
	for (int row = BSZ; row >= 1; row--) {
		mvprintw(scr_y(row), 0, "%2d", row);
		mvprintw(scr_y(row), scr_x(BSZ) + 2, "%d", row);
	}

	bdwho();
	mvaddstr(0, TRANSCRIPT_COL, "  #  black  white");
	lastline = 0;
	bdisp();
}

/*
 * Update who is playing whom.
 */
void
bdwho(void)
{
	int bw = (int)strlen(plyr[BLACK]);
	int ww = (int)strlen(plyr[WHITE]);
	int available = 3 + (1 + scr_x(BSZ) - scr_x(1)) + 3;
	int fixed = (int)sizeof("BLACK/ (*) vs. WHITE/ (O)") - 1;
	int total = fixed + bw + ww;
	int x;

	if (total <= available)
		x = (available - total) / 2;
	else {
		int remaining = available - fixed;
		int half = remaining / 2;

		if (bw <= half)
			ww = remaining - bw;
		else if (ww <= half)
			bw = remaining - ww;
		else
			bw = half, ww = remaining - half;
		x = 0;
	}

	mvhline(BSZ + 2, 0, ' ', available);
	mvprintw(BSZ + 2, x, "BLACK/%.*s (*) vs. WHITE/%.*s (O)",
	    bw, plyr[BLACK], ww, plyr[WHITE]);
}

static bool
should_highlight(spot_index s)
{

	if (game.nmoves > 0 && game.moves[game.nmoves - 1] == s)
		return true;
	if (game.win_spot != 0)
		for (int off = 0; off < 5; off++)
			if (s == game.win_spot + off * dd[game.win_dir])
				return true;
	return false;
}

/*
 * Update the board display after a move.
 */
void
bdisp(void)
{
	struct spotstr *sp;

	for (int row = BSZ + 1; --row > 0; ) {
		for (int col = 1; col <= BSZ; col++) {
			sp = &board[PT(col, row)];
			char c;
			if (debug > 1 && sp->s_occ == EMPTY) {
				if ((sp->s_flags & IFLAGALL) != 0)
					c = '+';
				else if ((sp->s_flags & CFLAGALL) != 0)
					c = '-';
				else
					c = '.';
			} else
				c = pcolor[sp->s_occ];

			move(scr_y(row), scr_x(col));
			if (should_highlight(PT(col, row))) {
				attron(A_BOLD);
				addch(c);
				attroff(A_BOLD);
			} else
				addch(c);
		}
	}
	refresh();
}

#ifdef DEBUG
/*
 * Dump board display to a file.
 */
void
bdump(FILE *fp)
{
	int c;
	struct spotstr *sp;

	/* top border */
	fprintf(fp, "   A B C D E F G H J K L M N O P Q R S T\n");

	for (int row = BSZ + 1; --row > 0; ) {
		fprintf(fp, "%2d ", row);	/* left edge */

		for (int col = 1; col <= BSZ; col++) {
			sp = &board[PT(col, row)];
			if (debug > 1 && sp->s_occ == EMPTY) {
				if ((sp->s_flags & IFLAGALL) != 0)
					c = '+';
				else if ((sp->s_flags & CFLAGALL) != 0)
					c = '-';
				else
					c = '.';
			} else
				c = pcolor[sp->s_occ];
			putc(c, fp);
			putc(' ', fp);
		}

		fprintf(fp, "%d\n", row);	/* right edge */
	}

	/* bottom border */
	fprintf(fp, "   A B C D E F G H J K L M N O P Q R S T\n");
}
#endif /* DEBUG */

/*
 * Display a transcript entry
 */
void
dislog(const char *str)
{

	if (++lastline >= SCRNH - 1) {
		/* move 'em up */
		lastline = 1;
	}
	mvaddnstr(lastline, TRANSCRIPT_COL, str, SCRNW - TRANSCRIPT_COL - 1);
	clrtoeol();
	move(lastline + 1, TRANSCRIPT_COL);
	clrtoeol();
}

/*
 * Display a question.
 */
void
ask(const char *str)
{
	int len = (int)strlen(str);

	mvaddstr(BSZ + 4, 0, str);
	clrtoeol();
	move(BSZ + 4, len);
	refresh();
}

int
get_key(const char *allowed)
{

	for (;;) {
		int ch = getch();
		if (allowed == NULL || ch == '\0' ||
		    strchr(allowed, ch) != NULL)
			return ch;
		beep();
		refresh();
	}
}

bool
get_line(char *buf, int size, void (*on_change)(const char *))
{
	char *cp, *end;
	int c;

	cp = buf;
	end = buf + size - 1;	/* save room for the '\0' */
	while ((c = getchar()) != EOF && c != '\n' && c != '\r') {
		if (!interactive && cp < end) {
			*cp++ = c;
			continue;
		}
		if (!interactive)
			errx(EXIT_FAILURE, "line too long");

		switch (c) {
		case 0x0c:	/* ^L */
			wrefresh(curscr);
			continue;
		case 0x15:	/* ^U */
		case 0x18:	/* ^X */
			for (; cp > buf; cp--)
				addstr("\b \b");
			break;
		case '\b':
		case 0x7f:	/* DEL */
			if (cp == buf)
				continue;
			cp--;
			addstr("\b \b");
			break;
		default:
			if (cp < end) {
				*cp++ = c;
				addch(c);
			} else
				beep();
		}
		if (on_change != NULL) {
			*cp = '\0';
			on_change(buf);
		}
		refresh();
	}
	*cp = '\0';
	return c != EOF;
}

static bool
get_coord_mouse(int *x, int *y)
{
	MEVENT ev;

	if (getmouse(&ev) == OK &&
	    (ev.bstate & (BUTTON1_RELEASED | BUTTON1_CLICKED)) != 0 &&
	    ev.y >= scr_y(BSZ) && ev.y <= scr_y(1) &&
	    ev.x >= scr_x(1) && ev.x <= scr_x(BSZ) &&
	    (ev.x - scr_x(1)) % (scr_x(2) - scr_x(1)) == 0) {
		*x = 1 + (ev.x - scr_x(1)) / (scr_x(2) - scr_x(1));
		*y = 1 + (scr_y(1) - ev.y) / (scr_y(1) - scr_y(2));
		return true;
	}
	return false;
}

/*
 * Ask the user for the coordinate of a move, or return RESIGN or SAVE.
 *
 * Based on Eric S. Raymond's modifications to the battleship (bs) user
 * interface.
 */
spot_index
get_coord(void)
{
	int x = game.user_x, y = game.user_y;

	move(scr_y(y), scr_x(x));
	refresh();
	for (;;) {
		mvprintw(BSZ + 3, 6, "(%c %d) ", letters[x], y);
		move(scr_y(y), scr_x(x));

		int ch = getch();
		switch (ch) {
		case 'k':
		case '8':
		case KEY_UP:
			y++;
			break;
		case 'j':
		case '2':
		case KEY_DOWN:
			y--;
			break;
		case 'h':
		case '4':
		case KEY_LEFT:
			x--;
			break;
		case 'l':
		case '6':
		case KEY_RIGHT:
			x++;
			break;
		case 'y':
		case '7':
		case KEY_A1:
			x--;
			y++;
			break;
		case 'b':
		case '1':
		case KEY_C1:
			x--;
			y--;
			break;
		case 'u':
		case '9':
		case KEY_A3:
			x++;
			y++;
			break;
		case 'n':
		case '3':
		case KEY_C3:
			x++;
			y--;
			break;
		case 'K':
			y += 5;
			break;
		case 'J':
			y -= 5;
			break;
		case 'H':
			x -= 5;
			break;
		case 'L':
			x += 5;
			break;
		case 'Y':
			x -= 5;
			y += 5;
			break;
		case 'B':
			x -= 5;
			y -= 5;
			break;
		case 'U':
			x += 5;
			y += 5;
			break;
		case 'N':
			x += 5;
			y -= 5;
			break;
		case 0x0c:	/* ^L */
			(void)clearok(stdscr, true);
			(void)refresh();
			break;
		case KEY_MOUSE:
			if (get_coord_mouse(&x, &y))
				goto selected;
			beep();
			break;
		case 'Q':
		case 'q':
			return RESIGN;
		case 'S':
		case 's':
			return SAVE;
		case ' ':
		case '\r':
		selected:
			(void)mvhline(BSZ + 3, 6, ' ', 6);
			game.user_x = x;
			game.user_y = y;
			return PT(x, y);
		}

		x = 1 + (x + BSZ - 1) % BSZ;
		y = 1 + (y + BSZ - 1) % BSZ;
	}
}