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 if( (const char *)0 == b )
54 return 1;
55
56 while( (uc[*ua] == uc[*ub]) && ('\0' != *a) )
57 {
58 a++;
59 ua++;
60 ub++;
61 }
62
63 return (PRIntn)(uc[*ua] - uc[*ub]);
64 }
65
66 PR_IMPLEMENT(PRIntn)
PL_strncasecmp(const char * a,const char * b,PRUint32 max)67 PL_strncasecmp(const char *a, const char *b, PRUint32 max)
68 {
69 const unsigned char *ua = (const unsigned char *)a;
70 const unsigned char *ub = (const unsigned char *)b;
71
72 if( (const char *)0 == a )
73 return ((const char *)0 == b) ? 0 : -1;
74 if( (const char *)0 == b )
75 return 1;
76
77 while( max && (uc[*ua] == uc[*ub]) && ('\0' != *a) )
78 {
79 a++;
80 ua++;
81 ub++;
82 max--;
83 }
84
85 if( 0 == max ) return (PRIntn)0;
86
87 return (PRIntn)(uc[*ua] - uc[*ub]);
88 }
89
90 PR_IMPLEMENT(char *)
PL_strcasestr(const char * big,const char * little)91 PL_strcasestr(const char *big, const char *little)
92 {
93 PRUint32 ll;
94
95 if( ((const char *)0 == big) || ((const char *)0 == little) ) return (char *)0;
96 if( ((char)0 == *big) || ((char)0 == *little) ) return (char *)0;
97
98 ll = strlen(little);
99
100 for( ; *big; big++ )
101 /* obvious improvement available here */
102 if( 0 == PL_strncasecmp(big, little, ll) )
103 return (char *)big;
104
105 return (char *)0;
106 }
107
108 PR_IMPLEMENT(char *)
PL_strcaserstr(const char * big,const char * little)109 PL_strcaserstr(const char *big, const char *little)
110 {
111 const char *p;
112 PRUint32 bl, ll;
113
114 if( ((const char *)0 == big) || ((const char *)0 == little) ) return (char *)0;
115 if( ((char)0 == *big) || ((char)0 == *little) ) return (char *)0;
116
117 bl = strlen(big);
118 ll = strlen(little);
119 if( bl < ll ) return (char *)0;
120 p = &big[ bl - ll ];
121
122 for( ; p >= big; p-- )
123 /* obvious improvement available here */
124 if( 0 == PL_strncasecmp(p, little, ll) )
125 return (char *)p;
126
127 return (char *)0;
128 }
129
130 PR_IMPLEMENT(char *)
PL_strncasestr(const char * big,const char * little,PRUint32 max)131 PL_strncasestr(const char *big, const char *little, PRUint32 max)
132 {
133 PRUint32 ll;
134
135 if( ((const char *)0 == big) || ((const char *)0 == little) ) return (char *)0;
136 if( ((char)0 == *big) || ((char)0 == *little) ) return (char *)0;
137
138 ll = strlen(little);
139 if( ll > max ) return (char *)0;
140 max -= ll;
141 max++;
142
143 for( ; max && *big; big++, max-- )
144 /* obvious improvement available here */
145 if( 0 == PL_strncasecmp(big, little, ll) )
146 return (char *)big;
147
148 return (char *)0;
149 }
150
151 PR_IMPLEMENT(char *)
PL_strncaserstr(const char * big,const char * little,PRUint32 max)152 PL_strncaserstr(const char *big, const char *little, PRUint32 max)
153 {
154 const char *p;
155 PRUint32 ll;
156
157 if( ((const char *)0 == big) || ((const char *)0 == little) ) return (char *)0;
158 if( ((char)0 == *big) || ((char)0 == *little) ) return (char *)0;
159
160 ll = strlen(little);
161
162 for( p = big; max && *p; p++, max-- )
163 ;
164
165 p -= ll;
166 if( p < big ) return (char *)0;
167
168 for( ; p >= big; p-- )
169 /* obvious improvement available here */
170 if( 0 == PL_strncasecmp(p, little, ll) )
171 return (char *)p;
172
173 return (char *)0;
174 }
175