lib/libcurses/inwstr.c

   1 /*   $NetBSD: inwstr.c,v 1.2 2007/05/28 15:01: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: inwstr.c,v 1.2 2007/05/28 15:01:56 blymn Exp $");
  40 #endif                                            /* not lint */
  41
  42 #include "curses.h"
  43 #include "curses_private.h"
  44
  45 /*
  46  * inwstr, innwstr --
  47  *      Return a string of wide characters at cursor position from stdscr.
  48  */
  49 __warn_references(inwstr,
  50         "warning: this program uses inwstr(), which is unsafe.")
  51 int
  52 inwstr(wchar_t *wstr)
  53 {
  54 #ifndef HAVE_WCHAR
  55         return ERR;
  56 #else
  57         return winwstr(stdscr, wstr);
  58 #endif /* HAVE_WCHAR */
  59 }
  60
  61 int
  62 innwstr(wchar_t *wstr, int n)
  63 {
  64 #ifndef HAVE_WCHAR
  65         return ERR;
  66 #else
  67         return winnwstr(stdscr, wstr, n);
  68 #endif /* HAVE_WCHAR */
  69 }
  70
  71 /*
  72  * mvinwstr, mvinnwstr --
  73  *  Return a string of wide characters at position (y, x) from stdscr.
  74  */
  75 __warn_references(mvinwstr,
  76         "warning: this program uses mvinwstr(), which is unsafe.")
  77 int
  78 mvinwstr(int y, int x, wchar_t *wstr)
  79 {
  80 #ifndef HAVE_WCHAR
  81         return ERR;
  82 #else
  83         return mvwinwstr(stdscr, y, x, wstr);
  84 #endif /* HAVE_WCHAR */
  85 }
  86
  87 int
  88 mvinnwstr(int y, int x, wchar_t *wstr, int n)
  89 {
  90 #ifndef HAVE_WCHAR
  91         return ERR;
  92 #else
  93         return mvwinnwstr(stdscr, y, x, wstr, n);
  94 #endif /* HAVE_WCHAR */
  95 }
  96
  97 /*
  98  * mvwinwstr, mvwinnwstr --
  99  *  Return an array wide characters at position (y, x) from the given window.
 100  */
 101 __warn_references(mvwinwstr,
 102         "warning: this program uses mvwinwstr(), which is unsafe.")
 103 int
 104 mvwinwstr(WINDOW *win, int y, int x, wchar_t *wstr)
 105 {
 106 #ifndef HAVE_WCHAR
 107         return ERR;
 108 #else
 109         if (wmove(win, y, x) == ERR)
 110                 return ERR;
 111
 112         return winwstr(win, wstr);
 113 #endif /* HAVE_WCHAR */
 114 }
 115
 116 int
 117 mvwinnwstr(WINDOW *win, int y, int x, wchar_t *wstr, int n)
 118 {
 119 #ifndef HAVE_WCHAR
 120         return ERR;
 121 #else
 122         if (wmove(win, y, x) == ERR)
 123                 return ERR;
 124
 125         return winnwstr(win, wstr, n);
 126 #endif /* HAVE_WCHAR */
 127 }
 128
 129 /*
 130  * winwstr, winnwstr --
 131  *      Return a string of wide characters at cursor position.
 132  */
 133 __warn_references(winwstr,
 134         "warning: this program uses winwstr(), which is unsafe.")
 135 int
 136 winwstr(WINDOW *win, wchar_t *wstr)
 137 {
 138 #ifndef HAVE_WCHAR
 139         return ERR;
 140 #else
 141
 142         return winnwstr(win, wstr, -1);
 143 #endif /* HAVE_WCHAR */
 144 }
 145
 146 /*
 147  * - winnwstr() returns the number of characters copied only of if it is
 148  *   called with n >= 0 (ie, as in_wchnstr(), mvin_wchnstr(), mvwin_wchnstr()
 149  *   or win_wchnstr()).  If N < 0, it returns `OK'.
 150  * - SUSv2/xcurses doesn't document whether the trailing NUL is included
 151  *   in the length count or not.  For safety's sake it _is_ included.
 152  * - This implementation does not (yet) support multi-byte characters
 153  *   strings.
 154  */
 155 int
 156 winnwstr(WINDOW *win, wchar_t *wstr, int n)
 157 {
 158 #ifndef HAVE_WCHAR
 159         return ERR;
 160 #else
 161         __LDATA *start;
 162         int x, cw, cnt;
 163         wchar_t *wcp;
 164
 165         if (wstr == NULL)
 166                 return ERR;
 167
 168         start = &win->alines[win->cury]->line[win->curx];
 169         x = win->curx;
 170         cw = WCOL( *start );
 171         if (cw < 0) {
 172                 start += cw;
 173                 x += cw;
 174         }
 175     cnt = 0;
 176         wcp = wstr;
 177         /* (n - 1) to leave room for the trailing 0 element */
 178         while ((x < win->maxx) && ((n < 0) || ((n > 1) && (cnt < n - 1)))) {
 179                 cw = WCOL( *start );
 180                 *wcp = start->ch;
 181                 wcp++;
 182                 cnt++;
 183                 x += cw;
 184                 if ( x < win->maxx )
 185                         start += cw;
 186         }
 187         *wcp = L'\0';
 188
 189         if (n < 0)
 190                 return OK;
 191         else
 192                 return cnt;
 193 #endif /* HAVE_WCHAR */
 194 }