ncurses 6.0 - patch 20170401
[ncurses.git] / ncurses / widechar / lib_cchar.c
1 /****************************************************************************
2  * Copyright (c) 2001-2016,2017 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
38 MODULE_ID("$Id: lib_cchar.c,v 1.31 2017/03/31 11:14:26 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  */
46 NCURSES_EXPORT(int)
47 setcchar(cchar_t *wcval,
48          const wchar_t *wch,
49          const attr_t attrs,
50          NCURSES_PAIRS_T pair_arg,
51          const void *opts)
52 {
53     int code = OK;
54     int color_pair = pair_arg;
55     unsigned len;
56
57     TR(TRACE_CCALLS, (T_CALLED("setcchar(%p,%s,%lu,%d,%p)"),
58                       (void *) wcval, _nc_viswbuf(wch),
59                       (unsigned long) attrs, color_pair, opts));
60
61     set_extended_pair(opts, color_pair);
62     if (wch == NULL
63         || ((len = (unsigned) wcslen(wch)) > 1 && wcwidth(wch[0]) < 0)
64         || color_pair < 0) {
65         code = ERR;
66     } else {
67         unsigned i;
68
69         if (len > CCHARW_MAX)
70             len = CCHARW_MAX;
71
72         /*
73          * If we have a following spacing-character, stop at that point.  We
74          * are only interested in adding non-spacing characters.
75          */
76         for (i = 1; i < len; ++i) {
77             if (wcwidth(wch[i]) != 0) {
78                 len = i;
79                 break;
80             }
81         }
82
83         memset(wcval, 0, sizeof(*wcval));
84
85         if (len != 0) {
86             SetAttr(*wcval, attrs);
87             SetPair(CHDEREF(wcval), color_pair);
88             memcpy(&wcval->chars, wch, len * sizeof(wchar_t));
89             TR(TRACE_CCALLS, ("copy %d wchars, first is %s", len,
90                               _tracecchar_t(wcval)));
91         }
92     }
93
94     TR(TRACE_CCALLS, (T_RETURN("%d"), code));
95     return (code);
96 }
97
98 NCURSES_EXPORT(int)
99 getcchar(const cchar_t *wcval,
100          wchar_t *wch,
101          attr_t *attrs,
102          NCURSES_PAIRS_T *pair_arg,
103          void *opts)
104 {
105     int code = ERR;
106     int color_pair;
107
108     TR(TRACE_CCALLS, (T_CALLED("getcchar(%p,%p,%p,%p,%p)"),
109                       (const void *) wcval,
110                       (void *) wch,
111                       (void *) attrs,
112                       (void *) pair_arg,
113                       opts));
114
115     if (opts == NULL && wcval != NULL) {
116         wchar_t *wp;
117         int len;
118
119         len = ((wp = wmemchr(wcval->chars, L'\0', (size_t) CCHARW_MAX))
120                ? (int) (wp - wcval->chars)
121                : CCHARW_MAX);
122
123         if (wch == NULL) {
124             /*
125              * If the value is a null, set the length to 1.
126              * If the value is not a null, return the length plus 1 for null.
127              */
128             code = (len < CCHARW_MAX) ? (len + 1) : CCHARW_MAX;
129         } else if (attrs == 0 || pair_arg == 0) {
130             code = ERR;
131         } else if (len >= 0) {
132             *attrs = AttrOf(*wcval) & A_ATTRIBUTES;
133             color_pair = GetPair(*wcval);
134             get_extended_pair(opts, color_pair);
135             *pair_arg = limit_PAIRS(color_pair);
136             wmemcpy(wch, wcval->chars, (size_t) len);
137             wch[len] = L'\0';
138             if (*pair_arg >= 0)
139                 code = OK;
140         }
141     }
142
143     TR(TRACE_CCALLS, (T_RETURN("%d"), code));
144     return (code);
145 }