1 /*-
2 * SPDX-License-Identifier: BSD-2-Clause-FreeBSD
3 *
4 * Copyright 2010 Nexenta Systems, Inc. All rights reserved.
5 * Copyright (c) 1995 Alex Tatmanjants <[email protected]>
6 * at Electronni Visti IA, Kiev, Ukraine.
7 * All rights reserved.
8 *
9 * Copyright (c) 2011 The FreeBSD Foundation
10 * All rights reserved.
11 * Portions of this software were developed by David Chisnall
12 * under sponsorship from the FreeBSD Foundation.
13 *
14 * Redistribution and use in source and binary forms, with or without
15 * modification, are permitted provided that the following conditions
16 * are met:
17 * 1. Redistributions of source code must retain the above copyright
18 * notice, this list of conditions and the following disclaimer.
19 * 2. Redistributions in binary form must reproduce the above copyright
20 * notice, this list of conditions and the following disclaimer in the
21 * documentation and/or other materials provided with the distribution.
22 *
23 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND
24 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE
27 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
33 * SUCH DAMAGE.
34 */
35
36 #include <sys/cdefs.h>
37 __FBSDID("$FreeBSD$");
38
39 #include <stdlib.h>
40 #include <string.h>
41 #include <errno.h>
42 #include <wchar.h>
43 #include "collate.h"
44
45 size_t
46 strxfrm_l(char * __restrict dest, const char * __restrict src, size_t len, locale_t loc);
47 size_t
strxfrm(char * __restrict dest,const char * __restrict src,size_t len)48 strxfrm(char * __restrict dest, const char * __restrict src, size_t len)
49 {
50 return strxfrm_l(dest, src, len, __get_locale());
51 }
52
53 size_t
strxfrm_l(char * __restrict dest,const char * __restrict src,size_t len,locale_t locale)54 strxfrm_l(char * __restrict dest, const char * __restrict src, size_t len, locale_t locale)
55 {
56 size_t slen;
57 size_t xlen;
58 wchar_t *wcs = NULL;
59
60 FIX_LOCALE(locale);
61 struct xlocale_collate *table =
62 (struct xlocale_collate*)locale->components[XLC_COLLATE];
63
64 if (!*src) {
65 if (len > 0)
66 *dest = '\0';
67 return (0);
68 }
69
70 /*
71 * The conversion from multibyte to wide character strings is
72 * strictly reducing (one byte of an mbs cannot expand to more
73 * than one wide character.)
74 */
75 slen = strlen(src);
76
77 if (table->__collate_load_error)
78 goto error;
79
80 if ((wcs = malloc((slen + 1) * sizeof (wchar_t))) == NULL)
81 goto error;
82
83 if (mbstowcs_l(wcs, src, slen + 1, locale) == (size_t)-1)
84 goto error;
85
86 if ((xlen = _collate_sxfrm(table, wcs, dest, len)) == (size_t)-1)
87 goto error;
88
89 free(wcs);
90
91 if (len > xlen) {
92 dest[xlen] = 0;
93 } else if (len) {
94 dest[len-1] = 0;
95 }
96
97 return (xlen);
98
99 error:
100 /* errno should be set to ENOMEM if malloc failed */
101 free(wcs);
102 strlcpy(dest, src, len);
103
104 return (slen);
105 }
106