mirror of https://notabug.org/mthl/cuirass.git
build: Add '%aux-dir' variable.
* build-aux/guix.scm (%aux-dir): New variable. Use it.improve-build-parallelism
parent
19f8188d0e
commit
4ca0c93875
|
@ -35,13 +35,16 @@
|
||||||
"aclocal.m4" "bin/cuirass" "bin/evaluate" "config.cache"
|
"aclocal.m4" "bin/cuirass" "bin/evaluate" "config.cache"
|
||||||
"guix.scm")))))
|
"guix.scm")))))
|
||||||
|
|
||||||
|
(define %aux-dir
|
||||||
|
(current-source-directory))
|
||||||
|
|
||||||
(define %srcdir
|
(define %srcdir
|
||||||
(or (current-source-directory) "."))
|
(dirname %aux-dir))
|
||||||
|
|
||||||
(define (git-version-gen)
|
(define (git-version-gen)
|
||||||
;; Return a string containing Cuirass version number.
|
;; Return a string containing Cuirass version number.
|
||||||
(let* ((cmd "git-version-gen .tarball-version")
|
(let* ((cmd "git-version-gen .tarball-version")
|
||||||
(port (open-input-pipe (string-append %srcdir "/" cmd)))
|
(port (open-input-pipe (string-append %aux-dir "/" cmd)))
|
||||||
(str (read-line port)))
|
(str (read-line port)))
|
||||||
(close-pipe port)
|
(close-pipe port)
|
||||||
str))
|
str))
|
||||||
|
@ -52,7 +55,7 @@
|
||||||
(package
|
(package
|
||||||
(inherit (specification->package "cuirass"))
|
(inherit (specification->package "cuirass"))
|
||||||
(version (git-version-gen))
|
(version (git-version-gen))
|
||||||
(source (local-file (dirname %srcdir) #:recursive? #t
|
(source (local-file %srcdir #:recursive? #t
|
||||||
#:select? keep-cuirass-file?))
|
#:select? keep-cuirass-file?))
|
||||||
(arguments
|
(arguments
|
||||||
'(#:phases
|
'(#:phases
|
||||||
|
|
Loading…
Reference in New Issue