libcurses/screen/waddch.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 1997 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

/*  Copyright (c) 1988 AT&T */
/*    All Rights Reserved   */

/*
 * University Copyright- Copyright (c) 1982, 1986, 1988
 * The Regents of the University of California
 * All Rights Reserved
 *
 * University Acknowledgment- Portions of this document are derived from
 * software developed by the University of California, Berkeley, and its
 * contributors.
 */

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

/*LINTLIBRARY*/

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

/*
 * This routine prints the character in the current position.
 * Think of it as putc.
 */

int
waddch(WINDOW *win, chtype c)
{
    short   x = win->_curx;
    short   y = win->_cury;
    chtype  rawc = _CHAR(c);
    chtype  rawattrs = _ATTR(c);
    int rv = OK;
    bool    savimmed = win->_immed;
    bool    savsync = win->_sync;

    win->_immed = win->_sync = FALSE;

#ifdef  DEBUG
    if (outf)
        if (c == rawc)
            fprintf(outf, "'%c'", rawc);
        else
            fprintf(outf, "'%c' %o, raw %o", c, c, rawc);
#endif  /* DEBUG */

    win->_insmode = FALSE;
    if (_scrmax > 1 && _mbvalid(win) == ERR)
        goto next;
    if (_mbtrue && ISMBIT(rawc)) {
        rv = _mbaddch(win, rawattrs, RBYTE(rawc));
        win->_immed = savimmed;
        win->_sync = savsync;
        goto nextw;
    }

    switch (rawc) {
        case '\n':
            (void) wclrtoeol(win);
            goto new_line;
        case '\r':
            goto move_to_begin_line;
        case '\b':
            if (--x < 0)
move_to_begin_line:
                x = 0;
            win->_curx = x;
            win->_flags |= _WINMOVED;
            goto out_move_only;
        default:
            if (rawc < ' ' || rawc == _CTRL('?')) {
                if (rawc == '\t') {
                    int newx;
                    chtype  space = ' ' | rawattrs;

                    if ((newx = x + (TABSIZE -
                        (x % TABSIZE))) > win->_maxx)
                        newx = win->_maxx;
                        for (; x < newx; x++)
                            if (waddch(win,
                                space) == ERR)
                                goto next;
                } else {
                    if ((waddch(win, (chtype)
                        '^'|rawattrs) == ERR) ||
                        (waddch(win, (chtype)
                        _UNCTRL(rawc)|rawattrs) == ERR)) {
next :
                        rv = ERR;
                }
            }
            x = win->_curx;
            y = win->_cury;
            win->_immed = savimmed;
            win->_sync = savsync;
            break;
        }
#ifdef  DEBUG
        if ((win->_attrs) && outf)
            fprintf(outf, "(attrs %o, %o=>%o)", win->_attrs,
                c, c | win->_attrs);
#endif  /* DEBUG */

        /* clear any partial multi-column character */
        if (_scrmax > 1 && ISMBIT(win->_y[y][x]) &&
            (rv = _mbclrch(win, y, x)) == ERR) {
            x = win->_curx;
            y = win->_cury;
            win->_immed = savimmed;
            win->_sync = savsync;
            break;
        }

        if ((c = _WCHAR(win, c)|rawattrs) != win->_y[y][x]) {
            if (x < win->_firstch[y])
                win->_firstch[y] = x;
            if (x > win->_lastch[y])
                win->_lastch[y] = x;
            win->_y[y][x] = c;
#ifdef  _VR3_COMPAT_CODE
            if (_y16update)
                /* LINTED */
                win->_y16[y][x] = _TO_OCHTYPE(c);
#endif  /* _VR3_COMPAT_CODE */
        }
        if (++x == win->_maxx) {
new_line:
            if (y == win->_bmarg) {
                if (wscrl(win, 1) == ERR) {
                    rv = ERR;
                    if (x == win->_maxx)
                        --x;
#ifdef  DEBUG
                    if (outf) {
                        int i;

                        fprintf(outf, "ERR because "
                            "(%d, %d) > (%d, %d)\n",
                            x, y, win->_maxx,
                            win->_maxy);
                        fprintf(outf, "line: '");
                        for (i = 0; i < win->_maxy;
                            i++)
                            fprintf(outf, "%c",
                                win->_y[y-1][i]);
                        fprintf(outf, "'\n");
                    }
#endif  /* DEBUG */
                    break;
                } else
                    savimmed = 1;
            } else
                y++;
                x = 0;
        } else
            savimmed += 2;
#ifdef  FULLDEBUG
        if (outf)
            fprintf(outf, "ADDCH: 2: y = %d, x = %d, "
                "firstch = %d, lastch = %d\n", y, x,
                win->_firstch[y], win->_lastch[y]);
#endif  /* FULLDEBUG */
        break;
    }
    win->_cury = y;
    win->_curx = x;

nextw:
    /* sync with ancestor structures */
    if (win->_sync)
        wsyncup(win);

    if (savimmed == 3)
        return ((*_quick_ptr)(win, c));

    win->_flags |= _WINCHANGED;

out_move_only:

    return ((savimmed == 1) ? wrefresh(win) : rv);
}