me
/
guix
Archived
1
0
Fork 0
Code

build-system: chicken: Add 'egg-uri' procedure. 

Once Chicken 6 gets released, we can just adjust the URL in the ‘egg-uri’
procedure, instead of having to change the URL for all the Chicken packages.
Making things a little more future-proof.

* guix/build-system/chicken.scm (egg-uri): New procedure.
* guix/import/egg.scm (egg-source-url): Adjust accordingly.
(egg->guix-package): Likewise.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Xinglu Chen 2021-08-12 09:17:20 +02:00 committed by Ludovic Courtès
parent 99160bc713
commit 0508622848
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
2 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
guix/build-system/chicken.scm
View File

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2020 raingloom <raingloom@riseup.net> ;;; Copyright © 2020 raingloom <raingloom@riseup.net>
;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -26,7 +27,14 @@
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:export (%chicken-build-system-modules #:export (%chicken-build-system-modules
chicken-build chicken-build
chicken-build-system)) chicken-build-system
egg-uri))
(define* (egg-uri name version #:optional (extension ".tar.gz"))
"Return a URI string for the CHICKEN egg corresponding to NAME and VERSION.
EXTENSION is the file name extension, such as '.tar.gz'."
(string-append "https://code.call-cc.org/egg-tarballs/5/"
name "/" name "-" version extension))
(define %chicken-build-system-modules (define %chicken-build-system-modules
;; Build-side modules imported and used by default. ;; Build-side modules imported and used by default.

5
guix/import/egg.scm
View File

@ -87,7 +87,7 @@
(define (egg-source-url name version) (define (egg-source-url name version)
"Return the URL to the source tarball for version VERSION of the CHICKEN egg "Return the URL to the source tarball for version VERSION of the CHICKEN egg
NAME." NAME."
(string-append (%eggs-url) "/" name "/" name "-" version ".tar.gz")) `(egg-uri ,name version))
(define (egg-name->guix-name name) (define (egg-name->guix-name name)
"Return the package name for CHICKEN egg NAME." "Return the package name for CHICKEN egg NAME."
@ -197,7 +197,8 @@ not work."
(tarball (if source (tarball (if source
#f #f
(with-store store (with-store store
(download-to-store store source-url))))) (download-to-store
store (egg-uri name version))))))
(define egg-home-page (define egg-home-page
(string-append (%eggs-home-page) "/" name)) (string-append (%eggs-home-page) "/" name))