summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLukas Gradl <lgradl@openmailbox.org>2016-08-09 16:43:36 -0500
committerLudovic Courtès <ludo@gnu.org>2016-09-28 11:14:42 +0200
commit9a4c032cc448ca77e41cad1455b2b3e53e04d1c6 (patch)
tree9b51ee455eafab3e6c6ac867e772f98e35052547
parent89eb7581a41c59956db7ff3d2062186e6a527624 (diff)
gnu: Add gsm.
* gnu/packages/audio.scm (gsm): New variable. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
-rw-r--r--gnu/packages/audio.scm46
1 files changed, 46 insertions, 0 deletions
diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm
index 9699a55030..ed1a8f62d7 100644
--- a/gnu/packages/audio.scm
+++ b/gnu/packages/audio.scm
@@ -7,6 +7,7 @@
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
;;; Copyright © 2016 ng0 <ng0@we.make.ritual.n0.is>
+;;; Copyright © 2016 Lukas Gradl <lgradl@openmailbox.org>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -2519,3 +2520,48 @@ loudness of audio and video files to the same level.")
code, used in @code{libtoxcore}.")
(home-page "https://github.com/irungentoo/filter_audio")
(license license:bsd-3))))
+
+(define-public gsm
+ (package
+ (name "gsm")
+ (version "1.0.14")
+ (source
+ (origin
+ (method url-fetch)
+ (uri
+ (string-append "http://www.quut.com/" name "/" name
+ "-" version ".tar.gz"))
+ (sha256
+ (base32
+ "0b1mx69jq88wva3wk0hi6fcl5a52qhnq2f9p3f3jdh5k61ma252q"))))
+ (build-system gnu-build-system)
+ (arguments
+ `(#:test-target "tst"
+ #:phases
+ (modify-phases %standard-phases
+ (add-before 'install 'pre-install
+ (lambda _
+ (let ((out (assoc-ref %outputs "out")))
+ (substitute* "Makefile"
+ (("INSTALL_ROOT\t=")
+ (string-append "INSTALL_ROOT\t=\t" out)))
+ (mkdir-p (string-append out "/inc"))
+ (mkdir-p (string-append out "/man"))
+ (mkdir-p (string-append out "/man/man1"))
+ (mkdir-p (string-append out "/man/man3"))
+ (mkdir-p (string-append out "/bin"))
+ (mkdir-p (string-append out "/lib")))))
+ (add-after 'install 'post-install
+ (lambda _
+ (let ((out (assoc-ref %outputs "out")))
+ (rename-file (string-append out "/inc")
+ (string-append out "/include"))
+ (mkdir-p (string-append out "/include/gsm"))
+ (copy-recursively "inc"
+ (string-append out "/include/gsm")))))
+ (delete 'configure))))
+ (synopsis "GSM 06.10 lossy speech compression library")
+ (description "This C library provides an encoder and a decoder for the GSM
+06.10 RPE-LTP lossy speech compression algorithm.")
+ (home-page "http://quut.com/gsm/")
+ (license (license:non-copyleft "file://COPYRIGHT"))))