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