Home | History | Annotate | Line # | Download | only in libcurses
ins_wstr.c revision 1.4 
      1 /*   $NetBSD: ins_wstr.c,v 1.4 2009/07/22 16:57:15 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 (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.4 2009/07/22 16:57:15 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
     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)
    148 		return ERR;
    149 
    150 	scp = wstr + 1;
    151 	width = cw;
    152 	len = 1;
    153 	n--;
    154 	while (*scp) {
    155 		if (!n)
    156 			break;
    157 		n--, len++, width += wcwidth(*scp);
    158 		scp++;
    159 	}
    160 #ifdef DEBUG
    161 	__CTRACE(__CTRACE_INPUT, "wins_nwstr: width=%d,len=%d\n", width, len);
    162 #endif /* DEBUG */
    163 
    164 	if (cw > win->maxx - win->curx + 1)
    165 		return ERR;
    166 	start = &win->alines[win->cury]->line[win->curx];
    167 	sx = win->curx;
    168 	lnp = win->alines[win->cury];
    169 	pcw = WCOL(*start);
    170 	if (pcw < 0) {
    171 		sx += pcw;
    172 		start += pcw;
    173 	}
    174 #ifdef DEBUG
    175 	__CTRACE(__CTRACE_INPUT, "wins_nwstr: start@(%d)\n", sx);
    176 #endif /* DEBUG */
    177 	pcw = WCOL(*start);
    178 	lnp->flags |= __ISDIRTY;
    179 	newx = sx + win->ch_off;
    180 	if (newx < *lnp->firstchp)
    181 		*lnp->firstchp = newx;
    182 #ifdef DEBUG
    183 	{
    184 		__CTRACE(__CTRACE_INPUT, "========before=======\n");
    185 		for (x = 0; x < win->maxx; x++)
    186 			__CTRACE(__CTRACE_INPUT,
    187 			    "wins_nwstr: (%d,%d)=(%x,%x,%p)\n",
    188 			    (int) win->cury, x,
    189 			    win->alines[win->cury]->line[x].ch,
    190 			    win->alines[win->cury]->line[x].attr,
    191 			    win->alines[win->cury]->line[x].nsp);
    192 	}
    193 #endif /* DEBUG */
    194 
    195 	/* shift all complete characters */
    196 	if (sx + width + pcw <= win->maxx) {
    197 #ifdef DEBUG
    198 		__CTRACE(__CTRACE_INPUT, "wins_nwstr: shift all characters\n");
    199 #endif /* DEBUG */
    200 		temp1 = &win->alines[win->cury]->line[win->maxx - 1];
    201 		temp2 = temp1 - width;
    202 		pcw = WCOL(*(temp2 + 1));
    203 		if (pcw < 0) {
    204 #ifdef DEBUG
    205 			__CTRACE(__CTRACE_INPUT,
    206 			    "wins_nwstr: clear from %d to EOL(%d)\n",
    207 			    win->maxx + pcw, win->maxx - 1);
    208 #endif /* DEBUG */
    209 			temp2 += pcw;
    210 			while (temp1 > temp2 + width) {
    211 				temp1->ch = (wchar_t)btowc((int) win->bch);
    212 				if (_cursesi_copy_nsp(win->bnsp, temp1) == ERR)
    213 					return ERR;
    214 				temp1->attr = win->battr;
    215 				SET_WCOL(*temp1, 1);
    216 #ifdef DEBUG
    217 				__CTRACE(__CTRACE_INPUT,
    218 				    "wins_nwstr: empty cell(%p)\n", temp1);
    219 #endif /* DEBUG */
    220 				temp1--;
    221 			}
    222 		}
    223 		while (temp2 >= start) {
    224 			(void)memcpy(temp1, temp2, sizeof(__LDATA));
    225 			temp1--, temp2--;
    226 		}
    227 #ifdef DEBUG
    228 		{
    229 			__CTRACE(__CTRACE_INPUT, "=====after shift====\n");
    230 			for (x = 0; x < win->maxx; x++)
    231 				__CTRACE(__CTRACE_INPUT,
    232 				    "wins_nwstr: (%d,%d)=(%x,%x,%p)\n",
    233 				    (int) win->cury, x,
    234 				    win->alines[win->cury]->line[x].ch,
    235 				    win->alines[win->cury]->line[x].attr,
    236 				    win->alines[win->cury]->line[x].nsp);
    237 		}
    238 #endif /* DEBUG */
    239 	}
    240 
    241 	/* update string columns */
    242 	x = win->curx;
    243 	y = win->cury;
    244 	for (scp = wstr, temp1 = start; len; len--, scp++) {
    245 		switch (*scp) {
    246 			case L'\b':
    247 				if (--x < 0)
    248 					x = 0;
    249 				win->curx = x;
    250 				continue;;
    251 			case L'\r':
    252 				win->curx = 0;
    253 				continue;
    254 			case L'\n':
    255 				wclrtoeol(win);
    256 				if (y == win->scr_b) {
    257 					if (!(win->flags & __SCROLLOK))
    258 						return ERR;
    259 					scroll(win);
    260 				}
    261 				continue;
    262 			case L'\t':
    263 				if (wins_nwstr(win, ws,
    264 						min(win->maxx - x, 8-(x % 8)))
    265 							== ERR)
    266 					return ERR;
    267 				continue;
    268 		}
    269 		cw = wcwidth(*scp);
    270 		if (cw) {
    271 			/* 1st column */
    272 			temp1->ch = (wchar_t)*scp;
    273 			temp1->attr = win->wattr;
    274 			SET_WCOL(*temp1, cw);
    275 			temp1->nsp = NULL;
    276 #ifdef DEBUG
    277 			__CTRACE(__CTRACE_INPUT,
    278 			    "wins_nwstr: add spacing char(%x)\n", temp1->ch);
    279 #endif /* DEBUG */
    280 			temp2 = temp1++;
    281 			if (cw > 1) {
    282 				x = -1;
    283 				while (temp1 < temp2 + cw) {
    284 					/* the rest columns */
    285 					temp1->ch = (wchar_t)*scp;
    286 					temp1->attr = win->wattr;
    287 					temp1->nsp = NULL;
    288 					SET_WCOL(*temp1, x);
    289 					temp1++, x--;
    290 				}
    291 				temp1--;
    292 			}
    293 		} else {
    294 			/* non-spacing character */
    295 			np = (nschar_t *)malloc(sizeof(nschar_t));
    296 			if (!np)
    297 				return ERR;
    298 			np->ch = *scp;
    299 			np->next = temp1->nsp;
    300 			temp1->nsp = np;
    301 #ifdef DEBUG
    302 			__CTRACE(__CTRACE_INPUT,
    303 			    "wins_nstr: add non-spacing char(%x)\n", np->ch);
    304 #endif /* DEBUG */
    305 		}
    306 	}
    307 #ifdef DEBUG
    308 	{
    309 		__CTRACE(__CTRACE_INPUT, "========after=======\n");
    310 		for (x = 0; x < win->maxx; x++)
    311 			__CTRACE(__CTRACE_INPUT,
    312 			    "wins_nwstr: (%d,%d)=(%x,%x,%p)\n",
    313 			    (int) win->cury, x,
    314 			    win->alines[win->cury]->line[x].ch,
    315 			    win->alines[win->cury]->line[x].attr,
    316 			    win->alines[win->cury]->line[x].nsp);
    317 	}
    318 #endif /* DEBUG */
    319 	newx = win->maxx - 1 + win->ch_off;
    320 	if (newx > *lnp->lastchp)
    321 		*lnp->lastchp = newx;
    322 	__touchline(win, (int) win->cury, sx, (int) win->maxx - 1);
    323 	return OK;
    324 #endif /* HAVE_WCHAR */
    325 }
    326