xref: /titanic_51/usr/src/lib/libcurses/screen/winsch.c (revision dd51520e127b452179a2ce4ea3bd8dee949f9afe)
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 }
131