;;; GNU Guix --- Functional package management for GNU
;;;
;;; Copyright © 2020 Raghav Gururajan <raghavgururajan@disroot.org>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages linphone)
  #:use-module (gnu packages)
  #:use-module (gnu packages base)
  #:use-module (gnu packages compression)
  #:use-module (gnu packages documentation)
  #:use-module (gnu packages graphviz)
  #:use-module (gnu packages java)
  #:use-module (gnu packages ncurses)
  #:use-module (gnu packages pth)
  #:use-module (gnu packages sqlite)
  #:use-module (gnu packages tls)
  #:use-module (gnu packages xml)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix git-download)
  #:use-module (guix build-system cmake)
  #:use-module (guix build-system gnu)
  #:use-module (guix build-system python)
  #:use-module (guix build-system qt))

(define-public bcunit
 (package
  (name "bcunit")
   (version "3.0.2")
   (source
    (origin
     (method url-fetch)
     (uri
      (string-append "https://www.linphone.org/releases/sources/" name
                     "/" name "-" version ".tar.gz"))
     (sha256
      (base32 "0ylchj8w98ic2fkqpxc6yk4s6s0h0ql2zsz5n49jd7126m4h8dqk"))))
 (build-system cmake-build-system)
 (arguments
  '(#:tests? #f ; No test target
    #:configure-flags
     (list
      "-DENABLE_SHARED=YES"
      "-DENABLE_STATIC=YES"
      "-DENABLE_AUTOMATED=ON"
      "-DENABLE_BASIC=ON"
      "-DENABLE_CONSOLE=ON"
      "-DENABLE_CURSES=ON"
      "-DENABLE_DOC=ON"
      "-DENABLE_EXAMPLES=ON"
      "-DENABLE_TEST=OFF" ; Undefined reference to CU_trace_handler
      "-DENABLE_MEMTRACE=ON"
      "-DENABLE_DEPRECATED=OFF"))) ; Not required
 (inputs
  `(("curses" ,ncurses)))
 (synopsis "Belledonne Communications Unit Testing Framework")
 (description "BCUnit is a fork of the defunct project CUnit,
with several fixes and patches applied.  It is an unit testing
framework for writing, administering, and running unit tests in C.")
 (home-page "https://gitlab.linphone.org/BC/public/bcunit")
 (license license:lgpl2.0+)))

(define-public bctoolbox
 (package
  (name "bctoolbox")
   (version "0.6.0")
   (source
    (origin
     (method url-fetch)
     (uri
      (string-append "https://www.linphone.org/releases/sources/" name
                     "/" name "-" version ".tar.gz"))
     (sha256
      (base32 "1a1i70pb4hhnykkwyhhc7fv67q556l8kprny8xzgfqpj1nby2ms6"))))
 (build-system cmake-build-system)
 (arguments
  '(#:tests? #f ; No test target
    #:configure-flags
     (list
      "-DENABLE_SHARED=ON"
      "-DENABLE_STATIC=ON"
      "-DENABLE_POLARSSL=OFF" ; Deprecated in favor of MbedTLS
      "-DENABLE_MBEDTLS=ON"
      "-DENABLE_STRICT=YES"
      "-DENABLE_TESTS_COMPONENT=ON"
      "-DENABLE_TESTS=ON")))
 (inputs
  `(("mbedtls" ,mbedtls-apache)
    ("threads" ,pth)))
 (propagated-inputs
  `(("bcunit" ,bcunit)))
 (synopsis "Belledonne Communications Tool Box")
 (description "BcToolBox is an utilities library used by Belledonne
Communications softwares like belle-sip, mediastreamer2 and linphone.")
 (home-page "https://gitlab.linphone.org/BC/public/bctoolbox")
 (license license:gpl2+)))

(define-public belr
 (package
  (name "belr")
   (version "0.1.3")
   (source
    (origin
     (method url-fetch)
     (uri
      (string-append "https://www.linphone.org/releases/sources/" name
                     "/" name "-" version ".tar.gz"))
     (sha256
      (base32 "1fwv2cg3qy9vdc7dimcda7nqcqc1h2cdd7ikhk7ng7q4ys8m96c1"))))
 (build-system cmake-build-system)
 (arguments
  `(#:tests? #f ; No test target
    #:configure-flags
     (list
      "-DENABLE_SHARED=ON"
      "-DENABLE_STATIC=ON"
      "-DENABLE_STRICT=YES"
      "-DENABLE_TOOLS=YES")))
 (propagated-inputs
  `(("bctoolbox" ,bctoolbox)))
 (synopsis "Belledonne Communications Language Recognition Library")
 (description "Belr is Belledonne Communications' language recognition library,
written in C++11.  It parses text inputs formatted according to a language
defined by an ABNF grammar, such as the protocols standardized at IETF.")
 (home-page "https://gitlab.linphone.org/BC/public/belr")
 (license license:gpl3+)))

(define-public belcard
 (package
  (name "belcard")
   (version "1.0.2")
   (source
    (origin
     (method url-fetch)
     (uri
      (string-append "https://www.linphone.org/releases/sources/" name
                     "/" name "-" version ".tar.gz"))
     (sha256
      (base32 "0iiyrll1shnbb0561pkvdqcmx9b2cdr76xpsbaqdirc3s4xzcl0k"))))
 (build-system cmake-build-system)
 (arguments
  `(#:tests? #f ; No test target
    #:configure-flags
     (list
      "-DENABLE_SHARED=ON"
      "-DENABLE_STATIC=ON"
      "-DENABLE_STRICT=YES"
      "-DENABLE_TOOLS=YES"
      "-DENABLE_UNIT_TESTS=YES")))
 (propagated-inputs
  `(("bctoolbox" ,bctoolbox)
    ("belr" ,belr)))
 (synopsis "Belledonne Communications VCard Library")
 (description "Belcard is a C++ library to manipulate VCard standard format.")
 (home-page "https://gitlab.linphone.org/BC/public/belcard")
 (license license:gpl3+)))

(define-public bcmatroska2
 (package
  (name "bcmatroska2")
   (version "0.23")
   (source
    (origin
     (method url-fetch)
     (uri
      (string-append "https://www.linphone.org/releases/sources/" name
                     "/" name "-" version ".tar.gz"))
     (sha256
      (base32 "1a0vlk4fhh189pfzrwbc3xbc5vyx6cnxy642d1h40045jz9y4h15"))))
 (build-system cmake-build-system)
 (arguments
  `(#:tests? #f ; No test target
    #:configure-flags
     (list
      "-DENABLE_SHARED=YES"
      "-DENABLE_STATIC=YES"
      "-DENABLE_EBML_WRITING=ON"
      "-DENABLE_EBML_UNICODE=ON"
      "-DENABLE_DEBUGCHECKS=ON"
      "-DENABLE_STDIO=ON"
      "-DENABLE_FILEPOS_64=ON"
      "-DENABLE_DEBUG_LEAKS=ON")))
 (synopsis "Belledonne Communications Media Container")
 (description "BcMatroska is a free and open standard multi-media
container format.  It can hold an unlimited number of video, audio,
picture, or subtitle tracks in one file. ")
 (home-page "https://gitlab.linphone.org/BC/public/bcmatroska2")
 (license
  (list
   ;; For Core C and LibEBML2
   ;; https://www.matroska.org/node/47
   license:bsd-4
   ;; For LibMatroska2
   ;; https://www.matroska.org/node/47
   license:lgpl2.1+))))

(define-public bcg729
 (package
  (name "bcg729")
   (version "1.0.4")
   (source
    (origin
     (method url-fetch)
     (uri
      (string-append "https://www.linphone.org/releases/sources/" name
                     "/" name "-" version ".tar.gz"))
     (sha256
      (base32 "01y34ky7ykjgfnf8a9f59hg61fqfjiprfrzshdz06w0lz4gvy3qs"))))
 (build-system cmake-build-system)
 (arguments
  `(#:configure-flags
    (list
     "-DENABLE_SHARED=YES"
     "-DENABLE_STATIC=YES"
     "-DENABLE_TESTS=YES")))
 (synopsis "Belledonne Communications G729 Codec")
 (description "BcG729 is an implementation of both encoder and decoder of
the ITU G729 speech codec.  The library written in C 99 is fully portable and
can be executed on many platforms including both ARM and x86 processors.  It
supports concurrent channels encoding and decoding for multi call application
such as conferencing.")
 (home-page "https://gitlab.linphone.org/BC/public/belcard")
 (license license:gpl3+)))

(define-public ortp
 (package
  (name "ortp")
   (version "1.0.2")
   (source
    (origin
     (method url-fetch)
     (uri
      (string-append "https://www.linphone.org/releases/sources/" name
                     "/" name "-" version ".tar.gz"))
     (sha256
      (base32 "016qg0lmdgmqh2kv19w9qhi4kkiyi5h1xp35g2s65b1j8ccm25d5"))))
 (build-system cmake-build-system)
 (arguments
  `(#:tests? #f ; No test target
    #:configure-flags
     (list
      "-DENABLE_SHARED=YES"
      "-DENABLE_STATIC=YES"
      "-DENABLE_DOC=YES"
      "-DENABLE_NTP_TIMESTAMP=NO" ; "ORTP_TIMESTAMP" redefined [-Werror]
      "-DENABLE_PERF=YES"
      "-DENABLE_STRICT=YES"
      "-DENABLE_TESTS=YES"
      "-DENABLE_DEBUG_LOGS=YES")))
 (native-inputs
  `(("dot" ,graphviz)
    ("doxygen" ,doxygen)
    ("threads" ,pth)))
 (propagated-inputs
  `(("bctoolbox" ,bctoolbox)))
 (synopsis "Belledonne Communications RTP Library")
 (description "oRTP is a C library implementing the RTP protocol.  It uses
RFC 3550 standard.")
 (home-page "https://gitlab.linphone.org/BC/public/ortp")
 (license license:gpl2+)))

(define-public bzrtp
 (package
  (name "bzrtp")
   (version "1.0.6")
   (source
    (origin
     (method url-fetch)
     (uri
      (string-append "https://www.linphone.org/releases/sources/" name
                     "/" name "-" version ".tar.gz"))
     (sha256
      (base32 "12y0kkh90pixaaxfyx26ca2brhy6nw57fsypp6vh8jk1illv0j5z"))))
 (build-system cmake-build-system)
 (arguments
  `(#:tests? #f ; CTest errors
    #:configure-flags
     (list
      "-DENABLE_SHARED=YES"
      "-DENABLE_STATIC=YES"
      "-DENABLE_ZIDCACHE=YES"
      "-DENABLE_STRICT=YES"
      "-DENABLE_TESTS=YES")))
 (native-inputs
  `(("sqlite3" ,sqlite)
    ("xml2" ,libxml2)))
 (propagated-inputs
  `(("bctoolbox" ,bctoolbox)))
 (synopsis "Belledonne Communications ZRTP Library")
 (description "BZRTP is an implementation of ZRTP keys exchange
protocol, written in C.  It is fully portable and can be executed on many
platforms including both ARM and x86.")
 (home-page "https://gitlab.linphone.org/BC/public/bzrtp")
 (license license:gpl2+)))