/*

 * Curses binding for Lua 5.1, 5.2 & 5.3.

 *

 * (c) Gary V. Vaughan <gary@vaughan.pe> 2013-2015

 * (c) Reuben Thomas <rrt@sc3d.org> 2009-2012

 * (c) Tiago Dionizio <tiago.dionizio AT gmail.com> 2004-2007

 *

 * Permission is hereby granted, free of charge, to any person obtaining

 * a copy of this software and associated documentation files (the

 * "Software"), to deal in the Software without restriction, including

 * without limitation the rights to use, copy, modify, merge, publish,

 * distribute, sublicense, and/or sell copies of the Software, and to

 * permit persons to whom the Software is furnished to do so, subject to

 * the following conditions:

 *

 * The above copyright notice and this permission notice shall be

 * included in all copies or substantial portions of the Software.

 *

 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,

 * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF

 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.

 * IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY

 * CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,

 * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE

 * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

 */

/***

 Curses Window objects.

 The methods documented on this page are available on any Curses Window

 object, such as created by:

     stdscr = curses.initscr ()

     window = curses.newwin (25, 80, 0, 0)

@classmod posix.curses.window

*/

#include <config.h>

#if HAVE_CURSES

#include "_helpers.c"

#include "curses/chstr.c"

static const char *WINDOWMETA = "posix.curses:window";

static void

lc_newwin(lua_State *L, WINDOW *nw)

{

	if (nw)

	{

		WINDOW **w = lua_newuserdata(L, sizeof(WINDOW*));

		luaL_getmetatable(L, WINDOWMETA);

		lua_setmetatable(L, -2);

		*w = nw;

	}

	else

	{

		lua_pushliteral(L, "failed to create window");

		lua_error(L);

	}

}

static WINDOW **

lc_getwin(lua_State *L, int offset)

{

	WINDOW **w = (WINDOW**)luaL_checkudata(L, offset, WINDOWMETA);

	if (w == NULL)

		luaL_argerror(L, offset, "bad curses window");

	return w;

}

static WINDOW *

checkwin(lua_State *L, int offset)

{

	WINDOW **w = lc_getwin(L, offset);

	if (*w == NULL)

		luaL_argerror(L, offset, "attempt to use closed curses window");

	return *w;

}

/***

Unique string representation of a @{posix.curses.window}.

@function __tostring

@treturn string unique string representation of the window object.

*/

static int

W__tostring(lua_State *L)

{

	WINDOW **w = lc_getwin(L, 1);

	char buff[34];

	if (*w == NULL)

		strcpy(buff, "closed");

	else

		sprintf(buff, "%p", lua_touserdata(L, 1));

	lua_pushfstring(L, "curses window (%s)", buff);

	return 1;

}

/***

Free all the resources associated with a window.

@function close

@see curs_window(3x)

*/

static int

Wclose(lua_State *L)

{

	WINDOW **w = lc_getwin(L, 1);

	if (*w != NULL && *w != stdscr)

	{

		delwin(*w);

		*w = NULL;

	}

	return 0;

}

/***

Move the position of a window.

@function move_window

@int y offset frow top of screen

@int x offset from left of screen

@treturn bool `true`, if successful

@see curs_window(3x)

*/

static int

Wmove_window(lua_State *L)

{

	WINDOW *w = checkwin(L, 1);

	int y = checkint(L, 2);

	int x = checkint(L, 3);

	return pushokresult(mvwin(w, y, x));

}

/***

Create a new subwindow.

@function sub

@treturn window a new absolutely positioned subwindow

@int nlines number of window lines

@int ncols number of window columns

@int begin_y top line of window

@int begin_x leftmost column of window

@see curs_window(3x)

@see derive

*/

static int

Wsub(lua_State *L)

{

	WINDOW *orig = checkwin(L, 1);

	int nlines  = checkint(L, 2);

	int ncols   = checkint(L, 3);

	int begin_y = checkint(L, 4);

	int begin_x = checkint(L, 5);

	lc_newwin(L, subwin(orig, nlines, ncols, begin_y, begin_x));

	return 1;

}

/***

Create a new derived window.

@function derive

@int nlines number of window lines

@int ncols number of window columns

@int begin_y top line of window

@int begin_x leftmost column of window

@treturn window a new relatively positioned subwindow

@see curs_window(3x)

@see sub

*/

static int

Wderive(lua_State *L)

{

	WINDOW *orig = checkwin(L, 1);

	int nlines  = checkint(L, 2);

	int ncols   = checkint(L, 3);

	int begin_y = checkint(L, 4);

	int begin_x = checkint(L, 5);

	lc_newwin(L, derwin(orig, nlines, ncols, begin_y, begin_x));

	return 1;

}

/***

Move the position of a derived window.

@function move_derived

@int par_y lines from top of parent window

@int par_x columns from left of parent window

@treturn bool `true`, if successful

@see curs_window(3x)

*/

static int

Wmove_derived(lua_State *L)

{

	WINDOW *w = checkwin(L, 1);

	int par_y = checkint(L, 2);

	int par_x = checkint(L, 3);

	return pushokresult(mvderwin(w, par_y, par_x));

}

/***

Change the size of a window.

@function resize

@int height new number of lines

@int width new number of columns

@treturn bool `true`, if successful

@see curs_wresize(3x)

*/

static int

Wresize(lua_State *L)

{

	WINDOW *w = checkwin(L, 1);

	int height = checkint(L, 2);

	int width = checkint(L, 3);

	int c = wresize(w, height, width);

	if (c == ERR) return 0;

	return pushokresult(true);

}

/***

Make a duplicate of a window.

@function clone

@treturn window a new duplicate of this window

@see curs_window(3x)

*/

static int

Wclone(lua_State *L)

{

	WINDOW *w = checkwin(L, 1);

	lc_newwin(L, dupwin(w));

	return 1;

}

/***

Mark ancestors of a window for refresh.

@function syncup

@see curs_window(3x)

*/

static int

Wsyncup(lua_State *L)

{

	wsyncup(checkwin(L, 1));

	return 0;

}

/***

Automatically mark ancestors of a changed window for refresh.

@function syncok

@bool bf

@treturn bool `true`, if successful

@see curs_window(3x)

*/

static int

Wsyncok(lua_State *L)

{

	WINDOW *w = checkwin(L, 1);

#if LPOSIX_CURSES_COMPLIANT

	int bf = lua_toboolean(L, 2);

	return pushokresult(syncok(w, bf));

#else

	return binding_notimplemented(L, "syncok", "curses");

#endif

}

/***

Mark cursor position of ancestors of a window for refresh.

@function cursyncup

@see curs_window(3x)

*/

static int

Wcursyncup(lua_State *L)

{

	wcursyncup(checkwin(L, 1));

	return 0;

}

/***

Mark child windows for refresh.

@function syncdown

@see curs_window(3x)

@see refresh

*/

static int

Wsyncdown(lua_State *L)

{

	wsyncdown(checkwin(L, 1));

	return 0;

}

/***

Refresh the window terminal display from the virtual screen.

@function refresh

@treturn bool `true`, if successful

@see curs_refresh(3x)

@see posix.curses.doupdate

@see noutrefresh

*/

static int

Wrefresh(lua_State *L)

{

	return pushokresult(wrefresh(checkwin(L, 1)));

}

/***

Copy the window backing screen to the virtual screen.

@function noutrefresh

@treturn bool `true`, if successful

@see curs_refresh(3x)

@see posix.curses.doupdate

@see refresh

*/

static int

Wnoutrefresh(lua_State *L)

{

	return pushokresult(wnoutrefresh(checkwin(L, 1)));

}

/***

Mark a window as having corrupted display that needs fully redrawing.

@function redrawwin

@treturn bool `true`, if successful

@see curs_refresh(3x)

@see redrawln

*/

static int

Wredrawwin(lua_State *L)

{

	return pushokresult(redrawwin(checkwin(L, 1)));

}

/***

Mark a range of lines in a window as corrupted and in need of redrawing.

@function redrawln

@int beg_line

@int num_lines

@treturn bool `true`, if successful

@see curs_refresh(3x)

*/

static int

Wredrawln(lua_State *L)

{

	WINDOW *w = checkwin(L, 1);

	int beg_line = checkint(L, 2);

	int num_lines = checkint(L, 3);

	return pushokresult(wredrawln(w, beg_line, num_lines));

}

/***

Change the cursor position.

@function move

@int y

@int x

@treturn bool `true`, if successful

@see curs_move(3x)

*/

static int

Wmove(lua_State *L)

{

	WINDOW *w = checkwin(L, 1);

	int y = checkint(L, 2);

	int x = checkint(L, 3);

	return pushokresult(wmove(w, y, x));

}

/***

Scroll the window up *n* lines.

@function scrl

@int n

@treturn bool `true`, if successful

@see curs_scroll(3x)

*/

static int

Wscrl(lua_State *L)

{

	WINDOW *w = checkwin(L, 1);

	int n = checkint(L, 2);

	return pushokresult(wscrl(w, n));

}

/***

Set the changed state of a window since the last refresh.

@function touch

@param[opt] changed

@treturn bool `true`, if successful

@see curs_touch(3x)

*/

static int

Wtouch(lua_State *L)

{

	WINDOW *w = checkwin(L, 1);

	int changed;

	if (lua_isnoneornil(L, 2))

		changed = TRUE;

	else

		changed = lua_toboolean(L, 2);

	if (changed)

		return pushokresult(touchwin(w));

	return pushokresult(untouchwin(w));

}

/***

Mark a range of lines as changed since the last refresh.

@function touchline

@int y

@int n

@param[opt] changed

@treturn bool `true`, if successful

@see curs_refresh(3x)

*/

static int

Wtouchline(lua_State *L)

{

	WINDOW *w = checkwin(L, 1);

	int y = checkint(L, 2);

	int n = checkint(L, 3);

	int changed;

	if (lua_isnoneornil(L, 4))

		changed = TRUE;

	else

		changed = lua_toboolean(L, 4);

	return pushokresult(wtouchln(w, y, n, changed));

}

/***

Has a particular window line changed since the last refresh?

@function is_linetouched

@int line

@treturn bool `true`, if successful

@see curs_refresh(3x)

*/

static int

Wis_linetouched(lua_State *L)

{

	WINDOW *w = checkwin(L, 1);

	int line = checkint(L, 2);

	return pushboolresult(is_linetouched(w, line));

}

/***

Has a window changed since the last refresh?

@function is_wintouched

@treturn bool `true`, if successful

@see curs_refresh(3x)

*/

static int

Wis_wintouched(lua_State *L)

{

	WINDOW *w = checkwin(L, 1);

	return pushboolresult(is_wintouched(w));

}

/***

Fetch the cursor position.

@function getyx

@treturn int y coordinate of top line

@treturn int x coordinate of left column

@see curs_getyx(3x)

*/

static int

Wgetyx(lua_State *L)

{

	WINDOW *w = checkwin(L, 1);

	int y, x;

	getyx(w, y, x);

	lua_pushinteger(L, y);

	lua_pushinteger(L, x);

	return 2;

}

/***

Fetch the parent-relative coordinates of a subwindow.

@function getparyx

@treturn int y coordinate of top line relative to parent window

@treturn int x coordinate of left column relative to parent window

@see curs_getyx(3x)

*/

static int

Wgetparyx(lua_State *L)

{

	WINDOW *w = checkwin(L, 1);

	int y, x;

	getparyx(w, y, x);

	lua_pushinteger(L, y);

	lua_pushinteger(L, x);

	return 2;

}

/***

Fetch the absolute top-left coordinates of a window.

@function getbegyx

@treturn int y coordinate of top line

@treturn int x coordinate of left column

@treturn bool `true`, if successful

@see curs_getyx(3x)

*/

static int

Wgetbegyx(lua_State *L)

{

	WINDOW *w = checkwin(L, 1);

	int y, x;

	getbegyx(w, y, x);

	lua_pushinteger(L, y);

	lua_pushinteger(L, x);

	return 2;

}

/***

Fetch the absolute bottom-right coordinates of a window.

@function getmaxyx

@treturn int y coordinate of bottom line

@treturn int x coordinate of right column

@treturn bool `true`, if successful

@see curs_getyx(3x)

*/

static int

Wgetmaxyx(lua_State *L)

{

	WINDOW *w = checkwin(L, 1);

	int y, x;

	getmaxyx(w, y, x);

	lua_pushinteger(L, y);

	lua_pushinteger(L, x);

	return 2;

}

/***

Draw a border around a window.

@function border

@int[opt] ls

@int[opt] rs

@int[opt] ts

@int[opt] bs

@int[opt] tl

@int[opt] tr

@int[opt] bl

@int[opt] br

@treturn bool `true`, if successful

@see curs_border(3x)

@usage

  win:border (curses.ACS_VLINE, curses.ACS_VLINE,

              curses.ACS_HLINE, curses.ACS_HLINE,

	      curses.ACS_ULCORNER, curses.ACS_URCORNER,

	      curses.ACS_LLCORNER, curses.ACS_LRCORNER)

*/

static int

Wborder(lua_State *L)

{

	WINDOW *w = checkwin(L, 1);

	chtype ls = optch(L, 2, 0);

	chtype rs = optch(L, 3, 0);

	chtype ts = optch(L, 4, 0);

	chtype bs = optch(L, 5, 0);

	chtype tl = optch(L, 6, 0);

	chtype tr = optch(L, 7, 0);

	chtype bl = optch(L, 8, 0);

	chtype br = optch(L, 9, 0);

	return pushokresult(wborder(w, ls, rs, ts, bs, tl, tr, bl, br));

}

/***

Draw a box around a window.

@function box

@int verch

@int horch

@treturn bool `true`, if successful

@see curs_border(3x)

@see border

@usage

  win:box (curses.ACS_VLINE, curses.ACS_HLINE)

*/

static int

Wbox(lua_State *L)

{

	WINDOW *w = checkwin(L, 1);

	chtype verch = checkch(L, 2);

	chtype horch = checkch(L, 3);

	return pushokresult(box(w, verch, horch));

}

/***

Draw a row of characters from the current cursor position.

@function hline

@int ch

@int n

@treturn bool `true`, if successful

@see curs_border(3x)

@see mvhline

@see vline

@usage

  _, width = win:getmaxyx ()

  win:hline (curses.ACS_HLINE, width - curs_x)

*/

static int

Whline(lua_State *L)

{

	WINDOW *w = checkwin(L, 1);

	chtype ch = checkch(L, 2);

	int n = checkint(L, 3);

	return pushokresult(whline(w, ch, n));

}

/***

Draw a column of characters from the current cursor position.

@function vline

@int ch

@int n

@treturn bool `true`, if successful

@see curs_border(3x)

@see hline

@see mvvline

*/

static int

Wvline(lua_State *L)

{

	WINDOW *w = checkwin(L, 1);

	chtype ch = checkch(L, 2);

	int n = checkint(L, 3);

	return pushokresult(wvline(w, ch, n));

}

/***

Move the cursor, then draw a row of characters from the new cursor position.

@function mvhline

@int y

@int x

@int ch

@int n

@treturn bool `true`, if successful

@see curs_border(3x)

*/

static int

Wmvhline(lua_State *L)

{

	WINDOW *w = checkwin(L, 1);

	int y = checkint(L, 2);

	int x = checkint(L, 3);

	chtype ch = checkch(L, 4);

	int n = checkint(L, 5);

	return pushokresult(mvwhline(w, y, x, ch, n));

}

/***

Move the cursor, then draw a column of characters from the new cursor position.

@function mvvline

@int y

@int x

@int ch

@int n

@treturn bool `true`, if successful

@see curs_border(3x)

*/

static int

Wmvvline(lua_State *L)

{

	WINDOW *w = checkwin(L, 1);

	int y = checkint(L, 2);

	int x = checkint(L, 3);

	chtype ch = checkch(L, 4);

	int n = checkint(L, 5);

	return pushokresult(mvwvline(w, y, x, ch, n));

}

/***

Write blanks to every character position in the window.

@function erase

@treturn bool `true`, if successful

@see curs_clear(3x)

*/

static int

Werase(lua_State *L)

{

	return pushokresult(werase(checkwin(L, 1)));

}

/***

Call @{erase} and then @{clearok}.

@function clear

@treturn bool `true`, if successful

@see curs_border(3x)

*/

static int

Wclear(lua_State *L)

{

	return pushokresult(wclear(checkwin(L, 1)));

}

/***

Write blanks to every character position after the cursor.

@function clrtobot

@treturn bool `true`, if successful

@see curs_border(3x)

*/

static int

Wclrtobot(lua_State *L)

{

	return pushokresult(wclrtobot(checkwin(L, 1)));

}

/***

Write blanks from the cursor to the end of the current line.

@function clrtoeol

@treturn bool `true`, if successful

@see curs_border(3x)

*/

static int

Wclrtoeol(lua_State *L)

{

	return pushokresult(wclrtoeol(checkwin(L, 1)));

}

/***

Advance the cursor after writing a character at the old position.

@function addch

@int ch

@treturn bool `true`, if successful

@see curs_addch(3x)

*/

static int

Waddch(lua_State *L)

{

	WINDOW *w = checkwin(L, 1);

	chtype ch = checkch(L, 2);

	return pushokresult(waddch(w, ch));

}

/***

Call @{move}, then @{addch}.

@function mvaddch

@int ch

@treturn bool `true`, if successful

@see curs_addch(3x)

*/

static int

Wmvaddch(lua_State *L)

{

	WINDOW *w = checkwin(L, 1);

	int y = checkint(L, 2);

	int x = checkint(L, 3);

	chtype ch = checkch(L, 4);

	return pushokresult(mvwaddch(w, y, x, ch));

}

/***

Call @{addch} then @{refresh}.

@function echoch

@int ch

@treturn bool `true`, if successful

@see curs_addch(3x)

*/

static int

Wechoch(lua_State *L)

{

	WINDOW *w = checkwin(L, 1);

	chtype ch = checkch(L, 2);

	return pushokresult(wechochar(w, ch));

}

/***

Copy a @{posix.curses.chstr} starting at the current cursor position.

@function addchstr

@int chstr cs

@int[opt] n

@treturn bool `true`, if successful

@see curs_addchstr(3x)

*/

static int

Waddchstr(lua_State *L)

{

	WINDOW *w = checkwin(L, 1);

	int n = optint(L, 3, -1);

	chstr *cs = checkchstr(L, 2);

	if (n < 0 || n > (int) cs->len)

		n = cs->len;

	return pushokresult(waddchnstr(w, cs->str, n));

}

/***

Call @{move} then @{addchstr}.

@function mvaddchstr

@int y

@int x

@int[opt] n

@treturn bool `true`, if successful

@see curs_addchstr(3x)

*/

static int

Wmvaddchstr(lua_State *L)

{

	WINDOW *w = checkwin(L, 1);

	int y = checkint(L, 2);

	int x = checkint(L, 3);

	int n = optint(L, 5, -1);

	chstr *cs = checkchstr(L, 4);

	if (n < 0 || n > (int) cs->len)

		n = cs->len;

	return pushokresult(mvwaddchnstr(w, y, x, cs->str, n));

}

/***

Copy a Lua string starting at the current cursor position.

@function addstr

@string str

@int[opt] n

@treturn bool `true`, if successful

@see curs_addstr(3x)

*/

static int

Waddstr(lua_State *L)

{

	WINDOW *w = checkwin(L, 1);

	const char *str = luaL_checkstring(L, 2);

	int n = optint(L, 3, -1);

	return pushokresult(waddnstr(w, str, n));

}

/***

Call @{move} then @{addstr}.

@function mvaddstr

@int y

@int x