;;; Copyright © 2016, 2018 Leo Famulari <leo@famulari.name>
;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
+;;; Copyright © 2019, 2020 Marius Bakke <mbakke@fastmail.com>
+;;; Copyright © 2020 Leo Prikler <leo.prikler@student.tugraz.at>
;;;
;;; This file is part of GNU Guix.
;;;
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix build-system gnu)
+ #:use-module (guix build-system meson)
#:use-module (guix utils)
#:use-module (gnu packages)
#:use-module (gnu packages audio)
(define-public orc
(package
(name "orc")
- (version "0.4.28")
+ (version "0.4.31")
(source (origin
(method url-fetch)
(uri (string-append "https://gstreamer.freedesktop.org/data/src/"
"orc/orc-" version ".tar.xz"))
(sha256
(base32
- "1kl3rlmzr27bdpn78nvpnjs142ja1m6grvafdhw74mmhcdjprkdz"))))
- (build-system gnu-build-system)
+ "0xb0c7q3xv1ldmz5ipybazb01gy3cijj8622dcx7rbm9lq85zax0"))))
+ (build-system meson-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
- (add-before 'check 'disable-faulty-test
+ (add-after 'unpack 'disable-faulty-test
(lambda _
;; XXX Disable the 'test-limits' and 'exec_opcodes_sys'
;; tests, which fail on some machines. See:
(("if \\(error\\) return 1;")
"if (error) return 77;"))
#t)))))
+ (native-inputs
+ `(("gtk-doc" ,gtk-doc)))
(home-page "https://gstreamer.freedesktop.org/modules/orc.html")
(synopsis "Oil runtime compiler")
(description
(define-public gstreamer
(package
(name "gstreamer")
- (version "1.14.4")
+ (version "1.16.2")
(source
(origin
(method url-fetch)
version ".tar.xz"))
(sha256
(base32
- "1izzhnlsy83rgr4zl3jcl1sryxqbbigrrqw3j4x3nnphqnb6ckzr"))))
- (build-system gnu-build-system)
+ "0kp93622y29pck8asvil1fmzf55s2gx76wv475a6izc3cwj49w73"))))
+ (build-system meson-build-system)
(outputs '("out" "doc"))
(arguments
- `(#:configure-flags
- (list (string-append "--with-html-dir="
- (assoc-ref %outputs "doc")
- "/share/gtk-doc/html"))))
+ `(#:phases
+ (modify-phases %standard-phases
+ ;; FIXME: Since switching to the meson-build-system, two tests
+ ;; started failing on i686. See
+ ;; <https://gitlab.freedesktop.org/gstreamer/gstreamer/issues/499>.
+ ,@(if (string-prefix? "i686" (or (%current-target-system)
+ (%current-system)))
+ `((add-after 'unpack 'disable-some-tests
+ (lambda _
+ (substitute* "tests/check/gst/gstsystemclock.c"
+ (("tcase_add_test \\(tc_chain, test_stress_cleanup_unschedule.*")
+ "")
+ (("tcase_add_test \\(tc_chain, test_stress_reschedule.*")
+ ""))
+ #t)))
+ '())
+ (add-after 'install 'move-docs
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let ((out (assoc-ref outputs "out"))
+ (doc (assoc-ref outputs "doc")))
+ (mkdir-p (string-append doc "/share"))
+ (copy-recursively (string-append out "/share/gtk-doc")
+ (string-append doc "/share/gtk-doc"))
+ (delete-file-recursively (string-append out "/share/gtk-doc"))
+ #t))))))
(propagated-inputs `(("glib" ,glib))) ; required by gstreamer-1.0.pc.
(native-inputs
`(("bison" ,bison)
("flex" ,flex)
("glib" ,glib "bin")
("gobject-introspection" ,gobject-introspection)
+ ("gtk-doc" ,gtk-doc)
("perl" ,perl)
("pkg-config" ,pkg-config)
("python-wrapper" ,python-wrapper)))
(define-public gst-plugins-base
(package
(name "gst-plugins-base")
- (version "1.14.4")
+ (version "1.16.2")
(source
(origin
(method url-fetch)
name "-" version ".tar.xz"))
(sha256
(base32
- "0qbllw4kphchwhy4p7ivdysigx69i97gyw6q0rvkx1j81r4kjqfa"))))
- (build-system gnu-build-system)
- (outputs '("out" "doc"))
+ "0sl1hxlyq46r02k7z70v09vx1gi4rcypqmzra9jid93lzvi76gmi"))))
+ (build-system meson-build-system)
(propagated-inputs
`(("glib" ,glib) ;required by gstreamer-sdp-1.0.pc
("gstreamer" ,gstreamer) ;required by gstreamer-plugins-base-1.0.pc
- ("orc" ,orc))) ;required by gstreamer-audio-1.0.pc
+
+ ;; XXX: Do not enable Orc optimizations on ARM systems because
+ ;; it leads to two test failures.
+ ;; https://gitlab.freedesktop.org/gstreamer/gst-plugins-base/issues/683
+ ,@(if (string-prefix? "arm" (or (%current-target-system)
+ (%current-system)))
+ '()
+ `(("orc" ,orc))))) ;required by gstreamer-audio-1.0.pc
(inputs
`(("cdparanoia" ,cdparanoia)
("pango" ,pango)
("gobject-introspection" ,gobject-introspection)
("python-wrapper" ,python-wrapper)))
(arguments
- `(#:parallel-tests? #f ; 'pipelines/tcp' fails in parallel
- #:configure-flags
- (list (string-append "--with-html-dir="
- (assoc-ref %outputs "doc")
- "/share/gtk-doc/html"))
+ '(#:configure-flags '("-Dgl=disabled"
+ ;; FIXME: Documentation fails to build without
+ ;; enabling GL above, which causes other problems.
+ "-Ddoc=false")
#:phases
(modify-phases %standard-phases
(add-before 'configure 'patch
(define-public gst-plugins-good
(package
(name "gst-plugins-good")
- (version "1.14.4")
+ (version "1.16.2")
(source
(origin
(method url-fetch)
name "-" version ".tar.xz"))
(sha256
(base32
- "0y89qynb4b6fry3h43z1r99qslmi3m8xhlq0i5baq2nbc0r5b2sz"))))
- (build-system gnu-build-system)
+ "068k3cbv1yf3gbllfdzqsg263kzwh21y8dpwr0wvgh15vapkpfs0"))))
+ (build-system meson-build-system)
(inputs
`(("aalib" ,aalib)
("cairo" ,cairo)
("flac" ,flac)
("gdk-pixbuf" ,gdk-pixbuf)
("gst-plugins-base" ,gst-plugins-base)
+ ("gtk+" ,gtk+)
("jack" ,jack-1)
("lame" ,lame)
("libavc1394" ,libavc1394)
(arguments
`(#:phases
(modify-phases %standard-phases
+ ,@(if (string-prefix? "arm" (or (%current-target-system)
+ (%current-system)))
+ ;; FIXME: These tests started failing on armhf after switching to Meson.
+ ;; https://gitlab.freedesktop.org/gstreamer/gst-plugins-good/issues/689
+ `((add-after 'unpack 'disable-tests-for-armhf
+ (lambda _
+ (substitute* "tests/check/elements/rtpbin_buffer_list.c"
+ (("tcase_add_test \\(tc_chain, test_bufferlist\\);")
+ ""))
+ (substitute* "tests/check/elements/rtpulpfec.c"
+ (("tcase_add_loop_test.*rtpulpfecdec_recovered_from_many.*")
+ "")
+ (("tcase_add.*rtpulpfecdec_recovered_using_recovered_packet.*")
+ ""))
+ #t)))
+ '())
(add-after
'unpack 'disable-failing-tests
(lambda _
(define-public gst-plugins-bad
(package
(name "gst-plugins-bad")
- (version "1.14.4")
+ (version "1.16.2")
(source (origin
(method url-fetch)
(uri (string-append "https://gstreamer.freedesktop.org/src/"
name "/" name "-" version ".tar.xz"))
(sha256
(base32
- "1r8dma3x127rbx42yab7kwq7q1bhkmvz2ykn0rnqnzl95q74w2wi"))))
- (outputs '("out" "doc"))
- (build-system gnu-build-system)
+ "0x0y0hm0ga3zqi5q4090hw5sjh59y1ry9ak16qsaascm72i7mjzi"))))
+ (build-system meson-build-system)
(arguments
- '(#:tests? #f ; XXX: 13 of 53 tests fail
- #:configure-flags
- (list (string-append "--with-html-dir="
- (assoc-ref %outputs "doc")
- "/share/gtk-doc/html"))))
+ `(#:phases
+ (modify-phases %standard-phases
+ ,@(if (string-prefix? "arm" (or (%current-target-system)
+ (%current-system)))
+ ;; Disable test that fails on ARMv7.
+ ;; https://gitlab.freedesktop.org/gstreamer/gst-plugins-bad/issues/1188
+ `((add-after 'unpack 'disable-asfmux-test
+ (lambda _
+ (substitute* "tests/check/meson.build"
+ (("\\[\\['elements/asfmux\\.c'\\]\\],")
+ ""))
+ #t)))
+ '())
+ (add-after 'unpack 'disable-failing-test
+ (lambda _
+ ;; FIXME: Why is this failing.
+ (substitute* "tests/check/meson.build"
+ ((".*elements/dash_mpd\\.c.*")
+ ""))
+ #t)))))
(propagated-inputs
`(("gst-plugins-base" ,gst-plugins-base)))
(native-inputs
`(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
("gobject-introspection" ,gobject-introspection)
+ ;; TODO: Enable documentation for 1.18.
+ ;;("gtk-doc" ,gtk-doc)
("pkg-config" ,pkg-config)
("python" ,python)))
(inputs
(define-public gst-plugins-ugly
(package
(name "gst-plugins-ugly")
- (version "1.14.4")
+ (version "1.16.2")
(source
(origin
(method url-fetch)
name "/" name "-" version ".tar.xz"))
(sha256
(base32
- "08vd1xgwmapnviah47zv5h2r02qdd20y4f07rvv5zhv6y4vxh0mc"))))
- (build-system gnu-build-system)
+ "1jpvc32x6q01zjkfgh6gmq6aaikiyfwwnhj7bmvn52syhrdl202m"))))
+ (build-system meson-build-system)
(inputs
`(("gst-plugins-base" ,gst-plugins-base)
("liba52" ,liba52)
(define-public gst-libav
(package
(name "gst-libav")
- (version "1.14.4")
+ (version "1.16.2")
(source (origin
(method url-fetch)
(uri (string-append
name "-" version ".tar.xz"))
(sha256
(base32
- "1nk5g24z2xx5kaw5cg8dv8skdc516inahmkymcz8bxqxj28qbmyz"))
+ "1wpfilc98bad9nsv3y1qapxp35dvn2mvwvrmqwrsj58cf09gc967"))
(modules '((guix build utils)))
(snippet
'(begin
;; Drop bundled ffmpeg.
(delete-file-recursively "gst-libs/ext/libav")
#t))))
- (build-system gnu-build-system)
- (arguments
- '(#:configure-flags '("--with-system-libav")))
+ (build-system meson-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)
("python" ,python)))
(inputs
`(("gst-plugins-base" ,gst-plugins-base)
- ("ffmpeg" ,ffmpeg-3.4)
+ ("ffmpeg" ,ffmpeg)
("orc" ,orc)
("zlib" ,zlib)))
(home-page "https://gstreamer.freedesktop.org/")
compression formats through the use of the libav library.")
(license license:gpl2+)))
+(define-public gst-editing-services
+ (package
+ (name "gst-editing-services")
+ (version "1.16.2")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append
+ "https://gstreamer.freedesktop.org/src/" name "/"
+ "gstreamer-editing-services-" version ".tar.xz"))
+ (sha256
+ (base32
+ "05hcf3prna8ajjnqd53221gj9syarrrjbgvjcbhicv0c38csc1hf"))))
+ (build-system meson-build-system)
+ (arguments
+ ;; FIXME: 16/22 failing tests.
+ `(#:tests? #f))
+ (inputs
+ `(("gst-plugins-base" ,gst-plugins-base)
+ ("libxml2" ,libxml2)))
+ (native-inputs
+ `(("flex" ,flex)
+ ("gst-plugins-bad" ,gst-plugins-bad)
+ ("gst-plugins-good" ,gst-plugins-good)
+ ("perl" ,perl)
+ ("pkg-config" ,pkg-config)
+ ("python" ,python)))
+ (home-page "https://gstreamer.freedesktop.org/")
+ (synopsis "GStreamer library for non-linear editors")
+ (description
+ "This is a high-level library for facilitating the creation of audio/video
+non-linear editors.")
+ (license license:gpl2+)))
+
(define-public python-gst
(package
(name "python-gst")
- (version "1.14.4")
+ (version "1.16.2")
(source (origin
(method url-fetch)
(uri (string-append
"gst-python-" version ".tar.xz"))
(sha256
(base32
- "06ssx19fs6pg4d32p9ph9w4f0xwmxaw2dxfj17rqkn5njd7v5zfh"))))
- (build-system gnu-build-system)
+ "1a48ca66izmm8hnp608jv5isg3jxb0vlfmhns0bg9nbkilag7390"))))
+ (build-system meson-build-system)
(arguments
- ;; XXX: Factorize python-sitedir with python-build-system.
- `(#:imported-modules (,@%gnu-build-system-modules
+ `(#:modules ((guix build meson-build-system)
+ (guix build utils)
+ ((guix build python-build-system) #:prefix python:))
+ #:imported-modules (,@%meson-build-system-modules
(guix build python-build-system))
#:configure-flags
- (let* ((python (assoc-ref %build-inputs "python"))
- (python-version ((@@ (guix build python-build-system)
- get-python-version)
- python))
- (python-sitedir (string-append
- "lib/python" python-version "/site-packages")))
- (list (string-append
- "--with-pygi-overrides-dir=" %output "/" python-sitedir
- "/gi/overrides")))))
+ (list (string-append
+ "-Dpygi-overrides-dir="
+ (python:site-packages %build-inputs %outputs) "gi/overrides"))))
(native-inputs
`(("pkg-config" ,pkg-config)
("python" ,python)))