GLiCID/guix-glicid
7
0
Fork 0
mirror of https://gitlab.univ-nantes.fr/glicid-public/guix-glicid.git synced 2025-04-29 21:58:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

add a multiple rclocal variant

Browse source
This commit is contained in:
Yann Dupont 2024-10-30 15:07:21 +01:00
parent 9a3ce52d0e
commit 4944bc9827
1 changed files with 43 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

44
glicid/services/rc-local.scm
View file

@ -10,7 +10,16 @@
rc-local-configuration rc-local-configuration
rc-local-configuration? rc-local-configuration?
rc-local-service rc-local-service
rc-local-service-type)) rc-local-service-type
%default-rc-multiplelocal-conf
rc-multiplelocal-configuration
rc-multiplelocal-configuration?
rc-multiplelocal-service
rc-multiplelocal-service-type
))
(define %default-rc-local-conf (define %default-rc-local-conf
(plain-file "rc-local" " (plain-file "rc-local" "
@ -45,3 +54,36 @@
(extensions (list (service-extension shepherd-root-service-type rc-local-service))) (extensions (list (service-extension shepherd-root-service-type rc-local-service)))
(description "Run a script in a rc-local like form"))) (description "Run a script in a rc-local like form")))
(define %default-rc-multiplelocal-conf
(plain-file "rc-multiplelocal" "
# Empty file as we do nothing by default
"))
(define-record-type*
<rc-multiplelocal-configuration>
rc-multiplelocal-configuration make-rc-multiplelocal-configuration
rc-multiplelocal-configuration?
(config-file rc-multiplelocal-config-file (default %default-rc-multiplelocal-conf))
(log-file log-file (default "/var/log/rc-multiplelocal.log")))
(define rc-multiplelocal-service
(match-lambda
(($ <rc-multiplelocal-configuration> config-file log-file)
(list
(shepherd-service
(provision '(rc-multiplelocal))
(documentation "Run rc-multiplelocal.")
(requirement '(user-processes udev))
(respawn? #f)
(one-shot? #t)
(start #~(make-forkexec-constructor
(list #$(file-append bash "/bin/bash") "-l" #$config-file)
#:log-file #$log-file ))
(stop #~(make-kill-destructor)))))))
(define rc-multiplelocal-service-type
(service-type
(name 'rc-multiplelocal)
(extensions (list (service-extension shepherd-root-service-type rc-multiplelocal-service)))
(description "Run a script in a rc-multiplelocal like form")))