Mercurial > hg > octave-lyh
annotate scripts/miscellaneous/compare_versions.m @ 11523:fd0a3ac60b0e
update copyright notices
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Fri, 14 Jan 2011 05:47:45 -0500 |
| parents | 1740012184f9 |
| children | 9611014e7cf1 |
| rev | line source |
|---|---|
| 11523 | 1 ## Copyright (C) 2006-2011 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}) |
|
11152
39ae406df598
Improve docstrings for functions found in undocumented list.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
21 ## Compare two version strings using the given @var{operator}. |
| 6045 | 22 ## |
| 23 ## This function assumes that versions @var{v1} and @var{v2} are | |
| 24 ## arbitrarily long strings made of numeric and period characters | |
|
9051
1bf0ce0930be
Grammar check TexInfo in all .m files
Rik <rdrider0-list@yahoo.com>
parents:
8920
diff
changeset
|
25 ## possibly followed by an arbitrary string (e.g., "1.2.3", "0.3", |
| 6045 | 26 ## "0.1.2+", or "1.2.3.4-test1"). |
| 27 ## | |
|
11152
39ae406df598
Improve docstrings for functions found in undocumented list.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
28 ## The version is first split into numeric and character portions |
|
39ae406df598
Improve docstrings for functions found in undocumented list.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
29 ## and then the parts are padded to be the same length (i.e., "1.1" would be |
|
39ae406df598
Improve docstrings for functions found in undocumented list.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
30 ## padded to be "1.1.0" when being compared with "1.1.1", and |
| 6045 | 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 | |
|
10821
693e22af08ae
Grammarcheck documentation of m-files
Rik <octave@nomad.inbox5.com>
parents:
10549
diff
changeset
|
40 ## |
| 6045 | 41 ## @item |
| 42 ## "<" | |
| 43 ## less than | |
|
10821
693e22af08ae
Grammarcheck documentation of m-files
Rik <octave@nomad.inbox5.com>
parents:
10549
diff
changeset
|
44 ## |
| 6045 | 45 ## @item |
| 46 ## "<=" | |
| 47 ## less than or equal to | |
|
10821
693e22af08ae
Grammarcheck documentation of m-files
Rik <octave@nomad.inbox5.com>
parents:
10549
diff
changeset
|
48 ## |
| 6045 | 49 ## @item |
| 50 ## ">" | |
| 51 ## greater than | |
|
10821
693e22af08ae
Grammarcheck documentation of m-files
Rik <octave@nomad.inbox5.com>
parents:
10549
diff
changeset
|
52 ## |
| 6045 | 53 ## @item |
| 54 ## ">=" | |
| 55 ## greater than or equal to | |
|
10821
693e22af08ae
Grammarcheck documentation of m-files
Rik <octave@nomad.inbox5.com>
parents:
10549
diff
changeset
|
56 ## |
| 6045 | 57 ## @item |
| 58 ## "!=" | |
| 59 ## not equal | |
|
10821
693e22af08ae
Grammarcheck documentation of m-files
Rik <octave@nomad.inbox5.com>
parents:
10549
diff
changeset
|
60 ## |
| 6045 | 61 ## @item |
| 62 ## "~=" | |
| 63 ## not equal | |
| 64 ## @end itemize | |
| 65 ## | |
|
11152
39ae406df598
Improve docstrings for functions found in undocumented list.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
66 ## Note that version "1.1-test2" will compare as greater than |
|
9051
1bf0ce0930be
Grammar check TexInfo in all .m files
Rik <rdrider0-list@yahoo.com>
parents:
8920
diff
changeset
|
67 ## "1.1-test10". Also, since the numeric part is compared first, "a" |
| 6045 | 68 ## compares less than "1a" because the second string starts with a |
| 69 ## numeric part even though double("a") is greater than double("1"). | |
| 70 ## @end deftypefn | |
| 71 | |
| 7017 | 72 ## Author: Bill Denney <denney@seas.upenn.edu> |
| 73 | |
|
8202
cf59d542f33e
replace all TODOs and XXXs with FIXMEs
Jaroslav Hajek <highegg@gmail.com>
parents:
7151
diff
changeset
|
74 ## FIXME?: This allows a single equal sign "=" to indicate equality, do |
| 6045 | 75 ## we want to require a double equal since that is the boolean operator? |
| 76 | |
| 7069 | 77 function out = compare_versions (v1, v2, operator) |
| 6045 | 78 |
| 7125 | 79 if (nargin != 3) |
| 80 print_usage (); | |
| 81 endif | |
| 82 | |
| 7069 | 83 ## Make sure that the version numbers are valid. |
| 84 if (! (ischar (v1) && ischar (v2))) | |
| 85 error ("compare_versions: both version numbers must be strings"); | |
| 86 elseif (size (v1, 1) != 1 || size (v2, 1) != 1) | |
| 8664 | 87 error ("compare_versions: version numbers must be a single row"); |
| 6045 | 88 endif |
| 89 | |
| 90 ## check and make sure that the operator is valid | |
| 7069 | 91 if (! ischar (operator)) |
|
11472
1740012184f9
Use uppercase for variable names in error() strings to match Info documentation. Only m-files done.
Rik <octave@nomad.inbox5.com>
parents:
11152
diff
changeset
|
92 error ("compare_versions: OPERATOR must be a character string"); |
| 6045 | 93 elseif (numel (operator) > 2) |
|
11472
1740012184f9
Use uppercase for variable names in error() strings to match Info documentation. Only m-files done.
Rik <octave@nomad.inbox5.com>
parents:
11152
diff
changeset
|
94 error("compare_versions: OPERATOR cannot be more than 2 characters long"); |
| 6045 | 95 endif |
| 96 | |
| 97 ## trim off any character data that is not part of a normal version | |
| 98 ## number | |
| 99 numbers = "0123456789."; | |
| 7069 | 100 |
| 101 v1firstchar = find (! ismember (v1, numbers), 1); | |
| 102 v2firstchar = find (! ismember (v2, numbers), 1); | |
| 103 if (! isempty (v1firstchar)) | |
| 6045 | 104 v1c = v1(v1firstchar:length(v1)); |
| 105 v1nochar = v1(1:v1firstchar-1); | |
| 106 else | |
| 107 v1c = ""; | |
| 108 v1nochar = v1; | |
| 109 endif | |
| 7069 | 110 if (! isempty (v2firstchar)) |
| 6045 | 111 v2c = v2(v2firstchar:length(v2)); |
| 112 v2nochar = v2(1:v2firstchar-1); | |
| 113 else | |
| 114 v2c = ""; | |
| 115 v2nochar = v2; | |
| 116 endif | |
| 117 | |
|
8877
2c8b2399247b
implement strsplit; deprecate split
Jaroslav Hajek <highegg@gmail.com>
parents:
8664
diff
changeset
|
118 v1n = str2num (char (strsplit (v1nochar, "."))); |
|
2c8b2399247b
implement strsplit; deprecate split
Jaroslav Hajek <highegg@gmail.com>
parents:
8664
diff
changeset
|
119 v2n = str2num (char (strsplit (v2nochar, "."))); |
| 6045 | 120 if ((isempty (v1n) && isempty (v1c)) || (isempty (v2n) && isempty(v2c))) |
| 7069 | 121 error ("compare_versions: given version strings are not valid: %s %s", |
| 10549 | 122 v1, v2); |
| 6045 | 123 endif |
| 124 | |
| 7069 | 125 ## Assume that any additional elements would be 0 if one is longer |
| 126 ## than the other. | |
| 6045 | 127 maxnumlen = max ([length(v1n) length(v2n)]); |
| 128 if (length (v1n) < maxnumlen) | |
| 129 v1n(length(v1n)+1:maxnumlen) = 0; | |
| 130 endif | |
| 131 if (length (v2n) < maxnumlen) | |
| 132 v2n(length(v2n)+1:maxnumlen) = 0; | |
| 133 endif | |
| 134 | |
| 7069 | 135 ## Assume that any additional character elements would be 0 if one is |
| 136 ## longer than the other. | |
| 137 maxcharlen = max ([length(v1c), length(v2c)]); | |
| 6045 | 138 if (length (v1c) < maxcharlen) |
| 139 v1c(length(v1c)+1:maxcharlen) = "\0"; | |
| 140 endif | |
| 141 if (length (v2c) < maxcharlen) | |
| 142 v2c(length(v2c)+1:maxcharlen) = "\0"; | |
| 143 endif | |
| 144 | |
| 7069 | 145 ## Determine the operator. |
| 6045 | 146 if any (ismember (operator, "=")) |
| 147 equal_op = true; | |
| 148 else | |
| 149 equal_op = false; | |
| 7151 | 150 endif |
| 6045 | 151 if any (ismember (operator, "~!")) |
| 152 not_op = true; | |
| 153 else | |
| 154 not_op = false; | |
| 155 endif | |
| 156 if any (ismember (operator, "<")) | |
| 157 lt_op = true; | |
| 158 else | |
| 159 lt_op = false; | |
| 160 endif | |
| 161 if any (ismember (operator, ">")) | |
| 162 gt_op = true; | |
| 163 else | |
| 164 gt_op = false; | |
| 165 endif | |
| 166 | |
| 7069 | 167 ## Make sure that we don't have conflicting operators. |
| 6045 | 168 if (gt_op && lt_op) |
|
11472
1740012184f9
Use uppercase for variable names in error() strings to match Info documentation. Only m-files done.
Rik <octave@nomad.inbox5.com>
parents:
11152
diff
changeset
|
169 error ("compare_versions: OPERATOR cannot contain both greater and less than symbols"); |
| 6045 | 170 elseif ((gt_op || lt_op) && not_op) |
|
11472
1740012184f9
Use uppercase for variable names in error() strings to match Info documentation. Only m-files done.
Rik <octave@nomad.inbox5.com>
parents:
11152
diff
changeset
|
171 error ("compare_versions: OPERATOR cannot contain not and greater than or less than symbols"); |
| 6045 | 172 endif |
| 173 | |
| 7069 | 174 ## Compare the versions (making sure that they're the same shape) |
| 6045 | 175 vcmp = v1n(:) - v2n(:); |
| 176 vcmp = [vcmp; (v1c - v2c)(:)]; | |
| 177 if (lt_op) | |
| 178 ## so that we only need to check for the output being greater than 1 | |
| 179 vcmp = -vcmp; | |
| 180 endif | |
| 7069 | 181 firstdiff = find (vcmp != 0, 1); |
| 6045 | 182 |
| 7069 | 183 if (isempty (firstdiff)) |
| 184 ## They're equal. | |
| 6045 | 185 out = equal_op; |
| 186 elseif (lt_op || gt_op) | |
| 7069 | 187 ## They're correctly less than or greater than. |
| 6045 | 188 out = (vcmp(firstdiff) > 0); |
| 189 else | |
| 7069 | 190 ## They're not correctly less than or greater than, and they're not |
| 191 ## equal. | |
| 6045 | 192 out = false; |
| 193 endif | |
| 194 | |
| 7069 | 195 ## Reverse the output if not is given. |
| 6045 | 196 out = xor (not_op, out); |
| 7125 | 197 |
| 6045 | 198 endfunction |
| 199 | |
| 200 ## tests | |
| 201 ## test both equality symbols | |
| 202 %!assert(compare_versions("1", "1", "="), true) | |
| 203 ## test arbitrarily long equality | |
| 204 %!assert(compare_versions("1.1.0.0.0", "1.1", "=="), true) | |
| 205 %!assert(compare_versions("1", "1.1", "<"), true) | |
| 206 %!assert(compare_versions("1.1", "1.1", "<="), true) | |
| 207 %!assert(compare_versions("1.1", "1.1.1", "<="), true) | |
| 208 %!assert(compare_versions("1.23", "1.24", "=<"), true) | |
| 209 ## test different length numbers | |
| 210 %!assert(compare_versions("23.2000", "23.1", ">"), true) | |
| 211 %!assert(compare_versions("0.0.2", "0.0.1", ">="), true) | |
| 212 %!assert(compare_versions("0.2", "0.0.100", "=>"), true) | |
| 213 %!assert(compare_versions("0.1", "0.2", "!="), true) | |
| 214 %!assert(compare_versions("0.1", "0.2", "~="), true) | |
| 215 | |
| 216 ## test alphanumeric strings | |
| 217 %!assert(compare_versions("1a", "1b", "<"), true) | |
| 218 %!assert(compare_versions("a", "1", "<"), true) | |
| 219 %!assert(compare_versions("1a", "1b", ">"), false) | |
| 220 %!assert(compare_versions("a", "1", ">"), false) | |
| 221 %!assert(compare_versions("1.1.0a", "1.1.0b", "=="), false) | |
| 222 %!assert(compare_versions("1.1.0a", "1.1.0b", "!="), true) | |
| 223 %!assert(compare_versions("1.1.0test", "1.1.0b", "=="), false) | |
| 224 %!assert(compare_versions("1.1.0test", "1.1.0test", "=="), true) | |
| 225 | |
| 226 ## make sure that it won't just give true output | |
| 227 %!assert(compare_versions("1", "0", "="), false) | |
| 228 ## test arbitrarily long equality | |
| 229 %!assert(compare_versions("1.1.1.0.0", "1.1", "=="), false) | |
| 230 %!assert(compare_versions("1.1", "1", "<"), false) | |
| 231 %!assert(compare_versions("2", "1.1", "<="), false) | |
| 232 %!assert(compare_versions("1.1.1", "1.1", "<="), false) | |
| 233 %!assert(compare_versions("1.25", "1.24", "=<"), false) | |
| 234 ## test different length numbers | |
| 235 %!assert(compare_versions("23.2", "23.100", ">"), false) | |
| 236 %!assert(compare_versions("0.0.0.2", "0.0.1", ">="), false) | |
| 237 %!assert(compare_versions("0.0.20", "0.10.2", "=>"), false) | |
| 238 %!assert(compare_versions("0.1", "0.1", "!="), false) | |
| 239 %!assert(compare_versions("0.1", "0.1", "~="), false) | |
| 240 | |
| 241 ## FIXME: how do we check to make sure that it gives errors when it | |
| 242 ## should |