From 838d78e3e012c9b1151aa6899805ce65102b39a0 Mon Sep 17 00:00:00 2001 From: Nikita Karetnikov 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(+) create mode 100644 guix/licenses.scm diff --git a/Makefile.am b/Makefile.am index 761f025f8e..d52bd389be 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 0000000000..9c1b7249e1 --- /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 +;;; Copyright (C) 2012 Nikita Karetnikov +;;; +;;; 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 . + +(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 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