From 6ff98ce39780ccef5f83aa94f14d0f742f8ea568 Mon Sep 17 00:00:00 2001 From: Tobias Geerinckx-Rice Date: Fri, 14 Jan 2022 02:07:11 +0000 Subject: gnu: tigervnc-{client,server}: Update to 1.12.0-0.b484c22. * gnu/packages/vnc.scm (tigervnc-client): Update to 1.12.0-0.b484c22. [source]: Build from a Git snapshot. (tigervnc-server)[arguments]: Adjust the 'patch-xserver phase. --- gnu/packages/vnc.scm | 111 ++++++++++++++++++++++----------------------------- 1 file changed, 47 insertions(+), 64 deletions(-) (limited to 'gnu/packages/vnc.scm') diff --git a/gnu/packages/vnc.scm b/gnu/packages/vnc.scm index 22fc639fcf..c0fabe848b 100644 --- a/gnu/packages/vnc.scm +++ b/gnu/packages/vnc.scm @@ -4,7 +4,7 @@ ;;; Copyright © 2020 Hartmut Goebel ;;; Copyright © 2020 Marius Bakke ;;; Copyright © 2020 Vincent Legoll -;;; Copyright © 2021 Tobias Geerinckx-Rice +;;; Copyright © 2021, 2022 Tobias Geerinckx-Rice ;;; ;;; This file is part of GNU Guix. ;;; @@ -153,50 +153,52 @@ RDP, VNC, SPICE, NX, XDMCP, SSH and EXEC network protocols are supported.") (license license:gpl2+))) (define-public tigervnc-client - (package - (name "tigervnc-client") - (version "1.11.0") - (source (origin - (method git-fetch) - (uri - (git-reference - (url "https://github.com/TigerVNC/tigervnc") - (commit (string-append "v" version)))) - (sha256 - (base32 - "1bg79ahr4mzy48ak0caxy3ckdsxmhpchypggaz6lxjjk92hgsz91")) - (file-name (git-file-name name version)))) - (build-system cmake-build-system) - (arguments - '(#:tests? #f ; Tests that do exists are not automated. - #:phases (modify-phases %standard-phases - (replace 'install - (lambda* (#:key outputs #:allow-other-keys) - (with-directory-excursion "vncviewer" - (invoke "make" "install"))))))) - (native-inputs - (list autoconf gettext-minimal automake)) - (inputs - (list zlib - gnutls - libjpeg-turbo - fltk - linux-pam - libx11 - libxext - libxtst - libxrandr - libxdamage - pixman)) - (home-page "https://tigervnc.org/") - (synopsis "High-performance, platform-neutral + ;; xorg-server 21 support was merged 2 weeks after the last (1.12.0) release. + (let ((revision "0") + (commit "b484c229853a08c7f254a4c6efbaf3c9e85b5074")) + (package + (name "tigervnc-client") + (version (git-version "1.12.0" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/TigerVNC/tigervnc") + (commit commit))) + (sha256 + (base32 "125dnn05ps7vfsxlxmzm05w99lhm8hk8j4hpxl1mlzb5j0hp1061")) + (file-name (git-file-name name version)))) + (build-system cmake-build-system) + (arguments + '(#:tests? #f ; Tests that do exists are not automated. + #:phases (modify-phases %standard-phases + (replace 'install + (lambda* (#:key outputs #:allow-other-keys) + (with-directory-excursion "vncviewer" + (invoke "make" "install"))))))) + (native-inputs + (list autoconf gettext-minimal automake)) + (inputs + (list zlib + gnutls + libjpeg-turbo + fltk + linux-pam + libx11 + libxext + libxtst + libxrandr + libxdamage + pixman)) + (home-page "https://tigervnc.org/") + (synopsis "High-performance, platform-neutral implementation of VNC (client)") - (description "TigerVNC is a client/server implementation of VNC (Virtual + (description "TigerVNC is a client/server implementation of VNC (Virtual Network Computing). It provides enough performance to run even 3D and video applications. It also provides extensions for advanced authentication methods and TLS encryption. This package installs only the VNC client, the application which is needed to connect to VNC servers.") - (license license:gpl2))) + (license license:gpl2)))) ;; A VNC server is, in fact, an X server so it seems like a good idea ;; to build on the work already done for xorg-server package. This is @@ -267,32 +269,13 @@ application which is needed to connect to VNC servers.") (let* ((tvnc-src (assoc-ref %build-inputs "tigervnc-src")) (tvnc-xserver (string-append tvnc-src "/unix/xserver"))) - (copy-recursively tvnc-xserver ".") - #t))) + (copy-recursively tvnc-xserver ".")))) (add-after 'copy-tvnc-xserver 'patch-xserver (lambda _ - (let* - ((tvnc-src (assoc-ref %build-inputs "tigervnc-src")) - (xorg-server-version ,(package-version xorg-server)) - (which-patch (lambda () - (let* - ((patch-num (apply string-append - (list-head (string-split xorg-server-version - #\.) - 2))) - (fn (format #f "~a/unix/xserver~a.patch" tvnc-src patch-num))) - (when (not (file-exists? fn)) - (error (format #f "Patch file, ~a, -corresponding to the input xorg-server version, does not exist. Installation -will fail. " fn))) - - fn))) ; VNC patches for xserver have the - ; form xserverXY[Y].patch, where - ; X.Y[Y].Z is the Xorg server - ; version. - (xserver-patch (which-patch))) - (invoke "patch" "-p1" "-i" xserver-patch) - (invoke "autoreconf" "-fiv")))) + (invoke "patch" "-p1" "-i" + (string-append (assoc-ref %build-inputs "tigervnc-src") + "/unix/xserver21.1.1.patch")) + (invoke "autoreconf" "-fiv"))) (add-before 'build 'build-tigervnc (lambda _ (let* ((out (assoc-ref %outputs "out")) -- cgit v1.2.3