1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
/***
*wcsxfrm.c - Transform a wide-character string using locale information
*
* Copyright (c) 1988-1993, Microsoft Corporation. All rights reserved.
*
*Purpose:
* Transform a wide-character string using the locale information as set by
* LC_COLLATE.
*
*Revision History:
* 09-09-91 ETC Created from strxfrm.c.
* 12-09-91 ETC Updated api; Added multithread lock.
* 12-18-91 ETC Changed back LCMAP_SORTKEYA --> LCMAP_SORTKEY.
* 04-06-92 KRS Fix so it works without _INTL too.
* 08-19-92 KRS Activate use of NLS API.
* 09-02-92 SRW Get _INTL definition via ..\crt32.def
* 12-15-92 KRS Fix return value to match ANSI/ISO Std.
* 09-23-93 CFW Complete re-write. Non-C locale totally broken.
*
*******************************************************************************/
#include <cruntime.h>
#include <stdlib.h>
#include <string.h>
#include <limits.h>
#include <locale.h>
#include <setlocal.h>
#include <os2dll.h>
/***
*size_t wcsxfrm() - Transform a string using locale information
*
*Purpose:
* Transform the wide string pointed to by _string2 and place the
* resulting wide string into the array pointed to by _string1.
* No more than _count wide characters are placed into the
* resulting string (including the null).
*
* The transformation is such that if wcscmp() is applied to
* the two transformed strings, the return value is equal to
* the result of wcscoll() applied to the two original strings.
* Thus, the conversion must take the locale LC_COLLATE info
* into account.
*
* In the C locale, wcsxfrm() simply resolves to wcsncpy()/wcslen().
*
*Entry:
* wchar_t *_string1 = result string
* const wchar_t *_string2 = source string
* size_t _count = max wide chars to move
*
* [If _count is 0, _string1 is permitted to be 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 wcsxfrm (
wchar_t *_string1,
const wchar_t *_string2,
size_t _count
)
{
#ifndef _INTL
if (_string1)
wcsncpy(_string1, _string2, _count);
return wcslen(_string2);
#else
int size;
unsigned char *bbuffer;
_mlock (_LC_COLLATE_LOCK);
if (_lc_handle[LC_COLLATE] == _CLOCALEHANDLE) {
_munlock (_LC_COLLATE_LOCK);
wcsncpy(_string1, _string2, _count);
return wcslen(_string2);
}
/*
* When using LCMAP_SORTKEY, LCMapStringW handles BYTES not wide
* chars. We use a byte buffer to hold bytes and then convert the
* byte string to a wide char string and return this so it can be
* compared using wcscmp(). User's buffer is _count wide chars, so
* use an internal buffer of _count bytes.
*/
if (NULL == (bbuffer = (unsigned char *)malloc(_count)))
{
size = INT_MAX;
goto error_cleanup;
}
if (0 == (size = LCMapStringW(_lc_handle[LC_COLLATE], LCMAP_SORTKEY,
_string2, -1, (wchar_t *)bbuffer, _count)))
{
/* buffer not big enough, get size required. */
if (0 == (size = LCMapStringW(_lc_handle[LC_COLLATE], LCMAP_SORTKEY,
_string2, -1, NULL, 0)))
size = INT_MAX; /* default error */
else
size--; /* don't count NULL */
} else {
int i;
/* string successfully mapped, convert to wide char */
for (i = 0; i < size; i++)
_string1[i] = (wchar_t)bbuffer[i];
size--; /* don't count NULL */
}
error_cleanup:
_munlock (_LC_COLLATE_LOCK);
return (size_t)size;
#endif /* _INTL */
}
|