1/****************************************************************************
2 * Copyright 2019,2020 Thomas E. Dickey                                     *
3 * Copyright 1998-2016,2017 Free Software Foundation, Inc.                  *
4 *                                                                          *
5 * Permission is hereby granted, free of charge, to any person obtaining a  *
6 * copy of this software and associated documentation files (the            *
7 * "Software"), to deal in the Software without restriction, including      *
8 * without limitation the rights to use, copy, modify, merge, publish,      *
9 * distribute, distribute with modifications, sublicense, and/or sell       *
10 * copies of the Software, and to permit persons to whom the Software is    *
11 * furnished to do so, subject to the following conditions:                 *
12 *                                                                          *
13 * The above copyright notice and this permission notice shall be included  *
14 * in all copies or substantial portions of the Software.                   *
15 *                                                                          *
16 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS  *
17 * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF               *
18 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.   *
19 * IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,   *
20 * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR    *
21 * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR    *
22 * THE USE OR OTHER DEALINGS IN THE SOFTWARE.                               *
23 *                                                                          *
24 * Except as contained in this notice, the name(s) of the above copyright   *
25 * holders shall not be used in advertising or otherwise to promote the     *
26 * sale, use or other dealings in this Software without prior written       *
27 * authorization.                                                           *
28 ****************************************************************************/
29
30/****************************************************************************
31 *  Author: Zeyd M. Ben-Halim <zmbenhal@netcom.com> 1992,1995               *
32 *     and: Eric S. Raymond <esr@snark.thyrsus.com>                         *
33 *                                                                          *
34 *  Rewritten 2001-2004 to support wide-characters by                       *
35 *	Sven Verdoolaege                                                    *
36 *	Thomas Dickey                                                       *
37 ****************************************************************************/
38
39/*
40**	lib_addstr.c
41*
42**	The routines waddnstr(), waddchnstr().
43**
44*/
45
46#include <curses.priv.h>
47
48MODULE_ID("$Id: lib_addstr.c,v 1.57 2020/12/05 20:06:19 tom Exp $")
49
50NCURSES_EXPORT(int)
51waddnstr(WINDOW *win, const char *astr, int n)
52{
53    const char *str = astr;
54    int code = ERR;
55
56    T((T_CALLED("waddnstr(%p,%s,%d)"), (void *) win, _nc_visbufn(astr, n), n));
57
58    if (win && (str != 0)) {
59	TR(TRACE_VIRTPUT | TRACE_ATTRS,
60	   ("... current %s", _traceattr(WINDOW_ATTRS(win))));
61	code = OK;
62	if (n < 0)
63	    n = INT_MAX;
64
65	TR(TRACE_VIRTPUT, ("str is not null, length = %d", n));
66	while ((*str != '\0') && (n-- > 0)) {
67	    NCURSES_CH_T ch;
68	    TR(TRACE_VIRTPUT, ("*str = %#o", UChar(*str)));
69	    SetChar(ch, UChar(*str++), A_NORMAL);
70	    if (_nc_waddch_nosync(win, ch) == ERR) {
71		code = ERR;
72		break;
73	    }
74	}
75	_nc_synchook(win);
76    }
77    TR(TRACE_VIRTPUT, ("waddnstr returns %d", code));
78    returnCode(code);
79}
80
81NCURSES_EXPORT(int)
82waddchnstr(WINDOW *win, const chtype *astr, int n)
83{
84    NCURSES_SIZE_T y, x;
85    int code = OK;
86    int i;
87    struct ldat *line;
88
89    T((T_CALLED("waddchnstr(%p,%p,%d)"), (void *) win, (const void *) astr, n));
90
91    if (!win || !astr)
92	returnCode(ERR);
93
94    y = win->_cury;
95    x = win->_curx;
96    if (n < 0) {
97	const chtype *str;
98	n = 0;
99	for (str = (const chtype *) astr; *str != 0; str++)
100	    n++;
101    }
102    if (n > win->_maxx - x + 1)
103	n = win->_maxx - x + 1;
104    if (n == 0)
105	returnCode(code);
106
107    line = &(win->_line[y]);
108    for (i = 0; i < n && ChCharOf(astr[i]) != '\0'; ++i) {
109	SetChar2(line->text[i + x], astr[i]);
110    }
111    CHANGED_RANGE(line, x, (NCURSES_SIZE_T) (x + n - 1));
112
113    _nc_synchook(win);
114    returnCode(code);
115}
116
117#if USE_WIDEC_SUPPORT
118
119NCURSES_EXPORT(int)
120_nc_wchstrlen(const cchar_t *s)
121{
122    int result = 0;
123    if (s != 0) {
124	while (CharOf(s[result]) != L'\0') {
125	    result++;
126	}
127    }
128    return result;
129}
130
131NCURSES_EXPORT(int)
132wadd_wchnstr(WINDOW *win, const cchar_t *astr, int n)
133{
134    static const NCURSES_CH_T blank = NewChar(BLANK_TEXT);
135    NCURSES_SIZE_T y;
136    NCURSES_SIZE_T x;
137    int code = OK;
138    struct ldat *line;
139    int i, j, start, len, end;
140
141    T((T_CALLED("wadd_wchnstr(%p,%s,%d)"),
142       (void *) win,
143       _nc_viscbuf(astr, n),
144       n));
145
146    if (!win)
147	returnCode(ERR);
148
149    y = win->_cury;
150    x = win->_curx;
151    if (n < 0) {
152	n = _nc_wchstrlen(astr);
153    }
154    if (n > win->_maxx - x + 1)
155	n = win->_maxx - x + 1;
156    if (n == 0)
157	returnCode(code);
158
159    line = &(win->_line[y]);
160    start = x;
161    end = x + n - 1;
162
163    /*
164     * Reset orphaned cells of multi-column characters that extend up to the
165     * new string's location to blanks.
166     */
167    if (x > 0 && isWidecExt(line->text[x])) {
168	for (i = 0; i <= x; ++i) {
169	    if (!isWidecExt(line->text[x - i])) {
170		/* must be isWidecBase() */
171		start -= i;
172		while (i > 0) {
173		    line->text[x - i--] = _nc_render(win, blank);
174		}
175		break;
176	    }
177	}
178    }
179
180    /*
181     * Copy the new string to the window.
182     */
183    for (i = 0; i < n && CharOf(astr[i]) != L'\0' && x <= win->_maxx; ++i) {
184	if (isWidecExt(astr[i]))
185	    continue;
186
187	len = _nc_wacs_width(CharOf(astr[i]));
188
189	if (x + len - 1 <= win->_maxx) {
190	    line->text[x] = _nc_render(win, astr[i]);
191	    if (len > 1) {
192		for (j = 0; j < len; ++j) {
193		    if (j != 0) {
194			line->text[x + j] = line->text[x];
195		    }
196		    SetWidecExt(line->text[x + j], j);
197		}
198	    } else {
199		len = 1;
200	    }
201	    x = (NCURSES_SIZE_T) (x + len);
202	    end += len - 1;
203	} else {
204	    break;
205	}
206    }
207
208    /*
209     * Set orphaned cells of multi-column characters which lie after the new
210     * string to blanks.
211     */
212    while (x <= win->_maxx && isWidecExt(line->text[x])) {
213	line->text[x] = _nc_render(win, blank);
214	++end;
215	++x;
216    }
217    CHANGED_RANGE(line, start, end);
218
219    _nc_synchook(win);
220    returnCode(code);
221}
222
223NCURSES_EXPORT(int)
224waddnwstr(WINDOW *win, const wchar_t *str, int n)
225{
226    int code = ERR;
227
228    T((T_CALLED("waddnwstr(%p,%s,%d)"), (void *) win, _nc_viswbufn(str, n), n));
229
230    if (win && (str != 0)) {
231	TR(TRACE_VIRTPUT | TRACE_ATTRS,
232	   ("... current %s", _traceattr(WINDOW_ATTRS(win))));
233	code = OK;
234	if (n < 0)
235	    n = INT_MAX;
236
237	TR(TRACE_VIRTPUT, ("str is not null, length = %d", n));
238	while ((*str != L('\0')) && (n-- > 0)) {
239	    NCURSES_CH_T ch;
240	    TR(TRACE_VIRTPUT, ("*str[0] = %#lx", (unsigned long) *str));
241	    SetChar(ch, *str++, A_NORMAL);
242	    if (wadd_wch(win, &ch) == ERR) {
243		code = ERR;
244		break;
245	    }
246	}
247	_nc_synchook(win);
248    }
249    TR(TRACE_VIRTPUT, ("waddnwstr returns %d", code));
250    returnCode(code);
251}
252
253#endif
254