octave-lyh: scripts/miscellaneous/compare

annotate scripts/miscellaneous/compare_versions.m @ 17535:c12c688a35ed default tip lyh

Fix warnings

author	LYH <lyh.kernel@gmail.com>
date	Fri, 27 Sep 2013 17:43:27 +0800
parents	4d7f95eb8bfe
children

rev	line source
14138 72c96de7a403 maint: update copyright notices for 2012 John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1 ## Copyright (C) 2006-2012 Bill Denney
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	2 ##
6440 98ee80702bca [project @ 2007-03-23 15:13:19 by jwe] jwe parents: 6248 diff changeset	3 ## This file is part of Octave.
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	4 ##
6440 98ee80702bca [project @ 2007-03-23 15:13:19 by jwe] jwe parents: 6248 diff changeset	5 ## Octave is free software; you can redistribute it and/or modify it
98ee80702bca [project @ 2007-03-23 15:13:19 by jwe] jwe parents: 6248 diff changeset	6 ## under the terms of the GNU General Public License as published by
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6440 diff changeset	7 ## the Free Software Foundation; either version 3 of the License, or (at
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6440 diff changeset	8 ## your option) any later version.
6440 98ee80702bca [project @ 2007-03-23 15:13:19 by jwe] jwe parents: 6248 diff changeset	9 ##
98ee80702bca [project @ 2007-03-23 15:13:19 by jwe] jwe parents: 6248 diff changeset	10 ## Octave is distributed in the hope that it will be useful, but
98ee80702bca [project @ 2007-03-23 15:13:19 by jwe] jwe parents: 6248 diff changeset	11 ## WITHOUT ANY WARRANTY; without even the implied warranty of
98ee80702bca [project @ 2007-03-23 15:13:19 by jwe] jwe parents: 6248 diff changeset	12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
98ee80702bca [project @ 2007-03-23 15:13:19 by jwe] jwe parents: 6248 diff changeset	13 ## General Public License for more details.
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	14 ##
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	15 ## You should have received a copy of the GNU General Public License
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6440 diff changeset	16 ## along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6440 diff changeset	17 ## <http://www.gnu.org/licenses/>.
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	18
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	19 ## -- texinfo --
6248 7fad1fad19e1 [project @ 2007-01-22 17:28:17 by jwe] jwe parents: 6045 diff changeset	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 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	22 ##
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	23 ## This function assumes that versions @var{v1} and @var{v2} are
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	24 ## arbitrarily long strings made of numeric and period characters
17297 4d7f95eb8bfe doc: Miscellaneous small tweaks to documentation for consistency. Rik <rik@octave.org> parents: 16724 diff changeset	25 ## possibly followed by an arbitrary string (e.g., @qcode{"1.2.3"},
4d7f95eb8bfe doc: Miscellaneous small tweaks to documentation for consistency. Rik <rik@octave.org> parents: 16724 diff changeset	26 ## @qcode{"0.3"}, @qcode{"0.1.2+"}, or @qcode{"1.2.3.4-test1"}).
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	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
17297 4d7f95eb8bfe doc: Miscellaneous small tweaks to documentation for consistency. Rik <rik@octave.org> parents: 16724 diff changeset	29 ## and then the parts are padded to be the same length (i.e., @qcode{"1.1"}
4d7f95eb8bfe doc: Miscellaneous small tweaks to documentation for consistency. Rik <rik@octave.org> parents: 16724 diff changeset	30 ## would be padded to be @qcode{"1.1.0"} when being compared with
4d7f95eb8bfe doc: Miscellaneous small tweaks to documentation for consistency. Rik <rik@octave.org> parents: 16724 diff changeset	31 ## @qcode{"1.1.1"}, and separately, the character parts of the strings are
4d7f95eb8bfe doc: Miscellaneous small tweaks to documentation for consistency. Rik <rik@octave.org> parents: 16724 diff changeset	32 ## padded with nulls).
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	33 ##
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	34 ## The operator can be any logical operator from the set
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	35 ##
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	36 ## @itemize @bullet
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	37 ## @item
17297 4d7f95eb8bfe doc: Miscellaneous small tweaks to documentation for consistency. Rik <rik@octave.org> parents: 16724 diff changeset	38 ## @qcode{"=="}
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	39 ## equal
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10549 diff changeset	40 ##
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	41 ## @item
17297 4d7f95eb8bfe doc: Miscellaneous small tweaks to documentation for consistency. Rik <rik@octave.org> parents: 16724 diff changeset	42 ## @qcode{"<"}
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	43 ## less than
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10549 diff changeset	44 ##
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	45 ## @item
17297 4d7f95eb8bfe doc: Miscellaneous small tweaks to documentation for consistency. Rik <rik@octave.org> parents: 16724 diff changeset	46 ## @qcode{"<="}
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	47 ## less than or equal to
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10549 diff changeset	48 ##
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	49 ## @item
17297 4d7f95eb8bfe doc: Miscellaneous small tweaks to documentation for consistency. Rik <rik@octave.org> parents: 16724 diff changeset	50 ## @qcode{">"}
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	51 ## greater than
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10549 diff changeset	52 ##
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	53 ## @item
17297 4d7f95eb8bfe doc: Miscellaneous small tweaks to documentation for consistency. Rik <rik@octave.org> parents: 16724 diff changeset	54 ## @qcode{">="}
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	55 ## greater than or equal to
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10549 diff changeset	56 ##
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	57 ## @item
17297 4d7f95eb8bfe doc: Miscellaneous small tweaks to documentation for consistency. Rik <rik@octave.org> parents: 16724 diff changeset	58 ## @qcode{"!="}
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	59 ## not equal
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10549 diff changeset	60 ##
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	61 ## @item
17297 4d7f95eb8bfe doc: Miscellaneous small tweaks to documentation for consistency. Rik <rik@octave.org> parents: 16724 diff changeset	62 ## @qcode{"~="}
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	63 ## not equal
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	64 ## @end itemize
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	65 ##
17297 4d7f95eb8bfe doc: Miscellaneous small tweaks to documentation for consistency. Rik <rik@octave.org> parents: 16724 diff changeset	66 ## Note that version @qcode{"1.1-test2"} will compare as greater than
4d7f95eb8bfe doc: Miscellaneous small tweaks to documentation for consistency. Rik <rik@octave.org> parents: 16724 diff changeset	67 ## @qcode{"1.1-test10"}. Also, since the numeric part is compared first,
4d7f95eb8bfe doc: Miscellaneous small tweaks to documentation for consistency. Rik <rik@octave.org> parents: 16724 diff changeset	68 ## @qcode{"a"} compares less than @qcode{"1a"} because the second string
4d7f95eb8bfe doc: Miscellaneous small tweaks to documentation for consistency. Rik <rik@octave.org> parents: 16724 diff changeset	69 ## starts with a numeric part even though @code{double ("a")} is greater than
14868 5d3a684236b0 maint: Use Octave coding conventions for cuddling parentheses in scripts directory Rik <octave@nomad.inbox5.com> parents: 14552 diff changeset	70 ## @code{double ("1").}
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	71 ## @end deftypefn
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	72
7017 a1dbe9d80eee [project @ 2007-10-12 21:27:11 by jwe] jwe parents: 7016 diff changeset	73 ## Author: Bill Denney <denney@seas.upenn.edu>
a1dbe9d80eee [project @ 2007-10-12 21:27:11 by jwe] jwe parents: 7016 diff changeset	74
7069 c76471cc72d1 [project @ 2007-10-25 07:16:07 by jwe] jwe parents: 7068 diff changeset	75 function out = compare_versions (v1, v2, operator)
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	76
7125 f084ba47812b [project @ 2007-11-08 02:29:23 by jwe] jwe parents: 7069 diff changeset	77 if (nargin != 3)
f084ba47812b [project @ 2007-11-08 02:29:23 by jwe] jwe parents: 7069 diff changeset	78 print_usage ();
f084ba47812b [project @ 2007-11-08 02:29:23 by jwe] jwe parents: 7069 diff changeset	79 endif
f084ba47812b [project @ 2007-11-08 02:29:23 by jwe] jwe parents: 7069 diff changeset	80
7069 c76471cc72d1 [project @ 2007-10-25 07:16:07 by jwe] jwe parents: 7068 diff changeset	81 ## Make sure that the version numbers are valid.
c76471cc72d1 [project @ 2007-10-25 07:16:07 by jwe] jwe parents: 7068 diff changeset	82 if (! (ischar (v1) && ischar (v2)))
c76471cc72d1 [project @ 2007-10-25 07:16:07 by jwe] jwe parents: 7068 diff changeset	83 error ("compare_versions: both version numbers must be strings");
12208 9611014e7cf1 Add function compare_versions to documentation. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	84 elseif (rows (v1) != 1 \|\| rows (v2) != 1)
8664 e07e93c04080 style fixes John W. Eaton <jwe@octave.org> parents: 8202 diff changeset	85 error ("compare_versions: version numbers must be a single row");
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	86 endif
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	87
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	88 ## check and make sure that the operator is valid
7069 c76471cc72d1 [project @ 2007-10-25 07:16:07 by jwe] jwe parents: 7068 diff changeset	89 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	90 error ("compare_versions: OPERATOR must be a character string");
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	91 elseif (numel (operator) > 2)
14868 5d3a684236b0 maint: Use Octave coding conventions for cuddling parentheses in scripts directory Rik <octave@nomad.inbox5.com> parents: 14552 diff changeset	92 error ("compare_versions: OPERATOR must be 1 or 2 characters long");
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	93 endif
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	94
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	95 ## trim off any character data that is not part of a normal version
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	96 ## number
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	97 numbers = "0123456789.";
7069 c76471cc72d1 [project @ 2007-10-25 07:16:07 by jwe] jwe parents: 7068 diff changeset	98
c76471cc72d1 [project @ 2007-10-25 07:16:07 by jwe] jwe parents: 7068 diff changeset	99 v1firstchar = find (! ismember (v1, numbers), 1);
c76471cc72d1 [project @ 2007-10-25 07:16:07 by jwe] jwe parents: 7068 diff changeset	100 v2firstchar = find (! ismember (v2, numbers), 1);
c76471cc72d1 [project @ 2007-10-25 07:16:07 by jwe] jwe parents: 7068 diff changeset	101 if (! isempty (v1firstchar))
14868 5d3a684236b0 maint: Use Octave coding conventions for cuddling parentheses in scripts directory Rik <octave@nomad.inbox5.com> parents: 14552 diff changeset	102 v1c = v1(v1firstchar:length (v1));
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	103 v1nochar = v1(1:v1firstchar-1);
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	104 else
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	105 v1c = "";
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	106 v1nochar = v1;
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	107 endif
7069 c76471cc72d1 [project @ 2007-10-25 07:16:07 by jwe] jwe parents: 7068 diff changeset	108 if (! isempty (v2firstchar))
14868 5d3a684236b0 maint: Use Octave coding conventions for cuddling parentheses in scripts directory Rik <octave@nomad.inbox5.com> parents: 14552 diff changeset	109 v2c = v2(v2firstchar:length (v2));
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	110 v2nochar = v2(1:v2firstchar-1);
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	111 else
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	112 v2c = "";
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	113 v2nochar = v2;
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	114 endif
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	115
16724 b7667fcb9fbc Substitute ostrsplit() for strsplit(). Ben Abbott <bpabbott@mac.com> parents: 16403 diff changeset	116 v1n = str2num (char (ostrsplit (v1nochar, ".")));
b7667fcb9fbc Substitute ostrsplit() for strsplit(). Ben Abbott <bpabbott@mac.com> parents: 16403 diff changeset	117 v2n = str2num (char (ostrsplit (v2nochar, ".")));
14868 5d3a684236b0 maint: Use Octave coding conventions for cuddling parentheses in scripts directory Rik <octave@nomad.inbox5.com> parents: 14552 diff changeset	118 if ((isempty (v1n) && isempty (v1c)) \|\| (isempty (v2n) && isempty (v2c)))
7069 c76471cc72d1 [project @ 2007-10-25 07:16:07 by jwe] jwe parents: 7068 diff changeset	119 error ("compare_versions: given version strings are not valid: %s %s",
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9051 diff changeset	120 v1, v2);
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	121 endif
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	122
7069 c76471cc72d1 [project @ 2007-10-25 07:16:07 by jwe] jwe parents: 7068 diff changeset	123 ## Assume that any additional elements would be 0 if one is longer
c76471cc72d1 [project @ 2007-10-25 07:16:07 by jwe] jwe parents: 7068 diff changeset	124 ## than the other.
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	125 maxnumlen = max ([length(v1n) length(v2n)]);
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	126 if (length (v1n) < maxnumlen)
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	127 v1n(length(v1n)+1:maxnumlen) = 0;
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	128 endif
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	129 if (length (v2n) < maxnumlen)
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	130 v2n(length(v2n)+1:maxnumlen) = 0;
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	131 endif
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	132
7069 c76471cc72d1 [project @ 2007-10-25 07:16:07 by jwe] jwe parents: 7068 diff changeset	133 ## Assume that any additional character elements would be 0 if one is
c76471cc72d1 [project @ 2007-10-25 07:16:07 by jwe] jwe parents: 7068 diff changeset	134 ## longer than the other.
c76471cc72d1 [project @ 2007-10-25 07:16:07 by jwe] jwe parents: 7068 diff changeset	135 maxcharlen = max ([length(v1c), length(v2c)]);
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	136 if (length (v1c) < maxcharlen)
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	137 v1c(length(v1c)+1:maxcharlen) = "\0";
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	138 endif
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	139 if (length (v2c) < maxcharlen)
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	140 v2c(length(v2c)+1:maxcharlen) = "\0";
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	141 endif
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	142
7069 c76471cc72d1 [project @ 2007-10-25 07:16:07 by jwe] jwe parents: 7068 diff changeset	143 ## Determine the operator.
14552 86854d032a37 maint: miscellaneous style fixes for .m files John W. Eaton <jwe@octave.org> parents: 14363 diff changeset	144 if (any (ismember (operator, "=")))
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	145 equal_op = true;
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	146 else
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	147 equal_op = false;
7151 aeeb646f6538 [project @ 2007-11-09 19:34:17 by jwe] jwe parents: 7125 diff changeset	148 endif
14552 86854d032a37 maint: miscellaneous style fixes for .m files John W. Eaton <jwe@octave.org> parents: 14363 diff changeset	149 if (any (ismember (operator, "~!")))
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	150 not_op = true;
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	151 else
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	152 not_op = false;
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	153 endif
14552 86854d032a37 maint: miscellaneous style fixes for .m files John W. Eaton <jwe@octave.org> parents: 14363 diff changeset	154 if (any (ismember (operator, "<")))
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	155 lt_op = true;
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	156 else
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	157 lt_op = false;
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	158 endif
14552 86854d032a37 maint: miscellaneous style fixes for .m files John W. Eaton <jwe@octave.org> parents: 14363 diff changeset	159 if (any (ismember (operator, ">")))
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	160 gt_op = true;
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	161 else
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	162 gt_op = false;
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	163 endif
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	164
7069 c76471cc72d1 [project @ 2007-10-25 07:16:07 by jwe] jwe parents: 7068 diff changeset	165 ## Make sure that we don't have conflicting operators.
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	166 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	167 error ("compare_versions: OPERATOR cannot contain both greater and less than symbols");
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	168 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	169 error ("compare_versions: OPERATOR cannot contain not and greater than or less than symbols");
12208 9611014e7cf1 Add function compare_versions to documentation. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	170 elseif (strcmp (operator, "="))
9611014e7cf1 Add function compare_versions to documentation. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	171 error ("compare_versions: equality OPERATOR is \"==\", not \"=\"");
9611014e7cf1 Add function compare_versions to documentation. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	172 elseif (! (equal_op \|\| not_op \|\| lt_op \|\| gt_op))
9611014e7cf1 Add function compare_versions to documentation. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	173 error ("compare_versions: No valid OPERATOR specified");
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	174 endif
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	175
7069 c76471cc72d1 [project @ 2007-10-25 07:16:07 by jwe] jwe parents: 7068 diff changeset	176 ## Compare the versions (making sure that they're the same shape)
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	177 vcmp = v1n(:) - v2n(:);
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	178 vcmp = [vcmp; (v1c - v2c)(:)];
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	179 if (lt_op)
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	180 ## so that we only need to check for the output being greater than 1
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	181 vcmp = -vcmp;
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	182 endif
7069 c76471cc72d1 [project @ 2007-10-25 07:16:07 by jwe] jwe parents: 7068 diff changeset	183 firstdiff = find (vcmp != 0, 1);
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	184
7069 c76471cc72d1 [project @ 2007-10-25 07:16:07 by jwe] jwe parents: 7068 diff changeset	185 if (isempty (firstdiff))
c76471cc72d1 [project @ 2007-10-25 07:16:07 by jwe] jwe parents: 7068 diff changeset	186 ## They're equal.
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	187 out = equal_op;
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	188 elseif (lt_op \|\| gt_op)
7069 c76471cc72d1 [project @ 2007-10-25 07:16:07 by jwe] jwe parents: 7068 diff changeset	189 ## They're correctly less than or greater than.
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	190 out = (vcmp(firstdiff) > 0);
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	191 else
12208 9611014e7cf1 Add function compare_versions to documentation. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	192 ## They're not correctly less than or greater than, and they're not equal.
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	193 out = false;
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	194 endif
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	195
7069 c76471cc72d1 [project @ 2007-10-25 07:16:07 by jwe] jwe parents: 7068 diff changeset	196 ## Reverse the output if not is given.
12208 9611014e7cf1 Add function compare_versions to documentation. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	197 if (not_op)
9611014e7cf1 Add function compare_versions to documentation. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	198 out = !out;
9611014e7cf1 Add function compare_versions to documentation. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	199 endif
7125 f084ba47812b [project @ 2007-11-08 02:29:23 by jwe] jwe parents: 7069 diff changeset	200
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	201 endfunction
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	202
14363 f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	203
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	204 ## tests
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	205 ## test both equality symbols
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	206 ## test arbitrarily long equality
14363 f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	207 %!assert (compare_versions ("1.1.0.0.0", "1.1", "=="), true)
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	208 %!assert (compare_versions ("1", "1.1", "<"), true)
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	209 %!assert (compare_versions ("1.1", "1.1", "<="), true)
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	210 %!assert (compare_versions ("1.1", "1.1.1", "<="), true)
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	211 %!assert (compare_versions ("1.23", "1.24", "=<"), true)
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	212 ## test different length numbers
14363 f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	213 %!assert (compare_versions ("23.2000", "23.1", ">"), true)
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	214 %!assert (compare_versions ("0.0.2", "0.0.1", ">="), true)
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	215 %!assert (compare_versions ("0.2", "0.0.100", "=>"), true)
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	216 %!assert (compare_versions ("0.1", "0.2", "!="), true)
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	217 %!assert (compare_versions ("0.1", "0.2", "~="), true)
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	218
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	219 ## test alphanumeric strings
14363 f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	220 %!assert (compare_versions ("1a", "1b", "<"), true)
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	221 %!assert (compare_versions ("a", "1", "<"), true)
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	222 %!assert (compare_versions ("1a", "1b", ">"), false)
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	223 %!assert (compare_versions ("a", "1", ">"), false)
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	224 %!assert (compare_versions ("1.1.0a", "1.1.0b", "=="), false)
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	225 %!assert (compare_versions ("1.1.0a", "1.1.0b", "!="), true)
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	226 %!assert (compare_versions ("1.1.0test", "1.1.0b", "=="), false)
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	227 %!assert (compare_versions ("1.1.0test", "1.1.0test", "=="), true)
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	228
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	229 ## make sure that it won't just give true output
14363 f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	230 %!assert (compare_versions ("1", "0", "=="), false)
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	231 ## test arbitrarily long equality
14363 f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	232 %!assert (compare_versions ("1.1.1.0.0", "1.1", "=="), false)
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	233 %!assert (compare_versions ("1.1", "1", "<"), false)
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	234 %!assert (compare_versions ("2", "1.1", "<="), false)
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	235 %!assert (compare_versions ("1.1.1", "1.1", "<="), false)
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	236 %!assert (compare_versions ("1.25", "1.24", "=<"), false)
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	237 ## test different length numbers
14363 f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	238 %!assert (compare_versions ("23.2", "23.100", ">"), false)
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	239 %!assert (compare_versions ("0.0.0.2", "0.0.1", ">="), false)
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	240 %!assert (compare_versions ("0.0.20", "0.10.2", "=>"), false)
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	241 %!assert (compare_versions ("0.1", "0.1", "!="), false)
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	242 %!assert (compare_versions ("0.1", "0.1", "~="), false)
6045 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	243
12208 9611014e7cf1 Add function compare_versions to documentation. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	244 %% Test input validation
14363 f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	245 %!error (compare_versions (0.1, "0.1", "=="))
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	246 %!error (compare_versions ("0.1", 0.1, "=="))
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	247 %!error (compare_versions (["0";".";"1"], "0.1", "=="))
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	248 %!error (compare_versions ("0.1", ["0";".";"1"], "=="))
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	249 %!error (compare_versions ("0.1", "0.1", "<>"))
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	250 %!error (compare_versions ("0.1", "0.1", "!>"))
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	251 %!error (compare_versions ("0.1", "0.1", "="))
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	252 %!error (compare_versions ("0.1", "0.1", "aa"))
12208 9611014e7cf1 Add function compare_versions to documentation. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	253

Mercurial > hg > octave-lyh

annotate scripts/miscellaneous/compare_versions.m @ 17535:c12c688a35ed default tip lyh