You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

268 lines
9.6 KiB

  1. ;;; GNU Guix --- Functional package management for GNU
  2. ;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
  3. ;;; Copyright © 2014 John Darrington <jmd@gnu.org>
  4. ;;; Copyright © 2015 Sou Bunnbu <iyzsong@gmail.com>
  5. ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
  6. ;;;
  7. ;;; This file is part of GNU Guix.
  8. ;;;
  9. ;;; GNU Guix is free software; you can redistribute it and/or modify it
  10. ;;; under the terms of the GNU General Public License as published by
  11. ;;; the Free Software Foundation; either version 3 of the License, or (at
  12. ;;; your option) any later version.
  13. ;;;
  14. ;;; GNU Guix is distributed in the hope that it will be useful, but
  15. ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  16. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  17. ;;; GNU General Public License for more details.
  18. ;;;
  19. ;;; You should have received a copy of the GNU General Public License
  20. ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
  21. (define-module (gnu packages gstreamer)
  22. #:use-module ((guix licenses) #:select (lgpl2.0+ bsd-2 bsd-3 gpl2+))
  23. #:use-module (guix packages)
  24. #:use-module (guix download)
  25. #:use-module (guix build-system gnu)
  26. #:use-module (gnu packages)
  27. #:use-module (gnu packages audio)
  28. #:use-module (gnu packages bison)
  29. #:use-module (gnu packages cdrom)
  30. #:use-module (gnu packages compression)
  31. #:use-module (gnu packages flex)
  32. #:use-module (gnu packages glib)
  33. #:use-module (gnu packages gnome)
  34. #:use-module (gnu packages gtk)
  35. #:use-module (gnu packages image)
  36. #:use-module (gnu packages linux)
  37. #:use-module (gnu packages mp3)
  38. #:use-module (gnu packages perl)
  39. #:use-module (gnu packages pulseaudio)
  40. #:use-module (gnu packages video)
  41. #:use-module (gnu packages xorg)
  42. #:use-module (gnu packages xiph)
  43. #:use-module (gnu packages pkg-config)
  44. #:use-module (gnu packages python)
  45. #:use-module (gnu packages yasm)
  46. #:use-module (gnu packages xml))
  47. (define-public orc
  48. (package
  49. (name "orc")
  50. (version "0.4.23")
  51. (source (origin
  52. (method url-fetch)
  53. (uri (string-append "http://gstreamer.freedesktop.org/data/src/"
  54. "orc/orc-" version ".tar.xz"))
  55. (sha256
  56. (base32
  57. "1ryz1gfgrxcj806cakcblxf0bcwq8p2mw8k86fs3f5wlwayawzkn"))))
  58. (build-system gnu-build-system)
  59. (arguments `(#:phases
  60. (alist-cons-before
  61. 'check 'disable-faulty-test
  62. (lambda _
  63. ;; XXX Disable the 'test-limits' and 'exec_opcodes_sys'
  64. ;; tests, which fail on some machines. See:
  65. ;; https://bugzilla.gnome.org/show_bug.cgi?id=735273
  66. (substitute* '("testsuite/test-limits.c"
  67. "testsuite/exec_opcodes_sys.c")
  68. (("if \\(error\\) return 1;")
  69. "if (error) return 77;")))
  70. %standard-phases)))
  71. (home-page "http://code.entropywave.com/orc/")
  72. (synopsis "Oil runtime compiler")
  73. (description
  74. "Orc is a just-in-time compiler implemented as a library and set of
  75. associated tools for compiling and executing simple programs that operate on
  76. arrays of data.")
  77. ;; The source code implementing the Marsenne Twister algorithm is licensed
  78. ;; under the 3-clause BSD license, the rest is under 2-clause BSD license.
  79. (license (list bsd-2 bsd-3))))
  80. (define-public gstreamer
  81. (package
  82. (name "gstreamer")
  83. (version "1.4.5")
  84. (source
  85. (origin
  86. (method url-fetch)
  87. (uri (string-append "http://gstreamer.freedesktop.org/src/gstreamer/gstreamer-"
  88. version ".tar.xz"))
  89. (sha256
  90. (base32
  91. "1bmhbhak6i5wmmb6w86jyyv8lax4gdq983la4lk4a0krz6kim020"))))
  92. (build-system gnu-build-system)
  93. (outputs '("out" "doc"))
  94. (arguments
  95. `(#:make-flags '("CC=gcc") ; for g-ir-scanner.
  96. #:configure-flags
  97. (list (string-append "--with-html-dir="
  98. (assoc-ref %outputs "doc")
  99. "/share/gtk-doc/html"))))
  100. (propagated-inputs `(("glib" ,glib))) ; required by gstreamer-1.0.pc.
  101. (native-inputs
  102. `(("bison" ,bison)
  103. ("flex" ,flex)
  104. ("glib" ,glib "bin")
  105. ("gobject-introspection" ,gobject-introspection)
  106. ("perl" ,perl)
  107. ("pkg-config" ,pkg-config)
  108. ("python-wrapper" ,python-wrapper)))
  109. (home-page "http://gstreamer.freedesktop.org/")
  110. (synopsis "Multimedia library")
  111. (description
  112. "GStreamer is a library for constructing graphs of media-handling
  113. components. The applications it supports range from simple Ogg/Vorbis
  114. playback, audio/video streaming to complex audio (mixing) and video
  115. (non-linear editing) processing.
  116. Applications can take advantage of advances in codec and filter technology
  117. transparently. Developers can add new codecs and filters by writing a
  118. simple plugin with a clean, generic interface.
  119. This package provides the core library and elements.")
  120. (license lgpl2.0+)))
  121. (define-public gst-plugins-base
  122. (package
  123. (name "gst-plugins-base")
  124. (version "1.4.5")
  125. (source
  126. (origin
  127. (method url-fetch)
  128. (uri (string-append "http://gstreamer.freedesktop.org/src/gst-plugins-base/gst-plugins-base-"
  129. version ".tar.xz"))
  130. (sha256
  131. (base32
  132. "07ampnfa6p41s0lhia62l9h8bdx3c7vxvdz93pbx64m3wycq3gbp"))))
  133. (build-system gnu-build-system)
  134. (outputs '("out" "doc"))
  135. (propagated-inputs
  136. `(("gstreamer" ,gstreamer))) ; required by gstreamer-plugins-base-1.0.pc
  137. (inputs
  138. `(("cdparanoia" ,cdparanoia)
  139. ("orc" ,orc)
  140. ("pango" ,pango)
  141. ("libogg" ,libogg)
  142. ("libtheora" ,libtheora)
  143. ("libvorbis" ,libvorbis)
  144. ("libx11" ,libx11)
  145. ("zlib" ,zlib)
  146. ("libXext" ,libxext)
  147. ("libxv" ,libxv)
  148. ("alsa-lib" ,alsa-lib)))
  149. (native-inputs
  150. `(("pkg-config" ,pkg-config)
  151. ("glib" ,glib "bin")
  152. ("gobject-introspection" ,gobject-introspection)
  153. ("python-wrapper" ,python-wrapper)))
  154. (arguments
  155. `(#:configure-flags
  156. (list (string-append "--with-html-dir="
  157. (assoc-ref %outputs "doc")
  158. "/share/gtk-doc/html"))
  159. #:phases
  160. (alist-cons-before
  161. 'configure 'patch
  162. (lambda _
  163. (substitute* "tests/check/libs/pbutils.c"
  164. (("/bin/sh") (which "sh")))
  165. ;; for g-ir-scanner.
  166. (setenv "CC" "gcc"))
  167. %standard-phases)))
  168. (native-search-paths
  169. (list (search-path-specification
  170. (variable "GST_PLUGIN_SYSTEM_PATH")
  171. (files '("lib/gstreamer-1.0")))))
  172. (home-page "http://gstreamer.freedesktop.org/")
  173. (synopsis
  174. "Plugins for the GStreamer multimedia library")
  175. (description "This package provides an essential exemplary set of plug-ins
  176. for the GStreamer multimedia library.")
  177. (license lgpl2.0+)))
  178. (define-public gst-plugins-good
  179. (package
  180. (name "gst-plugins-good")
  181. (version "1.4.5")
  182. (source
  183. (origin
  184. (method url-fetch)
  185. (uri (string-append
  186. "http://gstreamer.freedesktop.org/src/gst-plugins-good/gst-plugins-good-"
  187. version ".tar.xz"))
  188. (sha256
  189. (base32
  190. "0hg6qzdpib9nwn3hdxv0d4rvivi1c4bmxsq2a9hqmamwyzrvbcbr"))))
  191. (build-system gnu-build-system)
  192. (inputs
  193. `(("aalib" ,aalib)
  194. ("cairo" ,cairo)
  195. ("flac" ,flac)
  196. ("gdk-pixbuf" ,gdk-pixbuf)
  197. ("gst-plugins-base" ,gst-plugins-base)
  198. ("jack" ,jack-2)
  199. ("libavc1394" ,libavc1394)
  200. ("libcaca" ,libcaca)
  201. ("libdv" ,libdv)
  202. ("libiec61883" ,libiec61883)
  203. ("libjpeg" ,libjpeg)
  204. ("libpng" ,libpng)
  205. ("libshout" ,libshout)
  206. ("libsoup" ,libsoup)
  207. ("libvpx" ,libvpx)
  208. ("orc" ,orc)
  209. ("pulseaudio" ,pulseaudio)
  210. ("speex" ,speex)
  211. ("taglib" ,taglib)
  212. ("wavpack" ,wavpack)))
  213. (native-inputs
  214. `(("glib:bin" ,glib "bin")
  215. ("pkg-config" ,pkg-config)
  216. ("python-wrapper" ,python-wrapper)))
  217. (home-page "http://gstreamer.freedesktop.org/")
  218. (synopsis
  219. "Plugins for the GStreamer multimedia library")
  220. (description "GStreamer Good Plug-ins is a set of plug-ins for the
  221. GStreamer multimedia library. This set contains those plug-ins which the
  222. developers consider to have good quality code and correct functionality.")
  223. (license lgpl2.0+)))
  224. (define-public gst-libav
  225. (package
  226. (name "gst-libav")
  227. (version "1.4.5")
  228. (source (origin
  229. (method url-fetch)
  230. (uri (string-append
  231. "http://gstreamer.freedesktop.org/src/" name "/"
  232. name "-" version ".tar.xz"))
  233. (sha256
  234. (base32
  235. "1g7vg9amh3cc3nmc415h6g2rqxqi4wgwqi08hxfbpwq48ri64p30"))))
  236. (build-system gnu-build-system)
  237. (arguments
  238. '(#:configure-flags '("--with-system-libav")
  239. #:phases
  240. (modify-phases %standard-phases
  241. (add-before 'configure 'patch-/bin/sh
  242. (lambda _
  243. (substitute* "gst-libs/ext/libav/configure"
  244. (("#! /bin/sh")
  245. (string-append "#! "(which "sh")))))))))
  246. (native-inputs
  247. `(("pkg-config" ,pkg-config)
  248. ("python" ,python)))
  249. (inputs
  250. `(("gst-plugins-base" ,gst-plugins-base)
  251. ("ffmpeg" ,ffmpeg)
  252. ("orc" ,orc)
  253. ("zlib" ,zlib)))
  254. (home-page "http://gstreamer.freedesktop.org/")
  255. (synopsis "Plugins for the GStreamer multimedia library")
  256. (description
  257. "This GStreamer plugin supports a large number of audio and video
  258. compression formats through the use of the libav library.")
  259. (license gpl2+)))