--- wcscoll.c.orig 2004-11-25 11:38:47.000000000 -0800
-+++ wcscoll.c 2005-02-18 18:17:11.000000000 -0800
-@@ -27,13 +27,15 @@
++++ wcscoll.c 2005-04-11 15:44:35.000000000 -0700
+@@ -27,72 +27,222 @@
#include <sys/cdefs.h>
__FBSDID("$FreeBSD: src/lib/libc/string/wcscoll.c,v 1.3 2004/04/07 09:47:56 tjr Exp $");
#include "collate.h"
-static char *__mbsdup(const wchar_t *);
-+static char *__mbsdup(const wchar_t *, locale_t);
++#define NOTFORWARD (DIRECTIVE_BACKWARD | DIRECTIVE_POSITION)
- /*
- * Placeholder implementation of wcscoll(). Attempts to use the single-byte
-@@ -41,12 +43,13 @@
- * with extended character sets.
- */
+-/*
+- * Placeholder implementation of wcscoll(). Attempts to use the single-byte
+- * collation ordering where possible, and falls back on wcscmp() in locales
+- * with extended character sets.
+- */
int
-wcscoll(const wchar_t *ws1, const wchar_t *ws2)
+wcscoll_l(const wchar_t *ws1, const wchar_t *ws2, locale_t loc)
{
- char *mbs1, *mbs2;
- int diff, sverrno;
+- char *mbs1, *mbs2;
+- int diff, sverrno;
++ int sverrno;
++ int len, len2, prim, prim2, sec, sec2, ret, ret2;
++ const wchar_t *t, *t2;
++ wchar_t *tt = NULL, *tt2 = NULL;
++ wchar_t *tr = NULL, *tr2 = NULL;
++ wchar_t w, w2;
++ struct __collate_st_info *info;
- if (__collate_load_error || MB_CUR_MAX > 1)
+ NORMALIZE_LOCALE(loc);
-+ if (loc->__collate_load_error || MB_CUR_MAX_L(loc) > 1)
++ if (loc->__collate_load_error)
/*
- * Locale has no special collating order, could not be
- * loaded, or has an extended character set; do a fast binary
-@@ -54,7 +57,7 @@
+- * Locale has no special collating order, could not be
+- * loaded, or has an extended character set; do a fast binary
+- * comparison.
++ * Locale has no special collating order or could not be
++ * loaded, do a fast binary comparison.
*/
return (wcscmp(ws1, ws2));
- if ((mbs1 = __mbsdup(ws1)) == NULL || (mbs2 = __mbsdup(ws2)) == NULL) {
-+ if ((mbs1 = __mbsdup(ws1, loc)) == NULL || (mbs2 = __mbsdup(ws2, loc)) == NULL) {
- /*
- * Out of memory or illegal wide chars; fall back to wcscmp()
- * but leave errno indicating the error. Callers that don't
-@@ -67,7 +70,7 @@
- return (wcscmp(ws1, ws2));
+- /*
+- * Out of memory or illegal wide chars; fall back to wcscmp()
+- * but leave errno indicating the error. Callers that don't
+- * check for error will get a reasonable but often slightly
+- * incorrect result.
+- */
+- sverrno = errno;
+- free(mbs1);
+- errno = sverrno;
+- return (wcscmp(ws1, ws2));
++ info = &loc->__lc_collate->__info;
++ len = len2 = 1;
++ ret = ret2 = 0;
++
++ if ((info->directive[0] & NOTFORWARD) ||
++ (info->directive[1] & NOTFORWARD) ||
++ (!(info->flags && COLLATE_SUBST_DUP) &&
++ (info->subst_count[0] > 0 || info->subst_count[1] > 0))) {
++ int direc, pass;
++ for(pass = 0; pass < info->directive_count; pass++) {
++ direc = info->directive[pass];
++ if (pass == 0 || !(info->flags & COLLATE_SUBST_DUP)) {
++ free(tt);
++ tt = __collate_substitute(ws1, pass, loc);
++ free(tt2);
++ tt2 = tt ? __collate_substitute(ws2, pass, loc) : NULL;
++ }
++ if (direc & DIRECTIVE_BACKWARD) {
++ wchar_t *bp, *fp, c;
++ tr = __collate_wcsdup(tt ? tt : ws1);
++ bp = tr;
++ fp = tr + wcslen(tr) - 1;
++ while(bp < fp) {
++ c = *bp;
++ *bp++ = *fp;
++ *fp-- = c;
++ }
++ tr2 = __collate_wcsdup(tt2 ? tt2 : ws2);
++ bp = tr2;
++ fp = tr2 + wcslen(tr2) - 1;
++ while(bp < fp) {
++ c = *bp;
++ *bp++ = *fp;
++ *fp-- = c;
++ }
++ t = (const wchar_t *)tr;
++ t2 = (const wchar_t *)tr2;
++ } else if (tt) {
++ t = (const wchar_t *)tt;
++ t2 = (const wchar_t *)tt2;
++ } else {
++ t = (const wchar_t *)ws1;
++ t2 = (const wchar_t *)ws2;
++ }
++ if(direc & DIRECTIVE_POSITION) {
++ while(*t && *t2) {
++ prim = prim2 = 0;
++ __collate_lookup_which(t, &len, &prim, pass, loc);
++ if (prim <= 0) {
++ if (prim < 0) {
++ errno = EINVAL;
++ ret = -1;
++ goto end;
++ }
++ prim = COLLATE_MAX_PRIORITY;
++ }
++ __collate_lookup_which(t2, &len2, &prim2, pass, loc);
++ if (prim2 <= 0) {
++ if (prim2 < 0) {
++ errno = EINVAL;
++ ret = -1;
++ goto end;
++ }
++ prim2 = COLLATE_MAX_PRIORITY;
++ }
++ if(prim != prim2) {
++ ret = prim - prim2;
++ goto end;
++ }
++ t += len;
++ t2 += len2;
++ }
++ } else {
++ while(*t && *t2) {
++ prim = prim2 = 0;
++ while(*t) {
++ __collate_lookup_which(t, &len, &prim, pass, loc);
++ if(prim > 0)
++ break;
++ if (prim < 0) {
++ errno = EINVAL;
++ ret = -1;
++ goto end;
++ }
++ t += len;
++ }
++ while(*t2) {
++ __collate_lookup_which(t2, &len2, &prim2, pass, loc);
++ if(prim2 > 0)
++ break;
++ if (prim2 < 0) {
++ errno = EINVAL;
++ ret = -1;
++ goto end;
++ }
++ t2 += len2;
++ }
++ if(!prim || !prim2)
++ break;
++ if(prim != prim2) {
++ ret = prim - prim2;
++ goto end;
++ }
++ t += len;
++ t2 += len2;
++ }
++ }
++ if(!*t) {
++ if(*t2) {
++ ret = -(int)*t2;
++ goto end;
++ }
++ } else {
++ ret = *t;
++ goto end;
++ }
++ }
++ ret = 0;
++ goto end;
}
- diff = strcoll(mbs1, mbs2);
-+ diff = strcoll_l(mbs1, mbs2, loc);
++ /* optimized common case: order_start forward;forward and duplicate
++ * (or no) substitute tables */
++ tt = __collate_substitute(ws1, 0, loc);
++ if (tt == NULL) {
++ tt2 = NULL;
++ t = (const wchar_t *)ws1;
++ t2 = (const wchar_t *)ws2;
++ } else {
++ tt2 = __collate_substitute(ws2, 0, loc);
++ t = (const wchar_t *)tt;
++ t2 = (const wchar_t *)tt2;
++ }
++ while(*t && *t2) {
++ prim = prim2 = 0;
++ while(*t) {
++ __collate_lookup_l(t, &len, &prim, &sec, loc);
++ if (prim > 0)
++ break;
++ if (prim < 0) {
++ errno = EINVAL;
++ ret = -1;
++ goto end;
++ }
++ t += len;
++ }
++ while(*t2) {
++ __collate_lookup_l(t2, &len2, &prim2, &sec2, loc);
++ if (prim2 > 0)
++ break;
++ if (prim2 < 0) {
++ errno = EINVAL;
++ ret = -1;
++ goto end;
++ }
++ t2 += len2;
++ }
++ if(!prim || !prim2)
++ break;
++ if(prim != prim2) {
++ ret = prim - prim2;
++ goto end;
++ }
++ if(!ret2)
++ ret2 = sec - sec2;
++ t += len;
++ t2 += len2;
++ }
++ if(!*t && *t2)
++ ret = -(int)*t2;
++ else if(*t && !*t2)
++ ret = *t;
++ else if(!*t && !*t2)
++ ret = ret2;
++ end:
sverrno = errno;
- free(mbs1);
- free(mbs2);
-@@ -76,8 +79,14 @@
- return (diff);
+- free(mbs1);
+- free(mbs2);
++ free(tt);
++ free(tt2);
++ free(tr);
++ free(tr2);
+ errno = sverrno;
+
+- return (diff);
++ return ret;
}
+-static char *
+-__mbsdup(const wchar_t *ws)
+int
+wcscoll(const wchar_t *ws1, const wchar_t *ws2)
-+{
-+ return wcscoll_l(ws1, ws2, __current_locale());
-+}
-+
- static char *
--__mbsdup(const wchar_t *ws)
-+__mbsdup(const wchar_t *ws, locale_t loc)
{
- static const mbstate_t initial;
- mbstate_t st;
-@@ -87,12 +96,12 @@
-
- wcp = ws;
- st = initial;
+- static const mbstate_t initial;
+- mbstate_t st;
+- const wchar_t *wcp;
+- size_t len;
+- char *mbs;
+-
+- wcp = ws;
+- st = initial;
- if ((len = wcsrtombs(NULL, &wcp, 0, &st)) == (size_t)-1)
-+ if ((len = wcsrtombs_l(NULL, &wcp, 0, &st, loc)) == (size_t)-1)
- return (NULL);
- if ((mbs = malloc(len + 1)) == NULL)
- return (NULL);
- st = initial;
+- return (NULL);
+- if ((mbs = malloc(len + 1)) == NULL)
+- return (NULL);
+- st = initial;
- wcsrtombs(mbs, &ws, len + 1, &st);
-+ wcsrtombs_l(mbs, &ws, len + 1, &st, loc);
-
- return (mbs);
+-
+- return (mbs);
++ return wcscoll_l(ws1, ws2, __current_locale());
}
projects / apple / libc.git / blobdiff