blob: 30f919d25a99d7868d14328effdfd0162d1590fb (
about) (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
(define-module (wigust packages games)
#:use-module (ice-9 match)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix utils)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix git-download)
#:use-module (guix gexp)
#:use-module (gnu packages)
#:use-module (gnu packages games)
#:use-module (gnu packages sdl)
#:use-module (gnu packages fontutils)
#:use-module (gnu packages xorg)
#:use-module (gnu packages perl)
#:use-module (guix build-system trivial))
(define-public stb
(let ((commit "9d9f75eb682dd98b34de08bb5c489c6c561c9fa6")
(revision "1"))
(package
(name "stb")
(version (string-append "0.0.1-" revision "."
(string-take commit 7)))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "git://github.com/nothings/stb.git")
(commit commit)))
(file-name (string-append name "-" version "-checkout"))
(sha256
(base32
"0q84bl6ai2mrcywrynvqvvlr6dpyafx33j3xaz6n38z5gi8lcmzx"))))
(build-system trivial-build-system)
(inputs `(("source" ,source)))
(arguments
`(#:modules
((guix build utils))
#:builder
(begin
(use-modules (guix build utils))
(for-each (lambda (file)
(install-file file (string-append %output
"/include/stb")))
(find-files (assoc-ref %build-inputs "source")
"\\.h$")))))
(home-page "https://github.com/nothings/stb")
(synopsis "stb single-file public domain libraries for C/C++")
(description "stb single-file public domain libraries for C/C++")
(license license:expat))))
(define-public angband-nonfree
;; TODO: Sound, X11.
(package
(inherit angband)
(name "angband-nonfree")
(version "4.1.0")
(source
(origin
(method url-fetch)
(uri (string-append "http://rephial.org/downloads/4.1/"
"angband-" version ".tar.gz"))
(sha256
(base32
"0vhvzbrm6hwca2yp02pg2vzg4c5yf65whg0bmjbalmhy1r4kw51x"))))
(inputs
`(("sdl-union" ,(sdl-union (list sdl sdl-image sdl-mixer sdl-ttf)))
("freetype" ,freetype)
("libx11" ,libx11)
("perl" ,perl)
,@(package-inputs angband)))
(arguments
`(#:tests?
#f
#:configure-flags
(list (string-append "--bindir=" %output "/bin")
(string-append "--sysconfdir=" %output "/share/angband")
"--enable-sdl" "CFLAGS=-fgnu89-inline" "--enable-sdl-mixer")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'autogen.sh
(lambda _
(zero? (system* "sh" "autogen.sh"))
(substitute* "src/main-sdl.c" (("SDL_ttf.h") "SDL/SDL_ttf.h"))
(substitute* "src/main-sdl.c" (("SDL_image.h") "SDL/SDL_image.h"))
#t)))))))
|
