source: trunk/ncurses/test/demo_defkey.c@ 2787

/*
 * $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