me/guix
Archived
1
0
Fork 0
Code Activity

gnu: newt: Fix cross-compilation.

Browse source 
* gnu/packages/slang.scm (newt): Fix-cross compilation.
  [arguments]: Use G-Expressions for `#:configure-flags',
  `#:make-flags' and `#:phases', also set correct path for
  `python-config'.

Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
This commit is contained in:
Jean-Pierre De Jesus DIAZ 2022-07-13 14:02:30 +02:00 • committed by Mathieu Othacehe
parent bb5afc5b9e
commit c0e713f6e2
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 28 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

45
gnu/packages/slang.scm
View file

@ -147,34 +147,41 @@ to inspect different parts of the same file, at the same time.")
(inputs (inputs
(list slang popt python fribidi)) (list slang popt python fribidi))
(arguments (arguments
`(#:tests? #f ; no test suite (list
#:tests? #f ; no test suite
#:configure-flags #:configure-flags
;; Set the correct RUNPATH in binaries. ;; Set the correct RUNPATH in binaries.
(list (string-append "LDFLAGS=-Wl,-rpath=" %output "/lib")) #~(list (string-append "LDFLAGS=-Wl,-rpath=" #$output "/lib"))
#:make-flags #:make-flags
;; configure uses a hard-coded search of /usr/include/python* to set ;; configure uses a hard-coded search of /usr/include/python* to set
;; this variable, and does not allow us to override it from the ;; this variable, and does not allow us to override it from the
;; command line. Fortunately, the Makefile does, so provide it here. ;; command line. Fortunately, the Makefile does, so provide it here.
(list (string-append "PYTHONVERS=python" #~(list
,(version-major+minor (package-version python)))) (string-append "PYTHONVERS=python"
#$(version-major+minor (package-version python))))
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after (add-after 'unpack 'patch-/usr/bin/install
'unpack 'patch-/usr/bin/install
(lambda _ (lambda _
(substitute* "po/Makefile" (substitute* "po/Makefile"
(("/usr/bin/install") "install")) (("/usr/bin/install") "install"))))
#t)) (add-before 'build 'add-python-config-to-path
(add-after (lambda* (#:key target #:allow-other-keys)
'install 'move-python ;; When cross-compiling python-config is not present in $PATH.
(lambda* (#:key outputs #:allow-other-keys) ;;
(let ((out (assoc-ref outputs "out")) ;; It is a shell script without dependencies on target binaries
(py (assoc-ref outputs "python")) ;; so it can be run on the host to allow cross-compilation.
(ver ,(version-major+minor (package-version python)))) (when target
(mkdir-p (string-append py "/lib")) (let ((path (getenv "PATH"))
(rename-file (string-append out "/lib/python" ver) (py (string-append #$python "/bin")))
(string-append py "/lib/python" ver)) (setenv "PATH" (string-append path ":" py))))))
#t)))))) (add-after 'install 'move-python
(lambda* _
(let ((ver #$(version-major+minor (package-version python))))
(mkdir-p (string-append #$output:python "/lib"))
(rename-file
(string-append #$output "/lib/python" ver)
(string-append #$output:python "/lib/python" ver))))))))
(home-page "https://pagure.io/newt") (home-page "https://pagure.io/newt")
(synopsis "Not Erik's Windowing Toolkit - text mode windowing with slang") (synopsis "Not Erik's Windowing Toolkit - text mode windowing with slang")
(description (description