1 ;;; GNU Guix --- Functional package management for GNU
2 ;;; Copyright © 2015 Claes Wallin <claes.wallin@greatsinodevelopment.com>
3 ;;; Copyright © 2016 Eric Le Bihan <eric.le.bihan.dev@free.fr>
4 ;;; Copyright © 2017 Z. Ren <zren@dlut.edu.cn>
5 ;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
6 ;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com>
8 ;;; This file is part of GNU Guix.
10 ;;; GNU Guix is free software; you can redistribute it and/or modify it
11 ;;; under the terms of the GNU General Public License as published by
12 ;;; the Free Software Foundation; either version 3 of the License, or (at
13 ;;; your option) any later version.
15 ;;; GNU Guix is distributed in the hope that it will be useful, but
16 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;;; GNU General Public License for more details.
20 ;;; You should have received a copy of the GNU General Public License
21 ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
23 (define-module (gnu packages skarnet)
24 #:use-module (gnu packages)
25 #:use-module (guix licenses)
26 #:use-module (guix packages)
27 #:use-module (guix download)
28 #:use-module (guix build-system gnu))
30 (define-public skalibs
37 (uri (string-append "https://skarnet.org/software/skalibs/skalibs-"
40 (base32 "0ff551181vv9d1z5sv7yg6n4b88ajcdircs4p4nif4yl7nsrj2r5"))))
41 (build-system gnu-build-system)
43 '(#:tests? #f ; no tests exist
44 #:phases (modify-phases %standard-phases
45 (add-after 'unpack 'reproducible
47 ;; Sort source files deterministically so that the *.a
48 ;; and *.so files are reproducible.
49 (substitute* "Makefile"
50 (("\\$\\(wildcard src/lib\\*/\\*.c\\)")
51 "$(sort $(wildcard src/lib*/*.c))"))
53 (home-page "https://skarnet.org/software/skalibs/")
54 (synopsis "Platform abstraction libraries for skarnet.org software")
56 "This package provides lightweight C libraries isolating the developer
57 from portability issues, providing a unified systems API on all platforms,
58 including primitive data types, cryptography, and POSIX concepts like sockets
59 and file system operations. It is used by all skarnet.org software.")
62 (define-public execline
69 (uri (string-append "https://skarnet.org/software/execline/execline-"
72 (base32 "0wdg93hwpxxdqmsnd8j1nf3m2pf85n3rxaawzaih1y0ajyz6gwya"))))
73 (build-system gnu-build-system)
74 (inputs `(("skalibs" ,skalibs)))
76 '(#:configure-flags (list
77 (string-append "--with-lib="
78 (assoc-ref %build-inputs "skalibs")
80 (string-append "--with-sysdeps="
81 (assoc-ref %build-inputs "skalibs")
82 "/lib/skalibs/sysdeps"))
83 #:phases (modify-phases %standard-phases
85 'install 'post-install
86 (lambda* (#:key inputs outputs #:allow-other-keys)
87 (let* ((out (assoc-ref outputs "out"))
88 (bin (string-append out "/bin")))
89 (wrap-program (string-append bin "/execlineb")
90 `("PATH" ":" prefix (,bin)))))))
91 #:tests? #f)) ; no tests exist
92 (home-page "https://skarnet.org/software/execline/")
94 (synopsis "Non-interactive shell-like language with minimal overhead")
96 "Execline is a (non-interactive) scripting language, separated into a
97 parser (execlineb) and a set of commands meant to execute one another in a
98 chain-execution fashion, storing the whole script in the argument array.
99 It features conditional loops, getopt-style option handling, file name
100 globbing, redirection and other shell concepts, expressed as discrete commands
101 rather than in special syntax, minimizing runtime footprint and
111 (uri (string-append "https://skarnet.org/software/s6/s6-"
114 (base32 "1xqzl2wnvcmcyhppk7mc10h1ac7fkik3i6gpyliwpf3d5i9mkqh5"))))
115 (build-system gnu-build-system)
116 (inputs `(("skalibs" ,skalibs)
117 ("execline" ,execline)))
119 `(#:configure-flags (list
120 (string-append "--with-lib="
121 (assoc-ref %build-inputs "skalibs")
123 (string-append "--with-lib="
124 (assoc-ref %build-inputs "execline")
126 (string-append "--with-sysdeps="
127 (assoc-ref %build-inputs "skalibs")
128 "/lib/skalibs/sysdeps"))
129 #:tests? #f ; no tests exist
131 (modify-phases %standard-phases
132 (add-after 'install 'install-doc
133 (lambda* (#:key outputs #:allow-other-keys)
134 (let* ((out (assoc-ref outputs "out"))
135 (doc (string-append out "/share/doc/s6-" ,version)))
136 (copy-recursively "doc" doc)
138 (home-page "https://skarnet.org/software/s6")
140 (synopsis "Small suite of programs for process supervision")
142 "s6 is a small suite of programs for UNIX, designed to allow process
143 supervision (a.k.a. service supervision), in the line of daemontools and
144 runit, as well as various operations on processes and daemons. It is meant to
145 be a toolbox for low-level process and service administration, providing
146 different sets of independent tools that can be used within or without the
147 framework, and that can be assembled together to achieve powerful
148 functionality with a very small amount of code.")))
150 (define-public s6-dns
157 (uri (string-append "https://skarnet.org/software/s6-dns/s6-dns-"
160 (base32 "09hyb1xv9glqq0yy7wy8hiwvlr78kwv552pags8ancgamag15di7"))))
161 (build-system gnu-build-system)
162 (inputs `(("skalibs" ,skalibs)))
164 '(#:configure-flags (list
165 (string-append "--with-lib="
166 (assoc-ref %build-inputs "skalibs")
168 (string-append "--with-sysdeps="
169 (assoc-ref %build-inputs "skalibs")
170 "/lib/skalibs/sysdeps"))
171 #:tests? #f)) ; no tests exist
172 (home-page "https://skarnet.org/software/s6-dns")
174 (synopsis "Suite of DNS client programs")
176 "s6-dns is a suite of DNS client programs and libraries for Unix systems,
177 as an alternative to the BIND, djbdns or other DNS clients.")))
179 (define-public s6-networking
181 (name "s6-networking")
186 (uri (string-append "https://skarnet.org/software/s6-networking/s6-networking-"
189 (base32 "1029bgwfmv903y5ji93j75m7p2jgchdxya1khxzb42q2z7yxnlyr"))))
190 (build-system gnu-build-system)
191 (inputs `(("skalibs" ,skalibs)
192 ("execline" ,execline)
196 '(#:configure-flags (list
197 (string-append "--with-lib="
198 (assoc-ref %build-inputs "skalibs")
200 (string-append "--with-lib="
201 (assoc-ref %build-inputs "execline")
203 (string-append "--with-lib="
204 (assoc-ref %build-inputs "s6")
206 (string-append "--with-lib="
207 (assoc-ref %build-inputs "s6-dns")
209 (string-append "--with-sysdeps="
210 (assoc-ref %build-inputs "skalibs")
211 "/lib/skalibs/sysdeps"))
212 #:tests? #f)) ; no tests exist
213 (home-page "https://skarnet.org/software/s6-networking")
215 (synopsis "Suite of network utilities for Unix systems")
217 "s6-networking is a suite of small networking utilities for Unix systems.
218 It includes command-line client and server management, TCP access control,
219 privilege escalation across UNIX domain sockets, IDENT protocol management and
220 clock synchronization.")))
229 (uri (string-append "https://skarnet.org/software/s6-rc/s6-rc-"
232 (base32 "18m8jsx3bkj566p6xwwnsvdckk10n8wqnhp0na2k88i295h4rnjp"))))
233 (build-system gnu-build-system)
234 (inputs `(("skalibs" ,skalibs)
235 ("execline" ,execline)
238 '(#:configure-flags (list
239 (string-append "--with-lib="
240 (assoc-ref %build-inputs "skalibs")
242 (string-append "--with-lib="
243 (assoc-ref %build-inputs "execline")
245 (string-append "--with-lib="
246 (assoc-ref %build-inputs "s6")
248 (string-append "--with-sysdeps="
249 (assoc-ref %build-inputs "skalibs")
250 "/lib/skalibs/sysdeps"))
251 #:tests? #f)) ; no tests exist
252 (home-page "https://skarnet.org/software/s6-rc")
254 (synopsis "Service manager for s6-based systems")
256 "s6-rc is a service manager for s6-based systems, i.e. a suite of
257 programs that can start and stop services, both long-running daemons and
258 one-time initialization scripts, in the proper order according to a dependency
259 tree. It ensures that long-running daemons are supervised by the s6
260 infrastructure, and that one-time scripts are also run in a controlled
263 (define-public s6-portable-utils
265 (name "s6-portable-utils")
271 "https://skarnet.org/software/s6-portable-utils/s6-portable-utils-"
274 (base32 "0494saavpqfa4v5kib69p186858yjy87hm5qm804a4xvq51wqbwm"))))
275 (build-system gnu-build-system)
276 (inputs `(("skalibs" ,skalibs)))
278 '(#:configure-flags (list
279 (string-append "--with-lib="
280 (assoc-ref %build-inputs "skalibs")
282 (string-append "--with-sysdeps="
283 (assoc-ref %build-inputs "skalibs")
284 "/lib/skalibs/sysdeps"))
285 #:tests? #f)) ; no tests exist
286 (home-page "https://skarnet.org/software/s6-portable-utils")
288 (synopsis "Tiny command-line Unix utilities")
290 "s6-portable-utils is a set of tiny general Unix utilities, often
291 performing well-known tasks such as @command{cut} and @command{grep}, but
292 optimized for simplicity and small size. They were designed for embedded
293 systems and other constrained environments, but they work everywhere.")))
295 (define-public s6-linux-init
297 (name "s6-linux-init")
303 "https://skarnet.org/software/s6-linux-init/s6-linux-init-"
306 (base32 "176mgkqxlp6gb6my66dv73xsp7adfxbjp5hjyh35sykqkr4kfyfy"))))
307 (build-system gnu-build-system)
309 `(("execline" ,execline)
311 ("skalibs" ,skalibs)))
315 (string-append "--with-lib="
316 (assoc-ref %build-inputs "skalibs")
318 (string-append "--with-lib="
319 (assoc-ref %build-inputs "execline")
321 (string-append "--with-lib="
322 (assoc-ref %build-inputs "s6")
324 (string-append "--with-sysdeps="
325 (assoc-ref %build-inputs "skalibs")
326 "/lib/skalibs/sysdeps"))
327 #:tests? #f)) ; no tests exist
328 (home-page "https://skarnet.org/software/s6-linux-init")
330 (synopsis "Minimalistic tools to create an s6-based init system on Linux")
332 "s6-linux-init is a set of minimalistic tools to create a s6-based init
333 system, including an @command{/sbin/init} binary, on a Linux kernel.
335 It is meant to automate creation of scripts revolving around the use of other
336 skarnet.org tools, especially s6, in order to provide a complete booting
337 environment with integrated supervision and logging without having to hand-craft
340 (define-public s6-linux-utils
342 (name "s6-linux-utils")
348 "https://skarnet.org/software/s6-linux-utils/s6-linux-utils-"
351 (base32 "0w4jms9qyb5kx9zcyd3gzri60rrii2rbmh08s59ckg4awy27py86"))))
352 (build-system gnu-build-system)
353 (inputs `(("skalibs" ,skalibs)))
355 '(#:configure-flags (list
356 (string-append "--with-lib="
357 (assoc-ref %build-inputs "skalibs")
359 (string-append "--with-sysdeps="
360 (assoc-ref %build-inputs "skalibs")
361 "/lib/skalibs/sysdeps"))
362 #:tests? #f)) ; no tests exist
363 (home-page "https://skarnet.org/software/s6-linux-utils")
365 (synopsis "Set of minimalistic Linux-specific system utilities")
367 "s6-linux-utils is a set of minimalistic Linux-specific system utilities,
368 such as @command{mount}, @command{umount}, and @command{chroot} commands,
369 Linux uevent listeners, a @command{devd} device hotplug daemon, and more.")))