HCoop / jackhill / guix / guix.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
gnu: openh264: Fix building on armhf and aarch64.
[jackhill/guix/guix.git] / gnu / packages / video.scm
CommitLineData
39efcc9b 1;;; GNU Guix --- Functional package management for GNU
71ee51a0 2;;; Copyright © 2013, 2014, 2015, 2016 Andreas Enge <andreas@enge.fr>
945d985a 3;;; Copyright © 2014, 2015, 2016 David Thompson <davet@gnu.org>
ca3f9952 4;;; Copyright © 2014, 2015, 2016 Mark H Weaver <mhw@netris.org>
cda163cd 5;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
68b3627c 6;;; Copyright © 2015, 2016, 2017 Efraim Flashner <efraim@flashner.co.il>
12f92e38 7;;; Copyright © 2015 Andy Patterson <ajpatter@uwaterloo.ca>
307ad140 8;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net>
8824da4c 9;;; Copyright © 2015, 2016 Alex Vong <alexvong1995@gmail.com>
2b841707 10;;; Copyright © 2016, 2017 Alex Griffin <a@ajgrf.com>
d8841cc5 11;;; Copyright © 2016 Kei Kebreau <kei@openmailbox.org>
ed6ba9cc 12;;; Copyright © 2016 Dmitry Nikolaev <cameltheman@gmail.com>
4df07622 13;;; Copyright © 2016 Andy Patterson <ajpatter@uwaterloo.ca>
3a44c7bb 14;;; Copyright © 2016, 2017 ng0 <contact.ng0@cryptolab.net>
fe047e13 15;;; Copyright © 2016 Eric Bavier <bavier@member.fsf.org>
590abe01 16;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
72fa6667 17;;; Copyright © 2017 Feng Shu <tumashu@163.com>
b8a31908 18;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
794223bc 19;;; Copyright © 2017 Chris Marusich <cmmarusich@gmail.com>
b5b20bda 20;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
e0c40707 21;;; Copyright © 2017 Ethan R. Jones <doubleplusgood23@gmail.com>
fa379a5b 22;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org>
39efcc9b
AE		 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
39(define-module (gnu packages video)
fe138965 40 #:use-module (ice-9 match)
08858812 41 #:use-module (srfi srfi-1)
ae0bdd81 42 #:use-module ((guix licenses) #:prefix license:)
e930c2a3 43 #:use-module (guix utils)
39efcc9b
AE		 44 #:use-module (guix packages)
45 #:use-module (guix download)
38829eac 46 #:use-module (guix git-download)
d8841cc5 47 #:use-module (guix svn-download)
44726031 48 #:use-module (guix build-system cmake)
39efcc9b 49 #:use-module (guix build-system gnu)
0e74bb5b 50 #:use-module (guix build-system glib-or-gtk)
615215a5 51 #:use-module (guix build-system python)
1c1178cd 52 #:use-module (guix build-system waf)
3b02429c 53 #:use-module (gnu packages)
39efcc9b 54 #:use-module (gnu packages algebra)
72bfebf5 55 #:use-module (gnu packages audio)
f1044010 56 #:use-module (gnu packages autotools)
d5a748e8 57 #:use-module (gnu packages avahi)
38829eac 58 #:use-module (gnu packages base)
8dd6fc51 59 #:use-module (gnu packages bison)
d5a748e8 60 #:use-module (gnu packages cdrom)
fe047e13 61 #:use-module (gnu packages cmake)
39efcc9b 62 #:use-module (gnu packages compression)
e0c40707 63 #:use-module (gnu packages cpp)
f464016d 64 #:use-module (gnu packages curl)
44726031 65 #:use-module (gnu packages databases)
3a44c7bb 66 #:use-module (gnu packages dejagnu)
f22e0e26 67 #:use-module (gnu packages elf)
8dd6fc51 68 #:use-module (gnu packages flex)
39efcc9b 69 #:use-module (gnu packages fontutils)
c161c22a 70 #:use-module (gnu packages freedesktop)
44726031
AE		 71 #:use-module (gnu packages fribidi)
72 #:use-module (gnu packages gettext)
38829eac 73 #:use-module (gnu packages ghostscript)
d5a748e8
AE		 74 #:use-module (gnu packages gl)
75 #:use-module (gnu packages glib)
2cd85cf9 76 #:use-module (gnu packages guile)
fe047e13 77 #:use-module (gnu packages gnome)
d5a748e8 78 #:use-module (gnu packages gnupg)
fe047e13 79 #:use-module (gnu packages gstreamer)
44726031 80 #:use-module (gnu packages gtk)
e55354b8 81 #:use-module (gnu packages image)
b5b20bda 82 #:use-module (gnu packages imagemagick)
d5a748e8
AE		 83 #:use-module (gnu packages linux)
84 #:use-module (gnu packages lua)
fe047e13 85 #:use-module (gnu packages m4)
3a44c7bb 86 #:use-module (gnu packages man)
d5a748e8 87 #:use-module (gnu packages mp3)
4d94b93c 88 #:use-module (gnu packages ncurses)
6f6c8b65 89 #:use-module (gnu packages ocr)
39efcc9b
AE		 90 #:use-module (gnu packages perl)
91 #:use-module (gnu packages pkg-config)
a7d94b54 92 #:use-module (gnu packages popt)
d5a748e8 93 #:use-module (gnu packages pulseaudio)
39efcc9b 94 #:use-module (gnu packages python)
d5a748e8
AE		 95 #:use-module (gnu packages qt)
96 #:use-module (gnu packages sdl)
97 #:use-module (gnu packages ssh)
6b2c6be0 98 #:use-module (gnu packages texinfo)
c426e61e 99 #:use-module (gnu packages textutils)
a7fd7b68 100 #:use-module (gnu packages tls)
d5a748e8 101 #:use-module (gnu packages version-control)
bb470bd3 102 #:use-module (gnu packages web)
fe047e13 103 #:use-module (gnu packages webkit)
794223bc 104 #:use-module (gnu packages wxwidgets)
ee3b55ea 105 #:use-module (gnu packages xdisorg)
54ff0b7d 106 #:use-module (gnu packages xiph)
d5a748e8
AE		 107 #:use-module (gnu packages xml)
108 #:use-module (gnu packages xorg)
148585c2 109 #:use-module (gnu packages assembly))
39efcc9b 110
6b2c6be0
SB		 111(define-public aalib
112 (package
113 (name "aalib")
114 (version "1.4rc5")
115 (source (origin
116 (method url-fetch)
de67e922
LF		 117 (uri (string-append "mirror://sourceforge/aa-project/aa-lib/"
118 version "/" name "-" version ".tar.gz"))
6b2c6be0
SB		 119 (sha256
120 (base32
121 "1vkh19gb76agvh4h87ysbrgy82hrw88lnsvhynjf4vng629dmpgv"))))
122 (build-system gnu-build-system)
123 (native-inputs
124 `(("makeinfo" ,texinfo)))
125 (inputs
126 `(("ncurses" ,ncurses)))
127 (arguments
c437922a 128 `(#:phases
6b2c6be0 129 (modify-phases %standard-phases
3a4de6b2 130 (replace 'configure
014cbde6 131 (lambda* (#:key build inputs outputs #:allow-other-keys)
6b2c6be0
SB		 132 ;; This old `configure' script doesn't support
133 ;; variables passed as arguments.
134 (let ((out (assoc-ref outputs "out"))
135 (ncurses (assoc-ref inputs "ncurses")))
136 (setenv "CONFIG_SHELL" (which "bash"))
137 (zero? (system* "./configure"
138 (string-append "--prefix=" out)
014cbde6 139 (string-append "--build=" build)
c437922a
MW		 140 ;; The ancient config.guess is unable to
141 ;; guess the host triplet on mips64el.
142 ,@(if (string=? "mips64el-linux"
143 (%current-system))
144 '("--host=mips64el-unknown-linux-gnu")
145 '())
64465558
EF		 146 ;; The same is also true with aarch64.
147 ,@(if (string=? "aarch64-linux"
148 (%current-system))
149 '("--host=aarch64-unknown-linux-gnu")
150 '())
6b2c6be0
SB		 151 (string-append "--with-ncurses="
152 ncurses)))))))))
153 (home-page "http://aa-project.sourceforge.net/aalib/")
154 (synopsis "ASCII-art library")
155 (description
156 "AA-lib is a low level gfx library which does not require graphics device.
157In fact, there is no graphical output possible. AA-lib replaces those
158old-fashioned output methods with powerful ascii-art renderer.")
159 (license license:lgpl2.0+)))
160
cda163cd
TUBK		 161(define-public liba52
162 (package
163 (name "liba52")
164 (version "0.7.4")
165 (source (origin
166 (method url-fetch)
8c056935
TUBK		 167 (uri (string-append
168 ;; A mirror://sourceforge URI doesn't work, presumably
169 ;; because the SourceForge project is misconfigured.
170 "http://liba52.sourceforge.net/files/a52dec-" version
171 ".tar.gz"))
cda163cd
TUBK		 172 (sha256
173 (base32
23da88f6 174 "0czccp4fcpf2ykp16xcrzdfmnircz1ynhls334q374xknd5747d2"))
fc1adab1
AK		 175 (patches (search-patches "liba52-enable-pic.patch"
176 "liba52-set-soname.patch"
177 "liba52-use-mtune-not-mcpu.patch"
178 "liba52-link-with-libm.patch"))))
cda163cd 179 (build-system gnu-build-system)
23da88f6
MW		 180 ;; XXX We need to run ./bootstrap because of the build system fixes above.
181 (native-inputs
182 `(("autoconf" ,autoconf)
183 ("automake" ,automake)
184 ("libtool" ,libtool)))
412a2422 185 (arguments `(#:configure-flags '("--enable-shared")
23da88f6
MW		 186 #:phases
187 (modify-phases %standard-phases
188 ;; XXX We need to run ./bootstrap because of the build
189 ;; system fixes above.
190 (add-after
191 'unpack 'bootstrap
192 (lambda _ (zero? (system* "sh" "bootstrap")))))))
cda163cd
TUBK		 193 (home-page "http://liba52.sourceforge.net/")
194 (synopsis "ATSC A/52 stream decoder")
195 (description "liba52 is a library for decoding ATSC A/52 streams. The
196A/52 standard is used in a variety of applications, including digital
197television and DVD. It is also known as AC-3.")
ae0bdd81 198 (license license:gpl2+)))
cda163cd 199
e0884109
MW		 200(define-public libmpeg2
201 (package
202 (name "libmpeg2")
203 (version "0.5.1")
204 (source (origin
205 (method url-fetch)
206 ;; A mirror://sourceforge URI doesn't work, presumably
207 ;; because the SourceForge project is misconfigured.
208 (uri (string-append "http://libmpeg2.sourceforge.net/files/"
209 name "-" version ".tar.gz"))
210 (sha256
211 (base32
212 "1m3i322n2fwgrvbs1yck7g5md1dbg22bhq5xdqmjpz5m7j4jxqny"))))
213 (inputs
214 `(("libx11" ,libx11)
215 ("libxext" ,libxext)
216 ("libxv" ,libxv)
217 ("libsm" ,libsm)
218 ("libice" ,libice)
219 ("sdl" ,sdl)))
220 (build-system gnu-build-system)
221 (home-page "http://libmpeg2.sourceforge.net/")
222 (synopsis "MPEG1 and MPEG2 video decoder library")
223 (description
224 "libmpeg2 is a library which can decode MPEG1 and MPEG2 video streams.")
225 (license license:gpl2+)))
226
82712597
MW		 227(define-public libx264
228 (package
229 (name "libx264")
715dd13d 230 (version "20170316-2245")
82712597
MW		 231 (source (origin
232 (method url-fetch)
4ff71cac 233 (uri (string-append "https://download.videolan.org/pub/x264/snapshots/"
82712597
MW		 234 "x264-snapshot-" version ".tar.bz2"))
235 (sha256
236 (base32
715dd13d 237 "1s1nnvl3axz38sv4g09skijl6k9mbbngbb1nsh26w4dr2w2gyzad"))))
82712597
MW		 238 (build-system gnu-build-system)
239 (native-inputs
240 `(("pkg-config" ,pkg-config)
241 ("yasm" ,yasm)))
242 ;; TODO: Add gpac input
243 (arguments
244 `(#:tests? #f ;no check target
245 #:configure-flags '("--enable-shared"
246 ;; Don't build the command-line program. If we
247 ;; want it later, we should do so in a different
248 ;; package to avoid a circular dependency (the x264
249 ;; program depends on ffmpeg and ffmpeg depends on
250 ;; libx264).
cb50d0c2
MW		 251 "--disable-cli"
252
253 ;; On MIPS, we must pass "--disable-asm" or else
254 ;; configure fails after printing: "You specified a
255 ;; pre-MSA CPU in your CFLAGS. If you really want
256 ;; to run on such a CPU, configure with
257 ;; --disable-asm."
258 ,@(if (string-prefix? "mips"
259 (or (%current-target-system)
260 (%current-system)))
261 '("--disable-asm")
262 '()))))
4ff71cac 263 (home-page "https://www.videolan.org/developers/x264.html")
82712597
MW		 264 (synopsis "H.264 video coding library")
265 (description "libx264 is an advanced encoding library for creating
266H.264 (MPEG-4 AVC) video streams.")
267 (license (list license:gpl2+ ;most files
268 license:isc ;common/x86/x86inc.asm
269 license:lgpl2.1+ ;extras/getopt.c
270 license:bsd-3 ;extras/inttypes.h
271 (license:non-copyleft ;extras/cl*.h
272 "file://extras/cl.h"
273 "See extras/cl.h in the distribution.")))))
274
7bc7ffc2
EF		 275(define-public x265
276 (package
277 (name "x265")
cfa7473c 278 (version "2.4")
7bc7ffc2
EF		 279 (source
280 (origin
281 (method url-fetch)
282 (uri (string-append "https://download.videolan.org/videolan/x265/"
283 "x265_" version ".tar.gz"))
284 (sha256
285 (base32
cfa7473c 286 "0afp0xlk0fb4q6j4sh3hyvjnjccdp61sn21zg3fyqvwgswcafalw"))
7bc7ffc2
EF		 287 (modules '((guix build utils)))
288 (snippet
289 '(delete-file-recursively "source/compat/getopt"))))
290 (build-system cmake-build-system)
291 (arguments
292 `(#:tests? #f ; tests are skipped if cpu-optimized code isn't built
a160778c
EF		 293 ;; Currently the source code doesn't check for aarch64
294 ,@(if (string-prefix? "aarch64" (or (%current-target-system) (%current-system)))
295 '(#:configure-flags '("-DENABLE_PIC=TRUE"))
296 '())
7bc7ffc2
EF		 297 #:phases
298 (modify-phases %standard-phases
299 (add-before 'configure 'prepare-build
300 (lambda _
301 (delete-file-recursively "build")
302 (chdir "source")
303 #t)))))
304 (home-page "http://x265.org/")
305 (synopsis "Library for encoding h.265/HEVC video streams")
306 (description "x265 is a H.265 / HEVC video encoder application library,
307designed to encode video or images into an H.265 / HEVC encoded bitstream.")
308 (license license:gpl2+)))
309
c426e61e
TUBK		 310(define-public libass
311 (package
312 (name "libass")
6cb5476a 313 (version "0.13.7")
c426e61e
TUBK		 314 (source (origin
315 (method url-fetch)
316 (uri (string-append
317 "https://github.com/libass/libass/releases/download/"
318 version "/libass-" version ".tar.xz"))
319 (sha256
320 (base32
6cb5476a 321 "17byv926w1mxn56n896sxvdq4m0yv1l7qbm688h6zr3nzgsyarbh"))))
c426e61e
TUBK		 322 (build-system gnu-build-system)
323 (native-inputs
324 `(("pkg-config" ,pkg-config)
325 ("yasm" ,yasm)))
326 (propagated-inputs
327 `(("freetype" ,freetype)
328 ("fribidi" ,fribidi)
329 ("fontconfig" ,fontconfig)
330 ("harfbuzz" ,harfbuzz)
331 ("enca" ,enca)))
332 (home-page "https://github.com/libass/libass")
333 (synopsis "Subtitle rendering library for the ASS/SSA format")
334 (description "libass is a subtitle rendering library for the
335ASS/SSA (Advanced Substation Alpha/SubStation Alpha) subtitle format.")
ae0bdd81 336 (license license:isc)))
c426e61e 337
4d94b93c
TUBK		 338(define-public libcaca
339 (package
340 (name "libcaca")
341 (version "0.99.beta19")
342 (source (origin
343 (method url-fetch)
344 (uri (string-append "http://caca.zoy.org/files/libcaca/libcaca-"
345 version ".tar.gz"))
346 (sha256
347 (base32
348 "1x3j6yfyxl52adgnabycr0n38j9hx2j74la0hz0n8cnh9ry4d2qj"))))
349 (build-system gnu-build-system)
350 (native-inputs `(("pkg-config" ,pkg-config)))
351 (inputs
352 `(("freeglut" ,freeglut)
353 ("ftgl" ,ftgl)
43d51239 354 ("imlib2" ,imlib2)
4d94b93c
TUBK		 355 ("libx11" ,libx11)
356 ("mesa" ,mesa)
357 ("ncurses" ,ncurses)
358 ("zlib" ,zlib)))
359 (home-page "http://caca.zoy.org/wiki/libcaca")
360 (synopsis "Colour ASCII-art library")
361 (description "libcaca is a graphics library that outputs text instead of
362pixels, so that it can work on older video cards or text terminals. It
363supports Unicode, 2048 colors, dithering of color images, and advanced text
364canvas operations.")
ae0bdd81 365 (license (license:fsf-free "file://COPYING")))) ;WTFPL version 2
4d94b93c 366
3bfb78dc
TUBK		 367(define-public libdca
368 (package
369 (name "libdca")
370 (version "0.0.5")
371 (source (origin
372 (method url-fetch)
373 (uri (string-append
b8a31908 374 "https://download.videolan.org/pub/videolan/libdca/"
3bfb78dc
TUBK		 375 version "/libdca-" version ".tar.bz2"))
376 (sha256
377 (base32
378 "0hh6a7l8vvccsd5i1fkv9av2gzv9fy8m0b8jpsn5p6hh4bh2586v"))))
379 (build-system gnu-build-system)
b8a31908 380 (home-page "https://www.videolan.org/developers/libdca.html")
3bfb78dc
TUBK		 381 (synopsis "DTS Coherent Acoustics decoder")
382 (description "libdca is a library for decoding DTS Coherent Acoustics
383streams.")
ae0bdd81 384 (license license:gpl2+)))
3bfb78dc 385
99d4c455
TUBK		 386(define-public libdv
387 (package
388 (name "libdv")
389 (version "1.0.0")
390 (source (origin
391 (method url-fetch)
392 (uri (string-append
de67e922
LF		 393 "mirror://sourceforge/" name "/" name "/"
394 version "/" name "-" version ".tar.gz"))
99d4c455
TUBK		 395 (sha256
396 (base32
397 "1fl96f2xh2slkv1i1ix7kqk576a0ak1d33cylm0mbhm96d0761d3"))))
398 (build-system gnu-build-system)
399 (native-inputs `(("pkg-config" ,pkg-config)))
400 (inputs `(("libxv" ,libxv)))
401 (home-page "http://libdv.sourceforge.net/")
402 (synopsis "DV video (IEC 61834 and SMPTE 314M) codec")
403 (description "The Quasar DV codec (libdv) is a software codec for DV
404video, the encoding format used by most digital camcorders, typically those
405that support the IEEE 1394 (a.k.a. FireWire or i.Link) interface. Libdv was
406developed according to the official standards for DV video: IEC 61834 and
407SMPTE 314M.")
ae0bdd81 408 (license license:lgpl2.1+)))
99d4c455 409
ee3b55ea
TUBK		 410(define-public libva
411 (package
412 (name "libva")
f3fc65f9 413 (version "1.8.2")
ee3b55ea
TUBK		 414 (source
415 (origin
416 (method url-fetch)
417 (uri (string-append
5cc3096c 418 "https://www.freedesktop.org/software/vaapi/releases/libva/libva-"
ee3b55ea
TUBK		 419 version".tar.bz2"))
420 (sha256
f3fc65f9 421 (base32 "1pnfl3q7dzxs26l3jk9xi97gr0qwnaz6dhvf9ifp2yplr3fy7lwy"))))
ee3b55ea
TUBK		 422 (build-system gnu-build-system)
423 (native-inputs
424 `(("pkg-config" ,pkg-config)))
425 (inputs
426 `(("libdrm" ,libdrm)
427 ("libx11" ,libx11)
428 ("libxext" ,libxext)
429 ("libxfixes" ,libxfixes)
430 ("mesa" ,mesa)))
372cf039
TUBK		 431 (arguments
432 `(#:phases
433 (modify-phases %standard-phases
434 (add-before
435 'build 'fix-dlopen-paths
436 (lambda* (#:key outputs #:allow-other-keys)
437 (let ((out (assoc-ref outputs "out")))
438 (substitute* "va/drm/va_drm_auth_x11.c"
439 (("\"libva-x11\\.so\\.%d\"")
440 (string-append "\"" out "/lib/libva-x11.so.%d\"")))))))
441 ;; Most drivers are in mesa's $prefix/lib/dri, so use that. (Can be
442 ;; overridden at run-time via LIBVA_DRIVERS_PATH.)
443 #:configure-flags
444 (list (string-append "--with-drivers-path="
445 (assoc-ref %build-inputs "mesa") "/lib/dri"))
446 ;; However, we can't write to mesa's store directory, so override the
447 ;; following make variable to install the dummy driver to libva's
448 ;; $prefix/lib/dri directory.
449 #:make-flags
450 (list (string-append "dummy_drv_video_ladir="
451 (assoc-ref %outputs "out") "/lib/dri"))))
5c1c2254 452 (home-page "https://www.freedesktop.org/wiki/Software/vaapi/")
ee3b55ea
TUBK		 453 (synopsis "Video acceleration library")
454 (description "The main motivation for VA-API (Video Acceleration API) is
455to enable hardware accelerated video decode/encode at various
456entry-points (VLD, IDCT, Motion Compensation etc.) for prevailing coding
457standards (MPEG-2, MPEG-4 ASP/H.263, MPEG-4 AVC/H.264, and VC-1/VMW3).")
ae0bdd81 458 (license license:expat)))
ee3b55ea 459
39efcc9b
AE		 460(define-public ffmpeg
461 (package
462 (name "ffmpeg")
ad27449e 463 (version "3.3.2")
39efcc9b
AE		 464 (source (origin
465 (method url-fetch)
a1121a7f
EF		 466 (uri (string-append "https://ffmpeg.org/releases/ffmpeg-"
467 version ".tar.xz"))
39efcc9b
AE		 468 (sha256
469 (base32
ad27449e 470 "11974vcfsy8w0i6f4lfwqmg80xkfybqw7vw6zzrcn5i6ncddx60r"))))
39efcc9b
AE		 471 (build-system gnu-build-system)
472 (inputs
c4c4cc05 473 `(("fontconfig" ,fontconfig)
39efcc9b 474 ("freetype" ,freetype)
c8dab7f4 475 ("gnutls" ,gnutls)
e816b348 476 ("opus" ,opus)
71241192 477 ("ladspa" ,ladspa)
d4f12db8 478 ("lame" ,lame)
c426e61e 479 ("libass" ,libass)
5d3609e4 480 ("libbluray" ,libbluray)
4d94b93c 481 ("libcaca" ,libcaca)
cc6c0170 482 ("libcdio-paranoia" ,libcdio-paranoia)
39efcc9b 483 ("libtheora" ,libtheora)
bb3df15e 484 ("libva" ,libva)
f88f0d20 485 ("libvdpau" ,libvdpau)
39efcc9b 486 ("libvorbis" ,libvorbis)
dc55b8b2 487 ("libvpx" ,libvpx)
f88f0d20 488 ("libx11" ,libx11)
549381d6 489 ("libx264" ,libx264)
f88f0d20 490 ("mesa" ,mesa)
71241192 491 ("openal" ,openal)
71241192 492 ("pulseaudio" ,pulseaudio)
85bc5434 493 ("sdl" ,sdl2)
72bfebf5 494 ("soxr" ,soxr)
c4c4cc05 495 ("speex" ,speex)
72bfebf5 496 ("twolame" ,twolame)
d505801a 497 ("x265" ,x265)
67932f86 498 ("xvid" ,xvid)
b3546174 499 ("zlib" ,zlib)))
c4c4cc05
JD		 500 (native-inputs
501 `(("bc" ,bc)
39efcc9b
AE		 502 ("perl" ,perl)
503 ("pkg-config" ,pkg-config)
824d9dc3 504 ("texinfo" ,texinfo)
39efcc9b
AE		 505 ("python" ,python-2) ; scripts use interpreter python2
506 ("speex" ,speex)
c4c4cc05 507 ("yasm" ,yasm)))
39efcc9b 508 (arguments
31f9322e 509 `(#:test-target "fate"
12f92e38
AP		 510 #:configure-flags
511 ;; possible additional inputs:
512 ;; --enable-avisynth enable reading of AviSynth script
513 ;; files [no]
514 ;; --enable-frei0r enable frei0r video filtering
515 ;; --enable-libaacplus enable AAC+ encoding via libaacplus [no]
516 ;; --enable-libcelt enable CELT decoding via libcelt [no]
517 ;; --enable-libdc1394 enable IIDC-1394 grabbing using libdc1394
518 ;; and libraw1394 [no]
519 ;; --enable-libfaac enable AAC encoding via libfaac [no]
520 ;; --enable-libfdk-aac enable AAC de/encoding via libfdk-aac [no]
521 ;; --enable-libflite enable flite (voice synthesis) support via
522 ;; libflite [no]
523 ;; --enable-libgme enable Game Music Emu via libgme [no]
524 ;; --enable-libgsm enable GSM de/encoding via libgsm [no]
525 ;; --enable-libiec61883 enable iec61883 via libiec61883 [no]
526 ;; --enable-libilbc enable iLBC de/encoding via libilbc [no]
527 ;; --enable-libmodplug enable ModPlug via libmodplug [no]
528 ;; --enable-libnut enable NUT (de)muxing via libnut,
529 ;; native (de)muxer exists [no]
530 ;; --enable-libopencore-amrnb enable AMR-NB de/encoding via
531 ;; libopencore-amrnb [no]
532 ;; --enable-libopencore-amrwb enable AMR-WB decoding via
533 ;; libopencore-amrwb [no]
534 ;; --enable-libopencv enable video filtering via libopencv [no]
535 ;; --enable-libopenjpeg enable JPEG 2000 de/encoding via
536 ;; OpenJPEG [no]
537 ;; --enable-librtmp enable RTMP[E] support via librtmp [no]
538 ;; --enable-libschroedinger enable Dirac de/encoding via
539 ;; libschroedinger [no]
540 ;; --enable-libshine enable fixed-point MP3 encoding via
541 ;; libshine [no]
542 ;; --enable-libssh enable SFTP protocol via libssh [no]
543 ;; (libssh2 does not work)
544 ;; --enable-libstagefright-h264 enable H.264 decoding via
545 ;; libstagefright [no]
546 ;; --enable-libutvideo enable Ut Video encoding and decoding via
547 ;; libutvideo [no]
548 ;; --enable-libv4l2 enable libv4l2/v4l-utils [no]
549 ;; --enable-libvidstab enable video stabilization using
550 ;; vid.stab [no]
551 ;; --enable-libvo-aacenc enable AAC encoding via libvo-aacenc [no]
552 ;; --enable-libvo-amrwbenc enable AMR-WB encoding via
553 ;; libvo-amrwbenc [no]
554 ;; --enable-libwavpack enable wavpack encoding via libwavpack [no]
555 ;; --enable-libxavs enable AVS encoding via xavs [no]
556 ;; --enable-libzmq enable message passing via libzmq [no]
557 ;; --enable-libzvbi enable teletext support via libzvbi [no]
558 ;; --enable-opencl enable OpenCL code
12f92e38
AP		 559 '("--enable-avresample"
560 "--enable-gpl" ; enable optional gpl licensed parts
561 "--enable-shared"
562 "--enable-fontconfig"
c8dab7f4 563 "--enable-gnutls"
12f92e38
AP		 564 "--enable-ladspa"
565 "--enable-libass"
566 "--enable-libbluray"
567 "--enable-libcaca"
568 "--enable-libcdio"
569 "--enable-libfreetype"
570 "--enable-libmp3lame"
571 "--enable-libopus"
572 "--enable-libpulse"
12f92e38
AP		 573 "--enable-libsoxr"
574 "--enable-libspeex"
575 "--enable-libtheora"
576 "--enable-libtwolame"
577 "--enable-libvorbis"
578 "--enable-libvpx"
579 "--enable-libxvid"
580 "--enable-libx264"
d505801a 581 "--enable-libx265"
12f92e38 582 "--enable-openal"
f88f0d20 583 "--enable-opengl"
12f92e38
AP		 584
585 "--enable-runtime-cpudetect"
586
587 ;; Runtime cpu detection is not implemented on
588 ;; MIPS, so we disable some features.
589 "--disable-mips32r2"
c5e1fcd0 590 "--disable-mipsdsp"
12f92e38
AP		 591 "--disable-mipsdspr2"
592 "--disable-mipsfpu")
31f9322e 593 #:phases
f2feb0ce
LC		 594 (modify-phases %standard-phases
595 (replace
39efcc9b
AE		 596 'configure
597 ;; configure does not work followed by "SHELL=..." and
598 ;; "CONFIG_SHELL=..."; set environment variables instead
599 (lambda* (#:key outputs configure-flags #:allow-other-keys)
600 (let ((out (assoc-ref outputs "out")))
601 (substitute* "configure"
47734a56 602 (("#! /bin/sh") (string-append "#!" (which "sh"))))
39efcc9b
AE		 603 (setenv "SHELL" (which "bash"))
604 (setenv "CONFIG_SHELL" (which "bash"))
12f92e38
AP		 605 (zero? (apply system*
606 "./configure"
607 (string-append "--prefix=" out)
608 ;; Add $libdir to the RUNPATH of all the binaries.
609 (string-append "--extra-ldflags=-Wl,-rpath="
610 out "/lib")
611 configure-flags)))))
457e528e
LC		 612 (add-before
613 'check 'set-ld-library-path
614 (lambda _
615 ;; Allow $(top_builddir)/ffmpeg to find its dependencies when
616 ;; running tests.
617 (let* ((dso (find-files "." "\\.so$"))
618 (path (string-join (map dirname dso) ":")))
619 (format #t "setting LD_LIBRARY_PATH to ~s~%" path)
620 (setenv "LD_LIBRARY_PATH" path)
27350ef8 621 #t))))))
702bfbf1 622 (home-page "https://www.ffmpeg.org/")
39efcc9b
AE		 623 (synopsis "Audio and video framework")
624 (description "FFmpeg is a complete, cross-platform solution to record,
625convert and stream audio and video. It includes the libavcodec
626audio/video codec library.")
ae0bdd81 627 (license license:gpl2+)))
d5a748e8 628
940778c7
LC		 629(define-public ffmpeg-2.8
630 (package
631 (inherit ffmpeg)
1ce1050d 632 (version "2.8.12")
940778c7
LC		 633 (source (origin
634 (method url-fetch)
635 (uri (string-append "https://ffmpeg.org/releases/ffmpeg-"
636 version ".tar.xz"))
637 (sha256
638 (base32
1ce1050d 639 "1gc32akvdms3rywphnap94lqqici8l5898a09ir1ad5rif5g24v2"))))
940778c7
LC		 640 (arguments
641 (substitute-keyword-arguments (package-arguments ffmpeg)
642 ((#:configure-flags flags)
643 `(map (lambda (flag)
644 (if (string=? flag "--disable-mipsdsp")
645 "--disable-mipsdspr1"
646 flag))
647 ,flags))))))
648
d5a748e8
AE		 649(define-public vlc
650 (package
651 (name "vlc")
dd13aa90 652 (version "2.2.6")
d5a748e8
AE		 653 (source (origin
654 (method url-fetch)
655 (uri (string-append
a134cc8e 656 "https://download.videolan.org/pub/videolan/vlc/"
d5a748e8
AE		 657 version "/vlc-" version ".tar.xz"))
658 (sha256
659 (base32
dd13aa90 660 "1a22b913p2227ljz89c4fgjlyln5gcz8z58w32r0wh4srnnd60y4"))))
d5a748e8
AE		 661 (build-system gnu-build-system)
662 (native-inputs
2aaa5729
CL		 663 `(("autoconf" ,autoconf)
664 ("automake" ,automake)
665 ("git" ,git) ; needed for a test
666 ("libtool" ,libtool)
d5a748e8
AE		 667 ("pkg-config" ,pkg-config)))
668 ;; FIXME: Add optional inputs once available.
669 (inputs
670 `(("alsa-lib" ,alsa-lib)
671 ("avahi" ,avahi)
672 ("dbus" ,dbus)
673 ("flac" ,flac)
b4dff935 674 ("ffmpeg" ,ffmpeg-2.8) ;fails to build against ffmpeg 3.0
d5a748e8
AE		 675 ("fontconfig" ,fontconfig)
676 ("freetype" ,freetype)
677 ("gnutls" ,gnutls)
8824da4c 678 ("liba52" ,liba52)
d5a748e8 679 ("libcddb" ,libcddb)
72b6a894 680 ("libdvbpsi" ,libdvbpsi)
d5a748e8
AE		 681 ("libgcrypt" ,libgcrypt)
682 ("libkate" ,libkate)
683 ("libmad" ,libmad)
684 ("libogg" ,libogg)
685 ("libpng" ,libpng)
686 ("libsamplerate" ,libsamplerate)
687 ("libssh2" ,libssh2)
688 ("libvorbis" ,libvorbis)
689 ("libtheora" ,libtheora)
690 ("libxext" ,libxext)
c161c22a 691 ("libxi" ,libxi)
d5a748e8
AE		 692 ("libxinerama" ,libxinerama)
693 ("libxml2" ,libxml2)
694 ("libxpm" ,libxpm)
2aaa5729 695 ("livemedia-utils" ,livemedia-utils)
d5a748e8
AE		 696 ("lua" ,lua-5.1)
697 ("mesa" ,mesa)
698 ("opus" ,opus)
699 ("perl" ,perl)
700 ("pulseaudio" ,pulseaudio)
701 ("python" ,python-wrapper)
c161c22a
DC		 702 ("qt" ,qt) ; FIXME: reenable modular qt after update - requires building
703 ;("qtbase" ,qtbase) with -std=gnu++11.
a134cc8e 704 ;("qtx11extras" ,qtx11extras)
d5a748e8
AE		 705 ("sdl" ,sdl)
706 ("sdl-image" ,sdl-image)
707 ("speex" ,speex)
8f5f6c92 708 ("x265" ,x265)
d5a748e8
AE		 709 ("xcb-util-keysyms" ,xcb-util-keysyms)))
710 (arguments
711 `(#:configure-flags
8824da4c 712 `(;; Gross workaround for <https://trac.videolan.org/vlc/ticket/16907>.
c6b3dc69
LC		 713 ;; In our case, this led to a test failure:
714 ;; test_libvlc_equalizer: libvlc/equalizer.c:122: test_equalizer: Assertion `isnan(libvlc_audio_equalizer_get_amp_at_index (equalizer, u_bands))' failed.
715 "ac_cv_c_fast_math=no"
716
d5a748e8
AE		 717 ,(string-append "LDFLAGS=-Wl,-rpath -Wl,"
718 (assoc-ref %build-inputs "ffmpeg")
cd76fbde
LC		 719 "/lib")) ;needed for the tests
720
721 #:phases
722 (modify-phases %standard-phases
2aaa5729
CL		 723 (add-before 'configure 'bootstrap
724 (lambda _ (zero? (system* "sh" "bootstrap"))))
725 (add-before 'bootstrap 'fix-livemedia-utils-prefix
726 (lambda* (#:key inputs #:allow-other-keys)
727 (let ((livemedia-utils (assoc-ref inputs "livemedia-utils")))
728 (substitute* "configure.ac"
729 (("LIVE555_PREFIX=\\$\\{LIVE555_PREFIX-\"/usr\"\\}")
730 (string-append "LIVE555_PREFIX=" livemedia-utils)))
731 #t)))
a134cc8e
EF		 732 (add-before 'configure 'remove-visual-tests
733 ;; Some of the tests require using the display to test out VLC,
734 ;; which fails in our sandboxed build system
735 (lambda _
736 (substitute* "test/run_vlc.sh"
737 (("./vlc --ignore-config") "echo"))
738 #t))
cd76fbde
LC		 739 (add-after 'install 'regenerate-plugin-cache
740 (lambda* (#:key outputs #:allow-other-keys)
741 ;; The 'install-exec-hook' rule in the top-level Makefile.am
742 ;; generates 'lib/vlc/plugins/plugins.dat', a plugin cache, using
743 ;; 'vlc-cache-gen'. This file includes the mtime of the plugins
744 ;; it references. Thus, we first reset the timestamps of all
745 ;; these files, and then regenerate the cache such that the
746 ;; mtimes it includes are always zero instead of being dependent
747 ;; on the build time.
748 (let* ((out (assoc-ref outputs "out"))
749 (pkglibdir (string-append out "/lib/vlc"))
750 (plugindir (string-append pkglibdir "/plugins"))
751 (cachegen (string-append pkglibdir "/vlc-cache-gen")))
752 ;; TODO: Factorize 'reset-timestamps'.
753 (for-each (lambda (file)
754 (let ((s (lstat file)))
755 (unless (eq? (stat:type s) 'symlink)
756 (utime file 0 0 0 0))))
757 (find-files plugindir))
758 (zero? (system* cachegen plugindir))))))))
d5a748e8
AE		 759 (home-page "https://www.videolan.org/")
760 (synopsis "Audio and video framework")
761 (description "VLC is a cross-platform multimedia player and framework
762that plays most multimedia files as well as DVD, Audio CD, VCD, and various
763treaming protocols.")
ae0bdd81 764 (license license:gpl2+)))
ace69243
AE		 765
766(define-public mplayer
767 (package
768 (name "mplayer")
e71b20e5 769 (version "1.3.0")
ace69243
AE		 770 (source (origin
771 (method url-fetch)
772 (uri (string-append
ebde7c7a 773 "https://www.mplayerhq.hu/MPlayer/releases/MPlayer-"
ace69243
AE		 774 version ".tar.xz"))
775 (sha256
776 (base32
e71b20e5 777 "0hwqn04bdknb2ic88xd75smffxx63scvz0zvwvjb56nqj9n89l1s"))))
ace69243
AE		 778 (build-system gnu-build-system)
779 ;; FIXME: Add additional inputs once available.
780 (native-inputs
781 `(("pkg-config" ,pkg-config)))
782 (inputs
783 `(("alsa-lib" ,alsa-lib)
784 ("cdparanoia" ,cdparanoia)
b3546174 785 ("ffmpeg" ,ffmpeg)
778a6a8b 786 ("fontconfig" ,fontconfig)
ace69243 787 ("freetype" ,freetype)
778a6a8b 788;; ("giflib" ,giflib) ; uses QuantizeBuffer, requires version >= 5
ace69243 789 ("lame" ,lame)
778a6a8b 790 ("libass" ,libass)
b3546174
MW		 791 ("libdvdcss" ,libdvdcss)
792 ("libdvdnav" ,libdvdnav)
ace69243 793 ("libjpeg" ,libjpeg)
778a6a8b
EF		 794 ("libmpeg2" ,libmpeg2)
795 ("libmpg123" ,mpg123) ; audio codec for MP3
ace69243
AE		 796 ("libpng" ,libpng)
797 ("libtheora" ,libtheora)
778a6a8b 798 ("libvdpau" ,libvdpau)
ace69243
AE		 799 ("libvorbis" ,libvorbis)
800 ("libx11" ,libx11)
778a6a8b 801 ("libx264" ,libx264)
ace69243
AE		 802 ("libxinerama" ,libxinerama)
803 ("libxv" ,libxv)
778a6a8b 804 ("libxxf86dga" ,libxxf86dga)
ace69243 805 ("mesa" ,mesa)
778a6a8b 806 ("opus" ,opus)
ace69243
AE		 807 ("perl" ,perl)
808 ("pulseaudio" ,pulseaudio)
809 ("python" ,python-wrapper)
810 ("sdl" ,sdl)
811 ("speex" ,speex)
812 ("yasm" ,yasm)
813 ("zlib" ,zlib)))
814 (arguments
815 `(#:tests? #f ; no test target
816 #:phases
ebde7c7a
EF		 817 (modify-phases %standard-phases
818 (replace 'configure
ace69243
AE		 819 ;; configure does not work followed by "SHELL=..." and
820 ;; "CONFIG_SHELL=..."; set environment variables instead
821 (lambda* (#:key inputs outputs #:allow-other-keys)
822 (let ((out (assoc-ref outputs "out"))
823 (libx11 (assoc-ref inputs "libx11")))
824 (substitute* "configure"
2564b7c2 825 (("#! /bin/sh") (string-append "#!" (which "sh"))))
ace69243
AE		 826 (setenv "SHELL" (which "bash"))
827 (setenv "CONFIG_SHELL" (which "bash"))
828 (zero? (system*
829 "./configure"
830 (string-append "--extra-cflags=-I"
831 libx11 "/include") ; to detect libx11
ebde7c7a 832 "--disable-ffmpeg_a" ; disables bundled ffmpeg
ace69243 833 (string-append "--prefix=" out)
fe138965
MW		 834 ;; Enable runtime cpu detection where supported,
835 ;; and choose a suitable target.
836 ,@(match (or (%current-target-system)
837 (%current-system))
838 ("x86_64-linux"
839 '("--enable-runtime-cpudetection"
840 "--target=x86_64-linux"))
841 ("i686-linux"
842 '("--enable-runtime-cpudetection"
843 "--target=i686-linux"))
844 ("mips64el-linux"
f0d6d835
MW		 845 '("--target=mips3-linux"))
846 (_ (list (string-append
847 "--target="
848 (or (%current-target-system)
849 (nix-system->gnu-triplet
850 (%current-system)))))))
ebde7c7a
EF		 851 "--disable-iwmmxt"))))))))
852 (home-page "https://www.mplayerhq.hu/design7/news.html")
ace69243
AE		 853 (synopsis "Audio and video player")
854 (description "MPlayer is a movie player. It plays most MPEG/VOB, AVI,
855Ogg/OGM, VIVO, ASF/WMA/WMV, QT/MOV/MP4, RealMedia, Matroska, NUT,
856NuppelVideo, FLI, YUV4MPEG, FILM, RoQ, PVA files. One can watch VideoCD,
857SVCD, DVD, 3ivx, DivX 3/4/5, WMV and H.264 movies.")
ae0bdd81 858 (license license:gpl2)))
d0ed39be 859
1c1178cd
TUBK		 860(define-public mpv
861 (package
862 (name "mpv")
43ba5dd4 863 (version "0.25.0")
1c1178cd
TUBK		 864 (source (origin
865 (method url-fetch)
866 (uri (string-append
867 "https://github.com/mpv-player/mpv/archive/v" version
868 ".tar.gz"))
869 (sha256
870 (base32
43ba5dd4 871 "1khb7c4fdj1aak46lwyb3lq14w5jpxzws0zp6bdc87ljsvx3yhh7"))
1c1178cd
TUBK		 872 (file-name (string-append name "-" version ".tar.gz"))))
873 (build-system waf-build-system)
874 (native-inputs
832d60dc 875 `(("perl" ,perl) ; for zsh completion file
1c1178cd
TUBK		 876 ("pkg-config" ,pkg-config)
877 ("python-docutils" ,python-docutils)))
81c29ccc 878 ;; Missing features: libguess, Wayland, V4L2
1c1178cd
TUBK		 879 (inputs
880 `(("alsa-lib" ,alsa-lib)
881 ("enca" ,enca)
882 ("ffmpeg" ,ffmpeg)
2d8781a4 883 ("jack" ,jack-1)
1c1178cd
TUBK		 884 ("ladspa" ,ladspa)
885 ("lcms" ,lcms)
886 ("libass" ,libass)
887 ("libbluray" ,libbluray)
888 ("libcaca" ,libcaca)
889 ("libbs2b" ,libbs2b)
890 ("libcdio-paranoia" ,libcdio-paranoia)
891 ("libdvdread" ,libdvdread)
892 ("libdvdnav" ,libdvdnav)
893 ("libjpeg" ,libjpeg)
894 ("libva" ,libva)
81c29ccc 895 ("libvdpau" ,libvdpau)
1c1178cd
TUBK		 896 ("libx11" ,libx11)
897 ("libxext" ,libxext)
898 ("libxinerama" ,libxinerama)
899 ("libxrandr" ,libxrandr)
900 ("libxscrnsaver" ,libxscrnsaver)
901 ("libxv" ,libxv)
e66f0dd2
AP		 902 ;; XXX: lua > 5.2 is not currently supported; see
903 ;; waftools/checks/custom.py
904 ("lua" ,lua-5.2)
1c1178cd
TUBK		 905 ("mesa" ,mesa)
906 ("mpg123" ,mpg123)
907 ("pulseaudio" ,pulseaudio)
908 ("rsound" ,rsound)
f0b8d83a 909 ("waf" ,python-waf)
1c1178cd
TUBK		 910 ("youtube-dl" ,youtube-dl)
911 ("zlib" ,zlib)))
912 (arguments
913 '(#:phases
914 (modify-phases %standard-phases
915 (add-before
f8503e2b 916 'configure 'setup-waf
1c1178cd
TUBK		 917 (lambda* (#:key inputs #:allow-other-keys)
918 (copy-file (assoc-ref inputs "waf") "waf")
599fd842 919 (setenv "CC" "gcc"))))
98c8b963 920 #:configure-flags (list "--enable-libmpv-shared"
43ba5dd4
EF		 921 "--enable-cdda"
922 "--enable-dvdread"
923 "--enable-dvdnav"
98c8b963
EF		 924 "--enable-zsh-comp"
925 "--disable-build-date")
1c1178cd
TUBK		 926 ;; No check function defined.
927 #:tests? #f))
581873b5 928 (home-page "https://mpv.io/")
1c1178cd
TUBK		 929 (synopsis "Audio and video player")
930 (description "mpv is a general-purpose audio and video player. It is a
931fork of mplayer2 and MPlayer. It shares some features with the former
932projects while introducing many more.")
ae0bdd81 933 (license license:gpl2+)))
1c1178cd 934
0e74bb5b
AG		 935(define-public gnome-mpv
936 (package
937 (name "gnome-mpv")
2b841707 938 (version "0.11")
0e74bb5b
AG		 939 (source
940 (origin
941 (method url-fetch)
942 (uri (string-append "https://github.com/gnome-mpv/gnome-mpv/releases"
943 "/download/v" version "/gnome-mpv-" version
944 ".tar.xz"))
945 (sha256
946 (base32
2b841707 947 "1hn3mpsxbrwf2m0nz4vzji4i6i896y8kqjb9kijqpk04cnrs3fgz"))))
0e74bb5b
AG		 948 (native-inputs
949 `(("intltool" ,intltool)
950 ("pkg-config" ,pkg-config)))
951 (inputs
952 `(("gtk+" ,gtk+)
953 ("libepoxy" ,libepoxy)
954 ("mpv" ,mpv)))
955 (build-system glib-or-gtk-build-system)
956 (home-page "https://github.com/gnome-mpv/gnome-mpv")
957 (synopsis "GTK+ frontend for the mpv media player")
958 (description "GNOME MPV is a simple GTK+ frontend for the mpv media player.
959GNOME MPV interacts with mpv via the client API exported by libmpv, allowing
960access to mpv's powerful playback capabilities.")
961 (license license:gpl3+)))
962
d0ed39be
DT		 963(define-public libvpx
964 (package
965 (name "libvpx")
65064909 966 (version "1.6.1")
d0ed39be
DT		 967 (source (origin
968 (method url-fetch)
723e8866
MW		 969 (uri (string-append "http://storage.googleapis.com/"
970 "downloads.webmproject.org/releases/webm/"
971 name "-" version ".tar.bz2"))
d0ed39be
DT		 972 (sha256
973 (base32
65064909 974 "06d8hqjkfs6wl45qf4pwh1kpbvkx6cwywd5y8d4lgagvjwm0qb0w"))
c7c49446 975 (patches (search-patches "libvpx-CVE-2016-2818.patch"))))
d0ed39be
DT		 976 (build-system gnu-build-system)
977 (arguments
0e47b4e7
EF		 978 `(#:phases
979 (modify-phases %standard-phases
980 (replace 'configure
981 (lambda* (#:key outputs #:allow-other-keys)
982 (setenv "CONFIG_SHELL" (which "bash"))
983 (let ((out (assoc-ref outputs "out")))
984 (setenv "LDFLAGS"
985 (string-append "-Wl,-rpath=" out "/lib"))
986 (zero? (system* "./configure"
987 "--enable-shared"
988 "--as=yasm"
989 ;; Limit size to avoid CVE-2015-1258
990 "--size-limit=16384x16384"
991 (string-append "--prefix=" out)))))))
4f8f15cd 992 #:tests? #f)) ; no check target
d0ed39be
DT		 993 (native-inputs
994 `(("perl" ,perl)
995 ("yasm" ,yasm)))
996 (synopsis "VP8/VP9 video codec")
997 (description "libvpx is a codec for the VP8/VP9 video compression format.")
ae0bdd81 998 (license license:bsd-3)
d0ed39be 999 (home-page "http://www.webmproject.org/")))
615215a5
LC		 1000
1001(define-public youtube-dl
1002 (package
1003 (name "youtube-dl")
ab126c17 1004 (version "2017.06.23")
615215a5
LC		 1005 (source (origin
1006 (method url-fetch)
39dc7032 1007 (uri (string-append "https://yt-dl.org/downloads/"
615215a5
LC		 1008 version "/youtube-dl-"
1009 version ".tar.gz"))
1010 (sha256
1011 (base32
ab126c17 1012 "09x11k69imfx6j2dj3p8bckk8f59q276hy65q5qr8qc41s80j8b3"))))
615215a5 1013 (build-system python-build-system)
2ad9515c
AV		 1014 (arguments
1015 ;; The problem here is that the directory for the man page and completion
1016 ;; files is relative, and for some reason, setup.py uses the
1017 ;; auto-detected sys.prefix instead of the user-defined "--prefix=FOO".
1018 ;; So, we need pass the prefix directly. In addition, make sure the Bash
1019 ;; completion file is called 'youtube-dl' rather than
1020 ;; 'youtube-dl.bash-completion'.
31c58006
LF		 1021 `(#:tests? #f ; Many tests fail. The test suite can be run with pytest.
1022 #:phases (modify-phases %standard-phases
2ad9515c
AV		 1023 (add-before 'install 'fix-the-data-directories
1024 (lambda* (#:key outputs #:allow-other-keys)
1025 (let ((prefix (assoc-ref outputs "out")))
1026 (mkdir "bash-completion")
1027 (rename-file "youtube-dl.bash-completion"
1028 "bash-completion/youtube-dl")
1029 (substitute* "setup.py"
1030 (("youtube-dl\\.bash-completion")
1031 "bash-completion/youtube-dl")
1032 (("'etc/")
1033 (string-append "'" prefix "/etc/"))
1034 (("'share/")
1035 (string-append "'" prefix "/share/")))))))))
615215a5
LC		 1036 (synopsis "Download videos from YouTube.com and other sites")
1037 (description
b798dfde 1038 "Youtube-dl is a small command-line program to download videos from
615215a5 1039YouTube.com and a few more sites.")
39dc7032 1040 (home-page "https://yt-dl.org")
ae0bdd81 1041 (license license:public-domain)))
e6bdb36a 1042
794223bc
CM		 1043(define-public youtube-dl-gui
1044 (package
1045 (name "youtube-dl-gui")
1046 (version "0.3.8")
1047 (source
1048 (origin
1049 (method url-fetch)
1050 (uri (pypi-uri "Youtube-DLG" version))
1051 (sha256
1052 (base32
1053 "0napxwzgls5ik1bxbp99vly32l23xpc4ng5kr24hfhf21ypjyadb"))))
1054 (build-system python-build-system)
1055 (arguments
1056 ;; In Guix, wxpython has not yet been packaged for Python 3.
1057 `(#:python ,python-2
1058 ;; This package has no tests.
1059 #:tests? #f
1060 #:phases
1061 (modify-phases %standard-phases
1062 (add-before 'build 'patch-source
1063 (lambda* (#:key inputs #:allow-other-keys)
1064 ;; The youtube-dl-gui program lets you configure options. Some of
1065 ;; them are problematic, so we change their defaults.
1066 (substitute* "youtube_dl_gui/optionsmanager.py"
1067 ;; When this is true, the builder process will try (and fail) to
1068 ;; write logs to the builder user's home directory.
1069 (("'enable_log': True") "'enable_log': False")
1070 ;; This determines which youtube-dl program youtube-dl-gui will
1071 ;; run. If we don't set this, then youtube-dl-gui might download
1072 ;; an arbitrary copy from the Internet into the user's home
1073 ;; directory and run it, so let's make sure youtube-dl-gui uses
1074 ;; the youtube-dl from the inputs by default.
1075 (("'youtubedl_path': self.config_path")
1076 (string-append "'youtubedl_path': '"
1077 (assoc-ref inputs "youtube-dl")
1078 "/bin'"))
1079 ;; When this is True, when youtube-dl-gui is finished downloading
1080 ;; a file, it will try (and possibly fail) to open the directory
1081 ;; containing the downloaded file. This can fail because it
1082 ;; assumes that xdg-open is in PATH. Unfortunately, simply
1083 ;; adding xdg-utils to the propagated inputs is not enough to
1084 ;; make this work, so for now we set the default to False.
1085 (("'open_dl_dir': True") "'open_dl_dir': False"))
1086 ;; The youtube-dl program from the inputs is actually a wrapper
1087 ;; script written in bash, so attempting to invoke it as a python
1088 ;; script will fail.
1089 (substitute* "youtube_dl_gui/downloaders.py"
1090 (("cmd = \\['python', self\\.youtubedl_path\\]")
1091 "cmd = [self.youtubedl_path]"))
1092 ;; Use relative paths for installing data files so youtube-dl-gui
1093 ;; installs the files relative to its prefix in the store, rather
1094 ;; than relative to /. Also, instead of installing data files into
1095 ;; $prefix/usr/share, install them into $prefix/share for
1096 ;; consistency (see: (standards) Directory Variables).
1097 (substitute* "setup.py"
1098 (("= '/usr/share") "= 'share"))
1099 ;; Update get_locale_file() so it finds the installed localization
1100 ;; files.
1101 (substitute* "youtube_dl_gui/utils.py"
1102 (("os\\.path\\.join\\('/usr', 'share'")
1103 (string-append "os.path.join('"
1104 (assoc-ref %outputs "out")
1105 "', 'share'"))))))))
1106 (inputs
1107 `(("python2-wxpython" ,python2-wxpython)
1108 ("youtube-dl" ,youtube-dl)))
1109 (home-page "https://github.com/MrS0m30n3/youtube-dl-gui")
1110 (synopsis
1111 "GUI (Graphical User Interface) for @command{youtube-dl}")
1112 (description
1113 "Youtube-dlG is a GUI (Graphical User Interface) for
1114@command{youtube-dl}. You can use it to download videos from YouTube and any
1115other site that youtube-dl supports.")
1116 (license license:unlicense)))
1117
72fa6667
FS		 1118(define-public you-get
1119 (package
1120 (name "you-get")
f0bc6ca1 1121 (version "0.4.715")
72fa6667
FS		 1122 (source (origin
1123 (method url-fetch)
1124 (uri (string-append
1125 "https://github.com/soimort/you-get/releases/download/v"
1126 version "/you-get-" version ".tar.gz"))
1127 (sha256
1128 (base32
f0bc6ca1 1129 "043122hfh56fbbszp1kwd1f65asgyn60j1ijday93hf2dkhvbrnh"))))
72fa6667
FS		 1130 (build-system python-build-system)
1131 (arguments
1132 ;; no tests
1133 '(#:tests? #f))
1134 (inputs
1135 `(("ffmpeg" ,ffmpeg)))
1136 (synopsis "Download videos, audios, or images from Web sites")
1137 (description
1138 "You-Get is a command-line utility to download media contents (videos,
1139audio, images) from the Web. It can use either mpv or vlc for playback.")
1140 (home-page "https://you-get.org/")
1141 (license license:expat)))
1142
5d3609e4
TUBK		 1143(define-public libbluray
1144 (package
1145 (name "libbluray")
d76e2634 1146 (version "1.0.1")
5d3609e4
TUBK		 1147 (source (origin
1148 (method url-fetch)
5e3f68e6 1149 (uri (string-append "https://download.videolan.org/videolan/"
5d3609e4
TUBK		 1150 name "/" version "/"
1151 name "-" version ".tar.bz2"))
1152 (sha256
1153 (base32
d76e2634 1154 "0fl5cxfj870rwqmmz3s04wh7wnabb7rnynfj1v3sz37ln8frm7qg"))))
5d3609e4 1155 (build-system gnu-build-system)
6c0cd765 1156 (arguments
d76e2634 1157 `(#:configure-flags '("--disable-bdjava-jar")
6c0cd765
AP		 1158 #:phases
1159 (modify-phases %standard-phases
1160 (add-before 'build 'fix-dlopen-paths
1161 (lambda* (#:key inputs #:allow-other-keys)
1162 (let ((libaacs (assoc-ref inputs "libaacs"))
1163 (libbdplus (assoc-ref inputs "libbdplus")))
1164 (substitute* "src/libbluray/disc/aacs.c"
1165 (("\"libaacs\"")
1166 (string-append "\"" libaacs "/lib/libaacs\"")))
1167 (substitute* "src/libbluray/disc/bdplus.c"
1168 (("\"libbdplus\"")
1169 (string-append "\"" libbdplus "/lib/libbdplus\"")))
1170 #t))))))
2da45ebe 1171 (native-inputs `(("pkg-config" ,pkg-config)))
5d3609e4 1172 (inputs
71ee51a0 1173 `(("fontconfig" ,fontconfig)
5d3609e4 1174 ("freetype" ,freetype)
6c0cd765
AP		 1175 ("libaacs" ,libaacs)
1176 ("libbdplus" ,libbdplus)
71ee51a0 1177 ("libxml2" ,libxml2)))
5e3f68e6 1178 (home-page "https://www.videolan.org/developers/libbluray.html")
5d3609e4
TUBK		 1179 (synopsis "Blu-Ray Disc playback library")
1180 (description
1181 "libbluray is a library designed for Blu-Ray Disc playback for media
1182players, like VLC or MPlayer.")
ae0bdd81 1183 (license license:lgpl2.1+)))
5d3609e4 1184
e6bdb36a
AE		 1185(define-public libdvdread
1186 (package
1187 (name "libdvdread")
9aebf330 1188 (version "5.0.3")
e6bdb36a
AE		 1189 (source (origin
1190 (method url-fetch)
b8a31908 1191 (uri (string-append "https://download.videolan.org/videolan/"
e6bdb36a
AE		 1192 name "/" version "/"
1193 name "-" version ".tar.bz2"))
1194 (sha256
1195 (base32
9aebf330 1196 "0ayqiq0psq18rcp6f5pz82sxsq66v0kwv0y55dbrcg68plnxy71j"))))
e6bdb36a
AE		 1197 (build-system gnu-build-system)
1198 (home-page "http://dvdnav.mplayerhq.hu/")
1199 (synopsis "Library for reading video DVDs")
1200 (description
1201 "Libdvdread provides a simple foundation for reading DVD video
1202disks. It provides the functionality that is required to access many
1203DVDs. It parses IFO files, reads NAV-blocks, and performs CSS
1204authentication and descrambling (if an external libdvdcss library is
1205installed).")
ae0bdd81 1206 (license license:gpl2+)))
b027d919 1207
b5b20bda
TD		 1208(define-public dvdauthor
1209 (package
1210 (name "dvdauthor")
1211 (version "0.7.2")
1212 (source
1213 (origin
1214 (method url-fetch)
1215 (uri (string-append "mirror://sourceforge/dvdauthor/dvdauthor-"
1216 version ".tar.gz"))
1217 (sha256
1218 (base32
1219 "1drfc47hikfzc9d7hjk34rw10iqw01d2vwmn91pv73ppx4nsj81h"))))
1220 (build-system gnu-build-system)
1221 (inputs
1222 `(("libdvdread" ,libdvdread)
1223 ("libpng" ,libpng)
1224 ("imagemagick" ,imagemagick)
1225 ("libxml2" ,libxml2)
1226 ("freetype" ,freetype)))
1227 (native-inputs
1228 `(("pkg-config" ,pkg-config)))
1229 (synopsis "Generates a DVD-Video movie from a MPEG-2 stream")
1230 (description "@command{dvdauthor} will generate a DVD-Video movie from a
1231MPEG-2 stream containing VOB packets.")
1232 (home-page "http://dvdauthor.sourceforge.net")
1233 (license license:gpl3+)))
1234
b027d919
AE		 1235(define-public libdvdnav
1236 (package
1237 (name "libdvdnav")
734976b6 1238 (version "5.0.3")
b027d919
AE		 1239 (source (origin
1240 (method url-fetch)
b8a31908 1241 (uri (string-append "https://download.videolan.org/videolan/"
b027d919
AE		 1242 name "/" version "/"
1243 name "-" version ".tar.bz2"))
1244 (sha256
1245 (base32
734976b6 1246 "0v8byv5z598k06rqzdmj7739vc86xq3zf79zfr698dib7lz055sh"))))
b027d919
AE		 1247 (build-system gnu-build-system)
1248 (native-inputs
1249 `(("pkg-config" ,pkg-config)))
1250 (inputs
1251 `(("libdvdread" ,libdvdread)))
1252 (home-page "http://dvdnav.mplayerhq.hu/")
1253 (synopsis "Library for video DVD navigation features")
1254 (description
1255 "Libdvdnav is a library for developers of multimedia
1256applications. It allows easy use of sophisticated DVD navigation features
1257such as DVD menus, multiangle playback and even interactive DVD games. All
1258this functionality is provided through a simple API which provides the DVD
1259playback as a single logical stream of blocks, intermitted by special
1260dvdnav events to report certain conditions. The main usage of libdvdnav is
1261a loop regularly calling a function to get the next block, surrounded by
1262additional calls to tell the library of user interaction. The whole
1263DVD virtual machine and internal playback states are completely
1264encapsulated.")
ae0bdd81 1265 (license license:gpl2+)))
2cd85cf9 1266
f1044010
TUBK		 1267(define-public libdvdnav-4
1268 (package
1269 (inherit libdvdnav)
1270 (version "4.2.1")
1271 (source (origin
1272 (method url-fetch)
1273 (uri
1274 (string-append
b8a31908 1275 "https://download.videolan.org/videolan/libdvdnav/libdvdnav-"
f1044010
TUBK		 1276 version ".tar.xz"))
1277 (sha256
1278 (base32
1279 "0wi3gy408c8xj0ism0hckv5jbfh3lg4pmgxv87gbch9jrhp2gjkz"))))
1280 (native-inputs
1281 `(("pkg-config" ,pkg-config)
1282 ("autoconf" ,autoconf)
1283 ("automake" ,automake)
1284 ("libtool" ,libtool)))
1285 (arguments
1286 '(#:phases
1287 (alist-cons-after
1288 'unpack 'autoreconf
1289 (lambda _
1290 (zero? (system* "autoreconf" "-vif")))
1291 %standard-phases)))))
1292
a6f710ec
TUBK		 1293(define-public libdvdcss
1294 (package
1295 (name "libdvdcss")
98416109 1296 (version "1.4.0")
a6f710ec
TUBK		 1297 (source (origin
1298 (method url-fetch)
b8a31908 1299 (uri (string-append "https://download.videolan.org/pub/"
a6f710ec
TUBK		 1300 name "/" version "/"
1301 name "-" version ".tar.bz2"))
1302 (sha256
1303 (base32
98416109 1304 "0nl45ifc4xcb196snv9d6hinfw614cqpzcqp92dg43c0hickg290"))))
a6f710ec 1305 (build-system gnu-build-system)
b8a31908 1306 (home-page "https://www.videolan.org/developers/libdvdcss.html")
a6f710ec
TUBK		 1307 (synopsis "Library for accessing DVDs as block devices")
1308 (description
1309 "libdvdcss is a simple library designed for accessing DVDs like a block
1310device without having to bother about the decryption.")
ae0bdd81 1311 (license license:gpl2+)))
a6f710ec 1312
2cd85cf9
DT		 1313(define-public srt2vtt
1314 (package
1315 (name "srt2vtt")
1316 (version "0.1")
1317 (source (origin
1318 (method url-fetch)
1319 (uri (string-append
1320 "http://dthompson.us/releases/srt2vtt/srt2vtt-"
1321 version ".tar.gz"))
1322 (sha256
1323 (base32
1324 "16b377znjm6qlga5yb8aj7b7bcisa1ghcnj2lrb1d30lvxp4liif"))))
1325 (build-system gnu-build-system)
1326 (inputs
1327 `(("guile" ,guile-2.0)))
1328 (synopsis "SubRip to WebVTT subtitle converter")
1329 (description "srt2vtt converts SubRip formatted subtitles to WebVTT format
1330for use with HTML5 video.")
1331 (home-page "http://dthompson.us/pages/software/srt2vtt")
ae0bdd81 1332 (license license:gpl3+)))
44726031
AE		 1333
1334(define-public avidemux
1335 (package
1336 (name "avidemux")
9e786e8b 1337 (version "2.6.12")
44726031
AE		 1338 (source (origin
1339 (method url-fetch)
1340 (uri (string-append
de67e922
LF		 1341 "mirror://sourceforge/" name "/" name "/" version "/"
1342 name "_" version ".tar.gz"))
44726031
AE		 1343 (sha256
1344 (base32
9e786e8b 1345 "0nz52yih8sff53inndkh2dba759xjzsh4b8xjww419lcpk0qp6kn"))
fc1adab1 1346 (patches (search-patches "avidemux-install-to-lib.patch"))))
44726031
AE		 1347 (build-system cmake-build-system)
1348 (native-inputs
1349 `(("pkg-config" ,pkg-config)))
1350 ;; FIXME: Once packaged, add libraries not found during the build.
1351 (inputs
1352 `(("alsa-lib" ,alsa-lib)
1353 ("fontconfig" ,fontconfig)
1354 ("freetype" ,freetype)
1355 ("fribidi" ,fribidi)
1356 ("glu" ,glu)
44726031
AE		 1357 ("jack" ,jack-1)
1358 ("lame" ,lame)
4cafe8ad
EF		 1359 ("libva" ,libva)
1360 ("libvdpau" ,libvdpau)
44726031
AE		 1361 ("libvorbis" ,libvorbis)
1362 ("libvpx" ,libvpx)
1363 ("libxv" ,libxv)
1364 ("perl" ,perl)
1365 ("pulseaudio" ,pulseaudio)
1366 ("python" ,python-wrapper)
a2c24bf5
DC		 1367 ("qt" ,qt) ; FIXME: reenable modular qt after update - requires building
1368 ;("qtbase" ,qtbase) with -std=gnu++11.
1369 ;("qttools" ,qttools)
44726031
AE		 1370 ("sdl" ,sdl)
1371 ("sqlite" ,sqlite)
1372 ("yasm" ,yasm)
1373 ("zlib" ,zlib)))
1374 (arguments
1375 `(#:tests? #f ; no check target
1376 #:phases
1377 ;; Make sure files inside the included ffmpeg tarball are
1378 ;; patch-shebanged.
1898900f
EF		 1379 (modify-phases %standard-phases
1380 (add-before 'patch-source-shebangs 'unpack-ffmpeg
44726031
AE		 1381 (lambda _
1382 (with-directory-excursion "avidemux_core/ffmpeg_package"
1898900f
EF		 1383 (system* "tar" "xf" "ffmpeg-2.7.6.tar.bz2")
1384 (delete-file "ffmpeg-2.7.6.tar.bz2"))))
1385 (add-after 'patch-source-shebangs 'repack-ffmpeg
44726031
AE		 1386 (lambda _
1387 (with-directory-excursion "avidemux_core/ffmpeg_package"
9e786e8b 1388 (substitute* "ffmpeg-2.7.6/configure"
2fed4042 1389 (("#! /bin/sh") (string-append "#!" (which "sh"))))
9e786e8b 1390 (system* "tar" "cjf" "ffmpeg-2.7.6.tar.bz2" "ffmpeg-2.7.6"
c09e6a5f 1391 ;; avoid non-determinism in the archive
92226a47
MW		 1392 "--sort=name" "--mtime=@0"
1393 "--owner=root:0" "--group=root:0")
1898900f
EF		 1394 (delete-file-recursively "ffmpeg-2.7.6"))))
1395 (replace 'configure
1396 (lambda _
1397 ;; Copy-paste settings from the cmake build system.
1398 (setenv "CMAKE_LIBRARY_PATH" (getenv "LIBRARY_PATH"))
1399 (setenv "CMAKE_INCLUDE_PATH" (getenv "C_INCLUDE_PATH"))))
1400 (replace 'build
1401 (lambda* (#:key inputs outputs #:allow-other-keys)
1402 (let*
1403 ((out (assoc-ref outputs "out"))
1404 (lib (string-append out "/lib"))
1405 (top (getcwd))
1406 (sdl (assoc-ref inputs "sdl"))
1407 (build_component
1408 (lambda* (component srcdir #:optional (args '()))
1409 (let ((builddir (string-append "build_" component)))
1410 (mkdir builddir)
1411 (with-directory-excursion builddir
1412 (zero?
1413 (and
44726031
AE		 1414 (apply system* "cmake"
1415 "-DCMAKE_INSTALL_RPATH_USE_LINK_PATH=TRUE"
1416 (string-append "-DCMAKE_INSTALL_PREFIX=" out)
1417 (string-append "-DCMAKE_INSTALL_RPATH=" lib)
c687f731
AE		 1418 (string-append "-DCMAKE_SHARED_LINKER_FLAGS="
1419 "\"-Wl,-rpath=" lib "\"")
44726031
AE		 1420 (string-append "-DAVIDEMUX_SOURCE_DIR=" top)
1421 (string-append "-DSDL_INCLUDE_DIR="
1422 sdl "/include/SDL")
1423 (string-append "../" srcdir)
aab56ab7 1424 "-DENABLE_QT5=True"
44726031 1425 args)
1898900f
EF		 1426 (system* "make" "-j"
1427 (number->string (parallel-job-count)))
1428 (system* "make" "install"))))))))
1429 (mkdir out)
1430 (and (build_component "core" "avidemux_core")
1431 (build_component "cli" "avidemux/cli")
1432 (build_component "qt4" "avidemux/qt4")
1433 (build_component "plugins_common" "avidemux_plugins"
1434 '("-DPLUGIN_UI=COMMON"))
1435 (build_component "plugins_cli" "avidemux_plugins"
1436 '("-DPLUGIN_UI=CLI"))
1437 (build_component "plugins_qt4" "avidemux_plugins"
1438 '("-DPLUGIN_UI=QT4"))
1439 (build_component "plugins_settings" "avidemux_plugins"
1440 '("-DPLUGIN_UI=SETTINGS")))
1441 ;; Remove .exe and .dll file.
1442 (delete-file-recursively
1443 (string-append out "/share/ADM6_addons")))))
1444 (delete 'install))))
44726031
AE		 1445 (home-page "http://fixounet.free.fr/avidemux/")
1446 (synopsis "Video editor")
1447 (description "Avidemux is a video editor designed for simple cutting,
1448filtering and encoding tasks. It supports many file types, including AVI,
1449DVD compatible MPEG files, MP4 and ASF, using a variety of codecs. Tasks
1450can be automated using projects, job queue and powerful scripting
1451capabilities.")
afd9ed5c 1452 (supported-systems '("x86_64-linux" "i686-linux" "armhf-linux"))
44726031 1453 ;; Software with various licenses is included, see License.txt.
ae0bdd81 1454 (license license:gpl2+)))
44726031 1455
6f6c8b65
TUBK		 1456(define-public vapoursynth
1457 (package
1458 (name "vapoursynth")
4f7a9e0b 1459 (version "37")
6f6c8b65
TUBK		 1460 (source (origin
1461 (method url-fetch)
1462 (uri (string-append
1463 "https://github.com/vapoursynth/vapoursynth/archive/R"
1464 version ".tar.gz"))
0b37c4cd 1465 (file-name (string-append name "-" version ".tar.gz"))
6f6c8b65
TUBK		 1466 (sha256
1467 (base32
4f7a9e0b 1468 "1g3hc079jw4mz1cmkv2y28pdb556wqc8ql7iravgh1rg8j3f1zi5"))))
6f6c8b65
TUBK		 1469 (build-system gnu-build-system)
1470 (native-inputs
1471 `(("autoconf" ,autoconf)
1472 ("automake" ,automake)
1473 ("cython" ,python-cython)
1474 ("libtool" ,libtool)
1475 ("pkg-config" ,pkg-config)
1476 ("python" ,python)
1477 ("yasm" ,yasm)))
1478 (inputs
1479 `(("ffmpeg" ,ffmpeg)
1480 ("libass" ,libass)
f80d5fe0
EF		 1481 ("tesseract-ocr" ,tesseract-ocr)
1482 ("zimg" ,zimg)))
6f6c8b65
TUBK		 1483 (arguments
1484 '(#:phases
1485 (modify-phases %standard-phases
1486 (add-after
f8503e2b 1487 'unpack 'autogen
6f6c8b65
TUBK		 1488 (lambda _
1489 (zero? (system* "sh" "autogen.sh")))))))
1490 (home-page "http://www.vapoursynth.com/")
1491 (synopsis "Video processing framework")
1492 (description "VapourSynth is a C++ library and Python module for video
1493manipulation. It aims to be a modern rewrite of Avisynth, supporting
1494multithreading, generalized colorspaces, per frame properties, and videos with
1495format changes.")
9a078f48
EF		 1496 ;; src/core/cpufeatures only allows x86, ARM or PPC
1497 (supported-systems (delete "mips64el-linux" %supported-systems))
6f6c8b65 1498 ;; As seen from the source files.
ae0bdd81 1499 (license license:lgpl2.1+)))
6f6c8b65 1500
67932f86
TUBK		 1501(define-public xvid
1502 (package
1503 (name "xvid")
e05035c7 1504 (version "1.3.4")
67932f86
TUBK		 1505 (source (origin
1506 (method url-fetch)
1507 (uri (string-append
1508 "http://downloads.xvid.org/downloads/xvidcore-"
1509 version ".tar.bz2"))
1510 (sha256
1511 (base32
e05035c7 1512 "1xwbmp9wqshc0ckm970zdpi0yvgqxlqg0s8bkz98mnr8p2067bsz"))))
67932f86
TUBK		 1513 (build-system gnu-build-system)
1514 (native-inputs `(("yasm" ,yasm)))
1515 (arguments
1516 '(#:phases
62fe2d47
EF		 1517 (modify-phases %standard-phases
1518 (add-before
1519 'configure 'pre-configure
1520 (lambda _
1521 (chdir "build/generic")
1522 (substitute* "configure"
1523 (("#! /bin/sh") (string-append "#!" (which "sh")))))))
67932f86
TUBK		 1524 ;; No 'check' target.
1525 #:tests? #f))
1526 (home-page "https://www.xvid.com/")
1527 (synopsis "MPEG-4 Part 2 Advanced Simple Profile video codec")
1528 (description "Xvid is an MPEG-4 Part 2 Advanced Simple Profile (ASP) video
1529codec library. It uses ASP features such as b-frames, global and quarter
1530pixel motion compensation, lumi masking, trellis quantization, and H.263, MPEG
1531and custom quantization matrices.")
ae0bdd81 1532 (license license:gpl2+)))
e16fde14
DT		 1533
1534(define-public livestreamer
1535 (package
1536 (name "livestreamer")
68e88a09 1537 (version "1.12.2")
e16fde14
DT		 1538 (source (origin
1539 (method url-fetch)
1540 (uri (string-append
1541 "https://github.com/chrippa/livestreamer/archive/v"
1542 version ".tar.gz"))
1543 (file-name (string-append "livestreamer-" version ".tar.gz"))
1544 (sha256
1545 (base32
68e88a09 1546 "1fp3d3z2grb1ls97smjkraazpxnvajda2d1g1378s6gzmda2jvjd"))))
e16fde14
DT		 1547 (build-system python-build-system)
1548 (arguments
1549 '(#:tests? #f)) ; tests rely on external web servers
e16fde14 1550 (propagated-inputs
5b9fe59f 1551 `(("python-requests" ,python-requests)))
e16fde14
DT		 1552 (synopsis "Internet video stream viewer")
1553 (description "Livestreamer is a command-line utility that extracts streams
1554from various services and pipes them into a video playing application.")
1555 (home-page "http://livestreamer.io/")
1556 (license license:bsd-2)))
307ad140
RW		 1557
1558(define-public mlt
1559 (package
1560 (name "mlt")
f05f5b30 1561 (version "6.4.1")
307ad140
RW		 1562 (source (origin
1563 (method url-fetch)
4c7729dc
EF		 1564 (uri (string-append "https://github.com/mltframework/mlt/"
1565 "archive/v" version ".tar.gz"))
1566 (file-name (string-append name "-" version ".tar.gz"))
307ad140
RW		 1567 (sha256
1568 (base32
f05f5b30 1569 "10m3ry0b2pvqx3bk34qh5dq337nn8pkc2gzfyhsj4nv9abskln47"))))
307ad140
RW		 1570 (build-system gnu-build-system)
1571 (arguments
1572 `(#:tests? #f ; no tests
1573 #:make-flags '("CC=gcc")
1574 #:configure-flags
1575 (list "--enable-gpl3"
1576 "--enable-gpl")
1577 #:phases
1578 (modify-phases %standard-phases
1579 (add-after
1580 'configure 'override-LDFLAGS
1581 (lambda* (#:key outputs #:allow-other-keys)
1582 (substitute* "config.mak"
1583 (("LDFLAGS\\+=")
1584 (string-append "LDFLAGS+=-Wl,-rpath="
1585 (assoc-ref outputs "out")
1586 "/lib ")))
1587 #t)))))
1588 (inputs
1589 `(("alsa-lib" ,alsa-lib)
1590 ("fftw" ,fftw)
1591 ("libxml2" ,libxml2)
1592 ("jack" ,jack-1)
1593 ("ladspa" ,ladspa)
1594 ("libsamplerate" ,libsamplerate)
4c7729dc 1595 ("pulseaudio" ,pulseaudio)
307ad140
RW		 1596 ("sdl" ,sdl)
1597 ("sox" ,sox)))
1598 (native-inputs
1599 `(("pkg-config" ,pkg-config)))
4c7729dc 1600 (home-page "https://www.mltframework.org/")
307ad140
RW		 1601 (synopsis "Author, manage, and run multitrack audio/video compositions")
1602 (description
1603 "MLT is a multimedia framework, designed and developed for television
1604broadcasting. It provides a toolkit for broadcasters, video editors, media
1605players, transcoders, web streamers and many more types of applications. The
1606functionality of the system is provided via an assortment of ready to use
1607tools, XML authoring components, and an extensible plug-in based API.")
1608 (license license:lgpl2.1+)))
f464016d 1609
945d985a
DT		 1610(define-public v4l-utils
1611 (package
1612 (name "v4l-utils")
f1d1ef71 1613 (version "1.12.5")
945d985a
DT		 1614 (source (origin
1615 (method url-fetch)
1d4ac724 1616 (uri (string-append "https://linuxtv.org/downloads/v4l-utils"
945d985a
DT		 1617 "/v4l-utils-" version ".tar.bz2"))
1618 (sha256
1619 (base32
f1d1ef71 1620 "03g2b4rivrilimcp57mwrlsa3qvrxmk4sza08mygwmqbvcnic606"))))
945d985a
DT		 1621 (build-system gnu-build-system)
1622 (arguments
1623 '(#:configure-flags
1624 (list (string-append "--with-udevdir="
1625 (assoc-ref %outputs "out")
2cef0f7c
DC		 1626 "/lib/udev")
1627 "CXXFLAGS=-std=gnu++11")))
945d985a 1628 (native-inputs
4ca077d5
TGR		 1629 `(("perl" ,perl)
1630 ("pkg-config" ,pkg-config)))
945d985a
DT		 1631 (inputs
1632 `(("alsa-lib" ,alsa-lib)
1633 ("glu" ,glu)
1634 ("libjpeg" ,libjpeg)
1635 ("libx11" ,libx11)
b37662e2 1636 ("qtbase" ,qtbase)
945d985a
DT		 1637 ("eudev" ,eudev)))
1638 (synopsis "Realtime video capture utilities for Linux")
1639 (description "The v4l-utils provide a series of libraries and utilities to
1640be used for realtime video capture via Linux-specific APIs.")
1641 (home-page "https://linuxtv.org/wiki/index.php/V4l-utils")
1642 ;; libv4l2 is LGPL2.1+, while utilities are GPL2 only.
1643 (license (list license:lgpl2.1+ license:gpl2))))
1644
f464016d
DT		 1645(define-public obs
1646 (package
1647 (name "obs")
341ccb0f 1648 (version "18.0.2")
f464016d
DT		 1649 (source (origin
1650 (method url-fetch)
1651 (uri (string-append "https://github.com/jp9000/obs-studio"
1652 "/archive/" version ".tar.gz"))
1653 (file-name (string-append name "-" version ".tar.gz"))
1654 (sha256
1655 (base32
341ccb0f 1656 "02pbiyvf5x0zh448h5rpmyn33qnsqk694xxlyns83mdi74savyqw"))))
f464016d 1657 (build-system cmake-build-system)
08858812 1658 (arguments
f3bd1728 1659 `(#:tests? #f)) ; no tests
f464016d
DT		 1660 (native-inputs
1661 `(("pkg-config" ,pkg-config)))
1662 (inputs
4f98c3c5
EF		 1663 `(("alsa-lib" ,alsa-lib)
1664 ("curl" ,curl)
f464016d
DT		 1665 ("eudev" ,eudev)
1666 ("ffmpeg" ,ffmpeg)
4f98c3c5 1667 ("fontconfig" ,fontconfig)
f464016d
DT		 1668 ("freetype" ,freetype)
1669 ("jack" ,jack-1)
1670 ("jansson" ,jansson)
1671 ("libx264" ,libx264)
1672 ("libxcomposite" ,libxcomposite)
1673 ("mesa" ,mesa)
1674 ("pulseaudio" ,pulseaudio)
90a2309b
EF		 1675 ("qtbase" ,qtbase)
1676 ("qtx11extras" ,qtx11extras)
4f98c3c5 1677 ("speex" ,speex)
d4df2032 1678 ("v4l-utils" ,v4l-utils)
f464016d
DT		 1679 ("zlib" ,zlib)))
1680 (synopsis "Live streaming software")
1681 (description "Open Broadcaster Software provides a graphical interface for
1682video recording and live streaming. OBS supports capturing audio and video
1683from many input sources such as webcams, X11 (for screencasting), PulseAudio,
1684and JACK.")
1685 (home-page "https://obsproject.com")
f3bd1728 1686 (supported-systems '("x86_64-linux" "i686-linux"))
f464016d 1687 (license license:gpl2+)))
d5650f86
EF		 1688
1689(define-public libvdpau
1690 (package
1691 (name "libvdpau")
1692 (version "1.1.1")
1693 (source
1694 (origin
1695 (method url-fetch)
1696 (uri (string-append "https://secure.freedesktop.org/~aplattner/vdpau/"
1697 name "-" version ".tar.bz2"))
1698 (sha256
1699 (base32
1700 "0dnpb0yh7v6rvckx82kxg045rd9rbsw25wjv7ad5n8h94s9h2yl5"))))
1701 (build-system gnu-build-system)
1702 (native-inputs
1703 `(("pkg-config" ,pkg-config)))
1704 (inputs
1705 `(("dri2proto" ,dri2proto)
1706 ("libx11" ,libx11 "out")
1707 ("libxext" ,libxext)))
1708 (home-page "https://wiki.freedesktop.org/www/Software/VDPAU/")
1709 (synopsis "Video Decode and Presentation API")
1710 (description "VDPAU is the Video Decode and Presentation API for UNIX. It
1711provides an interface to video decode acceleration and presentation hardware
1712present in modern GPUs.")
1713 (license (license:x11-style "file://COPYING"))))
3161d32d
EF		 1714
1715(define-public vdpauinfo
1716 (package
1717 (name "vdpauinfo")
1718 (version "1.0")
1719 (source
1720 (origin
1721 (method url-fetch)
1722 (uri (string-append "https://secure.freedesktop.org/~aplattner/vdpau/"
1723 name "-" version ".tar.gz"))
1724 (sha256
1725 (base32
1726 "1i2b0k9h8r0lnxlrkgqzmrjakgaw3f1ygqqwzx8w6676g85rcm20"))))
1727 (build-system gnu-build-system)
1728 (native-inputs
1729 `(("pkg-config" ,pkg-config)
1730 ("libx11" ,libx11)))
1731 (propagated-inputs
1732 `(("libvdpau" ,libvdpau)))
1733 (home-page "https://wiki.freedesktop.org/www/Software/VDPAU/")
1734 (synopsis "Tool to query the capabilities of a VDPAU implementation")
1735 (description "Vdpauinfo is a tool to query the capabilities of a VDPAU
1736implementation.")
1737 (license (license:x11-style "file://COPYING"))))
a7d94b54
LC		 1738
1739(define-public recordmydesktop
1740 (package
1741 (name "recordmydesktop")
1742 (version "0.3.8.1")
1743 (source (origin
1744 (method url-fetch)
1745 (uri (string-append "mirror://sourceforge/" name "/" name "/"
1746 version "/recordmydesktop-" version ".tar.gz"))
1747 (sha256
1748 (base32
1749 "133kkl5j0r877d41bzj7kj0vf3xm8x80yyx2n8nqxrva304f58ik"))))
1750 (build-system gnu-build-system)
1751 (inputs `(("popt" ,popt)
1752 ("zlib" ,zlib)
1753 ("libx11" ,libx11)
1754 ("libice" ,libice)
1755 ("libsm" ,libsm)
1756 ("libxfixes" ,libxfixes)
1757 ("libxdamage" ,libxdamage)
1758 ("libxext" ,libxext)
ed6ba9cc 1759 ("alsa-lib" ,alsa-lib)
a7d94b54
LC		 1760 ("libvorbis" ,libvorbis)
1761 ("libtheora" ,libtheora)))
1762 (home-page "http://recordmydesktop.sourceforge.net/")
1763 (synopsis "Desktop session video recorder")
1764 (description
1765 "recordMyDesktop is a command-line tool that captures the activity in
1766your graphical desktop and encodes it as a video. This is a useful tool for
1767making @dfn{screencasts}.")
1768 (license license:gpl2+)))
d8841cc5
KK		 1769
1770(define-public libsmpeg
1771 (package
1772 (name "libsmpeg")
1773 (version "0.4.5")
1774 (source (origin
1775 (method svn-fetch)
1776 (uri (svn-reference
1777 (url "svn://svn.icculus.org/smpeg/trunk/")
1778 (revision 401))) ; last revision before smpeg2 (for SDL 2.0)
b9af0564 1779 (file-name (string-append name "-" version "-checkout"))
d8841cc5
KK		 1780 (sha256
1781 (base32
1782 "18yfkr70lr1x1hc8snn2ldnbzdcc7b64xmkqrfk8w59gpg7sl1xn"))))
1783 (build-system gnu-build-system)
1784 (arguments
1785 `(#:phases (modify-phases %standard-phases
1786 (add-after 'unpack 'autogen.sh
1787 (lambda _
1788 (zero? (system* "sh" "autogen.sh")))))))
1789 (native-inputs
1790 `(("autoconf" ,autoconf)
1791 ("automake" ,automake)))
1792 (inputs
1793 `(("sdl" ,sdl2)))
1794 (home-page "http://icculus.org/smpeg/")
1795 (synopsis "SDL MPEG decoding library")
1796 (description
1797 "SMPEG (SDL MPEG Player Library) is a free MPEG1 video player library
1798with sound support. Video playback is based on the ubiquitous Berkeley MPEG
1799player, mpeg_play v2.2. Audio is played through a slightly modified mpegsound
1800library, part of splay v0.8.2. SMPEG supports MPEG audio (MP3), MPEG-1 video,
1801and MPEG system streams.")
1802 (license (list license:expat
1803 license:lgpl2.1
1804 license:lgpl2.1+
1805 license:gpl2))))
4df07622
AP		 1806
1807(define-public libbdplus
1808 (package
1809 (name "libbdplus")
1810 (version "0.1.2")
1811 (source
1812 (origin
1813 (method url-fetch)
1814 (uri (string-append "ftp://ftp.videolan.org/pub/videolan/libbdplus/"
1815 version "/" name "-" version ".tar.bz2"))
1816 (sha256
1817 (base32 "02n87lysqn4kg2qk7d1ffrp96c44zkdlxdj0n16hbgrlrpiwlcd6"))))
1818 (inputs
1819 `(("libgcrypt" ,libgcrypt)))
1820 (build-system gnu-build-system)
b8a31908 1821 (home-page "https://www.videolan.org/developers/libbdplus.html")
4df07622
AP		 1822 (synopsis "Library for decrypting certain Blu-Ray discs")
1823 (description "libbdplus is a library which implements the BD+ System
1824specifications.")
1825 (license license:lgpl2.1+)))
8dd6fc51
AP		 1826
1827(define-public libaacs
1828 (package
1829 (name "libaacs")
ba58886a 1830 (version "0.9.0")
8dd6fc51
AP		 1831 (source
1832 (origin
1833 (method url-fetch)
1834 (uri (string-append "ftp://ftp.videolan.org/pub/videolan/libaacs/"
1835 version "/" name "-" version ".tar.bz2"))
1836 (sha256
ba58886a 1837 (base32 "1kms92i0c7i1yl659kqjf19lm8172pnpik5lsxp19xphr74vvq27"))))
8dd6fc51
AP		 1838 (inputs
1839 `(("libgcrypt" ,libgcrypt)))
1840 (native-inputs
1841 `(("bison" ,bison)
1842 ("flex" ,flex)))
1843 (build-system gnu-build-system)
b8a31908 1844 (home-page "https://www.videolan.org/developers/libaacs.html")
8dd6fc51
AP		 1845 (synopsis "Library for decrypting certain Blu-Ray discs")
1846 (description "libaacs is a library which implements the Advanced Access
1847Content System specification.")
1848 (license license:lgpl2.1+)))
05234973 1849
1850(define-public mps-youtube
1851 (package
1852 (name "mps-youtube")
1853 (version "0.2.7.1")
1854 (source
1855 (origin
1856 (method url-fetch)
1857 (uri (string-append "https://github.com/mps-youtube/mps-youtube/"
1858 "archive/v" version ".tar.gz"))
1859 (file-name (string-append name "-" version ".tar.gz"))
1860 (sha256
1861 (base32
1862 "1s7h35yx6f0szf8mm8612ic913w3v05m2kwphjfcxnpq0ammhyci"))))
1863 (build-system python-build-system)
175d6264 1864 (arguments
1865 ;; Tests need to be disabled until #556 upstream is fixed. It reads as if the
1866 ;; test suite results differ depending on the country and also introduce
1867 ;; non-determinism in the tests.
1868 ;; https://github.com/mps-youtube/mps-youtube/issues/556
1869 `(#:tests? #f))
05234973 1870 (propagated-inputs
1871 `(("python-pafy" ,python-pafy)
1872 ("python-pygobject" ,python-pygobject))) ; For mpris2 support
1873 (home-page "https://github.com/mps-youtube/mps-youtube")
1874 (synopsis "Terminal based YouTube player and downloader")
1875 (description
1876 "@code{mps-youtube} is based on mps, a terminal based program to
1877search, stream and download music. This implementation uses YouTube as
1878a source of content and can play and download video as well as audio.
1879It can use either mpv or mplayer for playback, and for conversion of
1880formats ffmpeg or libav is used. Users should install one of the
1881supported players in addition to this package.")
1882 (license license:gpl3+)))
fe047e13
EB		 1883
1884(define-public handbrake
1885 (package
1886 (name "handbrake")
1887 (version "0.10.5")
1888 (source (origin
1889 (method url-fetch)
1890 (uri (string-append "https://handbrake.fr/rotation.php?file="
1891 "HandBrake-" version ".tar.bz2"))
1892 (file-name (string-append "handbrake-" version ".tar.bz2"))
1893 (sha256
1894 (base32
1895 "1w720y3bplkz187wgvy4a4xm0vpppg45mlni55l6yi8v2bfk14pv"))
1896 (patches (search-patches "handbrake-pkg-config-path.patch"))
1897 (modules '((guix build utils)))
1898 (snippet
1899 ;; Remove bundled libraries and source not necessary for
1900 ;; running under a GNU environment.
1901 '(begin
1902 (for-each delete-file-recursively '("contrib" "macosx" "win"))
1903 #t))))
1904 (build-system glib-or-gtk-build-system)
1905 (native-inputs
1906 `(("automake" ,automake) ;gui subpackage must be bootstrapped
1907 ("autoconf" ,autoconf)
1908 ("curl" ,curl) ;not actually used, but tested for
1909 ("intltool" ,intltool)
1910 ("libtool" ,libtool)
1911 ("pkg-config" ,pkg-config)
1912 ("python" ,python-2))) ;for configuration
1913 (inputs
1914 `(("bzip2" ,bzip2)
1915 ("dbus-glib" ,dbus-glib)
1916 ("ffmpeg" ,ffmpeg)
1917 ("fontconfig" ,fontconfig)
1918 ("freetype" ,freetype)
1919 ("glib" ,glib)
1920 ("gstreamer" ,gstreamer)
1921 ("gst-plugins-base" ,gst-plugins-base)
1922 ("gtk+" ,gtk+)
1923 ("lame" ,lame)
1924 ("libass" ,libass)
1925 ("libbluray" ,libbluray)
1926 ("libdvdnav" ,libdvdnav)
1927 ("libdvdread" ,libdvdread)
1928 ("libgudev" ,libgudev)
1929 ("libmpeg2" ,libmpeg2)
1930 ("libnotify" ,libnotify)
1931 ("libogg" ,libogg)
1932 ("libsamplerate" ,libsamplerate)
1933 ("libtheora" ,libtheora)
1934 ("libvorbis" ,libvorbis)
1935 ("libvpx" ,libvpx)
1936 ("libxml2" ,libxml2)
1937 ("libx264" ,libx264)
1938 ("x265" ,x265)
1939 ("zlib" ,zlib)))
1940 (arguments
1941 `(#:tests? #f ;tests require Ruby and claim to be unsupported
1942 #:phases
1943 (modify-phases %standard-phases
1944 (add-before 'patch-source-shebangs 'bootstrap-gtk
1945 ;; Run bootstrap ahead of time so that shebangs get patched.
1946 (lambda _
1947 (setenv "CONFIG_SHELL" (which "sh"))
1948 (setenv "NOCONFIGURE" "1")
1949 ;; Patch the Makefile so that it doesn't bootstrap again.
1950 (substitute* "gtk/module.rules"
1951 ((".*autogen\\.sh.*") ""))
1952 (zero? (system* "sh" "./gtk/autogen.sh"))))
1953 (add-before 'configure 'disable-contrib
1954 (lambda _
1955 (substitute* "make/include/main.defs"
1956 ;; Disable unconditional inclusion of some "contrib"
1957 ;; libraries (ffmpeg, libvpx, libdvdread, libdvdnav,
1958 ;; and libbluray), which would lead to fetching and
1959 ;; building of these libraries. Use our own instead.
1960 (("MODULES \\+= contrib") "# MODULES += contrib"))
1961 #t))
1962 (add-before 'configure 'fix-x265-linking
1963 (lambda _
1964 (substitute* "test/module.defs"
1965 ;; Fix missing library during linking error
1966 (("TEST.GCC.l =") "TEST.GCC.l = x265"))
1967 #t))
1968 (replace 'configure
1969 (lambda* (#:key outputs configure-flags #:allow-other-keys)
1970 ;; 'configure' is not an autoconf-generated script, and
1971 ;; errors on unrecognized arguments,
1972 ;; e.g. --enable-fast-install
1973 (let ((out (assoc-ref outputs "out")))
1974 (zero? (apply system* "./configure"
1975 (string-append "--prefix=" out)
1976 (or configure-flags '()))))))
1977 (add-after 'configure 'chdir-build
1978 (lambda _ (chdir "./build") #t)))))
1979 (home-page "https://handbrake.fr")
1980 (synopsis "Video transcoder")
1981 (description
1982 "HandBrake is a tool for converting video from any format to a selection
1983of modern, widely supported codecs.")
1984 ;; Most under GPL version 2 or later, and portions under BSD 3 Clause
1985 (license (list license:gpl2+ license:bsd-3))))
590abe01
JN		 1986
1987(define-public openh264
1988 (package
1989 (name "openh264")
1990 (version "1.6.0")
1991 (source (origin
1992 (method url-fetch)
1993 (uri (string-append "https://github.com/cisco/"
1994 name "/archive/v" version ".tar.gz"))
1995 (file-name (string-append name "-" version ".tar.gz"))
1996 (sha256
1997 (base32
1998 "1ix2fhk62i4q4kbnkl0gfk4x53vxqavsn0pck1pashr566zhglv5"))))
1999 (build-system gnu-build-system)
2000 (native-inputs
2001 `(("nasm" ,nasm)
2002 ("python" ,python)))
2003 (arguments
8363a835
EF		 2004 '(#:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
2005 "CC=gcc")
590abe01
JN		 2006 #:test-target "test"
2007 #:phases (modify-phases %standard-phases
2008 ;; no configure script
2009 (delete 'configure))))
2010 (home-page "http://www.openh264.org/")
2011 (synopsis "H264 decoder library")
2012 (description
2013 "Openh264 is a library which can decode H264 video streams.")
2014 (license license:bsd-2)))
3a44c7bb 2015
2016(define-public libmp4v2
2017 (package
2018 (name "libmp4v2")
2019 (version "2.0.0")
2020 (source
2021 (origin
2022 (method url-fetch)
2023 ;; XXX: The new location of upstream is uncertain and will become relevant the
2024 ;; moment when the googlecode archive shuts down. It is past the date it
2025 ;; should've been turned off. I tried to communicate with upstream, but this
2026 ;; wasn't very responsive and not very helpful. The short summary is, it is
2027 ;; chaos when it comes to the amount of forks and only time will tell where
2028 ;; the new upstream location is.
2029 (uri (string-append "https://storage.googleapis.com/google-"
2030 "code-archive-downloads/v2/"
2031 "code.google.com/mp4v2/mp4v2-" version ".tar.bz2"))
2032 (file-name (string-append name "-" version ".tar.bz2"))
2033 (sha256
2034 (base32
2035 "0f438bimimsvxjbdp4vsr8hjw2nwggmhaxgcw07g2z361fkbj683"))))
2036 (build-system gnu-build-system)
2037 (outputs '("out"
2038 "static")) ; 3.7MiB .a file
2039 (arguments
2040 `(#:phases
2041 (modify-phases %standard-phases
2042 (add-after 'unpack 'remove-dates
2043 (lambda _
2044 ;; Make the build reproducible.
2045 (substitute* "configure"
2046 (("PROJECT_build=\"`date`\"") "PROJECT_build=\"\"")
2047 (("ac_abs_top_builddir=$ac_pwd") "ac_abs_top_builddir=\"\""))
2048 #t))
2049 (add-after 'install 'move-static-libraries
2050 (lambda* (#:key outputs #:allow-other-keys)
2051 ;; Move static libraries to the "static" output.
2052 (let* ((out (assoc-ref outputs "out"))
2053 (lib (string-append out "/lib"))
2054 (static (assoc-ref outputs "static"))
2055 (slib (string-append static "/lib")))
2056 (mkdir-p slib)
2057 (for-each (lambda (file)
2058 (install-file file slib)
2059 (delete-file file))
2060 (find-files lib "\\.a$"))
2061 #t))))))
2062 (native-inputs
2063 `(("help2man" ,help2man)
2064 ("dejagnu" ,dejagnu)))
2065 (home-page "https://code.google.com/archive/p/mp4v2/")
2066 (synopsis "API to create and modify mp4 files")
2067 (description
2068 "The MP4v2 library provides an API to create and modify mp4 files as defined by
2069ISO-IEC:14496-1:2001 MPEG-4 Systems. This file format is derived from Apple's QuickTime
2070file format that has been used as a multimedia file format in a variety of platforms and
2071applications. It is a very powerful and extensible format that can accommodate
2072practically any type of media.")
2073 (license license:mpl1.1)))
e0c40707
EJ		 2074
2075(define-public libmediainfo
2076 (package
2077 (name "libmediainfo")
2078 (version "0.7.95")
2079 (source (origin
2080 (method url-fetch)
2081 (uri (string-append "https://mediaarea.net/download/source/"
2082 name "/" version"/"
2083 name "_" version ".tar.bz2"))
2084 (sha256
2085 (base32
2086 "1kchh6285b07z5nixv619hc9gml2ysdayicdiv30frrlqiyxqw4b"))))
2087 ;; TODO add a Big Buck Bunny webm for tests.
2088 (native-inputs
2089 `(("autoconf" ,autoconf)
2090 ("automake" ,automake)
2091 ("libtool" ,libtool)
2092 ("pkg-config" ,pkg-config)
2093 ("zlib" ,zlib)
2094 ("tinyxml2" ,tinyxml2)
2095 ("curl" ,curl)
2096 ("libzen" ,libzen)))
2097 (build-system gnu-build-system)
2098 (arguments
2099 '(#:tests? #f ; see above TODO
2100 #:phases
2101 ;; build scripts not in root of archive
2102 (modify-phases %standard-phases
2103 (add-before 'configure 'pre-configure
2104 (lambda _
2105 (chdir "Project/GNU/Library")))
2106 (add-before 'configure 'autogen
2107 (lambda _
2108 (zero? (system* "./autogen.sh")))))))
2109 (home-page "https://mediaarea.net/en/MediaInfo")
2110 (synopsis "Library for retrieving media metadata")
2111 (description "MediaInfo is a library used for retrieving technical
2112information and other metadata about audio or video files. A non-exhaustive
2113list of the information MediaInfo can retrieve from media files include:
2114
2115@itemize
2116@item General: title, author, director, album, track number, date, duration...
2117@item Video: codec, aspect, fps, bitrate...
2118@item Audio: codec, sample rate, channels, language, bitrate...
2119@item Text: language of subtitle
2120@item Chapters: number of chapters, list of chapters
2121@end itemize
2122
2123MediaInfo supports the following formats:
2124
2125@itemize
2126@item Video: MKV, OGM, AVI, DivX, WMV, QuickTime, Real, MPEG-1,
2127MPEG-2, MPEG-4, DVD (VOB)...
2128@item Video Codecs: DivX, XviD, MSMPEG4, ASP, H.264, AVC...)
2129@item Audio: OGG, MP3, WAV, RA, AC3, DTS, AAC, M4A, AU, AIFF...
2130@item Subtitles: SRT, SSA, ASS, SAMI...
2131@end itemize\n")
2132 (license license:bsd-2)))
2133
d5fa2777
EJ		 2134;; TODO also have a GUI version available
2135(define-public mediainfo
2136 (package
2137 (name "mediainfo")
2138 (version "0.7.95")
2139 (source (origin
2140 (method url-fetch)
2141 (uri (string-append "https://mediaarea.net/download/source/"
2142 name "/" version "/"
2143 name "_" version ".tar.bz2"))
2144 (sha256
2145 (base32
2146 "0dy51a3i79jppmg1gi4f6h7jx4hcgnkmfim4d7d3gmnlbkjh8anv"))))
2147 (native-inputs
2148 `(("autoconf" ,autoconf)
2149 ("automake" ,automake)
2150 ("libtool" ,libtool)
2151 ("pkg-config" ,pkg-config)
2152 ("zlib" ,zlib)
2153 ("libmediainfo", libmediainfo)
2154 ("libzen" ,libzen)))
2155 (build-system gnu-build-system)
2156 (arguments
2157 '(#:tests? #f ; lacks tests
2158 #:phases
2159 ;; build scripts not in root of archive
2160 (modify-phases %standard-phases
2161 (add-before 'configure 'pre-configure
2162 (lambda _
2163 (chdir "Project/GNU/CLI")))
2164 (add-before 'configure 'autogen
2165 (lambda _
2166 (zero? (system* "./autogen.sh")))))))
2167 (home-page "https://mediaarea.net/en/MediaInfo")
2168 (synopsis "Utility for reading media metadata")
2169 (description "MediaInfo is a utility used for retrieving technical
2170information and other metadata about audio or video files. It supports the
2171many codecs and formats supported by libmediainfo.")
2172 (license license:bsd-2)))
fa379a5b
CL		 2173
2174(define-public livemedia-utils
2175 (package
2176 (name "livemedia-utils")
e7178996 2177 (version "2017.06.04")
fa379a5b
CL		 2178 (source (origin
2179 (method url-fetch)
2180 (uri (string-append
517c66c0 2181 "https://download.videolan.org/contrib/live555/live."
fa379a5b
CL		 2182 version ".tar.gz"))
2183 (sha256
2184 (base32
e7178996 2185 "0xf3vynxqpxpd762zni0jkblnjlgbqxjx99m83m7gqx6zriph271"))))
fa379a5b
CL		 2186 (build-system gnu-build-system)
2187 (arguments
2188 '(#:tests? #f ; no tests
2189 #:make-flags (list "CC=gcc"
2190 (string-append "LDFLAGS=-Wl,-rpath="
2191 (assoc-ref %outputs "out") "/lib")
2192 (string-append "PREFIX="
2193 (assoc-ref %outputs "out")))
2194 #:phases (modify-phases %standard-phases
2195 (add-before 'configure 'fix-makefiles-generation
2196 (lambda _
2197 (substitute* "genMakefiles"
2198 (("/bin/rm") "rm"))
2199 #t))
2200 (replace 'configure
2201 (lambda _
2202 (zero? (system* "./genMakefiles"
2203 "linux-with-shared-libraries")))))))
2204 (home-page "http://www.live555.com/liveMedia/")
2205 (synopsis "Set of C++ libraries for multimedia streaming")
2206 (description "This code forms a set of C++ libraries for multimedia
2207streaming, using open standard protocols (RTP/RTCP, RTSP, SIP). The libraries
2208can be used to stream, receive, and process MPEG, H.265, H.264, H.263+, DV or
2209JPEG video, and several audio codecs. They can easily be extended to support
2210additional (audio and/or video) codecs, and can also be used to build basic
2211RTSP or SIP clients and servers.")
2212 (license license:lgpl3+)))
0dff4dd9
CL		 2213
2214(define-public libdvbpsi
2215 (package
2216 (name "libdvbpsi")
2217 (version "1.3.1")
2218 (source (origin
2219 (method url-fetch)
2220 (uri (string-append
2221 "https://download.videolan.org/pub/libdvbpsi/"
2222 version "/libdvbpsi-" version ".tar.bz2"))
2223 (sha256
2224 (base32
2225 "0824r08kaspbrrg2dd5d46s475zb7j59brqkm2y6x3mdsnpng0yn"))))
2226 (build-system gnu-build-system)
2227 (home-page "https://www.videolan.org/developers/libdvbpsi.html")
2228 (synopsis "Library for decoding and generation of MPEG TS and DVB PSI
2229tables")
2230 (description "libdvbpsi is a simple library designed for decoding and
2231generation of MPEG TS and DVB PSI tables according to standards ISO/IEC 13818s
2232and ITU-T H.222.0.")
2233 (license license:lgpl2.1)))
jackhill's copy of GNU Guix: https://guix.gnu.org/