1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586 |
- (define-module (guix build waf-build-system)
- #:use-module ((guix build gnu-build-system) #:prefix gnu:)
- #:use-module (guix build utils)
- #:use-module (ice-9 match)
- #:use-module (ice-9 ftw)
- #:use-module (srfi srfi-1)
- #:use-module (srfi srfi-26)
- #:export (%standard-phases
- waf-build))
- (define (call-waf command params)
- (if (file-exists? "waf")
- (begin
- (format #t "running \"python waf\" with command ~s and parameters ~s~%"
- command params)
- (apply invoke "python" "waf" command params)
- #t)
- (error "no waf found")))
- (define* (configure #:key target native-inputs inputs outputs
- (configure-flags '())
- #:allow-other-keys)
- "Build a given waf application."
- (let* ((prefix (assoc-ref outputs "out"))
- (flags `(,(string-append "--prefix=" prefix)
- ,@configure-flags)))
- (call-waf "configure" flags)))
- (define* (build #:rest empty)
- "Build a given waf application."
- (call-waf "build" '()))
- (define* (check #:key tests? test-target #:allow-other-keys)
- "Run the test suite of a given waf application."
- (if tests?
- (call-waf test-target '())
- #t))
- (define* (install #:key outputs inputs (configure-flags '())
- #:allow-other-keys)
- "Install a given waf application."
- (let* ((out (assoc-ref outputs "out"))
- (params (append (list (string-append "--prefix=" out))
- configure-flags)))
- (call-waf "install" params)))
- (define %standard-phases
- (modify-phases gnu:%standard-phases
- (delete 'bootstrap)
- (replace 'configure configure)
- (replace 'build build)
- (replace 'check check)
- (replace 'install install)))
- (define* (waf-build #:key inputs (phases %standard-phases)
- #:allow-other-keys #:rest args)
- "Build the given waf application, applying all of PHASES in order."
- (apply gnu:gnu-build #:inputs inputs #:phases phases args))
|