1 /* Optimized case-insensitive string comparison in C locale.
2    Copyright (C) 2001-2002, 2007, 2009-2018 Free Software Foundation, Inc.
3 
4    This program is free software: you can redistribute it and/or modify it
5    under the terms of the GNU General Public License as published
6    by the Free Software Foundation; either version 3 of the License, or
7    (at your option) any later version.
8 
9    This program is distributed in the hope that it will be useful,
10    but WITHOUT ANY WARRANTY; without even the implied warranty of
11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
12    General Public License for more details.
13 
14    You should have received a copy of the GNU General Public License
15    along with this program.  If not, see <https://www.gnu.org/licenses/>.  */
16 
17 /* Written by Bruno Haible <bruno@clisp.org>.  */
18 
19 #include "c-strcase.h"
20 #include "c-ctype.h"
21 
22 /* STRCASEEQ allows to optimize string comparison with a small literal string.
23      STRCASEEQ (s, "UTF-8", 'U','T','F','-','8',0,0,0,0)
24    is semantically equivalent to
25      c_strcasecmp (s, "UTF-8") == 0
26    just faster.  */
27 
28 /* Help GCC to generate good code for string comparisons with
29    immediate strings. */
30 #if defined (__GNUC__) && defined (__OPTIMIZE__)
31 
32 /* Case insensitive comparison of ASCII characters.  */
33 # if C_CTYPE_ASCII
34 #  define CASEEQ(other,upper) \
35      (c_isupper (upper) ? ((other) & ~0x20) == (upper) : (other) == (upper))
36 # else
37 #  define CASEEQ(other,upper) \
38      (c_toupper (other) == (upper))
39 # endif
40 
41 static inline int
strcaseeq9(const char * s1,const char * s2)42 strcaseeq9 (const char *s1, const char *s2)
43 {
44   return c_strcasecmp (s1 + 9, s2 + 9) == 0;
45 }
46 
47 static inline int
strcaseeq8(const char * s1,const char * s2,char s28)48 strcaseeq8 (const char *s1, const char *s2, char s28)
49 {
50   if (CASEEQ (s1[8], s28))
51     {
52       if (s28 == 0)
53         return 1;
54       else
55         return strcaseeq9 (s1, s2);
56     }
57   else
58     return 0;
59 }
60 
61 static inline int
strcaseeq7(const char * s1,const char * s2,char s27,char s28)62 strcaseeq7 (const char *s1, const char *s2, char s27, char s28)
63 {
64   if (CASEEQ (s1[7], s27))
65     {
66       if (s27 == 0)
67         return 1;
68       else
69         return strcaseeq8 (s1, s2, s28);
70     }
71   else
72     return 0;
73 }
74 
75 static inline int
strcaseeq6(const char * s1,const char * s2,char s26,char s27,char s28)76 strcaseeq6 (const char *s1, const char *s2, char s26, char s27, char s28)
77 {
78   if (CASEEQ (s1[6], s26))
79     {
80       if (s26 == 0)
81         return 1;
82       else
83         return strcaseeq7 (s1, s2, s27, s28);
84     }
85   else
86     return 0;
87 }
88 
89 static inline int
strcaseeq5(const char * s1,const char * s2,char s25,char s26,char s27,char s28)90 strcaseeq5 (const char *s1, const char *s2, char s25, char s26, char s27, char s28)
91 {
92   if (CASEEQ (s1[5], s25))
93     {
94       if (s25 == 0)
95         return 1;
96       else
97         return strcaseeq6 (s1, s2, s26, s27, s28);
98     }
99   else
100     return 0;
101 }
102 
103 static inline int
strcaseeq4(const char * s1,const char * s2,char s24,char s25,char s26,char s27,char s28)104 strcaseeq4 (const char *s1, const char *s2, char s24, char s25, char s26, char s27, char s28)
105 {
106   if (CASEEQ (s1[4], s24))
107     {
108       if (s24 == 0)
109         return 1;
110       else
111         return strcaseeq5 (s1, s2, s25, s26, s27, s28);
112     }
113   else
114     return 0;
115 }
116 
117 static inline int
strcaseeq3(const char * s1,const char * s2,char s23,char s24,char s25,char s26,char s27,char s28)118 strcaseeq3 (const char *s1, const char *s2, char s23, char s24, char s25, char s26, char s27, char s28)
119 {
120   if (CASEEQ (s1[3], s23))
121     {
122       if (s23 == 0)
123         return 1;
124       else
125         return strcaseeq4 (s1, s2, s24, s25, s26, s27, s28);
126     }
127   else
128     return 0;
129 }
130 
131 static inline int
strcaseeq2(const char * s1,const char * s2,char s22,char s23,char s24,char s25,char s26,char s27,char s28)132 strcaseeq2 (const char *s1, const char *s2, char s22, char s23, char s24, char s25, char s26, char s27, char s28)
133 {
134   if (CASEEQ (s1[2], s22))
135     {
136       if (s22 == 0)
137         return 1;
138       else
139         return strcaseeq3 (s1, s2, s23, s24, s25, s26, s27, s28);
140     }
141   else
142     return 0;
143 }
144 
145 static inline int
strcaseeq1(const char * s1,const char * s2,char s21,char s22,char s23,char s24,char s25,char s26,char s27,char s28)146 strcaseeq1 (const char *s1, const char *s2, char s21, char s22, char s23, char s24, char s25, char s26, char s27, char s28)
147 {
148   if (CASEEQ (s1[1], s21))
149     {
150       if (s21 == 0)
151         return 1;
152       else
153         return strcaseeq2 (s1, s2, s22, s23, s24, s25, s26, s27, s28);
154     }
155   else
156     return 0;
157 }
158 
159 static inline int
strcaseeq0(const char * s1,const char * s2,char s20,char s21,char s22,char s23,char s24,char s25,char s26,char s27,char s28)160 strcaseeq0 (const char *s1, const char *s2, char s20, char s21, char s22, char s23, char s24, char s25, char s26, char s27, char s28)
161 {
162   if (CASEEQ (s1[0], s20))
163     {
164       if (s20 == 0)
165         return 1;
166       else
167         return strcaseeq1 (s1, s2, s21, s22, s23, s24, s25, s26, s27, s28);
168     }
169   else
170     return 0;
171 }
172 
173 #define STRCASEEQ(s1,s2,s20,s21,s22,s23,s24,s25,s26,s27,s28) \
174   strcaseeq0 (s1, s2, s20, s21, s22, s23, s24, s25, s26, s27, s28)
175 
176 #else
177 
178 #define STRCASEEQ(s1,s2,s20,s21,s22,s23,s24,s25,s26,s27,s28) \
179   (c_strcasecmp (s1, s2) == 0)
180 
181 #endif
182