This commit was obtained by running: ./pre-inst-env guix style without any additional argument.
		
			
				
	
	
		
			360 lines
		
	
	
	
		
			15 KiB
		
	
	
	
		
			Scheme
		
	
	
	
	
	
			
		
		
	
	
			360 lines
		
	
	
	
		
			15 KiB
		
	
	
	
		
			Scheme
		
	
	
	
	
	
| ;;; GNU Guix --- Functional package management for GNU
 | ||
| ;;; Copyright © 2015 Claes Wallin <claes.wallin@greatsinodevelopment.com>
 | ||
| ;;; Copyright © 2016 Eric Le Bihan <eric.le.bihan.dev@free.fr>
 | ||
| ;;; Copyright © 2017 Z. Ren <zren@dlut.edu.cn>
 | ||
| ;;; Copyright © 2018–2021 Tobias Geerinckx-Rice <me@tobias.gr>
 | ||
| ;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com>
 | ||
| ;;;
 | ||
| ;;; This file is part of GNU Guix.
 | ||
| ;;;
 | ||
| ;;; GNU Guix is free software; you can redistribute it and/or modify it
 | ||
| ;;; under the terms of the GNU General Public License as published by
 | ||
| ;;; the Free Software Foundation; either version 3 of the License, or (at
 | ||
| ;;; your option) any later version.
 | ||
| ;;;
 | ||
| ;;; GNU Guix is distributed in the hope that it will be useful, but
 | ||
| ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
 | ||
| ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 | ||
| ;;; GNU General Public License for more details.
 | ||
| ;;;
 | ||
| ;;; You should have received a copy of the GNU General Public License
 | ||
| ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
 | ||
| 
 | ||
| (define-module (gnu packages skarnet)
 | ||
|   #:use-module (gnu packages)
 | ||
|   #:use-module (guix licenses)
 | ||
|   #:use-module (guix packages)
 | ||
|   #:use-module (guix download)
 | ||
|   #:use-module (guix build-system gnu))
 | ||
| 
 | ||
| (define-public skalibs
 | ||
|   (package
 | ||
|     (name "skalibs")
 | ||
|     (version "2.11.0.0")
 | ||
|     (source
 | ||
|      (origin
 | ||
|       (method url-fetch)
 | ||
|       (uri (string-append "https://skarnet.org/software/skalibs/skalibs-"
 | ||
|                           version ".tar.gz"))
 | ||
|       (sha256
 | ||
|        (base32 "1n9l7mb54dlb0iijjaf446jba6nmq1ql9n39s095ngrk5ahcipwq"))))
 | ||
|     (build-system gnu-build-system)
 | ||
|     (arguments
 | ||
|      '(#:tests? #f                      ; no tests exist
 | ||
|        #:phases (modify-phases %standard-phases
 | ||
|                   (add-after 'unpack 'reproducible
 | ||
|                     (lambda _
 | ||
|                       ;; Sort source files deterministically so that the *.a
 | ||
|                       ;; and *.so files are reproducible.
 | ||
|                       (substitute* "Makefile"
 | ||
|                         (("\\$\\(wildcard src/lib\\*/\\*.c\\)")
 | ||
|                          "$(sort $(wildcard src/lib*/*.c))")))))))
 | ||
|     (home-page "https://skarnet.org/software/skalibs/")
 | ||
|     (synopsis "Platform abstraction libraries for skarnet.org software")
 | ||
|     (description
 | ||
|      "This package provides lightweight C libraries isolating the developer
 | ||
| from portability issues, providing a unified systems API on all platforms,
 | ||
| including primitive data types, cryptography, and POSIX concepts like sockets
 | ||
| and file system operations.  It is used by all skarnet.org software.")
 | ||
|     (license isc)))
 | ||
| 
 | ||
| (define-public execline
 | ||
|   (package
 | ||
|     (name "execline")
 | ||
|     (version "2.8.1.0")
 | ||
|     (source
 | ||
|      (origin
 | ||
|       (method url-fetch)
 | ||
|       (uri (string-append "https://skarnet.org/software/execline/execline-"
 | ||
|                           version ".tar.gz"))
 | ||
|       (sha256
 | ||
|        (base32 "0msmzf5zwjcsgjlvvq28rd2i0fkdb2skmv8ii0ix8dhyckwwjmav"))))
 | ||
|     (build-system gnu-build-system)
 | ||
|     (inputs (list skalibs))
 | ||
|     (arguments
 | ||
|      '(#:configure-flags (list
 | ||
|                           (string-append "--with-lib="
 | ||
|                                          (assoc-ref %build-inputs "skalibs")
 | ||
|                                          "/lib/skalibs")
 | ||
|                           (string-append "--with-sysdeps="
 | ||
|                                          (assoc-ref %build-inputs "skalibs")
 | ||
|                                          "/lib/skalibs/sysdeps"))
 | ||
|        #:phases (modify-phases %standard-phases
 | ||
|                   (add-after
 | ||
|                    'install 'post-install
 | ||
|                    (lambda* (#:key inputs outputs #:allow-other-keys)
 | ||
|                     (let* ((out (assoc-ref outputs "out"))
 | ||
|                            (bin (string-append out "/bin")))
 | ||
|                       (wrap-program (string-append bin "/execlineb")
 | ||
|                         `("PATH" ":" prefix (,bin)))))))
 | ||
|        #:tests? #f))                    ; no tests exist
 | ||
|     (home-page "https://skarnet.org/software/execline/")
 | ||
|     (license isc)
 | ||
|     (synopsis "Non-interactive shell-like language with minimal overhead")
 | ||
|     (description
 | ||
|      "Execline is a (non-interactive) scripting language, separated into a
 | ||
| parser (execlineb) and a set of commands meant to execute one another in a
 | ||
| chain-execution fashion, storing the whole script in the argument array.
 | ||
| It features conditional loops, getopt-style option handling, file name
 | ||
| globbing, redirection and other shell concepts, expressed as discrete commands
 | ||
| rather than in special syntax, minimizing runtime footprint and
 | ||
| complexity.")))
 | ||
| 
 | ||
| (define-public s6
 | ||
|   (package
 | ||
|    (name "s6")
 | ||
|    (version "2.11.0.0")
 | ||
|    (source
 | ||
|     (origin
 | ||
|      (method url-fetch)
 | ||
|      (uri (string-append "https://skarnet.org/software/s6/s6-"
 | ||
|                          version ".tar.gz"))
 | ||
|      (sha256
 | ||
|       (base32 "1a3lj0xfhn1w3a4ygqsxy8q4dr3n48hnwml4xzdpz3nrikhy8if5"))))
 | ||
|    (build-system gnu-build-system)
 | ||
|    (inputs (list skalibs execline))
 | ||
|    (arguments
 | ||
|     `(#:configure-flags (list
 | ||
|                         (string-append "--with-lib="
 | ||
|                                        (assoc-ref %build-inputs "skalibs")
 | ||
|                                        "/lib/skalibs")
 | ||
|                         (string-append "--with-lib="
 | ||
|                                        (assoc-ref %build-inputs "execline")
 | ||
|                                        "/lib/execline")
 | ||
|                         (string-append "--with-sysdeps="
 | ||
|                                        (assoc-ref %build-inputs "skalibs")
 | ||
|                                        "/lib/skalibs/sysdeps"))
 | ||
|       #:tests? #f                       ; no tests exist
 | ||
|       #:phases
 | ||
|       (modify-phases %standard-phases
 | ||
|         (add-after 'install 'install-doc
 | ||
|           (lambda* (#:key outputs #:allow-other-keys)
 | ||
|             (let* ((out (assoc-ref outputs "out"))
 | ||
|                    (doc (string-append out "/share/doc/s6-" ,version)))
 | ||
|               (copy-recursively "doc" doc)))))))
 | ||
|    (home-page "https://skarnet.org/software/s6")
 | ||
|    (license isc)
 | ||
|    (synopsis "Small suite of programs for process supervision")
 | ||
|    (description
 | ||
|     "s6 is a small suite of programs for UNIX, designed to allow process
 | ||
| supervision (a.k.a. service supervision), in the line of daemontools and
 | ||
| runit, as well as various operations on processes and daemons.  It is meant to
 | ||
| be a toolbox for low-level process and service administration, providing
 | ||
| different sets of independent tools that can be used within or without the
 | ||
| framework, and that can be assembled together to achieve powerful
 | ||
| functionality with a very small amount of code.")))
 | ||
| 
 | ||
| (define-public s6-dns
 | ||
|   (package
 | ||
|    (name "s6-dns")
 | ||
|    (version "2.3.5.2")
 | ||
|    (source
 | ||
|     (origin
 | ||
|      (method url-fetch)
 | ||
|      (uri (string-append "https://skarnet.org/software/s6-dns/s6-dns-"
 | ||
|                          version ".tar.gz"))
 | ||
|      (sha256
 | ||
|       (base32 "0nczzjprvp6wirzycgf5h32dlgx4r8grzkqhif27n3ii6f5g78yw"))))
 | ||
|     (build-system gnu-build-system)
 | ||
|     (inputs (list skalibs))
 | ||
|     (arguments
 | ||
|      '(#:configure-flags (list
 | ||
|                           (string-append "--with-lib="
 | ||
|                                          (assoc-ref %build-inputs "skalibs")
 | ||
|                                          "/lib/skalibs")
 | ||
|                           (string-append "--with-sysdeps="
 | ||
|                                          (assoc-ref %build-inputs "skalibs")
 | ||
|                                          "/lib/skalibs/sysdeps"))
 | ||
|        #:tests? #f))                    ; no tests exist
 | ||
|     (home-page "https://skarnet.org/software/s6-dns")
 | ||
|     (license isc)
 | ||
|     (synopsis "Suite of DNS client programs")
 | ||
|     (description
 | ||
|      "s6-dns is a suite of DNS client programs and libraries for Unix systems,
 | ||
| as an alternative to the BIND, djbdns or other DNS clients.")))
 | ||
| 
 | ||
| (define-public s6-networking
 | ||
|   (package
 | ||
|    (name "s6-networking")
 | ||
|    (version "2.5.0.0")
 | ||
|    (source
 | ||
|     (origin
 | ||
|      (method url-fetch)
 | ||
|      (uri (string-append "https://skarnet.org/software/s6-networking/"
 | ||
|                          "s6-networking-" version ".tar.gz"))
 | ||
|      (sha256
 | ||
|       (base32 "1fn3g9gkwgmnxallhk82f5rly81pnkilj7n49g5fbfmaalsq96mh"))))
 | ||
|     (build-system gnu-build-system)
 | ||
|     (inputs (list skalibs execline s6 s6-dns))
 | ||
|     (arguments
 | ||
|      '(#:configure-flags (list
 | ||
|                           (string-append "--with-lib="
 | ||
|                                          (assoc-ref %build-inputs "skalibs")
 | ||
|                                          "/lib/skalibs")
 | ||
|                           (string-append "--with-lib="
 | ||
|                                          (assoc-ref %build-inputs "execline")
 | ||
|                                          "/lib/execline")
 | ||
|                           (string-append "--with-lib="
 | ||
|                                          (assoc-ref %build-inputs "s6")
 | ||
|                                          "/lib/s6")
 | ||
|                           (string-append "--with-lib="
 | ||
|                                          (assoc-ref %build-inputs "s6-dns")
 | ||
|                                          "/lib/s6-dns")
 | ||
|                           (string-append "--with-sysdeps="
 | ||
|                                          (assoc-ref %build-inputs "skalibs")
 | ||
|                                          "/lib/skalibs/sysdeps"))
 | ||
|        #:tests? #f))                    ; no tests exist
 | ||
|     (home-page "https://skarnet.org/software/s6-networking")
 | ||
|     (license isc)
 | ||
|     (synopsis "Suite of network utilities for Unix systems")
 | ||
|     (description
 | ||
|      "s6-networking is a suite of small networking utilities for Unix systems.
 | ||
| It includes command-line client and server management, TCP access control,
 | ||
| privilege escalation across UNIX domain sockets, IDENT protocol management and
 | ||
| clock synchronization.")))
 | ||
| 
 | ||
| (define-public s6-rc
 | ||
|   (package
 | ||
|    (name "s6-rc")
 | ||
|    (version "0.5.2.3")
 | ||
|    (source
 | ||
|     (origin
 | ||
|      (method url-fetch)
 | ||
|      (uri (string-append "https://skarnet.org/software/s6-rc/s6-rc-"
 | ||
|                          version ".tar.gz"))
 | ||
|      (sha256
 | ||
|       (base32 "1xyaplwzvqnb53mg59a7jklakzwsiqivp6qggsry3sbaw4hf3d5j"))))
 | ||
|     (build-system gnu-build-system)
 | ||
|     (inputs (list skalibs execline s6))
 | ||
|     (arguments
 | ||
|      '(#:configure-flags (list
 | ||
|                           (string-append "--with-lib="
 | ||
|                                          (assoc-ref %build-inputs "skalibs")
 | ||
|                                          "/lib/skalibs")
 | ||
|                           (string-append "--with-lib="
 | ||
|                                          (assoc-ref %build-inputs "execline")
 | ||
|                                          "/lib/execline")
 | ||
|                           (string-append "--with-lib="
 | ||
|                                          (assoc-ref %build-inputs "s6")
 | ||
|                                          "/lib/s6")
 | ||
|                           (string-append "--with-sysdeps="
 | ||
|                                          (assoc-ref %build-inputs "skalibs")
 | ||
|                                          "/lib/skalibs/sysdeps"))
 | ||
|        #:tests? #f))                    ; no tests exist
 | ||
|     (home-page "https://skarnet.org/software/s6-rc")
 | ||
|     (license isc)
 | ||
|     (synopsis "Service manager for s6-based systems")
 | ||
|     (description
 | ||
|      "s6-rc is a service manager for s6-based systems, i.e. a suite of
 | ||
| programs that can start and stop services, both long-running daemons and
 | ||
| one-time initialization scripts, in the proper order according to a dependency
 | ||
| tree.  It ensures that long-running daemons are supervised by the s6
 | ||
| infrastructure, and that one-time scripts are also run in a controlled
 | ||
| environment.")))
 | ||
| 
 | ||
| (define-public s6-portable-utils
 | ||
|   (package
 | ||
|    (name "s6-portable-utils")
 | ||
|    (version "2.2.3.3")
 | ||
|    (source
 | ||
|     (origin
 | ||
|      (method url-fetch)
 | ||
|      (uri (string-append
 | ||
|            "https://skarnet.org/software/s6-portable-utils/s6-portable-utils-"
 | ||
|            version ".tar.gz"))
 | ||
|      (sha256
 | ||
|       (base32 "132jj5qk8x40kw6lrrn7jiqhvqj9d2h6g6mhl8zma1sp37bg0i84"))))
 | ||
|     (build-system gnu-build-system)
 | ||
|     (inputs (list skalibs))
 | ||
|     (arguments
 | ||
|      '(#:configure-flags (list
 | ||
|                           (string-append "--with-lib="
 | ||
|                                          (assoc-ref %build-inputs "skalibs")
 | ||
|                                          "/lib/skalibs")
 | ||
|                           (string-append "--with-sysdeps="
 | ||
|                                          (assoc-ref %build-inputs "skalibs")
 | ||
|                                          "/lib/skalibs/sysdeps"))
 | ||
|        #:tests? #f))                    ; no tests exist
 | ||
|     (home-page "https://skarnet.org/software/s6-portable-utils")
 | ||
|     (license isc)
 | ||
|     (synopsis "Tiny command-line Unix utilities")
 | ||
|     (description
 | ||
|      "s6-portable-utils is a set of tiny general Unix utilities, often
 | ||
| performing well-known tasks such as @command{cut} and @command{grep}, but
 | ||
| optimized for simplicity and small size.  They were designed for embedded
 | ||
| systems and other constrained environments, but they work everywhere.")))
 | ||
| 
 | ||
| (define-public s6-linux-init
 | ||
|   (package
 | ||
|    (name "s6-linux-init")
 | ||
|    (version "1.0.6.4")
 | ||
|    (source
 | ||
|     (origin
 | ||
|      (method url-fetch)
 | ||
|      (uri (string-append
 | ||
|            "https://skarnet.org/software/s6-linux-init/s6-linux-init-"
 | ||
|            version ".tar.gz"))
 | ||
|      (sha256
 | ||
|       (base32 "0grqk111d6aqym1c4l9j26fdqcgra1hvwb9vdgylrfbvn1c3hlpb"))))
 | ||
|     (build-system gnu-build-system)
 | ||
|     (inputs
 | ||
|      (list execline s6 skalibs))
 | ||
|     (arguments
 | ||
|      '(#:configure-flags
 | ||
|        (list
 | ||
|         "--disable-static"
 | ||
|         (string-append "--with-lib="
 | ||
|                        (assoc-ref %build-inputs "skalibs")
 | ||
|                        "/lib/skalibs")
 | ||
|         (string-append "--with-lib="
 | ||
|                        (assoc-ref %build-inputs "execline")
 | ||
|                        "/lib/execline")
 | ||
|         (string-append "--with-lib="
 | ||
|                        (assoc-ref %build-inputs "s6")
 | ||
|                        "/lib/s6")
 | ||
|         (string-append "--with-sysdeps="
 | ||
|                        (assoc-ref %build-inputs "skalibs")
 | ||
|                        "/lib/skalibs/sysdeps"))
 | ||
|        #:tests? #f))                    ; no tests exist
 | ||
|     (home-page "https://skarnet.org/software/s6-linux-init")
 | ||
|     (license isc)
 | ||
|     (synopsis "Minimalistic tools to create an s6-based init system on Linux")
 | ||
|     (description
 | ||
|      "s6-linux-init is a set of minimalistic tools to create a s6-based init
 | ||
| system, including an @command{/sbin/init} binary, on a Linux kernel.
 | ||
| 
 | ||
| It is meant to automate creation of scripts revolving around the use of other
 | ||
| skarnet.org tools, especially s6, in order to provide a complete booting
 | ||
| environment with integrated supervision and logging without having to hand-craft
 | ||
| all the details.")))
 | ||
| 
 | ||
| (define-public s6-linux-utils
 | ||
|   (package
 | ||
|    (name "s6-linux-utils")
 | ||
|    (version "2.5.1.6")
 | ||
|    (source
 | ||
|     (origin
 | ||
|      (method url-fetch)
 | ||
|      (uri (string-append
 | ||
|            "https://skarnet.org/software/s6-linux-utils/s6-linux-utils-"
 | ||
|            version ".tar.gz"))
 | ||
|      (sha256
 | ||
|       (base32 "0hr49nl0d7a6i5w8cfg43xzvzayb8kpqij9xg7bmw2fyvc2z338z"))))
 | ||
|     (build-system gnu-build-system)
 | ||
|     (inputs (list skalibs))
 | ||
|     (arguments
 | ||
|      '(#:configure-flags (list
 | ||
|                           (string-append "--with-lib="
 | ||
|                                          (assoc-ref %build-inputs "skalibs")
 | ||
|                                          "/lib/skalibs")
 | ||
|                           (string-append "--with-sysdeps="
 | ||
|                                          (assoc-ref %build-inputs "skalibs")
 | ||
|                                          "/lib/skalibs/sysdeps"))
 | ||
|        #:tests? #f))                    ; no tests exist
 | ||
|     (home-page "https://skarnet.org/software/s6-linux-utils")
 | ||
|     (license isc)
 | ||
|     (synopsis "Set of minimalistic Linux-specific system utilities")
 | ||
|     (description
 | ||
|      "s6-linux-utils is a set of minimalistic Linux-specific system utilities,
 | ||
| such as @command{mount}, @command{umount}, and @command{chroot} commands,
 | ||
| Linux uevent listeners, a @command{devd} device hotplug daemon, and more.")))
 |