/*
This function return the content of the buffer.
Stack:
1: the instance table
2: the accessed key
FIXME: use win_wchnstr, handle multiple lines ?
*/
int lui_input_get_buff(lua_State *L)
{
INPUT *i;
int pos;
wchar_t *buff;
int len;
luasoul_checkclass(L, 1, INPUT_CLASS, i); /* get input */
pos = get_current_position(i); /* save cursor position */
/* assume i->height == 1 */
len = i->width * i->off;
buff = malloc((len + 1) * sizeof(*buff));
len = mvwinnwstr(i->pad, 0, 0, buff, len);
while (iswspace(buff[--len])) /* remove leading space characters */
{}
buff[len + 1] = L'\0';
luasoul_pushwstring(L, buff);
set_current_position(i, pos); /* restore cursor position */
return 1;
}
static int
test_inchs(int level, char **argv, WINDOW *chrwin, WINDOW *strwin)
{
WINDOW *txtbox = 0;
WINDOW *txtwin = 0;
FILE *fp;
int ch;
int txt_x = 0, txt_y = 0;
int base_y;
int limit = getmaxx(strwin) - 5;
wchar_t buffer[MAX_COLS];
if (argv[level] == 0) {
beep();
return FALSE;
}
if (level > 1) {
txtbox = newwin(LINES - BASE_Y, COLS - level, BASE_Y, level);
box(txtbox, 0, 0);
wnoutrefresh(txtbox);
txtwin = derwin(txtbox,
getmaxy(txtbox) - 2,
getmaxx(txtbox) - 2,
1, 1);
base_y = 0;
} else {
txtwin = stdscr;
base_y = BASE_Y;
}
keypad(txtwin, TRUE); /* enable keyboard mapping */
(void) cbreak(); /* take input chars one at a time, no wait for \n */
(void) noecho(); /* don't echo input */
txt_y = base_y;
txt_x = 0;
wmove(txtwin, txt_y, txt_x);
if ((fp = fopen(argv[level], "r")) != 0) {
while ((ch = fgetc(fp)) != EOF) {
if (waddch(txtwin, UChar(ch)) != OK) {
break;
}
}
fclose(fp);
} else {
wprintw(txtwin, "Cannot open:\n%s", argv[1]);
}
while (!Quit(ch = mvwgetch(txtwin, txt_y, txt_x))) {
switch (ch) {
case KEY_DOWN:
case 'j':
if (txt_y < getmaxy(txtwin) - 1)
txt_y++;
else
beep();
break;
case KEY_UP:
case 'k':
if (txt_y > base_y)
txt_y--;
else
beep();
break;
case KEY_LEFT:
case 'h':
if (txt_x > 0)
txt_x--;
else
beep();
break;
case KEY_RIGHT:
case 'l':
if (txt_x < getmaxx(txtwin) - 1)
txt_x++;
else
beep();
break;
case 'w':
test_inchs(level + 1, argv, chrwin, strwin);
if (txtbox != 0) {
touchwin(txtbox);
wnoutrefresh(txtbox);
} else {
touchwin(txtwin);
wnoutrefresh(txtwin);
}
break;
case '-':
if (limit > 0) {
--limit;
} else {
beep();
}
break;
case '+':
++limit;
break;
default:
beep();
break;
}
MvWPrintw(chrwin, 0, 0, "line:");
wclrtoeol(chrwin);
if (txtwin != stdscr) {
wmove(txtwin, txt_y, txt_x);
if (winwstr(txtwin, buffer) != ERR) {
show_1st(chrwin, 0, buffer);
}
if (mvwinwstr(txtwin, txt_y, txt_x, buffer) != ERR) {
showmore(chrwin, 1, buffer);
}
} else {
move(txt_y, txt_x);
if (inwstr(buffer) != ERR) {
show_1st(chrwin, 0, buffer);
}
if (mvinwstr(txt_y, txt_x, buffer) != ERR) {
showmore(chrwin, 1, buffer);
}
}
wnoutrefresh(chrwin);
MvWPrintw(strwin, 0, 0, "%4d:", limit);
wclrtobot(strwin);
if (txtwin != stdscr) {
wmove(txtwin, txt_y, txt_x);
if (winnwstr(txtwin, buffer, limit) != ERR) {
show_1st(strwin, 0, buffer);
}
if (mvwinnwstr(txtwin, txt_y, txt_x, buffer, limit) != ERR) {
showmore(strwin, 1, buffer);
}
} else {
move(txt_y, txt_x);
if (innwstr(buffer, limit) != ERR) {
show_1st(strwin, 0, buffer);
}
if (mvinnwstr(txt_y, txt_x, buffer, limit) != ERR) {
showmore(strwin, 1, buffer);
}
}
wnoutrefresh(strwin);
}
if (level > 1) {
delwin(txtwin);
delwin(txtbox);
}
return TRUE;
}
