123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119 |
- (define-module (gnu services hurd)
- #:use-module (gnu packages admin)
- #:use-module (gnu packages hurd)
- #:use-module (gnu services)
- #:use-module (gnu services shepherd)
- #:use-module (gnu system)
- #:use-module (guix gexp)
- #:use-module (guix records)
- #:export (hurd-console-configuration
- hurd-console-service-type
- hurd-getty-configuration
- hurd-getty-service-type))
- (define-record-type* <hurd-console-configuration>
- hurd-console-configuration make-hurd-console-configuration
- hurd-console-configuration?
- (hurd hurd-console-configuration-hurd
- (default hurd)))
- (define (hurd-console-shepherd-service config)
- "Return a <shepherd-service> for a Hurd VGA console with CONFIG."
- (define console-command
- #~(list
- (string-append #$(hurd-console-configuration-hurd config) "/bin/console")
- "-c" "/dev/vcs"
- "-d" "vga"
- "-d" "pc_kbd"
- "-d" "generic_speaker"))
- (list (shepherd-service
- (documentation "Run the Hurd’s VGA console client.")
- (provision '(console))
- (requirement '(user-processes))
- (start #~(make-forkexec-constructor #$console-command))
- (stop #~(make-kill-destructor)))))
- (define hurd-console-service-type
- (service-type
- (name 'console)
- (description "Run the Hurd console client.")
- (extensions
- (list (service-extension shepherd-root-service-type
- hurd-console-shepherd-service)))
- (default-value (hurd-console-configuration))))
- (define-record-type* <hurd-getty-configuration>
- hurd-getty-configuration make-hurd-getty-configuration
- hurd-getty-configuration?
- (hurd hurd-getty-configuration-hurd
- (default hurd))
- (tty hurd-getty-configuration-tty)
- (baud-rate hurd-getty-configuration-baud-rate
- (default 38400)))
- (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.")))
|