lib/libcurses/ins_wstr.c

   1 /*   $NetBSD: ins_wstr.c,v 1.3 2007/05/29 11:10:56 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@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.3 2007/05/29 11:10:56 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(__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 }