[jackhill/guix/guix.git] / gnu / packages / sdl.scm

;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 David Thompson <dthompson2@worcester.edu>
;;; Copyright © 2014 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2015 Sou Bunnbu <iyzsong@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU 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.
;;;
;;; GNU 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 GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages sdl)
  #:use-module (gnu packages)
  #:use-module (guix licenses)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu)
  #:use-module (guix build-system trivial)
  #:use-module ((gnu packages fontutils) #:prefix font:)
  #:use-module (gnu packages guile)
  #:use-module (gnu packages image)
  #:use-module (gnu packages linux)
  #:use-module (gnu packages mp3)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages pulseaudio)
  #:use-module (gnu packages gl)
  #:use-module (gnu packages xiph)
  #:use-module (gnu packages xorg)
  #:export (sdl
            sdl2
            libmikmod
            sdl-gfx
            sdl-image
            sdl-mixer
            sdl-net
            sdl-ttf))

(define sdl
  (package
    (name "sdl")
    (version "1.2.15")
    (source (origin
             (method url-fetch)
             (uri
              (string-append "http://libsdl.org/release/SDL-"
                             version ".tar.gz"))
             (sha256
              (base32
               "005d993xcac8236fpvd1iawkz4wqjybkpn8dbwaliqz5jfkidlyn"))
             (patches (list (search-patch "sdl-libx11-1.6.patch")))))
    (build-system gnu-build-system)
    (arguments
     '(;; Explicitly link against shared libraries instead of dlopening them.
       ;; For X11, ALSA, PulseAudio, etc.
       #:configure-flags '("--disable-sdl-dlopen")

       #:tests? #f)) ; no check target
    (propagated-inputs
     ;; SDL headers include X11 headers.
     `(("libx11" ,libx11)
       ("libcap" ,libcap))) ; 'libSDL.la' contain `-lcap'.
    (native-inputs `(("pkg-config" ,pkg-config)))
    (inputs `(("libxrandr" ,libxrandr)
              ("mesa" ,mesa)
              ("alsa-lib" ,alsa-lib)
              ("pulseaudio" ,pulseaudio)))
    (synopsis "Cross platform game development library")
    (description "Simple DirectMedia Layer is a cross-platform development
library designed to provide low level access to audio, keyboard, mouse,
joystick, and graphics hardware.")
    (home-page "http://libsdl.org/")
    (license lgpl2.1)))

(define sdl2
  (package (inherit sdl)
    (name "sdl2")
    (version "2.0.3")
    (source (origin
             (method url-fetch)
             (uri
              (string-append "http://libsdl.org/release/SDL2-"
                             version ".tar.gz"))
             (sha256
              (base32
               "0369ngvb46x6c26h8zva4x22ywgy6mvn0wx87xqwxg40pxm9m9m5"))))
    (license bsd-3)))

(define libmikmod
  (package
    (name "libmikmod")
    (version "3.3.7")
    (source (origin
             (method url-fetch)
             (uri (string-append "mirror://sourceforge/mikmod/libmikmod/"
                                 version "/libmikmod-" version ".tar.gz"))
             (sha256
              (base32
               "18nrkf5l50hfg0y50yxr7bvik9f002lhn8c00nbcp6dgm5011x2c"))))
    (build-system gnu-build-system)
    (arguments
     ;; By default, libmikmod tries to dlopen libasound etc., which won't work
     ;; unless the right libalsa happens to be in $LD_LIBRARY_PATH.  Pass
     ;; '--disable-dl' to avoid that.
     '(#:configure-flags '("--disable-dl")))
    (inputs `(("alsa-lib" ,alsa-lib)
              ("libx11" ,libx11)))
    (synopsis "Library for module sound formats")
    (description
     "MikMod is able to play a wide range of module formats, as well as
digital sound files.  It can take advantage of particular features of your
system, such as sound redirection over the network.")
    (license lgpl2.1)
    (home-page "http://mikmod.sourceforge.net/")))

(define sdl-gfx
  (package
    (name "sdl-gfx")
    (version "2.0.24")
    (source (origin
              (method url-fetch)
              (uri
               (string-append "http://www.ferzkopp.net/Software/SDL_gfx-2.0/SDL_gfx-"
                              version ".tar.gz"))
              (sha256
               (base32
                "064islldm4r42lgj9fr4kbk66r7jmmakk9745hhyb1kmw71kib9h"))))
    (build-system gnu-build-system)
    (propagated-inputs `(("sdl" ,sdl)))
    (synopsis "SDL graphics primitives library")
    (description "SDL_gfx provides graphics drawing primitives, rotozoom and
other supporting functions for SDL.")
    (home-page "http://www.ferzkopp.net/joomla/software-mainmenu-14/4-ferzkopps-linux-software/19-sdlgfx")
    (license zlib)

    ;; The code apparently includes Intel assembly, which fails to build on
    ;; MIPS, at least.
    (supported-systems '("i686-linux" "x86_64-linux"))))

(define sdl-image
  (package
    (name "sdl-image")
    (version "1.2.12")
    (source (origin
             (method url-fetch)
             (uri
              (string-append "http://www.libsdl.org/projects/SDL_image/release/SDL_image-"
                             version ".tar.gz"))
             (sha256
              (base32
               "16an9slbb8ci7d89wakkmyfvp7c0cval8xw4hkg0842nhhlp540b"))))
    (build-system gnu-build-system)
    (arguments
     ;; Explicitly link against shared libraries instead of dlopening them.
     '(#:configure-flags '("--disable-jpg-shared"
                           "--disable-png-shared"
                           "--disable-tif-shared"
                           "--disable-webp-shared")))
    (native-inputs `(("pkg-config" ,pkg-config)))
    ;; FIXME: Add webp
    ;;
    ;; libjpeg, libpng, and libtiff are propagated inputs because the
    ;; SDL_image headers include the headers of these libraries.  SDL is a
    ;; propagated input because the pkg-config file refers to SDL's pkg-config
    ;; file.
    (propagated-inputs `(("sdl" ,sdl)
                         ("libjpeg" ,libjpeg)
                         ("libpng" ,libpng)
                         ("libtiff" ,libtiff)))
    (synopsis "SDL image loading library")
    (description "SDL_image is an image file loading library for SDL that
supports the following formats: BMP, GIF, JPEG, LBM, PCX, PNG, PNM, TGA, TIFF,
WEBP, XCF, XPM, and XV.")
    (home-page "http://www.libsdl.org/projects/SDL_image/")
    (license zlib)))

(define sdl-mixer
  (package
    (name "sdl-mixer")
    (version "1.2.12")
    (source (origin
              (method url-fetch)
              (uri
               (string-append "http://www.libsdl.org/projects/SDL_mixer/release/SDL_mixer-"
                              version ".tar.gz"))
              (sha256
               (base32
                "0alrhqgm40p4c92s26mimg9cm1y7rzr6m0p49687jxd9g6130i0n"))))
    (build-system gnu-build-system)
    ;; no check target
    ;; use libmad instead of smpeg
    (arguments `(#:tests? #f
                 #:configure-flags '("--enable-music-mp3-mad-gpl")))
    (inputs `(("libvorbis" ,libvorbis)
              ("libflac" ,flac)
              ("libmad" ,libmad)
              ("libmikmod" ,libmikmod)))
    ;; FIXME: Add libfluidsynth
    (propagated-inputs `(("sdl" ,sdl)))
    (synopsis "SDL multi-channel audio mixer library")
    (description "SDL_mixer is a multi-channel audio mixer library for SDL.
It supports any number of simultaneously playing channels of 16 bit stereo
audio, plus a single channel of music.  Supported format include FLAC, MOD,
MIDI, Ogg Vorbis, and MP3.")
    (home-page "http://www.libsdl.org/projects/SDL_mixer/")
    (license zlib)))

(define sdl-net
  (package
    (name "sdl-net")
    (version "1.2.8")
    (source (origin
              (method url-fetch)
              (uri
               (string-append "http://www.libsdl.org/projects/SDL_net/release/SDL_net-"
                              version ".tar.gz"))
              (sha256
               (base32
                "1d5c9xqlf4s1c01gzv6cxmg0r621pq9kfgxcg3197xw4p25pljjz"))))
    (build-system gnu-build-system)
    (propagated-inputs `(("sdl" ,sdl)))
    (native-inputs `(("pkg-config" ,pkg-config)))
    (synopsis "SDL networking library")
    (description "SDL_net is a small, cross-platform networking library for
SDL.")
    (home-page "http://www.libsdl.org/projects/SDL_net/")
    (license zlib)))

(define sdl-ttf
  (package
    (name "sdl-ttf")
    (version "2.0.11")
    (source (origin
             (method url-fetch)
             (uri
              (string-append "http://www.libsdl.org/projects/SDL_ttf/release/SDL_ttf-"
                             version ".tar.gz"))
             (sha256
              (base32
               "1dydxd4f5kb1288i5n5568kdk2q7f8mqjr7i7sd33nplxjaxhk3j"))))
    (build-system gnu-build-system)
    (propagated-inputs `(("sdl" ,sdl)))
    (inputs `(("freetype" ,font:freetype)
              ("mesa" ,mesa)))
    (native-inputs `(("pkg-config" ,pkg-config)))
    (synopsis "SDL TrueType font library")
    (description "SDL_ttf is a TrueType font rendering library for SDL.")
    (home-page "http://www.libsdl.org/projects/SDL_ttf/")
    (license zlib)))

(define sdl-union
  (package
    (name "sdl-union")
    (version (package-version sdl))
    (source #f)
    (build-system trivial-build-system)
    (arguments
     '(#:modules ((guix build union))
       #:builder (begin
                   (use-modules (ice-9 match)
                                (guix build union))
                   (match %build-inputs
                     (((names . directories) ...)
                      (union-build (assoc-ref %outputs "out")
                                   directories))))))
    (inputs `(("sdl" ,sdl)
              ("sdl-gfx" ,sdl-gfx)
              ("sdl-image" ,sdl-image)
              ("sdl-mixer" ,sdl-mixer)
              ("sdl-ttf" ,sdl-ttf)))
    (synopsis "Union of all SDL libraries")
    (description
     "A union of SDL and its extension libraries.  A union is required because
sdl-config assumes that all of the headers and libraries are in the same
directory.")
    (home-page (package-home-page sdl))
    (license (package-license sdl))))

(define-public guile-sdl
  (package
    (name "guile-sdl")
    (version "0.5.1")
    (source (origin
              (method url-fetch)
              (uri
               (string-append "mirror://gnu/guile-sdl/guile-sdl-"
                              version ".tar.xz"))
              (sha256
               (base32
                "126n4rd0ydh6i2s11ari5k85iivradlf12zq13b34shf9k1wn5am"))))
    (build-system gnu-build-system)
    (native-inputs
     `(("pkg-config" ,pkg-config)
       ;; Required by test suite.
       ("xorg-server" ,xorg-server)
       ("libjpeg" ,libjpeg)))
    (inputs
     `(("guile" ,guile-2.0)
       ("sdl-union" ,sdl-union)))
    (arguments
     '(#:configure-flags
       (list (string-append "--with-sdl-prefix="
                            (assoc-ref %build-inputs "sdl-union")))
       #:parallel-build? #f ; parallel build fails
       #:phases
       (alist-cons-before
        'configure 'fix-env-and-patch
        (lambda* (#:key inputs #:allow-other-keys)
          (setenv "GUILE_AUTO_COMPILE" "0")
          ;; SDL_image needs to dlopen libjpeg in the test suite.
          (setenv "LD_LIBRARY_PATH"
                  (string-append (assoc-ref inputs "libjpeg") "/lib"))
          ;; Change the site directory /site/2.0 like Guile expects.
          (substitute* "build-aux/guile-baux/re-prefixed-site-dirs"
            (("\"/site\"") "\"/site/2.0\"")))
        (alist-cons-before
         'check 'start-xorg-server
         (lambda* (#:key inputs #:allow-other-keys)
           ;; The test suite requires a running X server.
           (system (format #f "~a/bin/Xvfb :1 &"
                           (assoc-ref inputs "xorg-server")))
           (setenv "DISPLAY" ":1"))
         %standard-phases))))
    (synopsis "Guile interface for SDL (Simple DirectMedia Layer)")
    (description "Guile-SDL is a set of bindings to the Simple DirectMedia
Layer (SDL).  With them, Guile programmers can have easy access to graphics,
sound and device input (keyboards, joysticks, mice, etc.).")
    (home-page "http://gnu.org/s/guile-sdl")
    (license gpl3+)))
Commit	Line	Data
c3c516ea DT	1	;;; GNU Guix --- Functional package management for GNU
c3c516ea DT	2	;;; Copyright © 2013 David Thompson <dthompson2@worcester.edu>
9cb3036f	3	;;; Copyright © 2014 Mark H Weaver <mhw@netris.org>
666aa995	4	;;; Copyright © 2015 Sou Bunnbu <iyzsong@gmail.com>
c3c516ea DT	5	;;;
	6	;;; This file is part of GNU Guix.
	7	;;;
	8	;;; GNU Guix is free software; you can redistribute it and/or modify it
	9	;;; under the terms of the GNU General Public License as published by
	10	;;; the Free Software Foundation; either version 3 of the License, or (at
	11	;;; your option) any later version.
	12	;;;
	13	;;; GNU Guix is distributed in the hope that it will be useful, but
	14	;;; WITHOUT ANY WARRANTY; without even the implied warranty of
	15	;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	16	;;; GNU General Public License for more details.
	17	;;;
	18	;;; You should have received a copy of the GNU General Public License
	19	;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
	20
	21	(define-module (gnu packages sdl)
	22	#:use-module (gnu packages)
	23	#:use-module (guix licenses)
	24	#:use-module (guix packages)
	25	#:use-module (guix download)
	26	#:use-module (guix build-system gnu)
d6f74baf	27	#:use-module (guix build-system trivial)
5cf3bcd4	28	#:use-module ((gnu packages fontutils) #:prefix font:)
bcc046fc	29	#:use-module (gnu packages guile)
e55354b8	30	#:use-module (gnu packages image)
c3c516ea	31	#:use-module (gnu packages linux)
5cf3bcd4	32	#:use-module (gnu packages mp3)
8bf8d7c7 DT	33	#:use-module (gnu packages pkg-config)
8bf8d7c7 DT	34	#:use-module (gnu packages pulseaudio)
200726ed	35	#:use-module (gnu packages gl)
54ff0b7d	36	#:use-module (gnu packages xiph)
c3c516ea	37	#:use-module (gnu packages xorg)
8bf8d7c7 DT	38	#:export (sdl
8bf8d7c7 DT	39	sdl2
5cf3bcd4 DT	40	libmikmod
	41	sdl-gfx
	42	sdl-image
	43	sdl-mixer
	44	sdl-net
	45	sdl-ttf))
8bf8d7c7 DT	46
	47	(define sdl
	48	(package
	49	(name "sdl")
	50	(version "1.2.15")
	51	(source (origin
	52	(method url-fetch)
	53	(uri
	54	(string-append "http://libsdl.org/release/SDL-"
	55	version ".tar.gz"))
	56	(sha256
	57	(base32
9cb3036f MW	58	"005d993xcac8236fpvd1iawkz4wqjybkpn8dbwaliqz5jfkidlyn"))
9cb3036f MW	59	(patches (list (search-patch "sdl-libx11-1.6.patch")))))
8bf8d7c7	60	(build-system gnu-build-system)
22f33e61	61	(arguments
666aa995 SB	62	'(;; Explicitly link against shared libraries instead of dlopening them.
	63	;; For X11, ALSA, PulseAudio, etc.
	64	#:configure-flags '("--disable-sdl-dlopen")
22f33e61 LC	65
22f33e61 LC	66	#:tests? #f)) ; no check target
558a5122 LC	67	(propagated-inputs
558a5122 LC	68	;; SDL headers include X11 headers.
666aa995 SB	69	`(("libx11" ,libx11)
666aa995 SB	70	("libcap" ,libcap))) ; 'libSDL.la' contain `-lcap'.
22f33e61	71	(native-inputs `(("pkg-config" ,pkg-config)))
558a5122	72	(inputs `(("libxrandr" ,libxrandr)
8bf8d7c7 DT	73	("mesa" ,mesa)
8bf8d7c7 DT	74	("alsa-lib" ,alsa-lib)
8bf8d7c7 DT	75	("pulseaudio" ,pulseaudio)))
	76	(synopsis "Cross platform game development library")
	77	(description "Simple DirectMedia Layer is a cross-platform development
	78	library designed to provide low level access to audio, keyboard, mouse,
	79	joystick, and graphics hardware.")
	80	(home-page "http://libsdl.org/")
	81	(license lgpl2.1)))
	82
	83	(define sdl2
	84	(package (inherit sdl)
	85	(name "sdl2")
b907324d	86	(version "2.0.3")
8bf8d7c7 DT	87	(source (origin
	88	(method url-fetch)
	89	(uri
	90	(string-append "http://libsdl.org/release/SDL2-"
	91	version ".tar.gz"))
	92	(sha256
	93	(base32
b907324d	94	"0369ngvb46x6c26h8zva4x22ywgy6mvn0wx87xqwxg40pxm9m9m5"))))
8bf8d7c7	95	(license bsd-3)))
c3c516ea DT	96
	97	(define libmikmod
	98	(package
	99	(name "libmikmod")
1effda8d	100	(version "3.3.7")
c3c516ea DT	101	(source (origin
	102	(method url-fetch)
	103	(uri (string-append "mirror://sourceforge/mikmod/libmikmod/"
	104	version "/libmikmod-" version ".tar.gz"))
	105	(sha256
	106	(base32
1effda8d	107	"18nrkf5l50hfg0y50yxr7bvik9f002lhn8c00nbcp6dgm5011x2c"))))
c3c516ea	108	(build-system gnu-build-system)
03920078 LC	109	(arguments
	110	;; By default, libmikmod tries to dlopen libasound etc., which won't work
	111	;; unless the right libalsa happens to be in $LD_LIBRARY_PATH. Pass
	112	;; '--disable-dl' to avoid that.
	113	'(#:configure-flags '("--disable-dl")))
c3c516ea DT	114	(inputs `(("alsa-lib" ,alsa-lib)
c3c516ea DT	115	("libx11" ,libx11)))
9e771e3b	116	(synopsis "Library for module sound formats")
c3c516ea DT	117	(description
c3c516ea DT	118	"MikMod is able to play a wide range of module formats, as well as
35b9e423	119	digital sound files. It can take advantage of particular features of your
c3c516ea DT	120	system, such as sound redirection over the network.")
	121	(license lgpl2.1)
	122	(home-page "http://mikmod.sourceforge.net/")))
5cf3bcd4 DT	123
	124	(define sdl-gfx
	125	(package
	126	(name "sdl-gfx")
	127	(version "2.0.24")
	128	(source (origin
	129	(method url-fetch)
	130	(uri
	131	(string-append "http://www.ferzkopp.net/Software/SDL_gfx-2.0/SDL_gfx-"
	132	version ".tar.gz"))
	133	(sha256
	134	(base32
	135	"064islldm4r42lgj9fr4kbk66r7jmmakk9745hhyb1kmw71kib9h"))))
	136	(build-system gnu-build-system)
	137	(propagated-inputs `(("sdl" ,sdl)))
5cf3bcd4 DT	138	(synopsis "SDL graphics primitives library")
	139	(description "SDL_gfx provides graphics drawing primitives, rotozoom and
	140	other supporting functions for SDL.")
	141	(home-page "http://www.ferzkopp.net/joomla/software-mainmenu-14/4-ferzkopps-linux-software/19-sdlgfx")
1d830bc0 LC	142	(license zlib)
	143
	144	;; The code apparently includes Intel assembly, which fails to build on
	145	;; MIPS, at least.
	146	(supported-systems '("i686-linux" "x86_64-linux"))))
5cf3bcd4 DT	147
	148	(define sdl-image
	149	(package
	150	(name "sdl-image")
	151	(version "1.2.12")
	152	(source (origin
	153	(method url-fetch)
	154	(uri
	155	(string-append "http://www.libsdl.org/projects/SDL_image/release/SDL_image-"
	156	version ".tar.gz"))
	157	(sha256
	158	(base32
	159	"16an9slbb8ci7d89wakkmyfvp7c0cval8xw4hkg0842nhhlp540b"))))
	160	(build-system gnu-build-system)
7c3e60fb SB	161	(arguments
	162	;; Explicitly link against shared libraries instead of dlopening them.
	163	'(#:configure-flags '("--disable-jpg-shared"
	164	"--disable-png-shared"
	165	"--disable-tif-shared"
	166	"--disable-webp-shared")))
586b6d4d	167	(native-inputs `(("pkg-config" ,pkg-config)))
5cf3bcd4	168	;; FIXME: Add webp
586b6d4d DT	169	;;
	170	;; libjpeg, libpng, and libtiff are propagated inputs because the
	171	;; SDL_image headers include the headers of these libraries. SDL is a
	172	;; propagated input because the pkg-config file refers to SDL's pkg-config
	173	;; file.
	174	(propagated-inputs `(("sdl" ,sdl)
	175	("libjpeg" ,libjpeg)
	176	("libpng" ,libpng)
	177	("libtiff" ,libtiff)))
5cf3bcd4 DT	178	(synopsis "SDL image loading library")
	179	(description "SDL_image is an image file loading library for SDL that
	180	supports the following formats: BMP, GIF, JPEG, LBM, PCX, PNG, PNM, TGA, TIFF,
	181	WEBP, XCF, XPM, and XV.")
6b464e6e	182	(home-page "http://www.libsdl.org/projects/SDL_image/")
5cf3bcd4 DT	183	(license zlib)))
	184
	185	(define sdl-mixer
	186	(package
	187	(name "sdl-mixer")
	188	(version "1.2.12")
	189	(source (origin
	190	(method url-fetch)
	191	(uri
	192	(string-append "http://www.libsdl.org/projects/SDL_mixer/release/SDL_mixer-"
	193	version ".tar.gz"))
	194	(sha256
	195	(base32
	196	"0alrhqgm40p4c92s26mimg9cm1y7rzr6m0p49687jxd9g6130i0n"))))
	197	(build-system gnu-build-system)
	198	;; no check target
	199	;; use libmad instead of smpeg
	200	(arguments `(#:tests? #f
	201	#:configure-flags '("--enable-music-mp3-mad-gpl")))
	202	(inputs `(("libvorbis" ,libvorbis)
	203	("libflac" ,flac)
	204	("libmad" ,libmad)
	205	("libmikmod" ,libmikmod)))
	206	;; FIXME: Add libfluidsynth
	207	(propagated-inputs `(("sdl" ,sdl)))
	208	(synopsis "SDL multi-channel audio mixer library")
	209	(description "SDL_mixer is a multi-channel audio mixer library for SDL.
	210	It supports any number of simultaneously playing channels of 16 bit stereo
	211	audio, plus a single channel of music. Supported format include FLAC, MOD,
	212	MIDI, Ogg Vorbis, and MP3.")
6b464e6e	213	(home-page "http://www.libsdl.org/projects/SDL_mixer/")
5cf3bcd4 DT	214	(license zlib)))
	215
	216	(define sdl-net
	217	(package
	218	(name "sdl-net")
	219	(version "1.2.8")
	220	(source (origin
	221	(method url-fetch)
	222	(uri
	223	(string-append "http://www.libsdl.org/projects/SDL_net/release/SDL_net-"
	224	version ".tar.gz"))
	225	(sha256
	226	(base32
	227	"1d5c9xqlf4s1c01gzv6cxmg0r621pq9kfgxcg3197xw4p25pljjz"))))
	228	(build-system gnu-build-system)
	229	(propagated-inputs `(("sdl" ,sdl)))
41eb1198	230	(native-inputs `(("pkg-config" ,pkg-config)))
5cf3bcd4 DT	231	(synopsis "SDL networking library")
	232	(description "SDL_net is a small, cross-platform networking library for
	233	SDL.")
6b464e6e	234	(home-page "http://www.libsdl.org/projects/SDL_net/")
5cf3bcd4 DT	235	(license zlib)))
	236
	237	(define sdl-ttf
	238	(package
	239	(name "sdl-ttf")
	240	(version "2.0.11")
	241	(source (origin
	242	(method url-fetch)
	243	(uri
	244	(string-append "http://www.libsdl.org/projects/SDL_ttf/release/SDL_ttf-"
	245	version ".tar.gz"))
	246	(sha256
	247	(base32
	248	"1dydxd4f5kb1288i5n5568kdk2q7f8mqjr7i7sd33nplxjaxhk3j"))))
	249	(build-system gnu-build-system)
	250	(propagated-inputs `(("sdl" ,sdl)))
	251	(inputs `(("freetype" ,font:freetype)
41eb1198 LC	252	("mesa" ,mesa)))
41eb1198 LC	253	(native-inputs `(("pkg-config" ,pkg-config)))
5cf3bcd4 DT	254	(synopsis "SDL TrueType font library")
5cf3bcd4 DT	255	(description "SDL_ttf is a TrueType font rendering library for SDL.")
6b464e6e	256	(home-page "http://www.libsdl.org/projects/SDL_ttf/")
5cf3bcd4	257	(license zlib)))
d6f74baf DT	258
	259	(define sdl-union
	260	(package
	261	(name "sdl-union")
	262	(version (package-version sdl))
	263	(source #f)
	264	(build-system trivial-build-system)
	265	(arguments
	266	'(#:modules ((guix build union))
	267	#:builder (begin
	268	(use-modules (ice-9 match)
	269	(guix build union))
	270	(match %build-inputs
	271	(((names . directories) ...)
	272	(union-build (assoc-ref %outputs "out")
	273	directories))))))
	274	(inputs `(("sdl" ,sdl)
	275	("sdl-gfx" ,sdl-gfx)
	276	("sdl-image" ,sdl-image)
	277	("sdl-mixer" ,sdl-mixer)
	278	("sdl-ttf" ,sdl-ttf)))
	279	(synopsis "Union of all SDL libraries")
	280	(description
	281	"A union of SDL and its extension libraries. A union is required because
	282	sdl-config assumes that all of the headers and libraries are in the same
	283	directory.")
	284	(home-page (package-home-page sdl))
	285	(license (package-license sdl))))
bcc046fc DT	286
	287	(define-public guile-sdl
	288	(package
	289	(name "guile-sdl")
	290	(version "0.5.1")
	291	(source (origin
	292	(method url-fetch)
	293	(uri
	294	(string-append "mirror://gnu/guile-sdl/guile-sdl-"
	295	version ".tar.xz"))
	296	(sha256
	297	(base32
	298	"126n4rd0ydh6i2s11ari5k85iivradlf12zq13b34shf9k1wn5am"))))
	299	(build-system gnu-build-system)
	300	(native-inputs
	301	`(("pkg-config" ,pkg-config)
	302	;; Required by test suite.
	303	("xorg-server" ,xorg-server)
	304	("libjpeg" ,libjpeg)))
	305	(inputs
	306	`(("guile" ,guile-2.0)
	307	("sdl-union" ,sdl-union)))
	308	(arguments
	309	'(#:configure-flags
	310	(list (string-append "--with-sdl-prefix="
	311	(assoc-ref %build-inputs "sdl-union")))
	312	#:parallel-build? #f ; parallel build fails
	313	#:phases
	314	(alist-cons-before
	315	'configure 'fix-env-and-patch
	316	(lambda* (#:key inputs #:allow-other-keys)
	317	(setenv "GUILE_AUTO_COMPILE" "0")
	318	;; SDL_image needs to dlopen libjpeg in the test suite.
	319	(setenv "LD_LIBRARY_PATH"
	320	(string-append (assoc-ref inputs "libjpeg") "/lib"))
	321	;; Change the site directory /site/2.0 like Guile expects.
	322	(substitute* "build-aux/guile-baux/re-prefixed-site-dirs"
	323	(("\"/site\"") "\"/site/2.0\"")))
	324	(alist-cons-before
	325	'check 'start-xorg-server
	326	(lambda* (#:key inputs #:allow-other-keys)
	327	;; The test suite requires a running X server.
	328	(system (format #f "~a/bin/Xvfb :1 &"
	329	(assoc-ref inputs "xorg-server")))
	330	(setenv "DISPLAY" ":1"))
	331	%standard-phases))))
	332	(synopsis "Guile interface for SDL (Simple DirectMedia Layer)")
	333	(description "Guile-SDL is a set of bindings to the Simple DirectMedia
	334	Layer (SDL). With them, Guile programmers can have easy access to graphics,
	335	sound and device input (keyboards, joysticks, mice, etc.).")
	336	(home-page "http://gnu.org/s/guile-sdl")
	337	(license gpl3+)))