bug#42847: closed ([PATCH] utils: Add version-major+minor+point.)

[GNU bug Tracking System]

Your message dated Mon, 17 Aug 2020 07:58:04 +0300
with message-id <20200817045804.GD22637@E5400>
and subject line Re: [PATCH] utils: Add version-major+minor+point.
has caused the debbugs.gnu.org bug report #42847,
regarding [PATCH] utils: Add version-major+minor+point.
to be marked as done.

(If you believe you have received this mail in error, please contact
help-debbugs@gnu.org.)


-- 
42847: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=42847
GNU Bug Tracking System
Contact help-debbugs@gnu.org with problems
> --- Begin Message ---
>
>
>
> Subject: 
>
> [PATCH] utils: Add version-major+minor+point.
>
>
>
>
> Date: 
>
> Thu, 13 Aug 2020 14:48:39 +0300
>
>
>
>
> * guix/utils.scm (version-major+minor+point): New procedure.
> ---
>  guix/utils.scm | 11 +++++++++++
>  1 file changed, 11 insertions(+)
>
> diff --git a/guix/utils.scm b/guix/utils.scm
> index 436c5cd093..2f698b0bb0 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 \"5.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
> -- 
> 2.28.0
>
>
>
>
> --- End Message ---

--- Begin Message --- Subject: Re: [PATCH] utils: Add version-major+minor+point. Date: Mon, 17 Aug 2020 07:58:04 +0300

Patch pushed


-- 
Efraim Flashner   <efraim@flashner.co.il>   אפרים פלשנר
GPG key = A28B F40C 3E55 1372 662D  14F7 41AA E7DC CA3D 8351
Confidentiality cannot be guaranteed on emails sent or received unencrypted

signature.asc
Description: PGP signature

--- End Message ---