1 /* $NetBSD: ins_wstr.c,v 1.7 2013/10/16 19:59:29 roy Exp $ */
2
3 /*
4 * Copyright (c) 2005 The NetBSD Foundation Inc.
5 * All rights reserved.
6 *
7 * This code is derived from code donated to the NetBSD Foundation
8 * by Ruibiao Qiu <ruibiao@arl.wustl.edu,ruibiao@gmail.com>.
9 *
10 *
11 * Redistribution and use in source and binary forms, with or without
12 * modification, are permitted provided that the following conditions
13 * are met:
14 * 1. Redistributions of source code must retain the above copyright
15 * notice, this list of conditions and the following disclaimer.
16 * 2. Redistributions in binary form must reproduce the above copyright
17 * notice, this list of conditions and the following disclaimer in the
18 * documentation and/or other materials provided with the distribution.
19 * 3. Neither the name of the NetBSD Foundation nor the names of its
20 * contributors may be used to endorse or promote products derived
21 * from this software without specific prior written permission.
22 *
23 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND
24 * CONTRIBUTORS ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
25 * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
26 * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
27 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
28 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
29 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
30 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
31 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
32 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
33 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
34 * SUCH DAMAGE.
35 */
36
37 #include <sys/cdefs.h>
38 #ifndef lint
39 __RCSID("$NetBSD: ins_wstr.c,v 1.7 2013/10/16 19:59:29 roy Exp $");
40 #endif /* not lint */
41
42 #include <string.h>
43 #include <stdlib.h>
44
45 #include "curses.h"
46 #include "curses_private.h"
47
48 /*
49 * ins_wstr --
50 * insert a multi-character wide-character string into the current window
51 */
52 int
ins_wstr(const wchar_t * wstr)53 ins_wstr(const wchar_t *wstr)
54 {
55 return wins_wstr(stdscr, wstr);
56 }
57
58 /*
59 * ins_nwstr --
60 * insert a multi-character wide-character string into the current window
61 * with at most n characters
62 */
63 int
ins_nwstr(const wchar_t * wstr,int n)64 ins_nwstr(const wchar_t *wstr, int n)
65 {
66 return wins_nwstr(stdscr, wstr, n);
67 }
68
69 /*
70 * mvins_wstr --
71 * Do an insert-string on the line at (y, x).
72 */
73 int
mvins_wstr(int y,int x,const wchar_t * wstr)74 mvins_wstr(int y, int x, const wchar_t *wstr)
75 {
76 return mvwins_wstr(stdscr, y, x, wstr);
77 }
78
79 /*
80 * mvins_nwstr --
81 * Do an insert-n-string on the line at (y, x).
82 */
83 int
mvins_nwstr(int y,int x,const wchar_t * wstr,int n)84 mvins_nwstr(int y, int x, const wchar_t *wstr, int n)
85 {
86 return mvwins_nwstr(stdscr, y, x, wstr, n);
87 }
88
89 /*
90 * mvwins_wstr --
91 * Do an insert-string on the line at (y, x) in the given window.
92 */
93 int
mvwins_wstr(WINDOW * win,int y,int x,const wchar_t * wstr)94 mvwins_wstr(WINDOW *win, int y, int x, const wchar_t *wstr)
95 {
96 if (wmove(win, y, x) == ERR)
97 return ERR;
98
99 return wins_wstr(stdscr, wstr);
100 }
101
102 /*
103 * mvwins_nwstr --
104 * Do an insert-n-string on the line at (y, x) in the given window.
105 */
106 int
mvwins_nwstr(WINDOW * win,int y,int x,const wchar_t * wstr,int n)107 mvwins_nwstr(WINDOW *win, int y, int x, const wchar_t *wstr, int n)
108 {
109 if (wmove(win, y, x) == ERR)
110 return ERR;
111
112 return wins_nwstr(stdscr, wstr, n);
113 }
114
115
116 /*
117 * wins_wstr --
118 * Do an insert-string on the line, leaving (cury, curx) unchanged.
119 */
120 int
wins_wstr(WINDOW * win,const wchar_t * wstr)121 wins_wstr(WINDOW *win, const wchar_t *wstr)
122 {
123 return wins_nwstr(win, wstr, -1);
124 }
125
126 /*
127 * wins_nwstr --
128 * Do an insert-n-string on the line, leaving (cury, curx) unchanged.
129 */
130 int
wins_nwstr(WINDOW * win,const wchar_t * wstr,int n)131 wins_nwstr(WINDOW *win, const wchar_t *wstr, int n)
132 {
133 #ifndef HAVE_WCHAR
134 return ERR;
135 #else
136 __LDATA *start, *temp1, *temp2;
137 __LINE *lnp;
138 const wchar_t *scp;
139 int width, len, sx, x, y, cw, pcw, newx, tabsize;
140 nschar_t *np;
141 wchar_t ws[] = L" ";
142
143 /* check for leading non-spacing character */
144 if (!wstr)
145 return OK;
146 cw = wcwidth(*wstr);
147 if (cw < 0)
148 cw = 1;
149 if (!cw)
150 return ERR;
151
152 scp = wstr + 1;
153 width = cw;
154 len = 1;
155 n--;
156 while (*scp) {
157 int w;
158 if (!n)
159 break;
160 w = wcwidth(*scp);
161 if (w < 0)
162 w = 1;
163 n--, len++, width += w;
164 scp++;
165 }
166 #ifdef DEBUG
167 __CTRACE(__CTRACE_INPUT, "wins_nwstr: width=%d,len=%d\n", width, len);
168 #endif /* DEBUG */
169
170 if (cw > win->maxx - win->curx + 1)
171 return ERR;
172 start = &win->alines[win->cury]->line[win->curx];
173 sx = win->curx;
174 lnp = win->alines[win->cury];
175 pcw = WCOL(*start);
176 if (pcw < 0) {
177 sx += pcw;
178 start += pcw;
179 }
180 #ifdef DEBUG
181 __CTRACE(__CTRACE_INPUT, "wins_nwstr: start@(%d)\n", sx);
182 #endif /* DEBUG */
183 pcw = WCOL(*start);
184 lnp->flags |= __ISDIRTY;
185 newx = sx + win->ch_off;
186 if (newx < *lnp->firstchp)
187 *lnp->firstchp = newx;
188 #ifdef DEBUG
189 {
190 __CTRACE(__CTRACE_INPUT, "========before=======\n");
191 for (x = 0; x < win->maxx; x++)
192 __CTRACE(__CTRACE_INPUT,
193 "wins_nwstr: (%d,%d)=(%x,%x,%p)\n",
194 (int) win->cury, x,
195 win->alines[win->cury]->line[x].ch,
196 win->alines[win->cury]->line[x].attr,
197 win->alines[win->cury]->line[x].nsp);
198 }
199 #endif /* DEBUG */
200
201 /* shift all complete characters */
202 if (sx + width + pcw <= win->maxx) {
203 #ifdef DEBUG
204 __CTRACE(__CTRACE_INPUT, "wins_nwstr: shift all characters\n");
205 #endif /* DEBUG */
206 temp1 = &win->alines[win->cury]->line[win->maxx - 1];
207 temp2 = temp1 - width;
208 pcw = WCOL(*(temp2 + 1));
209 if (pcw < 0) {
210 #ifdef DEBUG
211 __CTRACE(__CTRACE_INPUT,
212 "wins_nwstr: clear from %d to EOL(%d)\n",
213 win->maxx + pcw, win->maxx - 1);
214 #endif /* DEBUG */
215 temp2 += pcw;
216 while (temp1 > temp2 + width) {
217 temp1->ch = (wchar_t)btowc((int) win->bch);
218 if (_cursesi_copy_nsp(win->bnsp, temp1) == ERR)
219 return ERR;
220 temp1->attr = win->battr;
221 SET_WCOL(*temp1, 1);
222 #ifdef DEBUG
223 __CTRACE(__CTRACE_INPUT,
224 "wins_nwstr: empty cell(%p)\n", temp1);
225 #endif /* DEBUG */
226 temp1--;
227 }
228 }
229 while (temp2 >= start) {
230 (void)memcpy(temp1, temp2, sizeof(__LDATA));
231 temp1--, temp2--;
232 }
233 #ifdef DEBUG
234 {
235 __CTRACE(__CTRACE_INPUT, "=====after shift====\n");
236 for (x = 0; x < win->maxx; x++)
237 __CTRACE(__CTRACE_INPUT,
238 "wins_nwstr: (%d,%d)=(%x,%x,%p)\n",
239 (int) win->cury, x,
240 win->alines[win->cury]->line[x].ch,
241 win->alines[win->cury]->line[x].attr,
242 win->alines[win->cury]->line[x].nsp);
243 }
244 #endif /* DEBUG */
245 }
246
247 /* update string columns */
248 x = win->curx;
249 y = win->cury;
250 for (scp = wstr, temp1 = start; len; len--, scp++) {
251 switch (*scp) {
252 case L'\b':
253 if (--x < 0)
254 x = 0;
255 win->curx = x;
256 continue;;
257 case L'\r':
258 win->curx = 0;
259 continue;
260 case L'\n':
261 wclrtoeol(win);
262 if (y == win->scr_b) {
263 if (!(win->flags & __SCROLLOK))
264 return ERR;
265 scroll(win);
266 }
267 continue;
268 case L'\t':
269 tabsize = win->screen->TABSIZE;
270 if (wins_nwstr(win, ws,
271 min(win->maxx - x, tabsize - (x % tabsize)))
272 == ERR)
273 return ERR;
274 continue;
275 }
276 cw = wcwidth(*scp);
277 if (cw < 0)
278 cw = 1;
279 if (cw) {
280 /* 1st column */
281 temp1->ch = (wchar_t)*scp;
282 temp1->attr = win->wattr;
283 SET_WCOL(*temp1, cw);
284 temp1->nsp = NULL;
285 #ifdef DEBUG
286 __CTRACE(__CTRACE_INPUT,
287 "wins_nwstr: add spacing char(%x)\n", temp1->ch);
288 #endif /* DEBUG */
289 temp2 = temp1++;
290 if (cw > 1) {
291 x = -1;
292 while (temp1 < temp2 + cw) {
293 /* the rest columns */
294 temp1->ch = (wchar_t)*scp;
295 temp1->attr = win->wattr;
296 temp1->nsp = NULL;
297 SET_WCOL(*temp1, x);
298 temp1++, x--;
299 }
300 temp1--;
301 }
302 } else {
303 /* non-spacing character */
304 np = (nschar_t *)malloc(sizeof(nschar_t));
305 if (!np)
306 return ERR;
307 np->ch = *scp;
308 np->next = temp1->nsp;
309 temp1->nsp = np;
310 #ifdef DEBUG
311 __CTRACE(__CTRACE_INPUT,
312 "wins_nstr: add non-spacing char(%x)\n", np->ch);
313 #endif /* DEBUG */
314 }
315 }
316 #ifdef DEBUG
317 {
318 __CTRACE(__CTRACE_INPUT, "========after=======\n");
319 for (x = 0; x < win->maxx; x++)
320 __CTRACE(__CTRACE_INPUT,
321 "wins_nwstr: (%d,%d)=(%x,%x,%p)\n",
322 (int) win->cury, x,
323 win->alines[win->cury]->line[x].ch,
324 win->alines[win->cury]->line[x].attr,
325 win->alines[win->cury]->line[x].nsp);
326 }
327 #endif /* DEBUG */
328 newx = win->maxx - 1 + win->ch_off;
329 if (newx > *lnp->lastchp)
330 *lnp->lastchp = newx;
331 __touchline(win, (int) win->cury, sx, (int) win->maxx - 1);
332 return OK;
333 #endif /* HAVE_WCHAR */
334 }
335