1*eda3ef2dSRobert Mustacchi /*
2*eda3ef2dSRobert Mustacchi  * This file and its contents are supplied under the terms of the
3*eda3ef2dSRobert Mustacchi  * Common Development and Distribution License ("CDDL"), version 1.0.
4*eda3ef2dSRobert Mustacchi  * You may only use this file in accordance with the terms of version
5*eda3ef2dSRobert Mustacchi  * 1.0 of the CDDL.
6*eda3ef2dSRobert Mustacchi  *
7*eda3ef2dSRobert Mustacchi  * A full copy of the text of the CDDL should have accompanied this
8*eda3ef2dSRobert Mustacchi  * source.  A copy of the CDDL is also available via the Internet at
9*eda3ef2dSRobert Mustacchi  * http://www.illumos.org/license/CDDL.
10*eda3ef2dSRobert Mustacchi  */
11*eda3ef2dSRobert Mustacchi 
12*eda3ef2dSRobert Mustacchi /*
13*eda3ef2dSRobert Mustacchi  * Copyright 2020 Robert Mustacchi
14*eda3ef2dSRobert Mustacchi  */
15*eda3ef2dSRobert Mustacchi 
16*eda3ef2dSRobert Mustacchi /*
17*eda3ef2dSRobert Mustacchi  * C11 c32rtomb(3C) support.
18*eda3ef2dSRobert Mustacchi  *
19*eda3ef2dSRobert Mustacchi  * The char32_t type is designed to represent a UTF-32 value, which is what we
20*eda3ef2dSRobert Mustacchi  * can represent with a wchar_t. This is basically a wrapper around wcrtomb().
21*eda3ef2dSRobert Mustacchi  */
22*eda3ef2dSRobert Mustacchi 
23*eda3ef2dSRobert Mustacchi #include <locale.h>
24*eda3ef2dSRobert Mustacchi #include <wchar.h>
25*eda3ef2dSRobert Mustacchi #include <xlocale.h>
26*eda3ef2dSRobert Mustacchi #include <uchar.h>
27*eda3ef2dSRobert Mustacchi #include <errno.h>
28*eda3ef2dSRobert Mustacchi #include "unicode.h"
29*eda3ef2dSRobert Mustacchi 
30*eda3ef2dSRobert Mustacchi static mbstate_t c32rtomb_state;
31*eda3ef2dSRobert Mustacchi 
32*eda3ef2dSRobert Mustacchi size_t
c32rtomb(char * restrict str,char32_t c32,mbstate_t * restrict ps)33*eda3ef2dSRobert Mustacchi c32rtomb(char *restrict str, char32_t c32, mbstate_t *restrict ps)
34*eda3ef2dSRobert Mustacchi {
35*eda3ef2dSRobert Mustacchi 	if ((c32 >= UNICODE_SUR_MIN && c32 <= UNICODE_SUR_MAX) ||
36*eda3ef2dSRobert Mustacchi 	    c32 > UNICODE_SUP_MAX) {
37*eda3ef2dSRobert Mustacchi 		errno = EILSEQ;
38*eda3ef2dSRobert Mustacchi 		return ((size_t)-1);
39*eda3ef2dSRobert Mustacchi 	}
40*eda3ef2dSRobert Mustacchi 
41*eda3ef2dSRobert Mustacchi 	if (ps == NULL) {
42*eda3ef2dSRobert Mustacchi 		ps = &c32rtomb_state;
43*eda3ef2dSRobert Mustacchi 	}
44*eda3ef2dSRobert Mustacchi 
45*eda3ef2dSRobert Mustacchi 	if (str == NULL) {
46*eda3ef2dSRobert Mustacchi 		c32 = L'\0';
47*eda3ef2dSRobert Mustacchi 	}
48*eda3ef2dSRobert Mustacchi 
49*eda3ef2dSRobert Mustacchi 	return (wcrtomb_l(str, (wchar_t)c32, ps, uselocale((locale_t)0)));
50*eda3ef2dSRobert Mustacchi }
51