1166124Srafan/****************************************************************************
2262685Sdelphij * Copyright (c) 2003-2002,2011 Free Software Foundation, Inc.              *
3166124Srafan *                                                                          *
4166124Srafan * Permission is hereby granted, free of charge, to any person obtaining a  *
5166124Srafan * copy of this software and associated documentation files (the            *
6166124Srafan * "Software"), to deal in the Software without restriction, including      *
7166124Srafan * without limitation the rights to use, copy, modify, merge, publish,      *
8166124Srafan * distribute, distribute with modifications, sublicense, and/or sell       *
9166124Srafan * copies of the Software, and to permit persons to whom the Software is    *
10166124Srafan * furnished to do so, subject to the following conditions:                 *
11166124Srafan *                                                                          *
12166124Srafan * The above copyright notice and this permission notice shall be included  *
13166124Srafan * in all copies or substantial portions of the Software.                   *
14166124Srafan *                                                                          *
15166124Srafan * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS  *
16166124Srafan * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF               *
17166124Srafan * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.   *
18166124Srafan * IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,   *
19166124Srafan * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR    *
20166124Srafan * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR    *
21166124Srafan * THE USE OR OTHER DEALINGS IN THE SOFTWARE.                               *
22166124Srafan *                                                                          *
23166124Srafan * Except as contained in this notice, the name(s) of the above copyright   *
24166124Srafan * holders shall not be used in advertising or otherwise to promote the     *
25166124Srafan * sale, use or other dealings in this Software without prior written       *
26166124Srafan * authorization.                                                           *
27166124Srafan ****************************************************************************/
28166124Srafan
29166124Srafan/****************************************************************************
30166124Srafan *  Author: Thomas E. Dickey                                                *
31166124Srafan ****************************************************************************/
32166124Srafan
33166124Srafan/*
34166124Srafan *	lib_slk_wset.c
35166124Srafan *      Set soft label text.
36166124Srafan */
37166124Srafan#include <curses.priv.h>
38166124Srafan
39166124Srafan#if HAVE_WCTYPE_H
40166124Srafan#include <wctype.h>
41166124Srafan#endif
42166124Srafan
43262685SdelphijMODULE_ID("$Id: lib_slk_wset.c,v 1.13 2011/10/22 15:52:20 tom Exp $")
44166124Srafan
45166124SrafanNCURSES_EXPORT(int)
46166124Srafanslk_wset(int i, const wchar_t *astr, int format)
47166124Srafan{
48166124Srafan    int result = ERR;
49166124Srafan    size_t arglen;
50166124Srafan    const wchar_t *str;
51166124Srafan    char *mystr;
52166124Srafan    mbstate_t state;
53166124Srafan
54166124Srafan    T((T_CALLED("slk_wset(%d, %s, %d)"), i, _nc_viswbuf(astr), format));
55166124Srafan
56262685Sdelphij    if (astr != 0) {
57262685Sdelphij	init_mb(state);
58262685Sdelphij	str = astr;
59262685Sdelphij	if ((arglen = wcsrtombs(NULL, &str, (size_t) 0, &state)) != (size_t) -1) {
60262685Sdelphij	    if ((mystr = (char *) _nc_doalloc(0, arglen + 1)) != 0) {
61262685Sdelphij		str = astr;
62262685Sdelphij		if (wcsrtombs(mystr, &str, arglen, &state) != (size_t) -1) {
63262685Sdelphij		    /* glibc documentation claims that the terminating L'\0'
64262685Sdelphij		     * is written, but it is not...
65262685Sdelphij		     */
66262685Sdelphij		    mystr[arglen] = 0;
67262685Sdelphij		    result = slk_set(i, mystr, format);
68262685Sdelphij		}
69262685Sdelphij		free(mystr);
70166124Srafan	    }
71166124Srafan	}
72166124Srafan    }
73166124Srafan    returnCode(result);
74166124Srafan}
75