aboutsummaryrefslogtreecommitdiff
path: root/gnu/services
diff options
context:
space:
mode:
authorJan (janneke) Nieuwenhuizen <janneke@gnu.org>2020-05-07 11:14:01 +0200
committerJan Nieuwenhuizen <janneke@gnu.org>2020-06-08 14:26:14 +0200
commit7ccd471c71d650055e99cd02381bc8dcd86d5313 (patch)
treefff801b211dab87947ea50a42babbbfcf91b27b3 /gnu/services
parentf9c04580bf5462bb088f47ad8fc6c3136649cbd6 (diff)
downloadguix-7ccd471c71d650055e99cd02381bc8dcd86d5313.tar.gz
guix-7ccd471c71d650055e99cd02381bc8dcd86d5313.zip
services: Add `hurd-getty-service-type'.
* gnu/services/hurd.scm (<hurd-gettty-configuration>): New record. (hurd-ttys-shepherd-service): New procedure. (hurd-getty-service-type): New variable. * doc/guix.texi (Hurd Services): Document it.
Diffstat (limited to 'gnu/services')
-rw-r--r--gnu/services/hurd.scm52
1 files changed, 51 insertions, 1 deletions
diff --git a/gnu/services/hurd.scm b/gnu/services/hurd.scm
index 36da8e218f..1ccf164223 100644
--- a/gnu/services/hurd.scm
+++ b/gnu/services/hurd.scm
@@ -25,7 +25,9 @@
#:use-module (guix gexp)
#:use-module (guix records)
#:export (hurd-console-configuration
- hurd-console-service-type))
+ hurd-console-service-type
+ hurd-getty-configuration
+ hurd-getty-service-type))
;;; Commentary:
;;;
@@ -70,4 +72,52 @@
hurd-console-shepherd-service)))
(default-value (hurd-console-configuration))))
+
+;;;
+;;; The Hurd getty service.
+;;;
+
+(define-record-type* <hurd-getty-configuration>
+ hurd-getty-configuration make-hurd-getty-configuration
+ hurd-getty-configuration?
+ (hurd hurd-getty-configuration-hurd ;<package>
+ (default hurd))
+ (tty hurd-getty-configuration-tty) ;string
+ (baud-rate hurd-getty-configuration-baud-rate
+ (default 38400))) ;integer
+
+(define (hurd-getty-shepherd-service config)
+ "Return a <shepherd-service> for a Hurd getty with CONFIG."
+
+ (let ((hurd (hurd-getty-configuration-hurd config))
+ (tty (hurd-getty-configuration-tty config))
+ (baud-rate (hurd-getty-configuration-baud-rate config)))
+
+ (define getty-command
+ #~(list
+ (string-append #$hurd "/libexec/getty")
+ #$(number->string baud-rate)
+ #$tty))
+
+ (list
+ (shepherd-service
+ (documentation "Run getty on a tty.")
+ (provision (list (string->symbol (string-append "term-" tty))))
+ (requirement '(user-processes console))
+ (start #~(make-forkexec-constructor #$getty-command))
+ (stop #~(make-kill-destructor))))))
+
+(define hurd-getty-service-type
+ (service-type
+ (name 'getty)
+ (extensions (list (service-extension shepherd-root-service-type
+ hurd-getty-shepherd-service)))
+ (description
+ "Provide console login using the Hurd @command{getty} program.")))
+
+(define* (hurd-getty-service config)
+ "Return a service to run the Hurd getty according to @var{config}, which
+specifies the tty to run, among other things."
+ (service hurd-getty-service-type config))
+
;;; hurd.scm ends here