[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
04/04: import: utils: Refactor license->symbol.
From: |
David Craven |
Subject: |
04/04: import: utils: Refactor license->symbol. |
Date: |
Wed, 28 Sep 2016 11:49:26 +0000 (UTC) |
dvc pushed a commit to branch master
in repository guix.
commit 11e296ef3092de1e5b659822d4dad4465abad34f
Author: David Craven <address@hidden>
Date: Thu Sep 22 11:35:13 2016 +0200
import: utils: Refactor license->symbol.
* guix/import/utils.scm (license->symbol): Work for all licenses.
* tests/import-utils.scm (license->symbol): Add test.
---
guix/import/utils.scm | 14 +++++---------
tests/import-utils.scm | 5 +++++
2 files changed, 10 insertions(+), 9 deletions(-)
diff --git a/guix/import/utils.scm b/guix/import/utils.scm
index ce0ba99..e4059ca 100644
--- a/guix/import/utils.scm
+++ b/guix/import/utils.scm
@@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013 Ludovic Courtès <address@hidden>
;;; Copyright © 2016 Jelle Licht <address@hidden>
+;;; Copyright © 2016 David Craven <address@hidden>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -185,15 +186,10 @@ recursively apply the procedure to the sub-list."
(define (license->symbol license)
"Convert license to a symbol representing the variable the object is bound
to in the (guix licenses) module, or #f if there is no such known license."
- ;; TODO: Traverse list public variables in (guix licenses) instead so we
- ;; don't have to maintain a list manualy.
- (assoc-ref `((,license:lgpl2.0 . license:lgpl2.0)
- (,license:gpl3 . license:gpl3)
- (,license:bsd-3 . license:bsd-3)
- (,license:expat . license:expat)
- (,license:public-domain . license:public-domain)
- (,license:asl2.0 . license:asl2.0))
- license))
+ (define licenses
+ (module-map (lambda (sym var) `(,(variable-ref var) . ,sym))
+ (resolve-interface '(guix licenses) #:prefix 'license:)))
+ (assoc-ref licenses license))
(define (snake-case str)
"Return a downcased version of the string STR where underscores are replaced
diff --git a/tests/import-utils.scm b/tests/import-utils.scm
index 3b11875..8d44b9e 100644
--- a/tests/import-utils.scm
+++ b/tests/import-utils.scm
@@ -20,6 +20,7 @@
(define-module (test-import-utils)
#:use-module (guix tests)
#:use-module (guix import utils)
+ #:use-module ((guix licenses) #:prefix license:)
#:use-module (srfi srfi-64))
(test-begin "import-utils")
@@ -33,4 +34,8 @@
"This package provides a function to establish world peace"
(beautify-description "A function to establish world peace"))
+(test-equal "license->symbol"
+ 'license:lgpl2.0
+ (license->symbol license:lgpl2.0))
+
(test-end "import-utils")