;;; GNU Guix --- Functional package management for GNU

;;; Copyright © 2017 Julien Lepiller <julien@lepiller.eu>

;;;

;;; 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 (more packages messaging)

  #: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 licenses) #:prefix license:)

  #:use-module (gnu packages)

  #:use-module (gnu packages autotools)

  #:use-module (gnu packages base)

  #:use-module (gnu packages compression)

  #:use-module (gnu packages databases)

  #:use-module (gnu packages gl)

  #:use-module (gnu packages glib)

  #:use-module (gnu packages gtk)

  #:use-module (gnu packages linphone)

  #:use-module (gnu packages linux)

  #:use-module (gnu packages perl)

  #:use-module (gnu packages pkg-config)

  #:use-module (gnu packages pulseaudio)

  #:use-module (gnu packages readline)

  #:use-module (gnu packages sqlite)

  #:use-module (gnu packages tls)

  #:use-module (gnu packages upnp)

  #:use-module (gnu packages video)

  #:use-module (gnu packages vim)

  #:use-module (gnu packages xiph)

  #:use-module (gnu packages xorg)

  #:use-module (gnu packages xml)

  #:use-module (gnu packages java)

  #:use-module (more packages java))

;; Fix in tls.scm

(define-public mbedtls

  (package

    (name "mbedtls")

    (version "2.4.2")

    (source

     (origin

       (method url-fetch)

       ;; XXX: The download links on the website are script redirection links

       ;; which effectively lead to the format listed in the uri here.

       (uri (string-append "https://tls.mbed.org/download/mbedtls-"

                           version "-apache.tgz"))

       (sha256

        (base32

         "065hn5zibzflivabdh9p41dknda7wicl2zhc936dmakqfjprip8p"))))

    (build-system gnu-build-system)

    (arguments

     `(#:phases

       (modify-phases %standard-phases

         (delete 'configure))

       #:make-flags

       (list "CC=gcc" (string-append "DESTDIR=\"" (assoc-ref %outputs "out") "\"")

             "SHARED=1")

       #:validate-runpath? #f))

    (native-inputs

     `(("perl" ,perl)))

    (synopsis "Small TLS library")

    (description

     "@code{mbed TLS}, formerly known as PolarSSL, makes it trivially easy

for developers to include cryptographic and SSL/TLS capabilities in their

(embedded) products, facilitating this functionality with a minimal

coding footprint.")

    (home-page "https://tls.mbed.org")

    (license license:asl2.0)))

(define-public mediastreamer

  (package

    (name "mediastreamer")

    (version "2.15.1")

    (source (origin

              (method url-fetch)

              (uri (string-append "https://github.com/BelledonneCommunications/"

                                  "mediastreamer2/archive/" version ".tar.gz"))

              (file-name (string-append name "-" version ".tar.gz"))

              (sha256

               (base32

                "0ln8h2c420y25y8zx7bfmbh28yjxl3qpkhicv88pg06aqgpkwzay"))))

    (build-system gnu-build-system)

    (arguments

     `(#:phases

       (modify-phases %standard-phases

         (add-before 'configure 'autogen

           (lambda _

             (zero? (system* "./autogen.sh")))))

       #:configure-flags (list "--enable-external-ortp")

       #:make-flags (list "ECHO=echo")))

    (native-inputs

     `(("autoconf" ,autoconf)

       ("automake" ,automake)

       ("intltool" ,intltool)

       ("libtool" ,libtool)

       ("pkg-config" ,pkg-config)

       ("vim" ,vim)

       ("which" ,which)))

    (inputs

     `(("bctoolbox" ,bctoolbox)

       ("ffmpeg" ,ffmpeg)

       ("glew" ,glew)

       ("libx11" ,libx11)

       ("libxext" ,libxext)

       ("libxv" ,libxv)

       ("mesa" ,mesa)

       ("opus" ,opus)

       ("ortp" ,ortp)

       ("pulseaudio" ,pulseaudio)

       ("speex" ,speex)

       ("speexdsp" ,speexdsp)

       ("v4l-utils" ,v4l-utils)))

    (home-page "https://linphone.org")

    (synopsis "")

    (description

      "")

    (license license:gpl2+)))

(define-public linphone

  (package

    (name "linphone")

    (version "3.11.1")

    (source (origin

              (method url-fetch)

              (uri (string-append "http://www.linphone.org/releases/sources/"

                                  "linphone/linphone-" version ".tar.gz"))

              (sha256

               (base32

                "0kj0l3qa8wa07gk145lw6f8hmc7nk5xyvwj1c3dvk58l64yyz26w"))))

    (build-system gnu-build-system)

    (arguments

     `(#:phases

       (modify-phases %standard-phases

         (add-before 'configure 'autogen

           (lambda _

             (zero? (system* "./autogen.sh")))))))

    (native-inputs

     `(("autoconf" ,autoconf)

       ("automake" ,automake)

       ("intltool" ,intltool)

       ("libtool" ,libtool)

       ("pkg-config" ,pkg-config)

       ("which" ,which)))

    (inputs

     `(("bctoolbox" ,bctoolbox)

       ("eudev" ,eudev)

       ("gtk2" ,gtk+-2)

       ("libupnp" ,libupnp)

       ("libxml2" ,libxml2)

       ("mediastreamer" ,mediastreamer)

       ("ortp" ,ortp)

       ("readline" ,readline)

       ("speex" ,speex)

       ("sqlite" ,sqlite)

       ("zlib" ,zlib)))

    (home-page "https://linphone.org")

    (synopsis "VOIP application")

    (description

      "Linphone is an open source Voice Over IP phone (or SIP phone) that makes

possible to communicate freely with people over the internet, with voice, video,

and text instant messaging.")

    (license license:gpl2+)))