1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
| | ;;; Guix --- Nix package management from Guile. -*- coding: utf-8 -*-
;;; Copyright (C) 2012 Ludovic Courtès <ludo@gnu.org>
;;; Copyright (C) 2012 Nikita Karetnikov <nikita@karetnikov.org>
;;;
;;; 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"))
|