Commit | Line | Data |
---|---|---|
8fd3de0b | 1 | ;;; GNU Guix --- Functional package management for GNU |
63af948f AE |
2 | ;;; Copyright © 2014 John Darrington <jmd@gnu.org> |
3 | ;;; Copyright © 2015 Andreas Enge <andreas@enge.fr> | |
3c9e35cc | 4 | ;;; Copyright © 2015 David Hashe <david.hashe@dhashe.com> |
6f09178d | 5 | ;;; Copyright © 2015, 2016 Efraim Flashner <efraim@flashner.co.il> |
4ff20605 | 6 | ;;; Copyright © 2016 Lukas Gradl <lgradl@openmailbox.org> |
319ac02b | 7 | ;;; Copyright © 2016 Francesco Frassinelli <fraph24@gmail.com> |
47956fa0 | 8 | ;;; Copyright © 2016, 2017 ng0 <ng0@n0.is> |
5a103bb8 | 9 | ;;; Copyright © 2017, 2018 Ricardo Wurmus <rekado@elephly.net> |
7616d75f | 10 | ;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr> |
bd4b6f41 | 11 | ;;; Copyright © 2017 Adonay Felipe Nogueira <https://libreplanet.org/wiki/User:Adfeno> <adfeno@hyperbola.info> |
b61cb244 | 12 | ;;; Copyright © 2018 Jovany Leandro G.C <bit4bit@riseup.net> |
bd4b6f41 PN |
13 | ;;; Copyright © 2018 Tim Gesthuizen <tim.gesthuizen@yahoo.de> |
14 | ;;; Copyright © 2019 Pierre Neidhardt <mail@ambrevar.xyz> | |
fbcd60dd | 15 | ;;; Copyright © 2019 Jan Wielkiewicz <tona_kosmicznego_smiecia@interia.pl> |
a21d9b8d | 16 | ;;; Copyright © 2019 Ivan Vilata i Balaguer <ivan@selidor.net> |
494135d5 | 17 | ;;; Copyright © 2020 Brett Gilio <brettg@gnu.org> |
ba726ebc | 18 | ;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de> |
d82539d3 RG |
19 | ;;; Copyright © 2020 Raghav Gururajan <raghavgururajan@disroot.org> |
20 | ;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com> | |
28c0a2d4 | 21 | ;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com> |
8fd3de0b JD |
22 | ;;; |
23 | ;;; This file is part of GNU Guix. | |
24 | ;;; | |
25 | ;;; GNU Guix is free software; you can redistribute it and/or modify it | |
26 | ;;; under the terms of the GNU General Public License as published by | |
27 | ;;; the Free Software Foundation; either version 3 of the License, or (at | |
28 | ;;; your option) any later version. | |
29 | ;;; | |
30 | ;;; GNU Guix is distributed in the hope that it will be useful, but | |
31 | ;;; WITHOUT ANY WARRANTY; without even the implied warranty of | |
32 | ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
33 | ;;; GNU General Public License for more details. | |
34 | ;;; | |
35 | ;;; You should have received a copy of the GNU General Public License | |
36 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. | |
37 | ||
38 | (define-module (gnu packages telephony) | |
39 | #:use-module (gnu packages) | |
d82539d3 | 40 | #:use-module (gnu packages admin) |
c771b799 | 41 | #:use-module (gnu packages aidc) |
d82539d3 | 42 | #:use-module (gnu packages algebra) |
4ff20605 | 43 | #:use-module (gnu packages autotools) |
faa29e4b | 44 | #:use-module (gnu packages avahi) |
bd4b6f41 PN |
45 | #:use-module (gnu packages audio) |
46 | #:use-module (gnu packages base) | |
faa29e4b | 47 | #:use-module (gnu packages boost) |
80e2524c | 48 | #:use-module (gnu packages check) |
bd4b6f41 PN |
49 | #:use-module (gnu packages compression) |
50 | #:use-module (gnu packages crypto) | |
d82539d3 | 51 | #:use-module (gnu packages docbook) |
c771b799 | 52 | #:use-module (gnu packages documentation) |
b61cb244 | 53 | #:use-module (gnu packages file) |
faa29e4b | 54 | #:use-module (gnu packages protobuf) |
c771b799 | 55 | #:use-module (gnu packages gettext) |
a21d9b8d | 56 | #:use-module (gnu packages gl) |
bd4b6f41 | 57 | #:use-module (gnu packages glib) |
c771b799 | 58 | #:use-module (gnu packages gnome) |
8fd3de0b | 59 | #:use-module (gnu packages gnupg) |
c771b799 | 60 | #:use-module (gnu packages gtk) |
d82539d3 | 61 | #:use-module (gnu packages image) |
c771b799 | 62 | #:use-module (gnu packages libcanberra) |
3c9e35cc | 63 | #:use-module (gnu packages linux) |
319ac02b FF |
64 | #:use-module (gnu packages multiprecision) |
65 | #:use-module (gnu packages ncurses) | |
d82539d3 | 66 | #:use-module (gnu packages netpbm) |
bd4b6f41 PN |
67 | #:use-module (gnu packages networking) |
68 | #:use-module (gnu packages pcre) | |
69 | #:use-module (gnu packages perl) | |
8fd3de0b | 70 | #:use-module (gnu packages pkg-config) |
faa29e4b | 71 | #:use-module (gnu packages pulseaudio) |
bd4b6f41 | 72 | #:use-module (gnu packages python) |
faa29e4b | 73 | #:use-module (gnu packages qt) |
bd4b6f41 | 74 | #:use-module (gnu packages serialization) |
faa29e4b | 75 | #:use-module (gnu packages speech) |
c771b799 | 76 | #:use-module (gnu packages sqlite) |
99e6f9c8 | 77 | #:use-module (gnu packages tls) |
bd4b6f41 PN |
78 | #:use-module (gnu packages upnp) |
79 | #:use-module (gnu packages video) | |
c771b799 | 80 | #:use-module (gnu packages webkit) |
319ac02b | 81 | #:use-module (gnu packages xiph) |
faa29e4b | 82 | #:use-module (gnu packages xorg) |
b61cb244 JL |
83 | #:use-module (gnu packages xml) |
84 | #:use-module (gnu packages readline) | |
85 | #:use-module (gnu packages bison) | |
86 | #:use-module (gnu packages flex) | |
974aaf71 | 87 | #:use-module ((guix licenses) #:prefix license:) |
8fd3de0b JD |
88 | #:use-module (guix packages) |
89 | #:use-module (guix download) | |
b61cb244 JL |
90 | #:use-module (guix git-download) |
91 | #:use-module (guix build-system cmake) | |
a21d9b8d IVB |
92 | #:use-module (guix build-system gnu) |
93 | #:use-module (guix build-system qt)) | |
8fd3de0b | 94 | |
d82539d3 RG |
95 | (define-public spandsp |
96 | (package | |
97 | (name "spandsp") | |
98 | (version "0.0.6") | |
99 | (source | |
100 | (origin | |
101 | (method url-fetch) | |
102 | (uri | |
103 | ;; The original upstream has been down since the end of March 2020. | |
104 | (string-append "https://web.archive.org/web/20180626203108/" | |
105 | "https://www.soft-switch.org/downloads/" name "/" | |
106 | name "-" version ".tar.gz")) | |
107 | (sha256 | |
108 | (base32 "0rclrkyspzk575v8fslzjpgp4y2s4x7xk3r55ycvpi4agv33l1fc")))) | |
109 | (build-system gnu-build-system) | |
110 | (outputs '("out" "doc" "static")) ;doc contains HTML documentation | |
111 | (arguments | |
112 | `(#:configure-flags '("--enable-doc=yes" "--enable-tests=yes") | |
e8a1c5af | 113 | #:parallel-build? #f ;non-deterministic build failures may occur otherwise |
d82539d3 RG |
114 | #:parallel-tests? #f ;fails removing the same the files twice otherwise |
115 | #:phases (modify-phases %standard-phases | |
116 | (add-after 'unpack 'patch-configure.ac | |
117 | (lambda _ | |
118 | ;; spandsp looks at hard coded locations of the FHS to | |
119 | ;; find libxml2. | |
120 | (substitute* "configure.ac" | |
121 | (("AC_MSG_CHECKING\\(for libxml/xmlmemory\\.h.*" all) | |
122 | (string-append all | |
123 | "PKG_CHECK_MODULES(XML2, libxml-2.0)\n" | |
124 | "CPPFLAGS+=\" $XML2_CFLAGS\"\n"))) | |
125 | ;; Force a regeneration of the autotools build system. | |
126 | (delete-file "autogen.sh") | |
127 | (delete-file "configure") | |
128 | #t)) | |
129 | (add-after 'unpack 'do-not-install-data-files | |
130 | ;; The .tiff images produced for tests are not | |
131 | ;; reproducible and it is not desirable to have those | |
132 | ;; distributed. | |
133 | (lambda _ | |
134 | (substitute* '("test-data/itu/fax/Makefile.am" | |
135 | "test-data/etsi/fax/Makefile.am") | |
136 | (("nobase_data_DATA") | |
137 | "noinst_DATA")) | |
138 | #t)) | |
139 | (add-after 'install 'install-doc | |
140 | (lambda* (#:key outputs #:allow-other-keys) | |
141 | (let ((doc (string-append (assoc-ref outputs "doc") | |
142 | "/share/doc/" ,name "-" ,version))) | |
143 | (copy-recursively "doc/t38_manual" doc) | |
144 | #t))) | |
145 | (add-after 'install 'move-static-libraries | |
146 | (lambda* (#:key outputs #:allow-other-keys) | |
147 | (let ((out (assoc-ref outputs "out")) | |
148 | (static (assoc-ref outputs "static"))) | |
149 | (mkdir-p (string-append static "/lib")) | |
150 | (with-directory-excursion out | |
151 | (for-each (lambda (file) | |
152 | (rename-file file | |
153 | (string-append static "/" | |
154 | file))) | |
155 | (find-files "lib" "\\.a$"))) | |
156 | #t)))))) | |
157 | (native-inputs | |
158 | `(("autoconf" ,autoconf) | |
159 | ("automake" ,automake) | |
160 | ("libtool" ,libtool) | |
161 | ("pkg-config" ,pkg-config) | |
162 | ;; For the tests | |
163 | ("fftw" ,fftw) | |
164 | ("libpcap" ,libpcap) | |
165 | ("libsndfile" ,libsndfile) | |
166 | ("libtiff" ,libtiff) | |
167 | ("netpbm" ,netpbm) | |
168 | ("sox" ,sox) | |
169 | ;; For the documentation | |
170 | ("docbook-xml" ,docbook-xml-4.3) | |
171 | ("docbook-xsl" ,docbook-xsl) | |
172 | ("doxygen" ,doxygen) | |
173 | ("libxml2" ,libxml2) | |
174 | ("libxslt" ,libxslt))) | |
175 | (synopsis "DSP library for telephony") | |
176 | (description "SpanDSP is a library of DSP functions for telephony, in the | |
177 | 8000 sample per second world of E1s, T1s, and higher order PCM channels. It | |
178 | contains low level functions, such as basic filters. It also contains higher | |
179 | level functions, such as cadenced supervisory tone detection, and a complete | |
180 | software FAX machine.") | |
181 | (home-page "https://web.archive.org/web/20180626203108/\ | |
182 | https://www.soft-switch.org/index.html") | |
183 | (license (list license:lgpl2.1+ ;for the library | |
184 | license:gpl2+)))) ;for the test suites and support programs | |
185 | ||
8fd3de0b JD |
186 | (define-public commoncpp |
187 | (package | |
188 | (name "commoncpp") | |
189 | (version "1.8.1") | |
190 | (source (origin | |
191 | (method url-fetch) | |
192 | (uri (string-append "mirror://gnu/" name "/commoncpp2-" | |
193 | version ".tar.gz")) | |
194 | (sha256 (base32 | |
195 | "0kmgr5w3b1qwzxnsnw94q6rqs0hr8nbv9clf07ca2a2fyypx9kjk")))) | |
196 | (arguments | |
197 | `(#:phases | |
dc1d3cde KK |
198 | (modify-phases %standard-phases |
199 | (add-before 'configure 'pre-configure | |
200 | (lambda _ | |
201 | (substitute* "src/applog.cpp" | |
202 | (("^// TODO sc.*") "#include <sys/types.h>\n#include <sys/stat.h>\n")) | |
203 | #t))))) | |
8fd3de0b | 204 | (build-system gnu-build-system) |
12bcf94a | 205 | (synopsis "(u)Common C++ framework for threaded applications") |
8fd3de0b JD |
206 | (description "GNU Common C++ is an portable, optimized class framework for |
207 | threaded applications, supporting concurrent synchronization, inter-process | |
208 | communications via sockets, and various methods for data handling, such as | |
209 | serialization and XML parsing. It includes the uCommon C++ library, a smaller | |
210 | reimplementation.") | |
974aaf71 | 211 | (license license:gpl2+) ; plus runtime exception |
6fd52309 | 212 | (home-page "https://www.gnu.org/software/commoncpp/"))) |
8fd3de0b JD |
213 | |
214 | (define-public ucommon | |
215 | (package | |
216 | (name "ucommon") | |
99e6f9c8 | 217 | (version "7.0.0") |
8fd3de0b JD |
218 | (source (origin |
219 | (method url-fetch) | |
220 | (uri (string-append "mirror://gnu/commoncpp/" name "-" | |
221 | version ".tar.gz")) | |
222 | (sha256 (base32 | |
99e6f9c8 | 223 | "1mv080rvrhyxyhgqiqr8r9jdqhg3xhfawjvfj5zgj47h59nggjba")))) |
8fd3de0b | 224 | (build-system gnu-build-system) |
99e6f9c8 | 225 | (inputs `(("gnutls" ,gnutls))) |
35b9e423 EB |
226 | (synopsis "Common C++ framework for threaded applications") |
227 | (description "GNU uCommon C++ is meant as a very light-weight C++ library | |
228 | to facilitate using C++ design patterns even for very deeply embedded | |
229 | applications, such as for systems using uclibc along with posix threading | |
230 | support.") | |
974aaf71 | 231 | (license license:gpl3+) |
6fd52309 | 232 | (home-page "https://www.gnu.org/software/commoncpp/") |
63e8bb12 | 233 | (properties '((ftp-directory . "/gnu/commoncpp"))))) |
8fd3de0b JD |
234 | |
235 | (define-public ccrtp | |
236 | (package | |
237 | (name "ccrtp") | |
9dc9053f | 238 | (version "2.1.2") |
8fd3de0b JD |
239 | (source (origin |
240 | (method url-fetch) | |
241 | (uri (string-append "mirror://gnu/ccrtp/ccrtp-" | |
242 | version ".tar.gz")) | |
243 | (sha256 (base32 | |
9dc9053f | 244 | "17ili8l7zqbbkzr1rcy4hlnazkf50mds41wg6n7bfdsx3c7cldgh")))) |
8fd3de0b JD |
245 | (build-system gnu-build-system) |
246 | (inputs `(("ucommon" ,ucommon) | |
247 | ("libgcrypt" ,libgcrypt))) | |
248 | (native-inputs `(("pkg-config" ,pkg-config))) | |
249 | (synopsis "Implementation of RTP (real-time transport protocol)") | |
250 | (description "GNU ccRTP is an implementation of RTP, the real-time transport | |
251 | protocol from the IETF. It is suitable both for high capacity servers and | |
252 | personal client applications. It is flexible in its design, allowing it to | |
253 | function as a framework for the framework, rather than just being a | |
254 | packet-manipulation library.") | |
974aaf71 | 255 | (license license:gpl2+) ; plus runtime exception |
6fd52309 | 256 | (home-page "https://www.gnu.org/software/ccrtp/"))) |
8fd3de0b JD |
257 | |
258 | ||
259 | (define-public osip | |
260 | (package | |
261 | (name "osip") | |
6dfbbd2c | 262 | (version "5.0.0") |
8fd3de0b JD |
263 | (source (origin |
264 | (method url-fetch) | |
265 | (uri (string-append "mirror://gnu/osip/libosip2-" version ".tar.gz")) | |
75072795 | 266 | (patches (search-patches "osip-CVE-2017-7853.patch")) |
6dfbbd2c LF |
267 | (sha256 |
268 | (base32 | |
269 | "00yznbrm9q04wgd4b831km8iwlvwvsnwv87igf79g5vj9yakr88q")))) | |
8fd3de0b JD |
270 | (build-system gnu-build-system) |
271 | ||
272 | (synopsis "Library implementing SIP (RFC-3261)") | |
273 | (description "GNU oSIP is an implementation of the SIP protocol. It is | |
274 | used to provide multimedia and telecom software developers with an interface | |
275 | to initiate and control SIP sessions.") | |
974aaf71 | 276 | (license license:lgpl2.1+) |
6fd52309 | 277 | (home-page "https://www.gnu.org/software/osip/"))) |
8fd3de0b JD |
278 | |
279 | ||
280 | (define-public exosip | |
281 | (package | |
282 | (name "exosip") | |
283 | (version "4.1.0") | |
284 | (source (origin | |
285 | (method url-fetch) | |
966a543b LC |
286 | (uri (string-append "mirror://savannah/exosip/libeXosip2-" |
287 | version ".tar.gz")) | |
8fd3de0b JD |
288 | (sha256 (base32 |
289 | "17cna8kpc8nk1si419vgr6r42k2lda0rdk50vlxrw8rzg0xp2xrw")))) | |
290 | (build-system gnu-build-system) | |
291 | (inputs `(("osip" ,osip))) | |
292 | (synopsis "Sip abstraction library") | |
293 | (description "EXosip is a library that hides the complexity of using the | |
e881752c | 294 | SIP protocol for multimedia session establishment. This protocol is mainly to |
8fd3de0b | 295 | be used by VoIP telephony applications (endpoints or conference server) but |
e881752c | 296 | might be also useful for any application that wish to establish sessions like |
8fd3de0b | 297 | multiplayer games.") |
974aaf71 | 298 | (license license:gpl2+) |
8fd3de0b JD |
299 | ;; (plus OpenSSL linking exception) |
300 | ;; http://git.savannah.gnu.org/cgit/exosip.git/plain/LICENSE.OpenSSL | |
340978d7 | 301 | (home-page "https://savannah.nongnu.org/projects/exosip"))) |
8fd3de0b JD |
302 | |
303 | (define-public sipwitch | |
304 | (package | |
305 | (name "sipwitch") | |
419fa59b | 306 | (version "1.9.15") |
8fd3de0b JD |
307 | (source (origin |
308 | (method url-fetch) | |
309 | (uri (string-append "mirror://gnu/sipwitch/sipwitch-" | |
310 | version ".tar.gz")) | |
311 | (sha256 (base32 | |
419fa59b | 312 | "10lli9c703d7qbarzc0lgmz963ppncvnrklwrnri0s1zcmmahyia")))) |
8fd3de0b | 313 | (build-system gnu-build-system) |
e881752c | 314 | ;; The configure.ac uses pkg-config but in a kludgy way which breaks when |
8fd3de0b JD |
315 | ;; cross-compiling. Among other issues there the program name "pkg-config" |
316 | ;; is hard coded instead of respecting the PKG_CONFIG environment variable. | |
e881752c AK |
317 | ;; Fortunately we can avoid the use of pkg-config and set the dependency |
318 | ;; flags ourselves. | |
319 | (arguments `(#:configure-flags | |
8fd3de0b | 320 | `("--without-pkg-config" |
e881752c | 321 | ,(string-append "UCOMMON_CFLAGS=-I" |
8fd3de0b JD |
322 | (assoc-ref %build-inputs "ucommon") "/include") |
323 | "UCOMMON_LIBS=-lusecure -lucommon -lrt -ldl -lpthread" | |
e881752c | 324 | ,(string-append "LIBOSIP2_CFLAGS=-I" |
8fd3de0b JD |
325 | (assoc-ref %build-inputs "osip") "/include") |
326 | "LIBOSIP2_LIBS=-losipparser2 -losip2" | |
e881752c | 327 | ,(string-append "--sysconfdir=" (assoc-ref %outputs "out") |
8fd3de0b JD |
328 | "/etc") |
329 | "EXOSIP2_LIBS=-leXosip2" | |
e881752c | 330 | ,(string-append "EXOSIP2_CFLAGS=-I" |
8fd3de0b JD |
331 | (assoc-ref %build-inputs "exosip") |
332 | "/include")))) | |
333 | (inputs `(("ucommon" ,ucommon) | |
334 | ("exosip" ,exosip) | |
335 | ("osip" ,osip))) | |
336 | (synopsis "Secure peer-to-peer VoIP server for the SIP protocol") | |
337 | (description "GNU SIP Witch is a peer-to-peer Voice-over-IP server that | |
338 | uses the SIP protocol. Calls can be made from behind NAT firewalls and | |
339 | without the need for a service provider. Its peer-to-peer design ensures that | |
340 | there is no central point for media intercept or capture and thus it can be | |
341 | used to construct a secure telephone system that operates over the public | |
342 | internet.") | |
974aaf71 | 343 | (license license:gpl3+) |
6fd52309 | 344 | (home-page "https://www.gnu.org/software/sipwitch/"))) |
8fd3de0b | 345 | |
3c9e35cc DH |
346 | (define-public libsrtp |
347 | (package | |
348 | (name "libsrtp") | |
80af75ab | 349 | (version "2.3.0") |
3c9e35cc | 350 | (source (origin |
1c956faa EF |
351 | (method git-fetch) |
352 | (uri (git-reference | |
353 | (url "https://github.com/cisco/libsrtp") | |
354 | (commit (string-append "v" version)))) | |
355 | (file-name (git-file-name name version)) | |
b0c7e053 TGR |
356 | (sha256 |
357 | (base32 | |
80af75ab | 358 | "1f7i3jdh1wzdv7zjlz7gs3xw5jqig9zw8z9awsqqcp54f94xdpvd")))) |
3c9e35cc | 359 | (native-inputs |
b0c7e053 | 360 | `(("psmisc" ,psmisc) ;some tests require 'killall' |
340f9b9f | 361 | ("procps" ,procps))) |
3c9e35cc DH |
362 | (build-system gnu-build-system) |
363 | (arguments | |
d18116d9 MB |
364 | '(#:test-target "runtest" |
365 | #:phases (modify-phases %standard-phases | |
366 | (add-after 'build 'build-shared | |
367 | (lambda* (#:key (make-flags '()) #:allow-other-keys) | |
368 | ;; Build the shared library separately because | |
369 | ;; the test runner requires a static build. | |
370 | (apply invoke "make" "shared_library" make-flags) | |
371 | #t)) | |
372 | (add-after 'install 'remove-static-library | |
373 | (lambda* (#:key outputs #:allow-other-keys) | |
374 | (delete-file (string-append (assoc-ref outputs "out") | |
375 | "/lib/libsrtp2.a")) | |
376 | #t))))) | |
3c9e35cc | 377 | (synopsis "Secure RTP (SRTP) Reference Implementation") |
6c0b0887 TGR |
378 | (description |
379 | "This package provides an implementation of the Secure Real-time Transport | |
380 | Protocol (@dfn{SRTP}), the Universal Security Transform (@dfn{UST}), and a | |
381 | supporting cryptographic kernel.") | |
3c9e35cc | 382 | (home-page "https://github.com/cisco/libsrtp") |
974aaf71 | 383 | (license license:bsd-3))) |
4ff20605 LG |
384 | |
385 | (define-public libiax2 | |
386 | (let ((commit "0e5980f1d78ce462e2d1ed6bc39ff35c8341f201")) | |
387 | ;; This is the commit used by the Ring Project. | |
388 | (package | |
389 | (name "libiax2") | |
390 | (version (string-append "0.0.0-1." (string-take commit 7))) | |
391 | (source | |
392 | (origin | |
cd1f661e RW |
393 | (method git-fetch) |
394 | (uri (git-reference | |
395 | (url "https://gitlab.savoirfairelinux.com/sflphone/libiax2.git") | |
396 | (commit commit))) | |
397 | (file-name (git-file-name name version)) | |
4ff20605 LG |
398 | (sha256 |
399 | (base32 | |
cd1f661e | 400 | "0d269474kk1933c55hx4azw3sak5ycfrxkw6ida0sb2cm00kfich")))) |
4ff20605 LG |
401 | (build-system gnu-build-system) |
402 | (native-inputs | |
403 | `(("autoconf" ,autoconf) | |
404 | ("automake" ,automake) | |
405 | ("libtool" ,libtool))) | |
4ff20605 LG |
406 | (home-page "https://gitlab.savoirfairelinux.com/sflphone/libiax2") |
407 | (synopsis "Inter-Asterisk-Protocol library") | |
408 | (description "LibIAX2 implements the Inter-Asterisk-Protocol for relaying | |
409 | Voice-over-IP (VoIP) communications.") | |
410 | ;; The file 'src/md5.c' is released into the public domain by RSA Data | |
411 | ;; Security. The files 'src/answer.h', 'src/miniphone.c', | |
412 | ;; 'src/options.c', 'src/options.h', 'src/ring10.h', 'src/winiphone.c' are | |
413 | ;; covered under the 'GPL'. | |
414 | ;; The package as a whole is distributed under the LGPL 2.0. | |
974aaf71 LG |
415 | (license (list license:lgpl2.0 |
416 | license:public-domain | |
417 | license:gpl2+))))) | |
319ac02b FF |
418 | |
419 | (define-public seren | |
420 | (package | |
421 | (name "seren") | |
422 | (version "0.0.21") | |
423 | (source (origin | |
424 | (method url-fetch) | |
425 | (uri (string-append "http://holdenc.altervista.org/" | |
426 | "seren/downloads/seren-" version | |
427 | ".tar.gz")) | |
428 | (sha256 | |
429 | (base32 | |
430 | "06mams6bng7ib7p2zpfq88kdr4ffril9svzc9lprkb0wjgmkglk9")))) | |
431 | (build-system gnu-build-system) | |
432 | (arguments '(#:tests? #f)) ; no "check" target | |
433 | (inputs | |
434 | `(("alsa-lib" ,alsa-lib) | |
435 | ("gmp" ,gmp) | |
436 | ("libogg" ,libogg) | |
437 | ("ncurses" ,ncurses) | |
438 | ("opus" ,opus))) | |
439 | (synopsis "Simple VoIP program to create conferences from the terminal") | |
440 | (description | |
441 | "Seren is a simple VoIP program based on the Opus codec that allows you | |
442 | to create a voice conference from the terminal, with up to 10 participants, | |
443 | without having to register accounts, exchange emails, or add people to contact | |
444 | lists. All you need to join an existing conference is the host name or IP | |
445 | address of one of the participants.") | |
446 | (home-page "http://holdenc.altervista.org/seren/") | |
974aaf71 | 447 | (license license:gpl3+))) |
faa29e4b | 448 | |
449 | (define-public mumble | |
450 | (package | |
451 | (name "mumble") | |
a21d9b8d | 452 | (version "1.3.0") |
faa29e4b | 453 | (source (origin |
454 | (method url-fetch) | |
455 | (uri (string-append "https://mumble.info/snapshot/" | |
456 | name "-" version ".tar.gz")) | |
457 | (sha256 | |
458 | (base32 | |
a21d9b8d | 459 | "03dqg5yf6d7ilc1wydpshnv1ndssppcbadqcq20jm5j4fdaf53cs")) |
faa29e4b | 460 | (modules '((guix build utils))) |
461 | (snippet | |
462 | `(begin | |
a21d9b8d IVB |
463 | ;; Remove bundled software. Keep arc4random, celt-0.7.0, |
464 | ;; celt-0.11.0, qqbonjour, rnnoise, smallft. | |
465 | (for-each | |
466 | delete-file-recursively | |
467 | '("3rdparty/GL" ; in mesa | |
468 | "3rdparty/mach-override-build" ; for macx | |
469 | "3rdparty/mach-override-src" | |
470 | "3rdparty/minhook-build" ; for win32 | |
471 | "3rdparty/minhook-src" | |
472 | "3rdparty/opus-build" ; in opus | |
473 | "3rdparty/opus-src" | |
474 | "3rdparty/sbcelt-helper-build" ; not enabled | |
475 | "3rdparty/sbcelt-lib-build" | |
476 | "3rdparty/sbcelt-src" | |
477 | "3rdparty/speex-build" ; in speex | |
478 | "3rdparty/speex-src" | |
479 | "3rdparty/speexdsp-src" ; in speexdsp | |
480 | "3rdparty/xinputcheck-build" ; for win32 | |
481 | "3rdparty/xinputcheck-src")) | |
faa29e4b | 482 | #t)))) |
a21d9b8d | 483 | (build-system qt-build-system) |
faa29e4b | 484 | (arguments |
485 | `(#:tests? #f ; no "check" target | |
486 | #:phases | |
2b583cdd | 487 | (modify-phases %standard-phases |
faa29e4b | 488 | (replace 'configure |
a21d9b8d IVB |
489 | (lambda* (#:key inputs outputs #:allow-other-keys) |
490 | (invoke "qmake" "main.pro" "QMAKE_LRELEASE=lrelease" | |
491 | (string-append "MUMBLE_PYTHON=" | |
492 | (string-append (assoc-ref inputs "python") | |
493 | "/bin/python3")) | |
7616d75f TGR |
494 | (string-append "CONFIG+=" |
495 | (string-join | |
a21d9b8d IVB |
496 | ;; Options used are listed in the same order |
497 | ;; as in the "INSTALL" file | |
498 | ;; (plus the final "packaged" and "release"). | |
499 | (list "no-bundled-speex" ; in speex | |
500 | "no-bundled-opus" ; in opus | |
501 | "no-g15" ; not packaged | |
502 | "no-jackaudio" ; use pulse | |
503 | "no-oss" ; use pulse | |
504 | "no-alsa" ; use pulse | |
505 | "no-update" | |
7616d75f | 506 | "no-embed-qt-translations" |
a21d9b8d IVB |
507 | "no-ice" ; not packaged |
508 | "packaged" | |
7616d75f TGR |
509 | "release"))) |
510 | (string-append "DEFINES+=" | |
511 | "PLUGIN_PATH=" | |
512 | (assoc-ref outputs "out") | |
513 | "/lib/mumble")))) | |
faa29e4b | 514 | (add-before 'configure 'fix-libspeechd-include |
515 | (lambda _ | |
516 | (substitute* "src/mumble/TextToSpeech_unix.cpp" | |
a21d9b8d IVB |
517 | (("libspeechd.h") "speech-dispatcher/libspeechd.h")) |
518 | #t)) | |
ba726ebc MR |
519 | ;; disable statistic gathering by default. see <https://bugs.gnu.org/25201> |
520 | (add-before 'configure 'fix-statistic-gathering-default | |
521 | (lambda _ | |
522 | (substitute* "src/mumble/Settings.cpp" | |
523 | (("bUsage = true;") "bUsage = false;")) | |
524 | #t)) | |
a21d9b8d IVB |
525 | (add-before 'install 'disable-murmur-ice |
526 | (lambda _ | |
527 | (substitute* "scripts/murmur.ini.system" | |
528 | (("^ice=") ";ice=")) | |
529 | #t)) | |
faa29e4b | 530 | (replace 'install ; install phase does not exist |
531 | (lambda* (#:key inputs outputs #:allow-other-keys) | |
532 | (let* ((out (assoc-ref outputs "out")) | |
bd9f8869 | 533 | (etc (string-append out "/etc/murmur")) |
534 | (dbus (string-append out "/etc/dbus-1/system.d/")) | |
faa29e4b | 535 | (bin (string-append out "/bin")) |
536 | (services (string-append out "/share/services")) | |
537 | (applications (string-append out "/share/applications")) | |
538 | (icons (string-append out "/share/icons/hicolor/scalable/apps")) | |
539 | (man (string-append out "/share/man/man1")) | |
540 | (lib (string-append out "/lib/mumble"))) | |
541 | (install-file "release/mumble" bin) | |
542 | (install-file "scripts/mumble-overlay" bin) | |
543 | (install-file "scripts/mumble.protocol" services) | |
544 | (install-file "scripts/mumble.desktop" applications) | |
545 | (install-file "icons/mumble.svg" icons) | |
546 | (install-file "man/mumble-overlay.1" man) | |
547 | (install-file "man/mumble.1" man) | |
bd9f8869 | 548 | (install-file "release/murmurd" bin) |
549 | (install-file "scripts/murmur.ini.system" etc) | |
550 | (rename-file (string-append etc "/murmur.ini.system") | |
551 | (string-append etc "/murmur.ini")) | |
552 | (install-file "scripts/murmur.conf" dbus) | |
553 | (install-file "man/murmurd.1" man) | |
faa29e4b | 554 | (for-each (lambda (file) (install-file file lib)) |
555 | (find-files "." "\\.so\\.")) | |
556 | (for-each (lambda (file) (install-file file lib)) | |
557 | (find-files "release/plugins" "\\.so$")))))))) | |
558 | (inputs | |
559 | `(("avahi" ,avahi) | |
faa29e4b | 560 | ("boost" ,boost) |
a21d9b8d | 561 | ("libsndfile" ,libsndfile) |
faa29e4b | 562 | ("libxi" ,libxi) |
a21d9b8d IVB |
563 | ("mesa" ,mesa) ; avoid bundled |
564 | ("openssl" ,openssl) | |
565 | ("opus" ,opus) ; avoid bundled | |
566 | ("protobuf" ,protobuf) | |
567 | ("pulseaudio" ,pulseaudio) | |
568 | ("qtbase" ,qtbase) | |
569 | ("qtsvg" ,qtsvg) | |
570 | ("speech-dispatcher" ,speech-dispatcher) | |
571 | ("speex" ,speex) ; avoid bundled | |
572 | ("speexdsp" ,speexdsp))) ; avoid bundled | |
faa29e4b | 573 | (native-inputs |
a21d9b8d IVB |
574 | `(("pkg-config" ,pkg-config) |
575 | ("python" ,python) | |
576 | ("qttools" ,qttools))) | |
faa29e4b | 577 | (synopsis "Low-latency, high quality voice chat software") |
578 | (description | |
579 | "Mumble is an low-latency, high quality voice chat | |
bd9f8869 | 580 | software primarily intended for use while gaming. |
581 | Mumble consists of two applications for separate usage: | |
582 | @code{mumble} for the client, and @code{murmur} for the server.") | |
faa29e4b | 583 | (home-page "https://wiki.mumble.info/wiki/Main_Page") |
a21d9b8d IVB |
584 | (license (list license:bsd-3 ; mumble celt-0.7.0 qqbonjour rnnoise smallft |
585 | license:bsd-2 ; celt-0.11.0 | |
586 | license:isc)))) ; arc4random | |
b61cb244 JL |
587 | |
588 | (define-public twinkle | |
b61cb244 | 589 | (package |
f1371daa JL |
590 | (name "twinkle") |
591 | (version "1.10.2") | |
592 | (source (origin | |
593 | (method git-fetch) | |
594 | (uri (git-reference | |
595 | (url "https://github.com/LubosD/twinkle") | |
596 | (commit (string-append "v" version)))) | |
597 | (file-name (git-file-name name version)) | |
598 | (sha256 | |
599 | (base32 | |
600 | "0s0gi03xwvzp02ah4q6j33r9jx9nbayr6dxlg2ck9pwbay1nq1hx")))) | |
601 | (build-system cmake-build-system) | |
602 | (arguments | |
603 | `(#:tests? #f ; no test target | |
604 | #:configure-flags '("-DWITH_SPEEX=On") | |
605 | #:phases | |
606 | (modify-phases %standard-phases | |
b61cb244 JL |
607 | (add-after 'install 'wrap-executable |
608 | (lambda* (#:key inputs outputs #:allow-other-keys) | |
609 | (let ((out (assoc-ref outputs "out"))) | |
610 | (wrap-program (string-append out "/bin/twinkle") | |
611 | `("QT_PLUGIN_PATH" ":" prefix | |
612 | ,(map (lambda (label) | |
613 | (string-append (assoc-ref inputs label) | |
614 | "/lib/qt5/plugins")) | |
615 | '("qtbase" "qtdeclarative"))) | |
616 | `("QML2_IMPORT_PATH" ":" prefix | |
617 | ,(map (lambda (label) | |
618 | (string-append (assoc-ref inputs label) | |
619 | "/lib/qt5/qml")) | |
620 | '("qtdeclarative" "qtquickcontrols")))) | |
621 | #t)))))) | |
f1371daa JL |
622 | (native-inputs |
623 | `(("bison" ,bison) | |
624 | ("flex" ,flex) | |
625 | ("readline" ,readline) | |
626 | ("file" ,file) | |
627 | ("ucommon" ,ucommon) | |
628 | ("ccrtp" ,ccrtp) | |
629 | ("libxml2" ,libxml2) | |
630 | ("speex" ,speex) | |
631 | ("speexdsp" ,speexdsp) | |
632 | ("libsndfile" ,libsndfile) | |
633 | ("alsa-lib" ,alsa-lib) | |
634 | ("qttools" ,qttools))) | |
635 | (inputs | |
636 | `(("qtbase" ,qtbase) | |
637 | ("qtdeclarative" ,qtdeclarative) | |
638 | ("qtquickcontrols" ,qtquickcontrols))) | |
639 | (home-page "http://twinkle.dolezel.info/") | |
640 | (synopsis "Softphone for voice over IP and instant messaging") | |
641 | (description "Twinkle is a softphone for your voice over IP and instant | |
b61cb244 JL |
642 | messaging communcations using the SIP protocol. You can use it for direct IP |
643 | phone to IP phone communication or in a network using a SIP proxy to route your | |
644 | calls and messages") | |
f1371daa | 645 | (license license:gpl2+))) |
bd4b6f41 PN |
646 | |
647 | (define-public pjproject | |
648 | (package | |
649 | (name "pjproject") | |
5dc8cad5 | 650 | (version "2.9") |
bd4b6f41 PN |
651 | (source |
652 | (origin | |
5dc8cad5 PN |
653 | (method git-fetch) |
654 | (uri (git-reference | |
655 | (url "https://github.com/pjsip/pjproject.git") | |
656 | (commit "5dfa75be7d69047387f9b0436dd9492bbbf03fe4"))) | |
bd4b6f41 PN |
657 | (modules '((guix build utils))) |
658 | (snippet | |
659 | '(begin | |
660 | (let ((third-party-directories | |
5dc8cad5 PN |
661 | ;; Things we don't need: |
662 | ;; BaseClasses - contains libraries from Windows SDK | |
663 | ;; we don't need it, at least not now. | |
664 | (list "BaseClasses" "g7221" "ilbc" "milenage" | |
665 | "speex" "threademulation" "yuv" "bdsound" | |
666 | "gsm" "mp3" "resample" "srtp" "webrtc" | |
bd4b6f41 PN |
667 | ;; Keep only resample, build and README.txt. |
668 | "build/baseclasses" "build/g7221" "build/gsm" | |
5dc8cad5 PN |
669 | "build/ilbc" "build/milenage" "build/resample" |
670 | "build/samplerate" "build/speex" "build/srtp" | |
671 | "build/webrtc" "build/yuv"))) | |
bd4b6f41 | 672 | ;; Keep only Makefiles related to resample. |
5dc8cad5 | 673 | (for-each (lambda (directory) |
bd4b6f41 | 674 | (delete-file-recursively |
5dc8cad5 | 675 | (string-append "third_party/" directory))) |
bd4b6f41 PN |
676 | third-party-directories) |
677 | #t) | |
678 | (let ((third-party-dirs | |
679 | (list "gsm" "ilbc" "speex" "g7221" "srtp" | |
680 | "portaudio" "resample"))) | |
681 | (for-each | |
682 | (lambda (dirs) | |
683 | (substitute* "third_party/build/os-linux.mak" | |
684 | (((string-append "DIRS += " dirs)) ""))) | |
685 | third-party-dirs)))) | |
5dc8cad5 | 686 | (file-name (git-file-name name version)) |
bd4b6f41 PN |
687 | (sha256 |
688 | (base32 | |
5dc8cad5 | 689 | "1ayj6n7zd5wvd1nzj2k9s57fb4ckc2fv92k5sjvhd87yg69k3393")))) |
bd4b6f41 PN |
690 | (build-system gnu-build-system) |
691 | (inputs | |
692 | `(("portaudio" ,portaudio))) | |
693 | (propagated-inputs | |
694 | ;; These packages are referenced in the Libs field of the pkg-config | |
695 | ;; file that will be installed by pjproject. | |
696 | `(("speex" ,speex) | |
697 | ("libsrtp" ,libsrtp) | |
698 | ("gnutls" ,gnutls) | |
5dc8cad5 | 699 | ("resample", resample) |
bd4b6f41 PN |
700 | ("util-linux" ,util-linux))) |
701 | (native-inputs | |
702 | `(("autoconf" ,autoconf) | |
703 | ("automake" ,automake) | |
704 | ("pkg-config" ,pkg-config) | |
705 | ("libtool" ,libtool))) | |
706 | (arguments | |
707 | `(;; FIXME make: No rule to make target | |
708 | ;; 'pjlib-test-unknown-[something]-gnu'. | |
709 | #:tests? #f | |
710 | ;; #:test-target "selftest" | |
711 | #:phases | |
712 | (modify-phases %standard-phases | |
713 | (add-before 'build 'build-dep | |
714 | (lambda _ (invoke "make" "dep"))) | |
715 | (add-before 'patch-source-shebangs 'autoconf | |
716 | (lambda _ | |
5dc8cad5 | 717 | (invoke "autoconf" "-v" "-f" "-i" "-o" |
bd4b6f41 PN |
718 | "aconfigure" "aconfigure.ac"))) |
719 | (add-before 'autoconf 'disable-some-tests | |
720 | ;; Three of the six test programs fail due to missing network | |
721 | ;; access. | |
722 | (lambda _ | |
723 | (substitute* "Makefile" | |
724 | (("selftest: pjlib-test pjlib-util-test pjnath-test pjmedia-test pjsip-test pjsua-test") | |
725 | "selftest: pjlib-test pjlib-util-test pjmedia-test")) | |
726 | #t))))) | |
727 | (home-page "https://www.pjsip.org") | |
728 | (synopsis "Session Initiation Protocol (SIP) stack") | |
729 | (description "PJProject provides an implementation of the Session | |
730 | Initiation Protocol (SIP) and a multimedia framework.") | |
731 | (license license:gpl2+))) | |
915829e6 | 732 | |
de65f3f1 | 733 | (define %jami-version "20191101.3.67671e7") |
915829e6 PN |
734 | |
735 | (define* (jami-source #:key without-daemon) | |
736 | (origin | |
737 | (method url-fetch) | |
de65f3f1 | 738 | (uri (string-append "https://dl.jami.net/ring-release/tarballs/ring_" |
915829e6 PN |
739 | %jami-version |
740 | ".tar.gz")) | |
741 | (modules '((guix build utils))) | |
742 | (snippet | |
743 | (if without-daemon | |
744 | '(begin | |
745 | (delete-file-recursively "daemon/contrib")) | |
746 | #f)) | |
747 | (sha256 | |
748 | (base32 | |
de65f3f1 | 749 | "0kw172w2ccyz438kf5xqw14nhfm4xk6a2libnzib9j2wvhlpf4q0")))) |
915829e6 PN |
750 | |
751 | (define-public pjproject-jami | |
752 | (package | |
753 | (inherit pjproject) | |
754 | (name "pjproject-jami") | |
755 | (native-inputs | |
756 | `(("savoir-faire-linux-patches" ,(jami-source)) | |
757 | ,@(package-native-inputs pjproject))) | |
758 | (arguments | |
759 | `(#:tests? #f | |
760 | ;; See ring-project/daemon/contrib/src/pjproject/rules.mak. | |
761 | #:configure-flags | |
762 | (list "--disable-oss" | |
763 | "--disable-sound" | |
764 | "--disable-video" | |
765 | "--enable-ext-sound" | |
766 | "--disable-speex-aec" | |
767 | "--disable-g711-codec" | |
768 | "--disable-l16-codec" | |
769 | "--disable-gsm-codec" | |
770 | "--disable-g722-codec" | |
771 | "--disable-g7221-codec" | |
772 | "--disable-speex-codec" | |
773 | "--disable-ilbc-codec" | |
774 | "--disable-opencore-amr" | |
775 | "--disable-silk" | |
776 | "--disable-sdl" | |
777 | "--disable-ffmpeg" | |
778 | "--disable-v4l2" | |
779 | "--disable-openh264" | |
780 | "--disable-resample" | |
781 | "--disable-libwebrtc" | |
fbcd60dd PN |
782 | "--with-gnutls" |
783 | "--with-external-srtp" | |
784 | ;; We need -fPIC or else we get the following error when linking | |
785 | ;; against pjproject-jami: | |
786 | ;; relocation R_X86_64_32S against `.rodata' can not be used when | |
787 | ;; making a shared object; | |
788 | "CFLAGS=-fPIC" | |
789 | "CXXFLAGS=-fPIC") | |
915829e6 PN |
790 | #:phases |
791 | (modify-phases %standard-phases | |
fbcd60dd PN |
792 | (add-after 'unpack 'make-git-checkout-writable |
793 | (lambda _ | |
794 | (for-each make-file-writable (find-files ".")) | |
795 | #t)) | |
915829e6 PN |
796 | (add-after 'unpack 'apply-patches |
797 | (lambda* (#:key inputs #:allow-other-keys) | |
798 | (let ((savoir-faire-linux-patches-directory "Savoir-faire Linux patches") | |
799 | ;; Comes from | |
800 | ;; "ring-project/daemon/contrib/src/pjproject/rules.mak". | |
801 | ;; WARNING: These amount for huge changes in pjproject. | |
915829e6 | 802 | (savoir-faire-linux-patches |
fbcd60dd | 803 | '("fix_turn_alloc_failure" |
915829e6 PN |
804 | "rfc2466" |
805 | "ipv6" | |
915829e6 PN |
806 | "multiple_listeners" |
807 | "pj_ice_sess" | |
808 | "fix_turn_fallback" | |
809 | "fix_ioqueue_ipv6_sendto" | |
810 | "add_dtls_transport" | |
fbcd60dd PN |
811 | "rfc6544" |
812 | "ice_config" | |
813 | "sip_config" | |
814 | "fix_first_packet_turn_tcp" | |
815 | "fix_ebusy_turn" | |
816 | "ignore_ipv6_on_transport_check" | |
817 | "fix_turn_connection_failure" | |
818 | ;; "uwp_vs" ; for windows | |
819 | "disable_local_resolution"))) | |
915829e6 PN |
820 | (mkdir-p savoir-faire-linux-patches-directory) |
821 | (invoke "tar" "-xvf" (assoc-ref inputs "savoir-faire-linux-patches") | |
fbcd60dd PN |
822 | "-C" savoir-faire-linux-patches-directory |
823 | "--strip-components=5" | |
824 | "ring-project/daemon/contrib/src/pjproject") | |
915829e6 PN |
825 | (for-each |
826 | (lambda (file) | |
827 | (invoke "patch" "--force" "-p1" "-i" | |
828 | (string-append savoir-faire-linux-patches-directory "/" | |
829 | file ".patch"))) | |
830 | savoir-faire-linux-patches)) | |
831 | #t)) | |
832 | ;; TODO: We could use substitute-keyword-arguments instead of | |
833 | ;; repeating the phases from pjproject, but somehow it does | |
834 | ;; not work. | |
835 | (add-before 'build 'build-dep | |
836 | (lambda _ (invoke "make" "dep"))) | |
837 | (add-before 'patch-source-shebangs 'autoconf | |
838 | (lambda _ | |
839 | (invoke "autoconf" "-v" "-f" "-i" "-o" | |
840 | "aconfigure" "aconfigure.ac"))) | |
841 | (add-before 'autoconf 'disable-some-tests | |
842 | ;; Three of the six test programs fail due to missing network | |
843 | ;; access. | |
844 | (lambda _ | |
845 | (substitute* "Makefile" | |
846 | (("selftest: pjlib-test pjlib-util-test pjnath-test pjmedia-test pjsip-test pjsua-test") | |
847 | "selftest: pjlib-test pjlib-util-test pjmedia-test")) | |
848 | #t))))))) | |
1bfcb19b PN |
849 | |
850 | (define-public libring | |
851 | (package | |
852 | (name "libring") | |
853 | (version %jami-version) | |
854 | (source (jami-source #:without-daemon #t)) | |
855 | (build-system gnu-build-system) | |
856 | (inputs | |
857 | ;; Missing (optional?) dep: libnatpmp. | |
858 | `(("alsa-lib" ,alsa-lib) | |
859 | ("boost" ,boost) | |
860 | ("dbus-c++" ,dbus-c++) | |
861 | ("eudev" ,eudev) | |
862 | ("ffmpeg" ,ffmpeg) | |
863 | ("flac" ,flac) | |
864 | ("gmp" ,gmp) | |
865 | ("gsm" ,gsm) | |
866 | ("jack" ,jack-1) | |
867 | ("jsoncpp" ,jsoncpp) | |
868 | ("libogg" ,libogg) | |
869 | ("libva" ,libva) | |
870 | ("opendht" ,opendht) | |
871 | ("opus" ,opus) | |
872 | ("pcre" ,pcre) | |
873 | ("pulseaudio" ,pulseaudio) | |
874 | ("libsamplerate" ,libsamplerate) | |
875 | ("libsndfile" ,libsndfile) | |
876 | ("speex" ,speex) | |
877 | ("speexdsp" ,speexdsp) | |
878 | ("libupnp" ,libupnp) | |
879 | ("libvorbis" ,libvorbis) | |
880 | ("libx264" ,libx264) | |
881 | ("libvdpau" ,libvdpau) | |
882 | ("yaml-cpp" ,yaml-cpp) | |
883 | ("zlib" ,zlib) | |
884 | ("openssl" ,openssl) | |
885 | ("libsecp256k1" ,libsecp256k1) | |
886 | ("python" ,python) | |
887 | ("python-wrapper" ,python-wrapper) | |
a83855ff | 888 | ("restinio" ,restinio) |
1bfcb19b | 889 | ("libx11" ,libx11) |
a83855ff | 890 | ("asio" ,asio) |
1bfcb19b PN |
891 | ;; TODO: Upstream seems to rely on a custom pjproject (a.k.a. pjsip) version. |
892 | ;; See https://git.jami.net/savoirfairelinux/ring-daemon/issues/24. | |
893 | ("pjproject" ,pjproject-jami))) | |
894 | (native-inputs | |
895 | `(("autoconf" ,autoconf) | |
896 | ("automake" ,automake) | |
897 | ("libtool" ,libtool) | |
898 | ("pkg-config" ,pkg-config) | |
899 | ("which" ,which) | |
900 | ("cppunit" ,cppunit) | |
901 | ("perl" ,perl))) ; Needed for documentation. | |
902 | (arguments | |
903 | `(#:tests? #f ; The tests fail to compile due to missing headers. | |
904 | #:phases | |
905 | (modify-phases %standard-phases | |
906 | (add-after 'unpack 'change-directory | |
907 | (lambda _ | |
908 | (chdir "daemon") | |
909 | #t)) | |
910 | (add-before 'build 'add-lib-dir | |
911 | (lambda _ | |
912 | (mkdir-p "src/lib") | |
913 | #t))))) | |
914 | (synopsis "Distributed multimedia communications platform") | |
915 | (description "Jami (formerly GNU Ring) is a secure and distributed voice, | |
916 | video and chat communication platform that requires no centralized server and | |
917 | leaves the power of privacy in the hands of the user. It supports the SIP and | |
918 | IAX protocols, as well as decentralized calling using P2P-DHT. | |
919 | ||
920 | This package provides a library and daemon implementing the Jami core | |
921 | functionality.") | |
922 | (home-page "https://jami.net/") | |
923 | (license license:gpl3+))) | |
b6309672 PN |
924 | |
925 | (define-public libringclient | |
926 | (package | |
927 | (inherit libring) | |
928 | (name "libringclient") | |
929 | (build-system cmake-build-system) | |
930 | (propagated-inputs | |
931 | `(("libring" ,libring) ; For 'dring'. | |
932 | ("qtbase" ,qtbase) ; Qt is included in several installed headers. | |
933 | ("qttools" ,qttools))) | |
934 | (arguments | |
935 | `(#:tests? #f ; There is no testsuite. | |
936 | #:configure-flags | |
937 | (list (string-append "-DRING_BUILD_DIR=" | |
938 | (assoc-ref %build-inputs "libring") "/include")) | |
939 | #:phases | |
940 | (modify-phases %standard-phases | |
941 | (add-after 'unpack 'change-directory | |
942 | (lambda _ | |
943 | (chdir "lrc") | |
944 | #t)) | |
945 | (add-before 'configure 'fix-dbus-interfaces-path | |
946 | (lambda* (#:key inputs #:allow-other-keys) | |
947 | (substitute* "CMakeLists.txt" | |
948 | (("\\$\\{CMAKE_INSTALL_PREFIX\\}(/share/dbus-1/interfaces)" _ dbus-interfaces-path-suffix) | |
949 | (string-append (assoc-ref inputs "libring") | |
950 | dbus-interfaces-path-suffix)))))))) | |
951 | (synopsis "Distributed multimedia communications platform") | |
952 | (description "Jami (formerly GNU Ring) is a secure and distributed voice, | |
953 | video and chat communication platform that requires no centralized server and | |
954 | leaves the power of privacy in the hands of the user. It supports the SIP and | |
955 | IAX protocols, as well as decentralized calling using P2P-DHT. | |
956 | ||
957 | This package provides a library common to all Jami clients.") | |
958 | (home-page "https://jami.net") | |
959 | (license license:gpl3+))) | |
c771b799 | 960 | |
422e187f | 961 | (define-public jami |
c771b799 PN |
962 | (package |
963 | (inherit libring) | |
422e187f | 964 | (name "jami") |
c771b799 PN |
965 | (build-system cmake-build-system) |
966 | (inputs | |
967 | `(("libringclient" ,libringclient) | |
968 | ("gtk+" ,gtk+) | |
969 | ("qrencode" ,qrencode) | |
970 | ("libnotify" ,libnotify) | |
971 | ("clutter" ,clutter) | |
972 | ("clutter-gtk" ,clutter-gtk) | |
c771b799 PN |
973 | ("libcanberra" ,libcanberra) |
974 | ("webkitgtk" ,webkitgtk) | |
975 | ;; TODO: We must wrap ring-client-gnome to force using the | |
976 | ;; `sqlite-with-column-metadata' package instead of `sqlite' or else it | |
977 | ;; fails with: | |
978 | ;; | |
979 | ;; /gnu/store/...-qtbase-5.11.2/lib/qt5/plugins/sqldrivers/libqsqlite.so: | |
980 | ;; undefined symbol: sqlite3_column_table_name16 | |
981 | ;; | |
982 | ;; qtbase is built against sqlite-with-column-metadata but somehow | |
983 | ;; jami-client-gnome ends up with both `sqlite' and | |
984 | ;; `sqlite-with-column-metadata' as inputs and it seems that | |
985 | ;; libqsqlite.so gets confused. | |
986 | ("sqlite" ,sqlite-with-column-metadata))) | |
987 | (native-inputs | |
988 | `(("pkg-config" ,pkg-config) | |
28c0a2d4 | 989 | ("gettext" ,gettext-minimal) |
c771b799 PN |
990 | ("glib:bin" ,glib "bin") |
991 | ("doxygen" ,doxygen))) | |
992 | (propagated-inputs | |
5b028987 | 993 | `(("libring" ,libring) ; Contains `dring', the daemon, which is automatically by d-bus. |
c771b799 PN |
994 | ("adwaita-icon-theme" ,adwaita-icon-theme) |
995 | ("evolution-data-server" ,evolution-data-server))) | |
996 | (arguments | |
997 | `(#:tests? #f ; There is no testsuite. | |
998 | #:phases | |
999 | (modify-phases %standard-phases | |
1000 | (add-after 'unpack 'change-directory | |
1001 | (lambda _ | |
1002 | (chdir "client-gnome") | |
1003 | #t)) | |
1004 | (add-after 'install 'wrap | |
1005 | (lambda* (#:key inputs outputs #:allow-other-keys) | |
1006 | (let* ((out (assoc-ref outputs "out")) | |
1007 | (path (string-append (assoc-ref inputs "sqlite") "/lib"))) | |
5b028987 | 1008 | (wrap-program (string-append out "/bin/jami-gnome") |
c771b799 PN |
1009 | `("LD_LIBRARY_PATH" ":" prefix (,path)))) |
1010 | #t))))) | |
5b028987 | 1011 | (synopsis "Distributed, privacy-respecting communication program") |
c771b799 PN |
1012 | (description "Jami (formerly GNU Ring) is a secure and distributed voice, |
1013 | video and chat communication platform that requires no centralized server and | |
1014 | leaves the power of privacy in the hands of the user. It supports the SIP and | |
1015 | IAX protocols, as well as decentralized calling using P2P-DHT. | |
1016 | ||
1017 | This package provides the Jami client for the GNOME desktop.") | |
1018 | (home-page "https://jami.net") | |
1019 | (license license:gpl3+))) | |
422e187f LC |
1020 | |
1021 | (define-public jami-client-gnome | |
1022 | (deprecated-package "jami-client-gnome" jami)) | |
494135d5 BG |
1023 | |
1024 | (define-public libtgvoip | |
1025 | (package | |
1026 | (name "libtgvoip") | |
5a0d7391 | 1027 | (version "2.4.4") |
494135d5 BG |
1028 | (source |
1029 | (origin | |
1030 | (method git-fetch) | |
1031 | (uri (git-reference | |
5a0d7391 | 1032 | (url "https://github.com/grishka/libtgvoip.git") |
494135d5 BG |
1033 | (commit version))) |
1034 | (file-name (git-file-name name version)) | |
1792a706 BG |
1035 | ;; Fix compilation on i686-linux architecture. |
1036 | ;; NOTE: Applying these patches is order-dependent! | |
1037 | ;; The patch for WebRTC /must/ precede the patch for SSE2. | |
1038 | (patches | |
1039 | (search-patches "libtgvoip-disable-webrtc.patch" | |
1040 | "libtgvoip-disable-sse2.patch")) | |
494135d5 BG |
1041 | (sha256 |
1042 | (base32 | |
5a0d7391 | 1043 | "122kn3jx6v0kkldlzlpzvlwqxgp6pmzxsjhrhcxw12bx9c08sar5")))) |
494135d5 BG |
1044 | (build-system gnu-build-system) |
1045 | (inputs | |
5a0d7391 BG |
1046 | `(("alsa-lib" ,alsa-lib) |
1047 | ("libopusenc" ,libopusenc) | |
1048 | ("openssl" ,openssl) | |
1049 | ("pulseaudio" ,pulseaudio))) | |
494135d5 BG |
1050 | (synopsis "VoIP library for Telegram clients") |
1051 | (description "A collection of libraries and header files for implementing | |
1052 | telephony functionality into custom Telegram clients.") | |
1053 | (home-page "https://github.com/zevlg/libtgvoip") | |
1054 | (license license:unlicense))) |