mirror of
https://github.com/Aigor44/ncursesw-morphos.git
synced 2024-12-21 07:39:06 +08:00
526 lines
12 KiB
C
526 lines
12 KiB
C
/****************************************************************************
|
|
* Copyright (c) 2002-2005,2006 Free Software Foundation, Inc. *
|
|
* *
|
|
* 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, distribute with modifications, 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 ABOVE 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. *
|
|
* *
|
|
* Except as contained in this notice, the name(s) of the above copyright *
|
|
* holders shall not be used in advertising or otherwise to promote the *
|
|
* sale, use or other dealings in this Software without prior written *
|
|
* authorization. *
|
|
****************************************************************************/
|
|
/*
|
|
* $Id: ins_wide.c,v 1.7 2006/04/01 19:08:03 tom Exp $
|
|
*
|
|
* Demonstrate the wins_wstr() and wins_wch functions.
|
|
* Thomas Dickey - 2002/11/23
|
|
*
|
|
* Note: to provide inputs for *ins_wch(), we use setcchar(). A quirk of the
|
|
* X/Open definition for that function is that the string contains no
|
|
* characters with negative width. Any control character (such as tab) falls
|
|
* into that category. So it follows that *ins_wch() cannot render a tab
|
|
* character because there is no legal way to construct a cchar_t containing
|
|
* one. X/Open does not document this, and it would be logical to assume that
|
|
* *ins_wstr() has the same limitation, but it uses a wchar_t string directly,
|
|
* and does not document how tabs are handled.
|
|
*/
|
|
|
|
#include <test.priv.h>
|
|
|
|
#if USE_WIDEC_SUPPORT
|
|
|
|
/* definitions to make it simpler to compare with inserts.c */
|
|
#define InsNStr ins_nwstr
|
|
#define InsStr ins_wstr
|
|
#define MvInsNStr mvins_nwstr
|
|
#define MvInsStr mvins_wstr
|
|
#define MvWInsNStr mvwins_nwstr
|
|
#define MvWInsStr mvwins_wstr
|
|
#define WInsNStr wins_nwstr
|
|
#define WInsStr wins_wstr
|
|
|
|
#define TABSIZE 8
|
|
|
|
typedef enum {
|
|
oDefault = 0,
|
|
oMove = 1,
|
|
oWindow = 2,
|
|
oMoveWindow = 3
|
|
} Options;
|
|
|
|
static bool m_opt = FALSE;
|
|
static bool w_opt = FALSE;
|
|
static int n_opt = -1;
|
|
|
|
static void
|
|
legend(WINDOW *win, int level, Options state, wchar_t *buffer, int length)
|
|
{
|
|
NCURSES_CONST char *showstate;
|
|
|
|
switch (state) {
|
|
default:
|
|
case oDefault:
|
|
showstate = "";
|
|
break;
|
|
case oMove:
|
|
showstate = " (mvXXX)";
|
|
break;
|
|
case oWindow:
|
|
showstate = " (winXXX)";
|
|
break;
|
|
case oMoveWindow:
|
|
showstate = " (mvwinXXX)";
|
|
break;
|
|
}
|
|
|
|
wmove(win, 0, 0);
|
|
wprintw(win,
|
|
"The Strings/Chars displays should match. Enter any characters, except:\n");
|
|
wprintw(win,
|
|
"down-arrow or ^N to repeat on next line, 'w' for inner window, 'q' to exit.\n");
|
|
wclrtoeol(win);
|
|
wprintw(win, "Level %d,%s inserted %d characters <", level,
|
|
showstate, length);
|
|
waddwstr(win, buffer);
|
|
waddstr(win, ">");
|
|
}
|
|
|
|
static int
|
|
ColOf(wchar_t *buffer, int length, int margin)
|
|
{
|
|
int n;
|
|
int result;
|
|
|
|
for (n = 0, result = margin + 1; n < length; ++n) {
|
|
int ch = buffer[n];
|
|
switch (ch) {
|
|
case '\n':
|
|
/* actually newline should clear the remainder of the line
|
|
* and move to the next line - but that seems a little awkward
|
|
* in this example.
|
|
*/
|
|
case '\r':
|
|
result = 0;
|
|
break;
|
|
case '\b':
|
|
if (result > 0)
|
|
--result;
|
|
break;
|
|
case '\t':
|
|
result += (TABSIZE - (result % TABSIZE));
|
|
break;
|
|
case '\177':
|
|
result += 2;
|
|
break;
|
|
default:
|
|
result += wcwidth(ch);
|
|
if (ch < 32)
|
|
++result;
|
|
break;
|
|
}
|
|
}
|
|
return result;
|
|
}
|
|
|
|
static int
|
|
ConvertCh(chtype source, cchar_t *target)
|
|
{
|
|
wchar_t tmp_wchar[2];
|
|
|
|
tmp_wchar[0] = source;
|
|
tmp_wchar[1] = 0;
|
|
if (setcchar(target, tmp_wchar, A_NORMAL, 0, (void *) 0) == ERR) {
|
|
beep();
|
|
return FALSE;
|
|
}
|
|
return TRUE;
|
|
}
|
|
|
|
static int
|
|
MvWInsCh(WINDOW *win, int y, int x, chtype ch)
|
|
{
|
|
int code;
|
|
cchar_t tmp_cchar;
|
|
|
|
if (ConvertCh(ch, &tmp_cchar)) {
|
|
code = mvwins_wch(win, y, x, &tmp_cchar);
|
|
} else {
|
|
code = mvwinsch(win, y, x, ch);
|
|
}
|
|
return code;
|
|
}
|
|
|
|
static int
|
|
MvInsCh(int y, int x, chtype ch)
|
|
{
|
|
int code;
|
|
cchar_t tmp_cchar;
|
|
|
|
if (ConvertCh(ch, &tmp_cchar)) {
|
|
code = mvins_wch(y, x, &tmp_cchar);
|
|
} else {
|
|
code = mvinsch(y, x, ch);
|
|
}
|
|
return code;
|
|
}
|
|
|
|
static int
|
|
WInsCh(WINDOW *win, chtype ch)
|
|
{
|
|
int code;
|
|
cchar_t tmp_cchar;
|
|
|
|
if (ConvertCh(ch, &tmp_cchar)) {
|
|
code = wins_wch(win, &tmp_cchar);
|
|
} else {
|
|
code = winsch(win, ch);
|
|
}
|
|
return code;
|
|
}
|
|
|
|
static int
|
|
InsCh(chtype ch)
|
|
{
|
|
int code;
|
|
cchar_t tmp_cchar;
|
|
|
|
if (ConvertCh(ch, &tmp_cchar)) {
|
|
code = ins_wch(&tmp_cchar);
|
|
} else {
|
|
code = insch(ch);
|
|
}
|
|
return code;
|
|
}
|
|
|
|
#define LEN(n) ((length - (n) > n_opt) ? n_opt : (length - (n)))
|
|
static void
|
|
test_inserts(int level)
|
|
{
|
|
static bool first = TRUE;
|
|
|
|
wint_t ch;
|
|
int code;
|
|
int limit;
|
|
int row = 1;
|
|
int col;
|
|
int row2, col2;
|
|
int length;
|
|
wchar_t buffer[BUFSIZ];
|
|
WINDOW *look = 0;
|
|
WINDOW *work = 0;
|
|
WINDOW *show = 0;
|
|
int margin = (2 * TABSIZE) - 1;
|
|
Options option = ((m_opt ? oMove : oDefault)
|
|
| ((w_opt || (level > 0)) ? oWindow : oDefault));
|
|
|
|
if (first) {
|
|
static char cmd[80];
|
|
setlocale(LC_ALL, "");
|
|
|
|
putenv(strcpy(cmd, "TABSIZE=8"));
|
|
|
|
initscr();
|
|
(void) cbreak(); /* take input chars one at a time, no wait for \n */
|
|
(void) noecho(); /* don't echo input */
|
|
keypad(stdscr, TRUE);
|
|
}
|
|
|
|
limit = LINES - 5;
|
|
if (level > 0) {
|
|
look = newwin(limit, COLS - (2 * (level - 1)), 0, level - 1);
|
|
work = newwin(limit - 2, COLS - (2 * level), 1, level);
|
|
show = newwin(4, COLS, limit + 1, 0);
|
|
box(look, 0, 0);
|
|
wnoutrefresh(look);
|
|
limit -= 2;
|
|
} else {
|
|
work = stdscr;
|
|
show = derwin(stdscr, 4, COLS, limit + 1, 0);
|
|
}
|
|
keypad(work, TRUE);
|
|
|
|
for (col = margin + 1; col < COLS; col += TABSIZE)
|
|
mvwvline(work, row, col, '.', limit - 2);
|
|
|
|
mvwvline(work, row, margin, ACS_VLINE, limit - 2);
|
|
mvwvline(work, row, margin + 1, ACS_VLINE, limit - 2);
|
|
limit /= 2;
|
|
|
|
mvwaddstr(work, 1, 2, "String");
|
|
mvwaddstr(work, limit + 1, 2, "Chars");
|
|
wnoutrefresh(work);
|
|
|
|
buffer[length = 0] = '\0';
|
|
legend(show, level, option, buffer, length);
|
|
wnoutrefresh(show);
|
|
|
|
doupdate();
|
|
|
|
/*
|
|
* Show the characters inserted in color, to distinguish from those that
|
|
* are shifted.
|
|
*/
|
|
if (has_colors()) {
|
|
start_color();
|
|
init_pair(1, COLOR_WHITE, COLOR_BLUE);
|
|
wbkgdset(work, COLOR_PAIR(1) | ' ');
|
|
}
|
|
|
|
while ((code = wget_wch(work, &ch)) != ERR) {
|
|
|
|
if (code == KEY_CODE_YES) {
|
|
switch (ch) {
|
|
case KEY_DOWN:
|
|
ch = CTRL('N');
|
|
break;
|
|
case KEY_BACKSPACE:
|
|
ch = '\b';
|
|
break;
|
|
default:
|
|
beep();
|
|
continue;
|
|
}
|
|
} else if (code == ERR) {
|
|
beep();
|
|
break;
|
|
}
|
|
if (ch == 'q')
|
|
break;
|
|
|
|
wmove(work, row, margin + 1);
|
|
switch (ch) {
|
|
case 'w':
|
|
test_inserts(level + 1);
|
|
|
|
touchwin(look);
|
|
touchwin(work);
|
|
touchwin(show);
|
|
|
|
wnoutrefresh(look);
|
|
wnoutrefresh(work);
|
|
wnoutrefresh(show);
|
|
|
|
doupdate();
|
|
break;
|
|
case CTRL('N'):
|
|
if (row < limit) {
|
|
++row;
|
|
/* put the whole string in, all at once */
|
|
col2 = margin + 1;
|
|
switch (option) {
|
|
case oDefault:
|
|
if (n_opt > 1) {
|
|
for (col = 0; col < length; col += n_opt) {
|
|
col2 = ColOf(buffer, col, margin);
|
|
if (move(row, col2) != ERR) {
|
|
InsNStr(buffer + col, LEN(col));
|
|
}
|
|
}
|
|
} else {
|
|
if (move(row, col2) != ERR) {
|
|
InsStr(buffer);
|
|
}
|
|
}
|
|
break;
|
|
case oMove:
|
|
if (n_opt > 1) {
|
|
for (col = 0; col < length; col += n_opt) {
|
|
col2 = ColOf(buffer, col, margin);
|
|
MvInsNStr(row, col2, buffer + col, LEN(col));
|
|
}
|
|
} else {
|
|
MvInsStr(row, col2, buffer);
|
|
}
|
|
break;
|
|
case oWindow:
|
|
if (n_opt > 1) {
|
|
for (col = 0; col < length; col += n_opt) {
|
|
col2 = ColOf(buffer, col, margin);
|
|
if (wmove(work, row, col2) != ERR) {
|
|
WInsNStr(work, buffer + col, LEN(col));
|
|
}
|
|
}
|
|
} else {
|
|
if (wmove(work, row, col2) != ERR) {
|
|
WInsStr(work, buffer);
|
|
}
|
|
}
|
|
break;
|
|
case oMoveWindow:
|
|
if (n_opt > 1) {
|
|
for (col = 0; col < length; col += n_opt) {
|
|
col2 = ColOf(buffer, col, margin);
|
|
MvWInsNStr(work, row, col2, buffer + col, LEN(col));
|
|
}
|
|
} else {
|
|
MvWInsStr(work, row, col2, buffer);
|
|
}
|
|
break;
|
|
}
|
|
|
|
/* do the corresponding single-character insertion */
|
|
row2 = limit + row;
|
|
for (col = 0; col < length; ++col) {
|
|
col2 = ColOf(buffer, col, margin);
|
|
switch (option) {
|
|
case oDefault:
|
|
if (move(row2, col2) != ERR) {
|
|
InsCh((chtype) buffer[col]);
|
|
}
|
|
break;
|
|
case oMove:
|
|
MvInsCh(row2, col2, (chtype) buffer[col]);
|
|
break;
|
|
case oWindow:
|
|
if (wmove(work, row2, col2) != ERR) {
|
|
WInsCh(work, (chtype) buffer[col]);
|
|
}
|
|
break;
|
|
case oMoveWindow:
|
|
MvWInsCh(work, row2, col2, (chtype) buffer[col]);
|
|
break;
|
|
}
|
|
}
|
|
} else {
|
|
beep();
|
|
}
|
|
break;
|
|
case KEY_BACKSPACE:
|
|
ch = '\b';
|
|
/* FALLTHRU */
|
|
default:
|
|
buffer[length++] = ch;
|
|
buffer[length] = '\0';
|
|
|
|
/* put the string in, one character at a time */
|
|
col = ColOf(buffer, length - 1, margin);
|
|
switch (option) {
|
|
case oDefault:
|
|
if (move(row, col) != ERR) {
|
|
InsStr(buffer + length - 1);
|
|
}
|
|
break;
|
|
case oMove:
|
|
MvInsStr(row, col, buffer + length - 1);
|
|
break;
|
|
case oWindow:
|
|
if (wmove(work, row, col) != ERR) {
|
|
WInsStr(work, buffer + length - 1);
|
|
}
|
|
break;
|
|
case oMoveWindow:
|
|
MvWInsStr(work, row, col, buffer + length - 1);
|
|
break;
|
|
}
|
|
|
|
/* do the corresponding single-character insertion */
|
|
switch (option) {
|
|
case oDefault:
|
|
if (move(limit + row, col) != ERR) {
|
|
InsCh(ch);
|
|
}
|
|
break;
|
|
case oMove:
|
|
MvInsCh(limit + row, col, ch);
|
|
break;
|
|
case oWindow:
|
|
if (wmove(work, limit + row, col) != ERR) {
|
|
WInsCh(work, ch);
|
|
}
|
|
break;
|
|
case oMoveWindow:
|
|
MvWInsCh(work, limit + row, col, ch);
|
|
break;
|
|
}
|
|
|
|
wnoutrefresh(work);
|
|
|
|
legend(show, level, option, buffer, length);
|
|
wnoutrefresh(show);
|
|
|
|
doupdate();
|
|
break;
|
|
}
|
|
}
|
|
if (level > 0) {
|
|
delwin(show);
|
|
delwin(work);
|
|
delwin(look);
|
|
}
|
|
}
|
|
|
|
static void
|
|
usage(void)
|
|
{
|
|
static const char *tbl[] =
|
|
{
|
|
"Usage: inserts [options]"
|
|
,""
|
|
,"Options:"
|
|
," -n NUM limit string-inserts to NUM bytes on ^N replay"
|
|
," -m perform wmove/move separately from insert-functions"
|
|
," -w use window-parameter even when stdscr would be implied"
|
|
};
|
|
unsigned n;
|
|
for (n = 0; n < SIZEOF(tbl); ++n)
|
|
fprintf(stderr, "%s\n", tbl[n]);
|
|
ExitProgram(EXIT_FAILURE);
|
|
}
|
|
|
|
int
|
|
main(int argc GCC_UNUSED, char *argv[]GCC_UNUSED)
|
|
{
|
|
int ch;
|
|
|
|
setlocale(LC_ALL, "");
|
|
|
|
while ((ch = getopt(argc, argv, "mn:w")) != EOF) {
|
|
switch (ch) {
|
|
case 'm':
|
|
m_opt = TRUE;
|
|
break;
|
|
case 'n':
|
|
n_opt = atoi(optarg);
|
|
if (n_opt == 0)
|
|
n_opt = -1;
|
|
break;
|
|
case 'w':
|
|
w_opt = TRUE;
|
|
break;
|
|
default:
|
|
usage();
|
|
break;
|
|
}
|
|
}
|
|
if (optind < argc)
|
|
usage();
|
|
|
|
test_inserts(0);
|
|
endwin();
|
|
ExitProgram(EXIT_SUCCESS);
|
|
}
|
|
#else
|
|
int
|
|
main(void)
|
|
{
|
|
printf("This program requires the wide-ncurses library\n");
|
|
ExitProgram(EXIT_FAILURE);
|
|
}
|
|
#endif
|