int winnstr(WINDOW *win, char *str, int n)
{
#ifdef PDC_WIDE
wchar_t wstr[513];
if (n < 0 || n > 512)
n = 512;
if (winnwstr(win, wstr, n) == ERR)
return ERR;
return PDC_wcstombs(str, wstr, n);
#else
chtype *src;
int i;
PDC_LOG(("winnstr() - called: n %d \n", n));
if (!win || !str)
return ERR;
if (n < 0 || (win->_curx + n) > win->_maxx)
n = win->_maxx - win->_curx;
src = win->_y[win->_cury] + win->_curx;
for (i = 0; i < n; i++)
str[i] = src[i] & A_CHARTEXT;
str[i] = '\0';
return i;
#endif
}
winwstr(WINDOW *win, wchar_t *wstr)
{
int result = OK;
T((T_CALLED("winwstr(%p,%p)"), win, wstr));
if (winnwstr(win, wstr, CCHARW_MAX * (win->_maxx - win->_curx + 1)) == ERR)
result = ERR;
returnCode(result);
}
int mvwinnwstr(WINDOW *win, int y, int x, wchar_t *wstr, int n)
{
PDC_LOG(("mvwinnwstr() - called\n"));
if (wmove(win, y, x) == ERR)
return ERR;
return winnwstr(win, wstr, n);
}
int mvinnwstr(int y, int x, wchar_t *wstr, int n)
{
PDC_LOG(("mvinnstr() - called\n"));
if (move(y, x) == ERR)
return ERR;
return winnwstr(stdscr, wstr, n);
}
int mvwinwstr(WINDOW *win, int y, int x, wchar_t *wstr)
{
PDC_LOG(("mvwinstr() - called\n"));
if (wmove(win, y, x) == ERR)
return ERR;
return (ERR == winnwstr(win, wstr, win->_maxx)) ? ERR : OK;
}
int mvinwstr(int y, int x, wchar_t *wstr)
{
PDC_LOG(("mvinwstr() - called\n"));
if (move(y, x) == ERR)
return ERR;
return (ERR == winnwstr(stdscr, wstr, stdscr->_maxx)) ? ERR : OK;
}
winwstr(WINDOW *win, wchar_t *wstr)
{
int result = OK;
T((T_CALLED("winwstr(%p,%p)"), (void *) win, (void *) wstr));
if (win == 0) {
result = ERR;
} else if (winnwstr(win, wstr,
CCHARW_MAX * (win->_maxx - win->_curx + 1)) == ERR) {
result = ERR;
}
returnCode(result);
}
/* Get a string of characters from a curses window */
SCM
gucu_winnstr (SCM win, SCM n)
{
SCM s_str;
int c_n;
int ret;
/* -1 indicates that up to an entire line is requested */
c_n = scm_to_int (n);
if (c_n == -1)
{
int y, x;
getmaxyx (_scm_to_window (win), y, x);
c_n = x;
}
#ifdef HAVE_NCURSESW
{
wchar_t *c_wstr;
c_wstr = (wchar_t *) scm_malloc (sizeof (wchar_t) * (c_n + 1));
ret = winnwstr (_scm_to_window (win), c_wstr, c_n);
if (ret != ERR)
{
c_wstr[c_n] = 0;
s_str = _scm_sstring_from_wstring (c_wstr);
}
else
abort ();
}
#else
{
char *c_str;
c_str = (char *) scm_malloc (sizeof (char) * (c_n + 1));
ret = winnstr (_scm_to_window (win), c_str, c_n + 1);
if (ret != ERR)
{
c_str[c_n] = 0;
s_str = scm_from_locale_string (c_str);
free (c_str);
}
else
abort ();
}
#endif
return s_str;
}
int
innwstr(wchar_t *ws, int n)
{
return (winnwstr(stdscr, ws, n));
}
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;
}
int innwstr(wchar_t *wstr, int n)
{
PDC_LOG(("innwstr() - called\n"));
return winnwstr(stdscr, wstr, n);
}
int winwstr(WINDOW *win, wchar_t *wstr)
{
PDC_LOG(("winwstr() - called\n"));
return (ERR == winnwstr(win, wstr, win->_maxx)) ? ERR : OK;
}
int inwstr(wchar_t *wstr)
{
PDC_LOG(("inwstr() - called\n"));
return (ERR == winnwstr(stdscr, wstr, stdscr->_maxx)) ? ERR : OK;
}
NCURSES_EXPORT(int) (mvwinnwstr) (WINDOW * a1, int a2, int a3, wchar_t * a4, int z)
{
return (wmove(a1,a2,a3) == (-1) ? (-1) : winnwstr(a1,a4,z)) ;
}
NCURSES_EXPORT(int) (mvinnwstr) (int a1, int a2, wchar_t * a3, int z)
{
return (wmove(stdscr,a1,a2) == (-1) ? (-1) : winnwstr(stdscr,a3,z)) ;
}
NCURSES_EXPORT(int) (innwstr) (wchar_t * a1, int z)
{
return winnwstr(stdscr,a1,z) ;
}
