licenses.scm 26 KB

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