Commit | Line | Data |
---|---|---|
00e65098 LC |
1 | ;;; GNU Guix --- Functional package management for GNU |
2 | ;;; Copyright © 2015 Ludovic Courtès <ludo@gnu.org> | |
2149d3e3 | 3 | ;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be> |
3def739d | 4 | ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> |
00e65098 LC |
5 | ;;; |
6 | ;;; This file is part of GNU Guix. | |
7 | ;;; | |
8 | ;;; GNU Guix is free software; you can redistribute it and/or modify it | |
9 | ;;; under the terms of the GNU General Public License as published by | |
10 | ;;; the Free Software Foundation; either version 3 of the License, or (at | |
11 | ;;; your option) any later version. | |
12 | ;;; | |
13 | ;;; GNU Guix is distributed in the hope that it will be useful, but | |
14 | ;;; WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 | ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
16 | ;;; GNU General Public License for more details. | |
17 | ;;; | |
18 | ;;; You should have received a copy of the GNU General Public License | |
19 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. | |
20 | ||
21 | (define-module (gnu packages rdesktop) | |
22 | #:use-module ((guix licenses) #:prefix license:) | |
23 | #:use-module (guix packages) | |
24 | #:use-module (guix download) | |
2149d3e3 TD |
25 | #:use-module (guix git-download) |
26 | #:use-module (guix build-system cmake) | |
00e65098 | 27 | #:use-module (guix build-system gnu) |
2149d3e3 TD |
28 | #:use-module (gnu packages compression) |
29 | #:use-module (gnu packages cups) | |
598b5481 | 30 | #:use-module (gnu packages docbook) |
2149d3e3 | 31 | #:use-module (gnu packages gstreamer) |
598b5481 | 32 | #:use-module (gnu packages image) |
2149d3e3 TD |
33 | #:use-module (gnu packages linux) |
34 | #:use-module (gnu packages pkg-config) | |
35 | #:use-module (gnu packages pulseaudio) | |
cc2b77df | 36 | #:use-module (gnu packages tls) |
2149d3e3 TD |
37 | #:use-module (gnu packages video) |
38 | #:use-module (gnu packages xorg) | |
39 | #:use-module (gnu packages xml)) | |
00e65098 LC |
40 | |
41 | (define-public rdesktop | |
42 | (package | |
43 | (name "rdesktop") | |
44 | (version "1.8.3") | |
45 | (source (origin | |
46 | (method url-fetch) | |
47 | (uri (string-append | |
de67e922 LF |
48 | "mirror://sourceforge/" name "/" name "/" version "/" |
49 | name "-" version ".tar.gz")) | |
00e65098 LC |
50 | (sha256 |
51 | (base32 | |
52 | "1r7c1rjmw2xzq8fw0scyb453gy9z19774z1z8ldmzzsfndb03cl8")))) | |
53 | (build-system gnu-build-system) | |
54 | (arguments | |
55 | '(#:configure-flags (list (string-append "--with-openssl=" | |
56 | (assoc-ref %build-inputs | |
57 | "openssl")) | |
58 | ||
59 | ;; XXX: optional dependencies missing | |
60 | "--disable-credssp" | |
61 | "--disable-smartcard") | |
62 | ||
63 | #:tests? #f)) ;no 'check' target | |
64 | (inputs | |
65 | `(("libx11" ,libx11) | |
66 | ("openssl" ,openssl))) | |
67 | (home-page "http://www.rdesktop.org/") | |
68 | (synopsis "Client for Windows Terminal Services") | |
69 | (description | |
70 | "rdesktop is a client for Microsoft's Windows Remote Desktop Services, | |
e881752c | 71 | capable of natively speaking Remote Desktop Protocol (RDP). It allows users |
00e65098 LC |
72 | to remotely control a user's Windows desktop.") |
73 | (license license:gpl3+))) | |
2149d3e3 TD |
74 | |
75 | (define-public freerdp | |
cc81f1c3 TD |
76 | (let ((commit "03ab68318966c3a22935a02838daaea7b7fbe96c")) |
77 | (package | |
78 | (name "freerdp") | |
79 | (version (git-version "1.1" "1" commit)) | |
80 | (source (origin | |
81 | (method git-fetch) | |
82 | (uri (git-reference | |
83 | ;; We need the 1.1 branch for RDP support in vinagre. | |
84 | (url "git://github.com/FreeRDP/FreeRDP.git") | |
85 | (commit commit))) | |
86 | (file-name (git-file-name name version)) | |
87 | (sha256 | |
88 | (base32 "07ish8rmvbk2zd99k91qybmmh5h4afly75l5kbvslhq1r6k8pbmp")))) | |
89 | (build-system cmake-build-system) | |
90 | (native-inputs | |
91 | `(("pkg-config" ,pkg-config) | |
598b5481 TD |
92 | ("libxslt" ,libxslt) |
93 | ("libxml2" ,libxml2) | |
94 | ("docbook-xsl" ,docbook-xsl) | |
cc81f1c3 TD |
95 | ("xmlto" ,xmlto))) |
96 | (inputs | |
97 | `(("libx11" ,libx11) | |
98 | ("libxkbfile" ,libxkbfile) | |
99 | ("libxcursor" ,libxcursor) | |
100 | ("libxext" ,libxext) | |
101 | ("libxi" ,libxi) | |
102 | ("libxv" ,libxv) | |
103 | ("libxrandr" ,libxrandr) | |
104 | ("libxrender" ,libxrender) | |
105 | ("libxinerama" ,libxinerama) | |
106 | ("libxshmfence" ,libxshmfence) | |
cc81f1c3 TD |
107 | ("cups" ,cups) |
108 | ("ffmpeg" ,ffmpeg-2.8) | |
598b5481 | 109 | ("libjpeg" ,libjpeg) |
cc81f1c3 TD |
110 | ("pulseaudio" ,pulseaudio) |
111 | ("alsa-lib" ,alsa-lib) | |
cc81f1c3 TD |
112 | ("zlib" ,zlib) |
113 | ("openssl" ,openssl))) | |
114 | (arguments | |
3def739d TGR |
115 | `(#:build-type "RELEASE" |
116 | #:configure-flags | |
117 | (list "-DWITH_JPEG=ON" | |
598b5481 TD |
118 | ,@(if (string-prefix? "x86_64" |
119 | (or (%current-target-system) | |
120 | (%current-system))) | |
121 | '("-DWITH_SSE2=ON") | |
122 | '()) | |
123 | (string-append "-DDOCBOOKXSL_DIR=" | |
124 | (assoc-ref %build-inputs "docbook-xsl") | |
125 | "/xml/xsl/docbook-xsl-" | |
126 | ,(package-version docbook-xsl)) | |
127 | "-DWITH_PULSE=ON" | |
128 | "-DWITH_CUPS=ON") | |
cc81f1c3 TD |
129 | #:tests? #f)) ; no 'test' target |
130 | (home-page "https://www.freerdp.com") | |
131 | (synopsis "Remote Desktop Protocol implementation") | |
132 | (description "FreeRDP implements Microsoft's Remote Desktop Protocol. | |
133 | It consists of the @code{xfreerdp} client, libraries for client and server | |
2149d3e3 TD |
134 | functionality, and Windows Portable Runtime (WinPR), a portable implementation |
135 | of parts of the Windows API.") | |
cc81f1c3 | 136 | (license license:asl2.0)))) |