2 * SPDX-License-Identifier: BSD-2-Clause-FreeBSD
4 * Copyright (C) 2012 Oleg Moskalenko <mom040267@gmail.com>
5 * Copyright (C) 2012 Gabor Kovesdan <gabor@FreeBSD.org>
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions
11 * 1. Redistributions of source code must retain the above copyright
12 * notice, this list of conditions and the following disclaimer.
13 * 2. Redistributions in binary form must reproduce the above copyright
14 * notice, this list of conditions and the following disclaimer in the
15 * documentation and/or other materials provided with the distribution.
17 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
18 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
19 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
20 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
21 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
22 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
23 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
24 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
25 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
26 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
30 #include <sys/cdefs.h>
31 __FBSDID("$FreeBSD$");
33 #include <sys/types.h>
43 isdigit_clocale(wchar_t c)
46 return (c >= L'0' && c <= L'9');
50 isalpha_clocale(wchar_t c)
53 return ((c >= L'a' && c <= L'z') || (c >= L'A' && c <= L'Z'));
57 isalnum_clocale(wchar_t c)
60 return ((c >= L'a' && c <= L'z') || (c >= L'A' && c <= L'Z') ||
61 (c >= L'0' && c <= L'9'));
65 * Find string suffix of format: (\.[A-Za-z~][A-Za-z0-9~]*)*$
66 * Set length of string before suffix.
69 find_suffix(bwstring_iterator si, bwstring_iterator se, size_t *len)
73 bool expect_alpha, sfx;
80 while ((si < se) && (c = bws_get_iter_value(si))) {
83 if (!isalpha_clocale(c) && (c != L'~'))
85 } else if (c == L'.') {
91 } else if (!isalnum_clocale(c) && (c != L'~'))
94 si = bws_iterator_inc(si, 1);
98 /* This code must be here to make the implementation compatible
99 * with WORDING of GNU sort documentation.
100 * But the GNU sort implementation is not following its own
101 * documentation. GNU sort allows empty file extensions
102 * (just dot with nothing after); but the regular expression in
103 * their documentation does not allow empty file extensions.
104 * We chose to make our implementation compatible with GNU sort
105 * implementation. If they will ever fix their bug, this code
106 * must be uncommented. Or they may choose to fix the info page,
107 * then the code stays commented.
118 cmp_chars(wchar_t c1, wchar_t c2)
129 if (isdigit_clocale(c1) || !c1)
130 return ((isdigit_clocale(c2) || !c2) ? 0 : -1);
132 if (isdigit_clocale(c2) || !c2)
135 if (isalpha_clocale(c1))
136 return ((isalpha_clocale(c2)) ? ((int) c1 - (int) c2) : -1);
138 if (isalpha_clocale(c2))
141 return ((int) c1 - (int) c2);
145 cmpversions(bwstring_iterator si1, bwstring_iterator se1,
146 bwstring_iterator si2, bwstring_iterator se2)
150 while ((si1 < se1) || (si2 < se2)) {
153 while (((si1 < se1) &&
154 !isdigit_clocale(bws_get_iter_value(si1))) ||
155 ((si2 < se2) && !isdigit_clocale(bws_get_iter_value(si2)))) {
158 c1 = (si1 < se1) ? bws_get_iter_value(si1) : 0;
159 c2 = (si2 < se2) ? bws_get_iter_value(si2) : 0;
161 cmp = cmp_chars(c1, c2);
166 si1 = bws_iterator_inc(si1, 1);
168 si2 = bws_iterator_inc(si2, 1);
171 while (bws_get_iter_value(si1) == L'0')
172 si1 = bws_iterator_inc(si1, 1);
174 while (bws_get_iter_value(si2) == L'0')
175 si2 = bws_iterator_inc(si2, 1);
177 while (isdigit_clocale(bws_get_iter_value(si1)) &&
178 isdigit_clocale(bws_get_iter_value(si2))) {
180 diff = ((int)bws_get_iter_value(si1) -
181 (int)bws_get_iter_value(si2));
182 si1 = bws_iterator_inc(si1, 1);
183 si2 = bws_iterator_inc(si2, 1);
186 if (isdigit_clocale(bws_get_iter_value(si1)))
189 if (isdigit_clocale(bws_get_iter_value(si2)))
200 * Compare two version strings
203 vcmp(struct bwstring *s1, struct bwstring *s2)
205 bwstring_iterator si1, si2;
207 size_t len1, len2, slen1, slen2;
208 int cmp_bytes, cmp_res;
213 cmp_bytes = bwscmp(s1, s2, 0);
217 len1 = slen1 = BWSLEN(s1);
218 len2 = slen2 = BWSLEN(s2);
228 c1 = bws_get_iter_value(si1);
229 c2 = bws_get_iter_value(si2);
231 if (c1 == L'.' && (slen1 == 1))
234 if (c2 == L'.' && (slen2 == 1))
237 if (slen1 == 2 && c1 == L'.' &&
238 bws_get_iter_value(bws_iterator_inc(si1, 1)) == L'.')
240 if (slen2 == 2 && c2 == L'.' &&
241 bws_get_iter_value(bws_iterator_inc(si2, 1)) == L'.')
244 if (c1 == L'.' && c2 != L'.')
246 if (c1 != L'.' && c2 == L'.')
249 if (c1 == L'.' && c2 == L'.') {
250 si1 = bws_iterator_inc(si1, 1);
251 si2 = bws_iterator_inc(si2, 1);
254 find_suffix(si1, bws_end(s1), &len1);
255 find_suffix(si2, bws_end(s2), &len2);
257 if ((len1 == len2) && (bws_iterator_cmp(si1, si2, len1) == 0))
260 cmp_res = cmpversions(si1, bws_iterator_inc(si1, len1), si2,
261 bws_iterator_inc(si2, len2));