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

guix package: Inform about new upstream versions of GNU packages.

Browse source 
* guix/gnu-maintenance.scm (gnu-package?): New procedure.
* guix/scripts/package.scm (waiting): New macro.
  (check-package-freshness): New procedure.
  (guix-package)[process-actions]: Use it.
* doc/guix.texi (Invoking guix package): Mention the feature.
This commit is contained in:
Ludovic Courtès 2013-03-05 20:30:27 +01:00
parent c50cbfd61a
commit ef010c0f3d
3 changed files with 54 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
doc/guix.texi
View file

@ -514,6 +514,12 @@ Thus, when installing MPC, the MPFR and GMP libraries also get installed
in the profile; removing MPC also removes MPFR and GMP---unless they had
also been explicitly installed independently.
@c XXX: keep me up-to-date
Besides, when installing a GNU package, the tool reports the
availability of a newer upstream version. In the future, it may provide
the option of installing directly from the upstream version, even if
that version is not yet in the distribution.
@item --install-from-expression=@var{exp}
@itemx -e @var{exp}
Install the package @var{exp} evaluates to.

14
guix/gnu-maintenance.scm
View file

@ -29,7 +29,9 @@ (define-module (guix gnu-maintenance)
#:use-module (system foreign)
#:use-module (guix ftp-client)
#:use-module (guix utils)
#:use-module (guix packages)
#:export (official-gnu-packages
gnu-package?
releases
latest-release
gnu-package-name->name+version))
@ -74,6 +76,18 @@ (define %package-line-rx
(and=> (regexp-exec %package-line-rx line)
(cut match:substring <> 1)))
lst)))
(define gnu-package?
(memoize
(lambda (package)
"Return true if PACKAGE is a GNU package. This procedure may access the
network to check in GNU's database."
;; TODO: Find a way to determine that a package is non-GNU without going
;; through the network.
(let ((url (origin-uri (package-source package))))
(or (string-prefix? "mirror://gnu" url)
(member (package-name package) (official-gnu-packages)))))))
;;;
;;; Latest release.

34
guix/scripts/package.scm
View file

@ -39,6 +39,7 @@ (define-module (guix scripts package)
#:use-module (gnu packages)
#:use-module ((gnu packages base) #:select (guile-final))
#:use-module ((gnu packages bootstrap) #:select (%bootstrap-guile))
#:use-module (guix gnu-maintenance)
#:export (guix-package))
(define %store
@ -266,6 +267,38 @@ (define (input->name+path input)
(assoc-ref (derivation-outputs drv) sub-drv))))
`(,name ,out))))))
(define-syntax-rule (waiting exp fmt rest ...)
"Display the given message while EXP is being evaluated."
(let* ((message (format #f fmt rest ...))
(blank (make-string (string-length message) #\space)))
(display message (current-error-port))
(force-output (current-error-port))
(let ((result exp))
;; Clear the line.
(display #\cr (current-error-port))
(display blank (current-error-port))
(display #\cr (current-error-port))
(force-output (current-error-port))
exp)))
(define (check-package-freshness package)
"Check whether PACKAGE has a newer version available upstream, and report
it."
;; TODO: Automatically inject the upstream version when desired.
(when (gnu-package? package)
(let ((name (package-name package))
(full-name (package-full-name package)))
(match (waiting (latest-release name)
(_ "looking for the latest release of GNU ~a...") name)
((latest-version . _)
(when (version>? latest-version full-name)
(format (current-error-port)
(_ "~a: note: using ~a \
but ~a is available upstream~%")
(location->string (package-location package))
full-name latest-version)))
(_ #t)))))
;;;
;;; Command-line options.
@ -547,6 +580,7 @@ (define (package->tuple p)
((name version sub-drv
(? package? package)
(deps ...))
(check-package-freshness package)
(package-derivation (%store) package))
(_ #f))
install))