1 ;;; GNU Guix --- Functional package management for GNU
2 ;;; Copyright © 2015 Ludovic Courtès <ludo@gnu.org>
3 ;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
4 ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
5 ;;; Copyright © 2018 Efraim Flashner <efraim@flashner.co.il>
6 ;;; Copyright © 2019 Leo Famulari <leo@famulari.name>
7 ;;; Copyright © 2019 Eric Bavier <bavier@member.fsf.org>
9 ;;; This file is part of GNU Guix.
11 ;;; GNU Guix is free software; you can redistribute it and/or modify it
12 ;;; under the terms of the GNU General Public License as published by
13 ;;; the Free Software Foundation; either version 3 of the License, or (at
14 ;;; your option) any later version.
16 ;;; GNU Guix is distributed in the hope that it will be useful, but
17 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 ;;; GNU General Public License for more details.
21 ;;; You should have received a copy of the GNU General Public License
22 ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
24 (define-module (gnu packages rdesktop)
25 #:use-module ((guix licenses) #:prefix license:)
26 #:use-module (guix packages)
27 #:use-module (guix download)
28 #:use-module (guix git-download)
29 #:use-module (guix build-system cmake)
30 #:use-module (guix build-system gnu)
31 #:use-module (gnu packages compression)
32 #:use-module (gnu packages cups)
33 #:use-module (gnu packages docbook)
34 #:use-module (gnu packages freedesktop)
35 #:use-module (gnu packages glib)
36 #:use-module (gnu packages gstreamer)
37 #:use-module (gnu packages image)
38 #:use-module (gnu packages linux)
39 #:use-module (gnu packages nettle)
40 #:use-module (gnu packages pkg-config)
41 #:use-module (gnu packages pulseaudio)
42 #:use-module (gnu packages tls)
43 #:use-module (gnu packages video)
44 #:use-module (gnu packages xdisorg)
45 #:use-module (gnu packages xorg)
46 #:use-module (gnu packages xml))
48 (define-public rdesktop
54 (uri (string-append "https://github.com/rdesktop/rdesktop/"
55 "releases/download/v" version "/rdesktop-"
59 "1222f2srlq16bydhy44gph997iajg39sl774xxh9jdwi4cqjyg27"))))
60 (build-system gnu-build-system)
62 `(#:configure-flags (list ;; XXX: optional dependencies missing
64 "--disable-smartcard")
65 #:tests? #f)) ; No 'check' target
67 `(("pkg-config" ,pkg-config)))
71 ("libxcursor" ,libxcursor)
73 (home-page "https://www.rdesktop.org/")
74 (synopsis "Client for Windows Terminal Services")
76 "rdesktop is a client for Microsoft's Windows Remote Desktop Services,
77 capable of natively speaking Remote Desktop Protocol (RDP). It allows users
78 to remotely control a user's Windows desktop.")
79 (license license:gpl3+)))
81 (define-public freerdp
88 (url "git://github.com/FreeRDP/FreeRDP.git")
90 (file-name (git-file-name name version))
92 (base32 "0546i0m2d4nz5jh84ngwzpcm3c43fp987jk6cynqspsmvapab6da"))))
93 (build-system cmake-build-system)
95 `(("docbook-xml" ,docbook-xml)
96 ("docbook-xsl" ,docbook-xsl)
100 ("pkg-config" ,pkg-config)
103 `(("alsa-lib" ,alsa-lib)
106 ("libjpeg" ,libjpeg-turbo)
108 ("libxkbcommon" ,libxkbcommon)
109 ("libxkbfile" ,libxkbfile)
110 ("libxcursor" ,libxcursor)
114 ("libxrandr" ,libxrandr)
115 ("libxrender" ,libxrender)
116 ("libxinerama" ,libxinerama)
117 ("libxshmfence" ,libxshmfence)
119 ("pulseaudio" ,pulseaudio)
123 `(#:build-type "RELEASE"
125 (list "-DWITH_JPEG=ON"
126 "-DWITH_LIBSYSTEMD=OFF"
127 ,@(if (string-prefix? "x86_64"
128 (or (%current-target-system)
132 (string-append "-DDOCBOOKXSL_DIR="
133 (assoc-ref %build-inputs "docbook-xsl")
134 "/xml/xsl/docbook-xsl-"
135 ,(package-version docbook-xsl))
138 "-DBUILD_TESTING=ON")))
139 (home-page "https://www.freerdp.com")
140 (synopsis "Remote Desktop Protocol implementation")
141 (description "FreeRDP implements Microsoft's Remote Desktop Protocol.
142 It consists of the @code{xfreerdp} client, libraries for client and server
143 functionality, and Windows Portable Runtime (WinPR), a portable implementation
144 of parts of the Windows API.")
145 (license license:asl2.0)))