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 (c) 1995, by Sun Microsystems, Inc.
24  * All rights reserved.
25  */
26 
27 #pragma ident	"%Z%%M%	%I%	%E% SMI"
28 
29 /*
30  * wdelch.c
31  *
32  * XCurses Library
33  *
34  * Copyright 1990, 1995 by Mortice Kern Systems Inc.  All rights reserved.
35  *
36  */
37 
38 #ifdef M_RCSID
39 #ifndef lint
40 static char rcsID[] = "$Header: /rd/src/libc/xcurses/rcs/wdelch.c 1.3 1995/06/21 20:30:59 ant Exp $";
41 #endif
42 #endif
43 
44 #include <private.h>
45 
46 /*f
47  * Delete the character under the cursor; all characters to the right of
48  * the cursor on the same line are moved to the left by one position and
49  * the last character on the line is filled with a blank. The cursor
50  * position does not change.
51  */
52 int
wdelch(w)53 wdelch(w)
54 WINDOW *w;
55 {
56 	extern void *memcpy();	/* quiet sparcv9 warning */
57 	int next, width, y, x;
58 
59 #ifdef M_CURSES_TRACE
60 	__m_trace("wdelch(%p) at (%d,%d)", w, w->_cury, w->_curx);
61 #endif
62 
63 	y = w->_cury;
64 	x = w->_curx;
65 
66 	next = __m_cc_next(w, y, x);
67 	x = __m_cc_first(w, y, x);
68 
69 	/* Determine the character width to delete. */
70 	width = __m_cc_width(&w->_line[y][x]);
71 
72 	/* Shift line left to erase the character under the cursor. */
73 	(void) memcpy(
74 		&w->_line[y][x], &w->_line[y][next],
75 		(w->_maxx - next) * sizeof **w->_line
76 	);
77 
78 	/* Add blank(s) to the end of line based on the width
79 	 * of the character that was deleted.
80 	 */
81 	(void) __m_cc_erase(w, y, w->_maxx - width, y, w->_maxx - 1);
82 
83 	/* Set dity region markers. */
84 	if (x < w->_first[y])
85 		w->_first[y] = x;
86 	w->_last[y] = w->_maxx;
87 
88 	WSYNC(w);
89 
90 	return __m_return_code("wdelch", WFLUSH(w));
91 }
92