ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-26 22:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

bootstrap: mes-boot: Update for mes 0.19.

Browse source 
* gnu/packages/commencement.scm (mes-boot): Update for mes 0.19.
(mes-boot0): Remove.
This commit is contained in:
Jan Nieuwenhuizen 2018-12-16 21:16:29 +01:00
parent c89bbcccb2
commit df2242a462
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 14 additions and 44 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

58
gnu/packages/commencement.scm
View file

@ -81,36 +81,11 @@ (define-module (gnu packages commencement)
;;; ;;;
;;; Code: ;;; 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 (define mes-boot
(package-with-bootstrap-guile (package-with-bootstrap-guile
(package (package
(inherit mes) (inherit mes)
(name "mes-boot") (name "mes-boot")
(version (package-version mes-boot0))
(source (package-source mes-boot0))
(inputs '()) (inputs '())
(propagated-inputs '()) (propagated-inputs '())
(native-inputs (native-inputs
@ -126,40 +101,35 @@ (define mes-boot
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'unpack-seeds (add-after 'unpack 'unpack-seeds
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(let ((coreutils (assoc-ref %build-inputs "coreutils")) (let ((nyacc-source (assoc-ref %build-inputs "nyacc-source"))
(srfi-43 (assoc-ref %build-inputs "srfi-43"))
(nyacc-source (assoc-ref %build-inputs "nyacc-source"))
(bootstrap-mes (assoc-ref %build-inputs "bootstrap-mes"))) (bootstrap-mes (assoc-ref %build-inputs "bootstrap-mes")))
(with-directory-excursion ".." (with-directory-excursion ".."
(and (and
(mkdir-p "nyacc-source") (mkdir-p "nyacc-source")
(invoke "tar" "--strip=1" "-C" "nyacc-source" "-xvf" nyacc-source) (invoke "tar" "--strip=1" "-C" "nyacc-source" "-xvf" nyacc-source)
(symlink (string-append bootstrap-mes "/lib") "mes-seed") (symlink (string-append bootstrap-mes "/share/mes/lib") "mes-seed")
(or (not srfi-43) #t)))))
(and (mkdir-p "srfi")
(copy-file srfi-43 "srfi/srfi-43.scm")
#t)))))))
(replace 'configure (replace 'configure
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref %outputs "out"))) (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_LOAD_PATH" "nyacc")
(setenv "GUILE_TOOLS" "true") ; no tools in bootstrap-guile (symlink (string-append "../nyacc-source/module") "nyacc")
(substitute* "configure.sh"
(("^arch=.*") "arch=i686\n"))
(invoke "bash" "configure.sh" (invoke "bash" "configure.sh"
(string-append "--prefix=" out)) (string-append "--prefix=" out)))))
(setenv "MES" "src/mes")
(setenv "MESCC" "scripts/mescc")
#t)))
(replace 'build (replace 'build
(lambda _ (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 (replace 'check
(lambda _ (lambda _
(and (and
(setenv "MES_ARENA" "100000000")
(setenv "DIFF" "sh scripts/diff.scm") (setenv "DIFF" "sh scripts/diff.scm")
;; fail fast tests ;; fail fast tests
;; (invoke "sh" "-x" "build-aux/test.sh" "scaffold/tests/t") ;; (invoke "sh" "-x" "build-aux/test.sh" "scaffold/tests/t")