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

rework and reformating of services

Browse source
This commit is contained in:
Jean-François GUILLAUME 2022-11-24 15:00:33 +01:00
parent c7178062a0
commit ea3c876afc
Signed by: Jean-François GUILLAUME
GPG key ID: 38751DAE145EFB5A
7 changed files with 548 additions and 701 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,71 +1,47 @@
(define-module (glicid services rc-local)
#:use-module (gnu services)
#:use-module (gnu services shepherd)
#:use-module (guix)
#:use-module (guix records)
#:use-module (ice-9 match)
#:use-module (gnu packages bash)
#:export (
%default-rc-local-conf
rc-local-configuration
rc-local-configuration?
rc-local-service
rc-local-service-type
)
)
#:use-module (gnu services)
#:use-module (gnu services shepherd)
#:use-module (guix)
#:use-module (guix records)
#:use-module (ice-9 match)
#:use-module (gnu packages bash)
#:export (
%default-rc-local-conf
rc-local-configuration
rc-local-configuration?
rc-local-service
rc-local-service-type))
(define %default-rc-local-conf
(plain-file "rc-local" "
# Empty file as we do nothing by default
")
)
# Empty file as we do nothing by default
"))
(define-record-type* <rc-local-configuration>
(define-record-type*
<rc-local-configuration>
rc-local-configuration make-rc-local-configuration
rc-local-configuration?
(config-file rc-local-config-file
(default %default-rc-local-conf)
)
(log-file rc-local-log-file
(default "/var/log/rc-local.log")
)
)
(config-file rc-local-config-file (default %default-rc-local-conf))
(log-file log-file (default "/var/log/rc-local.log")))
(define rc-local-service
(match-lambda
(($ <rc-local-configuration> config-file log-file)
(list
(shepherd-service
(provision '(rc-local) )
(documentation "Run rc-local.")
(requirement '(user-processes))
(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))
)
)
)
)
)
(list
(shepherd-service
(provision '(rc-local))
(documentation "Run rc-local.")
(requirement '(user-processes))
(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-local-service-type
(service-type (name 'rc-local)
(extensions
(list (
service-extension
shepherd-root-service-type
rc-local-service
))
)
(description "Run a script in a rc-local like form")
)
)
(service-type
(name 'rc-local)
(extensions (list (service-extension shepherd-root-service-type rc-local-service)))
(description "Run a script in a rc-local like form")))