xref: /original-bsd/lib/libcurses/delch.c (revision be1f24e8)
1 /*
2  * Copyright (c) 1981 Regents of the University of California.
3  * All rights reserved.
4  *
5  * %sccs.include.redist.c%
6  */
7 
8 #ifndef lint
9 static char sccsid[] = "@(#)delch.c	5.7 (Berkeley) 09/14/92";
10 #endif	/* not lint */
11 
12 #include <curses.h>
13 
14 /*
15  * wdelch --
16  *	Do an insert-char on the line, leaving (cury, curx) unchanged.
17  */
18 int
19 wdelch(win)
20 	register WINDOW *win;
21 {
22 	register char *end, *temp1, *temp2;
23 
24 	end = &win->lines[win->cury]->line[win->maxx - 1];
25 	temp1 = &win->lines[win->cury]->line[win->curx];
26 	temp2 = temp1 + 1;
27 	while (temp1 < end)
28 		*temp1++ = *temp2++;
29 	*temp1 = ' ';
30 	touchline(win, win->cury, win->curx, win->maxx - 1);
31 	return (OK);
32 }
33