gnu: Add tigervnc-server.
* gnu/packages/tigervnc.scm (tigervnc-server): New variable. Signed-off-by: Danny Milosavljevic <dannym@scratchpost.org>master
Todor Kondić
Danny Milosavljevic
parent
0992cfa13a
commit
04784d217a
|
|
@ -82,3 +82,151 @@ 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)))
|
||||
|
||||
;; 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
|
||||
;; where the client is built first, then the source code of the X
|
||||
;; server is copied into a subdir of the build directory, patched with
|
||||
;; VNC additions and then build and installed as Xvnc. The procedure
|
||||
;; was turned around, where TigerVNC code is downloaded and built
|
||||
;; inside the Guix X server build dir. Also, the VNC patching process
|
||||
;; for the X server is automated in a straightforward manner.
|
||||
(define-public tigervnc-server
|
||||
(package
|
||||
(inherit xorg-server)
|
||||
(name "tigervnc-server")
|
||||
(version "1.9.0")
|
||||
(native-inputs
|
||||
`(("tigervnc-src" ,(origin
|
||||
(method git-fetch)
|
||||
(uri
|
||||
(git-reference
|
||||
(url "https://github.com/TigerVNC/tigervnc.git")
|
||||
(commit "v1.9.0")))
|
||||
(sha256
|
||||
(base32
|
||||
"0b47fg3741qs3zdpl2zr0s6jz46dypp2j6gqrappbzm3ywnnmm1x"))))
|
||||
("autoconf" ,autoconf)
|
||||
("automake" ,automake)
|
||||
("libtool" ,libtool)
|
||||
("gettext-minimal" ,gettext-minimal)
|
||||
("font-util" ,font-util)
|
||||
("cmake" ,cmake)
|
||||
("gcc-toolchain" ,gcc-toolchain)
|
||||
("perl" ,perl)
|
||||
,@(package-native-inputs tigervnc-client)
|
||||
,@(package-inputs tigervnc-client)
|
||||
,@(package-native-inputs xorg-server)))
|
||||
(inputs
|
||||
`(("perl" ,perl)
|
||||
("coreutils" ,coreutils)
|
||||
("xauth" ,xauth)
|
||||
,@(package-inputs xorg-server)))
|
||||
(propagated-inputs
|
||||
`(("xauth" ,xauth)
|
||||
,@(package-propagated-inputs xorg-server)))
|
||||
(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" ; Is this necessary? (*)
|
||||
"--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))) ; Is this necessary? (*)
|
||||
((#:modules modules)
|
||||
`(append '((ice-9 ftw)
|
||||
(ice-9 match)
|
||||
(guix build utils)
|
||||
(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 ".")
|
||||
#t)))
|
||||
(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 "~a/unix/xserver~a.patch" tvnc-src patch-num)))
|
||||
(when (not (file-exists? fn))
|
||||
(error (format "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"))))
|
||||
(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))))))))
|
||||
(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 the VNC server, a program that will
|
||||
enable users with VNC clients to log into a graphical session on the machine
|
||||
where the server is installed.")))
|
||||
|
|
|
|||
Reference in New Issue