|
7017
|
1 ## Copyright (C) 2006, 2007 Bill Denney |
|
6045
|
2 ## |
|
6440
|
3 ## This file is part of Octave. |
|
6045
|
4 ## |
|
6440
|
5 ## Octave is free software; you can redistribute it and/or modify it |
|
|
6 ## under the terms of the GNU General Public License as published by |
|
7016
|
7 ## the Free Software Foundation; either version 3 of the License, or (at |
|
|
8 ## your option) any later version. |
|
6440
|
9 ## |
|
|
10 ## Octave is distributed in the hope that it will be useful, but |
|
|
11 ## WITHOUT ANY WARRANTY; without even the implied warranty of |
|
|
12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
|
|
13 ## General Public License for more details. |
|
6045
|
14 ## |
|
|
15 ## You should have received a copy of the GNU General Public License |
|
7016
|
16 ## along with Octave; see the file COPYING. If not, see |
|
|
17 ## <http://www.gnu.org/licenses/>. |
|
6045
|
18 |
|
|
19 ## -*- texinfo -*- |
|
6248
|
20 ## @deftypefn {Function File} {} compare_versions (@var{v1}, @var{v2}, @var{operator}) |
|
6045
|
21 ## Compares to version strings using the given @var{operator}. |
|
|
22 ## |
|
|
23 ## This function assumes that versions @var{v1} and @var{v2} are |
|
|
24 ## arbitrarily long strings made of numeric and period characters |
|
|
25 ## possibly followed by an arbitrary string (e.g. "1.2.3", "0.3", |
|
|
26 ## "0.1.2+", or "1.2.3.4-test1"). |
|
|
27 ## |
|
|
28 ## The version is first split into the numeric and the character parts |
|
|
29 ## then the parts are padded to be the same length (i.e. "1.1" would be |
|
|
30 ## padded to be like "1.1.0" when being compared with "1.1.1", and |
|
|
31 ## separately, the character parts of the strings are padded with |
|
|
32 ## nulls). |
|
|
33 ## |
|
|
34 ## The operator can be any logical operator from the set |
|
|
35 ## |
|
|
36 ## @itemize @bullet |
|
|
37 ## @item |
|
|
38 ## "==" |
|
|
39 ## equal |
|
|
40 ## @item |
|
|
41 ## "<" |
|
|
42 ## less than |
|
|
43 ## @item |
|
|
44 ## "<=" |
|
|
45 ## less than or equal to |
|
|
46 ## @item |
|
|
47 ## ">" |
|
|
48 ## greater than |
|
|
49 ## @item |
|
|
50 ## ">=" |
|
|
51 ## greater than or equal to |
|
|
52 ## @item |
|
|
53 ## "!=" |
|
|
54 ## not equal |
|
|
55 ## @item |
|
|
56 ## "~=" |
|
|
57 ## not equal |
|
|
58 ## @end itemize |
|
|
59 ## |
|
|
60 ## Note that version "1.1-test2" would compare as greater than |
|
|
61 ## "1.1-test10". Also, since the numeric part is compared first, "a" |
|
|
62 ## compares less than "1a" because the second string starts with a |
|
|
63 ## numeric part even though double("a") is greater than double("1"). |
|
|
64 ## @end deftypefn |
|
|
65 |
|
7017
|
66 ## Author: Bill Denney <denney@seas.upenn.edu> |
|
|
67 |
|
6045
|
68 ## TODO?: This allows a single equal sign "=" to indicate equality, do |
|
|
69 ## we want to require a double equal since that is the boolean operator? |
|
|
70 |
|
|
71 function out = compare_versions(v1, v2, operator) |
|
|
72 |
|
|
73 ## make sure that the version numbers are valid |
|
|
74 if ~ (ischar (v1) && ischar (v2)) |
|
|
75 error ("Both version numbers must be strings"); |
|
|
76 elseif (size (v1, 1) ~= 1) || (size (v2, 1) ~= 1) |
|
|
77 error ("Version numbers must be a single row") |
|
|
78 endif |
|
|
79 |
|
|
80 ## check and make sure that the operator is valid |
|
|
81 if (~ ischar (operator)) |
|
|
82 error("Operator must be a character string"); |
|
|
83 elseif (numel (operator) > 2) |
|
|
84 error("Operator cannot be more than 2 characters long"); |
|
|
85 endif |
|
|
86 |
|
|
87 ## trim off any character data that is not part of a normal version |
|
|
88 ## number |
|
|
89 numbers = "0123456789."; |
|
7068
|
90 v1, numbers, ismember (v1, numbers) |
|
6045
|
91 v1firstchar = find(~ ismember(v1, numbers), 1); |
|
|
92 v2firstchar = find(~ ismember(v2, numbers), 1); |
|
|
93 if ~ isempty (v1firstchar) |
|
|
94 v1c = v1(v1firstchar:length(v1)); |
|
|
95 v1nochar = v1(1:v1firstchar-1); |
|
|
96 else |
|
|
97 v1c = ""; |
|
|
98 v1nochar = v1; |
|
|
99 endif |
|
|
100 if ~ isempty (v2firstchar) |
|
|
101 v2c = v2(v2firstchar:length(v2)); |
|
|
102 v2nochar = v2(1:v2firstchar-1); |
|
|
103 else |
|
|
104 v2c = ""; |
|
|
105 v2nochar = v2; |
|
|
106 endif |
|
|
107 |
|
|
108 v1n = str2num (split (v1nochar, '.')); |
|
|
109 v2n = str2num (split (v2nochar, '.')); |
|
|
110 if ((isempty (v1n) && isempty (v1c)) || (isempty (v2n) && isempty(v2c))) |
|
|
111 error ("Given version strings are not valid: %s %s", v1, v2); |
|
|
112 endif |
|
|
113 |
|
|
114 ## assume that any additional elements would be 0 if one is longer |
|
|
115 ## than the other |
|
|
116 maxnumlen = max ([length(v1n) length(v2n)]); |
|
|
117 if (length (v1n) < maxnumlen) |
|
|
118 v1n(length(v1n)+1:maxnumlen) = 0; |
|
|
119 endif |
|
|
120 if (length (v2n) < maxnumlen) |
|
|
121 v2n(length(v2n)+1:maxnumlen) = 0; |
|
|
122 endif |
|
|
123 |
|
|
124 ## assume that any additional character elements would be 0 if one is |
|
|
125 ## longer than the other |
|
|
126 maxcharlen = max ([length(v1c) length(v2c)]); |
|
|
127 if (length (v1c) < maxcharlen) |
|
|
128 v1c(length(v1c)+1:maxcharlen) = "\0"; |
|
|
129 endif |
|
|
130 if (length (v2c) < maxcharlen) |
|
|
131 v2c(length(v2c)+1:maxcharlen) = "\0"; |
|
|
132 endif |
|
|
133 |
|
|
134 ## determine the operator |
|
|
135 if any (ismember (operator, "=")) |
|
|
136 equal_op = true; |
|
|
137 else |
|
|
138 equal_op = false; |
|
|
139 end |
|
|
140 if any (ismember (operator, "~!")) |
|
|
141 not_op = true; |
|
|
142 else |
|
|
143 not_op = false; |
|
|
144 endif |
|
|
145 if any (ismember (operator, "<")) |
|
|
146 lt_op = true; |
|
|
147 else |
|
|
148 lt_op = false; |
|
|
149 endif |
|
|
150 if any (ismember (operator, ">")) |
|
|
151 gt_op = true; |
|
|
152 else |
|
|
153 gt_op = false; |
|
|
154 endif |
|
|
155 |
|
|
156 ## make sure that we don't have conflicting operators |
|
|
157 if (gt_op && lt_op) |
|
|
158 error("Operator cannot contain both greater and less than symbols"); |
|
|
159 elseif ((gt_op || lt_op) && not_op) |
|
|
160 error("Operator cannot contain not and greater than or less than symbols"); |
|
|
161 endif |
|
|
162 |
|
|
163 ## compare the versions (making sure that they're the same shape) |
|
|
164 vcmp = v1n(:) - v2n(:); |
|
|
165 vcmp = [vcmp; (v1c - v2c)(:)]; |
|
|
166 if (lt_op) |
|
|
167 ## so that we only need to check for the output being greater than 1 |
|
|
168 vcmp = -vcmp; |
|
|
169 endif |
|
|
170 firstdiff = find(vcmp != 0, 1); |
|
|
171 |
|
|
172 if isempty (firstdiff) |
|
|
173 ## they're equal |
|
|
174 out = equal_op; |
|
|
175 elseif (lt_op || gt_op) |
|
|
176 ## they're correctly less than or greater than |
|
|
177 out = (vcmp(firstdiff) > 0); |
|
|
178 else |
|
|
179 ## they're not correctly less than or greater than, and they're not equal |
|
|
180 out = false; |
|
|
181 endif |
|
|
182 |
|
|
183 ## reverse the output if not is given |
|
|
184 out = xor (not_op, out); |
|
|
185 endfunction |
|
|
186 |
|
|
187 ## tests |
|
|
188 ## test both equality symbols |
|
|
189 %!assert(compare_versions("1", "1", "="), true) |
|
|
190 ## test arbitrarily long equality |
|
|
191 %!assert(compare_versions("1.1.0.0.0", "1.1", "=="), true) |
|
|
192 %!assert(compare_versions("1", "1.1", "<"), true) |
|
|
193 %!assert(compare_versions("1.1", "1.1", "<="), true) |
|
|
194 %!assert(compare_versions("1.1", "1.1.1", "<="), true) |
|
|
195 %!assert(compare_versions("1.23", "1.24", "=<"), true) |
|
|
196 ## test different length numbers |
|
|
197 %!assert(compare_versions("23.2000", "23.1", ">"), true) |
|
|
198 %!assert(compare_versions("0.0.2", "0.0.1", ">="), true) |
|
|
199 %!assert(compare_versions("0.2", "0.0.100", "=>"), true) |
|
|
200 %!assert(compare_versions("0.1", "0.2", "!="), true) |
|
|
201 %!assert(compare_versions("0.1", "0.2", "~="), true) |
|
|
202 |
|
|
203 ## test alphanumeric strings |
|
|
204 %!assert(compare_versions("1a", "1b", "<"), true) |
|
|
205 %!assert(compare_versions("a", "1", "<"), true) |
|
|
206 %!assert(compare_versions("1a", "1b", ">"), false) |
|
|
207 %!assert(compare_versions("a", "1", ">"), false) |
|
|
208 %!assert(compare_versions("1.1.0a", "1.1.0b", "=="), false) |
|
|
209 %!assert(compare_versions("1.1.0a", "1.1.0b", "!="), true) |
|
|
210 %!assert(compare_versions("1.1.0test", "1.1.0b", "=="), false) |
|
|
211 %!assert(compare_versions("1.1.0test", "1.1.0test", "=="), true) |
|
|
212 |
|
|
213 ## make sure that it won't just give true output |
|
|
214 %!assert(compare_versions("1", "0", "="), false) |
|
|
215 ## test arbitrarily long equality |
|
|
216 %!assert(compare_versions("1.1.1.0.0", "1.1", "=="), false) |
|
|
217 %!assert(compare_versions("1.1", "1", "<"), false) |
|
|
218 %!assert(compare_versions("2", "1.1", "<="), false) |
|
|
219 %!assert(compare_versions("1.1.1", "1.1", "<="), false) |
|
|
220 %!assert(compare_versions("1.25", "1.24", "=<"), false) |
|
|
221 ## test different length numbers |
|
|
222 %!assert(compare_versions("23.2", "23.100", ">"), false) |
|
|
223 %!assert(compare_versions("0.0.0.2", "0.0.1", ">="), false) |
|
|
224 %!assert(compare_versions("0.0.20", "0.10.2", "=>"), false) |
|
|
225 %!assert(compare_versions("0.1", "0.1", "!="), false) |
|
|
226 %!assert(compare_versions("0.1", "0.1", "~="), false) |
|
|
227 |
|
|
228 ## FIXME: how do we check to make sure that it gives errors when it |
|
|
229 ## should |
