usr/src/lib/libcurses/screen/winsch.c

   1 /*
   2  * CDDL HEADER START
   3  *
   4  * The contents of this file are subject to the terms of the
   5  * Common Development and Distribution License, Version 1.0 only
   6  * (the "License").  You may not use this file except in compliance
   7  * with the License.
   8  *
   9  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
  10  * or http://www.opensolaris.org/os/licensing.
  11  * See the License for the specific language governing permissions
  12  * and limitations under the License.
  13  *
  14  * When distributing Covered Code, include this CDDL HEADER in each
  15  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
  16  * If applicable, add the following below this CDDL HEADER, with the
  17  * fields enclosed by brackets "[]" replaced with your own identifying
  18  * information: Portions Copyright [yyyy] [name of copyright owner]
  19  *
  20  * CDDL HEADER END
  21  */
  22 /*
  23  * Copyright 1997 Sun Microsystems, Inc.  All rights reserved.
  24  * Use is subject to license terms.
  25  */
  26
  27 /*      Copyright (c) 1988 AT&T */
  28 /*        All Rights Reserved   */
  29
  30 /*
  31  * University Copyright- Copyright (c) 1982, 1986, 1988
  32  * The Regents of the University of California
  33  * All Rights Reserved
  34  *
  35  * University Acknowledgment- Portions of this document are derived from
  36  * software developed by the University of California, Berkeley, and its
  37  * contributors.
  38  */
  39
  40 #pragma ident   "%Z%%M% %I%     %E% SMI"
  41
  42 /*LINTLIBRARY*/
  43
  44 #include        <sys/types.h>
  45 #include        "curses_inc.h"
  46 #include        <ctype.h>
  47
  48 /* Insert a character at (curx, cury). */
  49
  50 int
  51 winsch(WINDOW *win, chtype c)
  52 {
  53         short   curx = win->_curx;
  54         int     n, cury = win->_cury;
  55         chtype  *wcp, a;
  56         int             rv;
  57
  58         a = _ATTR(c);
  59         c &= A_CHARTEXT;
  60
  61         rv = OK;
  62         win->_insmode = TRUE;
  63         if (_scrmax > 1 && (rv = _mbvalid(win)) == ERR)
  64                 goto done;
  65         /* take care of multi-byte characters */
  66         if (_mbtrue && ISMBIT(c)) {
  67                 rv = _mbaddch(win, A_NORMAL, RBYTE(c));
  68                 goto done;
  69         }
  70         win->_nbyte = -1;
  71         curx = win->_curx;
  72
  73         /* let waddch() worry about these */
  74         if (c == '\r' || c == '\b')
  75                 return (waddch(win, c));
  76
  77         /* with \n, in contrast to waddch, we don't clear-to-eol */
  78         if (c == '\n') {
  79                 if (cury >= (win->_maxy-1) || cury == win->_bmarg)
  80                         return (wscrl(win, 1));
  81                 else {
  82                         win->_cury++;
  83                         win->_curx = 0;
  84                         return (OK);
  85                 }
  86         }
  87
  88         /* with tabs or control characters, we have to do more */
  89         if (c == '\t') {
  90                 n = (TABSIZE - (curx % TABSIZE));
  91                 if ((curx + n) >= win->_maxx)
  92                         n = win->_maxx - curx;
  93                 c = ' ';
  94         } else {
  95                 if (iscntrl((int) c) != 0) {
  96                         if (curx >= win->_maxx-1)
  97                                 return (ERR);
  98                         n = 2;
  99                 } else
 100                         n = 1;
 101         }
 102
 103         /* shift right */
 104         wcp = win->_y[cury] + curx;
 105         if ((rv = _mbinsshift(win, n)) == ERR)
 106                 goto done;
 107
 108         /* insert new control character */
 109         if (c < ' ' || c == _CTRL('?')) {
 110                 *wcp++ = '^' | win->_attrs | a;
 111                 *wcp = _UNCTRL(c) | win->_attrs | a;
 112         } else {
 113                 /* normal characters */
 114                 c = _WCHAR(win, c) | a;
 115                 for (; n > 0; --n)
 116                         *wcp++ = c;
 117         }
 118
 119 done:
 120         if (curx < win->_firstch[cury])
 121                 win->_firstch[cury] = curx;
 122         win->_lastch[cury] = win->_maxx-1;
 123
 124         win->_flags |= _WINCHANGED;
 125
 126         if (win->_sync)
 127                 wsyncup(win);
 128
 129         return ((rv == OK && win->_immed) ? wrefresh(win) : rv);
 130 }