1/****************************************************************************
2 * Copyright (c) 2001-2005,2007 Free Software Foundation, Inc.              *
3 *                                                                          *
4 * Permission is hereby granted, free of charge, to any person obtaining a  *
5 * copy of this software and associated documentation files (the            *
6 * "Software"), to deal in the Software without restriction, including      *
7 * without limitation the rights to use, copy, modify, merge, publish,      *
8 * distribute, distribute with modifications, sublicense, and/or sell       *
9 * copies of the Software, and to permit persons to whom the Software is    *
10 * furnished to do so, subject to the following conditions:                 *
11 *                                                                          *
12 * The above copyright notice and this permission notice shall be included  *
13 * in all copies or substantial portions of the Software.                   *
14 *                                                                          *
15 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS  *
16 * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF               *
17 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.   *
18 * IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,   *
19 * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR    *
20 * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR    *
21 * THE USE OR OTHER DEALINGS IN THE SOFTWARE.                               *
22 *                                                                          *
23 * Except as contained in this notice, the name(s) of the above copyright   *
24 * holders shall not be used in advertising or otherwise to promote the     *
25 * sale, use or other dealings in this Software without prior written       *
26 * authorization.                                                           *
27 ****************************************************************************/
28
29/*
30**	lib_cchar.c
31**
32**	The routines setcchar() and getcchar().
33**
34*/
35
36#include <curses.priv.h>
37
38MODULE_ID("$Id: lib_cchar.c,v 1.12 2007/05/12 19:03:06 tom Exp $")
39
40/*
41 * The SuSv2 description leaves some room for interpretation.  We'll assume wch
42 * points to a string which is L'\0' terminated, contains at least one
43 * character with strictly positive width, which must be the first, and
44 * contains no characters of negative width.
45 */
46NCURSES_EXPORT(int)
47setcchar(cchar_t *wcval,
48	 const wchar_t *wch,
49	 const attr_t attrs,
50	 short color_pair,
51	 const void *opts)
52{
53    int i;
54    int len;
55    int code = OK;
56
57    TR(TRACE_CCALLS, (T_CALLED("setcchar(%p,%s,%lu,%d,%p)"),
58		      wcval, _nc_viswbuf(wch),
59		      (unsigned long) attrs, color_pair, opts));
60
61    len = wcslen(wch);
62    if (opts != NULL
63	|| (len > 1 && wcwidth(wch[0]) < 0)) {
64	code = ERR;
65    } else {
66	if (len > CCHARW_MAX)
67	    len = CCHARW_MAX;
68
69	/*
70	 * If we have a following spacing-character, stop at that point.  We
71	 * are only interested in adding non-spacing characters.
72	 */
73	for (i = 1; i < len; ++i) {
74	    if (wcwidth(wch[i]) != 0) {
75		len = i;
76		break;
77	    }
78	}
79
80	memset(wcval, 0, sizeof(*wcval));
81
82	if (len != 0) {
83	    SetAttr(*wcval, attrs | COLOR_PAIR(color_pair));
84	    SetPair(CHDEREF(wcval), color_pair);
85	    memcpy(&wcval->chars, wch, len * sizeof(wchar_t));
86	    TR(TRACE_CCALLS, ("copy %d wchars, first is %s", len,
87			      _tracecchar_t(wcval)));
88	}
89    }
90
91    TR(TRACE_CCALLS, (T_RETURN("%d"), code));
92    return (code);
93}
94
95NCURSES_EXPORT(int)
96getcchar(const cchar_t *wcval,
97	 wchar_t *wch,
98	 attr_t *attrs,
99	 short *color_pair,
100	 void *opts)
101{
102    wchar_t *wp;
103    int len;
104    int code = ERR;
105
106    TR(TRACE_CCALLS, (T_CALLED("getcchar(%p,%p,%p,%p,%p)"),
107		      wcval, wch, attrs, color_pair, opts));
108
109    if (opts == NULL) {
110	len = (wp = wmemchr(wcval->chars, L'\0', CCHARW_MAX))
111	    ? wp - wcval->chars
112	    : CCHARW_MAX;
113
114	if (wch == NULL) {
115	    code = len;
116	} else if (attrs == 0 || color_pair == 0) {
117	    code = ERR;
118	} else if (len >= 0) {
119	    *attrs = AttrOf(*wcval) & A_ATTRIBUTES;
120	    *color_pair = GetPair(*wcval);
121	    wmemcpy(wch, wcval->chars, (unsigned) len);
122	    wch[len] = L'\0';
123	    code = OK;
124	}
125    }
126
127    TR(TRACE_CCALLS, (T_RETURN("%d"), code));
128    return (code);
129}
130