libcurses/screen/wgetwstr.c

/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (the "License").  You may not use this file except in compliance
 * with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */
/*  Copyright (c) 1988 AT&T */
/*    All Rights Reserved   */


/*
 *      Copyright (c) 1997, by Sun Microsystems, Inc.
 *      All rights reserved.
 */

#pragma ident   "%Z%%M% %I% %E% SMI"

/*LINTLIBRARY*/

#include    <sys/types.h>
#include    "curses_inc.h"

#define     LENGTH  256

/* This routine gets a string starting at (_cury, _curx) */
int
wgetwstr(WINDOW *win, wchar_t *str)
{
    return ((wgetnwstr(win, str, LENGTH) == ERR) ? ERR : OK);
}

int
wgetnwstr(WINDOW *win, wchar_t *str, int n)
{
    int cpos = 0, ch;
    wchar_t *cp = str;
    int i = 0;
    int total = 0;
    char    myerase, mykill;
    char    rownum[LENGTH], colnum[LENGTH], length[LENGTH];
    int doecho = SP->fl_echoit;
    int savecb = cur_term->_fl_rawmode;
    bool    savsync, savimmed, savleave;

#ifdef  DEBUG
    if (outf)
        fprintf(outf, "doecho %d, savecb %d\n", doecho, savecb);
#endif  /* DEBUG */

    myerase = erasechar();
    mykill = killchar();
    if (!savecb)
        (void) cbreak();

    if (doecho) {
        SP->fl_echoit = FALSE;
        savsync = win->_sync;
        savimmed = win->_immed;
        savleave = win->_leave;
        win->_immed = win->_sync = win->_leave = FALSE;
        (void) wrefresh(win);
        if (n > LENGTH)
            n = LENGTH;
    }
    n--;

    while (cpos < n) {
        if (doecho) {
            rownum[cpos] = win->_cury;
            colnum[cpos] = win->_curx;
        }

        ch = wgetwch(win);
        if ((ch == ERR) || (ch == '\n') || (ch == '\r') ||
            (ch == KEY_ENTER))
            break;
        if ((ch == myerase) || (ch == KEY_LEFT) ||
            (ch == KEY_BACKSPACE) || (ch == mykill)) {
            if (cpos > 0) {
                if (ch == mykill) {
                    i = total;
                    total = cpos = 0;
                    cp = str;
                } else {
                    cp--;
                    cpos--;
                    if (doecho)
                        total -= (i = length[cpos]);
                }
                if (doecho) {
                    (void) wmove(win, rownum[cpos],
                        colnum[cpos]);
                    /* Add the correct amount of blanks. */
                    for (; i > 0; i--)
                        (void) waddch(win, ' ');
                    /* Move back after the blanks */
                    /* are put in. */
                    (void) wmove(win, rownum[cpos],
                        colnum[cpos]);
                    /* Update total. */
                    (void) wrefresh(win);
                }
            } else
                if (doecho)
                    (void) beep();
        } else
            if ((KEY_MIN <= ch) && (ch <= KEY_MAX))
                (void) beep();
            else {
                *cp++ = ch;
                if (doecho) {
                    /* Add the length of the */
                    /* character to total. */
                    if ((ch & EUCMASK) != P00)
                        length[cpos] = wcscrw(ch);
                    else if (ch >= ' ')
                        length[cpos] = 1;
                    else if (ch == '\t')
                        length[cpos] = TABSIZE -
                            (colnum[cpos] % TABSIZE);
                    else
                        length[cpos] = 2;
                    total += length[cpos];
                    (void) wechowchar(win, (chtype) ch);
                }
                cpos++;
            }
    }

    *cp = '\0';

    if (!savecb)
        (void) nocbreak();
    /*
     * The following code is equivalent to waddch(win, '\n')
     * except that it does not do a wclrtoeol.
     */
    if (doecho) {
        SP->fl_echoit = TRUE;
        win->_curx = 0;
        if (win->_cury + 1 > win->_bmarg)
            (void) wscrl(win, 1);
        else
            win->_cury++;

        win->_sync = savsync;
        win->_immed = savimmed;
        win->_leave = savleave;
        (void) wrefresh(win);
    }
    return (ch);
}