projects/guix·blob version-0.15.0 · refs

507 lines · 19.8 KiB

1;;; GNU Guix --- Functional package management for GNU
2;;; Copyright © 2013 Cyril Roelandt <[email protected]>
3;;; Copyright © 2014 Raimon Grau <[email protected]>
4;;; Copyright © 2014 Mark H Weaver <[email protected]>
5;;; Copyright © 2014 Andreas Enge <[email protected]>
6;;; Copyright © 2016, 2017 Efraim Flashner <[email protected]>
7;;; Copyright © 2016 Ricardo Wurmus <[email protected]>
8;;; Copyright © 2016 doncatnip <[email protected]>
9;;; Copyright © 2016, 2017 Clément Lassieur <[email protected]>
10;;; Copyright © 2016 José Miguel Sánchez García <[email protected]>
11;;; Copyright © 2018 Tobias Geerinckx-Rice <[email protected]>
12;;; Copyright © 2018 Fis Trivial <[email protected]>
13;;;
14;;; This file is part of GNU Guix.
15;;;
16;;; GNU Guix is free software; you can redistribute it and/or modify it
17;;; under the terms of the GNU General Public License as published by
18;;; the Free Software Foundation; either version 3 of the License, or (at
19;;; your option) any later version.
20;;;
21;;; GNU Guix is distributed in the hope that it will be useful, but
22;;; WITHOUT ANY WARRANTY; without even the implied warranty of
23;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
24;;; GNU General Public License for more details.
25;;;
26;;; You should have received a copy of the GNU General Public License
27;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
28
29(define-module (gnu packages lua)
30 #:use-module ((guix licenses) #:prefix license:)
31 #:use-module (guix packages)
32 #:use-module (guix download)
33 #:use-module (guix git-download)
34 #:use-module (guix utils)
35 #:use-module (guix build utils)
36 #:use-module (guix build-system gnu)
37 #:use-module (guix build-system cmake)
38 #:use-module (gnu packages)
39 #:use-module (gnu packages readline)
40 #:use-module (gnu packages tls)
41 #:use-module (gnu packages xml)
42 #:use-module (gnu packages glib)
43 #:use-module (gnu packages libffi)
44 #:use-module (gnu packages pkg-config)
45 #:use-module (gnu packages xorg)
46 #:use-module (gnu packages gtk))
47
48(define-public lua
49 (package
50 (name "lua")
51 (version "5.3.4")
52 (source (origin
53 (method url-fetch)
54 (uri (string-append "https://www.lua.org/ftp/lua-"
55 version ".tar.gz"))
56 (sha256
57 (base32 "0320a8dg3aci4hxla380dx1ifkw8gj4gbw5c4dz41g1kh98sm0gn"))
58 (patches (search-patches "lua-pkgconfig.patch"
59 "lua-liblua-so.patch"))))
60 (build-system gnu-build-system)
61 (inputs `(("readline" ,readline)))
62 (arguments
63 '(#:modules ((guix build gnu-build-system)
64 (guix build utils)
65 (srfi srfi-1))
66 #:test-target "test"
67 #:make-flags
68 '("MYCFLAGS=-fPIC -DLUA_DL_DLOPEN"
69 "linux")
70 #:phases
71 (modify-phases %standard-phases
72 (delete 'configure)
73 (replace 'install
74 (lambda* (#:key outputs #:allow-other-keys)
75 (let ((out (assoc-ref outputs "out")))
76 (invoke "make" "install"
77 (string-append "INSTALL_TOP=" out)
78 (string-append "INSTALL_MAN=" out
79 "/share/man/man1"))))))))
80 (home-page "https://www.lua.org/")
81 (synopsis "Embeddable scripting language")
82 (description
83 "Lua is a powerful, fast, lightweight, embeddable scripting language. Lua
84combines simple procedural syntax with powerful data description constructs
85based on associative arrays and extensible semantics. Lua is dynamically typed,
86runs by interpreting bytecode for a register-based virtual machine, and has
87automatic memory management with incremental garbage collection, making it ideal
88for configuration, scripting, and rapid prototyping.")
89 (license license:x11)))
90
91(define-public lua-5.2
92 (package (inherit lua)
93 (version "5.2.4")
94 (source
95 (origin
96 (method url-fetch)
97 (uri (string-append "https://www.lua.org/ftp/lua-"
98 version ".tar.gz"))
99 (sha256
100 (base32 "0jwznq0l8qg9wh5grwg07b5cy3lzngvl5m2nl1ikp6vqssmf9qmr"))
101 (patches (search-patches "lua-pkgconfig.patch"
102 "lua-liblua-so.patch"))))))
103
104(define-public lua-5.1
105 (package (inherit lua)
106 (version "5.1.5")
107 (source (origin
108 (method url-fetch)
109 (uri (string-append "https://www.lua.org/ftp/lua-"
110 version ".tar.gz"))
111 (sha256
112 (base32 "0cskd4w0g6rdm2q8q3i4n1h3j8kylhs3rq8mxwl9vwlmlxbgqh16"))
113 (patches (search-patches "lua51-liblua-so.patch"
114 "lua-CVE-2014-5461.patch"
115 "lua51-pkgconfig.patch"))))))
116
117(define-public luajit
118 (package
119 (name "luajit")
120 (version "2.1.0-beta3")
121 (source (origin
122 (method url-fetch)
123 (uri (string-append "http://luajit.org/download/LuaJIT-"
124 version ".tar.gz"))
125 (sha256
126 (base32 "1hyrhpkwjqsv54hnnx4cl8vk44h9d6c9w0fz1jfjz00w255y7lhs"))
127 (patches (search-patches "luajit-no_ldconfig.patch"))))
128 (build-system gnu-build-system)
129 (arguments
130 `(#:tests? #f ; luajit is distributed without tests
131 #:phases
132 (modify-phases %standard-phases
133 (delete 'configure) ; no configure script
134 (add-after 'install 'create-luajit-symlink
135 (lambda* (#:key outputs #:allow-other-keys)
136 (let* ((out (assoc-ref outputs "out"))
137 (bin (string-append out "/bin")))
138 (with-directory-excursion bin
139 (symlink ,(string-append name "-" version)
140 ,name)
141 #t)))))
142 #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))))
143 (home-page "https://www.luajit.org/")
144 (synopsis "Just in time compiler for Lua programming language version 5.1")
145 (description
146 "LuaJIT is a Just-In-Time Compiler (JIT) for the Lua
147programming language. Lua is a powerful, dynamic and light-weight programming
148language. It may be embedded or used as a general-purpose, stand-alone
149language.")
150 (license license:x11)))
151
152(define-public lua5.1-expat
153 (package
154 (name "lua5.1-expat")
155 (version "1.3.0")
156 (source (origin
157 (method url-fetch)
158 (uri (string-append "https://matthewwild.co.uk/projects/"
159 "luaexpat/luaexpat-" version ".tar.gz"))
160 (sha256
161 (base32
162 "1hvxqngn0wf5642i5p3vcyhg3pmp102k63s9ry4jqyyqc1wkjq6h"))))
163 (build-system gnu-build-system)
164 (arguments
165 `(#:make-flags
166 (let ((out (assoc-ref %outputs "out")))
167 (list "CC=gcc"
168 (string-append "LUA_LDIR=" out "/share/lua/$(LUA_V)")
169 (string-append "LUA_CDIR=" out "/lib/lua/$(LUA_V)")))
170 #:phases
171 (modify-phases %standard-phases
172 (delete 'configure)
173 (replace 'check
174 (lambda _
175 (setenv "LUA_CPATH" "src/?.so;;")
176 (setenv "LUA_PATH" "src/?.lua;;")
177 (invoke "lua" "tests/test.lua")
178 (invoke "lua" "tests/test-lom.lua"))))))
179 (inputs
180 `(("lua" ,lua-5.1)
181 ("expat" ,expat)))
182 (home-page "http://matthewwild.co.uk/projects/luaexpat/")
183 (synopsis "SAX XML parser based on the Expat library")
184 (description "LuaExpat is a SAX XML parser based on the Expat library.")
185 (license (package-license lua-5.1))))
186
187(define-public lua5.1-socket
188 (package
189 (name "lua5.1-socket")
190 (version "3.0-rc1")
191 (source (origin
192 (method url-fetch)
193 (uri (string-append
194 "https://github.com/diegonehab/luasocket/archive/v"
195 version ".tar.gz"))
196 (file-name (string-append name "-" version ".tar.gz"))
197 (sha256
198 (base32
199 "0j8jx8bjicvp9khs26xjya8c495wrpb7parxfnabdqa5nnsxjrwb"))))
200 (build-system gnu-build-system)
201 (arguments
202 `(#:make-flags
203 (let ((out (assoc-ref %outputs "out")))
204 (list (string-append "INSTALL_TOP=" out)))
205 #:phases
206 (modify-phases %standard-phases
207 (delete 'configure)
208 (replace 'check
209 (lambda _
210 (setenv "LUA_CPATH" (string-append "src/?.so." ,version ";;"))
211 (setenv "LUA_PATH" "src/?.lua;;")
212 (when (zero? (primitive-fork))
213 (invoke "lua" "test/testsrvr.lua"))
214 (invoke "lua" "test/testclnt.lua"))))))
215 (inputs
216 `(("lua" ,lua-5.1)))
217 (home-page "http://www.tecgraf.puc-rio.br/~diego/professional/luasocket/")
218 (synopsis "Socket library for Lua")
219 (description "LuaSocket is a Lua extension library that is composed by two
220parts: a C core that provides support for the TCP and UDP transport layers,
221and a set of Lua modules that add support for functionality commonly needed by
222applications that deal with the Internet.
223
224Among the supported modules, the most commonly used implement the
225SMTP (sending e-mails), HTTP (WWW access) and FTP (uploading and downloading
226files) client protocols. These provide a very natural and generic interface
227to the functionality defined by each protocol. In addition, you will find
228that the MIME (common encodings), URL (anything you could possible want to do
229with one) and LTN12 (filters, sinks, sources and pumps) modules can be very
230handy.")
231 (license (package-license lua-5.1))))
232
233(define-public lua5.1-filesystem
234 (package
235 (name "lua5.1-filesystem")
236 (version "1.6.3")
237 (source (origin
238 (method url-fetch)
239 (uri (string-append "https://github.com/keplerproject/"
240 "luafilesystem/archive/v_"
241 "1_6_3" ".tar.gz"))
242 (file-name (string-append name "-" version ".tar.gz"))
243 (sha256
244 (base32
245 "0s10ckxin0bysd6gaywqhxkpw3ybjhprr8m655b8cx3pxjwd49am"))))
246 (build-system gnu-build-system)
247 (arguments
248 `(#:make-flags
249 (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
250 #:test-target "test"
251 #:phases
252 (modify-phases %standard-phases
253 (delete 'configure))))
254 (inputs
255 `(("lua" ,lua-5.1)))
256 (home-page "https://keplerproject.github.io/luafilesystem/index.html")
257 (synopsis "File system library for Lua")
258 (description "LuaFileSystem is a Lua library developed to complement the
259set of functions related to file systems offered by the standard Lua
260distribution. LuaFileSystem offers a portable way to access the underlying
261directory structure and file attributes.")
262 (license (package-license lua-5.1))))
263
264(define-public lua5.1-sec
265 (package
266 (name "lua5.1-sec")
267 (version "0.6")
268 (source (origin
269 (method url-fetch)
270 (uri (string-append "https://github.com/brunoos/luasec/archive/"
271 "luasec-" version ".tar.gz"))
272 (sha256
273 (base32
274 "0pgd1anzznl4s0h16wg8dlw9mgdb9h52drlcki6sbf5y31fa7wyf"))))
275 (build-system gnu-build-system)
276 (arguments
277 `(#:make-flags
278 (let ((out (assoc-ref %outputs "out")))
279 (list "linux"
280 "CC=gcc"
281 "LD=gcc"
282 (string-append "LUAPATH=" out "/share/lua/5.1")
283 (string-append "LUACPATH=" out "/lib/lua/5.1")))
284 #:tests? #f ; no tests included
285 #:phases
286 (modify-phases %standard-phases
287 (delete 'configure))))
288 (inputs
289 `(("lua" ,lua-5.1)
290 ("openssl" ,openssl)))
291 (propagated-inputs
292 `(("lua-socket" ,lua5.1-socket)))
293 (home-page "https://github.com/brunoos/luasec/wiki")
294 (synopsis "OpenSSL bindings for Lua")
295 (description "LuaSec is a binding for OpenSSL library to provide TLS/SSL
296communication. It takes an already established TCP connection and creates a
297secure session between the peers.")
298 (license (package-license lua-5.1))))
299
300(define-public lua-lgi
301 (package
302 (name "lua-lgi")
303 (version "0.9.2")
304 (source
305 (origin
306 (method url-fetch)
307 (uri (string-append
308 "https://github.com/pavouk/lgi/archive/"
309 version ".tar.gz"))
310 (file-name (string-append name "-" version ".tar.gz"))
311 (sha256
312 (base32
313 "0kwcaj3ahi9gxfyp0lr5zgr6vi1mgsg9sz0980x0nwxlh9a11i6g"))))
314 (build-system gnu-build-system)
315 (arguments
316 '(#:make-flags (list "CC=gcc"
317 (string-append "PREFIX=" (assoc-ref %outputs "out")))
318 #:phases
319 (modify-phases %standard-phases
320 (delete 'configure) ; no configure script
321 (add-before 'build 'set-env
322 (lambda* (#:key inputs #:allow-other-keys)
323 ;; we need to load cairo dynamically
324 (let* ((cairo (string-append
325 (assoc-ref inputs "cairo") "/lib" )))
326 (setenv "LD_LIBRARY_PATH" cairo)
327 #t)))
328 (add-before 'build 'set-lua-version
329 (lambda _
330 ;; lua version and therefore install directories are hardcoded
331 ;; FIXME: This breaks when we update lua to >=5.3
332 (substitute* "./lgi/Makefile"
333 (("LUA_VERSION=5.1") "LUA_VERSION=5.2"))
334 #t))
335 (add-before 'check 'skip-test-gtk
336 (lambda _
337 ;; FIXME: Skip GTK tests:
338 ;; gtk3 - can't get it to run with the xorg-server config below
339 ;; and some non-gtk tests will also fail
340 ;; gtk2 - lots of functions aren't implemented
341 ;; We choose gtk2 as the lesser evil and simply skip the test.
342 ;; Currently, awesome is the only package that uses lua-lgi but
343 ;; it doesn't need or interact with GTK using lua-lgi.
344 (substitute* "./tests/test.lua"
345 (("'gtk.lua',") "-- 'gtk.lua',"))
346 #t))
347 (add-before 'check 'start-xserver-instance
348 (lambda* (#:key inputs #:allow-other-keys)
349 ;; There must be a running X server during tests.
350 (system (format #f "~a/bin/Xvfb :1 &"
351 (assoc-ref inputs "xorg-server")))
352 (setenv "DISPLAY" ":1")
353 #t)))))
354 (inputs
355 `(("gobject-introspection" ,gobject-introspection)
356 ("glib" ,glib)
357 ("pango" ,pango)
358 ("gtk" ,gtk+-2)
359 ("lua" ,lua)
360 ("cairo" ,cairo)
361 ("libffi" ,libffi)
362 ("xorg-server" ,xorg-server)))
363 (native-inputs
364 `(("pkg-config" ,pkg-config)
365 ("dbus" ,dbus))) ;tests use 'dbus-run-session'
366 (home-page "https://github.com/pavouk/lgi/")
367 (synopsis "Lua bridge to GObject based libraries")
368 (description
369 "LGI is gobject-introspection based dynamic Lua binding to GObject
370based libraries. It allows using GObject-based libraries directly from Lua.
371Notable examples are GTK+, GStreamer and Webkit.")
372 (license license:expat)))
373
374(define (make-lua-lpeg name lua)
375 (package
376 (name name)
377 (version "1.0.1")
378 (source (origin
379 (method url-fetch)
380 (uri (string-append "http://www.inf.puc-rio.br/~roberto/lpeg/lpeg-"
381 version ".tar.gz"))
382 (sha256
383 (base32 "0sq25z3r324a324ky73izgq9mbf66j2xvjp0fxf227rwxalzgnb2"))))
384 (build-system gnu-build-system)
385 (arguments
386 `(#:phases
387 (modify-phases %standard-phases
388 (delete 'configure)
389 ;; `make install` isn't available, so we have to do it manually
390 (replace 'install
391 (lambda* (#:key outputs #:allow-other-keys)
392 (let ((out (assoc-ref outputs "out"))
393 (lua-version ,(version-major+minor (package-version lua))))
394 (install-file "lpeg.so"
395 (string-append out "/lib/lua/" lua-version))
396 (install-file "re.lua"
397 (string-append out "/share/lua/" lua-version))
398 #t))))
399 #:test-target "test"))
400 (inputs `(("lua" ,lua)))
401 (synopsis "Pattern-matching library for Lua")
402 (description
403 "LPeg is a pattern-matching library for Lua, based on Parsing Expression
404Grammars (PEGs).")
405 (home-page "http://www.inf.puc-rio.br/~roberto/lpeg")
406 (license license:expat)))
407
408(define-public lua-lpeg
409 (make-lua-lpeg "lua-lpeg" lua))
410
411(define-public lua5.2-lpeg
412 (make-lua-lpeg "lua5.2-lpeg" lua-5.2))
413
414;; Lua 5.3 is not supported.
415(define (make-lua-bitop name lua)
416 (package
417 (name name)
418 (version "1.0.2")
419 (source (origin
420 (method url-fetch)
421 (uri (string-append "http://bitop.luajit.org/download/"
422 "LuaBitOp-" version ".tar.gz"))
423 (sha256
424 (base32
425 "16fffbrgfcw40kskh2bn9q7m3gajffwd2f35rafynlnd7llwj1qj"))))
426 (build-system gnu-build-system)
427 (arguments
428 `(#:test-target "test"
429 #:make-flags
430 (list "INSTALL=install -pD"
431 (string-append "INSTALLPATH=printf "
432 (assoc-ref %outputs "out")
433 "/lib/lua/"
434 ,(version-major+minor (package-version lua))
435 "/bit/bit.so"))
436 #:phases
437 (modify-phases %standard-phases
438 (delete 'configure))))
439 (inputs `(("lua" ,lua)))
440 (home-page "https://bitop.luajit.org/index.html")
441 (synopsis "Bitwise operations on numbers for Lua")
442 (description
443 "Lua BitOp is a C extension module for Lua which adds bitwise operations
444on numbers.")
445 (license license:expat)))
446
447(define-public lua5.2-bitop
448 (make-lua-bitop "lua5.2-bitop" lua-5.2))
449
450(define-public lua5.1-bitop
451 (make-lua-bitop "lua5.1-bitop" lua-5.1))
452
453(define-public selene
454 (package
455 (name "selene")
456 (version "2017.08.25")
457 (source (origin
458 (method git-fetch)
459 (uri (git-reference
460 (url "https://github.com/jeremyong/Selene.git")
461 ;; The release is quite old.
462 (commit "ffe1ade2568d4cff5894552be8f43e63e379a4c9")))
463 (file-name "Selene")
464 (sha256
465 (base32
466 "1axrgv3rxxdsaf807lwvklfzicn6x6gpf35narllrnz9lg6hn508"))))
467 (build-system cmake-build-system)
468 (arguments
469 `(#:configure-flags
470 ;; lua pc file in CMakeLists.txt is lua5.3.pc
471 '("-DLUA_PC_CFG=lua;lua-5.3;lua-5.1")
472 #:test-target "all"
473 #:phases
474 ;; This is a header only library
475 (modify-phases %standard-phases
476 (delete 'build)
477 (replace 'install
478 (lambda* (#:key inputs outputs #:allow-other-keys)
479 (let* ((output (assoc-ref outputs "out"))
480 (source (assoc-ref inputs "source"))
481 (includedir (string-append output "/include")))
482 (copy-recursively
483 (string-append source "/include")
484 includedir))
485 #t))
486 ;; The path of test files are hard coded.
487 (replace 'check
488 (lambda* (#:key inputs outputs #:allow-other-keys)
489 (let* ((output (assoc-ref outputs "out"))
490 (source (assoc-ref inputs "source"))
491 (builddir (getcwd))
492 (testdir (string-append builddir "/test")))
493 (copy-recursively (string-append source "/test") testdir)
494 (invoke "make")
495 (mkdir-p "runner")
496 (copy-file "./test_runner" "./runner/test_runner")
497 (chdir "./runner")
498 (invoke "./test_runner")))))))
499 (native-inputs
500 `(("lua" ,lua)
501 ("pkg-config" ,pkg-config)))
502 (home-page "https://github.com/jeremyong/Selene")
503 (synopsis "Lua C++11 bindings")
504 (description
505 "Selene is a simple C++11 header-only library enabling seamless
506 interoperability between C++ and Lua programming language.")
507 (license license:zlib)))