diff options
| -rw-r--r-- | guix/licenses.scm | 42 |
1 files changed, 39 insertions, 3 deletions
diff --git a/guix/licenses.scm b/guix/licenses.scm index 9c1b7249e1..cc2369bb8e 100644 --- a/guix/licenses.scm +++ b/guix/licenses.scm @@ -22,14 +22,15 @@ #:export (license? license-name license-uri license-comment asl2.0 boost1.0 - bsd-2 bsd-3 bsd-4 + bsd-2 bsd-3 bsd-4 bsd-style cddl1.0 cpl1.0 epl1.0 - gpl2 gpl2+ gpl3 gpl3+ + expat + gpl1 gpl1+ gpl2 gpl2+ gpl3 gpl3+ ijg ibmpl1.0 - lgpl2.1 lgpl2.1+ lgpl3 lgpl3+ + lgpl2.0 lgpl2.0+ lgpl2.1 lgpl2.1+ lgpl3 lgpl3+ mpl2.0 openssl public-domain @@ -78,6 +79,16 @@ "http://directory.fsf.org/wiki/License:BSD_4Clause" "https://www.gnu.org/licenses/license-list#OriginalBSD")) +(define* (bsd-style uri #:optional (comment "")) + "Return a BSD-style license, whose full text can be found at URI, +which may be a file:// URI pointing the package's tree." + (license "BSD-style" + uri + (string-append + "This is a BSD-style, non-copyleft free software license. " + "Check the URI for details. " + comment))) + (define cddl1.0 (license "CDDL 1.0" "http://directory.fsf.org/wiki/License:CDDLv1.0" @@ -93,6 +104,21 @@ "http://directory.fsf.org/wiki/License:EPLv1.0" "https://www.gnu.org/licenses/license-list#EPL")) +(define expat + (license "Expat" + "http://directory.fsf.org/wiki/License:Expat" + "https://www.gnu.org/licenses/license-list.html#Expat")) + +(define gpl1 + (license "GPL 1" + "https://www.gnu.org/licenses/old-licenses/gpl-1.0.html" + #f)) + +(define gpl1+ + (license "GPL 1+" + "https://www.gnu.org/licenses/old-licenses/gpl-1.0.html" + #f)) + (define gpl2 (license "GPL 2" "https://www.gnu.org/licenses/old-licenses/gpl-2.0.html" @@ -123,6 +149,16 @@ "http://directory.fsf.org/wiki/License:IBMPLv1.0" "https://www.gnu.org/licenses/license-list#IBMPL")) +(define lgpl2.0 + (license "LGPL 2.0" + "https://www.gnu.org/licenses/old-licenses/lgpl-2.0.html" + "https://www.gnu.org/licenses/why-not-lgpl.html")) + +(define lgpl2.0+ + (license "LGPL 2.0+" + "https://www.gnu.org/licenses/old-licenses/lgpl-2.0.html" + "https://www.gnu.org/licenses/why-not-lgpl.html")) + (define lgpl2.1 (license "LGPL 2.1" "https://www.gnu.org/licenses/old-licenses/lgpl-2.1.html" |