ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu-maintenance: Exclude development releases from GNOME update candidates.

Browse source 
Suggested by Efraim Flashner <efraim@flashner.co.il>.

* guix/gnu-maintenance.scm (latest-ftp-release): Add #:keep-file?
parameter and honor it.
(latest-gnome-release)[%not-dot]: New variable.
[even-minor-version?, even-numbered-tarball?]: New procedures.
Pass EVEN-NUMBERED-TARBALL? as #:keep-file? argument.
This commit is contained in:
Ludovic Courtès 2015-12-08 16:05:55 +01:00
parent f714d9fe04
commit c499125704
1 changed files with 31 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
guix/gnu-maintenance.scm
View file

@ -321,13 +321,18 @@ (define* (latest-ftp-release project
#:key
(server "ftp.gnu.org")
(directory (string-append "/gnu/" project))
(keep-file? (const #t))
(file->signature (cut string-append <> ".sig"))
(ftp-open ftp-open) (ftp-close ftp-close))
"Return an <upstream-source> for the latest release of PROJECT on SERVER
under DIRECTORY, or #f. Use FTP-OPEN and FTP-CLOSE to open (resp. close) FTP
connections; this can be useful to reuse connections. FILE->SIGNATURE must be
a procedure; it is passed a source file URL and must return the corresponding
signature URL, or #f it signatures are unavailable."
connections; this can be useful to reuse connections.
KEEP-FILE? is a predicate to decide whether to consider a given file (source
tarball) as a valid candidate based on its name.
FILE->SIGNATURE must be a procedure; it is passed a source file URL and must
return the corresponding signature URL, or #f it signatures are unavailable."
(define (latest a b)
(if (version>? a b) a b))
@ -382,6 +387,7 @@ (define (file->source directory file)
(releases (filter-map (match-lambda
((file 'file . _)
(and (release-file? project file)
(keep-file? file)
(file->source directory file)))
(_ #f))
entries)))
@ -467,6 +473,22 @@ (define gnome-uri?
(define (latest-gnome-release package)
"Return the latest release of PACKAGE, the name of a GNOME package."
(define %not-dot
(char-set-complement (char-set #\.)))
(define (even-minor-version? version)
(match (string-tokenize (version-major+minor version)
%not-dot)
(((= string->number major) (= string->number minor))
(even? minor))
(_
#t))) ;cross fingers
(define (even-numbered-tarball? file)
(let-values (((name version) (gnu-package-name->name+version file)))
(and version
(even-minor-version? version))))
(false-if-ftp-error
(latest-ftp-release package
#:server "ftp.gnome.org"
@ -475,6 +497,12 @@ (define (latest-gnome-release package)
("gconf" "GConf")
(x x)))
;; <https://www.gnome.org/gnome-3/source/> explains
;; that odd minor version numbers represent development
;; releases, which we are usually not interested in.
#:keep-file? even-numbered-tarball?
;; ftp.gnome.org provides no signatures, only
;; checksums.
#:file->signature (const #f))))