diff options
Diffstat (limited to 'slurm.scm')
| -rw-r--r-- | slurm.scm | 117 |
1 files changed, 117 insertions, 0 deletions
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 |