--- /dev/null
+/*
+ * $Id: demo_defkey.c,v 1.13 2004/01/04 00:01:13 tom Exp $
+ *
+ * Demonstrate the define_key() function.
+ * Thomas Dickey - 2002/11/23
+ */
+
+#include <test.priv.h>
+
+#if defined(NCURSES_VERSION) && NCURSES_EXT_FUNCS
+
+#include <term.h>
+
+#define MY_LOGFILE "demo_defkey.log"
+
+/*
+ * Log the most recently-written line to our logfile
+ */
+static void
+log_last_line(WINDOW *win)
+{
+ FILE *fp;
+ int y, x, n;
+ char temp[256];
+
+ if ((fp = fopen(MY_LOGFILE, "a")) != 0) {
+ getyx(win, y, x);
+ wmove(win, y - 1, 0);
+ n = winnstr(win, temp, sizeof(temp));
+ while (n-- > 0) {
+ if (isspace(UChar(temp[n])))
+ temp[n] = '\0';
+ else
+ break;
+ }
+ wmove(win, y, x);
+ fprintf(fp, "%s\n", temp);
+ fclose(fp);
+ }
+}
+
+/*
+ * Convert a character to visible form.
+ */
+static char *
+visichar(int ch)
+{
+ static char temp[10];
+
+ ch = UChar(ch);
+ if (ch == '\\') {
+ strcpy(temp, "\\\\");
+ } else if (ch == '\033') {
+ strcpy(temp, "\\E");
+ } else if (ch < ' ') {
+ sprintf(temp, "\\%03o", ch);
+ } else if (ch >= 127) {
+ sprintf(temp, "\\%03o", ch);
+ } else {
+ sprintf(temp, "%c", ch);
+ }
+ return temp;
+}
+
+/*
+ * Convert a string to visible form.
+ */
+static char *
+visible(const char *string)
+{
+ char *result = 0;
+ unsigned need = 1;
+ int pass;
+ int n;
+
+ if (string != 0 && *string != '\0') {
+ for (pass = 0; pass < 2; ++pass) {
+ for (n = 0; string[n] != '\0'; ++n) {
+ char temp[80];
+ strcpy(temp, visichar(string[n]));
+ if (pass)
+ strcat(result, temp);
+ else
+ need += strlen(temp);
+ }
+ if (!pass)
+ result = (char *) calloc(need, 1);
+ }
+ } else {
+ result = (char *) calloc(1, 1);
+ }
+ return result;
+}
+
+static void
+really_define_key(WINDOW *win, const char *new_string, int code)
+{
+ int rc;
+ const char *code_name = keyname(code);
+ char *old_string;
+ char *vis_string = 0;
+ char temp[80];
+
+ if (code_name == 0) {
+ sprintf(temp, "Keycode %d", code);
+ code_name = temp;
+ }
+
+ if ((old_string = keybound(code, 0)) != 0) {
+ wprintw(win, "%s is %s\n",
+ code_name,
+ vis_string = visible(old_string));
+ } else {
+ wprintw(win, "%s is not bound\n",
+ code_name);
+ }
+ log_last_line(win);
+ if (vis_string != 0) {
+ free(vis_string);
+ vis_string = 0;
+ }
+
+ vis_string = visible(new_string);
+ if ((rc = key_defined(new_string)) > 0) {
+ wprintw(win, "%s was bound to %s\n", vis_string, keyname(rc));
+ log_last_line(win);
+ } else if (new_string != 0 && rc < 0) {
+ wprintw(win, "%s conflicts with longer strings\n", vis_string);
+ log_last_line(win);
+ }
+ rc = define_key(new_string, code);
+ if (rc == ERR) {
+ wprintw(win, "%s unchanged\n", code_name);
+ log_last_line(win);
+ } else if (new_string != 0) {
+ wprintw(win, "%s is now bound to %s\n",
+ vis_string,
+ code_name);
+ log_last_line(win);
+ } else if (old_string != 0) {
+ wprintw(win, "%s deleted\n", code_name);
+ log_last_line(win);
+ }
+ if (vis_string != 0 && *vis_string != 0)
+ free(vis_string);
+ if (old_string != 0)
+ free(old_string);
+}
+
+static void
+duplicate(WINDOW *win, NCURSES_CONST char *name, int code)
+{
+ char *value = tigetstr(name);
+
+ if (value != 0) {
+ const char *prefix = 0;
+ char temp[BUFSIZ];
+
+ if (!strncmp(value, "\033[", 2)) {
+ prefix = "\033O";
+ } else if (!strncmp(value, "\033O", 2)) {
+ prefix = "\033[";
+ }
+ if (prefix != 0) {
+ sprintf(temp, "%s%s", prefix, value + 2);
+ really_define_key(win, temp, code);
+ }
+ }
+}
+
+static void
+redefine(WINDOW *win, char *string, int code)
+{
+ really_define_key(win, string, code);
+}
+
+static void
+remove_definition(WINDOW *win, int code)
+{
+ really_define_key(win, 0, code);
+}
+
+int
+main(int argc GCC_UNUSED, char *argv[]GCC_UNUSED)
+{
+ char *fkeys[12];
+ int n;
+ int ch;
+ WINDOW *win;
+
+ unlink(MY_LOGFILE);
+
+ initscr();
+ (void) cbreak(); /* take input chars one at a time, no wait for \n */
+ (void) noecho(); /* don't echo input */
+
+ printw("This demo is best on xterm: it reverses the definitions for f1-f12,\n");
+ printw("adds duplicate definitions for cursor application and normal modes,\n");
+ printw("and removes any definitions for the mini keypad. Type any of those:\n");
+ refresh();
+
+ win = newwin(LINES - 3, COLS, 3, 0);
+ scrollok(win, TRUE);
+ keypad(win, TRUE);
+ wmove(win, 0, 0);
+
+ /* we do the define_key() calls after keypad(), since the first call to
+ * keypad() initializes the corresponding data.
+ */
+ for (n = 0; n < 12; ++n) {
+ char name[10];
+ sprintf(name, "kf%d", n + 1);
+ fkeys[n] = tigetstr(name);
+ }
+ for (n = 0; n < 12; ++n) {
+ redefine(win, fkeys[11 - n], KEY_F(n + 1));
+ }
+
+ duplicate(win, "kcub1", KEY_LEFT);
+ duplicate(win, "kcuu1", KEY_UP);
+ duplicate(win, "kcud1", KEY_DOWN);
+ duplicate(win, "kcuf1", KEY_RIGHT);
+
+ remove_definition(win, KEY_A1);
+ remove_definition(win, KEY_A3);
+ remove_definition(win, KEY_B2);
+ remove_definition(win, KEY_C1);
+ remove_definition(win, KEY_C3);
+
+ really_define_key(win, "\033O", 1023);
+
+ while ((ch = wgetch(win)) != ERR) {
+ const char *name = keyname(ch);
+ wprintw(win, "Keycode %d, name %s\n",
+ ch,
+ name != 0 ? name : "<null>");
+ log_last_line(win);
+ wclrtoeol(win);
+ }
+ endwin();
+ return EXIT_SUCCESS;
+}
+#else
+int
+main(void)
+{
+ printf("This program requires the ncurses library\n");
+ ExitProgram(EXIT_FAILURE);
+}
+#endif