I've attached the patch. 'comment' is for various notes. (It's not necessarily a URI.)
From 714e8352e34633edf6721ba32eed0bcc902281a2 Mon Sep 17 00:00:00 2001 From: Nikita Karetnikov <[email protected]> Date: Sat, 8 Dec 2012 01:48:17 +0000 Subject: [PATCH] Add (guix licenses).
* guix/licenses.scm: New file. * Makefile.am (MODULES): Add it. --- Makefile.am | 1 + guix/licenses.scm | 171 +++++++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 172 insertions(+), 0 deletions(-) create mode 100644 guix/licenses.scm diff --git a/Makefile.am b/Makefile.am index 761f025..d52bd38 100644 --- a/Makefile.am +++ b/Makefile.am @@ -28,6 +28,7 @@ MODULES = \ guix/derivations.scm \ guix/download.scm \ guix/gnu-maintenance.scm \ + guix/licenses.scm \ guix/build-system.scm \ guix/build-system/gnu.scm \ guix/build-system/trivial.scm \ diff --git a/guix/licenses.scm b/guix/licenses.scm new file mode 100644 index 0000000..9c1b724 --- /dev/null +++ b/guix/licenses.scm @@ -0,0 +1,171 @@ +;;; Guix --- Nix package management from Guile. -*- coding: utf-8 -*- +;;; Copyright (C) 2012 Ludovic Courtès <[email protected]> +;;; Copyright (C) 2012 Nikita Karetnikov <[email protected]> +;;; +;;; This file is part of Guix. +;;; +;;; Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (guix licenses) + #:use-module (srfi srfi-9) + #:export (license? license-name license-uri license-comment + asl2.0 + boost1.0 + bsd-2 bsd-3 bsd-4 + cddl1.0 + cpl1.0 + epl1.0 + gpl2 gpl2+ gpl3 gpl3+ + ijg + ibmpl1.0 + lgpl2.1 lgpl2.1+ lgpl3 lgpl3+ + mpl2.0 + openssl + public-domain + x11 + zlib)) + +(define-record-type <license> + (license name uri comment) + license? + (name license-name) + (uri license-uri) + (comment license-comment)) + +;;; Commentary: +;;; +;;; Available licenses. +;;; +;;; This list is based on these links: +;;; https://github.com/NixOS/nixpkgs/blob/master/pkgs/lib/licenses.nix +;;; https://www.gnu.org/licenses/license-list +;;; +;;; Code: + +(define asl2.0 + (license "ASL 2.0" + "http://directory.fsf.org/wiki/License:Apache2.0"; + "https://www.gnu.org/licenses/license-list#apache2";)) + +(define boost1.0 + (license "Boost 1.0" + "http://directory.fsf.org/wiki/License:Boost1.0"; + "https://www.gnu.org/licenses/license-list#boost";)) + +(define bsd-2 + (license "FreeBSD" + "http://directory.fsf.org/wiki/License:FreeBSD"; + "https://www.gnu.org/licenses/license-list#FreeBSD";)) + +(define bsd-3 + (license "Modified BSD" + "http://directory.fsf.org/wiki/License:BSD_3Clause"; + "https://www.gnu.org/licenses/license-list#ModifiedBSD";)) + +(define bsd-4 + (license "Original BSD" + "http://directory.fsf.org/wiki/License:BSD_4Clause"; + "https://www.gnu.org/licenses/license-list#OriginalBSD";)) + +(define cddl1.0 + (license "CDDL 1.0" + "http://directory.fsf.org/wiki/License:CDDLv1.0"; + "https://www.gnu.org/licenses/license-list#CDDL";)) + +(define cpl1.0 + (license "CPL 1.0" + "http://directory.fsf.org/wiki/License:CPLv1.0"; + "https://www.gnu.org/licenses/license-list#CommonPublicLicense10";)) + +(define epl1.0 + (license "EPL 1.0" + "http://directory.fsf.org/wiki/License:EPLv1.0"; + "https://www.gnu.org/licenses/license-list#EPL";)) + +(define gpl2 + (license "GPL 2" + "https://www.gnu.org/licenses/old-licenses/gpl-2.0.html"; + "https://www.gnu.org/licenses/license-list#GPLv2";)) + +(define gpl2+ + (license "GPL 2+" + "https://www.gnu.org/licenses/old-licenses/gpl-2.0.html"; + "https://www.gnu.org/licenses/license-list#GPLv2";)) + +(define gpl3 + (license "GPL 3" + "https://www.gnu.org/licenses/gpl.html"; + "https://www.gnu.org/licenses/license-list#GNUGPLv3";)) + +(define gpl3+ + (license "GPL 3+" + "https://www.gnu.org/licenses/gpl.html"; + "https://www.gnu.org/licenses/license-list#GNUGPLv3";)) + +(define ijg + (license "IJG" + "http://directory.fsf.org/wiki/License:JPEG"; + "https://www.gnu.org/licenses/license-list#ijg";)) + +(define ibmpl1.0 + (license "IBMPL 1.0" + "http://directory.fsf.org/wiki/License:IBMPLv1.0"; + "https://www.gnu.org/licenses/license-list#IBMPL";)) + +(define lgpl2.1 + (license "LGPL 2.1" + "https://www.gnu.org/licenses/old-licenses/lgpl-2.1.html"; + "https://www.gnu.org/licenses/license-list#LGPLv2.1";)) + +(define lgpl2.1+ + (license "LGPL 2.1+" + "https://www.gnu.org/licenses/old-licenses/lgpl-2.1.html"; + "https://www.gnu.org/licenses/license-list#LGPLv2.1";)) + +(define lgpl3 + (license "LGPL 3" + "https://www.gnu.org/licenses/lgpl.html"; + "https://www.gnu.org/licenses/license-list#LGPLv3";)) + +(define lgpl3+ + (license "LGPL 3+" + "https://www.gnu.org/licenses/lgpl.html"; + "https://www.gnu.org/licenses/license-list#LGPLv3";)) + +(define mpl2.0 + (license "MPL 2.0" + "http://directory.fsf.org/wiki/License:MPLv2.0"; + "https://www.gnu.org/licenses/license-list#MPL-2.0";)) + +(define openssl + (license "OpenSSL" + "http://directory.fsf.org/wiki/License:OpenSSL"; + "https://www.gnu.org/licenses/license-list#OpenSSL";)) + +(define public-domain + (license "Public Domain" + "http://directory.fsf.org/wiki/License:PublicDomain"; + "https://www.gnu.org/licenses/license-list#PublicDomain";)) + +(define x11 + (license "X11" + "http://directory.fsf.org/wiki/License:X11"; + "https://www.gnu.org/licenses/license-list#X11License";)) + +(define zlib + (license "Zlib" + "http://www.gzip.org/zlib/zlib_license.html"; + "https://www.gnu.org/licenses/license-list#ZLib";)) + +;;; licenses.scm ends here -- 1.7.5.4
