guix/licenses.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2012, 2014, 2015, 2017, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
   3 ;;; Copyright © 2013, 2015 Andreas Enge <andreas@enge.fr>
   4 ;;; Copyright © 2012, 2013 Nikita Karetnikov <nikita@karetnikov.org>
   5 ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
   6 ;;; Copyright © 2015, 2019 Ricardo Wurmus <rekado@elephly.net>
   7 ;;; Copyright © 2016 Eric Bavier <bavier@member.fsf.org>
   8 ;;; Copyright © 2016 Leo Famulari <leo@famulari.name>
   9 ;;; Copyright © 2016 Fabian Harfert <fhmgufs@web.de>
  10 ;;; Copyright © 2016 Rene Saavedra <rennes@openmailbox.org>
  11 ;;; Copyright © 2016, 2017 Nikita <nikita@n0.is>
  12 ;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org>
  13 ;;; Copyright © 2017 Petter <petter@mykolab.ch>
  14 ;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com>
  15 ;;; Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net>
  16 ;;; Copyright © 2017 Rutger Helling <rhelling@mykolab.com>
  17 ;;; Copyright © 2020 André Batista <nandre@riseup.net>
  18 ;;; Copyright © 2020 Helio Machado <0x2b3bfa0+guix@googlemail.com>
  19 ;;; Copyright © 2021 Felix Gruber <felgru@posteo.net>
  20 ;;;
  21 ;;; This file is part of GNU Guix.
  22 ;;;
  23 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  24 ;;; under the terms of the GNU General Public License as published by
  25 ;;; the Free Software Foundation; either version 3 of the License, or (at
  26 ;;; your option) any later version.
  27 ;;;
  28 ;;; GNU Guix is distributed in the hope that it will be useful, but
  29 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  30 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  31 ;;; GNU General Public License for more details.
  32 ;;;
  33 ;;; You should have received a copy of the GNU General Public License
  34 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  35
  36 (define-module (guix licenses)
  37   #:use-module (srfi srfi-9)
  38   #:export (license? license-name license-uri license-comment
  39             agpl1 agpl3 agpl3+
  40             apsl2
  41             asl1.1 asl2.0
  42             boost1.0
  43             bsd-0 bsd-2 bsd-3 bsd-4
  44             non-copyleft
  45             cc0
  46             cc-by2.0 cc-by3.0 cc-by4.0
  47             cc-by-sa2.0 cc-by-sa3.0 cc-by-sa4.0
  48             cc-sampling-plus-1.0
  49             cddl1.0 cddl1.1
  50             cecill cecill-b cecill-c
  51             artistic2.0 clarified-artistic
  52             copyleft-next
  53             cpl1.0
  54             cua-opl1.0
  55             edl1.0
  56             epl1.0
  57             epl2.0
  58             expat
  59             freetype
  60             freebsd-doc
  61             giftware
  62             gpl1 gpl1+ gpl2 gpl2+ gpl3 gpl3+
  63             gfl1.0
  64             fdl1.1+ fdl1.2+ fdl1.3+
  65             opl1.0+ osl2.1
  66             isc
  67             ijg
  68             ibmpl1.0
  69             imlib2
  70             ipa
  71             knuth
  72             lal1.3
  73             lgpl2.0 lgpl2.0+ lgpl2.1 lgpl2.1+ lgpl3 lgpl3+ llgpl
  74             lppl lppl1.0+ lppl1.1+ lppl1.2 lppl1.2+
  75             lppl1.3 lppl1.3+
  76             lppl1.3a lppl1.3a+
  77             lppl1.3b lppl1.3b+
  78             lppl1.3c lppl1.3c+
  79             miros
  80             mpl1.0 mpl1.1 mpl2.0
  81             ms-pl
  82             ncsa
  83             nmap
  84             ogl-psi1.0
  85             openldap2.8 openssl
  86             perl-license
  87             psfl public-domain
  88             qpl
  89             qwt1.0
  90             repoze
  91             ruby
  92             sgifreeb2.0
  93             silofl1.1
  94             sleepycat
  95             tcl/tk
  96             unicode
  97             unlicense
  98             vim
  99             w3c
 100             x11 x11-style
 101             zpl2.1
 102             zlib
 103             fsf-free
 104             wtfpl2
 105             wxwindows3.1+
 106             hpnd
 107             fsdg-compatible))
 108
 109 (define-record-type <license>
 110   (license name uri comment)
 111   license?
 112   (name    license-name)
 113   (uri     license-uri)
 114   (comment license-comment))
 115
 116 ;;; Commentary:
 117 ;;;
 118 ;;; Available licenses.
 119 ;;;
 120 ;;; This list is based on these links:
 121 ;;; https://github.com/NixOS/nixpkgs/blob/master/lib/licenses.nix
 122 ;;; https://www.gnu.org/licenses/license-list
 123 ;;;
 124 ;;; Please update spdx-string->license from guix/import/utils.scm
 125 ;;; when modifying this list to avoid mismatches.
 126 ;;;
 127 ;;; Code:
 128
 129 (define agpl1
 130   (license "AGPL 1"
 131            "https://gnu.org/licenses/agpl.html"
 132            "https://gnu.org/licenses/why-affero-gpl.html"))
 133
 134 (define agpl3
 135   (license "AGPL 3"
 136            "https://gnu.org/licenses/agpl.html"
 137            "https://gnu.org/licenses/why-affero-gpl.html"))
 138
 139 (define agpl3+
 140   (license "AGPL 3+"
 141            "https://gnu.org/licenses/agpl.html"
 142            "https://gnu.org/licenses/why-affero-gpl.html"))
 143
 144 (define apsl2
 145   (license "APSL 2.0"
 146            "https://directory.fsf.org/wiki/License:APSL-2.0"
 147            "https://www.gnu.org/licenses/license-list.html#apsl2"))
 148
 149 (define asl1.1
 150   (license "ASL 1.1"
 151            "http://directory.fsf.org/wiki/License:Apache1.1"
 152            "https://www.gnu.org/licenses/license-list#apache1"))
 153
 154 (define asl2.0
 155   (license "ASL 2.0"
 156            "http://directory.fsf.org/wiki/License:Apache2.0"
 157            "https://www.gnu.org/licenses/license-list#apache2"))
 158
 159 (define boost1.0
 160   (license "Boost 1.0"
 161            "http://directory.fsf.org/wiki/License:Boost1.0"
 162            "https://www.gnu.org/licenses/license-list#boost"))
 163
 164 (define bsd-0
 165   (license "Zero-Clause BSD"
 166            "https://spdx.org/licenses/0BSD.html"
 167            "https://opensource.org/licenses/0BSD"))
 168
 169 (define bsd-2
 170   (license "FreeBSD"
 171            "http://directory.fsf.org/wiki/License:FreeBSD"
 172            "https://www.gnu.org/licenses/license-list#FreeBSD"))
 173
 174 (define bsd-3
 175   (license "Modified BSD"
 176            "http://directory.fsf.org/wiki/License:BSD_3Clause"
 177            "https://www.gnu.org/licenses/license-list#ModifiedBSD"))
 178
 179 (define bsd-4
 180   (license "Original BSD"
 181            "http://directory.fsf.org/wiki/License:BSD_4Clause"
 182            "https://www.gnu.org/licenses/license-list#OriginalBSD"))
 183
 184 (define* (non-copyleft uri #:optional (comment ""))
 185   "Return a lax, permissive, non-copyleft license (for example a variant of
 186 the 3-clause BSD license or the Expat license), whose full text can be found
 187 at URI, which may be a file:// URI pointing the package's tree."
 188   (license "non-copyleft"
 189            uri
 190            (string-append
 191             "This is a lax, non-copyleft free software license.  "
 192             "Check the URI for details.  "
 193             comment)))
 194
 195 (define cc0
 196   (license "CC0"
 197            "http://directory.fsf.org/wiki/License:CC0"
 198            "http://www.gnu.org/licenses/license-list.html#CC0"))
 199
 200 (define cc-by-sa4.0
 201   (license "CC-BY-SA 4.0"
 202            "http://creativecommons.org/licenses/by-sa/4.0/"
 203            "Creative Commons Attribution-ShareAlike 4.0 International"))
 204
 205 (define cc-by-sa3.0
 206   (license "CC-BY-SA 3.0"
 207            "http://creativecommons.org/licenses/by-sa/3.0/"
 208            "Creative Commons Attribution-ShareAlike 3.0 Unported"))
 209
 210 (define cc-by-sa2.0
 211   (license "CC-BY-SA 2.0"
 212            "http://creativecommons.org/licenses/by-sa/2.0/"
 213            "Creative Commons Attribution-ShareAlike 2.0 Generic"))
 214
 215 (define cc-by4.0
 216   (license "CC-BY 4.0"
 217            "http://creativecommons.org/licenses/by/4.0/"
 218            "Creative Commons Attribution 4.0 Unported"))
 219
 220 (define cc-by3.0
 221   (license "CC-BY 3.0"
 222            "http://creativecommons.org/licenses/by/3.0/"
 223            "Creative Commons Attribution 3.0 Unported"))
 224
 225 (define cc-by2.0
 226   (license "CC-BY 2.0"
 227            "http://creativecommons.org/licenses/by/2.0/"
 228            "Creative Commons Attribution 2.0 Generic"))
 229
 230 (define cc-sampling-plus-1.0
 231   (license "CC-Sampling+ 1.0"
 232            "https://creativecommons.org/licenses/sampling+/1.0"
 233            "Creative Commons Sampling Plus 1.0"))
 234
 235 (define cddl1.0
 236   (license "CDDL 1.0"
 237            "http://directory.fsf.org/wiki/License:CDDLv1.0"
 238            "https://www.gnu.org/licenses/license-list#CDDL"))
 239
 240 ;; CDDL1.1 is the same as 1.0, except that "Sun Microsystems, Inc" becomes "Oracle",
 241 ;; "LOST PROFITS" becoms "LOSS OF GOODWILL" and a section is added between 6.2
 242 ;; and 6.3.
 243 (define cddl1.1
 244   (license "CDDL 1.1"
 245            "https://oss.oracle.com/licenses/CDDL+GPL-1.1"
 246            "https://www.gnu.org/licenses/license-list#CDDL"))
 247
 248 (define cecill                                    ;copyleft
 249   (license "CeCILL"
 250            "http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.html"
 251            "https://www.gnu.org/licenses/license-list.html#CeCILL"))
 252
 253 (define cecill-b                                  ;non-copyleft
 254   (license "CeCILL-B"
 255            "http://www.cecill.info/licences/Licence_CeCILL-B_V1-en.html"
 256            "https://www.gnu.org/licenses/license-list.html#CeCILL"))
 257
 258 (define cecill-c                                  ;weak copyleft
 259   (license "CeCILL-C"
 260            "http://www.cecill.info/licences/Licence_CeCILL-C_V1-en.html"
 261            "https://www.gnu.org/licenses/license-list.html#CeCILL"))
 262
 263 (define artistic2.0
 264   (license "Artistic License 2.0"
 265            "http://www.perlfoundation.org/artistic_license_2_0"
 266            "http://www.gnu.org/licenses/license-list.html#ArtisticLicense2"))
 267
 268 (define clarified-artistic
 269   (license "Clarified Artistic"
 270            ;; http://directory.fsf.org/wiki/User:Jgay/license-categorization#Clarified_Artistic_License
 271            "http://gianluca.dellavedova.org/2011/01/03/clarified-artistic-license/"
 272            "https://www.gnu.org/licenses/license-list.html#ArtisticLicense2"))
 273
 274 (define copyleft-next
 275   (license "copyleft-next"
 276            "https://raw.github.com/richardfontana/copyleft-next/master/Releases/copyleft-next-0.3.0"
 277            "GPL-compatible copyleft license"))
 278
 279 (define cpl1.0
 280   (license "CPL 1.0"
 281            "http://directory.fsf.org/wiki/License:CPLv1.0"
 282            "https://www.gnu.org/licenses/license-list#CommonPublicLicense10"))
 283
 284 (define cua-opl1.0
 285   (license "CUA Office Public License v1.0"
 286            "https://spdx.org/licenses/CUA-OPL-1.0.html"
 287            "https://opensource.org/licenses/CUA-OPL-1.0"))
 288
 289 (define edl1.0
 290   (license "EDL 1.0"
 291            "http://directory.fsf.org/wiki/License:EDLv1.0"
 292            "https://eclipse.org/org/documents/edl-v10.php"))
 293
 294 (define epl1.0
 295   (license "EPL 1.0"
 296            "http://directory.fsf.org/wiki/License:EPLv1.0"
 297            "https://www.gnu.org/licenses/license-list#EPL"))
 298
 299 (define epl2.0
 300   (license "EPL 2.0"
 301            "https://www.eclipse.org/legal/epl-2.0/"
 302            "https://www.gnu.org/licenses/license-list#EPL2"))
 303
 304 (define expat
 305   (license "Expat"
 306            "http://directory.fsf.org/wiki/License:Expat"
 307            "https://www.gnu.org/licenses/license-list.html#Expat"))
 308
 309 (define freetype
 310   (license "Freetype"
 311            "http://directory.fsf.org/wiki/License:Freetype"
 312            "https://www.gnu.org/licenses/license-list.html#freetype"))
 313
 314 (define giftware
 315   (license "Giftware"
 316            "https://liballeg.org/license.html"
 317            "The Allegro 4 license"))
 318
 319 (define gpl1
 320   (license "GPL 1"
 321            "https://www.gnu.org/licenses/old-licenses/gpl-1.0.html"
 322            #f))
 323
 324 (define gpl1+
 325   (license "GPL 1+"
 326            "https://www.gnu.org/licenses/old-licenses/gpl-1.0.html"
 327            #f))
 328
 329 (define gpl2
 330   (license "GPL 2"
 331            "https://www.gnu.org/licenses/old-licenses/gpl-2.0.html"
 332            "https://www.gnu.org/licenses/license-list#GPLv2"))
 333
 334 (define gpl2+
 335   (license "GPL 2+"
 336            "https://www.gnu.org/licenses/old-licenses/gpl-2.0.html"
 337            "https://www.gnu.org/licenses/license-list#GPLv2"))
 338
 339 (define gpl3
 340   (license "GPL 3"
 341            "https://www.gnu.org/licenses/gpl.html"
 342            "https://www.gnu.org/licenses/license-list#GNUGPLv3"))
 343
 344 (define gpl3+
 345   (license "GPL 3+"
 346            "https://www.gnu.org/licenses/gpl.html"
 347            "https://www.gnu.org/licenses/license-list#GNUGPLv3"))
 348
 349 ;; The “GUST font license” is legally equivalent to LPPL v1.3c as it only
 350 ;; extends the LPPL with an optional request.
 351 (define gfl1.0
 352   (license "GUST font license 1.0"
 353            "http://www.gust.org.pl/projects/e-foundry/licenses/GUST-FONT-LICENSE.txt"
 354            "https://www.gnu.org/licenses/license-list#LPPL-1.3a"))
 355
 356 (define fdl1.1+
 357   (license "FDL 1.1+"
 358            "https://www.gnu.org/licenses/fdl-1.1"
 359            "https://www.gnu.org/licenses/license-list#FDL"))
 360
 361 (define fdl1.2+
 362   (license "FDL 1.2+"
 363            "https://www.gnu.org/licenses/fdl-1.2"
 364            "https://www.gnu.org/licenses/license-list#FDL"))
 365
 366 (define fdl1.3+
 367   (license "FDL 1.3+"
 368            "https://www.gnu.org/licenses/fdl.html"
 369            "https://www.gnu.org/licenses/license-list#FDL"))
 370
 371 (define freebsd-doc
 372   (license "FreeBSD Documentation License"
 373            "https://www.freebsd.org/copyright/freebsd-doc-license.html"
 374            "https://www.gnu.org/licenses/license-list.html#FreeBSDDL"))
 375
 376 (define opl1.0+
 377   (license "Open Publication License 1.0 or later"
 378            "http://opencontent.org/openpub/"
 379            "https://www.gnu.org/licenses/license-list#OpenPublicationL"))
 380
 381 (define osl2.1
 382   (license "The Open Software License 2.1"
 383            "https://opensource.org/licenses/osl-2.1.php"
 384            "https://www.gnu.org/licenses/license-list#OSL"))
 385
 386 (define isc
 387   (license "ISC"
 388            "http://directory.fsf.org/wiki/License:ISC"
 389            "https://www.gnu.org/licenses/license-list.html#ISC"))
 390
 391 (define ijg
 392   (license "IJG"
 393            "http://directory.fsf.org/wiki/License:JPEG"
 394            "https://www.gnu.org/licenses/license-list#ijg"))
 395
 396 (define ibmpl1.0
 397   (license "IBMPL 1.0"
 398            "http://directory.fsf.org/wiki/License:IBMPLv1.0"
 399            "https://www.gnu.org/licenses/license-list#IBMPL"))
 400
 401 (define imlib2
 402   (license "Imlib2"
 403            "http://directory.fsf.org/wiki/License:Imlib2"
 404            "https://www.gnu.org/licenses/license-list#imlib"))
 405
 406 (define ipa
 407   (license "IPA Font License"
 408            "http://directory.fsf.org/wiki/License:IPA_Font_License"
 409            "https://www.gnu.org/licenses/license-list#IPAFONT"))
 410
 411 (define knuth
 412   (license "Donald Knuth's license for TeX"
 413            "http://www.ctan.org/license/knuth"
 414            "Modification are only permitted under a different name."))
 415
 416 (define lal1.3
 417   (license "Free Art License 1.3"
 418            "http://artlibre.org/licence/lal/en/"
 419            "https://www.gnu.org/licenses/license-list#FreeArt"))
 420
 421 (define lgpl2.0
 422   (license "LGPL 2.0"
 423            "https://www.gnu.org/licenses/old-licenses/lgpl-2.0.html"
 424            "https://www.gnu.org/licenses/why-not-lgpl.html"))
 425
 426 (define lgpl2.0+
 427   (license "LGPL 2.0+"
 428            "https://www.gnu.org/licenses/old-licenses/lgpl-2.0.html"
 429            "https://www.gnu.org/licenses/why-not-lgpl.html"))
 430
 431 (define lgpl2.1
 432   (license "LGPL 2.1"
 433            "https://www.gnu.org/licenses/old-licenses/lgpl-2.1.html"
 434            "https://www.gnu.org/licenses/license-list#LGPLv2.1"))
 435
 436 (define lgpl2.1+
 437   (license "LGPL 2.1+"
 438            "https://www.gnu.org/licenses/old-licenses/lgpl-2.1.html"
 439            "https://www.gnu.org/licenses/license-list#LGPLv2.1"))
 440
 441 (define lgpl3
 442   (license "LGPL 3"
 443            "https://www.gnu.org/licenses/lgpl.html"
 444            "https://www.gnu.org/licenses/license-list#LGPLv3"))
 445
 446 (define lgpl3+
 447   (license "LGPL 3+"
 448            "https://www.gnu.org/licenses/lgpl.html"
 449            "https://www.gnu.org/licenses/license-list#LGPLv3"))
 450
 451 (define llgpl
 452   (license "LLGPL"
 453            "https://opensource.franz.com/preamble.html"
 454            "Lisp Lesser General Public License"))
 455
 456 (define lppl
 457   (license "LPPL (any version)"
 458            "https://www.latex-project.org/lppl/lppl-1-0/"
 459            "LaTeX Project Public License 1.0"))
 460
 461 (define lppl1.0+
 462   (license "LPPL 1.0+"
 463            "https://www.latex-project.org/lppl/lppl-1-0/"
 464            "LaTeX Project Public License 1.0"))
 465
 466 (define lppl1.1+
 467   (license "LPPL 1.1+"
 468            "https://www.latex-project.org/lppl/lppl-1-1/"
 469            "LaTeX Project Public License 1.1"))
 470
 471 (define lppl1.2
 472   (license "LPPL 1.2"
 473            "http://directory.fsf.org/wiki/License:LPPLv1.2"
 474            "https://www.gnu.org/licenses/license-list#LPPL-1.2"))
 475
 476 (define lppl1.2+
 477   (license "LPPL 1.2+"
 478            "http://directory.fsf.org/wiki/License:LPPLv1.2"
 479            "https://www.gnu.org/licenses/license-list#LPPL-1.2"))
 480
 481 (define lppl1.3
 482   (license "LPPL 1.3"
 483            "https://www.latex-project.org/lppl/lppl-1-3/"
 484            "LaTeX Project Public License 1.3"))
 485
 486 (define lppl1.3+
 487   (license "LPPL 1.3+"
 488            "https://www.latex-project.org/lppl/lppl-1-3/"
 489            "LaTeX Project Public License 1.3+"))
 490
 491 (define lppl1.3a
 492   (license "LPPL 1.3a"
 493            "http://directory.fsf.org/wiki/License:LPPLv1.3a"
 494            "https://www.gnu.org/licenses/license-list#LPPL-1.3a"))
 495
 496 (define lppl1.3a+
 497   (license "LPPL 1.3a+"
 498            "http://directory.fsf.org/wiki/License:LPPLv1.3a"
 499            "https://www.gnu.org/licenses/license-list#LPPL-1.3a"))
 500
 501 (define lppl1.3b
 502   (license "LPPL 1.3b"
 503            "https://www.latex-project.org/lppl/lppl-1-3b/"
 504            "LaTeX Project Public License 1.3b"))
 505
 506 (define lppl1.3b+
 507   (license "LPPL 1.3b+"
 508            "https://www.latex-project.org/lppl/lppl-1-3b/"
 509            "LaTeX Project Public License 1.3b or later"))
 510
 511 (define lppl1.3c
 512   (license "LPPL 1.3c"
 513            "https://www.latex-project.org/lppl/lppl-1-3c/"
 514            "LaTeX Project Public License 1.3c"))
 515
 516 (define lppl1.3c+
 517   (license "LPPL 1.3c+"
 518            "https://www.latex-project.org/lppl/lppl-1-3c/"
 519            "LaTeX Project Public License 1.3c or later"))
 520
 521 (define miros
 522   (license "MirOS"
 523            "https://www.mirbsd.org/MirOS-Licence.htm"
 524            "MirOS License"))
 525
 526 (define mpl1.0
 527   (license "MPL 1.0"
 528            "http://www.mozilla.org/MPL/1.0/"
 529            "https://www.gnu.org/licenses/license-list.html#MPL"))
 530
 531 (define mpl1.1
 532   (license "MPL 1.1"
 533            "http://directory.fsf.org/wiki/License:MPLv1.1"
 534            "https://www.gnu.org/licenses/license-list#MPL"))
 535
 536 (define mpl2.0
 537   (license "MPL 2.0"
 538            "http://directory.fsf.org/wiki/License:MPLv2.0"
 539            "https://www.gnu.org/licenses/license-list#MPL-2.0"))
 540
 541 (define ms-pl
 542   (license "Ms-PL"                                ;Microsoft Public License
 543            "http://directory.fsf.org/wiki/License:MsPL"
 544            "http://www.gnu.org/licenses/license-list.html#ms-pl"))
 545
 546 (define ncsa
 547   (license "NCSA/University of Illinois Open Source License"
 548            "http://directory.fsf.org/wiki/License:IllinoisNCSA"
 549            "https://www.gnu.org/licenses/license-list#NCSA"))
 550
 551 (define nmap
 552   (license "Nmap license"
 553            "https://svn.nmap.org/nmap/COPYING"
 554            "https://fedoraproject.org/wiki/Licensing/Nmap"))
 555
 556 (define ogl-psi1.0
 557   (license "Open Government Licence for Public Sector Information"
 558            "https://www.nationalarchives.gov.uk/doc/open-government-licence/version/1/"
 559            #f))
 560
 561 (define openssl
 562   (license "OpenSSL"
 563            "http://directory.fsf.org/wiki/License:OpenSSL"
 564            "https://www.gnu.org/licenses/license-list#OpenSSL"))
 565
 566 (define openldap2.8
 567   (license "OpenLDAPv2.8"
 568            "http://directory.fsf.org/wiki/License:OpenLDAPv2.8"
 569            "https://www.gnu.org/licenses/license-list#newOpenLDAP"))
 570               ;; lists OpenLDAPv2.7, which is virtually identical
 571
 572 (define perl-license
 573   ;; The license of Perl, GPLv1+ or Artistic (we ignore the latter here).
 574   ;; We define this alias to avoid circular dependencies introduced by the use
 575   ;; of the '(package-license perl)' idiom.
 576   gpl1+)
 577
 578 (define psfl
 579   (license "Python Software Foundation License"
 580            "http://docs.python.org/license.html"
 581            #f))
 582
 583 (define public-domain
 584   (license "Public Domain"
 585            "http://directory.fsf.org/wiki/License:PublicDomain"
 586            "https://www.gnu.org/licenses/license-list#PublicDomain"))
 587
 588 (define qpl
 589   (license "QPL"
 590            "http://directory.fsf.org/wiki/License:QPLv1.0"
 591            "http://www.gnu.org/licenses/license-list.html#QPL"))
 592
 593 (define qwt1.0
 594   (license "QWT 1.0"
 595            "http://qwt.sourceforge.net/qwtlicense.html"
 596            "GNU Lesser General Public License with exceptions"))
 597
 598 (define repoze
 599   (license "Repoze"
 600            "http://repoze.org/LICENSE.txt"
 601            "A BSD-like license with a clause requiring all changes to be
 602            attributed by author and date."))
 603
 604 (define ruby
 605   (license "Ruby License"
 606            "http://directory.fsf.org/wiki/License:Ruby"
 607            "https://www.ruby-lang.org/en/about/license.txt"))
 608
 609 (define sgifreeb2.0
 610   (license "SGI Free Software License B, version 2.0"
 611            "http://directory.fsf.org/wiki/License:SGIFreeBv2"
 612            "https://www.gnu.org/licenses/license-list.html#SGIFreeB"))
 613
 614 (define silofl1.1
 615   (license "SIL OFL 1.1"
 616            "http://scripts.sil.org/OFL_web"
 617            "https://www.gnu.org/licenses/license-list#SILOFL"))
 618
 619 (define sleepycat
 620   (license "Sleepycat"
 621            "http://directory.fsf.org/wiki/License:Sleepycat"
 622            "https://www.gnu.org/licenses/license-list#BerkeleyDB"))
 623
 624 (define tcl/tk
 625   (license "Tcl/Tk"
 626            "http://www.tcl.tk/software/tcltk/license.html"
 627            "A non-copyleft free software license from the Tcl/Tk project"))
 628
 629 (define vim
 630   (license "Vim"
 631            "http://directory.fsf.org/wiki/License:Vim7.2"
 632            "http://www.gnu.org/licenses/license-list.html#Vim"))
 633
 634 (define unicode
 635   (license "Unicode"
 636            "https://directory.fsf.org/wiki/License:Unicode"
 637            "http://www.gnu.org/licenses/license-list.html#Unicode"))
 638
 639 (define unlicense
 640   (license "Unlicense"
 641            "https://unlicense.org/"
 642            "https://www.gnu.org/licenses/license-list.html#Unlicense"))
 643
 644 (define w3c
 645   (license "W3C Software Notice and License"
 646            "https://directory.fsf.org/wiki/License:W3C_31Dec2002"
 647            "https://www.gnu.org/licenses/license-list.en.html#W3C"))
 648
 649 (define wtfpl2
 650   (license "WTFPL 2"
 651            "http://www.wtfpl.net"
 652            "http://www.wtfpl.net/about/"))
 653
 654 (define wxwindows3.1+
 655   (license "wxWindows 3.1+"
 656            "https://wxwidgets.org/about/licence"
 657            "https://www.gnu.org/licenses/license-list.html#Wxwind"))
 658
 659 (define x11
 660   (license "X11"
 661            "http://directory.fsf.org/wiki/License:X11"
 662            "https://www.gnu.org/licenses/license-list#X11License"))
 663
 664 (define* (x11-style uri #:optional (comment ""))
 665   "Return an X11-style license, whose full text can be found at URI,
 666 which may be a file:// URI pointing the package's tree."
 667   (license "X11-style"
 668            uri
 669            (string-append
 670             "This is an X11-style, non-copyleft free software license.  "
 671             "Check the URI for details.  "
 672             comment)))
 673
 674 (define zpl2.1
 675   (license "Zope Public License 2.1"
 676            "http://directory.fsf.org/wiki?title=License:ZopePLv2.1"
 677            "https://www.gnu.org/licenses/license-list.html#Zope2.0"))
 678
 679 (define zlib
 680   (license "Zlib"
 681            "https://zlib.net/zlib_license.html"
 682            "https://www.gnu.org/licenses/license-list#ZLib"))
 683
 684 (define hpnd
 685   (license "HPND"
 686            "https://directory.fsf.org/wiki/License:HPND"
 687            "https://www.gnu.org/licenses/license-list#HPND"))
 688
 689 (define* (fsf-free uri #:optional (comment ""))
 690   "Return a license that does not fit any of the ones above or a collection
 691 of licenses, approved as free by the FSF.  More details can be found at URI."
 692   (license "FSF-free"
 693            uri
 694            comment))
 695
 696 (define* (fsdg-compatible uri #:optional (comment ""))
 697   "Return a license that does not fit any of the ones above or a collection
 698 of licenses, not necessarily free, but in accordance with FSDG as Non-functional
 699 Data.  More details can be found at URI.  See also
 700 https://www.gnu.org/distros/free-system-distribution-guidelines.en.html#non-functional-data."
 701   (license "FSDG-compatible"
 702            uri
 703            comment))
 704
 705 ;;; licenses.scm ends here