guix-build: Add `--local-build'.

* guix-build.in (show-help): Add `--local-build'.
  (%options): Likewise.
  (guix-build): Pass `set-build-options' the #:use-substitutes? argument
  accordingly.
This commit is contained in:
Ludovic Courtès 2012-10-18 22:24:49 +02:00
parent e3dadc6818
commit 1c3972daa8
1 changed files with 9 additions and 3 deletions

View File

@ -89,6 +89,8 @@ Build the given PACKAGE-OR-DERIVATION and return their output paths.\n"))
-K, --keep-failed keep build tree of failed builds")) -K, --keep-failed keep build tree of failed builds"))
(display (_ " (display (_ "
-n, --dry-run do not build the derivations")) -n, --dry-run do not build the derivations"))
(display (_ "
--local-build build locally instead of resorting to substitutes"))
(display (_ " (display (_ "
-c, --cores=N allow the use of up to N CPU cores for the build")) -c, --cores=N allow the use of up to N CPU cores for the build"))
(newline) (newline)
@ -131,9 +133,12 @@ Report bugs to: ~a.~%") "@PACKAGE_BUGREPORT@"))
(if c (if c
(alist-cons 'cores c result) (alist-cons 'cores c result)
(leave (_ "~a: not a number~%") arg))))) (leave (_ "~a: not a number~%") arg)))))
(option '(#\n "dry-run") #f #F (option '(#\n "dry-run") #f #f
(lambda (opt name arg result) (lambda (opt name arg result)
(alist-cons 'dry-run? #t result))))) (alist-cons 'dry-run? #t result)))
(option '("local-build") #f #f
(lambda (opt name arg result)
(alist-cons 'local-build? #t result)))))
;;; ;;;
@ -198,7 +203,8 @@ Report bugs to: ~a.~%") "@PACKAGE_BUGREPORT@"))
;; TODO: Add more options. ;; TODO: Add more options.
(set-build-options %store (set-build-options %store
#:keep-failed? (assoc-ref opts 'keep-failed?) #:keep-failed? (assoc-ref opts 'keep-failed?)
#:build-cores (or (assoc-ref opts 'cores) 0)) #:build-cores (or (assoc-ref opts 'cores) 0)
#:use-substitutes? (not (assoc-ref opts 'local-build?)))
(if (assoc-ref opts 'derivations-only?) (if (assoc-ref opts 'derivations-only?)
(format #t "~{~a~%~}" drv) (format #t "~{~a~%~}" drv)