1
2 /**
3 * \file streqvcmp.c
4 *
5 * String Equivalence Comparison
6 *
7 * These routines allow any character to be mapped to any other
8 * character before comparison. In processing long option names,
9 * the characters "-", "_" and "^" all need to be equivalent
10 * (because they are treated so by different development environments).
11 *
12 * @addtogroup autoopts
13 * @{
14 */
15 /*
16 * This file is part of AutoOpts, a companion to AutoGen.
17 * AutoOpts is free software.
18 * AutoOpts is Copyright (C) 1992-2018 by Bruce Korb - all rights reserved
19 *
20 * AutoOpts is available under any one of two licenses. The license
21 * in use must be one of these two and the choice is under the control
22 * of the user of the license.
23 *
24 * The GNU Lesser General Public License, version 3 or later
25 * See the files "COPYING.lgplv3" and "COPYING.gplv3"
26 *
27 * The Modified Berkeley Software Distribution License
28 * See the file "COPYING.mbsd"
29 *
30 * These files have the following sha256 sums:
31 *
32 * 8584710e9b04216a394078dc156b781d0b47e1729104d666658aecef8ee32e95 COPYING.gplv3
33 * 4379e7444a0e2ce2b12dd6f5a52a27a4d02d39d247901d3285c88cf0d37f477b COPYING.lgplv3
34 * 13aa749a5b0a454917a944ed8fffc530b784f5ead522b1aacaf4ec8aa55a6239 COPYING.mbsd
35 *
36 * This array is designed for mapping upper and lower case letter
37 * together for a case independent comparison. The mappings are
38 * based upon ascii character sequences.
39 */
40 static unsigned char charmap[] = {
41 NUL, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, '\a',
42 '\b', '\t', NL, '\v', '\f', '\r', 0x0E, 0x0F,
43 0x10, 0x11, 0x12, 0x13, 0x14, 0x15, 0x16, 0x17,
44 0x18, 0x19, 0x1A, 0x1B, 0x1C, 0x1D, 0x1E, 0x1F,
45
46 ' ', '!', '"', '#', '$', '%', '&', '\'',
47 '(', ')', '*', '+', ',', '-', '.', '/',
48 '0', '1', '2', '3', '4', '5', '6', '7',
49 '8', '9', ':', ';', '<', '=', '>', '?',
50
51 '@', 'a', 'b', 'c', 'd', 'e', 'f', 'g',
52 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o',
53 'p', 'q', 'r', 's', 't', 'u', 'v', 'w',
54 'x', 'y', 'z', '[', '\\', ']', '^', '_',
55 '`', 'a', 'b', 'c', 'd', 'e', 'f', 'g',
56 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o',
57 'p', 'q', 'r', 's', 't', 'u', 'v', 'w',
58 'x', 'y', 'z', '{', '|', '}', '~', 0x7f,
59
60 0x80, 0x81, 0x82, 0x83, 0x84, 0x85, 0x86, 0x87,
61 0x88, 0x89, 0x8A, 0x8B, 0x8C, 0x8D, 0x8E, 0x8F,
62 0x90, 0x91, 0x92, 0x93, 0x94, 0x95, 0x96, 0x97,
63 0x98, 0x99, 0x9A, 0x9B, 0x9C, 0x9D, 0x9E, 0x9F,
64 0xA0, 0xA1, 0xA2, 0xA3, 0xA4, 0xA5, 0xA6, 0xA7,
65 0xA8, 0xA9, 0xAA, 0xAB, 0xAC, 0xAD, 0xAE, 0xAF,
66 0xB0, 0xB1, 0xB2, 0xB3, 0xB4, 0xB5, 0xB6, 0xB7,
67 0xB8, 0xB9, 0xBA, 0xBB, 0xBC, 0xBD, 0xBE, 0xBF,
68
69 0xC0, 0xC1, 0xC2, 0xC3, 0xC4, 0xC5, 0xC6, 0xC7,
70 0xC8, 0xC9, 0xCA, 0xCB, 0xCC, 0xCD, 0xCE, 0xCF,
71 0xD0, 0xD1, 0xD2, 0xD3, 0xD4, 0xD5, 0xD6, 0xD7,
72 0xD8, 0xD9, 0xDA, 0xDB, 0xDC, 0xDD, 0xDE, 0xDF,
73 0xE0, 0xE1, 0xE2, 0xE3, 0xE4, 0xE5, 0xE6, 0xE7,
74 0xE8, 0xE9, 0xEA, 0xEB, 0xEC, 0xED, 0xEE, 0xEF,
75 0xF0, 0xF1, 0xF2, 0xF3, 0xF4, 0xF5, 0xF6, 0xF7,
76 0xF8, 0xF9, 0xFA, 0xFB, 0xFC, 0xFD, 0xFE, 0xFF,
77 };
78
79
80 /*=export_func strneqvcmp
81 *
82 * what: compare two strings with an equivalence mapping
83 *
84 * arg: + char const * + str1 + first string +
85 * arg: + char const * + str2 + second string +
86 * arg: + int + ct + compare length +
87 *
88 * ret_type: int
89 * ret_desc: the difference between two differing characters
90 *
91 * doc:
92 *
93 * Using a character mapping, two strings are compared for "equivalence".
94 * Each input character is mapped to a comparison character and the
95 * mapped-to characters are compared for the two NUL terminated input strings.
96 * The comparison is limited to @code{ct} bytes.
97 * This function name is mapped to option_strneqvcmp so as to not conflict
98 * with the POSIX name space.
99 *
100 * err: none checked. Caller responsible for seg faults.
101 =*/
102 int
strneqvcmp(char const * s1,char const * s2,int ct)103 strneqvcmp(char const * s1, char const * s2, int ct)
104 {
105 for (; ct > 0; --ct) {
106 unsigned char u1 = (unsigned char) *s1++;
107 unsigned char u2 = (unsigned char) *s2++;
108 int dif;
109 if (u1 == u2) {
110 if (u1 == NUL)
111 return 0;
112 continue;
113 }
114
115 dif = charmap[ u1 ] - charmap[ u2 ];
116
117 if (dif != 0)
118 return dif;
119
120 if (u1 == NUL)
121 return 0;
122 }
123
124 return 0;
125 }
126
127
128 /*=export_func streqvcmp
129 *
130 * what: compare two strings with an equivalence mapping
131 *
132 * arg: + char const * + str1 + first string +
133 * arg: + char const * + str2 + second string +
134 *
135 * ret_type: int
136 * ret_desc: the difference between two differing characters
137 *
138 * doc:
139 *
140 * Using a character mapping, two strings are compared for "equivalence".
141 * Each input character is mapped to a comparison character and the
142 * mapped-to characters are compared for the two NUL terminated input strings.
143 * This function name is mapped to option_streqvcmp so as to not conflict
144 * with the POSIX name space.
145 *
146 * err: none checked. Caller responsible for seg faults.
147 =*/
148 int
streqvcmp(char const * s1,char const * s2)149 streqvcmp(char const * s1, char const * s2)
150 {
151 for (;;) {
152 unsigned char u1 = (unsigned char) *s1++;
153 unsigned char u2 = (unsigned char) *s2++;
154 int dif;
155 if (u1 == u2) {
156 if (u1 == NUL)
157 return 0;
158 continue;
159 }
160
161 dif = charmap[ u1 ] - charmap[ u2 ];
162
163 if (dif != 0)
164 return dif;
165
166 if (u1 == NUL)
167 return 0;
168 }
169 }
170
171
172 /*=export_func streqvmap
173 *
174 * what: Set the character mappings for the streqv functions
175 *
176 * arg: + char + from + Input character +
177 * arg: + char + to + Mapped-to character +
178 * arg: + int + ct + compare length +
179 *
180 * doc:
181 *
182 * Set the character mapping. If the count (@code{ct}) is set to zero, then
183 * the map is cleared by setting all entries in the map to their index
184 * value. Otherwise, the "@code{From}" character is mapped to the "@code{To}"
185 * character. If @code{ct} is greater than 1, then @code{From} and @code{To}
186 * are incremented and the process repeated until @code{ct} entries have been
187 * set. For example,
188 * @example
189 * streqvmap('a', 'A', 26);
190 * @end example
191 * @noindent
192 * will alter the mapping so that all English lower case letters
193 * will map to upper case.
194 *
195 * This function name is mapped to option_streqvmap so as to not conflict
196 * with the POSIX name space.
197 *
198 * err: none.
199 =*/
200 void
streqvmap(char from,char to,int ct)201 streqvmap(char from, char to, int ct)
202 {
203 if (ct == 0) {
204 ct = sizeof(charmap) - 1;
205 do {
206 charmap[ct] = (unsigned char)ct;
207 } while (--ct >= 0);
208 }
209
210 else {
211 unsigned int i_to = (int)to & 0xFF;
212 unsigned int i_from = (int)from & 0xFF;
213
214 do {
215 charmap[i_from] = (unsigned char)i_to;
216 i_from++;
217 i_to++;
218 if ((i_from >= sizeof(charmap)) || (i_to >= sizeof(charmap)))
219 break;
220 } while (--ct > 0);
221 }
222 }
223
224
225 /*=export_func strequate
226 *
227 * what: map a list of characters to the same value
228 *
229 * arg: + char const * + ch_list + characters to equivalence +
230 *
231 * doc:
232 *
233 * Each character in the input string get mapped to the first character
234 * in the string.
235 * This function name is mapped to option_strequate so as to not conflict
236 * with the POSIX name space.
237 *
238 * err: none.
239 =*/
240 void
strequate(char const * s)241 strequate(char const * s)
242 {
243 if ((s != NULL) && (*s != NUL)) {
244 unsigned char equiv = (unsigned char)*s;
245 while (*s != NUL)
246 charmap[(unsigned char)*(s++)] = equiv;
247 }
248 }
249
250
251 /*=export_func strtransform
252 *
253 * what: convert a string into its mapped-to value
254 *
255 * arg: + char * + dest + output string +
256 * arg: + char const * + src + input string +
257 *
258 * doc:
259 *
260 * Each character in the input string is mapped and the mapped-to
261 * character is put into the output.
262 * This function name is mapped to option_strtransform so as to not conflict
263 * with the POSIX name space.
264 *
265 * The source and destination may be the same.
266 *
267 * err: none.
268 =*/
269 void
strtransform(char * d,char const * s)270 strtransform(char * d, char const * s)
271 {
272 do {
273 *(d++) = (char)charmap[(unsigned char)*s];
274 } while (*(s++) != NUL);
275 }
276
277 /** @}
278 *
279 * Local Variables:
280 * mode: C
281 * c-file-style: "stroustrup"
282 * indent-tabs-mode: nil
283 * End:
284 * end of autoopts/streqvcmp.c */
285