/****************************************************************************
* apps/examples/pdcurses/testcurs_main.c
*
* Licensed to the Apache Software Foundation (ASF) under one or more
* contributor license agreements. See the NOTICE file distributed with
* this work for additional information regarding copyright ownership. The
* ASF licenses this file to you under the Apache License, Version 2.0 (the
* "License"); you may not use this file except in compliance with the
* License. You may obtain a copy of the License at
*
* http://www.apache.org/licenses/LICENSE-2.0
*
* Unless required by applicable law or agreed to in writing, software
* distributed under the License is distributed on an "AS IS" BASIS, WITHOUT
* WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the
* License for the specific language governing permissions and limitations
* under the License.
*
****************************************************************************/
/****************************************************************************
* Adapted from the original public domain pdcurses by Gregory Nutt
****************************************************************************/
/****************************************************************************
* Included Files
****************************************************************************/
#include <stdio.h>
#include <ctype.h>
#include <string.h>
#include "graphics/curses.h"
/****************************************************************************
* Pre-processor Definitions
****************************************************************************/
#ifdef WACS_S1
# define HAVE_WIDE 1
#else
# define HAVE_WIDE 0
#endif
#include <locale.h>
#if HAVE_WIDE
# include <wchar.h>
#endif
#ifdef A_COLOR
# define HAVE_COLOR 1
#else
# define HAVE_COLOR 0
#endif
/* Set to non-zero if you want to test the PDCurses clipboard */
#define HAVE_CLIPBOARD 0
/****************************************************************************
* Private Types
****************************************************************************/
struct commands
{
const char *text;
void (*function) (WINDOW *);
};
typedef struct commands COMMAND;
/****************************************************************************
* Private Function Prototypes
****************************************************************************/
static void continue1(WINDOW *win);
#if HAVE_CLIPBOARD || HAVE_WIDE
static void continue2(void);
#endif
static void input_test(WINDOW *);
static void scroll_test(WINDOW *);
static void intro_test(WINDOW *);
static int init_test(WINDOW **, int, char **);
static void output_test(WINDOW *);
static void pad_test(WINDOW *);
static void acs_test(WINDOW *);
#if HAVE_COLOR
static void color_test(WINDOW *);
#endif
static void resize_test(WINDOW *);
#if HAVE_CLIPBOARD
static void clipboard_test(WINDOW *);
#endif
#if HAVE_WIDE
static void wide_test(WINDOW *);
#endif
static void display_menu(int, int);
static const COMMAND command[] =
{
{"Intro Test", intro_test},
{"Pad Test", pad_test},
{"Resize Test", resize_test},
{"Scroll Test", scroll_test},
{"Input Test", input_test},
{"Output Test", output_test},
{"ACS Test", acs_test}
#if HAVE_COLOR
, {"Color Test", color_test}
#endif
#if HAVE_CLIPBOARD
, {"Clipboard Test", clipboard_test}
#endif
#if HAVE_WIDE
, {"Wide Input", wide_test}
#endif
};
#define MAX_OPTIONS (sizeof(command) / sizeof(COMMAND))
static int height;
static int width;
static const char *acs_names[] =
{
"ACS_ULCORNER", "ACS_URCORNER", "ACS_LLCORNER", "ACS_LRCORNER",
"ACS_LTEE", "ACS_RTEE", "ACS_TTEE", "ACS_BTEE", "ACS_HLINE",
"ACS_VLINE", "ACS_PLUS",
"ACS_S1", "ACS_S9", "ACS_DIAMOND", "ACS_CKBOARD", "ACS_DEGREE",
"ACS_PLMINUS", "ACS_BULLET",
"ACS_LARROW", "ACS_RARROW", "ACS_UARROW", "ACS_DARROW",
"ACS_BOARD", "ACS_LANTERN", "ACS_BLOCK"
#ifdef ACS_S3
, "ACS_S3", "ACS_S7", "ACS_LEQUAL", "ACS_GEQUAL",
"ACS_PI", "ACS_NEQUAL", "ACS_STERLING"
#endif
};
#ifdef ACS_S3
# define ACSNUM 32
#else
# define ACSNUM 25
#endif
#if HAVE_WIDE
static const cchar_t *wacs_values[] =
{
WACS_ULCORNER, WACS_URCORNER, WACS_LLCORNER, WACS_LRCORNER,
WACS_LTEE, WACS_RTEE, WACS_TTEE, WACS_BTEE, WACS_HLINE,
WACS_VLINE, WACS_PLUS,
WACS_S1, WACS_S9, WACS_DIAMOND, WACS_CKBOARD, WACS_DEGREE,
WACS_PLMINUS, WACS_BULLET,
WACS_LARROW, WACS_RARROW, WACS_UARROW, WACS_DARROW, WACS_BOARD,
WACS_LANTERN, WACS_BLOCK
#ifdef WACS_S3
, WACS_S3, WACS_S7, WACS_LEQUAL, WACS_GEQUAL, WACS_PI,
WACS_NEQUAL, WACS_STERLING
#endif
};
static const wchar_t russian[] =
{
0x0420, 0x0443, 0x0441, 0x0441, 0x043a, 0x0438, 0x0439, L' ',
0x044f, 0x0437, 0x044b, 0x043a, 0
};
static const wchar_t greek[] =
{
0x0395, 0x03bb, 0x03bb, 0x03b7, 0x03bd, 0x03b9, 0x03ba, 0x03ac, 0
};
static const wchar_t georgian[] =
{
0x10e5, 0x10d0, 0x10e0, 0x10d7, 0x10e3, 0x10da, 0x10d8, L' ', 0x10d4,
0x10dc, 0x10d0, 0
};
#endif
#if HAVE_COLOR
static const short colors[] =
{
COLOR_BLACK, COLOR_RED, COLOR_GREEN, COLOR_BLUE,
COLOR_CYAN, COLOR_MAGENTA, COLOR_YELLOW, COLOR_WHITE
};
static const char *colornames[] =
{
"COLOR_BLACK", "COLOR_RED", "COLOR_GREEN", "COLOR_BLUE",
"COLOR_CYAN", "COLOR_MAGENTA", "COLOR_YELLOW", "COLOR_WHITE"
};
#endif
/****************************************************************************
* Private Functions
****************************************************************************/
static void continue1(WINDOW *win)
{
mvwaddstr(win, 10, 1, " Press any key to continue");
wrefresh(win);
raw();
wgetch(win);
}
#if HAVE_CLIPBOARD || HAVE_WIDE
static void continue2(void)
{
move(LINES - 1, 1);
clrtoeol();
mvaddstr(LINES - 2, 1, " Press any key to continue");
refresh();
raw();
getch();
}
#endif
static int init_test(WINDOW ** win, int argc, char *argv[])
{
#ifdef CONFIG_PDCURSES_MULTITHREAD
FAR struct pdc_context_s *ctx = PDC_ctx();
#endif
traceon();
initscr();
#ifdef A_COLOR
if (has_colors())
{
start_color();
}
#endif
/* Create a drawing window */
width = 60;
height = 13;
*win = newwin(height, width, (LINES - height) / 2, (COLS - width) / 2);
if (*win == NULL)
{
endwin();
return 1;
}
return 0;
}
static void intro_test(WINDOW *win)
{
werase(win);
wmove(win, height / 2 - 5, width / 2);
wvline(win, ACS_VLINE, 10);
wmove(win, height / 2, width / 2 - 10);
whline(win, ACS_HLINE, 20);
continue1(win);
beep();
werase(win);
box(win, ACS_VLINE, ACS_HLINE);
wrefresh(win);
cbreak();
mvwaddstr(win, 1, 1,
"You should have a rectangle in the middle of the screen");
mvwaddstr(win, 2, 1, "You should have heard a beep");
continue1(win);
flash();
mvwaddstr(win, 3, 1, "You should have seen a flash");
continue1(win);
}
static void scroll_test(WINDOW *win)
{
int oldy;
int i;
werase(win);
mvwaddstr(win, height - 2, 1, "The window will now scroll slowly");
box(win, ACS_VLINE, ACS_HLINE);
wrefresh(win);
scrollok(win, true);
napms(500);
for (i = 1; i <= height; i++)
{
napms(150);
scroll(win);
wrefresh(win);
};
oldy = getmaxy(win);
mvwaddstr(win, 6, 1, "The top of the window will scroll");
wmove(win, 1, 1);
wsetscrreg(win, 0, 4);
box(win, ACS_VLINE, ACS_HLINE);
wrefresh(win);
for (i = 1; i <= 5; i++)
{
napms(500);
scroll(win);
wrefresh(win);
}
mvwaddstr(win, 3, 1, "The bottom of the window will scroll");
wmove(win, 8, 1);
wsetscrreg(win, 5, --oldy);
box(win, ACS_VLINE, ACS_HLINE);
wrefresh(win);
for (i = 5; i <= oldy; i++)
{
napms(300);
wscrl(win, -1);
wrefresh(win);
}
wsetscrreg(win, 0, oldy);
}
static void input_test(WINDOW *win)
{
int w;
int h;
int bx;
int by;
int sw;
int sh;
int i;
int c;
int num = 0;
char buffer[80];
WINDOW *subWin;
static const char spinner[4] = "/-\\|";
int spinner_count = 0;
#ifdef CONFIG_PDCURSES_MULTITHREAD
FAR struct pdc_context_s *ctx = PDC_ctx();
#endif
wclear(win);
getmaxyx(win, h, w);
getbegyx(win, by, bx);
sw = w / 3;
sh = h / 3;
if ((subWin = subwin(win, sh, sw, by + h - sh - 2, bx + w - sw - 2)) == NULL)
{
return;
}
#ifdef A_COLOR
if (has_colors())
{
init_pair(2, COLOR_WHITE, COLOR_RED);
wbkgd(subWin, COLOR_PAIR(2) | A_BOLD);
}
else
#endif
{
wbkgd(subWin, A_BOLD);
}
box(subWin, ACS_VLINE, ACS_HLINE);
wrefresh(win);
nocbreak();
wclear(win);
mvwaddstr(win, 1, 1, "Press keys (or mouse buttons) to show their names");
mvwaddstr(win, 2, 1, "Press spacebar to finish");
wrefresh(win);
keypad(win, true);
raw();
noecho();
wtimeout(win, 200);
mouse_set(ALL_MOUSE_EVENTS);
PDC_save_key_modifiers(true);
PDC_return_key_modifiers(true);
curs_set(0); /* turn cursor off */
while (1)
{
while (1)
{
c = wgetch(win);
if (c == ERR)
{
spinner_count++;
if (spinner_count == 4)
{
spinner_count = 0;
}
mvwaddch(win, 3, 3, spinner[spinner_count]);
wrefresh(win);
}
else
{
break;
}
}
wmove(win, 4, 18);
wclrtoeol(win);
mvwaddstr(win, 3, 5, "Key Pressed: ");
wclrtoeol(win);
if (c >= KEY_MIN)
{
wprintw(win, "%s", keyname(c));
}
else if (isprint(c))
{
wprintw(win, "%c", c);
}
else
{
wprintw(win, "%s", unctrl(c));
}
if (c == KEY_MOUSE)
{
int button = 0;
request_mouse_pos();
if (BUTTON_CHANGED(1))
{
button = 1;
}
else if (BUTTON_CHANGED(2))
{
button = 2;
}
else if (BUTTON_CHANGED(3))
{
button = 3;
}
if (button && (BUTTON_STATUS(button) & BUTTON_MODIFIER_MASK))
{
waddstr(win, " Modifier(s):");
if (BUTTON_STATUS(button) & BUTTON_SHIFT)
{
waddstr(win, " SHIFT");
}
if (BUTTON_STATUS(button) & BUTTON_CONTROL)
{
waddstr(win, " CONTROL");
}
if (BUTTON_STATUS(button) & BUTTON_ALT)
{
waddstr(win, " ALT");
}
}
wmove(win, 4, 18);
wclrtoeol(win);
wprintw(win, "Button %d: ", button);
if (MOUSE_MOVED)
{
waddstr(win, "moved: ");
}
else if (MOUSE_WHEEL_UP)
{
waddstr(win, "wheel up: ");
}
else if (MOUSE_WHEEL_DOWN)
{
waddstr(win, "wheel dn: ");
}
else if ((BUTTON_STATUS(button) &
BUTTON_ACTION_MASK) == BUTTON_PRESSED)
{
waddstr(win, "pressed: ");
}
else if ((BUTTON_STATUS(button) &
BUTTON_ACTION_MASK) == BUTTON_CLICKED)
{
waddstr(win, "clicked: ");
}
else if ((BUTTON_STATUS(button) &
BUTTON_ACTION_MASK) == BUTTON_DOUBLE_CLICKED)
{
waddstr(win, "double: ");
}
else
{
waddstr(win, "released: ");
}
wprintw(win, "Position: Y: %d X: %d", MOUSE_Y_POS, MOUSE_X_POS);
}
else if (PDC_get_key_modifiers())
{
waddstr(win, " Modifier(s):");
if (PDC_get_key_modifiers() & PDC_KEY_MODIFIER_SHIFT)
{
waddstr(win, " SHIFT");
}
if (PDC_get_key_modifiers() & PDC_KEY_MODIFIER_CONTROL)
{
waddstr(win, " CONTROL");
}
if (PDC_get_key_modifiers() & PDC_KEY_MODIFIER_ALT)
{
waddstr(win, " ALT");
}
if (PDC_get_key_modifiers() & PDC_KEY_MODIFIER_NUMLOCK)
{
waddstr(win, " NUMLOCK");
}
}
wrefresh(win);
if (c == ' ')
{
break;
}
}
wtimeout(win, -1); /* turn off timeout() */
curs_set(1); /* turn cursor back on */
mouse_set(0L);
PDC_save_key_modifiers(false);
PDC_return_key_modifiers(false);
wclear(win);
mvwaddstr(win, 2, 1, "Press some keys for 5 seconds");
mvwaddstr(win, 1, 1, "Pressing ^C should do nothing");
wrefresh(win);
werase(subWin);
box(subWin, ACS_VLINE, ACS_HLINE);
for (i = 0; i < 5; i++)
{
mvwprintw(subWin, 1, 1, "Time = %d", i);
wrefresh(subWin);
napms(1000);
flushinp();
}
delwin(subWin);
werase(win);
flash();
wrefresh(win);
napms(500);
flushinp();
mvwaddstr(win, 2, 1, "Press a key, followed by ENTER");
wmove(win, 9, 10);
wrefresh(win);
echo();
keypad(win, true);
raw();
wgetnstr(win, buffer, 3);
flushinp();
wmove(win, 9, 10);
wdelch(win);
mvwaddstr(win, 4, 1, "The character should now have been deleted");
continue1(win);
refresh();
wclear(win);
echo();
buffer[0] = '\0';
mvwaddstr(win, 3, 2, "The window should have moved");
mvwaddstr(win, 4, 2,
"This text should have appeared without you pressing a key");
mvwaddstr(win, 6, 2, "Enter a number then a string separated by space");
mvwin(win, 2, 1);
wrefresh(win);
mvwscanw(win, 7, 6, "%d %s", &num, buffer);
mvwprintw(win, 8, 6, "String: %s Number: %d", buffer, num);
continue1(win);
refresh();
wclear(win);
echo();
mvwaddstr(win, 3, 2, "Enter a 5 character string: ");
wgetnstr(win, buffer, 5);
mvwprintw(win, 4, 2, "String: %s", buffer);
continue1(win);
}
static void output_test(WINDOW *win)
{
WINDOW *win1;
char Buffer[80];
chtype ch;
int bx;
int by;
#ifdef CONFIG_PDCURSES_MULTITHREAD
FAR struct pdc_context_s *ctx = PDC_ctx();
#endif
nl();
wclear(win);
mvwaddstr(win, 1, 1, "You should now have a screen in the upper "
"left corner, and this text should have wrapped");
waddstr(win, "\nThis text should be down\n");
waddstr(win, "and broken into two here ^");
continue1(win);
wclear(win);
wattron(win, A_BOLD);
mvwaddstr(win, 1, 1, "A new window will appear with this text in it");
mvwaddstr(win, 8, 1, "Press any key to continue");
wrefresh(win);
wgetch(win);
getbegyx(win, by, bx);
if (LINES < 24 || COLS < 75)
{
mvwaddstr(win, 5, 1, "Some tests have been skipped as they require a");
mvwaddstr(win, 6, 1, "display of at least 24 LINES by 75 COLUMNS");
continue1(win);
}
else
{
win1 = newwin(10, 50, 14, 25);
if (win1 == NULL)
{
endwin();
return;
}
#ifdef A_COLOR
if (has_colors())
{
init_pair(3, COLOR_BLUE, COLOR_WHITE);
wbkgd(win1, COLOR_PAIR(3));
}
else
#endif
{
wbkgd(win1, A_NORMAL);
}
wclear(win1);
mvwaddstr(win1, 5, 1, "This text should appear; using overlay option");
copywin(win, win1, 0, 0, 0, 0, 9, 49, true);
box(win1, ACS_VLINE, ACS_HLINE);
wmove(win1, 8, 26);
wrefresh(win1);
wgetch(win1);
wclear(win1);
wattron(win1, A_BLINK);
mvwaddstr(win1, 4, 1,
"This blinking text should appear in only the second window");
wattroff(win1, A_BLINK);
mvwin(win1, by, bx);
overlay(win, win1);
mvwin(win1, 14, 25);
wmove(win1, 8, 26);
wrefresh(win1);
wgetch(win1);
delwin(win1);
}
clear();
wclear(win);
wrefresh(win);
mvwaddstr(win, 6, 2, "This line shouldn't appear");
mvwaddstr(win, 4, 2, "Only half of the next line is visible");
mvwaddstr(win, 5, 2, "Only half of the next line is visible");
wmove(win, 6, 1);
wclrtobot(win);
wmove(win, 5, 20);
wclrtoeol(win);
mvwaddstr(win, 8, 2, "This line also shouldn't appear");
wmove(win, 8, 1);
winsdelln(win, -1);
continue1(win);
wmove(win, 5, 9);
ch = winch(win);
wclear(win);
wmove(win, 6, 2);
waddstr(win, "The next char should be l: ");
winsch(win, ch);
continue1(win);
mvwinsstr(win, 6, 2, "A1B2C3D4E5");
continue1(win);
wmove(win, 5, 1);
winsdelln(win, 1);
mvwaddstr(win, 5, 2, "The lines below should have moved down");
continue1(win);
wclear(win);
wmove(win, 2, 2);
wprintw(win, "This is a formatted string in a window: %d %s\n", 42, "is it");
mvwaddstr(win, 10, 1, "Enter a string: ");
wrefresh(win);
echo();
wscanw(win, "%s", Buffer);
printw("This is a formatted string in stdscr: %d %s\n", 42, "is it");
mvaddstr(10, 1, "Enter a string: ");
scanw("%s", Buffer);
wclear(win);
curs_set(2);
mvwaddstr(win, 1, 1, "The cursor should be in high-visibility mode");
continue1(win);
wclear(win);
curs_set(0);
mvwaddstr(win, 1, 1, "The cursor should have disappeared");
continue1(win);
wclear(win);
curs_set(1);
mvwaddstr(win, 1, 1, "The cursor should be normal");
continue1(win);
#ifdef A_COLOR
if (has_colors())
{
wclear(win);
mvwaddstr(win, 1, 1, "Colors should change after you press a key");
continue1(win);
init_pair(1, COLOR_RED, COLOR_WHITE);
wrefresh(win);
}
#endif
werase(win);
mvwaddstr(win, 1, 1, "Information About Your Terminal");
mvwaddstr(win, 3, 1, termname());
mvwaddstr(win, 4, 1, longname());
if (termattrs() & A_BLINK)
{
mvwaddstr(win, 5, 1, "This terminal claims to support blinking.");
}
else
{
mvwaddstr(win, 5, 1, "This terminal does NOT support blinking.");
}
mvwaddnstr(win, 7, 5, "Have a nice day!ok", 16);
wrefresh(win);
mvwinnstr(win, 7, 5, Buffer, 18);
mvaddstr(LINES - 2, 10, Buffer);
refresh();
continue1(win);
}
static void resize_test(WINDOW *dummy)
{
WINDOW *win1;
int nwidth = 135;
int nheight = 52;
#ifdef CONFIG_PDCURSES_MULTITHREAD
FAR struct pdc_context_s *ctx = PDC_ctx();
#endif
int owidth = COLS;
int oheight = LINES;
savetty();
resize_term(nheight, nwidth);
clear();
refresh();
win1 = newwin(10, 50, 14, 25);
if (win1 == NULL)
{
endwin();
return;
}
#ifdef A_COLOR
if (has_colors())
{
init_pair(3, COLOR_BLUE, COLOR_WHITE);
wattrset(win1, COLOR_PAIR(3));
}
wclear(win1);
#endif
mvwaddstr(win1, 0, 0, "The screen may now be resized");
mvwprintw(win1, 1, 4, "Given size: %d by %d", nwidth, nheight);
mvwprintw(win1, 2, 4, "Actual size: %d by %d", COLS, LINES);
continue1(win1);
wclear(win1);
resetty();
mvwaddstr(win1, 0, 0, "The screen should now be reset");
mvwprintw(win1, 1, 6, "Old size: %d by %d", owidth, oheight);
mvwprintw(win1, 2, 6, "Size now: %d by %d", COLS, LINES);
continue1(win1);
delwin(win1);
clear();
refresh();
}
static void pad_test(WINDOW *dummy)
{
WINDOW *pad;
WINDOW *spad;
pad = newpad(50, 100);
wattron(pad, A_REVERSE);
mvwaddstr(pad, 5, 2, "This is a new pad");
wattrset(pad, 0);
mvwaddstr(pad, 8, 0,
"The end of this line should be truncated here:except now");
mvwaddstr(pad, 11, 1, "This line should not appear.It will now");
wmove(pad, 10, 1);
wclrtoeol(pad);
mvwaddstr(pad, 10, 1, " Press any key to continue");
prefresh(pad, 0, 0, 0, 0, 10, 45);
keypad(pad, true);
raw();
wgetch(pad);
spad = subpad(pad, 12, 25, 7, 52);
mvwaddstr(spad, 2, 2, "This is a new subpad");
box(spad, 0, 0);
prefresh(pad, 0, 0, 0, 0, 15, 75);
keypad(pad, true);
raw();
wgetch(pad);
mvwaddstr(pad, 35, 2, "This is displayed at line 35 in the pad");
mvwaddstr(pad, 40, 1, " Press any key to continue");
prefresh(pad, 30, 0, 0, 0, 10, 45);
keypad(pad, true);
raw();
wgetch(pad);
delwin(pad);
}
#if HAVE_CLIPBOARD
static void clipboard_test(WINDOW *win)
{
static const char *text =
"This string placed in clipboard by PDCurses test program, testcurs.";
char *ptr = NULL;
long length = 0;
long i;
#ifdef CONFIG_PDCURSES_MULTITHREAD
FAR struct pdc_context_s *ctx = PDC_ctx();
#endif
mvaddstr(1, 1, "This test will display the contents of the system clipboard");
continue2();
scrollok(stdscr, true);
i = PDC_getclipboard(&ptr, &length);
switch (i)
{
case PDC_CLIP_ACCESS_ERROR:
mvaddstr(3, 1, "There was an error accessing the clipboard");
refresh();
break;
case PDC_CLIP_MEMORY_ERROR:
mvaddstr(3, 1, "Unable to allocate memory for clipboard contents");
break;
case PDC_CLIP_EMPTY:
mvaddstr(3, 1, "There was no text in the clipboard");
break;
default:
wsetscrreg(stdscr, 0, LINES - 1);
clear();
mvaddstr(1, 1, "Clipboard contents...");
mvprintw(2, 1, "%s\n", ptr);
}
continue2();
clear();
mvaddstr(1, 1,
"This test will place the following string in the system clipboard:");
mvaddstr(2, 1, text);
i = PDC_setclipboard(text, strlen(text));
switch (i)
{
case PDC_CLIP_ACCESS_ERROR:
mvaddstr(3, 1, "There was an error accessing the clipboard");
break;
case PDC_CLIP_MEMORY_ERROR:
mvaddstr(3, 1, "Unable to allocate memory for clipboard contents");
break;
default:
mvaddstr(3, 1, "The string was placed in the clipboard successfully");
}
continue2();
}
#endif /* HAVE_CLIPBOARD */
static void acs_test(WINDOW *win)
{
#ifdef CONFIG_PDCURSES_MULTITHREAD
FAR struct pdc_context_s *ctx = PDC_ctx();
#endif
chtype acs_values[ACSNUM];
int tmarg = (LINES - 22) / 2;
int i;
attrset(A_BOLD);
mvaddstr(tmarg, (COLS - 23) / 2, "Alternate Character Set");
attrset(A_NORMAL);
tmarg += 3;
#define A(b,c) acs_values[b] = ACS_##c
A(0, ULCORNER);
A(1, URCORNER);
A(2, LLCORNER);
A(3, LRCORNER);
A(4, LTEE);
A(5, RTEE);
A(6, TTEE);
A(7, BTEE);
A(8, HLINE);
A(9, VLINE);
A(10, PLUS);
A(11, S1);
A(12, S9);
A(13, DIAMOND);
A(14, CKBOARD);
A(15, DEGREE);
A(16, PLMINUS);
A(17, BULLET);
A(18, LARROW);
A(19, RARROW);
A(20, UARROW);
A(21, DARROW);
A(22, BOARD);
A(23, LANTERN);
A(24, BLOCK);
#ifdef ACS_S3
A(25, S3);
A(26, S7);
A(27, LEQUAL);
A(28, GEQUAL);
A(29, PI);
A(30, NEQUAL);
A(31, STERLING);
#endif
#undef A
for (i = 0; i < ACSNUM; i++)
{
move((i % 8) * 2 + tmarg, (i / 8) * (COLS / 4) + (COLS / 8 - 7));
addch(acs_values[i]);
printw(" %s", acs_names[i]);
}
mvaddstr(tmarg + 18, 3, "Press any key to continue");
getch();
#if HAVE_WIDE
clear();
attrset(A_BOLD);
mvaddstr(tmarg - 3, (COLS - 28) / 2, "Wide Alternate Character Set");
attrset(A_NORMAL);
for (i = 0; i < ACSNUM; i++)
{
move((i % 8) * 2 + tmarg, (i / 8) * (COLS / 4) + (COLS / 8 - 7));
add_wch(wacs_values[i]);
printw(" W%s", acs_names[i]);
}
/* Spanish, Russian, Greek, Georgian */
mvaddwstr(tmarg + 16, COLS / 8 - 5, L"Espa\xf1ol");
mvaddwstr(tmarg + 16, 3 * (COLS / 8) - 5, russian);
mvaddwstr(tmarg + 16, 5 * (COLS / 8) - 5, greek);
mvaddwstr(tmarg + 16, 7 * (COLS / 8) - 5, georgian);
mvaddstr(tmarg + 18, 3, "Press any key to continue");
getch();
#endif
}
#if HAVE_COLOR
static void color_test(WINDOW *win)
{
chtype fill = ACS_BLOCK;
int tmarg;
int col1;
int col2;
int col3;
int i;
int j;
#ifdef CONFIG_PDCURSES_MULTITHREAD
FAR struct pdc_context_s *ctx = PDC_ctx();
#endif
if (!has_colors())
{
return;
}
tmarg = (LINES - 19) / 2;
col1 = (COLS - 60) / 2;
col2 = col1 + 20;
col3 = col2 + 20;
attrset(A_BOLD);
mvaddstr(tmarg, (COLS - 22) / 2, "Color Attribute Macros");
attrset(A_NORMAL);
mvaddstr(tmarg + 3, col2 + 4, "A_NORMAL");
mvaddstr(tmarg + 3, col3 + 5, "A_BOLD");
for (i = 0; i < 8; i++)
{
init_pair(i + 4, colors[i], COLOR_BLACK);
mvaddstr(tmarg + i + 5, col1, colornames[i]);
for (j = 0; j < 16; j++)
{
mvaddch(tmarg + i + 5, col2 + j, fill | COLOR_PAIR(i + 4));
mvaddch(tmarg + i + 5, col3 + j, fill | COLOR_PAIR(i + 4) | A_BOLD);
}
}
mvprintw(tmarg + 15, col1, "COLORS = %d", COLORS);
mvprintw(tmarg + 16, col1, "COLOR_PAIRS = %d", COLOR_PAIRS);
mvaddstr(tmarg + 19, 3, "Press any key to continue");
getch();
if (can_change_color())
{
struct
{
short red;
short green;
short blue;
} orgcolors[16];
int MAXCOL = (COLORS >= 16) ? 16 : 8;
if (MAXCOL < 8)
{
return;
}
for (i = 0; i < MAXCOL; i++)
{
color_content(i, &(orgcolors[i].red),
&(orgcolors[i].green), &(orgcolors[i].blue));
}
attrset(A_BOLD);
mvaddstr(tmarg, (COLS - 22) / 2, " init_color() Example ");
attrset(A_NORMAL);
refresh();
for (i = 0; i < 8; i++)
{
init_color(colors[i], i * 125, 0, i * 125);
if (MAXCOL == 16)
{
init_color(colors[i] + 8, 0, i * 125, 0);
}
}
mvaddstr(tmarg + 19, 3, "Press any key to continue");
getch();
for (i = 0; i < MAXCOL; i++)
{
init_color(i, orgcolors[i].red, orgcolors[i].green, orgcolors[i].blue);
}
}
}
#endif
#if HAVE_WIDE
static void wide_test(WINDOW *win)
{
wchar_t tmp[513];
size_t i;
#ifdef CONFIG_PDCURSES_MULTITHREAD
FAR struct pdc_context_s *ctx = PDC_ctx();
#endif
attrset(A_BOLD);
mvaddstr(1, (COLS - 25) / 2, "Wide Character Input Test");
attrset(A_NORMAL);
mvaddstr(4, 1, "Enter a string: ");
echo();
get_wstr((wint_t *) tmp);
addstr("\n\n String:\n\n ");
addwstr(tmp);
addstr("\n\n\n Hex:\n\n ");
for (i = 0; i < wcslen(tmp); i++)
{
printw("%04x ", tmp[i]);
addnwstr(tmp + i, 1);
addstr(" ");
}
noecho();
continue2();
}
#endif
void display_menu(int old_option, int new_option)
{
#ifdef CONFIG_PDCURSES_MULTITHREAD
FAR struct pdc_context_s *ctx = PDC_ctx();
#endif
int lmarg = (COLS - 14) / 2, tmarg = (LINES - (MAX_OPTIONS + 2)) / 2;
if (old_option == -1)
{
int i;
attrset(A_BOLD);
mvaddstr(tmarg - 3, lmarg - 5, "PDCurses Test Program");
attrset(A_NORMAL);
for (i = 0; i < MAX_OPTIONS; i++)
{
mvaddstr(tmarg + i, lmarg, command[i].text);
}
}
else
{
mvaddstr(tmarg + old_option, lmarg, command[old_option].text);
}
attrset(A_REVERSE);
mvaddstr(tmarg + new_option, lmarg, command[new_option].text);
attrset(A_NORMAL);
mvaddstr(tmarg + MAX_OPTIONS + 2, lmarg - 23,
"Use Up and Down Arrows to select - Enter to run - Q to quit");
refresh();
}
/****************************************************************************
* Public Functions
****************************************************************************/
int main(int argc, FAR char *argv[])
{
WINDOW *win;
int key;
int old_option = -1;
int new_option = 0;
bool quit = false;
#ifdef CONFIG_PDCURSES_MULTITHREAD
FAR struct pdc_context_s *ctx = PDC_ctx();
#endif
#ifdef CONFIG_LIBC_LOCALE
setlocale(LC_ALL, "");
#endif
if (init_test(&win, argc, argv))
{
return 1;
}
#ifdef A_COLOR
if (has_colors())
{
init_pair(1, COLOR_WHITE, COLOR_BLUE);
wbkgd(win, COLOR_PAIR(1));
}
else
#endif
{
wbkgd(win, A_REVERSE);
}
erase();
display_menu(old_option, new_option);
while (1)
{
noecho();
keypad(stdscr, true);
raw();
key = getch();
switch (key)
{
case 10:
case 13:
case KEY_ENTER:
old_option = -1;
erase();
refresh();
(*command[new_option].function) (win);
erase();
display_menu(old_option, new_option);
break;
case KEY_PPAGE:
case KEY_HOME:
old_option = new_option;
new_option = 0;
display_menu(old_option, new_option);
break;
case KEY_NPAGE:
case KEY_END:
old_option = new_option;
new_option = MAX_OPTIONS - 1;
display_menu(old_option, new_option);
break;
case KEY_UP:
old_option = new_option;
new_option = (new_option == 0) ? new_option : new_option - 1;
display_menu(old_option, new_option);
break;
case KEY_DOWN:
old_option = new_option;
new_option = (new_option == MAX_OPTIONS - 1) ?
new_option : new_option + 1;
display_menu(old_option, new_option);
break;
#ifdef KEY_RESIZE
case KEY_RESIZE:
resize_term(0, 0);
old_option = -1;
erase();
display_menu(old_option, new_option);
break;
#endif
case 'Q':
case 'q':
quit = true;
break;
}
if (quit == true)
{
break;
}
}
delwin(win);
endwin();
return 0;
}