Home | History | Annotate | Line # | Download | only in libcurses
inwstr.c revision 1.3.28.1
      1 /*   $NetBSD: inwstr.c,v 1.3.28.1 2017/01/07 08:56:04 pgoyette 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: inwstr.c,v 1.3.28.1 2017/01/07 08:56:04 pgoyette 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 }
    195