1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
| | ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016 Brendan Tildesley <brendan.tildesley@openmailbox.org>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages linguistics)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (guix build-system gnu)
#:use-module (guix utils)
#:use-module (guix download)
#:use-module (gnu packages)
#:use-module (gnu packages linux) ; for alsa-lib
#:use-module (gnu packages gtk)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages version-control)
#:use-module (gnu packages python)
#:use-module (gnu packages pulseaudio))
(define-public praat
(package
(name "praat")
(version "6.0.19")
(source (origin
(method url-fetch)
(uri
(string-append
"https://github.com/praat/praat/archive/v" version ".tar.gz"))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "1fhzqzygx5h6xkjaxwgzvnby393q7c3lby0fq3bnhscfdhzkm0a0"))))
(build-system gnu-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)))
(inputs
`(("gtk" ,gtk+-2)
("alsa-lib" ,alsa-lib)
("pulseaudio" ,pulseaudio)
("python" ,python))) ; optional scripts
(arguments
`(#:tests? #f
#:phases
(modify-phases %standard-phases
(delete 'configure)
(add-after 'unpack 'be-timeless
(lambda _
(substitute* "external/portaudio/pa_front.c"
((" \\(built \" __DATE__ \" \" __TIME__ \"\\)") ""))
#t))
(add-before
'build
'copy-makefile
(lambda _
(copy-file "makefiles/makefile.defs.linux.pulse"
"makefile.defs")
#t))
(replace
'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(target (string-append out "/bin")))
(mkdir-p target)
(install-file "praat" target))
#t)))))
(home-page "http://www.praat.org")
(synopsis "Phonetics analysis program for linguists")
(description
"According to its authors, praat is \"doing phonetics by
computer\". Through its graphical interface, several speech analysis
functionalities are available: spectrograms, cochleograms, and pitch and
formant extraction. Articulatory synthesis, as well as synthesis from pitch,
formant, and intensity are also available. Other features are segmentation,
labelling using the phonetic alphabet, and computation of statistics. Praat is
configurable and extensible through its own scripting language and has
provisions for communicating with other programs.")
(license (list
;; Praat it's self (no version stated => gpl2+ by gpl terms)
;; EEG/*, FFNet/*, LPC/* external/mp3/*
;; external/espeak/espeakdata_FileInMemory.*
;; contrib/ola/*
;; kar/ipaSerifRegularPS.cpp
;; dwsys/regularExp.h
;; dwsys/NUMmathlib.cpp
license:gpl2+
;; external/gsl/*
;; external/glpk/*
;; external/espeak/*
license:gpl3+
;; external/flac/*
license:bsd-3
;; external/portaudio/*
license:expat
;; num/NUMrandom.cpp
license:public-domain
;; external/flac/flac_share_alloc.h
;; external/glpk/colamd.c
license:lgpl2.1+
))))
|