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

packages: Add 'package-upstream-name*'.

Browse source 
* guix/packages.scm (package-upstream-name*): New procedure.
* tests/packages.scm ("package-upstream-name*"): New test.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Lars-Dominik Braun 2022-12-09 11:46:37 +01:00 committed by Ludovic Courtès
parent a2f0297af0
commit 052faadde7
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 37 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
guix/packages.scm
View file

@ -89,6 +89,7 @@ (define-module (guix packages)
this-package
package-name
package-upstream-name
package-upstream-name*
package-version
package-full-name
package-source
@ -691,6 +692,38 @@ (define (package-upstream-name package)
(or (assq-ref (package-properties package) 'upstream-name)
(package-name package)))
(define (package-upstream-name* package)
"Return the upstream name of PACKAGE, accounting for commonly-used
package name prefixes in addition to the @code{upstream-name} property."
(let ((namespaces (list "cl-"
"ecl-"
"emacs-"
"ghc-"
"go-"
"guile-"
"java-"
"julia-"
"lua-"
"minetest-"
"node-"
"ocaml-"
"perl-"
"python-"
"r-"
"ruby-"
"rust-"
"sbcl-"
"texlive-"))
(name (package-name package)))
(or (assq-ref (package-properties package) 'upstream-name)
(let loop ((prefixes namespaces))
(match prefixes
(() name)
((prefix rest ...)
(if (string-prefix? prefix name)
(substring name (string-length prefix))
(loop rest))))))))
(define (hidden-package p)
"Return a \"hidden\" version of P--i.e., one that 'fold-packages' and thus,
user interfaces, ignores."

4
tests/packages.scm
View file

@ -626,6 +626,10 @@ (define read-at
(build-derivations %store (list drv))
(call-with-input-file output get-string-all)))
(test-equal "package-upstream-name*"
(package-upstream-name* (specification->package "guile-gcrypt"))
"gcrypt")
;;;
;;; Source derivation with snippets.