summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ChangeLog4
-rw-r--r--Functions/Misc/is-at-least16
2 files changed, 14 insertions, 6 deletions
diff --git a/ChangeLog b/ChangeLog
index 8b23f0d6a..920ebd789 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
2000-08-10 Peter Stephenson <pws@csr.com>
+ * 12582: Misc/Functions/is-at-least: make it accept name
+ parts in the first argument (though I forgot to handle things
+ like 3.1.6.random3 with no separator).
+
* 12581: Doc/Zsh/options.yo, Src/options.c, Src/params.c,
Src/zsh.h: Add C_BASES option to output hexadecimal as 0xFF
instead of 16#FF, and similarly for octal if OCTAL_ZEROES is set.
diff --git a/Functions/Misc/is-at-least b/Functions/Misc/is-at-least
index eab771332..4c12f9c2c 100644
--- a/Functions/Misc/is-at-least
+++ b/Functions/Misc/is-at-least
@@ -12,6 +12,7 @@
# is-at-least 3.1.6-15 && setopt NO_GLOBAL_RCS
# is-at-least 3.1.0 && setopt HIST_REDUCE_BLANKS
# is-at-least 586 $MACHTYPE && echo 'You could be running Mandrake!'
+# is-at-least $ZSH_VERSION || print 'Something fishy here.'
function is-at-least()
{
@@ -19,14 +20,17 @@ function is-at-least()
local IFS=".-" min_cnt=0 ver_cnt=0 part min_ver version
min_ver=(${=1})
version=(${=2:-$ZSH_VERSION} 0)
- while (( $min_cnt <= ${#min_ver} )) {
- while [[ "$part" != <-> ]] {
- [[ $[++ver_cnt] > ${#version} ]] && return 0
+ while (( $min_cnt <= ${#min_ver} )); do
+ while [[ "$part" != <-> ]]; do
+ (( ++ver_cnt > ${#version} )) && return 0
part=${version[ver_cnt]##*[^0-9]}
- }
- [[ $[++min_cnt] > ${#min_ver} ]] && return 0
+ done
+ while true; do
+ (( ++min_cnt > ${#min_ver} )) && return 0
+ [[ ${min_ver[min_cnt]} = <-> ]] && break
+ done
(( part > min_ver[min_cnt] )) && return 0
(( part < min_ver[min_cnt] )) && return 1
part=''
- }
+ done
}