1 /* -*- Mode: C++; tab-width: 8; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
2 /* This Source Code Form is subject to the terms of the Mozilla Public
3 * License, v. 2.0. If a copy of the MPL was not distributed with this
4 * file, You can obtain one at http://mozilla.org/MPL/2.0/. */
5
6 #include "plstr.h"
7 #include <string.h>
8
9 static const unsigned char uc[] =
10 {
11 '\000', '\001', '\002', '\003', '\004', '\005', '\006', '\007',
12 '\010', '\011', '\012', '\013', '\014', '\015', '\016', '\017',
13 '\020', '\021', '\022', '\023', '\024', '\025', '\026', '\027',
14 '\030', '\031', '\032', '\033', '\034', '\035', '\036', '\037',
15 ' ', '!', '"', '#', '$', '%', '&', '\'',
16 '(', ')', '*', '+', ',', '-', '.', '/',
17 '0', '1', '2', '3', '4', '5', '6', '7',
18 '8', '9', ':', ';', '<', '=', '>', '?',
19 '@', 'A', 'B', 'C', 'D', 'E', 'F', 'G',
20 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O',
21 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W',
22 'X', 'Y', 'Z', '[', '\\', ']', '^', '_',
23 '`', 'A', 'B', 'C', 'D', 'E', 'F', 'G',
24 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O',
25 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W',
26 'X', 'Y', 'Z', '{', '|', '}', '~', '\177',
27 0200, 0201, 0202, 0203, 0204, 0205, 0206, 0207,
28 0210, 0211, 0212, 0213, 0214, 0215, 0216, 0217,
29 0220, 0221, 0222, 0223, 0224, 0225, 0226, 0227,
30 0230, 0231, 0232, 0233, 0234, 0235, 0236, 0237,
31 0240, 0241, 0242, 0243, 0244, 0245, 0246, 0247,
32 0250, 0251, 0252, 0253, 0254, 0255, 0256, 0257,
33 0260, 0261, 0262, 0263, 0264, 0265, 0266, 0267,
34 0270, 0271, 0272, 0273, 0274, 0275, 0276, 0277,
35 0300, 0301, 0302, 0303, 0304, 0305, 0306, 0307,
36 0310, 0311, 0312, 0313, 0314, 0315, 0316, 0317,
37 0320, 0321, 0322, 0323, 0324, 0325, 0326, 0327,
38 0330, 0331, 0332, 0333, 0334, 0335, 0336, 0337,
39 0340, 0341, 0342, 0343, 0344, 0345, 0346, 0347,
40 0350, 0351, 0352, 0353, 0354, 0355, 0356, 0357,
41 0360, 0361, 0362, 0363, 0364, 0365, 0366, 0367,
42 0370, 0371, 0372, 0373, 0374, 0375, 0376, 0377
43 };
44
45 PR_IMPLEMENT(PRIntn)
PL_strcasecmp(const char * a,const char * b)46 PL_strcasecmp(const char *a, const char *b)
47 {
48 const unsigned char *ua = (const unsigned char *)a;
49 const unsigned char *ub = (const unsigned char *)b;
50
51 if( (const char *)0 == a ) {
52 return ((const char *)0 == b) ? 0 : -1;
53 }
54 if( (const char *)0 == b ) {
55 return 1;
56 }
57
58 while( (uc[*ua] == uc[*ub]) && ('\0' != *a) )
59 {
60 a++;
61 ua++;
62 ub++;
63 }
64
65 return (PRIntn)(uc[*ua] - uc[*ub]);
66 }
67
68 PR_IMPLEMENT(PRIntn)
PL_strncasecmp(const char * a,const char * b,PRUint32 max)69 PL_strncasecmp(const char *a, const char *b, PRUint32 max)
70 {
71 const unsigned char *ua = (const unsigned char *)a;
72 const unsigned char *ub = (const unsigned char *)b;
73
74 if( (const char *)0 == a ) {
75 return ((const char *)0 == b) ? 0 : -1;
76 }
77 if( (const char *)0 == b ) {
78 return 1;
79 }
80
81 while( max && (uc[*ua] == uc[*ub]) && ('\0' != *a) )
82 {
83 a++;
84 ua++;
85 ub++;
86 max--;
87 }
88
89 if( 0 == max ) {
90 return (PRIntn)0;
91 }
92
93 return (PRIntn)(uc[*ua] - uc[*ub]);
94 }
95
96 PR_IMPLEMENT(char *)
PL_strcasestr(const char * big,const char * little)97 PL_strcasestr(const char *big, const char *little)
98 {
99 PRUint32 ll;
100
101 if( ((const char *)0 == big) || ((const char *)0 == little) ) {
102 return (char *)0;
103 }
104 if( ((char)0 == *big) || ((char)0 == *little) ) {
105 return (char *)0;
106 }
107
108 ll = strlen(little);
109
110 for( ; *big; big++ )
111 /* obvious improvement available here */
112 if( 0 == PL_strncasecmp(big, little, ll) ) {
113 return (char *)big;
114 }
115
116 return (char *)0;
117 }
118
119 PR_IMPLEMENT(char *)
PL_strcaserstr(const char * big,const char * little)120 PL_strcaserstr(const char *big, const char *little)
121 {
122 const char *p;
123 PRUint32 bl, ll;
124
125 if( ((const char *)0 == big) || ((const char *)0 == little) ) {
126 return (char *)0;
127 }
128 if( ((char)0 == *big) || ((char)0 == *little) ) {
129 return (char *)0;
130 }
131
132 bl = strlen(big);
133 ll = strlen(little);
134 if( bl < ll ) {
135 return (char *)0;
136 }
137 p = &big[ bl - ll ];
138
139 for( ; p >= big; p-- )
140 /* obvious improvement available here */
141 if( 0 == PL_strncasecmp(p, little, ll) ) {
142 return (char *)p;
143 }
144
145 return (char *)0;
146 }
147
148 PR_IMPLEMENT(char *)
PL_strncasestr(const char * big,const char * little,PRUint32 max)149 PL_strncasestr(const char *big, const char *little, PRUint32 max)
150 {
151 PRUint32 ll;
152
153 if( ((const char *)0 == big) || ((const char *)0 == little) ) {
154 return (char *)0;
155 }
156 if( ((char)0 == *big) || ((char)0 == *little) ) {
157 return (char *)0;
158 }
159
160 ll = strlen(little);
161 if( ll > max ) {
162 return (char *)0;
163 }
164 max -= ll;
165 max++;
166
167 for( ; max && *big; big++, max-- )
168 /* obvious improvement available here */
169 if( 0 == PL_strncasecmp(big, little, ll) ) {
170 return (char *)big;
171 }
172
173 return (char *)0;
174 }
175
176 PR_IMPLEMENT(char *)
PL_strncaserstr(const char * big,const char * little,PRUint32 max)177 PL_strncaserstr(const char *big, const char *little, PRUint32 max)
178 {
179 const char *p;
180 PRUint32 ll;
181
182 if( ((const char *)0 == big) || ((const char *)0 == little) ) {
183 return (char *)0;
184 }
185 if( ((char)0 == *big) || ((char)0 == *little) ) {
186 return (char *)0;
187 }
188
189 ll = strlen(little);
190
191 for( p = big; max && *p; p++, max-- )
192 ;
193
194 p -= ll;
195 if( p < big ) {
196 return (char *)0;
197 }
198
199 for( ; p >= big; p-- )
200 /* obvious improvement available here */
201 if( 0 == PL_strncasecmp(p, little, ll) ) {
202 return (char *)p;
203 }
204
205 return (char *)0;
206 }
207