me
/
guix
Archived
1
0
Fork 0
Code

build-system/gnu: Add a `patch' phase. 

* guix/build/gnu-build-system.scm (patch): New procedure.
  (%standard-phases): Add `patch'.

* guix/build-system/gnu.scm (gnu-build): Add `patches' and `patch-flags'
  parameters.  Pass them on.
master
Ludovic Courtès 2012-07-01 17:32:03 +02:00
parent 3e43c64a74
commit 74cd03b1a0
2 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
guix/build-system/gnu.scm
View File

@ -43,7 +43,9 @@
(define* (gnu-build store name source inputs
#:key (outputs '("out")) (configure-flags ''())
(make-flags ''()) (phases '%standard-phases)
(make-flags ''())
(patches ''()) (patch-flags ''("--batch" "-p1"))
(phases '%standard-phases)
(system (%current-system))
(modules '((guix build gnu-build-system)
(guix build utils))))
@ -57,6 +59,8 @@ input derivation INPUTS, using the usual procedure of the GNU Build System."
source)
#:outputs %outputs
#:inputs %build-inputs
#:patches ,patches
#:patch-flags ,patch-flags
#:phases ,phases
#:configure-flags ,configure-flags
#:make-flags ,make-flags)))

10
guix/build/gnu-build-system.scm
View File

@ -56,6 +56,14 @@
(and (zero? (system* "tar" "xvf" source))
(chdir (first-subdirectory "."))))
(define* (patch #:key (patches '()) (patch-flags '("--batch" "-p1"))
#:allow-other-keys)
(every (lambda (p)
(format #t "applying patch `~a'~%" p)
(zero? (apply system* "patch"
(append patch-flags (list p)))))
patches))
(define* (configure #:key outputs (configure-flags '()) #:allow-other-keys)
(let* ((prefix (assoc-ref outputs "out"))
(libdir (assoc-ref outputs "lib"))
@ -94,7 +102,7 @@
;; Standard build phases, as a list of symbol/procedure pairs.
(let-syntax ((phases (syntax-rules ()
((_ p ...) `((p . ,p) ...)))))
(phases set-paths unpack configure build check install)))
(phases set-paths unpack patch configure build check install)))
(define* (gnu-build #:key (source #f) (outputs #f) (inputs #f)