diff options
| -rw-r--r-- | gnu/packages/ncurses.scm | 41 | ||||
| -rw-r--r-- | gnu/packages/readline.scm | 4 |
2 files changed, 34 insertions, 11 deletions
diff --git a/gnu/packages/ncurses.scm b/gnu/packages/ncurses.scm index 5199ec7c23..c1badae8a3 100644 --- a/gnu/packages/ncurses.scm +++ b/gnu/packages/ncurses.scm @@ -42,7 +42,16 @@ (string-append "CONFIG_SHELL=" bash) (string-append "--prefix=" out) configure-flags))))) + (cross-pre-install-phase + '(lambda _ + ;; Run the native `tic' program, not the cross-built one. + (substitute* "misc/run_tic.sh" + (("\\{TIC_PATH:=.*\\}") + "{TIC_PATH:=true}") + (("cross_compiling:=no") + "cross_compiling:=yes")))) (post-install-phase + ;; FIXME: The `tic' binary lacks a RUNPATH; fix it. '(lambda* (#:key outputs #:allow-other-keys) (let ((out (assoc-ref outputs "out"))) ;; When building a wide-character (Unicode) build, create backward @@ -97,16 +106,28 @@ '("--without-cxx-binding") '())) #:tests? #f ; no "check" target - #:phases (alist-cons-after - 'install 'post-install ,post-install-phase - (alist-cons-before - 'configure 'patch-makefile-SHELL - ,patch-makefile-phase - (alist-replace - 'configure - ,configure-phase - %standard-phases))))) - (self-native-input? #t) + #:phases ,(if (%current-target-system) + + `(alist-cons-before ; cross build + 'configure 'patch-makefile-SHELL + ,patch-makefile-phase + (alist-cons-before + 'install 'pre-install + ,cross-pre-install-phase + (alist-cons-after + 'install 'post-install ,post-install-phase + %standard-cross-phases))) + + `(alist-cons-after ; native build + 'install 'post-install ,post-install-phase + (alist-cons-before + 'configure 'patch-makefile-SHELL + ,patch-makefile-phase + (alist-replace + 'configure + ,configure-phase + %standard-phases)))))) + (self-native-input? #t) ; for `tic' (synopsis "Terminal emulation (termcap, terminfo) library") (description "The Ncurses (new curses) library is a free software emulation of curses diff --git a/gnu/packages/readline.scm b/gnu/packages/readline.scm index 8857666fcc..1fb4376971 100644 --- a/gnu/packages/readline.scm +++ b/gnu/packages/readline.scm @@ -61,7 +61,9 @@ #:phases (alist-cons-after 'install 'post-install ,post-install-phase - %standard-phases))) + ,(if (%current-target-system) + '%standard-cross-phases + '%standard-phases)))) (synopsis "Edit command lines while typing, with history support") (description "The GNU Readline library provides a set of functions for use by |