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
| | #include <strings.h>
#include <ctype.h>
#include <stdint.h>
#define aliases __attribute__((__may_alias__))
#define byte_repeat(x) ((size_t)~0 / 0xff * (x))
#define word_has_zero(x) (((x) - byte_repeat(0x01)) & ~(x) & byte_repeat(0x80))
#define word_tag_range(x, t, s, e) ((((x) | byte_repeat(t)) \
- byte_repeat(s) & ~((x) | byte_repeat(t)) - \
byte_repeat((e) + 1)) & (~(x) & byte_repeat(t)))
#define word_to_lower(x) ((x) - (word_tag_range((x), 'a', 'z', 0x80)) >> 2)
#define weak_alias(o, n) extern __typeof__(o) n __attribute__((weak, alias(#o)))
int strcasecmp(const char *_l, const char *_r)
{
const unsigned char *l = (const void *)_l, *r = (const void *)_r;
const size_t aliases *wl, aliases *wr;
if (((uintptr_t)l | (uintptr_t)r) & sizeof(size_t) - 1) goto bytewise;
for (;(uintptr_t)l & sizeof(size_t) - 1 && *l
&& tolower(*l) == tolower(*r); l++, r++);
if ((uintptr_t)l & sizeof(size_t) - 1) return tolower(*l) - tolower(*r);
wl = (const void *)l;
wr = (const void *)r;
for (; !word_has_zero(*wl) && word_to_lower(*wl) == word_to_lower(*wr)
; wl++, wr++);
l = (const void *)wl;
r = (const void *)wr;
bytewise:
for (; *l && tolower(*l) == tolower(*r); l++, r++);
return tolower(*l) - tolower(*r);
}
int __strcasecmp_l(const char *l, const char *r, locale_t unused)
{
return strcasecmp(l, r);
}
weak_alias(__strcasecmp_l, strcasecmp_l);
|