gnu/packages/linphone.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;;
   3 ;;; Copyright © 2020, 2021 Raghav Gururajan <raghavgururajan@disroot.org>
   4 ;;; Copyright © 2020, 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
   5 ;;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr>
   6 ;;;
   7 ;;; This file is part of GNU Guix.
   8 ;;;
   9 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  10 ;;; under the terms of the GNU General Public License as published by
  11 ;;; the Free Software Foundation; either version 3 of the License, or (at
  12 ;;; your option) any later version.
  13 ;;;
  14 ;;; GNU Guix is distributed in the hope that it will be useful, but
  15 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  16 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 ;;; GNU General Public License for more details.
  18 ;;;
  19 ;;; You should have received a copy of the GNU General Public License
  20 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  21
  22 (define-module (gnu packages linphone)
  23   #:use-module (gnu packages)
  24   #:use-module (gnu packages admin)
  25   #:use-module (gnu packages audio)
  26   #:use-module (gnu packages base)
  27   #:use-module (gnu packages compression)
  28   #:use-module (gnu packages crypto)
  29   #:use-module (gnu packages documentation)
  30   #:use-module (gnu packages gettext)
  31   #:use-module (gnu packages gl)
  32   #:use-module (gnu packages glib)
  33   #:use-module (gnu packages gnome)
  34   #:use-module (gnu packages gnome-xyz)
  35   #:use-module (gnu packages graphviz)
  36   #:use-module (gnu packages gtk)
  37   #:use-module (gnu packages image)
  38   #:use-module (gnu packages linux)
  39   #:use-module (gnu packages ncurses)
  40   #:use-module (gnu packages perl)
  41   #:use-module (gnu packages pulseaudio)
  42   #:use-module (gnu packages python)
  43   #:use-module (gnu packages python-xyz)
  44   #:use-module (gnu packages qt)
  45   #:use-module (gnu packages java)
  46   #:use-module (gnu packages sqlite)
  47   #:use-module (gnu packages telephony)
  48   #:use-module (gnu packages tls)
  49   #:use-module (gnu packages video)
  50   #:use-module (gnu packages xiph)
  51   #:use-module (gnu packages xml)
  52   #:use-module (gnu packages xorg)
  53   #:use-module ((guix licenses) #:prefix license:)
  54   #:use-module (guix packages)
  55   #:use-module (guix download)
  56   #:use-module (guix git-download)
  57   #:use-module (guix build-system cmake)
  58   #:use-module (guix build-system qt)
  59   #:use-module (guix build-system glib-or-gtk)
  60   #:use-module (guix build-system gnu))
  61
  62 (define-public bcunit
  63   (let ((commit "74021cc7cb20a4e177748dd2948173e1f9c270ae")
  64         (revision "0"))
  65     (package
  66       (name "bcunit")
  67       (version (git-version "3.0.2" revision commit))
  68       (source
  69        (origin
  70          (method git-fetch)
  71          (uri (git-reference
  72                (url "git://git.linphone.org/bcunit")
  73                (commit commit)))
  74          (file-name (git-file-name name version))
  75          (sha256
  76           (base32 "0npdwvanjkfg9vrqs5yi8vh6wliv50ycdli8pzavir84nb31nq1b"))))
  77       (build-system cmake-build-system)
  78       (outputs '("out" "doc"))
  79       (arguments
  80        `(#:configure-flags (list "-DENABLE_STATIC=NO"
  81                                  "-DENABLE_CURSES=ON"
  82                                  "-DENABLE_DOC=ON"
  83                                  "-DENABLE_EXAMPLES=ON"
  84                                  "-DENABLE_TEST=ON"
  85                                  "-DENABLE_MEMTRACE=ON")
  86          #:phases
  87          (modify-phases %standard-phases
  88            (add-after 'unpack 'patch-source
  89              (lambda _
  90                ;; Include BCunit headers for examples.
  91                (substitute* "Examples/CMakeLists.txt"
  92                  (("\\$\\{CMAKE_CURRENT_SOURCE_DIR\\}")
  93                   (string-append "${CMAKE_CURRENT_SOURCE_DIR} "
  94                                  "${PROJECT_SOURCE_DIR}/BCUnit/Headers "
  95                                  "${CMAKE_BINARY_DIR}/BCUnit/Headers")))
  96                ;; Link bcunit and bcunit_tests libraries.
  97                (substitute* "BCUnit/Sources/CMakeLists.txt"
  98                  (("target_include_directories\\(bcunit_test PUBLIC Test\\)")
  99                   (string-append
 100                    "target_include_directories(bcunit_test PUBLIC Test)\n"
 101                    "target_link_libraries(bcunit_test bcunit)")))))
 102            (replace 'check
 103              (lambda _
 104                (with-directory-excursion "BCUnit/Sources/Test"
 105                  (invoke "./test_bcunit"))))
 106            (add-after 'install 'move-doc
 107              (lambda* (#:key outputs #:allow-other-keys)
 108                (let ((out (assoc-ref outputs "out"))
 109                      (doc (assoc-ref outputs "doc")))
 110                  (for-each mkdir-p
 111                            `(,(string-append doc "/share/doc")
 112                              ,(string-append doc "/share/BCUnit")))
 113                  (rename-file
 114                   (string-append out "/share/doc/BCUnit")
 115                   (string-append doc "/share/doc/BCUnit"))
 116                  (rename-file
 117                   (string-append out "/share/BCUnit/Examples")
 118                   (string-append doc "/share/BCUnit/Examples"))))))))
 119       (inputs
 120        `(("ncurses" ,ncurses)))
 121       (synopsis "Belledonne Communications Unit Testing Framework")
 122       (description "BCUnit is a fork of the defunct project CUnit, with
 123 several fixes and patches applied.  It is a unit testing framework for
 124 writing, administering, and running unit tests in C.")
 125       (home-page "https://gitlab.linphone.org/BC/public/bcunit")
 126       (license license:lgpl2.0+))))
 127
 128 (define-public bctoolbox
 129   (package
 130     (name "bctoolbox")
 131     (version "4.4.34")
 132     (source
 133      (origin
 134        (method git-fetch)
 135        (uri (git-reference
 136              (url "https://gitlab.linphone.org/BC/public/bctoolbox.git")
 137              (commit version)))
 138        (file-name (git-file-name name version))
 139        (sha256
 140         (base32 "0bfswwvvdshaahg4jd2j10f0sci8809s4khajd0m6b059zwc7y25"))))
 141     (build-system cmake-build-system)
 142     (outputs '("out" "debug"))
 143     (arguments
 144      `(#:configure-flags '("-DENABLE_STATIC=OFF")
 145        #:phases
 146        (modify-phases %standard-phases
 147          (add-after 'unpack 'patch-cmake
 148            (lambda* (#:key inputs #:allow-other-keys)
 149              ;; Fix decaf dependency (see:
 150              ;; https://gitlab.linphone.org/BC/public/bctoolbox/-/issues/3).
 151              (let* ((decaf (assoc-ref inputs "decaf")))
 152                (substitute* (find-files "." "CMakeLists.txt")
 153                  (("find_package\\(Decaf CONFIG\\)")
 154                   "set(DECAF_FOUND 1)")
 155                  (("\\$\\{DECAF_INCLUDE_DIRS\\}")
 156                   (string-append decaf "/include/decaf"))
 157                  (("\\$\\{DECAF_TARGETNAME\\}")
 158                   "decaf")))))
 159          (add-after 'unpack 'skip-problematic-tests
 160            (lambda _
 161              ;; The following test relies on networking; disable it.
 162              (substitute* "tester/port.c"
 163                (("[ \t]*TEST_NO_TAG.*bctbx_addrinfo_sort_test\\)")
 164                 ""))))
 165          (add-after 'unpack 'fix-installed-resource-directory-detection
 166            (lambda _
 167              ;; There's some broken logic in tester.c that checks if CWD, or
 168              ;; if its parent exist, and if so, sets the prefix where the test
 169              ;; resources are looked up to; disable it (see:
 170              ;; https://gitlab.linphone.org/BC/public/bctoolbox/-/issues/4).
 171              (substitute* "src/tester.c"
 172                (("if \\(file_exists\\(\".\"\\)\\)")
 173                 "if (NULL)")
 174                (("if \\(file_exists\\(\"..\"\\)\\)")
 175                 "if (NULL)"))))
 176          (replace 'check
 177            (lambda _
 178              (with-directory-excursion "tester"
 179                (invoke "./bctoolbox_tester")))))))
 180     (inputs
 181      `(("bcunit" ,bcunit)
 182        ("decaf" ,libdecaf)
 183        ("mbedtls" ,mbedtls-apache)))
 184     (synopsis "Belledonne Communications Tool Box")
 185     (description "BcToolBox is an utilities library used by Belledonne
 186 Communications software like belle-sip, mediastreamer2 and linphone.")
 187     (home-page "https://gitlab.linphone.org/BC/public/bctoolbox")
 188     (license license:gpl3+)))
 189
 190 (define-public belr
 191   (package
 192     (name "belr")
 193     (version "4.4.34")
 194     (source
 195      (origin
 196        (method git-fetch)
 197        (uri (git-reference
 198              (url "https://gitlab.linphone.org/BC/public/belr.git")
 199              (commit version)))
 200        (file-name (git-file-name name version))
 201        (sha256
 202         (base32 "0w2canwwm0qb99whnangvaybvjzq8xg6vksqxykgr8fbx7clw03h"))))
 203     (build-system cmake-build-system)
 204     (outputs '("out" "debug" "tester"))
 205     (arguments
 206      `(#:configure-flags '("-DENABLE_STATIC=OFF")
 207        #:phases
 208        (modify-phases %standard-phases
 209          (delete 'check)                ;moved after the install phase
 210          (add-after 'install 'check
 211            (lambda* (#:key outputs #:allow-other-keys)
 212              (let* ((tester (assoc-ref outputs "tester"))
 213                     (belr_tester (string-append tester "/bin/belr_tester"))
 214                     (tester-share (string-append tester "/share/belr_tester")))
 215                (invoke belr_tester))))
 216          (add-after 'install 'move-tester
 217            (lambda* (#:key outputs #:allow-other-keys)
 218              (let* ((out (assoc-ref outputs "out"))
 219                     (tester (assoc-ref outputs "tester")))
 220                (for-each mkdir-p
 221                          (list (string-append tester "/bin")
 222                                (string-append tester "/share")))
 223                (rename-file
 224                 (string-append out "/bin/belr_tester")
 225                 (string-append tester "/bin/belr_tester"))
 226                (rename-file
 227                 (string-append out "/share/belr-tester")
 228                 ;; The detect_res_prefix procedure in bctoolbox's tester.c
 229                 ;; resolves the resource path based on the executable path and
 230                 ;; name, so have it match.
 231                 (string-append tester "/share/belr_tester"))))))))
 232     (inputs
 233      `(("bctoolbox" ,bctoolbox)))
 234     (synopsis "Belledonne Communications Language Recognition Library")
 235     (description "Belr is Belledonne Communications' language recognition
 236 library, written in C++11.  It parses text inputs formatted according to a
 237 language defined by an ABNF grammar, such as the protocols standardized at
 238 IETF.")
 239     (home-page "https://gitlab.linphone.org/BC/public/belr")
 240     (license license:gpl3+)))
 241
 242 (define-public belcard
 243   (package
 244     (name "belcard")
 245     (version "4.4.34")
 246     (source
 247      (origin
 248        (method git-fetch)
 249        (uri (git-reference
 250              (url "https://gitlab.linphone.org/BC/public/belcard.git")
 251              (commit version)))
 252        (file-name (git-file-name name version))
 253        (sha256
 254         (base32 "16x2xp8d0a115132zhy1kpxkyj86ia7vrsnpjdg78fnbvmvysc8m"))))
 255     (build-system cmake-build-system)
 256     (outputs '("out" "debug" "tester"))
 257     (arguments
 258      `(#:tests? #t
 259        #:configure-flags '("-DENABLE_STATIC=OFF")
 260        #:phases
 261        (modify-phases %standard-phases
 262          (add-after 'unpack 'patch-vcard-grammar-location
 263            (lambda* (#:key outputs #:allow-other-keys)
 264              (let* ((out (assoc-ref outputs "out"))
 265                     (vcard-grammar
 266                      (string-append out "/share/belr/grammars/vcard_grammar")))
 267                (substitute* "include/belcard/vcard_grammar.hpp"
 268                  (("define VCARD_GRAMMAR \"vcard_grammar\"")
 269                   (format #f "define VCARD_GRAMMAR ~s" vcard-grammar))))))
 270          (add-after 'install 'install-tester
 271            (lambda* (#:key inputs outputs #:allow-other-keys)
 272              (let ((out (assoc-ref outputs "out"))
 273                    (tester (assoc-ref outputs "tester"))
 274                    (test-name (string-append ,name "_tester")))
 275                (for-each mkdir-p
 276                          (list (string-append tester "/bin")
 277                                (string-append tester "/share")))
 278                (rename-file (string-append out "/bin/" test-name)
 279                             (string-append tester "/bin/" test-name))
 280                (rename-file (string-append out "/share/" test-name)
 281                             (string-append tester "/share/" test-name)))))
 282          (delete 'check)
 283          (add-after 'install-tester 'check
 284            (lambda* (#:key inputs outputs tests? #:allow-other-keys)
 285              (when tests?
 286                (let* ((tester (assoc-ref outputs "tester"))
 287                       (belcard_tester (string-append tester
 288                                                      "/bin/belcard_tester")))
 289                  (invoke belcard_tester))))))))
 290     (inputs
 291      `(("bctoolbox" ,bctoolbox)
 292        ("belr" ,belr)))
 293     (synopsis "Belledonne Communications VCard Library")
 294     (description "Belcard is a C++ library to manipulate VCard standard
 295 format.")
 296     (home-page "https://gitlab.linphone.org/BC/public/belcard")
 297     (license license:gpl3+)))
 298
 299 (define-public bcmatroska2
 300   (package
 301     (name "bcmatroska2")
 302     (version "0.23")
 303     (source
 304      (origin
 305        (method git-fetch)
 306        (uri (git-reference
 307              (url "https://gitlab.linphone.org/BC/public/bcmatroska2.git")
 308              (commit version)))
 309        (file-name (git-file-name name version))
 310        (sha256
 311         (base32 "1avl9w18kh4dxm3g8j0bkw39bksd7bz3nfxvyibqqnz63ds8vfi2"))))
 312     (build-system cmake-build-system)
 313     (arguments
 314      `(#:tests? #f                                     ; No test target
 315        #:configure-flags (list "-DENABLE_STATIC=NO"))) ; Not required
 316     (synopsis "Belledonne Communications Media Container")
 317     (description "BcMatroska is a free and open standard multi-media container
 318 format.  It can hold an unlimited number of video, audio, picture, or subtitle
 319 tracks in one file.  This project provides a convenient distribution of the
 320 Matroska multimedia container format.")
 321     (home-page "https://gitlab.linphone.org/BC/public/bcmatroska2")
 322     (license (list license:gpl2+        ;for this package (build system files)
 323                    license:bsd-4        ;for Core C and LibEBML2
 324                    license:lgpl2.1+)))) ;for LibMatroska2
 325
 326 (define-public bcg729
 327   (package
 328     (name "bcg729")
 329     (version "1.1.1")
 330     (source
 331      (origin
 332        (method git-fetch)
 333        (uri (git-reference
 334              (url "git://git.linphone.org/bcg729")
 335              (commit version)))
 336        (file-name (git-file-name name version))
 337        (sha256
 338         (base32 "1hal6b3w6f8y5r1wa0xzj8sj2jjndypaxyw62q50p63garp2h739"))))
 339     (build-system cmake-build-system)
 340     (arguments
 341      `(#:configure-flags (list "-DENABLE_STATIC=NO"
 342                                "-DENABLE_TESTS=YES")
 343        #:phases
 344        (modify-phases %standard-phases
 345          (add-before 'check 'copy-inputs
 346            (lambda* (#:key inputs #:allow-other-keys)
 347              (let ((test-patterns (assoc-ref inputs "test-patterns"))
 348                    (dest (string-append "test/bcg729-patterns.zip")))
 349                (copy-recursively test-patterns dest))))
 350          (replace 'check
 351            (lambda _
 352              (with-directory-excursion "test"
 353                (invoke "unzip" "bcg729-patterns.zip")
 354                (for-each
 355                 (lambda (test-name)
 356                   (invoke "./testCampaign" "-s" test-name))
 357                 (list "fixedCodebookSearch"
 358                       "postProcessing"
 359                       "adaptativeCodebookSearch"
 360                       "computeLP"
 361                       "computeAdaptativeCodebookGain"
 362                       "postFilter"
 363                       "decoder"
 364                       "LPSynthesisFilter"
 365                       "decodeLSP"
 366                       ;; "encoder"
 367                       ;; "LSPQuantization"
 368                       "preProcessing"
 369                       "decodeFixedCodeVector"
 370                       "CNGdecoder"
 371                       ;; "LP2LSPConversion"
 372                       "gainQuantization"
 373                       "findOpenLoopPitchDelay"
 374                       "decodeGains"
 375                       "computeWeightedSpeech"
 376                       "interpolateqLSPAndConvert2LP"
 377                       "decodeAdaptativeCodeVector"))))))))
 378     (native-inputs
 379      `(("perl" ,perl)
 380        ("test-patterns"
 381         ,(origin
 382            (method url-fetch)
 383            (uri (string-append "http://www.belledonne-communications.com/"
 384                                "bc-downloads/bcg729-patterns.zip"))
 385            (sha256
 386             (base32 "1kivarhh3izrl9sg0szs6x6pbq2ap0y6xsraw0gbgspi4gnfihrh"))))
 387        ("unzip" ,unzip)))
 388     (synopsis "Belledonne Communications G729 Codec")
 389     (description "BcG729 is an implementation of both encoder and decoder of
 390 the ITU G729 speech codec.  The library written in C 99 is fully portable and
 391 can be executed on many platforms including both ARM and x86 processors.  It
 392 supports concurrent channels encoding and decoding for multi call application
 393 such as conferencing.")
 394     (home-page "https://linphone.org/technical-corner/bcg729")
 395     (license license:gpl3+)))
 396
 397 (define-public ortp
 398   (package
 399     (name "ortp")
 400     (version "4.4.34")
 401     (source
 402      (origin
 403        (method git-fetch)
 404        (uri (git-reference
 405              (url "https://gitlab.linphone.org/BC/public/ortp.git")
 406              (commit version)))
 407        (file-name (git-file-name name version))
 408        (sha256
 409         (base32 "1r1kvjzyfvkf66in4p51wi87balzg3sw3aq6r4xr609mz86spi5m"))))
 410     (build-system cmake-build-system)
 411     (outputs '("out""tester"
 412                "doc"))                  ;1.5 MiB of HTML doc
 413     (arguments
 414      `(#:tests? #f                      ;requires networking
 415        #:configure-flags (list "-DENABLE_STATIC=NO"
 416                                "-DENABLE_TESTS=YES")
 417        #:phases
 418        (modify-phases %standard-phases
 419          (add-after 'unpack 'fix-version-strings
 420            ;; See: https://gitlab.linphone.org/BC/public/ortp/-/issues/5.
 421            (lambda _
 422              (substitute* "CMakeLists.txt"
 423                (("VERSION [0-9]+\\.[0-9]+\\.[0-9]+")
 424                 (string-append "VERSION " ,version))
 425                (("\\$\\{ORTP_DOC_VERSION\\}")
 426                 ,version))))
 427          (add-after 'install 'separate-outputs
 428            (lambda* (#:key outputs #:allow-other-keys)
 429              (let* ((out (assoc-ref outputs "out"))
 430                     (doc (assoc-ref outputs "doc"))
 431                     (doc-src (string-append out "/share/doc/ortp-" ,version))
 432                     (doc-dest (string-append doc "/share/doc/ortp-" ,version))
 433                     (tester (assoc-ref outputs "tester")))
 434                (for-each mkdir-p (list (string-append doc "/share/doc")
 435                                        (string-append tester "/bin")))
 436                (rename-file doc-src doc-dest)
 437                (rename-file (string-append out "/bin")
 438                             (string-append tester "/bin"))))))))
 439     (native-inputs
 440      `(("dot" ,graphviz)
 441        ("doxygen" ,doxygen)))
 442     (inputs
 443      `(("bctoolbox" ,bctoolbox)))
 444     (synopsis "Belledonne Communications RTP Library")
 445     (description "oRTP is a C library implementing the RTP protocol.  It
 446 implements the RFC 3550 standard.")
 447     (home-page "https://linphone.org/technical-corner/ortp")
 448     (license license:gpl3+)))
 449
 450 (define-public bzrtp
 451   (package
 452     (name "bzrtp")
 453     (version "4.4.34")
 454     (source
 455      (origin
 456        (method git-fetch)
 457        (uri (git-reference
 458              (url "https://gitlab.linphone.org/BC/public/bzrtp")
 459              (commit version)))
 460        (file-name (git-file-name name version))
 461        (sha256
 462         (base32 "1yjmsbqmymzl4r7sba6w4a2yld8m6hzafr6jf7sj0syhwpnc3zv6"))))
 463     (build-system cmake-build-system)
 464     (arguments
 465      `(#:configure-flags
 466        (list
 467         "-DENABLE_STATIC=NO"
 468         "-DENABLE_TESTS=YES")))
 469     (inputs
 470      `(("bctoolbox" ,bctoolbox)
 471        ("sqlite3" ,sqlite)
 472        ("xml2" ,libxml2)))
 473     (synopsis "Belledonne Communications ZRTP Library")
 474     (description "BZRTP is an implementation of ZRTP keys exchange protocol,
 475 written in C.  It is fully portable and can be executed on many platforms
 476 including both ARM and x86.")
 477     (home-page "https://gitlab.linphone.org/BC/public/bzrtp")
 478     (license license:gpl3+)))
 479
 480 (define-public belle-sip
 481   (package
 482     (name "belle-sip")
 483     (version "1.6.3")
 484     (source
 485      (origin
 486        (method url-fetch)
 487        (uri
 488         (string-append "https://www.linphone.org/releases/sources/" name
 489                        "/" name "-" version ".tar.gz"))
 490        (sha256
 491         (base32 "0s55kggmgxap54dkw5856bgk4xg7yvbzialpxnjm0zhpic3hff1z"))))
 492     (build-system cmake-build-system)
 493     (arguments
 494      `(#:tests? #f                      ; Requires network access
 495        #:configure-flags
 496        (list "-DENABLE_STATIC=NO")      ; Not required
 497        #:phases
 498        (modify-phases %standard-phases
 499          (add-after 'unpack 'patch
 500            (lambda _
 501              (substitute* "src/CMakeLists.txt"
 502                ;; ANTLR would use multithreaded DFA generation otherwise,
 503                ;; which would not be reproducible.
 504                (("-Xmultithreaded ") ""))
 505              #t)))))
 506     (inputs
 507      `(("antlr3" ,antlr3-3.3)
 508        ("antlr3c" ,libantlr3c)
 509        ("bctoolbox" ,bctoolbox)
 510        ("java" ,icedtea)
 511        ("zlib" ,zlib)))
 512     (synopsis "Belledonne Communications SIP Library")
 513     (description "Belle-sip is a modern library implementing SIP transport,
 514 transaction and dialog layers.  It is written in C, with an object-oriented
 515 API.  It also comprises a simple HTTP/HTTPS client implementation.")
 516     (home-page "https://gitlab.linphone.org/BC/public/belle-sip")
 517     (license license:gpl2+)))
 518
 519 (define-public mediastreamer2
 520   (package
 521     (name "mediastreamer2")
 522     (version "4.4.34")
 523     (source
 524      (origin
 525        (method git-fetch)
 526        (uri (git-reference
 527              (url "https://gitlab.linphone.org/BC/public/mediastreamer2.git")
 528              (commit version)))
 529        (file-name (git-file-name name version))
 530        (sha256
 531         (base32 "0989h3d0h7qrx4kjx8gg09j8c5hvvi3h8qi1iq1dqbppwbaxbz8c"))))
 532     (outputs '("out" "doc" "tester"))
 533     (build-system cmake-build-system)
 534     (arguments
 535      `(#:tests? #f                      ; No test target
 536        #:configure-flags (list "-DENABLE_STATIC=NO")
 537        #:phases
 538        (modify-phases %standard-phases
 539          (add-after 'unpack 'fix-version
 540            (lambda _
 541              (substitute* "CMakeLists.txt"
 542                (("VERSION [0-9]+\\.[0-9]+\\.[0-9]+")
 543                 (string-append "VERSION " ,version)))))
 544          (add-after 'install 'separate-outputs
 545            (lambda* (#:key outputs #:allow-other-keys)
 546              (let* ((out (assoc-ref outputs "out"))
 547                     (tester (assoc-ref outputs "tester"))
 548                     (tester-name (string-append ,name "_tester"))
 549                     (doc (assoc-ref outputs "doc"))
 550                     (doc-name (string-append ,name "-" ,version)))
 551                (for-each mkdir-p
 552                          (list (string-append tester "/bin")
 553                                (string-append tester "/share")
 554                                (string-append doc "/share/doc")))
 555                ;; Copy the tester executable.
 556                (rename-file (string-append out "/bin/" tester-name)
 557                             (string-append tester "/bin/" tester-name))
 558                ;; Copy the tester data files.
 559                (rename-file (string-append out "/share/" tester-name)
 560                             (string-append tester "/share/" tester-name))
 561                ;; Copy the HTML documentation.
 562                (rename-file (string-append out "/share/doc/" doc-name)
 563                             (string-append doc "/share/doc/" doc-name))))))))
 564     (native-inputs
 565      `(("dot" ,graphviz)
 566        ("doxygen" ,doxygen)
 567        ("python" ,python-wrapper)))
 568     (inputs
 569      `(("alsa" ,alsa-lib)
 570        ("bcg729" ,bcg729)
 571        ("bcmatroska2" ,bcmatroska2)
 572        ("bctoolbox" ,bctoolbox)
 573        ("ffmpeg" ,ffmpeg)
 574        ("glew" ,glew)
 575        ("glu" ,glu)
 576        ("glx" ,mesa-utils)
 577        ("gsm" ,gsm)
 578        ("opengl" ,mesa)
 579        ("opus" ,opus)
 580        ("ortp" ,ortp)
 581        ("pcap" ,libpcap)
 582        ("portaudio" ,portaudio)
 583        ("pulseaudio" ,pulseaudio)
 584        ("spandsp" ,spandsp)
 585        ("speex" ,speex)
 586        ("speexdsp" ,speexdsp)
 587        ("srtp" ,libsrtp)
 588        ("theora" ,libtheora)
 589        ("turbojpeg" ,libjpeg-turbo)
 590        ("v4l" ,v4l-utils)
 591        ("vpx" ,libvpx)
 592        ("x11" ,libx11)
 593        ("xv" ,libxv)
 594        ("zrtp" ,bzrtp)))
 595     (synopsis "Belledonne Communications Streaming Engine")
 596     (description "Mediastreamer2 is a powerful and lightweight streaming engine
 597 for telephony applications.  This media processing and streaming toolkit is
 598 responsible for receiving and sending all multimedia streams in Linphone,
 599 including media capture, encoding and decoding, and rendering.")
 600     (home-page "https://linphone.org/technical-corner/mediastreamer2")
 601     (license license:gpl3+)))
 602
 603 (define-public liblinphone
 604   (package
 605     (name "liblinphone")
 606     (version "3.12.0")
 607     (source
 608      (origin
 609        (method url-fetch)
 610        (uri
 611         (string-append "https://www.linphone.org/releases/sources/linphone"
 612                        "/linphone-" version ".tar.gz"))
 613        (sha256
 614         (base32 "0phhkx55xdyg28d4wn8l8q4yvsmdgzmjiw584d4s190sq1azm91x"))))
 615     (outputs '("out" "doc" "tester"))
 616     (build-system cmake-build-system)
 617     (arguments
 618      `(#:tests? #f                      ; No test target
 619        #:configure-flags
 620        (list (string-append "-DGTK2_GDKCONFIG_INCLUDE_DIR="
 621                             (string-append (assoc-ref %build-inputs "gtk2")
 622                                            "/lib/gtk-2.0/include"))
 623              (string-append "-DGTK2_GLIBCONFIG_INCLUDE_DIR="
 624                             (string-append (assoc-ref %build-inputs "glib")
 625                                            "/lib/glib-2.0/include"))
 626              "-DENABLE_STATIC=NO"       ; Not required
 627              "-DENABLE_STRICT=NO"
 628              "-DENABLE_GTK_UI=YES")     ; for legacy UI
 629        #:imported-modules (,@%cmake-build-system-modules
 630                            (guix build glib-or-gtk-build-system))
 631        #:modules ((guix build cmake-build-system)
 632                   ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
 633                   (guix build utils))
 634        #:phases
 635        (modify-phases %standard-phases
 636          (add-after 'unpack 'patch
 637            (lambda _
 638              (substitute* "gtk/main.c"
 639                (("#include \"liblinphone_gitversion.h\"")
 640                 ""))
 641              #t))
 642          (add-after 'install 'separate-outputs
 643            (lambda* (#:key outputs #:allow-other-keys)
 644              (let* ((out (assoc-ref outputs "out"))
 645                     (doc (assoc-ref outputs "doc"))
 646                     (tester (assoc-ref outputs "tester"))
 647                     (tester-name (string-append ,name "_tester")))
 648                ;; Copy the tester executable.
 649                (mkdir-p (string-append tester "/bin"))
 650                (rename-file (string-append out "/bin/" tester-name)
 651                             (string-append tester "/bin/" tester-name))
 652                ;; Copy the tester data files.
 653                (mkdir-p (string-append tester "/share/"))
 654                (rename-file (string-append out "/share/" tester-name)
 655                             (string-append tester "/share/" tester-name))
 656                ;; Copy the HTML and XML documentation.
 657                (copy-recursively
 658                 (string-append out "/share/doc/linphone-" ,version)
 659                 (string-append doc "/share/doc/" ,name "-" ,version))
 660                (delete-file-recursively
 661                 (string-append out "/share/doc/linphone-" ,version))
 662                #t)))
 663          (add-after 'install 'install-man-pages
 664            (lambda* (#:key outputs #:allow-other-keys)
 665              (let* ((out (assoc-ref outputs "out"))
 666                     (man (string-append out "/share/man/man1")))
 667                (for-each (lambda (file)
 668                            (install-file file man))
 669                          (find-files ".." ".*.1$"))
 670                #t)))
 671          (add-after 'separate-outputs 'glib-or-gtk-compile-schemas
 672            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-compile-schemas))
 673          (add-after 'glib-or-gtk-compile-schemas 'glib-or-gtk-wrap
 674            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
 675     (native-inputs
 676      `(("gettext" ,gettext-minimal)
 677        ("udev" ,eudev)                  ;for libudev.h
 678        ;; For generating the C++ wrappers.
 679        ("dot" ,graphviz)
 680        ("doxygen" ,doxygen)
 681        ("python" ,python)
 682        ("pystache" ,python-pystache)
 683        ("six" ,python-six)))
 684     (inputs
 685      `(("bctoolbox" ,bctoolbox)
 686        ("belcard" ,belcard)
 687        ("bellesip" ,belle-sip)
 688        ("bzrtp" ,bzrtp)
 689        ("iconv" ,libiconv)
 690        ("glib" ,glib)
 691        ("gtk2" ,gtk+-2)
 692        ("mediastreamer2" ,mediastreamer2)
 693        ("notify" ,libnotify)
 694        ("ortp" ,ortp)
 695        ("sqlite" ,sqlite)
 696        ("xml2" ,libxml2)
 697        ("zlib" ,zlib)))
 698     (synopsis "Belledonne Communications Softphone Library")
 699     (description "Liblinphone is a high-level SIP library integrating
 700 all calling and instant messaging features into an unified
 701 easy-to-use API.  It is the cross-platform VoIP library on which the
 702 Linphone application is based on, and that anyone can use to add audio
 703 and video calls or instant messaging capabilities to an application.")
 704     (home-page "https://gitlab.linphone.org/BC/public/liblinphone")
 705     (license license:gpl2+)))
 706
 707 (define-public linphoneqt
 708   (package
 709     (name "linphoneqt")
 710     (version "4.1.1")
 711     (source
 712      (origin
 713        (method url-fetch)
 714        (uri
 715         (string-append "https://www.linphone.org/releases/sources/" name
 716                        "/" name "-" version ".tar.gz"))
 717        (sha256
 718         (base32 "1g2zrr9li0g1hgs6vys06vr98h5dx36z22hx7a6ry231536c002a"))
 719        (patches (search-patches "linphoneqt-tabbutton.patch"))))
 720     (build-system qt-build-system)
 721     (arguments
 722      `(#:tests? #f                      ; No test target
 723        #:phases
 724        (modify-phases %standard-phases
 725          (add-after 'unpack 'fix-cmake-error
 726            (lambda _
 727              ;; This is fixed in commit efed2fd8 of the master branch.
 728              (substitute* "CMakeLists.txt"
 729                (("js)\\$\"")
 730                 "js$\""))
 731              #t))
 732          (add-after 'unpack 'set-version-string
 733            (lambda _
 734              (substitute* "src/app/AppController.cpp"
 735                (("LINPHONE_QT_GIT_VERSION")
 736                 (format #f "~s" ,version)))
 737              #t))
 738          (add-after 'install 'extend-shared-resources
 739            ;; Not using the FHS exposes an issue where the client refers to
 740            ;; its own "share" directory, which lacks sound files installed by
 741            ;; liblinphone.
 742            (lambda* (#:key inputs outputs #:allow-other-keys)
 743              (let ((liblinphone (assoc-ref inputs "linphone"))
 744                     (out (assoc-ref outputs "out")))
 745                (symlink (string-append liblinphone "/share/sounds")
 746                         (string-append out "/share/sounds"))
 747                #t))))))
 748     (native-inputs
 749      `(("qttools" ,qttools)))
 750     (inputs
 751      `(("bctoolbox" ,bctoolbox)
 752        ("belcard" ,belcard)
 753        ("bellesip" ,belle-sip)
 754        ("linphone" ,liblinphone)
 755        ("mediastreamer2" ,mediastreamer2)
 756        ("qtbase" ,qtbase)
 757        ("qtdeclarative" ,qtdeclarative)
 758        ("qtgraphicaleffects" ,qtgraphicaleffects)
 759        ("qtquickcontrols" ,qtquickcontrols)
 760        ("qtquickcontrols2" ,qtquickcontrols2)
 761        ("qtsvg" ,qtsvg)))
 762     (synopsis "Desktop client for the Linphone SIP softphone")
 763     (description "Linphone is a SIP softphone for voice and video over IP calling
 764 (VoIP) and instant messaging.  Amongst its features are:
 765 @itemize
 766 @item High Definition (HD) audio and video calls
 767 @item Multiple call management (pause and resume)
 768 @item Call transfer
 769 @item Audio conferencing (merge calls into a conference call)
 770 @item Call recording and replay (audio only)
 771 @item Instant Messaging with message delivery status (IMDN)
 772 @item Picture and file sharing
 773 @item Echo cancellation
 774 @item Secure user authentication using TLS client certificates
 775 @item SRTP, zRTP and SRTP-DTLS voice and video encryption
 776 @item Telephone tone (DTMF) support using SIP INFO or RFC 4733
 777 @item Audio codecs: opus, speex, g711, g729, gsm, iLBC, g722, SILK, etc.
 778 @item Video codecs: VP8, H.264 and H.265 with resolutions up to 1080P, MPEG4
 779 @end itemize")
 780     (home-page "https://gitlab.linphone.org/BC/public/linphone-desktop")
 781     (license license:gpl2+)))
 782
 783 (define-public msopenh264
 784   (package
 785     (name "msopenh264")
 786     (version "1.2.1")
 787     (source
 788      (origin
 789        (method url-fetch)
 790        (uri
 791         (string-append "https://www.linphone.org/releases/sources/plugins/"
 792                        name "/" name "-" version ".tar.gz"))
 793        (sha256
 794         (base32 "0rdxgazm52560g52pp6mp3mwx6j1z3h2zyizzfycp8y8zi92fqm8"))
 795        (patches
 796         (list
 797          ;; For support for OpenH264 version >= 2.
 798          (origin
 799            (method url-fetch)
 800            (uri
 801             (string-append "https://gitlab.linphone.org/BC/public/msopenh264/"
 802                            "commit/493d147d28c9a0f788ba4e50b47a1ce7b18bf326"
 803                            ".diff"))
 804            (file-name "msopenh264-openh264.patch")
 805            (sha256
 806             (base32
 807              "0mmd7nz5n9ian4rcwn200nldmy5j0dpdrna7r32rqnaw82bx3kdb")))))))
 808     (build-system cmake-build-system)
 809     (arguments
 810      `(#:tests? #f                      ; No test target
 811        #:configure-flags
 812        (list "-DENABLE_STATIC=NO")))    ; Not required
 813     (inputs
 814      `(("mediastreamer2" ,mediastreamer2)
 815        ("openh264" ,openh264)
 816        ("ortp" ,ortp)))
 817     (synopsis "Media Streamer H.264 Codec")
 818     (description "MsOpenH264 is an  H.264 encoder/decoder plugin for
 819 mediastreamer2 based on the openh264 library.")
 820     (home-page "https://gitlab.linphone.org/BC/public/msopenh264")
 821     (license license:gpl2+)))
 822
 823 (define-public mssilk
 824   (package
 825     (name "mssilk")
 826     (version "1.1.1")
 827     (source
 828      (origin
 829        (method url-fetch)
 830        (uri
 831         (string-append "https://www.linphone.org/releases/sources/plugins/"
 832                        name "/" name "-" version ".tar.gz"))
 833        (sha256
 834         (base32 "07ip0vd29d1n98lnqs5wpimcsmpm65yl7g5vk4hbqghcbsjw94lj"))))
 835     (build-system cmake-build-system)
 836     (arguments
 837      `(#:tests? #f                      ; No test target
 838        #:configure-flags
 839        (list "-DENABLE_STATIC=NO")))    ; Not required
 840     (inputs
 841      `(("mediastreamer2" ,mediastreamer2)
 842        ("ortp" ,ortp)))
 843     (synopsis "Media Streamer SILK Codec")
 844     (description "MSSILK is a plugin of MediaStreamer, adding support for AMR
 845 codec.  It is based on the Skype's SILK implementation.")
 846     (home-page "https://gitlab.linphone.org/BC/public/mssilk")
 847     (license license:gpl2+)))
 848
 849 (define-public mswebrtc
 850   (package
 851     (name "mswebrtc")
 852     (version "1.1.1")
 853     (source
 854      (origin
 855        (method url-fetch)
 856        (uri
 857         (string-append "https://www.linphone.org/releases/sources/plugins/"
 858                        name "/" name "-" version ".tar.gz"))
 859        (sha256
 860         (base32 "1wj28hl9myhshqmn64xg0jf07aw75gmnilb5rff6rcbdxim87mqr"))))
 861     (build-system cmake-build-system)
 862     (arguments
 863      `(#:tests? #f                      ; No test target
 864        #:configure-flags
 865        (list
 866         "-DENABLE_STATIC=NO")))         ; Not required
 867     (inputs
 868      `(("bctoolbox" ,bctoolbox)
 869        ("mediastreamer2" ,mediastreamer2)
 870        ("ortp" ,ortp)))
 871     (synopsis "Media Streamer WebRTC Codec")
 872     (description "MSWebRTC is a plugin of MediaStreamer, adding support for
 873 WebRTC codec.  It includes features from WebRTC, such as, iSAC and AECM.")
 874     (home-page "https://gitlab.linphone.org/BC/public/mswebrtc")
 875     (license license:gpl2+)))
 876
 877 (define-public msamr
 878   (package
 879     (name "msamr")
 880     (version "1.1.3")
 881     (source
 882      (origin
 883        (method url-fetch)
 884        (uri
 885         (string-append "https://www.linphone.org/releases/sources/plugins/"
 886                        name "/" name "-" version ".tar.gz"))
 887        (sha256
 888         (base32 "16c9f3z4wnj73k7y8gb0fgpr4axsm7b5zrbjvy8vsgz9gyg3agm5"))))
 889     (build-system cmake-build-system)
 890     (arguments
 891      `(#:tests? #f                      ; No test target
 892        #:configure-flags
 893        (list "-DENABLE_STATIC=NO"       ; Not required
 894              "-DENABLE_WIDEBAND=YES")))
 895     (inputs
 896      `(("mediastreamer2" ,mediastreamer2)
 897        ("opencoreamr" ,opencore-amr)
 898        ("ortp" ,ortp)
 899        ("voamrwbenc" ,vo-amrwbenc)))
 900     (synopsis "Media Streamer AMR Codec")
 901     (description "MSAMR is a plugin of MediaStreamer, adding support for AMR
 902 codec.  It is based on the opencore-amr implementation.")
 903     (home-page "https://gitlab.linphone.org/BC/public/msamr")
 904     (license license:gpl3+)))