361 lines
		
	
	
	
		
			16 KiB
		
	
	
	
		
			Scheme
		
	
	
	
	
	
			
		
		
	
	
			361 lines
		
	
	
	
		
			16 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.13.1.1")
 | ||
|     (source
 | ||
|      (origin
 | ||
|       (method url-fetch)
 | ||
|       (uri (string-append "https://skarnet.org/software/skalibs/skalibs-"
 | ||
|                           version ".tar.gz"))
 | ||
|       (sha256
 | ||
|        (base32 "0cwy37cc92409dsmj8c8whpnnqd9g375myxlp52aqzwzg6ms2wmj"))))
 | ||
|     (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))")))))))
 | ||
|     (supported-systems (delete "i586-gnu" %supported-systems))
 | ||
|     (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.9.3.0")
 | ||
|     (source
 | ||
|      (origin
 | ||
|       (method url-fetch)
 | ||
|       (uri (string-append "https://skarnet.org/software/execline/execline-"
 | ||
|                           version ".tar.gz"))
 | ||
|       (sha256
 | ||
|        (base32 "1393xka069n3rvc3dlg6c3ckzl1qgqkhvhlcxv6igl9216kpy0n8"))))
 | ||
|     (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.3.2")
 | ||
|    (source
 | ||
|     (origin
 | ||
|      (method url-fetch)
 | ||
|      (uri (string-append "https://skarnet.org/software/s6/s6-"
 | ||
|                          version ".tar.gz"))
 | ||
|      (sha256
 | ||
|       (base32 "0x6zjc3126fjhj8accyxgrw7r7ysrb7d13dfs87bxzzhsa5165kw"))))
 | ||
|    (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.5")
 | ||
|    (source
 | ||
|     (origin
 | ||
|      (method url-fetch)
 | ||
|      (uri (string-append "https://skarnet.org/software/s6-dns/s6-dns-"
 | ||
|                          version ".tar.gz"))
 | ||
|      (sha256
 | ||
|       (base32 "1s0yzrzpjgbf1d0s4qxq5g2sgcm6skq3sphbm1qq1hr5a5frp5sn"))))
 | ||
|     (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.1.3")
 | ||
|    (source
 | ||
|     (origin
 | ||
|      (method url-fetch)
 | ||
|      (uri (string-append "https://skarnet.org/software/s6-networking/"
 | ||
|                          "s6-networking-" version ".tar.gz"))
 | ||
|      (sha256
 | ||
|       (base32 "0xz98pzgx6kc9v1dka04gzw5f3rwww42c07liym0r7pzb74l77m0"))))
 | ||
|     (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.4.1")
 | ||
|    (source
 | ||
|     (origin
 | ||
|      (method url-fetch)
 | ||
|      (uri (string-append "https://skarnet.org/software/s6-rc/s6-rc-"
 | ||
|                          version ".tar.gz"))
 | ||
|      (sha256
 | ||
|       (base32 "1xjqc6vqqny8g47whgibjlas7f6szka372jrz5f308slgjmqq9np"))))
 | ||
|     (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.3.0.2")
 | ||
|    (source
 | ||
|     (origin
 | ||
|      (method url-fetch)
 | ||
|      (uri (string-append
 | ||
|            "https://skarnet.org/software/s6-portable-utils/s6-portable-utils-"
 | ||
|            version ".tar.gz"))
 | ||
|      (sha256
 | ||
|       (base32 "1s6iqjz2mfq3rakqj3cwidjsbpkjcdjfah60m86na4ph6j8jc547"))))
 | ||
|     (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.1.1.0")
 | ||
|    (source
 | ||
|     (origin
 | ||
|      (method url-fetch)
 | ||
|      (uri (string-append
 | ||
|            "https://skarnet.org/software/s6-linux-init/s6-linux-init-"
 | ||
|            version ".tar.gz"))
 | ||
|      (sha256
 | ||
|       (base32 "1vm8aqlh8jkqrm3irhf53vvylxqizpqvjg3yb9z00yb568skyj5d"))))
 | ||
|     (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.6.1.2")
 | ||
|    (source
 | ||
|     (origin
 | ||
|      (method url-fetch)
 | ||
|      (uri (string-append
 | ||
|            "https://skarnet.org/software/s6-linux-utils/s6-linux-utils-"
 | ||
|            version ".tar.gz"))
 | ||
|      (sha256
 | ||
|       (base32 "1ncwkm5cpc0y6iysc5q64mk0pfvxnn7ihia1a137xrrdg1fxqqyq"))))
 | ||
|     (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.")))
 |