xref: /freebsd/lib/libc/string/wcsxfrm.c (revision fd4f1dd9fa30021c03609767a0e865962633d60d)
1fd4f1dd9STim J. Robbins /*-
2fd4f1dd9STim J. Robbins  * Copyright (c) 1995 Alex Tatmanjants <alex@elvisti.kiev.ua>
3fd4f1dd9STim J. Robbins  *		at Electronni Visti IA, Kiev, Ukraine.
4fd4f1dd9STim J. Robbins  *			All rights reserved.
5fd4f1dd9STim J. Robbins  *
6fd4f1dd9STim J. Robbins  * Redistribution and use in source and binary forms, with or without
7fd4f1dd9STim J. Robbins  * modification, are permitted provided that the following conditions
8fd4f1dd9STim J. Robbins  * are met:
9fd4f1dd9STim J. Robbins  * 1. Redistributions of source code must retain the above copyright
10fd4f1dd9STim J. Robbins  *    notice, this list of conditions and the following disclaimer.
11fd4f1dd9STim J. Robbins  * 2. Redistributions in binary form must reproduce the above copyright
12fd4f1dd9STim J. Robbins  *    notice, this list of conditions and the following disclaimer in the
13fd4f1dd9STim J. Robbins  *    documentation and/or other materials provided with the distribution.
14fd4f1dd9STim J. Robbins  *
15fd4f1dd9STim J. Robbins  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND
16fd4f1dd9STim J. Robbins  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
17fd4f1dd9STim J. Robbins  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
18fd4f1dd9STim J. Robbins  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE
19fd4f1dd9STim J. Robbins  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
20fd4f1dd9STim J. Robbins  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
21fd4f1dd9STim J. Robbins  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
22fd4f1dd9STim J. Robbins  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
23fd4f1dd9STim J. Robbins  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
24fd4f1dd9STim J. Robbins  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
25fd4f1dd9STim J. Robbins  * SUCH DAMAGE.
26fd4f1dd9STim J. Robbins  */
27fd4f1dd9STim J. Robbins 
28fd4f1dd9STim J. Robbins #include <sys/cdefs.h>
29fd4f1dd9STim J. Robbins #if 0
30fd4f1dd9STim J. Robbins __FBSDID("FreeBSD: src/lib/libc/string/strxfrm.c,v 1.15 2002/09/06 11:24:06 tjr Exp ");
31fd4f1dd9STim J. Robbins #endif
32fd4f1dd9STim J. Robbins __FBSDID("$FreeBSD$");
33fd4f1dd9STim J. Robbins 
34fd4f1dd9STim J. Robbins #include <stdlib.h>
35fd4f1dd9STim J. Robbins #include <string.h>
36fd4f1dd9STim J. Robbins #include <wchar.h>
37fd4f1dd9STim J. Robbins #include "collate.h"
38fd4f1dd9STim J. Robbins 
39fd4f1dd9STim J. Robbins static char *__mbsdup(const wchar_t *);
40fd4f1dd9STim J. Robbins 
41fd4f1dd9STim J. Robbins /*
42fd4f1dd9STim J. Robbins  * Placeholder wcsxfrm() implementation. See wcscoll.c for a description of
43fd4f1dd9STim J. Robbins  * the logic used.
44fd4f1dd9STim J. Robbins  */
45fd4f1dd9STim J. Robbins size_t
46fd4f1dd9STim J. Robbins wcsxfrm(wchar_t * __restrict dest, const wchar_t * __restrict src, size_t len)
47fd4f1dd9STim J. Robbins {
48fd4f1dd9STim J. Robbins 	int prim, sec, l;
49fd4f1dd9STim J. Robbins 	size_t slen;
50fd4f1dd9STim J. Robbins 	char *mbsrc, *s, *ss;
51fd4f1dd9STim J. Robbins 
52fd4f1dd9STim J. Robbins 	if (*src == L'\0') {
53fd4f1dd9STim J. Robbins 		if (len != 0)
54fd4f1dd9STim J. Robbins 			*dest = L'\0';
55fd4f1dd9STim J. Robbins 		return (0);
56fd4f1dd9STim J. Robbins 	}
57fd4f1dd9STim J. Robbins 
58fd4f1dd9STim J. Robbins 	if (__collate_load_error || MB_CUR_MAX > 1) {
59fd4f1dd9STim J. Robbins 		slen = wcslen(src);
60fd4f1dd9STim J. Robbins 		if (len > 0) {
61fd4f1dd9STim J. Robbins 			if (slen < len)
62fd4f1dd9STim J. Robbins 				wcscpy(dest, src);
63fd4f1dd9STim J. Robbins 			else {
64fd4f1dd9STim J. Robbins 				wcsncpy(dest, src, len - 1);
65fd4f1dd9STim J. Robbins 				dest[len - 1] = L'\0';
66fd4f1dd9STim J. Robbins 			}
67fd4f1dd9STim J. Robbins 		}
68fd4f1dd9STim J. Robbins 		return (slen);
69fd4f1dd9STim J. Robbins 	}
70fd4f1dd9STim J. Robbins 
71fd4f1dd9STim J. Robbins 	mbsrc = __mbsdup(src);
72fd4f1dd9STim J. Robbins 	slen = 0;
73fd4f1dd9STim J. Robbins 	prim = sec = 0;
74fd4f1dd9STim J. Robbins 	ss = s = __collate_substitute(mbsrc);
75fd4f1dd9STim J. Robbins 	while (*s != '\0') {
76fd4f1dd9STim J. Robbins 		while (*s != '\0' && prim == 0) {
77fd4f1dd9STim J. Robbins 			__collate_lookup(s, &l, &prim, &sec);
78fd4f1dd9STim J. Robbins 			s += l;
79fd4f1dd9STim J. Robbins 		}
80fd4f1dd9STim J. Robbins 		if (prim != 0) {
81fd4f1dd9STim J. Robbins 			if (len > 1) {
82fd4f1dd9STim J. Robbins 				*dest++ = (wchar_t)prim;
83fd4f1dd9STim J. Robbins 				len--;
84fd4f1dd9STim J. Robbins 			}
85fd4f1dd9STim J. Robbins 			slen++;
86fd4f1dd9STim J. Robbins 			prim = 0;
87fd4f1dd9STim J. Robbins 		}
88fd4f1dd9STim J. Robbins 	}
89fd4f1dd9STim J. Robbins 	free(ss);
90fd4f1dd9STim J. Robbins 	free(mbsrc);
91fd4f1dd9STim J. Robbins 	if (len != 0)
92fd4f1dd9STim J. Robbins 		*dest = L'\0';
93fd4f1dd9STim J. Robbins 
94fd4f1dd9STim J. Robbins 	return (slen);
95fd4f1dd9STim J. Robbins }
96fd4f1dd9STim J. Robbins 
97fd4f1dd9STim J. Robbins static char *
98fd4f1dd9STim J. Robbins __mbsdup(const wchar_t *ws)
99fd4f1dd9STim J. Robbins {
100fd4f1dd9STim J. Robbins 	mbstate_t state;
101fd4f1dd9STim J. Robbins 	const wchar_t *wcp;
102fd4f1dd9STim J. Robbins 	size_t len;
103fd4f1dd9STim J. Robbins 	char *mbs;
104fd4f1dd9STim J. Robbins 
105fd4f1dd9STim J. Robbins 	memset(&state, 0, sizeof(state));
106fd4f1dd9STim J. Robbins 	wcp = ws;
107fd4f1dd9STim J. Robbins 	if ((len = wcsrtombs(NULL, &wcp, 0, &state)) == (size_t)-1)
108fd4f1dd9STim J. Robbins 		return (NULL);
109fd4f1dd9STim J. Robbins 	if ((mbs = malloc(len + 1)) == NULL)
110fd4f1dd9STim J. Robbins 		return (NULL);
111fd4f1dd9STim J. Robbins 	memset(&state, 0, sizeof(state));
112fd4f1dd9STim J. Robbins 	wcsrtombs(mbs, &ws, len + 1, &state);
113fd4f1dd9STim J. Robbins 
114fd4f1dd9STim J. Robbins 	return (mbs);
115fd4f1dd9STim J. Robbins }
116