Add tux04 slurm deployment.

* slurm-deploy.sh, slurm.scm: New files.

2 files changed, 136 insertions, 0 deletions

diff --git a/slurm-deploy.sh b/slurm-deploy.sh
new file mode 100755
index 0000000..8118d56
--- /dev/null
+++ b/slurm-deploy.sh
@@ -0,0 +1,19 @@
+#! /bin/sh -xe
+
+##
+## Test slurm deployment on tux04
+##
+
+slurm=$(guix build -f slurm.scm)
+echo $slurm
+
+# Symlink slurm daemon executables and systemd service files.
+for executable in slurmctld slurmdbd slurmd slurmrestd;
+do
+    sudo ln --no-target-directory --force --symbolic $slurm/sbin/$executable /usr/local/sbin/$executable
+    sudo ln --no-target-directory --force --symbolic $slurm/etc/$executable.service /etc/systemd/system/$executable.service
+done
+
+# It is enough to register one gcroot as that marks the whole store
+# item as live.
+sudo ln --force --symbolic /usr/local/sbin/slurmd /var/guix/gcroots
diff --git a/slurm.scm b/slurm.scm
new file mode 100644
index 0000000..a46e161
--- /dev/null
+++ b/slurm.scm
@@ -0,0 +1,117 @@
+;;
+;; Test slurm deployment on tux04
+;;
+
+(use-modules ((gnu packages check) #:select (check))
+             ((gnu packages databases) #:select (mariadb))
+             ((gnu packages glib) #:select (dbus))
+             ((gnu packages linux) #:select (linux-libre-headers))
+             ((gnu packages networking) #:select (librdkafka))
+             ((gnu packages parallel) #:select (slurm) #:prefix guix:)
+             ((gnu packages pkg-config) #:select (pkg-config))
+             ((gnu packages serialization) #:select (libyaml))
+             ((gnu packages tls) #:select (openssl))
+             ((gnu packages web) #:select (jansson json-c))
+             (guix download)
+             (guix build-system gnu)
+             (guix gexp)
+             (guix git-download)
+             ((guix licenses) #:prefix license:)
+             (guix packages)
+             (guix utils))
+
+(define-public http-parser
+  (package
+    (name "http-parser")
+    (version "2.9.4")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://github.com/nodejs/http-parser")
+             (commit (string-append "v" version))))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32
+         "1vda4dp75pjf5fcph73sy0ifm3xrssrmf927qd1x8g3q46z0cv6c"))))
+    (build-system gnu-build-system)
+    (arguments
+     (list #:make-flags #~(list (string-append "PREFIX=" #$output)
+                                (string-append "CC=" #$(cc-for-target))
+                                "library")
+           #:test-target "test"
+           #:phases
+           #~(modify-phases %standard-phases
+               (delete 'configure))))
+    (home-page "https://github.com/nodejs/http-parser")
+    (synopsis "C HTTP request/response parser")
+    (description "@code{http-parser} is a parser for HTTP messages
+written in C.  It parses both requests and responses.  The parser is
+designed to be used in performance HTTP applications.  It does not
+make any syscalls nor allocations, it does not buffer data, it can be
+interrupted at anytime.  Depending on your architecture, it only
+requires about 40 bytes of data per message stream (in a web server
+that is per connection).")
+    (license license:expat)))
+
+(define-public libjwt
+  (package
+    (name "libjwt")
+    (version "1.17.1")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "https://github.com/benmcollins/libjwt/releases/download/v"
+                                  version "/libjwt-"
+                                  version ".tar.bz2"))
+              (sha256
+               (base32
+                "0wkdl2qnic2by0j8bj1n90m2hrzlxjm913gf19syxq655z6zzf0x"))))
+    (build-system gnu-build-system)
+    (inputs
+     (list jansson openssl))
+    (native-inputs
+     (list check pkg-config))
+    (home-page "https://github.com/benmcollins/libjwt")
+    (synopsis "C JWT library")
+    (description "@code{libjwt} is a JWT library for C.")
+    (license license:mpl2.0)))
+
+(define slurm
+  (package
+    (inherit guix:slurm)
+    (arguments
+     (substitute-keyword-arguments (package-arguments guix:slurm)
+       ((#:configure-flags flags #~'())
+        #~(cons* "--enable-slurmrestd"
+                 (string-append "--with-http-parser="
+                                #$(this-package-input "http-parser"))
+                 (string-append "--with-rdkafka="
+                                #$(this-package-input "librdkafka"))
+                 (string-append "--with-bpf="
+                                #$(this-package-input "linux-libre-headers"))
+                 "--sysconfdir=/etc"
+                 #$flags))
+       ((#:phases phases #~%standard-phases)
+        #~(modify-phases #$phases
+            (add-after 'install 'install-systemd-service-files
+              (lambda _
+                (for-each (lambda (file)
+                            (install-file file
+                                          (string-append #$output "/etc")))
+                          (list "etc/slurmrestd.service"
+                                "etc/slurmdbd.service"
+                                "etc/slurmd.service"
+                                "etc/slurmctld.service"))
+                (substitute* (string-append #$output "/etc/slurmrestd.service")
+                  ;; Set user and group to run slurmrestd as.
+                  (("# User=") "User=slurmrestd")
+                  (("# Group=") "Group=slurmrestd")
+                  ;; Disable listening on Unix socket by default.
+                  ((" unix:[^ ]*") ""))))))))
+    (inputs
+     (modify-inputs (package-inputs guix:slurm)
+       (prepend dbus http-parser json-c libjwt
+                librdkafka libyaml linux-libre-headers
+                (list mariadb "dev"))))))
+
+slurm