--- Libc/Libc-1725.40.4/string/FreeBSD/strxfrm.c
+++ Libc/Libc-583/string/FreeBSD/strxfrm.c
@@ -1,15 +1,7 @@
 /*-
- * SPDX-License-Identifier: BSD-2-Clause
- *
- * Copyright 2010 Nexenta Systems, Inc.  All rights reserved.
  * Copyright (c) 1995 Alex Tatmanjants <alex@elvisti.kiev.ua>
  *		at Electronni Visti IA, Kiev, Ukraine.
  *			All rights reserved.
- *
- * Copyright (c) 2011 The FreeBSD Foundation
- *
- * Portions of this software were developed by David Chisnall
- * under sponsorship from the FreeBSD Foundation.
  *
  * Redistribution and use in source and binary forms, with or without
  * modification, are permitted provided that the following conditions
@@ -33,86 +25,59 @@
  * SUCH DAMAGE.
  */
 
+#include <sys/cdefs.h>
+__FBSDID("$FreeBSD: src/lib/libc/string/strxfrm.c,v 1.15 2002/09/06 11:24:06 tjr Exp $");
+
 #include <stdlib.h>
 #include <string.h>
-#include <errno.h>
-#include <wchar.h>
 #include "collate.h"
 
 size_t
-strxfrm_l(char * __restrict dest, const char * __restrict src, size_t len, locale_t loc);
-size_t
 strxfrm(char * __restrict dest, const char * __restrict src, size_t len)
 {
-#ifdef __APPLE__
-	return strxfrm_l(dest, src, len, __current_locale());
-#else
-	return strxfrm_l(dest, src, len, __get_locale());
-#endif
-}
-
-size_t
-strxfrm_l(char * __restrict dest, const char * __restrict src, size_t len, locale_t locale)
-{
+	int prim, sec, l;
 	size_t slen;
-	size_t xlen;
-	wchar_t *wcs = NULL;
-
-#ifdef __APPLE__
-	int serrno;
-	NORMALIZE_LOCALE(locale);
-	struct xlocale_collate *table = XLOCALE_COLLATE(locale);
-#else
-	FIX_LOCALE(locale);
-	struct xlocale_collate *table =
-		(struct xlocale_collate*)locale->components[XLC_COLLATE];
-#endif
+	char *s, *ss;
 
 	if (!*src) {
 		if (len > 0)
 			*dest = '\0';
-		return (0);
+		return 0;
 	}
 
-	/*
-	 * The conversion from multibyte to wide character strings is
-	 * strictly reducing (one byte of an mbs cannot expand to more
-	 * than one wide character.)
-	 */
-	slen = strlen(src);
-
-	if (table->__collate_load_error)
-		goto error;
-
-	if ((wcs = malloc((slen + 1) * sizeof (wchar_t))) == NULL)
-		goto error;
-
-	if (mbstowcs_l(wcs, src, slen + 1, locale) == (size_t)-1)
-		goto error;
-
-	if ((xlen = _collate_sxfrm(table, wcs, dest, len)) == (size_t)-1)
-		goto error;
-
-	free(wcs);
-
-	if (len > xlen) {
-		dest[xlen] = 0;
-	} else if (len) {
-		dest[len-1] = 0;
+	if (__collate_load_error) {
+		slen = strlen(src);
+		if (len > 0) {
+			if (slen < len)
+				strcpy(dest, src);
+			else {
+				strncpy(dest, src, len - 1);
+				dest[len - 1] = '\0';
+			}
+		}
+		return slen;
 	}
 
-	return (xlen);
+	slen = 0;
+	prim = sec = 0;
+	ss = s = __collate_substitute(src);
+	while (*s) {
+		while (*s && !prim) {
+			__collate_lookup(s, &l, &prim, &sec);
+			s += l;
+		}
+		if (prim) {
+			if (len > 1) {
+				*dest++ = (char)prim;
+				len--;
+			}
+			slen++;
+			prim = 0;
+		}
+	}
+	free(ss);
+	if (len > 0)
+		*dest = '\0';
 
-error:
-	/* errno should be set to ENOMEM if malloc failed */
-#ifdef __APPLE__
-	serrno = errno;
-#endif
-	free(wcs);
-	strlcpy(dest, src, len);
-#ifdef __APPLE__
-	errno = serrno;
-#endif
-
-	return (slen);
+	return slen;
 }