From eb8229c7834dd1d249e8f5adc8382d00b289aa00 Mon Sep 17 00:00:00 2001
From: Nikita Karetnikov <address@hidden>
Date: Thu, 6 Dec 2012 22:39:57 +0000
Subject: [PATCH] Add (guix licenses).

* guix/licenses.scm: New file.
* Makefile.am (MODULES): Add it.
---
 Makefile.am       |    1 +
 guix/licenses.scm |  106 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 107 insertions(+), 0 deletions(-)
 create mode 100644 guix/licenses.scm

diff --git a/Makefile.am b/Makefile.am
index fab85ae..d5072c7 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..f12dee2
--- /dev/null
+++ b/guix/licenses.scm
@@ -0,0 +1,106 @@
+;;; Guix --- Nix package management from Guile.         -*- coding: utf-8 -*-
+;;; Copyright (C) 2012 Ludovic Courtès <address@hidden>
+;;; Copyright (C) 2012 Nikita Karetnikov <address@hidden>
+;;;
+;;; 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 (asl2.0)
+  #:export (boost1.0)
+  #:export (bsd-2 bsd-3 bsd-4)
+  #:export (cddl1.0)
+  #:export (cpl1.0)
+  #:export (epl1.0)
+  #:export (gpl2 gpl2+ gpl3 gpl3+)
+  #:export (ijg)
+  #:export (ibmpl1.0)
+  #:export (lgpl2.1 lgpl2.1+ lgpl3 lgpl3+)
+  #:export (mpl2.0)
+  #:export (openssl)
+  #:export (public-domain)
+  #:export (x11)
+  #:export (zlib))
+
+(define-record-type <license>
+  (license name)
+  license?
+  (name license-name))
+
+;;; The following list is based on these links:
+;;; https://github.com/NixOS/nixpkgs/blob/master/pkgs/lib/licenses.nix
+;;; https://www.gnu.org/licenses/license-list
+
+;;; https://www.gnu.org/licenses/license-list#apache2
+(define asl2.0 (license "ASL 2.0"))
+
+;;; https://www.gnu.org/licenses/license-list#boost
+(define boost1.0 (license "Boost 1.0"))
+
+;;; https://www.gnu.org/licenses/license-list#FreeBSD
+(define bsd-2 (license "FreeBSD"))
+
+;;; https://www.gnu.org/licenses/license-list#ModifiedBSD
+(define bsd-3 (license "Modified BSD"))
+
+;;; https://www.gnu.org/licenses/license-list#OriginalBSD
+(define bsd-4 (license "Original BSD"))
+
+;;; https://www.gnu.org/licenses/license-list#CDDL
+(define cddl1.0 (license "CDDL 1.0"))
+
+;;; https://www.gnu.org/licenses/license-list#CommonPublicLicense10
+(define cpl1.0 (license "CPL 1.0"))
+
+;;; https://www.gnu.org/licenses/license-list#EPL
+(define epl1.0 (license "EPL 1.0"))
+
+;;; https://www.gnu.org/licenses/license-list#GPLv2
+(define gpl2  (license "GPL 2"))
+(define gpl2+ (license "GPL 2+"))
+
+;;; https://www.gnu.org/licenses/license-list#GNUGPLv3
+(define gpl3  (license "GPL 3"))
+(define gpl3+ (license "GPL 3+"))
+
+;;; https://www.gnu.org/licenses/license-list#ijg
+(define ijg (license "IJG"))
+
+;;; https://www.gnu.org/licenses/license-list#IBMPL
+(define ibmpl1.0 (license "IBMPL 1.0"))
+
+;;; https://www.gnu.org/licenses/license-list#LGPLv2.1
+(define lgpl2.1  (license "LGPL 2.1"))
+(define lgpl2.1+ (license "LGPL 2.1+"))
+
+;;; https://www.gnu.org/licenses/license-list#LGPLv3
+(define lgpl3  (license "LGPL 3"))
+(define lgpl3+ (license "LGPL 3+"))
+
+;;; https://www.gnu.org/licenses/license-list#MPL-2.0
+(define mpl2.0 (license "MPL 2.0"))
+
+;;; https://www.gnu.org/licenses/license-list#OpenSSL
+(define openssl (license "OpenSSL"))
+
+;;; https://www.gnu.org/licenses/license-list#PublicDomain
+(define public-domain (license "Public Domain"))
+
+;;; https://www.gnu.org/licenses/license-list#X11License
+(define x11 (license "X11"))
+
+;;; https://www.gnu.org/licenses/license-list#ZLib
+(define zlib (license "Zlib"))
\ No newline at end of file
-- 
1.7.5.4