mirror of
https://codeberg.org/guix/guix.git
synced 2026-01-25 12:05:19 -06:00
gnu: mit-scheme: Update to 12.1.
* gnu/packages/scheme.scm (mit-scheme): Update to 12.1. [arguments]<#:parallel-build?>: Unset. <#:make-flags>: Set it. <#:phases>: Delete 'build phase replacement, 'set-flags. Add phases 'fixup-install and 'disable-slow-tests. Refresh other phases. [native-inputs]: Add bash-minimal for cross-compilation. [supported-systems]: Remove i686-linux, unsupported upstream. Add aarch64, supported upstream. Fixes: guix/guix#1777 Change-Id: I3bb23c73d0f20e7db988c94d540e8c925ab3c326 Signed-off-by: Andreas Enge <andreas@enge.fr>
This commit is contained in:
Nicolas Graves
Andreas Enge
parent
9da455992a
commit
f63f558c1b
1 changed files with 37 additions and 49 deletions
|
|
@ -108,12 +108,16 @@
|
|||
(define-public mit-scheme
|
||||
(package
|
||||
(name "mit-scheme")
|
||||
(version "11.2")
|
||||
(version "12.1")
|
||||
(source #f) ; See below.
|
||||
(outputs '("out" "doc"))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
(list
|
||||
;; XXX: Some makefile dependencies are probably wrong, leading to
|
||||
;; missing files when building in parallel.
|
||||
#:parallel-build? #f
|
||||
#:make-flags #~(list "compile-microcode")
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
;; MIT/GNU Scheme is not bootstrappable, so it's recommended to
|
||||
|
|
@ -146,20 +150,18 @@
|
|||
(cond
|
||||
((target-x86-64?)
|
||||
(base32
|
||||
"17822hs9y07vcviv2af17p3va7qh79dird49nj50bwi9rz64ia3w"))
|
||||
"035f92vni0vqmgj9hq2i7vwasz7crx52wll4823vhfkm1qdv5ywc"))
|
||||
((target-aarch64?)
|
||||
(base32
|
||||
"11maixldk20wqb5js5p4imq221zz9nf27649v9pqkdf8fv7rnrs9"))
|
||||
"12ra9bc93x8g07impbd8jr6djjzwpb9qvh9zhxvvrba3332zx3vh"))
|
||||
(else
|
||||
(base32 "\
|
||||
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"))))))
|
||||
;; Delete these dangling symlinks since they break
|
||||
;; `patch-shebangs'.
|
||||
(for-each delete-file (find-files "src/compiler" "^make\\."))
|
||||
(chdir "src")))
|
||||
(add-after 'unpack 'patch-/bin/sh
|
||||
(lambda* (#:key inputs #:allow-other-keys)
|
||||
(let ((sh (search-input-file inputs "bin/sh")))
|
||||
(lambda* (#:key inputs native-inputs #:allow-other-keys)
|
||||
(let ((sh (search-input-file (or native-inputs inputs)
|
||||
"bin/sh")))
|
||||
(setenv "CONFIG_SHELL" sh)
|
||||
(substitute* '("../tests/ffi/autogen.sh"
|
||||
"../tests/ffi/autobuild.sh"
|
||||
|
|
@ -172,49 +174,38 @@ aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"))))))
|
|||
(string-append sh " autogen.sh"))
|
||||
(("\\./configure")
|
||||
(string-append sh " configure"))))))
|
||||
;; disable array-parameter warnings that become errors while
|
||||
;; compiling microcode target
|
||||
(add-before 'configure 'set-flags
|
||||
(lambda* (#:key inputs #:allow-other-keys)
|
||||
(setenv "CFLAGS" "-Wno-array-parameter")
|
||||
(setenv "CPPFLAGS" "-Wno-array-parameter")))
|
||||
(replace 'build
|
||||
(lambda* (#:key system #:allow-other-keys)
|
||||
(if (or (string-prefix? "x86_64" system)
|
||||
(string-prefix? "i686" system))
|
||||
(invoke "make" "compile-microcode")
|
||||
(invoke "./etc/make-liarc.sh"
|
||||
(string-append "--prefix=" #$output)))))
|
||||
(add-after 'configure 'configure-doc
|
||||
(lambda* (#:key inputs #:allow-other-keys)
|
||||
(lambda* (#:key inputs native-inputs #:allow-other-keys)
|
||||
(with-directory-excursion "../doc"
|
||||
(let* ((sh (search-input-file inputs "bin/sh")))
|
||||
(let* ((sh (search-input-file (or native-inputs inputs)
|
||||
"bin/sh")))
|
||||
(mkdir-p #$output:doc)
|
||||
(invoke sh "./configure"
|
||||
(string-append "--prefix=" #$output)
|
||||
(string-append "SHELL=" sh))))))
|
||||
(string-append "SHELL=" sh)
|
||||
(string-append "--prefix=" #$output:doc)
|
||||
(string-append "--docdir=" #$output:doc
|
||||
"/share/doc/" #$name "-" #$version))))))
|
||||
(add-after 'build 'build-doc
|
||||
(lambda* _
|
||||
(lambda _
|
||||
(with-directory-excursion "../doc"
|
||||
(invoke "make"))))
|
||||
(add-after 'install 'install-doc
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(let* ((doc (assoc-ref outputs "doc"))
|
||||
(old-doc-dir (string-append #$output "/share/doc"))
|
||||
(new-doc/mit-scheme-dir (string-append doc "/share/doc/"
|
||||
#$name "-"
|
||||
#$version)))
|
||||
(with-directory-excursion "../doc"
|
||||
(for-each (lambda (target)
|
||||
(invoke "make" target))
|
||||
'("install-info-gz" "install-man" "install-html"
|
||||
"install-pdf")))
|
||||
(mkdir-p new-doc/mit-scheme-dir)
|
||||
(copy-recursively (string-append old-doc-dir "/" #$name)
|
||||
new-doc/mit-scheme-dir)
|
||||
(delete-file-recursively old-doc-dir)))))))
|
||||
(invoke "make" "install"))))
|
||||
(add-after 'install 'fixup-install
|
||||
(lambda _
|
||||
(let ((share (string-append #$output "/share"))
|
||||
(dest (string-append #$output:doc "/share/info/")))
|
||||
(for-each
|
||||
(lambda (file) (install-file file dest))
|
||||
(find-files share "\\.info\\.gz$"))
|
||||
(delete-file-recursively share))))
|
||||
(add-before 'check 'disable-slow-tests
|
||||
(lambda* (#:key inputs native-inputs #:allow-other-keys)
|
||||
(setenv "FAST" "y")
|
||||
(setenv "SHELL" (search-input-file (or native-inputs inputs)
|
||||
"bin/sh")))))))
|
||||
(native-inputs
|
||||
;; XXX: Autoconf, Automake, and Libtool are necessary for the FFI tests.
|
||||
(list autoconf
|
||||
(list bash-minimal
|
||||
autoconf
|
||||
automake
|
||||
libtool
|
||||
(texlive-local-tree (list texlive-epsf texlive-texinfo))
|
||||
|
|
@ -222,11 +213,8 @@ aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"))))))
|
|||
ghostscript
|
||||
m4))
|
||||
(inputs (list libx11 ncurses))
|
||||
;; Fails to build on MIPS, see <http://bugs.gnu.org/18221>.
|
||||
;; Also, the portable C version of MIT/GNU Scheme did not work in time for
|
||||
;; release in version 10.1.
|
||||
(supported-systems '("x86_64-linux" "i686-linux"))
|
||||
|
||||
;; XXX: Fails to build on MIPS, see <http://bugs.gnu.org/18221>.
|
||||
(supported-systems '("x86_64-linux" "aarch64-linux"))
|
||||
(home-page "https://www.gnu.org/software/mit-scheme/")
|
||||
(synopsis "Scheme implementation with integrated editor and debugger")
|
||||
(description
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue