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

slurm

Browse source
This commit is contained in:
Jean-François GUILLAUME 2022-11-30 17:24:39 +01:00
parent 7394fa8127
commit d8b3e28a9a
Signed by: Jean-François GUILLAUME
GPG key ID: 38751DAE145EFB5A
1 changed files with 27 additions and 42 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

61
glicid/services/parallel.scm
View file

@ -29,8 +29,7 @@
slurmd-service-type
%slurm-group
%slurm-account
%slurm-accounts
))
%slurm-accounts ))
;
; Munged
;
@ -58,16 +57,14 @@
"-f" ; until we fix the permissions
"--key-file" #$key-file
)
#:log-file #$log-file
))
#:log-file #$log-file ))
(stop #~(make-kill-destructor)))))))
(define %munged-activation
#~(begin
(mkdir-p "/var/run/munge")
(mkdir-p "/var/lib/munge")
#t
))
#t ))
(define munged-service-type
(service-type
@ -90,8 +87,7 @@
(home-directory "/var/spool/slurm")
(shell (file-append bash "/bin/bash"))))
(define %slurm-accounts
(list %slurm-group %slurm-account))
(define %slurm-accounts (list %slurm-group %slurm-account))
;
; slurmdbd
@ -100,9 +96,9 @@
<slurmdbd-configuration>
slurmdbd-configuration make-slurmdbd-configuration
slurmdbd-configuration?
(slurm slurm-configuration-slurm (default slurm))
(slurmdbd-conf slurmdbd-slurmdbd-conf (default (file-append slurm "/etc/slurm/slurmdbd.conf")))
(log-file slurmdbd-log-file (default "/var/log/slurm/slurmdbd.log")))
(slurm slurm (default slurm))
(slurmdbd-conf slurmdbd-conf (default (file-append slurm "/etc/slurm/slurmdbd.conf")))
(log-file log-file (default "/var/log/slurm/slurmdbd.log")))
(define slurmdbd-service
(match-lambda
@ -116,12 +112,10 @@
(start #~(make-forkexec-constructor
(list
#$(file-append slurm "/sbin/slurmdbd")
"-D"
)
"-D" )
#:log-file #$log-file
#:user (passwd:uid (getpwnam "slurm"))
#:group (passwd:gid (getpwnam "slurm"))
))
#:group (passwd:gid (getpwnam "slurm"))))
(stop #~(make-kill-destructor)))))))
(define %slurmdbd-activation
@ -144,8 +138,7 @@
(chown slurm-file (passwd:uid (getpwnam "slurm")) (passwd:gid (getpwnam "slurm")))
(chmod slurm-file #o600)
)(find-files "/etc/slurm/"))
#t
))
#t ))
(define slurmdbd-service-type
(service-type
@ -163,9 +156,9 @@
<slurmctld-configuration>
slurmctld-configuration make-slurmctld-configuration
slurmctld-configuration?
(slurm slurm-configuration-slurm (default slurm))
(slurmctld-conf slurmctld-slurmctld-conf (default (file-append slurm "/etc/slurm/slurmctld.conf")))
(log-file slurmctld-log-file (default "/var/log/slurm/slurmctld.log")))
(slurm slurm (default slurm))
(slurmctld-conf slurmctld-conf (default (file-append slurm "/etc/slurm/slurmctld.conf")))
(log-file log-file (default "/var/log/slurm/slurmctld.log")))
(define slurmctld-service
(match-lambda
@ -180,12 +173,10 @@
(list
#$(file-append slurm "/sbin/slurmctld")
"-D" "-R"
"-f" #$slurmctld-conf
)
"-f" #$slurmctld-conf )
#:log-file #$log-file
#:user (passwd:uid (getpwnam "slurm"))
#:group (passwd:gid (getpwnam "slurm"))
))
#:group (passwd:gid (getpwnam "slurm"))))
(stop #~(make-kill-destructor)))))))
(define %slurmctld-activation
@ -226,12 +217,11 @@
<slurmd-configuration>
slurmd-configuration make-slurmd-configuration
slurmd-configuration?
(slurm slurm-configuration-slurm (default slurm))
(slurmd-conf slurmd-slurmd-conf (default (file-append slurm "/etc/slurm/slurm.conf")))
(log-file slurmd-log-file (default "/var/log/slurm/slurmd.log"))
(slurmctld-host slurmd-slurmctld-host (default #f)); string slurmctld-host[:port]
(log-level slurmd-log-level (default #f)); string Verbose mode. Multiple -v's increase verbosity
)
(slurm slurm (default slurm))
(slurmd-conf slurmd-conf (default (file-append slurm "/etc/slurm/slurm.conf")))
(log-file log-file (default "/var/log/slurm/slurmd.log"))
(slurmctld-host slurmctld-host (default #f))
(log-level log-level (default #f)))
(define slurmd-service
(match-lambda
@ -248,16 +238,11 @@
"-D"
#$@(if slurmctld-host
(list (string-append "--conf-server" slurmctld-host))
(list (string-append "-f" slurmd-conf))
)
(list (string-append "-f" slurmd-conf)))
#$@(if log-level
(list log-level)
'()
)
)
#:log-file #$log-file
))
'()))
#:log-file #$log-file ))
(stop #~(make-kill-destructor)))))))
(define %slurmd-activation