Package: guix-patches;
Reported by: nicodebo <n.debonnaire <at> gmail.com>
Date: Sat, 18 Nov 2023 07:40:01 UTC
Owned by: steve <at> futurile.net
Severity: normal
Tags: patch
Done: Maxim Cournoyer <maxim.cournoyer <at> gmail.com>
Bug is archived. No further changes may be made.
View this message in rfc822 format
From: nicodebo <n.debonnaire <at> gmail.com> To: 67257 <at> debbugs.gnu.org Cc: nicodebo <nicolas.debonnaire <at> gmail.com> Subject: [bug#67257] [PATCH 1/2] Add nx-libs Date: Sat, 18 Nov 2023 08:59:17 +0100
From: nicodebo <nicolas.debonnaire <at> gmail.com>
Change-Id: I13e088521d5e5577fed5d6a4b10867ca10f4293f
---
gnu/packages/nx.scm | 140 ++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 140 insertions(+)
create mode 100644 gnu/packages/nx.scm
diff --git a/gnu/packages/nx.scm b/gnu/packages/nx.scm
new file mode 100644
index 0000000000..9a2ec68ee9
--- /dev/null
+++ b/gnu/packages/nx.scm
@@ -0,0 +1,140 @@
+;;; This file is part of GNU Guix.
+;;;
+;;; GNU Guix is free software; you can redistribute it and/or modify it
+;;; under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; GNU Guix is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
+
+(define-module (gnu packages nx)
+ #:use-module (gnu packages autotools)
+ #:use-module (gnu packages commencement)
+ #:use-module (gnu packages glib)
+ #:use-module (gnu packages gtk)
+ #:use-module (gnu packages image)
+ #:use-module (gnu packages onc-rpc)
+ #:use-module (gnu packages patchutils)
+ #:use-module (gnu packages perl)
+ #:use-module (gnu packages pkg-config)
+ #:use-module (gnu packages python)
+ #:use-module (gnu packages xdisorg)
+ #:use-module (gnu packages xml)
+ #:use-module (gnu packages xorg)
+ #:use-module (guix build utils)
+ #:use-module (guix build-system gnu)
+ #:use-module (guix git-download)
+ #:use-module (guix licenses)
+ #:use-module (guix packages))
+
+(define-public nx-libs
+ (package
+ (name "nx-libs")
+ (version "3.5.99.27")
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/ArcticaProject/nx-libs")
+ (commit version)))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32 "0ykbza39ksycpyydaiwwbp7hkmdk96v7b36pn989k39lhfwnn8kz"))))
+ (build-system gnu-build-system)
+ (arguments
+ `(#:tests? #f
+ #:phases (modify-phases %standard-phases
+ (delete 'configure)
+ (add-before 'build 'replace-shebang-nxdialog
+ (lambda _
+ (substitute* "nxdialog/bin/nxdialog"
+ (("#!/usr/bin/env python")
+ (string-append "#!"
+ (which "python3"))))))
+ (add-before 'build 'fix-makefile
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (etc (string-append out "/etc")))
+ (mkdir-p etc)
+ (substitute* "Makefile"
+ (("^gzip -f") "gzip -f -n") ;; reproducible build
+ (("/usr/local")
+ out)
+ (("/etc/nxagent")
+ etc)
+ (("./configure")
+ (string-append "CONFIG_SHELL="
+ (which "sh")
+ " SHELL="
+ (which "sh")
+ " "
+ (which "sh")
+ " ./configure")))
+ (substitute* '("nx-X11/config/cf/site.def")
+ (("#include <host.def>")
+ (string-append "#include <host.def>" "\n"
+ "#define BourneShell "
+ (which "sh")))
+ (("/usr/local")
+ out))
+ ;; Workaround the following error during the build
+ ;; process: invalid input: ("_" #<procedure which (program)>)
+ (substitute* '("nx-X11/Makefile")
+ (("which")
+ "echo"))
+ #t)))
+ (replace 'build
+ (lambda _
+ (invoke "make" "IMAKE_DEFINES=\"-DUseTIRPC=1\"") #t))
+ (add-before 'validate-runpath 'link-libraries
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (lib (string-append out "/lib"))
+ (lib-nx-x11 (string-append lib "/nx/X11")))
+ ;; TODO: Should I use symlink instead of install-file ?
+ (for-each (lambda (file)
+ (install-file file lib-nx-x11))
+ (list (string-append lib "/libXcomp.so.3")
+ (string-append lib
+ "/libXcompshad.so.3")
+ (string-append lib "/libNX_X11.so.6")))
+ #t))))))
+ (native-inputs (list autoconf
+ automake
+ libtool
+ pkg-config
+ libpng
+ libjpeg-turbo
+ xkbcomp
+ libxfont
+ libxdamage
+ libxrandr
+ libxtst
+ libxext
+ libxcomposite
+ libxinerama
+ libxpm
+ libxml2
+ font-util
+ pixman
+ gccmakedep
+ imake
+ quilt
+ libtirpc
+ gcc-toolchain))
+ ;; python-pygobject inputs: fix `import gi` error when executing nxdialog
+ ;; gtk+: also needed at runtime by the `gi` python librairy
+ (propagated-inputs (list perl python-3 python-2 python-pygobject gtk+))
+ (synopsis "NX remote desktop library")
+ (description
+ "NX technology also known as NX or NoMachine is a protocol that enables
+remote desktop access. It's maintained by the artica project, x2go
+developpers and TheQVD.")
+ (home-page "https://github.com/ArcticaProject/nx-libs")
+ (license gpl2)))
--
2.41.0
GNU bug tracking system
Copyright (C) 1999 Darren O. Benham,
1997,2003 nCipher Corporation Ltd,
1994-97 Ian Jackson.