From df2242a462559d57b1362793f50667a81b2475d3 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Sun, 16 Dec 2018 21:16:29 +0100 Subject: [PATCH] bootstrap: mes-boot: Update for mes 0.19. * gnu/packages/commencement.scm (mes-boot): Update for mes 0.19. (mes-boot0): Remove. --- gnu/packages/commencement.scm | 58 +++++++++-------------------------- 1 file changed, 14 insertions(+), 44 deletions(-) diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm index babad13e5f..dfb9fee4c2 100644 --- a/gnu/packages/commencement.scm +++ b/gnu/packages/commencement.scm @@ -81,36 +81,11 @@ (define-module (gnu packages commencement) ;;; ;;; Code: -(define mes-boot0 - (let ((version "0.18") - (revision "1") - (commit "a155a0a9a2d941b15c1b98e5cce787de40a8dacd")) - (package - (inherit mes) - (name "mes-boot0") - (version (if commit (string-append version "-" revision "." (string-take commit 7)) - version)) - (source (if commit - (origin - (method url-fetch) - (uri (string-append - "https://git.savannah.gnu.org/cgit/mes.git/snapshot/" - "mes" "-" commit - ".tar.gz")) - (sha256 - (base32 - "14siwfwg0zlf1pa4ah8s08gsxqcazhydbwa9qvybb0knxs27aicn"))) - (package-source mes))) - (native-inputs '()) - (propagated-inputs '())))) - (define mes-boot (package-with-bootstrap-guile (package (inherit mes) (name "mes-boot") - (version (package-version mes-boot0)) - (source (package-source mes-boot0)) (inputs '()) (propagated-inputs '()) (native-inputs @@ -126,40 +101,35 @@ (define mes-boot #:phases (modify-phases %standard-phases (add-after 'unpack 'unpack-seeds - (lambda* (#:key outputs #:allow-other-keys) - (let ((coreutils (assoc-ref %build-inputs "coreutils")) - (srfi-43 (assoc-ref %build-inputs "srfi-43")) - (nyacc-source (assoc-ref %build-inputs "nyacc-source")) + (lambda _ + (let ((nyacc-source (assoc-ref %build-inputs "nyacc-source")) (bootstrap-mes (assoc-ref %build-inputs "bootstrap-mes"))) (with-directory-excursion ".." (and (mkdir-p "nyacc-source") (invoke "tar" "--strip=1" "-C" "nyacc-source" "-xvf" nyacc-source) - (symlink (string-append bootstrap-mes "/lib") "mes-seed") - (or (not srfi-43) - (and (mkdir-p "srfi") - (copy-file srfi-43 "srfi/srfi-43.scm") - #t))))))) + (symlink (string-append bootstrap-mes "/share/mes/lib") "mes-seed") + #t))))) (replace 'configure (lambda* (#:key outputs #:allow-other-keys) (let ((out (assoc-ref %outputs "out"))) - (symlink (string-append "../nyacc-source/module") "nyacc") + (setenv "GUILE" "mes") + (setenv "GUILE_EFFECTIVE_VERSION" "2.2") (setenv "GUILE_LOAD_PATH" "nyacc") - (setenv "GUILE_TOOLS" "true") ; no tools in bootstrap-guile - (substitute* "configure.sh" - (("^arch=.*") "arch=i686\n")) + (symlink (string-append "../nyacc-source/module") "nyacc") (invoke "bash" "configure.sh" - (string-append "--prefix=" out)) - (setenv "MES" "src/mes") - (setenv "MESCC" "scripts/mescc") - #t))) + (string-append "--prefix=" out))))) (replace 'build (lambda _ - (invoke "sh" "build.sh"))) + (let ((mes (assoc-ref %build-inputs "bootstrap-mes"))) + (setenv "MES_PREFIX" (string-append mes "/share/mes")) + (setenv "MES_ARENA" "100000000") + (setenv "MES_MAX_ARENA" "100000000") + (setenv "MES_STACK" "10000000") + (invoke "sh" "bootstrap.sh")))) (replace 'check (lambda _ (and - (setenv "MES_ARENA" "100000000") (setenv "DIFF" "sh scripts/diff.scm") ;; fail fast tests ;; (invoke "sh" "-x" "build-aux/test.sh" "scaffold/tests/t")