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

build-system/gnu: Add `static-libgcc-package' & supporting procedure.

Browse source 
* guix/build-system/gnu.scm (package-with-extra-configure-variable,
  static-libgcc-package): New procedures.
This commit is contained in:
Ludovic Courtès 2012-11-05 23:50:05 +01:00
parent bca114d528
commit 53dcd5eea1
1 changed files with 42 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

43
guix/build-system/gnu.scm
View file

@ -27,7 +27,9 @@ (define-module (guix build-system gnu)
#:use-module (ice-9 match)
#:export (gnu-build
gnu-build-system
package-with-explicit-inputs))
package-with-explicit-inputs
package-with-extra-configure-variable
static-libgcc-package))
;; Commentary:
;;
@ -77,6 +79,45 @@ (define (filtered-inputs inputs)
,@(map rewritten-input
(filtered-inputs (package-inputs p)))))))
(define (package-with-extra-configure-variable p variable value)
"Return a version of P with VARIABLE=VALUE specified as an extra
`configure' flag. An example is LDFLAGS=-static. If P already has
configure flags for VARIABLE, the associated value is augmented."
(let loop ((p p))
(define (rewritten-inputs inputs)
(map (match-lambda
((name (? package? p) sub ...)
`(,name ,(loop p) ,@sub))
(input input))
inputs))
(package (inherit p)
(arguments
(lambda (system)
(let ((args (match (package-arguments p)
((? procedure? proc)
(proc system))
(x x))))
(substitute-keyword-arguments args
((#:configure-flags flags)
(let* ((var= (string-append variable "="))
(len (string-length var=)))
`(cons ,(string-append var= value)
(map (lambda (flag)
(if (string-prefix? ,var= flag)
(string-append
,(string-append var= value " ")
(substring flag ,len))
flag))
,flags))))))))
(inputs (rewritten-inputs (package-inputs p)))
(propagated-inputs (rewritten-inputs (package-propagated-inputs p))))))
(define (static-libgcc-package p)
"A version of P linked with `-static-gcc'."
(package-with-extra-configure-variable p "LDFLAGS" "-static-libgcc"))
(define %store
;; Store passed to STANDARD-INPUTS.
(make-parameter #f))