1 /*
2  * Copyright (C) 2002     Manuel Novoa III
3  * Copyright (C) 2000-2005 Erik Andersen <andersen@uclibc.org>
4  *
5  * Licensed under the LGPL v2.1, see the file COPYING.LIB in this tarball.
6  */
7 
8 #include "_string.h"
9 #include <ctype.h>
10 #include <locale.h>
11 
12 #ifdef WANT_WIDE
13 # define strcasecmp wcscasecmp
14 # define strcasecmp_l wcscasecmp_l
15 # ifdef __UCLIBC_DO_XLOCALE
16 #  define TOLOWER(C) towlower_l((C), locale_arg)
17 # else
18 #  define TOLOWER(C) towlower((C))
19 # endif
20 #else
21 # ifdef __UCLIBC_DO_XLOCALE
22 #  define TOLOWER(C) tolower_l((C), locale_arg)
23 # else
24 #  define TOLOWER(C) tolower((C))
25 # endif
26 #endif
27 
28 #if defined(__UCLIBC_HAS_XLOCALE__) && !defined(__UCLIBC_DO_XLOCALE)
29 
strcasecmp(register const Wchar * s1,register const Wchar * s2)30 int strcasecmp(register const Wchar *s1, register const Wchar *s2)
31 {
32 	return strcasecmp_l(s1, s2, __UCLIBC_CURLOCALE);
33 }
34 #ifndef WANT_WIDE
35 libc_hidden_def(strcasecmp)
36 #endif
37 
38 #else  /* defined(__UCLIBC_HAS_XLOCALE__) && !defined(__UCLIBC_DO_XLOCALE) */
39 
40 int __XL_NPP(strcasecmp)(register const Wchar *s1, register const Wchar *s2
41 					  __LOCALE_PARAM )
42 {
43 #ifdef WANT_WIDE
44 	while ((*s1 == *s2) || (TOLOWER(*s1) == TOLOWER(*s2))) {
45 		if (!*s1++) {
46 			return 0;
47 		}
48 		++s2;
49 	}
50 
51 	return (((Wuchar)TOLOWER(*s1)) < ((Wuchar)TOLOWER(*s2))) ? -1 : 1;
52 	/* TODO -- should wide cmp funcs do wchar or Wuchar compares? */
53 #else
54 	int r = 0;
55 
56 	while ( ((s1 == s2) ||
57 			 !(r = ((int)( TOLOWER(*((Wuchar *)s1))))
58 			   - TOLOWER(*((Wuchar *)s2))))
59 			&& (++s2, *s1++));
60 
61 	return r;
62 #endif
63 }
64 #if !defined WANT_WIDE || (defined WANT_WIDE && defined __UCLIBC_DO_XLOCALE)
65 libc_hidden_def(__XL_NPP(strcasecmp))
66 #endif
67 
68 #endif /* defined(__UCLIBC_HAS_XLOCALE__) && !defined(__UCLIBC_DO_XLOCALE) */
69