octave-lyh: scripts/miscellaneous/compare

annotate scripts/miscellaneous/compare_versions.m @ 14868:5d3a684236b0

maint: Use Octave coding conventions for cuddling parentheses in scripts directory * lin2mu.m, loadaudio.m, wavread.m, accumarray.m, bicubic.m, celldisp.m, colon.m, cplxpair.m, dblquad.m, divergence.m, genvarname.m, gradient.m, int2str.m, interp1.m, interp1q.m, interp2.m, interpn.m, loadobj.m, nthargout.m, __isequal__.m, __splinen__.m, quadgk.m, quadl.m, quadv.m, rat.m, rot90.m, rotdim.m, saveobj.m, subsindex.m, triplequad.m, delaunay3.m, griddata.m, inpolygon.m, tsearchn.m, voronoi.m, get_first_help_sentence.m, which.m, gray2ind.m, pink.m, dlmwrite.m, strread.m, textread.m, textscan.m, housh.m, ishermitian.m, issymmetric.m, krylov.m, logm.m, null.m, rref.m, compare_versions.m, copyfile.m, dump_prefs.m, edit.m, fileparts.m, getappdata.m, isappdata.m, movefile.m, orderfields.m, parseparams.m, __xzip__.m, rmappdata.m, setappdata.m, swapbytes.m, unpack.m, ver.m, fminbnd.m, fminunc.m, fsolve.m, glpk.m, lsqnonneg.m, qp.m, sqp.m, configure_make.m, copy_files.m, describe.m, get_description.m, get_forge_pkg.m, install.m, installed_packages.m, is_architecture_dependent.m, load_package_dirs.m, print_package_description.m, rebuild.m, repackage.m, save_order.m, shell.m, allchild.m, ancestor.m, area.m, axes.m, axis.m, clabel.m, close.m, colorbar.m, comet.m, comet3.m, contour.m, cylinder.m, ezmesh.m, ezsurf.m, findobj.m, fplot.m, hist.m, isocolors.m, isonormals.m, isosurface.m, isprop.m, legend.m, mesh.m, meshz.m, pareto.m, pcolor.m, peaks.m, plot3.m, plotmatrix.m, plotyy.m, polar.m, print.m, __add_datasource__.m, __add_default_menu__.m, __axes_limits__.m, __bar__.m, __clabel__.m, __contour__.m, __errcomm__.m, __errplot__.m, __ezplot__.m, __file_filter__.m, __fltk_print__.m, __ghostscript__.m, __gnuplot_print__.m, __go_draw_axes__.m, __go_draw_figure__.m, __interp_cube__.m, __marching_cube__.m, __patch__.m, __pie__.m, __plt__.m, __print_parse_opts__.m, __quiver__.m, __scatter__.m, __stem__.m, __tight_eps_bbox__.m, __uigetdir_fltk__.m, __uigetfile_fltk__.m, __uiputfile_fltk__.m, quiver.m, quiver3.m, rectangle.m, refreshdata.m, ribbon.m, scatter.m, semilogy.m, shading.m, slice.m, subplot.m, surface.m, surfl.m, surfnorm.m, text.m, uigetfile.m, uiputfile.m, whitebg.m, deconv.m, mkpp.m, pchip.m, polyaffine.m, polyder.m, polygcd.m, polyout.m, polyval.m, ppint.m, ppjumps.m, ppval.m, residue.m, roots.m, spline.m, splinefit.m, addpref.m, getpref.m, setpref.m, ismember.m, setxor.m, arch_fit.m, arch_rnd.m, arch_test.m, autoreg_matrix.m, diffpara.m, fftconv.m, filter2.m, hanning.m, hurst.m, periodogram.m, triangle_sw.m, sinc.m, spectral_xdf.m, spencer.m, stft.m, synthesis.m, unwrap.m, yulewalker.m, bicgstab.m, gmres.m, pcg.m, pcr.m, __sprand_impl__.m, speye.m, spfun.m, sprandn.m, spstats.m, svds.m, treelayout.m, treeplot.m, bessel.m, factor.m, legendre.m, perms.m, primes.m, magic.m, toeplitz.m, corr.m, cov.m, mean.m, median.m, mode.m, qqplot.m, quantile.m, ranks.m, zscore.m, logistic_regression_likelihood.m, bartlett_test.m, chisquare_test_homogeneity.m, chisquare_test_independence.m, kolmogorov_smirnov_test.m, run_test.m, u_test.m, wilcoxon_test.m, z_test.m, z_test_2.m, bin2dec.m, dec2base.m, mat2str.m, strcat.m, strchr.m, strjust.m, strtok.m, substr.m, untabify.m, assert.m, demo.m, example.m, fail.m, speed.m, test.m, now.m: Use Octave coding conventions for cuddling parentheses in scripts directory.

author	Rik <octave@nomad.inbox5.com>
date	Tue, 17 Jul 2012 07:08:39 -0700
parents	86854d032a37
children	1de4ec2a856d

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
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 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	26 ## "0.1.2+", or "1.2.3.4-test1").
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
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 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	31 ## separately, the character parts of the strings are padded with
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	32 ## nulls).
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
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	38 ## "=="
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
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	42 ## "<"
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
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	46 ## "<="
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
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	50 ## ">"
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
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	54 ## ">="
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
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	58 ## "!="
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
421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	62 ## "~="
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 ##
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 421d8a903df7 [project @ 2006-10-09 21:40:46 by jwe] jwe parents: diff changeset	68 ## compares less than "1a" because the second string starts with a
14868 5d3a684236b0 maint: Use Octave coding conventions for cuddling parentheses in scripts directory Rik <octave@nomad.inbox5.com> parents: 14552 diff changeset	69 ## numeric part even though @code{double ("a")} is greater than
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
8877 2c8b2399247b implement strsplit; deprecate split Jaroslav Hajek <highegg@gmail.com> parents: 8664 diff changeset	116 v1n = str2num (char (strsplit (v1nochar, ".")));
2c8b2399247b implement strsplit; deprecate split Jaroslav Hajek <highegg@gmail.com> parents: 8664 diff changeset	117 v2n = str2num (char (strsplit (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 @ 14868:5d3a684236b0