Versions out of order

[arrdem]

http://conj.io/store/v1/org.clojure/clojure

Consequently the "LATEST" tag is going to an old version. Fixit.

[jafingerhut]

Steal this code if it is useful:

;; (require '[clojure.string :as str])

;; user=> (sort-by f ["1.7.0" "1.5.1" "1.5.0" "1.5.0-beta15" "1.5.0-beta14" "1.7.0-RC2"])
;; ("1.5.0-beta14" "1.5.0-beta15" "1.5.0" "1.5.1" "1.7.0-RC2" "1.7.0")

(defn clojure-version-cmp-key
  "Create a comparison key from a Clojure version string, as returned
from function clojure.core/clojure-version.  The key is a vector of
integers and strings, and two such keys may be compared via
clojure.core/compare to get the correct relative order of the two
Clojure versions.

Makes simplifying assumption that x.y.z-alpha<n> < x.y.z-beta<m> <
x.y.z-RC<p> < x.y.z.  Note that this was not the time order of release
for some 1.5.0-beta and 1.5.0-RC releases, historically, as they
switched from 1.5.0-RC releases back to 1.5.0-beta, and then back to
1.5.0-RC again.  Hopefully that will not happen again."
  [version-str]
  (let [to-long (fn [^String s] (Long/parseLong s))
        [major minor x] (str/split version-str #"\." -1)
        [incremental x] (str/split x #"-" -1)
        ;; qual1 will be one of "alpha" "beta" "rc", or "zfinal" if
        ;; version-str is of the form "x.y.z".  It will always be
        ;; lower case so that normal alphabetic order comparison is
        ;; used, without weirdness of upper case letters being sorted
        ;; earlier than lower case letters.
        [qual1 qual2] (if x
                        (if-let [[_ a b] (re-matches #"^(?i)(alpha|beta|rc)(\d+)$" x)]
                          [(str/lower-case a) (to-long b)]
                          ;; TBD: Is this an error?
                          )
                        ["zfinal" nil])]
    [(to-long major) (to-long minor) (to-long incremental) qual1 qual2]))

[jafingerhut]

Steal this code if it is useful:

;; (require '[clojure.string :as str])

;; user=> (sort-by f ["1.7.0" "1.5.1" "1.5.0" "1.5.0-beta15" "1.5.0-beta14" "1.7.0-RC2"])
;; ("1.5.0-beta14" "1.5.0-beta15" "1.5.0" "1.5.1" "1.7.0-RC2" "1.7.0")

(defn clojure-version-cmp-key
  "Create a comparison key from a Clojure version string, as returned
from function clojure.core/clojure-version.  The key is a vector of
integers and strings, and two such keys may be compared via
clojure.core/compare to get the correct relative order of the two
Clojure versions.

Makes simplifying assumption that x.y.z-alpha<n> < x.y.z-beta<m> <
x.y.z-RC<p> < x.y.z.  Note that this was not the time order of release
for some 1.5.0-beta and 1.5.0-RC releases, historically, as they
switched from 1.5.0-RC releases back to 1.5.0-beta, and then back to
1.5.0-RC again.  Hopefully that will not happen again."
  [version-str]
  (let [to-long (fn [^String s] (Long/parseLong s))
        [major minor x] (str/split version-str #"\." -1)
        [incremental x] (str/split x #"-" -1)
        ;; qual1 will be one of "alpha" "beta" "rc", or "zfinal" if
        ;; version-str is of the form "x.y.z".  It will always be
        ;; lower case so that normal alphabetic order comparison is
        ;; used, without weirdness of upper case letters being sorted
        ;; earlier than lower case letters.
        [qual1 qual2] (if x
                        (if-let [[_ a b] (re-matches #"^(?i)(alpha|beta|rc)(\d+)$" x)]
                          [(str/lower-case a) (to-long b)]
                          ;; TBD: Is this an error?
                          )
                        ["zfinal" nil])]
    [(to-long major) (to-long minor) (to-long incremental) qual1 qual2]))

[arrdem]

Consider it stolen. Thanks Andy.

[arrdem]

Consider it stolen. Thanks Andy.