diff mbox series

[bug#57314] guix system: Use standard cross and native build options.

Message ID 20220821061125.47120-1-bauermann@kolabnow.com
State Accepted
Headers show
Series [bug#57314] guix system: Use standard cross and native build options. | expand

Checks

Context Check Description
cbaines/comparison success View comparision
cbaines/git-branch success View Git branch
cbaines/applying patch success View Laminar job
cbaines/issue success View issue

Commit Message

Thiago Jung Bauermann Aug. 21, 2022, 6:11 a.m. UTC 
This change prevents guix system from erroring out with an ugly backtrace
when it's passed an invalid value to the “--system” or “--target”
option. It also adds the “--list-systems” and “--list-targets” options.

The manual section about guix system doesn't mention the “--target” option,
so add it there.

* guix/scripts/system (show-help): Call show-cross-build-options-help and
show-native-build-options-help.
(%options): Remove own implementation of “system” and “target” options and
use the ones in %standard-cross-build-options and
%standard-native-build-options.
* doc/guix.texi (Invoking guix system): Document “--target” option.
---
 doc/guix.texi           |  5 +++++
 guix/scripts/system.scm | 16 +++++++---------
 2 files changed, 12 insertions(+), 9 deletions(-)

Comments

Mathieu Othacehe Aug. 30, 2022, 6:56 a.m. UTC | #1 
Hello Thiago,

> This change prevents guix system from erroring out with an ugly backtrace
> when it's passed an invalid value to the “--system” or “--target”
> option. It also adds the “--list-systems” and “--list-targets” options.
>
> The manual section about guix system doesn't mention the “--target” option,
> so add it there.

Looks nice, pushed!

Thanks,

Mathieu
Thiago Jung Bauermann Aug. 31, 2022, 5:16 a.m. UTC | #2 
Hello Mathieu,

Mathieu Othacehe <othacehe@gnu.org> writes:

> Hello Thiago,
>
>> This change prevents guix system from erroring out with an ugly backtrace
>> when it's passed an invalid value to the “--system” or “--target”
>> option. It also adds the “--list-systems” and “--list-targets” options.
>>
>> The manual section about guix system doesn't mention the “--target” option,
>> so add it there.
>
> Looks nice, pushed!

Thank you!
diff mbox series

Patch

diff --git a/doc/guix.texi b/doc/guix.texi
index 023b48ae3507..e8f05ffdeb51 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -37533,6 +37533,11 @@  Installation Image}).
 Attempt to build for @var{system} instead of the host system type.
 This works as per @command{guix build} (@pxref{Invoking guix build}).
 
+@item --target=@var{triplet}
+Cross-build for @var{triplet}, which must be a valid GNU triplet, such
+as @code{"aarch64-linux-gnu"} (@pxref{Specifying target triplets, GNU
+configuration triplets,, autoconf, Autoconf}).
+
 @item --derivation
 @itemx -d
 Return the derivation file name of the given operating system without
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index be6e83994100..443e9d3282fc 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -1046,6 +1046,10 @@  (define (show-help)
                          for 'describe' and 'list-generations', list installed
                          packages matching REGEXP"))
   (newline)
+  (show-cross-build-options-help)
+  (newline)
+  (show-native-build-options-help)
+  (newline)
   (display (G_ "
   -h, --help             display this help and exit"))
   (display (G_ "
@@ -1136,14 +1140,6 @@  (define %options
                    (let ((level (string->number* arg)))
                      (alist-cons 'verbosity level
                                  (alist-delete 'verbosity result)))))
-         (option '(#\s "system") #t #f
-                 (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)))
@@ -1153,7 +1149,9 @@  (define %options
          (option '(#\I "list-installed") #f #t
                  (lambda (opt name arg result)
                    (alist-cons 'list-installed (or arg "") result)))
-         %standard-build-options))
+         (append %standard-build-options
+                 %standard-cross-build-options
+                 %standard-native-build-options)))
 
 (define %default-options
   ;; Alist of default option values.