xref: /titanic_50/usr/src/ucblib/libcurses/delch.c (revision ba7866cd2cbdf574f47d4e38a1301b90744dd677)
1 /*
2  * Copyright 2001 Sun Microsystems, Inc.  All rights reserved.
3  * Use is subject to license terms.
4  */
5 
6 /*	Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989 AT&T	*/
7 /*	  All Rights Reserved  	*/
8 
9 /*
10  * Copyright (c) 1980 Regents of the University of California.
11  * All rights reserved.  The Berkeley software License Agreement
12  * specifies the terms and conditions for redistribution.
13  */
14 
15 #pragma ident	"%Z%%M%	%I%	%E% SMI"
16 
17 /*LINTLIBRARY*/
18 
19 #ifndef lint
20 static char
21 sccsid[] = "@(#)delch.c 1.6 88/02/08 SMI"; /* from UCB 5.1 85/06/07 */
22 #endif /* not lint */
23 
24 #include	"curses.ext"
25 
26 /*
27  *	This routine performs an insert-char on the line, leaving
28  * (_cury,_curx) unchanged.
29  */
30 
31 int
32 wdelch(WINDOW *win)
33 {
34 	char	*temp1, *temp2;
35 	char	*end;
36 
37 	end = &win->_y[win->_cury][win->_maxx - 1];
38 	temp1 = &win->_y[win->_cury][win->_curx];
39 	temp2 = temp1 + 1;
40 	while (temp1 < end)
41 		*temp1++ = *temp2++;
42 	*temp1 = ' ';
43 	(void) touchline(win, win->_cury, win->_curx, win->_maxx - 1);
44 	return (OK);
45 }
46