mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-11-14 10:55:23 -05:00
324 lines
12 KiB
Scheme
324 lines
12 KiB
Scheme
;;; GNU Guix --- Functional package management for GNU
|
|
;;; Copyright © 2013 David Thompson <dthompson2@worcester.edu>
|
|
;;;
|
|
;;; 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"))))
|
|
(build-system gnu-build-system)
|
|
(arguments
|
|
'(;; Explicitly link against Xext because SDL tries to dlopen it and
|
|
;; doesn't go very far otherwise (see
|
|
;; <https://lists.gnu.org/archive/html/guix-devel/2013-11/msg00088.html>
|
|
;; for details.)
|
|
#:configure-flags '("LDFLAGS=-lXext")
|
|
|
|
#:tests? #f)) ; no check target
|
|
(propagated-inputs
|
|
;; SDL headers include X11 headers.
|
|
`(("libx11" ,libx11)))
|
|
(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.0")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri
|
|
(string-append "http://libsdl.org/release/SDL2-"
|
|
version ".tar.gz"))
|
|
(sha256
|
|
(base32
|
|
"0y3in99brki7vc2mb4c0w39v70mf4h341mblhh8nmq4h7lawhskg"))))
|
|
(license bsd-3)))
|
|
|
|
(define libmikmod
|
|
(package
|
|
(name "libmikmod")
|
|
(version "3.3.3")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append "mirror://sourceforge/mikmod/libmikmod/"
|
|
version "/libmikmod-" version ".tar.gz"))
|
|
(sha256
|
|
(base32
|
|
"0dr4kgvhq9wf2riibh178c2al996spwwak6zffpv5n5bqmw29w3r"))))
|
|
(build-system gnu-build-system)
|
|
(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)
|
|
(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+)))
|