ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 13:58:15 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: readline: Update to 7.0.3.

Browse source 
* gnu/packages/readline.scm (patch-url, readline-patch): New procedures.
(patch-series): New macro.
(%patch-series-7.0): New variable.
(readline)[version]: Include patchlevel.
[source](uri): Adjust to version suffix.
[source](patches): Add %PATCH-SERIES-7.0.
This commit is contained in:
Marius Bakke 2017-12-03 02:55:47 +01:00
parent 5bda082496
commit 371193ecbf
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA
1 changed files with 28 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
gnu/packages/readline.scm
View file

@ -26,7 +26,28 @@ (define-module (gnu packages readline)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module (guix utils)) #:use-module (guix utils)
#:use-module (ice-9 format))
(define (patch-url seqno)
(format #f "mirror://gnu/readline/readline-7.0-patches/readline70-~3,'0d" seqno))
(define (readline-patch seqno sha256)
"Return the origin of Readline patch SEQNO, with expected hash SHA256"
(origin
(method url-fetch)
(uri (patch-url seqno))
(sha256 sha256)))
(define-syntax-rule (patch-series (seqno hash) ...)
(list (readline-patch seqno (base32 hash))
...))
(define %patch-series-7.0
(patch-series
(1 "0xm3sxvwmss7ddyfb11n6pgcqd1aglnpy15g143vzcf75snb7hcs")
(2 "0n1dxmqsbjgrfxb1hgk5c6lsraw4ncbnzxlsx7m35nym6lncjiw7")
(3 "1027kmymniizcy0zbdlrczxfx3clxcdln5yq05q9yzlc6y9slhwy")))
(define-public readline (define-public readline
(let ((post-install-phase (let ((post-install-phase
@ -42,15 +63,18 @@ (define-public readline
(find-files lib "\\.a")))))) (find-files lib "\\.a"))))))
(package (package
(name "readline") (name "readline")
(version "7.0") (version (string-append "7.0."
(number->string (length %patch-series-7.0))))
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://gnu/readline/readline-" (uri (string-append "mirror://gnu/readline/readline-"
version ".tar.gz")) (version-major+minor version) ".tar.gz"))
(sha256 (sha256
(base32 (base32
"0d13sg9ksf982rrrmv5mb6a2p4ys9rvg9r71d6il0vr8hmql63bm")) "0d13sg9ksf982rrrmv5mb6a2p4ys9rvg9r71d6il0vr8hmql63bm"))
(patches (search-patches "readline-link-ncurses.patch")) (patches (append
%patch-series-7.0
(search-patches "readline-link-ncurses.patch")))
(patch-flags '("-p0")))) (patch-flags '("-p0"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(propagated-inputs `(("ncurses" ,ncurses))) (propagated-inputs `(("ncurses" ,ncurses)))