gnu/packages/telephony.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2014 John Darrington <jmd@gnu.org>
   3 ;;; Copyright © 2015 Andreas Enge <andreas@enge.fr>
   4 ;;; Copyright © 2015 David Hashe <david.hashe@dhashe.com>
   5 ;;; Copyright © 2015, 2016, 2020 Efraim Flashner <efraim@flashner.co.il>
   6 ;;; Copyright © 2016 Lukas Gradl <lgradl@openmailbox.org>
   7 ;;; Copyright © 2016 Francesco Frassinelli <fraph24@gmail.com>
   8 ;;; Copyright © 2016, 2017 Nikita <nikita@n0.is>
   9 ;;; Copyright © 2017, 2018 Ricardo Wurmus <rekado@elephly.net>
  10 ;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr>
  11 ;;; Copyright © 2017 Adonay Felipe Nogueira <https://libreplanet.org/wiki/User:Adfeno> <adfeno@hyperbola.info>
  12 ;;; Copyright © 2018 Jovany Leandro G.C <bit4bit@riseup.net>
  13 ;;; Copyright © 2018 Tim Gesthuizen <tim.gesthuizen@yahoo.de>
  14 ;;; Copyright © 2019 Pierre Neidhardt <mail@ambrevar.xyz>
  15 ;;; Copyright © 2019 Jan Wielkiewicz <tona_kosmicznego_smiecia@interia.pl>
  16 ;;; Copyright © 2019 Ivan Vilata i Balaguer <ivan@selidor.net>
  17 ;;; Copyright © 2020 Brett Gilio <brettg@gnu.org>
  18 ;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de>
  19 ;;; Copyright © 2020 Raghav Gururajan <raghavgururajan@disroot.org>
  20 ;;; Copyright © 2020, 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
  21 ;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
  22 ;;; Copyright © 2021 LibreMiami <packaging-guix@libremiami.org>
  23 ;;;
  24 ;;; This file is part of GNU Guix.
  25 ;;;
  26 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  27 ;;; under the terms of the GNU General Public License as published by
  28 ;;; the Free Software Foundation; either version 3 of the License, or (at
  29 ;;; your option) any later version.
  30 ;;;
  31 ;;; GNU Guix is distributed in the hope that it will be useful, but
  32 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  33 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  34 ;;; GNU General Public License for more details.
  35 ;;;
  36 ;;; You should have received a copy of the GNU General Public License
  37 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  38
  39 (define-module (gnu packages telephony)
  40   #:use-module (gnu packages)
  41   #:use-module (gnu packages admin)
  42   #:use-module (gnu packages aidc)
  43   #:use-module (gnu packages algebra)
  44   #:use-module (gnu packages autotools)
  45   #:use-module (gnu packages avahi)
  46   #:use-module (gnu packages audio)
  47   #:use-module (gnu packages base)
  48   #:use-module (gnu packages boost)
  49   #:use-module (gnu packages check)
  50   #:use-module (gnu packages compression)
  51   #:use-module (gnu packages crypto)
  52   #:use-module (gnu packages databases)
  53   #:use-module (gnu packages docbook)
  54   #:use-module (gnu packages documentation)
  55   #:use-module (gnu packages file)
  56   #:use-module (gnu packages protobuf)
  57   #:use-module (gnu packages gettext)
  58   #:use-module (gnu packages gl)
  59   #:use-module (gnu packages glib)
  60   #:use-module (gnu packages gnome)
  61   #:use-module (gnu packages gnupg)
  62   #:use-module (gnu packages gtk)
  63   #:use-module (gnu packages image)
  64   #:use-module (gnu packages libcanberra)
  65   #:use-module (gnu packages linphone)
  66   #:use-module (gnu packages linux)
  67   #:use-module (gnu packages multiprecision)
  68   #:use-module (gnu packages ncurses)
  69   #:use-module (gnu packages netpbm)
  70   #:use-module (gnu packages networking)
  71   #:use-module (gnu packages pcre)
  72   #:use-module (gnu packages perl)
  73   #:use-module (gnu packages pkg-config)
  74   #:use-module (gnu packages pulseaudio)
  75   #:use-module (gnu packages python)
  76   #:use-module (gnu packages qt)
  77   #:use-module (gnu packages serialization)
  78   #:use-module (gnu packages speech)
  79   #:use-module (gnu packages tls)
  80   #:use-module (gnu packages upnp)
  81   #:use-module (gnu packages video)
  82   #:use-module (gnu packages webkit)
  83   #:use-module (gnu packages xiph)
  84   #:use-module (gnu packages xorg)
  85   #:use-module (gnu packages xml)
  86   #:use-module (gnu packages readline)
  87   #:use-module (gnu packages bison)
  88   #:use-module (gnu packages flex)
  89   #:use-module ((guix licenses) #:prefix license:)
  90   #:use-module (guix packages)
  91   #:use-module (guix download)
  92   #:use-module (guix git-download)
  93   #:use-module (guix build-system cmake)
  94   #:use-module (guix build-system gnu)
  95   #:use-module (guix build-system qt))
  96
  97 (define-public libilbc
  98   (package
  99     (name "libilbc")
 100     (version "2.0.2")
 101     (source
 102      (origin
 103        (method git-fetch)
 104        (uri
 105         (git-reference
 106          (url "https://github.com/TimothyGu/libilbc")
 107          (commit
 108           (string-append "v" version))))
 109        (file-name
 110         (git-file-name name version))
 111        (sha256
 112         (base32
 113          "1j1pn1w1198qvdiq2hgv9hkyq2nqcvmfnwlgppac633idkjnjrqx"))))
 114     (build-system cmake-build-system)
 115     (arguments
 116      `(#:tests? #f))                    ; No target
 117     (native-inputs
 118      `(("pkg-config" ,pkg-config)))
 119     (synopsis "Libre iLBC codec")
 120     (description "LibiLBC is a packaging friendly copy of the iLBC codec from
 121 the WebRTC project.  It provides a base for distribution packages and can be
 122 used as drop-in replacement for the non-free code from RFC 3591.")
 123     (home-page "https://github.com/TimothyGu/libilbc")
 124     (license license:bsd-3)))
 125
 126 (define-public spandsp
 127   (package
 128     (name "spandsp")
 129     (version "0.0.6")
 130     (source
 131      (origin
 132        (method url-fetch)
 133        (uri
 134         ;; The original upstream has been down since the end of March 2020.
 135         (string-append "https://web.archive.org/web/20180626203108/"
 136                        "https://www.soft-switch.org/downloads/" name "/"
 137                        name "-" version ".tar.gz"))
 138        (sha256
 139         (base32 "0rclrkyspzk575v8fslzjpgp4y2s4x7xk3r55ycvpi4agv33l1fc"))))
 140     (build-system gnu-build-system)
 141     (outputs '("out" "doc" "static"))   ;doc contains HTML documentation
 142     (arguments
 143      `(#:configure-flags '("--enable-doc=yes" "--enable-tests=yes")
 144        #:parallel-build? #f ;non-deterministic build failures may occur otherwise
 145        #:parallel-tests? #f ;fails removing the same the files twice otherwise
 146        #:phases (modify-phases %standard-phases
 147                   (add-after 'unpack 'patch-configure.ac
 148                     (lambda _
 149                       ;; spandsp looks at hard coded locations of the FHS to
 150                       ;; find libxml2.
 151                       (substitute* "configure.ac"
 152                         (("AC_MSG_CHECKING\\(for libxml/xmlmemory\\.h.*" all)
 153                          (string-append all
 154                                         "PKG_CHECK_MODULES(XML2, libxml-2.0)\n"
 155                                         "CPPFLAGS+=\" $XML2_CFLAGS\"\n")))
 156                       ;; Force a regeneration of the autotools build system.
 157                       (delete-file "autogen.sh")
 158                       (delete-file "configure")
 159                       #t))
 160                   (add-after 'unpack 'do-not-install-data-files
 161                     ;; The .tiff images produced for tests are not
 162                     ;; reproducible and it is not desirable to have those
 163                     ;; distributed.
 164                     (lambda _
 165                       (substitute* '("test-data/itu/fax/Makefile.am"
 166                                      "test-data/etsi/fax/Makefile.am")
 167                         (("nobase_data_DATA")
 168                          "noinst_DATA"))
 169                       #t))
 170                   (add-after 'install 'install-doc
 171                     (lambda* (#:key outputs #:allow-other-keys)
 172                       (let ((doc (string-append (assoc-ref outputs "doc")
 173                                                 "/share/doc/" ,name "-" ,version)))
 174                         (copy-recursively "doc/t38_manual" doc)
 175                         #t)))
 176                   (add-after 'install 'move-static-libraries
 177                     (lambda* (#:key outputs #:allow-other-keys)
 178                       (let ((out (assoc-ref outputs "out"))
 179                             (static (assoc-ref outputs "static")))
 180                         (mkdir-p (string-append static "/lib"))
 181                         (with-directory-excursion out
 182                           (for-each (lambda (file)
 183                                       (rename-file file
 184                                                    (string-append static "/"
 185                                                                   file)))
 186                                     (find-files "lib" "\\.a$")))
 187                         #t))))))
 188     (native-inputs
 189      `(("autoconf" ,autoconf)
 190        ("automake" ,automake)
 191        ("libtool" ,libtool)
 192        ("pkg-config" ,pkg-config)
 193        ;; For the tests
 194        ("fftw" ,fftw)
 195        ("libpcap" ,libpcap)
 196        ("libsndfile" ,libsndfile)
 197        ("libjpeg" ,libjpeg-turbo)      ;XXX: should be propagated from libtiff
 198        ("libtiff" ,libtiff)
 199        ("netpbm" ,netpbm)
 200        ("sox" ,sox)
 201        ;; For the documentation
 202        ("docbook-xml" ,docbook-xml-4.3)
 203        ("docbook-xsl" ,docbook-xsl)
 204        ("doxygen" ,doxygen)
 205        ("libxml2" ,libxml2)
 206        ("libxslt" ,libxslt)))
 207     (synopsis "DSP library for telephony")
 208     (description "SpanDSP is a library of DSP functions for telephony, in the
 209 8000 sample per second world of E1s, T1s, and higher order PCM channels.  It
 210 contains low level functions, such as basic filters.  It also contains higher
 211 level functions, such as cadenced supervisory tone detection, and a complete
 212 software FAX machine.")
 213     (home-page "https://web.archive.org/web/20180626203108/\
 214 https://www.soft-switch.org/index.html")
 215     (license (list license:lgpl2.1+  ;for the library
 216                    license:gpl2+)))) ;for the test suites and support programs
 217
 218 (define-public commoncpp
 219   (package
 220    (name "commoncpp")
 221    (version "1.8.1")
 222    (source (origin
 223             (method url-fetch)
 224             (uri (string-append "mirror://gnu/" name "/commoncpp2-"
 225                    version ".tar.gz"))
 226             (sha256 (base32
 227                      "0kmgr5w3b1qwzxnsnw94q6rqs0hr8nbv9clf07ca2a2fyypx9kjk"))))
 228     (arguments
 229      `(#:phases
 230        (modify-phases %standard-phases
 231          (add-before 'configure 'pre-configure
 232            (lambda _
 233              (substitute* "src/applog.cpp"
 234                (("^// TODO sc.*") "#include <sys/types.h>\n#include <sys/stat.h>\n"))
 235              #t)))))
 236    (build-system gnu-build-system)
 237    (synopsis "(u)Common C++ framework for threaded applications")
 238    (description "GNU Common C++ is an portable, optimized class framework for
 239 threaded applications, supporting concurrent synchronization, inter-process
 240 communications via sockets, and various methods for data handling, such as
 241 serialization and XML parsing.  It includes the uCommon C++ library, a smaller
 242 reimplementation.")
 243    (license license:gpl2+) ; plus runtime exception
 244    (properties '((ftp-directory . "/gnu/commoncpp")
 245                  (upstream-name . "commoncpp2")))
 246    (home-page "https://www.gnu.org/software/commoncpp/")))
 247
 248 (define-public ucommon
 249   (package
 250    (name "ucommon")
 251    (version "7.0.0")
 252    (source (origin
 253             (method url-fetch)
 254             (uri (string-append "mirror://gnu/commoncpp/" name "-"
 255                    version ".tar.gz"))
 256             (sha256 (base32
 257                      "1mv080rvrhyxyhgqiqr8r9jdqhg3xhfawjvfj5zgj47h59nggjba"))))
 258    (build-system gnu-build-system)
 259    (inputs `(("gnutls" ,gnutls)))
 260    (synopsis "Common C++ framework for threaded applications")
 261    (description "GNU uCommon C++ is meant as a very light-weight C++ library
 262 to facilitate using C++ design patterns even for very deeply embedded
 263 applications, such as for systems using uclibc along with posix threading
 264 support.")
 265    (license license:gpl3+)
 266    (home-page "https://www.gnu.org/software/commoncpp/")
 267    (properties '((ftp-directory . "/gnu/commoncpp")))))
 268
 269 (define-public ccrtp
 270   (package
 271    (name "ccrtp")
 272    (version "2.1.2")
 273    (source (origin
 274             (method url-fetch)
 275             (uri (string-append "mirror://gnu/ccrtp/ccrtp-"
 276                    version ".tar.gz"))
 277             (sha256 (base32
 278                      "17ili8l7zqbbkzr1rcy4hlnazkf50mds41wg6n7bfdsx3c7cldgh"))))
 279    (build-system gnu-build-system)
 280    (inputs `(("ucommon" ,ucommon)
 281              ("libgcrypt" ,libgcrypt)))
 282    (native-inputs `(("pkg-config" ,pkg-config)))
 283    (synopsis "Implementation of RTP (real-time transport protocol)")
 284    (description  "GNU ccRTP is an implementation of RTP, the real-time transport
 285 protocol from the IETF.  It is suitable both for high capacity servers and
 286 personal client applications.  It is flexible in its design, allowing it to
 287 function as a framework for the framework, rather than just being a
 288 packet-manipulation library.")
 289    (license license:gpl2+) ; plus runtime exception
 290    (home-page "https://www.gnu.org/software/ccrtp/")))
 291
 292 (define-public zrtpcpp
 293   (package
 294     (name "zrtpcpp")
 295     (version "4.6.6")
 296     (source
 297      (origin
 298        (method git-fetch)
 299        (uri
 300         (git-reference
 301          (url "https://github.com/wernerd/ZRTPCPP")
 302          (commit
 303           (string-append "V" version))))
 304        (file-name
 305         (git-file-name name version))
 306        (sha256
 307         (base32
 308          "06vphvh4dgi7ah5qkq53wqvswv8l273x0xwbc447qmgvamm0x1vs"))))
 309     (build-system cmake-build-system)
 310     (arguments
 311      `(#:tests? #f))                    ; No target
 312     (native-inputs
 313      `(("pkg-config" ,pkg-config)))
 314     (inputs
 315      `(("ccrtp" ,ccrtp)
 316        ("ucommon" ,ucommon)))
 317     (synopsis "C++ Implementation of ZRTP protocol")
 318     (description  "GNU ZRTP C++ provides a library that adds ZRTP support to the
 319 GNU ccRTP stack and serves as library for other RTP stacks
 320 (PJSIP, GStreamer).")
 321     (home-page "https://www.gnu.org/software/ccrtp/zrtp")
 322     (license license:lgpl3+)))
 323
 324 (define-public osip
 325   (package
 326    (name "osip")
 327    (version "5.2.0")
 328    (source (origin
 329             (method url-fetch)
 330             (uri (string-append "mirror://gnu/osip/libosip2-" version ".tar.gz"))
 331             (patches (search-patches "osip-CVE-2017-7853.patch"))
 332             (sha256
 333              (base32
 334               "0xdk3cszkzb8nb757gl47slrr13mf6xz43ab4k343fv8llp8pd2g"))))
 335    (build-system gnu-build-system)
 336
 337    (synopsis "Library implementing SIP (RFC-3261)")
 338    (description "GNU oSIP is an implementation of the SIP protocol.  It is
 339 used to provide multimedia and telecom software developers with an interface
 340 to initiate and control SIP sessions.")
 341    (license license:lgpl2.1+)
 342    (properties '((ftp-directory . "/gnu/osip")
 343                  (upstream-name . "libosip2")))
 344    (home-page "https://www.gnu.org/software/osip/")))
 345
 346
 347 (define-public exosip
 348   (package
 349    (name "exosip")
 350    (version "4.1.0")
 351    (source (origin
 352             (method url-fetch)
 353             (uri (string-append "mirror://savannah/exosip/libeXosip2-"
 354                                 version ".tar.gz"))
 355             (sha256 (base32
 356                      "17cna8kpc8nk1si419vgr6r42k2lda0rdk50vlxrw8rzg0xp2xrw"))))
 357    (build-system gnu-build-system)
 358    (inputs `(("osip" ,osip)))
 359    (synopsis "Sip abstraction library")
 360    (description "EXosip is a library that hides the complexity of using the
 361 SIP protocol for multimedia session establishment.  This protocol is mainly to
 362 be used by VoIP telephony applications (endpoints or conference server) but
 363 might be also useful for any application that wish to establish sessions like
 364 multiplayer games.")
 365    (license license:gpl2+)
 366    ;; (plus OpenSSL linking exception)
 367    ;; http://git.savannah.gnu.org/cgit/exosip.git/plain/LICENSE.OpenSSL
 368     (home-page "https://savannah.nongnu.org/projects/exosip")))
 369
 370 (define-public sipwitch
 371   (package
 372    (name "sipwitch")
 373    (version "1.9.15")
 374    (source (origin
 375             (method url-fetch)
 376             (uri (string-append "mirror://gnu/sipwitch/sipwitch-"
 377                    version ".tar.gz"))
 378             (sha256 (base32
 379                      "10lli9c703d7qbarzc0lgmz963ppncvnrklwrnri0s1zcmmahyia"))))
 380    (build-system gnu-build-system)
 381    ;; The configure.ac uses pkg-config but in a kludgy way which breaks when
 382    ;; cross-compiling.  Among other issues there the program name "pkg-config"
 383    ;; is hard coded instead of respecting the PKG_CONFIG environment variable.
 384    ;; Fortunately we can avoid the use of pkg-config and set the dependency
 385    ;; flags ourselves.
 386    (arguments `(#:configure-flags
 387                 `("--without-pkg-config"
 388                   ,(string-append "UCOMMON_CFLAGS=-I"
 389                                   (assoc-ref %build-inputs "ucommon") "/include")
 390                   "UCOMMON_LIBS=-lusecure -lucommon -lrt -ldl -lpthread"
 391                   ,(string-append "LIBOSIP2_CFLAGS=-I"
 392                                   (assoc-ref %build-inputs "osip") "/include")
 393                   "LIBOSIP2_LIBS=-losipparser2 -losip2"
 394                   ,(string-append "--sysconfdir=" (assoc-ref %outputs "out")
 395                                   "/etc")
 396                   "EXOSIP2_LIBS=-leXosip2"
 397                   ,(string-append "EXOSIP2_CFLAGS=-I"
 398                                   (assoc-ref %build-inputs "exosip")
 399                                   "/include"))))
 400    (inputs `(("ucommon" ,ucommon)
 401              ("exosip" ,exosip)
 402              ("osip" ,osip)))
 403    (synopsis "Secure peer-to-peer VoIP server for the SIP protocol")
 404    (description "GNU SIP Witch is a peer-to-peer Voice-over-IP server that
 405 uses the SIP protocol.  Calls can be made from behind NAT firewalls and
 406 without the need for a service provider.  Its peer-to-peer design ensures that
 407 there is no central point for media intercept or capture and thus it can be
 408 used to construct a secure telephone system that operates over the public
 409 internet.")
 410    (license license:gpl3+)
 411    (home-page "https://www.gnu.org/software/sipwitch/")))
 412
 413 (define-public libsrtp
 414   (package
 415     (name "libsrtp")
 416     (version "2.3.0")
 417     (source (origin
 418               (method git-fetch)
 419               (uri (git-reference
 420                      (url "https://github.com/cisco/libsrtp")
 421                      (commit (string-append "v" version))))
 422               (file-name (git-file-name name version))
 423               (sha256
 424                (base32
 425                 "1f7i3jdh1wzdv7zjlz7gs3xw5jqig9zw8z9awsqqcp54f94xdpvd"))))
 426     (native-inputs
 427      `(("psmisc" ,psmisc)               ;some tests require 'killall'
 428        ("procps" ,procps)))
 429     (build-system gnu-build-system)
 430     (arguments
 431      '(#:test-target "runtest"
 432        #:phases (modify-phases %standard-phases
 433                   (add-after 'build 'build-shared
 434                     (lambda* (#:key (make-flags '()) #:allow-other-keys)
 435                       ;; Build the shared library separately because
 436                       ;; the test runner requires a static build.
 437                       (apply invoke "make" "shared_library" make-flags)
 438                       #t))
 439                   (add-after 'install 'remove-static-library
 440                     (lambda* (#:key outputs #:allow-other-keys)
 441                       (delete-file (string-append (assoc-ref outputs "out")
 442                                                   "/lib/libsrtp2.a"))
 443                       #t)))))
 444     (synopsis "Secure RTP (SRTP) Reference Implementation")
 445     (description
 446      "This package provides an implementation of the Secure Real-time Transport
 447 Protocol (@dfn{SRTP}), the Universal Security Transform (@dfn{UST}), and a
 448 supporting cryptographic kernel.")
 449     (home-page "https://github.com/cisco/libsrtp")
 450     (license license:bsd-3)))
 451
 452 (define-public libiax2
 453   (let ((commit "0e5980f1d78ce462e2d1ed6bc39ff35c8341f201"))
 454     ;; This is the commit used by the Ring Project.
 455     (package
 456       (name "libiax2")
 457       (version (string-append "0.0.0-1." (string-take commit 7)))
 458       (source
 459        (origin
 460          (method git-fetch)
 461          (uri (git-reference
 462                (url "https://gitlab.savoirfairelinux.com/sflphone/libiax2.git")
 463                (commit commit)))
 464          (file-name (git-file-name name version))
 465          (sha256
 466           (base32
 467            "0d269474kk1933c55hx4azw3sak5ycfrxkw6ida0sb2cm00kfich"))))
 468       (build-system gnu-build-system)
 469       (native-inputs
 470        `(("autoconf" ,autoconf)
 471          ("automake" ,automake)
 472          ("libtool" ,libtool)))
 473       (home-page "https://gitlab.savoirfairelinux.com/sflphone/libiax2")
 474       (synopsis "Inter-Asterisk-Protocol library")
 475       (description "LibIAX2 implements the Inter-Asterisk-Protocol for relaying
 476 Voice-over-IP (VoIP) communications.")
 477       ;; The file 'src/md5.c' is released into the public domain by RSA Data
 478       ;; Security.  The files 'src/answer.h', 'src/miniphone.c',
 479       ;; 'src/options.c', 'src/options.h', 'src/ring10.h', 'src/winiphone.c' are
 480       ;; covered under the 'GPL'.
 481       ;; The package as a whole is distributed under the LGPL 2.0.
 482       (license (list license:lgpl2.0
 483                      license:public-domain
 484                      license:gpl2+)))))
 485
 486 (define-public seren
 487   (package
 488     (name "seren")
 489     (version "0.0.21")
 490     (source (origin
 491               (method url-fetch)
 492               (uri (string-append "http://holdenc.altervista.org/"
 493                                   "seren/downloads/seren-" version
 494                                   ".tar.gz"))
 495               (sha256
 496                (base32
 497                 "06mams6bng7ib7p2zpfq88kdr4ffril9svzc9lprkb0wjgmkglk9"))))
 498     (build-system gnu-build-system)
 499     (arguments '(#:tests? #f))  ; no "check" target
 500     (inputs
 501      `(("alsa-lib" ,alsa-lib)
 502        ("gmp" ,gmp)
 503        ("libogg" ,libogg)
 504        ("ncurses" ,ncurses)
 505        ("opus" ,opus)))
 506     (synopsis "Simple VoIP program to create conferences from the terminal")
 507     (description
 508      "Seren is a simple VoIP program based on the Opus codec that allows you
 509 to create a voice conference from the terminal, with up to 10 participants,
 510 without having to register accounts, exchange emails, or add people to contact
 511 lists.  All you need to join an existing conference is the host name or IP
 512 address of one of the participants.")
 513     (home-page "http://holdenc.altervista.org/seren/")
 514     (license license:gpl3+)))
 515
 516 (define-public mumble
 517   (package
 518     (name "mumble")
 519     (version "1.3.4")
 520     (source (origin
 521               (method url-fetch)
 522               (uri
 523                (string-append
 524                 "https://github.com/mumble-voip/mumble/releases/download/"
 525                 version "/" name "-" version ".tar.gz"))
 526               (sha256
 527                (base32
 528                 "14v0rgy1a5alxmz7ly95y38bdj0hx79yysgkcd8r8p9qqfzlwpv1"))
 529               (modules '((guix build utils)
 530                          (ice-9 ftw)
 531                          (srfi srfi-1)))
 532               (snippet
 533                `(begin
 534                   (let ((keep
 535                          '("arc4random-src"
 536                            "celt-0.7.0-build"
 537                            "celt-0.7.0-src"
 538                            "celt-0.11.0-build"
 539                            "celt-0.11.0-src"
 540                            "qqbonjour-src"
 541                            "rnnoise-build"
 542                            "rnnoise-src"
 543                            "smallft-src")))
 544                     (with-directory-excursion "3rdparty"
 545                       (for-each delete-file-recursively
 546                                 (lset-difference string=?
 547                                                  (scandir ".")
 548                                                  (cons* "." ".." keep))))
 549                     #t)))))
 550     (build-system qt-build-system)
 551     (arguments
 552      `(#:tests? #f  ; no "check" target
 553        #:phases
 554        (modify-phases %standard-phases
 555          (replace 'configure
 556            (lambda* (#:key inputs outputs #:allow-other-keys)
 557              (invoke "qmake" "main.pro" "QMAKE_LRELEASE=lrelease"
 558                      (string-append "MUMBLE_PYTHON="
 559                                     (string-append (assoc-ref inputs "python")
 560                                                    "/bin/python3"))
 561                      (string-append "CONFIG+="
 562                                     (string-join
 563                                      ;; Options used are listed in the same order
 564                                      ;; as in the "INSTALL" file
 565                                      ;; (plus the final "packaged" and "release").
 566                                      (list "no-bundled-speex" ; in speex
 567                                            "no-bundled-opus" ; in opus
 568                                            "no-g15" ; not packaged
 569                                            "no-jackaudio" ; use pulse
 570                                            "no-oss" ; use pulse
 571                                            "no-alsa" ; use pulse
 572                                            "no-update"
 573                                            "no-embed-qt-translations"
 574                                            "no-ice" ; not packaged
 575                                            "packaged"
 576                                            "release")))
 577                      (string-append "DEFINES+="
 578                                     "PLUGIN_PATH="
 579                                     (assoc-ref outputs "out")
 580                                     "/lib/mumble"))))
 581          (add-before 'configure 'fix-libspeechd-include
 582            (lambda _
 583              (substitute* "src/mumble/TextToSpeech_unix.cpp"
 584                (("libspeechd.h") "speech-dispatcher/libspeechd.h"))
 585              #t))
 586          ;; disable statistic gathering by default. see <https://bugs.gnu.org/25201>
 587          (add-before 'configure 'fix-statistic-gathering-default
 588            (lambda _
 589              (substitute* "src/mumble/Settings.cpp"
 590                (("bUsage = true;") "bUsage = false;"))
 591              #t))
 592          (add-before 'configure 'fix-mumble-overlay
 593            (lambda* (#:key outputs #:allow-other-keys)
 594               (with-output-to-file "scripts/mumble-overlay"
 595                 (lambda ()
 596                   (format #t "#!~a~%" (which "bash"))
 597                   (format #t "export LD_PRELOAD=\"~a $LD_PRELOAD\"~%"
 598                           (string-append (assoc-ref outputs "out")
 599                                          "/lib/mumble/libmumble.so.1"))
 600                   (format #t "exec \"${@}\"")))
 601               #t))
 602          (add-before 'install 'disable-murmur-ice
 603            (lambda _
 604              (substitute* "scripts/murmur.ini.system"
 605                (("^ice=") ";ice="))
 606              #t))
 607          (replace 'install ; install phase does not exist
 608            (lambda* (#:key inputs outputs #:allow-other-keys)
 609              (let* ((out (assoc-ref outputs "out"))
 610                     (etc (string-append out "/etc/murmur"))
 611                     (dbus (string-append out "/etc/dbus-1/system.d/"))
 612                     (bin (string-append out "/bin"))
 613                     (services (string-append out "/share/services"))
 614                     (applications (string-append out "/share/applications"))
 615                     (icons (string-append out "/share/icons/hicolor/scalable/apps"))
 616                     (man (string-append out "/share/man/man1"))
 617                     (lib (string-append out "/lib/mumble")))
 618                (install-file "release/mumble" bin)
 619                (install-file "scripts/mumble-overlay" bin)
 620                (install-file "scripts/mumble.protocol" services)
 621                (install-file "scripts/mumble.desktop" applications)
 622                (install-file "icons/mumble.svg" icons)
 623                (install-file "man/mumble-overlay.1" man)
 624                (install-file "man/mumble.1" man)
 625                (install-file "release/murmurd" bin)
 626                (install-file "scripts/murmur.ini.system" etc)
 627                (rename-file (string-append etc "/murmur.ini.system")
 628                             (string-append etc "/murmur.ini"))
 629                (install-file "scripts/murmur.conf" dbus)
 630                (install-file "man/murmurd.1" man)
 631                (for-each (lambda (file) (install-file file lib))
 632                          (find-files "." "\\.so\\."))
 633                (for-each (lambda (file) (install-file file lib))
 634                          (find-files "release/plugins" "\\.so$"))
 635                #t))))))
 636     (inputs
 637      `(("avahi" ,avahi)
 638        ("boost" ,boost)
 639        ("libsndfile" ,libsndfile)
 640        ("libxi" ,libxi)
 641        ("mesa" ,mesa) ; avoid bundled
 642        ("openssl" ,openssl)
 643        ("opus" ,opus) ; avoid bundled
 644        ("protobuf" ,protobuf)
 645        ("pulseaudio" ,pulseaudio)
 646        ("qtbase" ,qtbase)
 647        ("qtsvg" ,qtsvg)
 648        ("speech-dispatcher" ,speech-dispatcher)
 649        ("speex" ,speex) ; avoid bundled
 650        ("speexdsp" ,speexdsp))) ; avoid bundled
 651     (native-inputs
 652      `(("pkg-config" ,pkg-config)
 653        ("python" ,python)
 654        ("qttools" ,qttools)))
 655     (synopsis "Low-latency, high quality voice chat software")
 656     (description
 657      "Mumble is an low-latency, high quality voice chat
 658 software primarily intended for use while gaming.
 659 Mumble consists of two applications for separate usage:
 660 @code{mumble} for the client, and @code{murmur} for the server.")
 661     (home-page "https://wiki.mumble.info/wiki/Main_Page")
 662     (license (list license:bsd-3 ; mumble celt-0.7.0 qqbonjour rnnoise smallft
 663                    license:bsd-2 ; celt-0.11.0
 664                    license:isc)))) ; arc4random
 665
 666 (define-public twinkle
 667   (package
 668     (name "twinkle")
 669     (version "1.10.2")
 670     (source
 671      (origin
 672        (method git-fetch)
 673        (uri
 674         (git-reference
 675          (url "https://github.com/LubosD/twinkle")
 676          (commit
 677           (string-append "v" version))))
 678        (file-name
 679         (git-file-name name version))
 680        (patches
 681         (search-patches "twinkle-bcg729.patch")) ; To support new BCG729 API.
 682        (sha256
 683         (base32
 684          "0s0gi03xwvzp02ah4q6j33r9jx9nbayr6dxlg2ck9pwbay1nq1hx"))))
 685     (build-system qt-build-system)
 686     (arguments
 687      `(#:tests? #f                      ; no test target
 688        #:configure-flags
 689        (list
 690         ;; FIX-ME: Make Twinkle compatible with libre version of iLBC.
 691         ;; "-DWITH_ILBC=On"                ; For iLBC Codec Support
 692         "-DWITH_ZRTP=On"                ; For ZRTP Support
 693         "-DWITH_G729=On"                ; For G729 Codec Support
 694         "-DWITH_SPEEX=On")))            ; For Speex Codec Support
 695     (native-inputs
 696      `(("bison" ,bison)
 697        ("flex" ,flex)
 698        ("qttools" ,qttools)))
 699     (inputs
 700      `(("alsa-lib" ,alsa-lib)
 701        ("bcg729" ,bcg729)
 702        ("zrtpcpp" ,zrtpcpp)
 703        ("ccrtp" ,ccrtp)
 704        ("file" ,file)
 705        ("libilbc" ,libilbc)
 706        ("libsndfile" ,libsndfile)
 707        ("libxml2" ,libxml2)
 708        ("qtbase" ,qtbase)
 709        ("qtdeclarative" ,qtdeclarative)
 710        ("qtquickcontrols" ,qtquickcontrols)
 711        ("readline" ,readline)
 712        ("speex" ,speex)
 713        ("speexdsp" ,speexdsp)
 714        ("ucommon" ,ucommon)))
 715     (synopsis "Softphone for voice over IP and instant messaging")
 716     (description "Twinkle is a softphone for your voice over IP and instant
 717 messaging communcations using the SIP protocol.  You can use it for direct
 718 IP phone to IP phone communication or in a network using a SIP proxy to route
 719 your calls and messages.")
 720     (home-page "http://twinkle.dolezel.info/")
 721     (license license:gpl2+)))
 722
 723 (define-public pjproject
 724   (package
 725     (name "pjproject")
 726     (version "2.11")
 727     (source
 728      (origin
 729        (method git-fetch)
 730        (uri (git-reference
 731              (url "https://github.com/pjsip/pjproject")
 732              (commit version)))
 733        (file-name (git-file-name name version))
 734        (sha256
 735         (base32
 736          "1kn9g1x1vmh4130ghph8mldz5m89gsjs4vpdzlzm98m3808gk5an"))
 737        (modules '((guix build utils)))
 738        (snippet
 739         '(begin
 740            ;; Remove bundled libraries.
 741            (delete-file-recursively "third_party")
 742            (substitute* "aconfigure.ac"
 743              (("third_party/build/os-auto.mak") ""))
 744            (substitute* "Makefile"
 745              (("third_party/build") ""))))))
 746     (build-system gnu-build-system)
 747     (outputs '("out" "debug" "static"))
 748     (arguments
 749      `(#:tests? #t
 750        #:test-target "selftest"
 751        #:configure-flags
 752        (list "--enable-shared"
 753              "--with-external-speex"
 754              "--with-external-gsm"
 755              "--with-external-srtp"
 756              "--with-external-pa"
 757              ;; The following flag is Linux specific.
 758              ,@(if (string-contains (or (%current-system)
 759                                         (%current-target-system)) "linux")
 760                    '("--enable-epoll")
 761                    '())
 762              "--with-gnutls"            ;disable OpenSSL checks
 763              "--disable-libyuv"         ;TODO: add missing package
 764              "--disable-silk"           ;TODO: add missing package
 765              "--disable-libwebrtc"      ;TODO: add missing package
 766              "--disable-ilbc-codec"     ;cannot be unbundled
 767              "--disable-g7221-codec"    ;TODO: add missing package
 768              "--enable-libsamplerate"
 769              ;; -DNDEBUG is set to prevent pjproject from raising
 770              ;; assertions that aren't critical, crashing
 771              ;; applications as the result.
 772              "CFLAGS=-DNDEBUG"
 773              ;; Specify a runpath reference to itself, which is missing and
 774              ;; causes the validate-runpath phase to fail.
 775              (string-append "LDFLAGS=-Wl,-rpath=" (assoc-ref %outputs "out")
 776                             "/lib"))
 777        #:phases
 778        (modify-phases %standard-phases
 779          (add-after 'unpack 'make-source-files-writable
 780            ;; Make all the files writable to prevent the following error:
 781            ;; "autom4te: cannot open aconfigure: Permission denied".
 782            (lambda _
 783              (for-each make-file-writable (find-files "."))))
 784          (add-before 'build 'build-dep
 785            (lambda _ (invoke "make" "dep")))
 786          ;; The check phases is moved after the install phase so to
 787          ;; use the installed shared libraries for the tests.
 788          (delete 'check)
 789          (add-after 'install 'move-static-libraries
 790            (lambda* (#:key outputs #:allow-other-keys)
 791              (let ((out (assoc-ref outputs "out"))
 792                    (s (string-append (assoc-ref outputs "static") "/lib")))
 793                (mkdir-p s)
 794                (with-directory-excursion out
 795                  (for-each (lambda (f)
 796                              (rename-file f (string-append s "/" (basename f))))
 797                            (find-files "." "\\.a$"))))))
 798          (add-after 'install 'check
 799            (assoc-ref %standard-phases 'check))
 800          (add-before 'patch-source-shebangs 'autoconf
 801            (lambda _
 802              (invoke "autoconf" "-v" "-f" "-i" "-o"
 803                      "aconfigure" "aconfigure.ac")))
 804          (add-before 'autoconf 'disable-some-tests
 805            (lambda _
 806              (substitute* "pjlib/src/pjlib-test/test.h"
 807                ;; Disable network tests which are slow and/or require an
 808                ;; actual network.
 809                (("#define GROUP_NETWORK.*")
 810                 "#define GROUP_NETWORK 0\n"))
 811              (substitute* "self-test.mak"
 812                ;; Fails with: pjlib-util-test-x86_64-unknown-linux-gnu:
 813                ;; ../src/pjlib-util-test/resolver_test.c:1501: action2_1:
 814                ;; Assertio n `pj_strcmp2(&pkt->q[0].name, "_sip._udp."
 815                ;; "domain2.com")==0' failed.
 816                ((" pjlib_util_test ") ""))
 817              (substitute* "pjsip/src/test/test.h"
 818                ;; Fails with: Error: unable to acquire TCP transport:
 819                ;; [pj_status_t=120101] Network is unreachable.
 820                (("#define INCLUDE_TCP_TEST.*")
 821                 "#define INCLUDE_TCP_TEST 0\n")
 822                ;; The TSX tests takes a very long time to run; skip them.
 823                (("#define INCLUDE_TSX_GROUP.*")
 824                 "#define INCLUDE_TSX_GROUP 0\n"))
 825              (substitute* "pjsip/src/test/dns_test.c"
 826                ;; The round_robin_test fails non-deterministically (depending
 827                ;; on load); skip it (see:
 828                ;; https://github.com/pjsip/pjproject/issues/2500).
 829                (("round_robin_test(pool)") 0))
 830              (substitute* "pjmedia/src/test/test.h"
 831                ;; The following tests require a sound card.
 832                (("#define HAS_MIPS_TEST.*")
 833                 "#define HAS_MIPS_TEST 0\n")
 834                (("#define HAS_JBUF_TEST.*")
 835                 "#define HAS_JBUF_TEST 0\n"))
 836              (substitute* "Makefile"
 837                ;; Disable the pjnath and pjsua tests, which require an actual
 838                ;; network and an actual sound card, respectively.
 839                (("pjnath-test pjmedia-test pjsip-test pjsua-test")
 840                 "pjmedia-test pjsip-test")))))))
 841     (native-inputs
 842      `(("autoconf" ,autoconf)
 843        ("automake" ,automake)
 844        ("libtool" ,libtool)
 845        ("pkg-config" ,pkg-config)))
 846     (inputs
 847      `(("bcg729" ,bcg729)
 848        ("gnutls" ,gnutls)
 849        ("gsm" ,gsm)
 850        ("libsamplerate" ,libsamplerate)
 851        ("libsrtp" ,libsrtp)
 852        ("opus" ,opus)
 853        ("portaudio" ,portaudio)
 854        ("speex" ,speex)
 855        ("speexdsp" ,speexdsp)))
 856     (home-page "https://www.pjsip.org")
 857     (synopsis "Session Initiation Protocol (SIP) stack")
 858     (description "PJProject provides an implementation of the Session
 859 Initiation Protocol (SIP) and a multimedia framework.")
 860     (license license:gpl2+)))
 861
 862 (define-public libtgvoip
 863   (package
 864     (name "libtgvoip")
 865     (version "2.4.4")
 866     (source
 867      (origin
 868        (method git-fetch)
 869        (uri (git-reference
 870              (url "https://github.com/grishka/libtgvoip")
 871              (commit version)))
 872        (file-name (git-file-name name version))
 873        ;; Fix compilation on i686-linux architecture.
 874        ;; NOTE: Applying these patches is order-dependent!
 875        ;; The patch for WebRTC /must/ precede the patch for SSE2.
 876        (patches
 877         (search-patches "libtgvoip-disable-webrtc.patch"
 878                         "libtgvoip-disable-sse2.patch"))
 879        (sha256
 880         (base32
 881          "122kn3jx6v0kkldlzlpzvlwqxgp6pmzxsjhrhcxw12bx9c08sar5"))))
 882     (build-system gnu-build-system)
 883     (inputs
 884      `(("alsa-lib" ,alsa-lib)
 885        ("openssl" ,openssl)
 886        ("opus" ,opus)
 887        ("pulseaudio" ,pulseaudio)))
 888     (arguments
 889      `(#:phases
 890        (modify-phases %standard-phases
 891          ;; libtgvoip wants to dlopen libpulse and libasound, so tell it where
 892          ;; they are.
 893          (add-after 'unpack 'patch-dlopen
 894            (lambda* (#:key inputs #:allow-other-keys)
 895              (substitute* "os/linux/AudioPulse.cpp"
 896                (("libpulse\\.so")
 897                 (string-append (assoc-ref inputs "pulseaudio")
 898                               "/lib/libpulse.so")))
 899              (substitute* '("os/linux/AudioInputALSA.cpp"
 900                             "os/linux/AudioOutputALSA.cpp")
 901                (("libasound\\.so")
 902                 (string-append (assoc-ref inputs "alsa-lib")
 903                                "/lib/libasound.so")))
 904              #t)))))
 905     (synopsis "VoIP library for Telegram clients")
 906     (description "A collection of libraries and header files for implementing
 907 telephony functionality into custom Telegram clients.")
 908     (home-page "https://github.com/zevlg/libtgvoip")
 909     (license license:unlicense)))