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 Mustacchic32rtomb(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