;;; 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 tls)
  #: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+)))