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