From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:470:142:3::10]:51948) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1j5DJL-0005Me-Sx for guix-patches@gnu.org; Fri, 21 Feb 2020 13:46:08 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1j5DJK-0000kf-2o for guix-patches@gnu.org; Fri, 21 Feb 2020 13:46:03 -0500 Received: from debbugs.gnu.org ([209.51.188.43]:42135) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1j5DJJ-0000kY-Uk for guix-patches@gnu.org; Fri, 21 Feb 2020 13:46:02 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1j5DJJ-0008Ec-S9 for guix-patches@gnu.org; Fri, 21 Feb 2020 13:46:01 -0500 Subject: [bug#39721] [WIP PATCH] Parlatype Resent-Message-ID: Received: from eggs.gnu.org ([2001:470:142:3::10]:51699) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1j5DIM-0004KC-Vg for guix-patches@gnu.org; Fri, 21 Feb 2020 13:45:04 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1j5DII-0000Bg-Vd for guix-patches@gnu.org; Fri, 21 Feb 2020 13:45:02 -0500 Received: from relay7-d.mail.gandi.net ([217.70.183.200]:53427) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1j5DII-0000Ar-Hh for guix-patches@gnu.org; Fri, 21 Feb 2020 13:44:58 -0500 Received: from localhost (40-67.ipv4.commingeshautdebit.fr [185.131.40.67]) (Authenticated sender: admin@nicolasgoaziou.fr) by relay7-d.mail.gandi.net (Postfix) with ESMTPSA id 53CBB20005 for ; Fri, 21 Feb 2020 18:44:55 +0000 (UTC) From: Nicolas Goaziou Message-ID: <87o8treqe3.fsf@nicolasgoaziou.fr> Date: Fri, 21 Feb 2020 19:44:55 +0100 MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 39721@debbugs.gnu.org --=-=-= Content-Type: text/plain Hello, I've been sitting on this patch for a few months now, but I'm stuck at this point. So, this package is about Parlatype. It compiles fine, but doesn't start, complaining about a missing Gstreamer dependency. As one can tell from the FIXME, I attempted to fix it without much success. I think fresh eyes are required. Thank you for any love you'll give to that package. Regards, -- Nicolas Goaziou --=-=-= Content-Type: text/x-diff Content-Disposition: inline; filename=0001-gnu-Add-parlatype.patch Content-Description: Add Parlatype (WIP) >From 5ac3fda0fcc7ce24d6f0ce023f2ba3919c4100b2 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Fri, 21 Feb 2020 09:40:03 +0100 Subject: [PATCH] gnu: Add parlatype. * gnu/packages/speech.scm (sphinxbase, pocketsphinx, parlatype): New variables. --- gnu/packages/speech.scm | 121 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 121 insertions(+) diff --git a/gnu/packages/speech.scm b/gnu/packages/speech.scm index 21ad6f8928..44d3e3948d 100644 --- a/gnu/packages/speech.scm +++ b/gnu/packages/speech.scm @@ -28,18 +28,28 @@ #:use-module (guix git-download) #:use-module (guix utils) #:use-module (guix build-system gnu) + #:use-module (guix build-system meson) #:use-module (gnu packages) #:use-module (gnu packages audio) #:use-module (gnu packages autotools) + #:use-module (gnu packages bison) #:use-module (gnu packages compression) + #:use-module (gnu packages documentation) #:use-module (gnu packages emacs) + #:use-module (gnu packages freedesktop) #:use-module (gnu packages gcc) + #:use-module (gnu packages gettext) #:use-module (gnu packages glib) + #:use-module (gnu packages gnome) + #:use-module (gnu packages gstreamer) + #:use-module (gnu packages gtk) #:use-module (gnu packages linux) #:use-module (gnu packages ncurses) + #:use-module (gnu packages perl) #:use-module (gnu packages pkg-config) #:use-module (gnu packages pulseaudio) #:use-module (gnu packages python) + #:use-module (gnu packages swig) #:use-module (gnu packages texinfo) #:use-module (gnu packages textutils)) @@ -461,3 +471,114 @@ The system is written in C++ and uses the Edinburgh Speech Tools Library for low level architecture and has a Scheme (SIOD) based command interpreter for control.") (license (license:non-copyleft "file://COPYING")))) + +(define-public sphinxbase + (package + (name "sphinxbase") + (version "5prealpha") + (source + (origin + (method url-fetch) + (uri (string-append "mirror://sourceforge/cmusphinx/" + "sphinxbase/" version "/" + "sphinxbase-" version ".tar.gz")) + (sha256 + (base32 "0vr4k8pv5a8nvq9yja7kl13b5lh0f9vha8fc8znqnm8bwmcxnazp")))) + (build-system gnu-build-system) + (arguments + `(#:parallel-tests? #f)) ;tests fail otherwise + (native-inputs + `(("bison" ,bison) + ("doxygen" ,doxygen) + ("perl" ,perl) ;for tests + ("python" ,python))) + (inputs + `(("pulseaudio" ,pulseaudio) + ("swig" ,swig))) + (home-page "https://cmusphinx.github.io/") + (synopsis "Support library required by Pocketsphinx and Sphinxtrain") + (description "This package contains the basic libraries shared by +the CMU Sphinx trainer and all the Sphinx decoders (Sphinx-II, +Sphinx-III, and PocketSphinx), as well as some common utilities for +manipulating acoustic feature and audio files.") + (license license:bsd-4))) + +(define-public pocketsphinx + (package + (name "pocketsphinx") + (version "5prealpha") + (source + (origin + (method url-fetch) + (uri (string-append "mirror://sourceforge/cmusphinx/" + "pocketsphinx/" version "/" + "pocketsphinx-" version ".tar.gz")) + (sha256 + (base32 "1n9yazzdgvpqgnfzsbl96ch9cirayh74jmpjf7svs4i7grabanzg")))) + (build-system gnu-build-system) + (native-inputs + `(("pkg-config" ,pkg-config) + ("perl" ,perl) ;for tests + ("python" ,python))) + (inputs + `(("gstreamer" ,gstreamer) + ("libcap" ,libcap) + ("pulseaudio" ,pulseaudio) + ("sphinxbase" ,sphinxbase) + ("swig" ,swig))) + (home-page "https://cmusphinx.github.io/") + (synopsis "Recognizer library written in C") + (description "PocketSphinx is one of Carnegie Mellon University's +large vocabulary, speaker-independent continuous speech recognition +engine.") + (license license:bsd-2))) + +(define-public parlatype + (package + (name "parlatype") + (version "1.6.2") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/gkarsay/parlatype.git") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 "1nbn939cramizbyp2s57hmlb3hpr02i0az2f1z570mjc7jqgd8g8")))) + (build-system meson-build-system) + (arguments + `(#:tests? #f ;require internet access + #:configure-flags (list "-Dlibreoffice=false") + #:phases + (modify-phases %standard-phases + ;; FIXME: The following doesn't work; at runtime, parlatype + ;; executable cannot find gstreamer good plugin (playbin). + (add-after 'install 'wrap-parlatype + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH"))) + (wrap-program (string-append out "/bin/parlatype") + `("GST_PLUGIN_SYSTEM_PATH" ":" = (,gst-plugin-path)))) + #t))))) + (native-inputs + `(("appstream-glib" ,appstream-glib) + ("desktop-file-utils" ,desktop-file-utils) ;for desktop-file-validate + ("gettext" ,gettext-minimal) + ("glib" ,glib "bin") ;for glib-compile-resources + ("pkg-config" ,pkg-config) + ("yelp-tools" ,yelp-tools))) + (inputs + `(("gst-plugins-base" ,gst-plugins-base) + ("gst-plugins-good" ,gst-plugins-good) + ("gstreamer" ,gstreamer) + ("gtk+" ,gtk+) + ("pocketsphinx" ,pocketsphinx) + ("pulseaudio" ,pulseaudio) + ("sphinxbase" ,sphinxbase))) + (home-page "http://gkarsay.github.io/parlatype/") + (synopsis "GNOME audio player for transcription") + (description "Parlatype is an audio player for the GNOME desktop +environment. Its main purpose is the manual transcription of spoken +audio files.") + (license license:gpl3+))) -- 2.25.0 --=-=-=--