Home | History | Annotate | Line # | Download | only in libcurses
ins_wstr.c revision 1.6 
      1 /*   $NetBSD: ins_wstr.c,v 1.6 2010/12/16 17:42:28 wiz 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: ins_wstr.c,v 1.6 2010/12/16 17:42:28 wiz 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
     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
     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
     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
     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
     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
    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
    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
    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;
    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 				if (wins_nwstr(win, ws,
    270 						min(win->maxx - x, 8-(x % 8)))
    271 							== ERR)
    272 					return ERR;
    273 				continue;
    274 		}
    275 		cw = wcwidth(*scp);
    276 		if (cw < 0)
    277 			cw = 1;
    278 		if (cw) {
    279 			/* 1st column */
    280 			temp1->ch = (wchar_t)*scp;
    281 			temp1->attr = win->wattr;
    282 			SET_WCOL(*temp1, cw);
    283 			temp1->nsp = NULL;
    284 #ifdef DEBUG
    285 			__CTRACE(__CTRACE_INPUT,
    286 			    "wins_nwstr: add spacing char(%x)\n", temp1->ch);
    287 #endif /* DEBUG */
    288 			temp2 = temp1++;
    289 			if (cw > 1) {
    290 				x = -1;
    291 				while (temp1 < temp2 + cw) {
    292 					/* the rest columns */
    293 					temp1->ch = (wchar_t)*scp;
    294 					temp1->attr = win->wattr;
    295 					temp1->nsp = NULL;
    296 					SET_WCOL(*temp1, x);
    297 					temp1++, x--;
    298 				}
    299 				temp1--;
    300 			}
    301 		} else {
    302 			/* non-spacing character */
    303 			np = (nschar_t *)malloc(sizeof(nschar_t));
    304 			if (!np)
    305 				return ERR;
    306 			np->ch = *scp;
    307 			np->next = temp1->nsp;
    308 			temp1->nsp = np;
    309 #ifdef DEBUG
    310 			__CTRACE(__CTRACE_INPUT,
    311 			    "wins_nstr: add non-spacing char(%x)\n", np->ch);
    312 #endif /* DEBUG */
    313 		}
    314 	}
    315 #ifdef DEBUG
    316 	{
    317 		__CTRACE(__CTRACE_INPUT, "========after=======\n");
    318 		for (x = 0; x < win->maxx; x++)
    319 			__CTRACE(__CTRACE_INPUT,
    320 			    "wins_nwstr: (%d,%d)=(%x,%x,%p)\n",
    321 			    (int) win->cury, x,
    322 			    win->alines[win->cury]->line[x].ch,
    323 			    win->alines[win->cury]->line[x].attr,
    324 			    win->alines[win->cury]->line[x].nsp);
    325 	}
    326 #endif /* DEBUG */
    327 	newx = win->maxx - 1 + win->ch_off;
    328 	if (newx > *lnp->lastchp)
    329 		*lnp->lastchp = newx;
    330 	__touchline(win, (int) win->cury, sx, (int) win->maxx - 1);
    331 	return OK;
    332 #endif /* HAVE_WCHAR */
    333 }
    334