source: trunk/src/NTDLL/wcstring.c@ 7333

Last change on this file since 7333 was 7333, checked in by phaller, 24 years ago

.
File size: 11.8 KB
Line 
1/*
2 * NTDLL wide-char functions
3 *
4 * Copyright 2000 Alexandre Julliard
5 * Copyright 2000 Jon Griffiths
6 */
7
8#include "config.h"
9
10#include <ctype.h>
11#include <limits.h>
12#include <stdlib.h>
13#include <string.h>
14#include <stdio.h>
15
16#ifdef __WIN32OS2__
17#include <stdarg.h>
18#include <heapstring.h>
19#endif
20
21#include "windef.h"
22#include "winbase.h"
23#include "winnls.h"
24#include "wine/unicode.h"
25#include "heap.h"
26#include "debugtools.h"
27
28DEFAULT_DEBUG_CHANNEL(ntdll);
29
30
31/*********************************************************************
32 * _wcsicmp (NTDLL.@)
33 */
34INT __cdecl NTDLL__wcsicmp( LPCWSTR str1, LPCWSTR str2 )
35{
36 return strcmpiW( str1, str2 );
37}
38
39
40/*********************************************************************
41 * _wcslwr (NTDLL.@)
42 */
43LPWSTR __cdecl NTDLL__wcslwr( LPWSTR str )
44{
45 return strlwrW( str );
46}
47
48
49/*********************************************************************
50 * _wcsnicmp (NTDLL.@)
51 */
52INT __cdecl NTDLL__wcsnicmp( LPCWSTR str1, LPCWSTR str2, INT n )
53{
54 return strncmpiW( str1, str2, n );
55}
56
57
58/*********************************************************************
59 * _wcsupr (NTDLL.@)
60 */
61LPWSTR __cdecl NTDLL__wcsupr( LPWSTR str )
62{
63 return struprW( str );
64}
65
66
67/*********************************************************************
68 * towlower (NTDLL.@)
69 */
70WCHAR __cdecl NTDLL_towlower( WCHAR ch )
71{
72 return tolowerW(ch);
73}
74
75
76/*********************************************************************
77 * towupper (NTDLL.@)
78 */
79WCHAR __cdecl NTDLL_towupper( WCHAR ch )
80{
81 return toupperW(ch);
82}
83
84
85/***********************************************************************
86 * wcscat (NTDLL.@)
87 */
88LPWSTR __cdecl NTDLL_wcscat( LPWSTR dst, LPCWSTR src )
89{
90 return strcatW( dst, src );
91}
92
93
94/*********************************************************************
95 * wcschr (NTDLL.@)
96 */
97LPWSTR __cdecl NTDLL_wcschr( LPCWSTR str, WCHAR ch )
98{
99 return strchrW( str, ch );
100}
101
102
103/*********************************************************************
104 * wcscmp (NTDLL.@)
105 */
106INT __cdecl NTDLL_wcscmp( LPCWSTR str1, LPCWSTR str2 )
107{
108 return strcmpW( str1, str2 );
109}
110
111
112/***********************************************************************
113 * wcscpy (NTDLL.@)
114 */
115LPWSTR __cdecl NTDLL_wcscpy( LPWSTR dst, LPCWSTR src )
116{
117 return strcpyW( dst, src );
118}
119
120
121/*********************************************************************
122 * wcscspn (NTDLL.@)
123 */
124INT __cdecl NTDLL_wcscspn( LPCWSTR str, LPCWSTR reject )
125{
126 LPCWSTR start = str;
127 while (*str)
128 {
129 LPCWSTR p = reject;
130 while (*p && (*p != *str)) p++;
131 if (*p) break;
132 str++;
133 }
134 return str - start;
135}
136
137
138/***********************************************************************
139 * wcslen (NTDLL.@)
140 */
141INT __cdecl NTDLL_wcslen( LPCWSTR str )
142{
143 return strlenW( str );
144}
145
146
147/*********************************************************************
148 * wcsncat (NTDLL.@)
149 */
150LPWSTR __cdecl NTDLL_wcsncat( LPWSTR s1, LPCWSTR s2, INT n )
151{
152 LPWSTR ret = s1;
153 while (*s1) s1++;
154 while (n-- > 0) if (!(*s1++ = *s2++)) return ret;
155 *s1 = 0;
156 return ret;
157}
158
159
160/*********************************************************************
161 * wcsncmp (NTDLL.@)
162 */
163INT __cdecl NTDLL_wcsncmp( LPCWSTR str1, LPCWSTR str2, INT n )
164{
165 return strncmpW( str1, str2, n );
166}
167
168
169/*********************************************************************
170 * wcsncpy (NTDLL.@)
171 */
172LPWSTR __cdecl NTDLL_wcsncpy( LPWSTR s1, LPCWSTR s2, INT n )
173{
174 return strncpyW( s1, s2, n );
175}
176
177
178/*********************************************************************
179 * wcspbrk (NTDLL.@)
180 */
181LPWSTR __cdecl NTDLL_wcspbrk( LPCWSTR str, LPCWSTR accept )
182{
183 LPCWSTR p;
184 while (*str)
185 {
186 for (p = accept; *p; p++) if (*p == *str) return (LPWSTR)str;
187 str++;
188 }
189 return NULL;
190}
191
192
193/*********************************************************************
194 * wcsrchr (NTDLL.@)
195 */
196LPWSTR __cdecl NTDLL_wcsrchr( LPWSTR str, WCHAR ch )
197{
198 LPWSTR last = NULL;
199 while (*str)
200 {
201 if (*str == ch) last = str;
202 str++;
203 }
204 return last;
205}
206
207
208/*********************************************************************
209 * wcsspn (NTDLL.@)
210 */
211INT __cdecl NTDLL_wcsspn( LPCWSTR str, LPCWSTR accept )
212{
213 LPCWSTR start = str;
214 while (*str)
215 {
216 LPCWSTR p = accept;
217 while (*p && (*p != *str)) p++;
218 if (!*p) break;
219 str++;
220 }
221 return str - start;
222}
223
224
225/*********************************************************************
226 * wcsstr (NTDLL.@)
227 */
228LPWSTR __cdecl NTDLL_wcsstr( LPCWSTR str, LPCWSTR sub )
229{
230 return strstrW( str, sub );
231}
232
233
234/*********************************************************************
235 * wcstok (NTDLL.@)
236 */
237LPWSTR __cdecl NTDLL_wcstok( LPWSTR str, LPCWSTR delim )
238{
239 static LPWSTR next = NULL;
240 LPWSTR ret;
241
242 if (!str)
243 if (!(str = next)) return NULL;
244
245 while (*str && NTDLL_wcschr( delim, *str )) str++;
246 if (!*str) return NULL;
247 ret = str++;
248 while (*str && !NTDLL_wcschr( delim, *str )) str++;
249 if (*str) *str++ = 0;
250 next = str;
251 return ret;
252}
253
254
255/*********************************************************************
256 * wcstombs (NTDLL.@)
257 */
258INT __cdecl NTDLL_wcstombs( LPSTR dst, LPCWSTR src, INT n )
259{
260 INT ret;
261 if (n <= 0) return 0;
262 ret = WideCharToMultiByte( CP_ACP, 0, src, -1, dst, dst ? n : 0, NULL, NULL );
263 if (!ret) return n; /* overflow */
264 return ret - 1; /* do not count terminating NULL */
265}
266
267
268/*********************************************************************
269 * mbstowcs (NTDLL.@)
270 */
271INT __cdecl NTDLL_mbstowcs( LPWSTR dst, LPCSTR src, INT n )
272{
273 INT ret;
274 if (n <= 0) return 0;
275 ret = MultiByteToWideChar( CP_ACP, 0, src, -1, dst, dst ? n : 0 );
276 if (!ret) return n; /* overflow */
277 return ret - 1; /* do not count terminating NULL */
278}
279
280
281/*********************************************************************
282 * wcstol (NTDLL.@)
283 * Like strtol, but for wide character strings.
284 */
285INT __cdecl NTDLL_wcstol(LPWSTR s,LPWSTR *end,INT base)
286{
287 INT ret;
288#ifdef __WIN32OS2__
289 LPSTR endA;
290 LPSTR sA;
291 STACK_strdupWtoA(s, sA)
292#else
293 LPSTR sA = HEAP_strdupWtoA(GetProcessHeap(),0,s),endA;
294#endif
295
296 strtol(sA,&endA,base);
297
298#ifndef __WIN32OS2__
299 HeapFree(GetProcessHeap(),0,sA);
300#endif
301 if (end) *end = s+(endA-sA); /* pointer magic checked. */
302 return ret;
303}
304
305
306/*********************************************************************
307 * iswctype (NTDLL.@)
308 */
309INT __cdecl NTDLL_iswctype( WCHAR wc, WCHAR wct )
310{
311 return (get_char_typeW(wc) & 0xfff) & wct;
312}
313
314
315/*********************************************************************
316 * iswalpha (NTDLL.@)
317 */
318INT __cdecl NTDLL_iswalpha( WCHAR wc )
319{
320 return get_char_typeW(wc) & C1_ALPHA;
321}
322
323
324/*********************************************************************
325 * _ultow (NTDLL.@)
326 * Like _ultoa, but for wide character strings.
327 */
328LPWSTR __cdecl _ultow(ULONG value, LPWSTR string, INT radix)
329{
330 WCHAR tmp[33];
331 LPWSTR tp = tmp;
332 LPWSTR sp;
333 LONG i;
334 ULONG v = value;
335
336 if (radix > 36 || radix <= 1)
337 return 0;
338
339 while (v || tp == tmp)
340 {
341 i = v % radix;
342 v = v / radix;
343 if (i < 10)
344 *tp++ = i + '0';
345 else
346 *tp++ = i + 'a' - 10;
347 }
348
349 sp = string;
350 while (tp > tmp)
351 *sp++ = *--tp;
352 *sp = 0;
353 return string;
354}
355
356/*********************************************************************
357 * _wtol (NTDLL.@)
358 * Like atol, but for wide character strings.
359 */
360LONG __cdecl _wtol(LPWSTR string)
361{
362 char buffer[30];
363 NTDLL_wcstombs( buffer, string, sizeof(buffer) );
364 return atol( buffer );
365}
366
367/*********************************************************************
368 * _wtoi (NTDLL.@)
369 */
370INT __cdecl _wtoi(LPWSTR string)
371{
372 return _wtol(string);
373}
374
375/* INTERNAL: Wide char snprintf
376 * If you fix a bug in this function, fix it in msvcrt/wcs.c also!
377 */
378static int __cdecl NTDLL_vsnwprintf(WCHAR *str, unsigned int len,
379 const WCHAR *format, va_list valist)
380{
381 unsigned int written = 0;
382 const WCHAR *iter = format;
383 char bufa[256], fmtbufa[64], *fmta;
384
385 TRACE("(%d,%s)\n",len,debugstr_w(format));
386
387 while (*iter)
388 {
389 while (*iter && *iter != (WCHAR)L'%')
390 {
391 if (written++ >= len)
392 return -1;
393 *str++ = *iter++;
394 }
395 if (*iter == (WCHAR)L'%')
396 {
397 fmta = fmtbufa;
398 *fmta++ = *iter++;
399 while (*iter == (WCHAR)L'0' ||
400 *iter == (WCHAR)L'+' ||
401 *iter == (WCHAR)L'-' ||
402 *iter == (WCHAR)L' ' ||
403 *iter == (WCHAR)L'0' ||
404 *iter == (WCHAR)L'*' ||
405 *iter == (WCHAR)L'#')
406 {
407 if (*iter == (WCHAR)L'*')
408 {
409 char *buffiter = bufa;
410 int fieldlen = va_arg(valist, int);
411 sprintf(buffiter, "%d", fieldlen);
412 while (*buffiter)
413 *fmta++ = *buffiter++;
414 }
415 else
416 *fmta++ = *iter;
417 iter++;
418 }
419
420 while (isdigit(*iter))
421 *fmta++ = *iter++;
422
423 if (*iter == (WCHAR)L'.')
424 {
425 *fmta++ = *iter++;
426 if (*iter == (WCHAR)L'*')
427 {
428 char *buffiter = bufa;
429 int fieldlen = va_arg(valist, int);
430 sprintf(buffiter, "%d", fieldlen);
431 while (*buffiter)
432 *fmta++ = *buffiter++;
433 }
434 else
435 while (isdigit(*iter))
436 *fmta++ = *iter++;
437 }
438 if (*iter == (WCHAR)L'h' ||
439 *iter == (WCHAR)L'l')
440 {
441 *fmta++ = *iter++;
442 *fmta++ = *iter++;
443 }
444
445 switch (*iter)
446 {
447 case (WCHAR)L's':
448 {
449 static const WCHAR none[] = { '(', 'n', 'u', 'l', 'l', ')', 0 };
450 const WCHAR *wstr = va_arg(valist, const WCHAR *);
451 const WCHAR *striter = wstr ? wstr : none;
452 while (*striter)
453 {
454 if (written++ >= len)
455 return -1;
456 *str++ = *striter++;
457 }
458 iter++;
459 break;
460 }
461
462 case (WCHAR)L'c':
463 if (written++ >= len)
464 return -1;
465 *str++ = (WCHAR)va_arg(valist, int);
466 iter++;
467 break;
468
469 default:
470 {
471 /* For non wc types, use system sprintf and append to wide char output */
472 /* FIXME: for unrecognised types, should ignore % when printing */
473 char *bufaiter = bufa;
474 if (*iter == (WCHAR)L'p')
475 sprintf(bufaiter, "%08lX", va_arg(valist, long));
476 else
477 {
478 *fmta++ = *iter;
479 *fmta = '\0';
480 if (*iter == (WCHAR)L'f')
481 sprintf(bufaiter, fmtbufa, va_arg(valist, double));
482 else
483 sprintf(bufaiter, fmtbufa, va_arg(valist, void *));
484 }
485 while (*bufaiter)
486 {
487 if (written++ >= len)
488 return -1;
489 *str++ = *bufaiter++;
490 }
491 iter++;
492 break;
493 }
494 }
495 }
496 }
497 if (written >= len)
498 return -1;
499 *str++ = (WCHAR)L'\0';
500 return (int)written;
501}
502
503
504/***********************************************************************
505 * _snwprintf (NTDLL.@)
506 */
507int __cdecl _snwprintf(WCHAR *str, unsigned int len, const WCHAR *format, ...)
508{
509 int retval;
510 va_list valist;
511 va_start(valist, format);
512 retval = NTDLL_vsnwprintf(str, len, format, valist);
513 va_end(valist);
514 return retval;
515}
516
517
518/***********************************************************************
519 * swprintf (NTDLL.@)
520 */
521int __cdecl NTDLL_swprintf(WCHAR *str, const WCHAR *format, ...)
522{
523 int retval;
524 va_list valist;
525 va_start(valist, format);
526 retval = NTDLL_vsnwprintf(str, INT_MAX, format, valist);
527 va_end(valist);
528 return retval;
529}
Note: See TracBrowser for help on using the repository browser.