/***
*strxfrm.c - Transform a string using locale information
*
*	Copyright (c) 1988-1993, Microsoft Corporation. All rights reserved.
*
*Purpose:
*	Transform a string using the locale information as set by
*	LC_COLLATE.
*
*Revision History:
*	03-21-89  JCR	Module created.
*	06-20-89  JCR	Removed _LOAD_DGROUP code
*	02-27-90  GJF	Fixed calling type, #include <cruntime.h>, fixed
*			copyright.
*	10-02-90  GJF	New-style function declarator.
*	10-02-91  ETC	Non-C locale support under _INTL switch.
*	12-09-91  ETC	Updated api; added multithread.
*	12-18-91  ETC	Don't convert output of LCMapString.
*	08-18-92  KRS	Activate NLS API.  Fix behavior.
*	09-02-92  SRW	Get _INTL definition via ..\crt32.def
*	12-11-92  SKS	Need to handle count=0 in non-INTL code
*	12-15-92  KRS	Handle return value according to ANSI.
*	01-18-93  CFW   Removed unreferenced variable "dummy".
*	09-27-93  CFW   Use NLS API calls properly.
*
*******************************************************************************/

#include <cruntime.h>
#include <string.h>
#include <limits.h>
#include <malloc.h>
#include <locale.h>
#include <setlocal.h>
#include <os2dll.h>

/***
*size_t strxfrm() - Transform a string using locale information
*
*Purpose:
*	Transform the string pointer to by _string2 and place the
*	resulting string into the array pointer to by _string1.
*	No more than _count characters are place into the
*	resulting string (including the null).
*
*	The transformation is such that if strcmp() is applied to
*	the two transformed strings, the return value is equal to
*	the result of strcoll() applied to the two original strings.
*	Thus, the conversion must take the locale LC_COLLATE info
*	into account.
*	[ANSI]
*
*	The value of the following expression is the size of the array
*	needed to hold the transformation of the source string:
*
*		1 + strxfrm(NULL,string,0)
*
*	NOTE:  Currently, the C libraries support the "C" locale only.
*	Thus, strxfrm() simply resolves to strncpy()/strlen().
*
*Entry:
*	char *_string1	     = result string
*	const char *_string2 = source string
*	size_t _count	     = max chars to move
*
*	[If _count is 0, _string1 is permitted to by NULL.]
*
*Exit:
*	Length of the transformed string (not including the terminating
*	null).	If the value returned is >= _count, the contents of the
*	_string1 array are indeterminate.
*
*Exceptions:
*	Non-standard: if OM/API error, return INT_MAX.
*
*******************************************************************************/

size_t _CRTAPI1 strxfrm (
	char *_string1,
	const char *_string2,
	size_t _count
	)
{
#ifndef _INTL
	strncpy(_string1, _string2, _count);
	return strlen(_string2);
#else
	wchar_t *wsrc = NULL;	/* wide version of string in original case */
	wchar_t *wdst = NULL;	/* wide version of string in alternate case */
	int srclen;		/* general purpose length of source string */
	int dstlen;		/* len of wdst string, wide chars, no null  */
	int retval = INT_MAX;	/* NON-ANSI: default if OM or API error */

	_mlock (_LC_CTYPE_LOCK);
	_mlock (_LC_COLLATE_LOCK);

	if ((_lc_handle[LC_COLLATE] == _CLOCALEHANDLE) &&
	    (_lc_codepage == _CLOCALECP)) {
		_munlock (_LC_CTYPE_LOCK);
		_munlock (_LC_COLLATE_LOCK);
		strncpy(_string1, _string2, _count);
		return strlen(_string2);
	}

	/* Algorithm for non-C locale: */
	/* Convert string to wide-character wsrc string */
	/* Map wrc string to wide-character wdst string in alternate case */
	/* Convert wdst string to char string and place in user buffer */

	/* Allocate maximum required space for wsrc */
	srclen = strlen(_string2) * sizeof(wchar_t);
	if ((wsrc = (wchar_t *) malloc(srclen)) == NULL)
		goto error_cleanup;

	/* Convert string to wide-character wsrc string */
	if ((srclen=MultiByteToWideChar(_lc_codepage,MB_PRECOMPOSED, _string2,
		-1, wsrc, srclen)) == 0)
		goto error_cleanup;

	/* Need to transform into a buffer and then copy _count bytes
	from the buffer to user string; API will fail if target string
	not long enough */

	/* Inquire size of wdst string */
	if ((dstlen = LCMapStringW(_lc_handle[LC_COLLATE],
	     LCMAP_SORTKEY, wsrc,  srclen, NULL, 0)) == 0)
		goto error_cleanup;

	/* Allocate space for wdst - dstlen is in bytes */
	if ((wdst = (wchar_t *) malloc(dstlen)) == NULL)
		goto error_cleanup;

	/* Map wrc string to wide-character wdst string in alternate case */
	if (LCMapStringW(_lc_handle[LC_COLLATE], LCMAP_SORTKEY,
		wsrc, srclen, wdst, dstlen) == 0)
		goto error_cleanup;

	retval = strlen((char *)wdst);
	/* Copy _count bytes to user buffer, or up to first null */
	strncpy (_string1, (char *) wdst, _count);

error_cleanup:
	_munlock (_LC_CTYPE_LOCK);
	_munlock (_LC_COLLATE_LOCK);
	free (wsrc);
	free (wdst);
	return (size_t)retval;

#endif /* _INTL */
}