diff options
| author | Efraim Flashner <efraim@flashner.co.il> | 2020-08-13 14:47:27 +0300 |
|---|---|---|
| committer | Efraim Flashner <efraim@flashner.co.il> | 2020-08-17 07:57:23 +0300 |
| commit | 46886728a7b0ba94be66b817520e34d058bb2f57 (patch) | |
| tree | 6a2d3c572d1c22d8525c20b2bbcdeae36fa49d67 | |
| parent | 6a1f35937a450c22b28bee7432139617437720f9 (diff) | |
| download | guix-46886728a7b0ba94be66b817520e34d058bb2f57.tar.gz | |
utils: Add version-major+minor+point.
* guix/utils.scm (version-major+minor+point): New procedure.
| -rw-r--r-- | guix/utils.scm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/guix/utils.scm b/guix/utils.scm index 436c5cd093..fc57c416a0 100644 --- a/guix/utils.scm +++ b/guix/utils.scm @@ -7,6 +7,7 @@ ;;; Copyright © 2015 David Thompson <davet@gnu.org> ;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2018, 2020 Marius Bakke <marius@gnu.org> +;;; Copyright © 2020 Efraim Flashner <efraim@flashner.co.il> ;;; ;;; This file is part of GNU Guix. ;;; @@ -82,6 +83,7 @@ version>? version>=? version-prefix + version-major+minor+point version-major+minor version-major guile-version>? @@ -564,6 +566,15 @@ or '= when they denote equal versions." For example, (version-prefix \"2.1.47.4.23\" 3) returns \"2.1.47\"" (string-join (take (string-split version-string #\.) num-parts) ".")) +(define (version-major+minor+point version-string) + "Return \"major>.<minor>.<point>\", where major, minor and point are the +major, minor and point version numbers from the version-string. For example, +(version-major+minor+point \"6.4.5.2\") returns \"6.4.5\" or +(version-major+minor+point \"1.19.2-2581-324ca14c3003\") returns \"1.19.2\"." + (let* ((3-dot (version-prefix version-string 3)) + (index (string-index 3-dot #\-))) + (or (false-if-exception (substring 3-dot 0 index)) + 3-dot))) (define (version-major+minor version-string) "Return \"<major>.<minor>\", where major and minor are the major and |