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
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
|
/***
*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 */
}
|
