Home | History | Annotate | Line # | Download | only in libcurses
add_wchstr.c revision 1.5 
      1 /*   $NetBSD: add_wchstr.c,v 1.5 2016/10/22 21:55:06 christos 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 (at) arl.wustl.edu,ruibiao (at) 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: add_wchstr.c,v 1.5 2016/10/22 21:55:06 christos Exp $");
     40 #endif				/* not lint */
     41 
     42 #include <stdlib.h>
     43 
     44 #include "curses.h"
     45 #include "curses_private.h"
     46 
     47 /*
     48  * add_wchstr --
     49  *  Add a wide string to stdscr starting at (_cury, _curx).
     50  */
     51 int
     52 add_wchstr(const cchar_t *wchstr)
     53 {
     54 #ifndef HAVE_WCHAR
     55 	return ERR;
     56 #else
     57 	return wadd_wchnstr(stdscr, wchstr, -1);
     58 #endif
     59 }
     60 
     61 
     62 /*
     63  * wadd_wchstr --
     64  *      Add a string to the given window starting at (_cury, _curx).
     65  */
     66 int
     67 wadd_wchstr(WINDOW *win, const cchar_t *wchstr)
     68 {
     69 #ifndef HAVE_WCHAR
     70 	return ERR;
     71 #else
     72 	return wadd_wchnstr(win, wchstr, -1);
     73 #endif
     74 }
     75 
     76 
     77 /*
     78  * add_wchnstr --
     79  *      Add a string (at most n characters) to stdscr starting
     80  *	at (_cury, _curx).  If n is negative, add the entire string.
     81  */
     82 int
     83 add_wchnstr(const cchar_t *wchstr, int n)
     84 {
     85 #ifndef HAVE_WCHAR
     86 	return ERR;
     87 #else
     88 	return wadd_wchnstr(stdscr, wchstr, n);
     89 #endif
     90 }
     91 
     92 
     93 /*
     94  * mvadd_wchstr --
     95  *      Add a string to stdscr starting at (y, x)
     96  */
     97 int
     98 mvadd_wchstr(int y, int x, const cchar_t *wchstr)
     99 {
    100 #ifndef HAVE_WCHAR
    101 	return ERR;
    102 #else
    103 	return mvwadd_wchnstr(stdscr, y, x, wchstr, -1);
    104 #endif
    105 }
    106 
    107 
    108 /*
    109  * mvwadd_wchstr --
    110  *      Add a string to the given window starting at (y, x)
    111  */
    112 int
    113 mvwadd_wchstr(WINDOW *win, int y, int x, const cchar_t *wchstr)
    114 {
    115 #ifndef HAVE_WCHAR
    116 	return ERR;
    117 #else
    118 	return mvwadd_wchnstr(win, y, x, wchstr, -1);
    119 #endif
    120 }
    121 
    122 
    123 /*
    124  * mvadd_wchnstr --
    125  *      Add a string of at most n characters to stdscr
    126  *      starting at (y, x).
    127  */
    128 int
    129 mvadd_wchnstr(int y, int x, const cchar_t *wchstr, int n)
    130 {
    131 #ifndef HAVE_WCHAR
    132 	return ERR;
    133 #else
    134 	return mvwadd_wchnstr(stdscr, y, x, wchstr, n);
    135 #endif
    136 }
    137 
    138 
    139 /*
    140  * mvwadd_wchnstr --
    141  *      Add a string of at most n characters to the given window
    142  *      starting at (y, x).
    143  */
    144 int
    145 mvwadd_wchnstr(WINDOW *win, int y, int x, const cchar_t *wchstr, int n)
    146 {
    147 #ifndef HAVE_WCHAR
    148 	return ERR;
    149 #else
    150 	if (wmove(win, y, x) == ERR)
    151 		return ERR;
    152 
    153 	return wadd_wchnstr(win, wchstr, n);
    154 #endif
    155 }
    156 
    157 
    158 /*
    159  * wadd_wchnstr --
    160  *	Add a string (at most n wide characters) to the given window
    161  *	starting at (_cury, _curx).  If n is -1, add the entire string.
    162  */
    163 int
    164 wadd_wchnstr(WINDOW *win, const cchar_t *wchstr, int n)
    165 {
    166 #ifndef HAVE_WCHAR
    167 	return ERR;
    168 #else
    169 	const cchar_t *chp;
    170 	wchar_t wc;
    171 	int cw, x, y, sx, ex, newx, i, cnt;
    172 	__LDATA *lp, *tp;
    173 	nschar_t *np, *tnp;
    174 	__LINE *lnp;
    175 
    176 #ifdef DEBUG
    177 	__CTRACE(__CTRACE_INPUT,
    178 	    "wadd_wchnstr: win = %p, wchstr = %p, n = %d\n", win, wchstr, n);
    179 #endif
    180 
    181 	if (!wchstr)
    182 		return OK;
    183 
    184 	/* compute length of the cchar string */
    185 	if (n < -1)
    186 		return ERR;
    187 	if (n >= 0)
    188 		for (chp = wchstr, cnt = 0; n && chp->vals[0];
    189 			n--, chp++, ++cnt);
    190 	else
    191 		for (chp = wchstr, cnt = 0; chp->vals[0]; chp++, ++cnt);
    192 #ifdef DEBUG
    193 	__CTRACE(__CTRACE_INPUT, "wadd_wchnstr: len=%d\n", cnt);
    194 #endif /* DEBUG */
    195 	chp = wchstr;
    196 	x = win->curx;
    197 	y = win->cury;
    198 	lp = &win->alines[y]->line[x];
    199 	lnp = win->alines[y];
    200 
    201 	cw = WCOL(*lp);
    202 	if (cw >= 0) {
    203 		sx = x;
    204 	} else {
    205 		if (wcwidth(chp->vals[0])) {
    206 			/* clear the partial character before cursor */
    207 			for (tp = lp + cw; tp < lp; tp++) {
    208 				tp->ch = (wchar_t) btowc((int) win->bch);
    209 				if (_cursesi_copy_nsp(win->bnsp, tp) == ERR)
    210 					return ERR;
    211 				tp->attr = win->battr;
    212 				SET_WCOL(*tp, 1);
    213 				np = tp->nsp;
    214 			}
    215 		} else {
    216 			/* move to the start of current char */
    217 			lp += cw;
    218 			x += cw;
    219 		}
    220 		sx = x + cw;
    221 	}
    222 	lnp->flags |= __ISDIRTY;
    223 	newx = sx + win->ch_off;
    224 	if (newx < *lnp->firstchp)
    225 		*lnp->firstchp = newx;
    226 
    227 	/* add characters in the string */
    228 	ex = x;
    229 	while (cnt) {
    230 		x = ex;
    231 		wc = chp->vals[0];
    232 #ifdef DEBUG
    233 		__CTRACE(__CTRACE_INPUT, "wadd_wchnstr: adding %x", wc);
    234 #endif /* DEBUG */
    235 		cw = wcwidth(wc);
    236 		if (cw < 0)
    237 			cw = 1;
    238 		if (cw) {
    239 			/* spacing character */
    240 #ifdef DEBUG
    241 			__CTRACE(__CTRACE_INPUT,
    242 			    " as a spacing char(width=%d)\n", cw);
    243 #endif /* DEBUG */
    244 			if (cw > win->maxx - ex) {
    245 				/* clear to EOL */
    246 				while (ex < win->maxx) {
    247 					lp->ch = (wchar_t)
    248 						btowc((int) win->bch);
    249 					if (_cursesi_copy_nsp(win->bnsp, lp)
    250 					    == ERR)
    251 						return ERR;
    252 					lp->attr = win->battr;
    253 					SET_WCOL(*lp, 1);
    254 					lp++, ex++;
    255 				}
    256 				ex = win->maxx - 1;
    257 				break;
    258 			}
    259 			/* this could combine with the insertion of
    260 			 * non-spacing char */
    261 			np = lp->nsp;
    262 			if (np) {
    263 				while (np) {
    264 					tnp = np->next;
    265 					free(np);
    266 					np = tnp;
    267 				}
    268 				lp->nsp = NULL;
    269 			}
    270 			lp->ch = chp->vals[0];
    271 			lp->attr = chp->attributes & WA_ATTRIBUTES;
    272 			SET_WCOL(*lp, cw);
    273 			if (chp->elements > 1) {
    274 				for (i = 1; i < chp->elements; i++) {
    275 					np = (nschar_t *)
    276 						malloc(sizeof(nschar_t));
    277 					if (!np)
    278 						return ERR;
    279 					np->ch = chp->vals[i];
    280 					np->next = lp->nsp;
    281 					lp->nsp = np;
    282 				}
    283 			}
    284 			lp++, ex++;
    285 #ifdef DEBUG
    286 			__CTRACE(__CTRACE_INPUT,
    287 				"wadd_wchnstr: ex = %d, x = %d, cw = %d\n",
    288 				 ex, x, cw);
    289 #endif /* DEBUG */
    290 			while (ex - x <= cw - 1) {
    291 				np = lp->nsp;
    292 				if (np) {
    293 					while (np) {
    294 						tnp = np->next;
    295 						free(np);
    296 						np = tnp;
    297 					}
    298 					lp->nsp = NULL;
    299 				}
    300 				lp->ch = chp->vals[0];
    301 				lp->attr = chp->attributes & WA_ATTRIBUTES;
    302 				SET_WCOL(*lp, x - ex);
    303 				lp++, ex++;
    304 			}
    305 		} else {
    306 			/* non-spacing character */
    307 #ifdef DEBUG
    308 			__CTRACE(__CTRACE_INPUT,
    309 				"wadd_wchnstr: as non-spacing char");
    310 #endif /* DEBUG */
    311 			for (i = 0; i < chp->elements; i++) {
    312 				np = malloc(sizeof(nschar_t));
    313 				if (!np)
    314 					return ERR;
    315 				np->ch = chp->vals[i];
    316 				np->next = lp->nsp;
    317 				lp->nsp = np;
    318 			}
    319 		}
    320 		cnt--, chp++;
    321 	}
    322 #ifdef DEBUG
    323 	for (i = sx; i < ex; i++) {
    324 		__CTRACE(__CTRACE_INPUT, "wadd_wchnstr: (%d,%d)=(%x,%x,%p)\n",
    325 		    win->cury, i, win->alines[win->cury]->line[i].ch,
    326 		    win->alines[win->cury]->line[i].attr,
    327 		    win->alines[win->cury]->line[i].nsp);
    328 	}
    329 #endif /* DEBUG */
    330 	lnp->flags |= __ISDIRTY;
    331 	newx = ex + win->ch_off;
    332 	if (newx > *lnp->lastchp)
    333 		*lnp->lastchp = newx;
    334 	__touchline(win, y, sx, ex);
    335 
    336 	return OK;
    337 #endif /* HAVE_WCHAR */
    338 }
    339