[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/16: gnu: tigervnc-server: Use new style inputs, gexps.
From: |
guix-commits |
Subject: |
01/16: gnu: tigervnc-server: Use new style inputs, gexps. |
Date: |
Fri, 7 Oct 2022 10:13:39 -0400 (EDT) |
apteryx pushed a commit to branch master
in repository guix.
commit c93b249dc010c5f2121fc2248966452196d64da9
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Thu Jul 28 10:42:52 2022 -0400
gnu: tigervnc-server: Use new style inputs, gexps.
* gnu/packages/vnc.scm (%tigervnc-client-source): New variable.
(tigervnc-server): Move input fields after arguments.
[native-inputs]: Use new style and 'modify-inputs'. Do not add
tigervnc-client regular inputs.
[configure-flags]: Use gexps, cons* instead of append.
[phases]: Use gexps.
{check}: Replace smiley with an explanatory comment.
{copy-tvnc-xserver}: Adjust default Makefile variables, which simplifies
needed bindings in other phases.
{build-tigervnc, build, install-tigervnc-aux, install}: Remove let*-bound
variables.
{build-tigervnc, build}: Honor PARALLEL-BUILD?.
---
gnu/packages/vnc.scm | 162 ++++++++++++++++++++++++---------------------------
1 file changed, 76 insertions(+), 86 deletions(-)
diff --git a/gnu/packages/vnc.scm b/gnu/packages/vnc.scm
index 84c84aec76..18244b3334 100644
--- a/gnu/packages/vnc.scm
+++ b/gnu/packages/vnc.scm
@@ -25,6 +25,7 @@
(define-module (gnu packages vnc)
#:use-module (guix build-system cmake)
#:use-module (guix download)
+ #:use-module (guix gexp)
#:use-module (guix git-download)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix gexp)
@@ -207,6 +208,8 @@ and TLS encryption. This package installs only the VNC
client, the
application which is needed to connect to VNC servers.")
(license license:gpl2))))
+(define %tigervnc-client-source (package-source tigervnc-client))
+
;; 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
;; not entirely compatible with the recommendation in BUILDING.txt
@@ -221,47 +224,27 @@ application which is needed to connect to VNC servers.")
(inherit xorg-server)
(name "tigervnc-server")
(version (package-version tigervnc-client))
- (native-inputs
- `(("tigervnc-src" ,(package-source tigervnc-client))
- ("autoconf" ,autoconf)
- ("automake" ,automake)
- ("libtool" ,libtool)
- ("gettext-minimal" ,gettext-minimal)
- ("font-util" ,font-util)
- ("cmake" ,cmake)
- ("perl" ,perl)
- ,@(package-native-inputs tigervnc-client)
- ,@(package-inputs tigervnc-client)
- ,@(package-native-inputs xorg-server)))
- (inputs
- (modify-inputs (package-inputs xorg-server)
- (prepend perl coreutils xauth)))
- (propagated-inputs
- (modify-inputs (package-propagated-inputs xorg-server)
- (prepend xauth)))
(arguments
(substitute-keyword-arguments
(package-arguments xorg-server)
((#:configure-flags flags)
- `(append '("--with-pic" ; Taken from BUILDING.txt
- "--without-dtrace"
- "--disable-static"
- "--disable-dri2"
- "--disable-xinerama"
- "--disable-xvfb"
- "--disable-xnest"
- "--disable-xorg"
- "--disable-dmx"
- "--disable-xwin"
- "--disable-xephyr"
- "--disable-kdrive"
- ;; "--disable-config-dbus" ; This was a warning.
- "--disable-config-hal"
- "--disable-config-udev"
- "--disable-dri2"
- ;; "--enable-install-libxf86config" ; This, too, was a
warning.
- "--enable-glx")
- (delete "--enable-xephyr" ,flags)))
+ #~(cons* "--with-pic" ; Taken from BUILDING.txt
+ "--without-dtrace"
+ "--disable-static"
+ "--disable-dri2"
+ "--disable-xinerama"
+ "--disable-xvfb"
+ "--disable-xnest"
+ "--disable-xorg"
+ "--disable-dmx"
+ "--disable-xwin"
+ "--disable-xephyr"
+ "--disable-kdrive"
+ "--disable-config-hal"
+ "--disable-config-udev"
+ "--disable-dri2"
+ "--enable-glx"
+ (delete "--enable-xephyr" #$flags)))
((#:modules modules)
`(append '((ice-9 ftw)
(ice-9 match)
@@ -269,55 +252,62 @@ application which is needed to connect to VNC servers.")
(guix build gnu-build-system))
modules))
((#:phases phases)
- `(modify-phases ,phases
- (delete 'check) ;)
- (add-after 'unpack 'copy-tvnc-xserver
- (lambda _
- (let*
- ((tvnc-src (assoc-ref %build-inputs "tigervnc-src"))
- (tvnc-xserver (string-append tvnc-src "/unix/xserver")))
- (copy-recursively tvnc-xserver "."))))
- (add-after 'copy-tvnc-xserver 'patch-xserver
- (lambda _
- (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"))
- (tvnc-src (assoc-ref %build-inputs "tigervnc-src"))
- (tvnc-build (string-append (getcwd) "/tigervnc-build")))
- (mkdir-p tvnc-build)
- (with-directory-excursion tvnc-build
- (invoke "cmake" "-G" "Unix Makefiles"
- (string-append "-DCMAKE_INSTALL_PREFIX=" out)
- tvnc-src)
- (invoke "make" "-j" (number->string
(parallel-job-count)))))))
- (replace 'build
- (lambda _
- (let* ((tvnc-src (assoc-ref %build-inputs "tigervnc-src"))
- (tvnc-build (string-append (getcwd) "/tigervnc-build"))
- (srcarg (string-append "TIGERVNC_SRCDIR=" tvnc-src))
- (buildarg (string-append "TIGERVNC_BUILDDIR="
tvnc-build)))
- (invoke "make" srcarg buildarg "-j"
- (number->string (parallel-job-count))))))
- (add-before 'install 'install-tigervnc-aux
- (lambda _
- (let* ((out (assoc-ref %outputs 'out))
- (tvnc-src (assoc-ref %build-inputs "tigervnc-src"))
- (tvnc-build (string-append (getcwd) "/tigervnc-build"))
- (srcarg (string-append "TIGERVNC_SRCDIR=" tvnc-src))
- (buildarg (string-append "TIGERVNC_BUILDDIR="
tvnc-build)))
- (with-directory-excursion (string-append tvnc-build "/unix")
- (invoke "make" srcarg buildarg "install")))))
- (replace 'install
- (lambda* _
- (let* ((tvnc-src (assoc-ref %build-inputs "tigervnc-src"))
- (tvnc-build (string-append (getcwd) "/tigervnc-build"))
- (srcarg (string-append "TIGERVNC_SRCDIR=" tvnc-src))
- (buildarg (string-append "TIGERVNC_BUILDDIR="
tvnc-build)))
- (invoke "make" "install" srcarg buildarg))))))))
+ #~(modify-phases #$phases
+ (delete 'check) ;no test suite
+ (add-after 'unpack 'copy-tvnc-xserver
+ (lambda* (#:key inputs #:allow-other-keys)
+ (copy-recursively (search-input-directory inputs
"unix/xserver")
+ ".")
+ ;; Adjust Makefile variables default values to simplify usage.
+ (substitute* "hw/vnc/Makefile.am"
+ (("(TIGERVNC_SRCDIR=).*" _ head)
+ (string-append head #$%tigervnc-client-source "\n"))
+ (("(TIGERVNC_BUILDDIR=).*" _ head)
+ (string-append head (getcwd) "/tigervnc-build\n")))))
+ (add-after 'copy-tvnc-xserver 'patch-xserver
+ (lambda* (#:key inputs #:allow-other-keys)
+ (invoke "patch" "-p1" "-i"
+ (search-input-file inputs "unix/xserver21.1.1.patch"))
+ (invoke "autoreconf" "-fiv")))
+ (add-before 'build 'build-tigervnc
+ (lambda* (#:key parallel-build? #:allow-other-keys)
+ (mkdir-p "tigervnc-build")
+ (with-directory-excursion "tigervnc-build"
+ (invoke "cmake" "-G" "Unix Makefiles"
+ (string-append "-DCMAKE_INSTALL_PREFIX=" #$output)
+ #$%tigervnc-client-source)
+ (invoke "make" "-j" (number->string (if parallel-build?
+ (parallel-job-count)
+ 1))))))
+ (replace 'build
+ (lambda* (#:key parallel-build? #:allow-other-keys)
+ (invoke "make" "-j" (number->string (if parallel-build?
+ (parallel-job-count)
+ 1)))))
+ (add-before 'install 'install-tigervnc-aux
+ (lambda _
+ (invoke "make" "-C" "tigervnc-build/unix" "install")))
+ (replace 'install
+ (lambda _
+ (invoke "make" "install")))))))
+ (native-inputs
+ (modify-inputs (append (package-native-inputs xorg-server)
+ (package-native-inputs tigervnc-client))
+ (append %tigervnc-client-source
+ autoconf
+ automake
+ libtool
+ gettext-minimal
+ font-util
+ cmake
+ perl)))
+ (inputs
+ (modify-inputs (append (package-inputs xorg-server)
+ (package-inputs tigervnc-client))
+ (prepend perl coreutils xauth)))
+ (propagated-inputs
+ (modify-inputs (package-propagated-inputs xorg-server)
+ (prepend xauth)))
(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
- 03/16: gnu: tigervnc-server: Adjust PAM config., (continued)
- 03/16: gnu: tigervnc-server: Adjust PAM config., guix-commits, 2022/10/07
- 04/16: gnu: tigervnc-server: Disable tests via #:tests?., guix-commits, 2022/10/07
- 05/16: gnu: tigervnc-server: Patch and wrap vncserver script., guix-commits, 2022/10/07
- 02/16: gnu: tigervnc-server: Move source production into origin snippet., guix-commits, 2022/10/07
- 08/16: marionette: Make marionette-screen-text private., guix-commits, 2022/10/07
- 06/16: gnu: gdm: Patch an extra reference to the Xsession script., guix-commits, 2022/10/07
- 15/16: services: Add xvnc-service-type., guix-commits, 2022/10/07
- 14/16: services: xorg: Add auto-suspend? field to <gdm-configuration>., guix-commits, 2022/10/07
- 09/16: marionette: Preserve screen dumps on failures., guix-commits, 2022/10/07
- 11/16: marionette: Add a callback arguments to wait-for-screen-text., guix-commits, 2022/10/07
- 01/16: gnu: tigervnc-server: Use new style inputs, gexps.,
guix-commits <=
- 07/16: services: gdm: Add a configuration field to enable XDMCP., guix-commits, 2022/10/07
- 10/16: marionette: Define keystrokes for typing colons and exclamation marks., guix-commits, 2022/10/07
- 12/16: gnu: dconf: Set sysconfdir to /etc., guix-commits, 2022/10/07
- 16/16: Update NEWS., guix-commits, 2022/10/07
- 13/16: services: Add dconf-service-type., guix-commits, 2022/10/07