lib/libcurses/ins_wstr.c

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