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.4 (Berkeley) 06/01/90"; 10 #endif /* not lint */ 11 12 # include "curses.ext" 13 14 /* 15 * This routine performs an insert-char on the line, leaving 16 * (_cury,_curx) unchanged. 17 * 18 */ 19 wdelch(win) 20 reg WINDOW *win; { 21 22 reg char *temp1, *temp2; 23 reg char *end; 24 reg int lch; 25 26 end = &win->_y[win->_cury][win->_maxx - 1]; 27 temp1 = &win->_y[win->_cury][win->_curx]; 28 temp2 = temp1 + 1; 29 while (temp1 < end) 30 *temp1++ = *temp2++; 31 *temp1 = ' '; 32 touchline(win, win->_cury, win->_curx, win->_maxx - 1); 33 return OK; 34 } 35