From 813bcbc4eaa820821c3fc52e539c5244e192601c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Mon, 10 Oct 2016 09:57:36 +0200
Subject: [PATCH] bournish: Add 'reboot' command.
Suggested by Ricardo Wurmus.
* guix/build/bournish.scm (reboot-command): New procedure.
(%commands): Add it.
---
guix/build/bournish.scm | 14 +++++++++++++-
1 file changed, 13 insertions(+), 1 deletion(-)
diff --git a/guix/build/bournish.scm b/guix/build/bournish.scm
index 928bef5b9e1..51dad17ba72 100644
--- a/guix/build/bournish.scm
+++ b/guix/build/bournish.scm
@@ -162,6 +162,17 @@ (define (wc-command . args)
(else
`((@@ (guix build bournish) wc-command-implementation) ,@args))))
+(define (reboot-command . args)
+ "Emit code for 'reboot'."
+ ;; Normally Bournish is used in the initrd, where 'reboot' is provided
+ ;; directly by (guile-user). In other cases, just bail out.
+ `(if (defined? 'reboot)
+ (reboot)
+ (begin
+ (format (current-error-port)
+ "I don't know how to reboot, sorry about that!~%")
+ #f)))
+
(define (help-command . _)
(display "\
Hello, this is Bournish, a minimal Bourne-like shell in Guile!
@@ -189,7 +200,8 @@ (define %commands
("ls" ,ls-command)
("which" ,which-command)
("cat" ,cat-command)
- ("wc" ,wc-command)))
+ ("wc" ,wc-command)
+ ("reboot" ,reboot-command)))
(define (read-bournish port env)
"Read a Bournish expression from PORT, and return the corresponding Scheme
--
GitLab