[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
64/64: scripts: system: Add --target option.
From: |
guix-commits |
Subject: |
64/64: scripts: system: Add --target option. |
Date: |
Fri, 23 Aug 2019 04:10:26 -0400 (EDT) |
mothacehe pushed a commit to branch wip-cross-system
in repository guix.
commit a5d9ed21c933b96c4ea7c7573b318140f9f988de
Author: Mathieu Othacehe <address@hidden>
Date: Sun Aug 18 13:09:05 2019 +0200
scripts: system: Add --target option.
* guix/scripts/system.scm (%options): Add target option,
(%default-options): ditto,
(process-action): Rename existing target variable to target-file and pass
new
target variable to run-with-store procedure.
---
guix/scripts/system.scm | 15 ++++++++++++---
1 file changed, 12 insertions(+), 3 deletions(-)
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index 9fc3a10..f8040dd 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -2,7 +2,7 @@
;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès
<address@hidden>
;;; Copyright © 2016 Alex Kost <address@hidden>
;;; Copyright © 2016, 2017, 2018 Chris Marusich <address@hidden>
-;;; Copyright © 2017 Mathieu Othacehe <address@hidden>
+;;; Copyright © 2017, 2019 Mathieu Othacehe <address@hidden>
;;; Copyright © 2018 Ricardo Wurmus <address@hidden>
;;; Copyright © 2019 Christopher Baines <address@hidden>
;;;
@@ -930,6 +930,8 @@ Some ACTIONS support additional ARGS.\n"))
(display (G_ "
--skip-checks skip file system and initrd module safety checks"))
(display (G_ "
+ --target=TRIPLET cross-build for TRIPLET--e.g., \"armel-linux-gnu\""))
+ (display (G_ "
-v, --verbosity=LEVEL use the given verbosity LEVEL"))
(newline)
(display (G_ "
@@ -1002,6 +1004,10 @@ Some ACTIONS support additional ARGS.\n"))
(lambda (opt name arg result)
(alist-cons 'system arg
(alist-delete 'system result eq?))))
+ (option '("target") #t #f
+ (lambda (opt name arg result)
+ (alist-cons 'target arg
+ (alist-delete 'target result eq?))))
(option '(#\r "root") #t #f
(lambda (opt name arg result)
(alist-cons 'gc-root arg result)))
@@ -1010,6 +1016,7 @@ Some ACTIONS support additional ARGS.\n"))
(define %default-options
;; Alist of default option values.
`((system . ,(%current-system))
+ (target . #f)
(substitutes? . #t)
(build-hook? . #t)
(print-build-trace? . #t)
@@ -1043,6 +1050,7 @@ resulting from command-line parsing."
((x . _) x)))
(expr (assoc-ref opts 'expression))
(system (assoc-ref opts 'system))
+ (target (assoc-ref opts 'target))
(os (ensure-operating-system
(or file expr)
(cond
@@ -1059,7 +1067,7 @@ resulting from command-line parsing."
(dry? (assoc-ref opts 'dry-run?))
(bootloader? (assoc-ref opts 'install-bootloader?))
- (target (match args
+ (target-file (match args
((first second) second)
(_ #f)))
(bootloader-target
@@ -1101,9 +1109,10 @@ resulting from command-line parsing."
(_ #f))
opts)
#:install-bootloader? bootloader?
- #:target target
+ #:target target-file
#:bootloader-target bootloader-target
#:gc-root (assoc-ref opts 'gc-root)))))
+ #:target target
#:system system))
(warn-about-disk-space)))
- 30/64: gnu: icu4c: Fix cross-compilation., (continued)
- 30/64: gnu: icu4c: Fix cross-compilation., guix-commits, 2019/08/23
- 33/64: gnu: eudev: Fix cross-compilation., guix-commits, 2019/08/23
- 42/64: gnu: doxygen: Fix cross-compilation., guix-commits, 2019/08/23
- 59/64: gexp: Pass target to compiled-modules in lower-gexp., guix-commits, 2019/08/23
- 43/64: gnu: guile-sqlite3: Fix cross-compilation., guix-commits, 2019/08/23
- 60/64: utils: Use target-arm64? and target-arm? helpers., guix-commits, 2019/08/23
- 48/64: gnu: libnl: Fix cross-compilation., guix-commits, 2019/08/23
- 56/64: linux-initrd: Use native gzip., guix-commits, 2019/08/23
- 54/64: gnu: mdadm: Fix cross-compilation., guix-commits, 2019/08/23
- 51/64: gnu: guile-wm: Fix cross-compilation., guix-commits, 2019/08/23
- 64/64: scripts: system: Add --target option.,
guix-commits <=
- 63/64: system: vm: Support cross-compilation., guix-commits, 2019/08/23