aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages/apl.scm
blob: badec0433303016b873e74f529798b46719fbbe0 (about) (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 Nikita Karetnikov <nikita@karetnikov.org>
;;; Copyright © 2014, 2015 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2017, 2019 Efraim Flashner <efraim@flashner.co.il>
;;;
;;; 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 apl)
  #:use-module (guix licenses)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu)
  #:use-module (gnu packages gettext)
  #:use-module (gnu packages maths)
  #:use-module (gnu packages pcre)
  #:use-module (gnu packages readline)
  #:use-module (gnu packages sqlite))

(define-public apl
  (package
    (name "apl")
    (version "1.8")
    (source
     (origin
      (method url-fetch)
      (uri (string-append "mirror://gnu/apl/apl-" version ".tar.gz"))
      (sha256
       (base32
        "1jxvv2h3y1am1fw6r5sn3say1n0dj8shmscbybl0qhqdia2lqkql"))))
    (build-system gnu-build-system)
    (home-page "https://www.gnu.org/software/apl/")
    (inputs
     `(("gettext" ,gettext-minimal)
       ("lapack" ,lapack)
       ("pcre" ,pcre2)
       ("sqlite" ,sqlite)
       ("readline" ,readline)))
    (arguments
     `(#:configure-flags (list (string-append
                                "--with-sqlite3="
                                (assoc-ref %build-inputs "sqlite")))))
    (synopsis "APL interpreter")
    (description
     "GNU APL is a free interpreter for the programming language APL.  It is
an implementation of the ISO standard 13751.")
    (license gpl3+)))
(add-before 'configure 'use-absolute-/lib/drbd (lambda _ ;; Look for auxiliary executables below exec_prefix instead ;; of assuming /lib/drbd (see TODO comment in the file). (substitute* "user/v9/drbdtool_common.c" (("\"/lib/drbd\"") (string-append "\"" #$output "/lib/drbd\""))))) (add-after 'configure 'adjust-installation-directories (lambda _ ;; Do not attempt to create /etc or /var. (substitute* "scripts/Makefile" (("\\$\\(DESTDIR\\)\\$\\(sysconfdir\\)") "$(DESTDIR)$(prefix)$(sysconfdir)")) (substitute* "user/v84/Makefile" (("\\$\\(DESTDIR\\)\\$\\(localstatedir\\)") "$(DESTDIR)$(prefix)$(localstatedir)") (("\\$\\(DESTDIR\\)/lib/drbd") "$(DESTDIR)$(prefix)/lib/drbd")) (substitute* "user/v9/Makefile" (("\\$\\(DESTDIR\\)\\$\\(localstatedir\\)") "$(DESTDIR)$(prefix)$(localstatedir)") (("\\$\\(DESTDIR\\)\\$\\(DRBD_LIB_DIR\\)") "$(DESTDIR)$(prefix)$(DRBD_LIB_DIR)"))))))) (native-inputs (append (list clitest eudev ;just to satisfy a configure check flex) ;; For the documentation. (if (supported-package? ruby-asciidoctor) (list docbook-xml docbook-xml-4.4 ;used by documentation/ra2refentry.xsl docbook-xsl libxslt ;for xsltproc ruby-asciidoctor) '()))) (home-page "https://www.linbit.com/drbd/") (synopsis "Replicate block devices between machines") (description "@acronym{DRBD, Distributed Replicated Block Device} is a software-based, shared-nothing, replicated storage solution mirroring the content of block devices (hard disks, partitions, logical volumes etc.) over any network connection. This package contains the userland utilities.") (properties '((release-monitoring-url . "https://www.linbit.com/en/drbd-community/drbd-download/"))) (license license:gpl2+))) (define-public keepalived (package (name "keepalived") (version "2.3.1") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/acassen/keepalived") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "0mxpx5azx0m2zp757yqcavvvzg3p9nj93bczfhv6wich3wpvbwzx")))) (build-system gnu-build-system) (arguments (list #:phases #~(modify-phases %standard-phases (add-after 'build 'build-info (lambda _ (invoke "make" "-C" "doc" "texinfo") ;; Put images in a subdirectory as recommended by 'texinfo'. (install-file "doc/source/images/software_design.png" "doc/build/texinfo/keepalived-figures") (substitute* "doc/build/texinfo/keepalived.texi" (("@image\\{software_design,") "@image{keepalived-figures/software_design,")) (invoke "make" "-C" "doc/build/texinfo"))) (add-after 'install 'install-info (lambda _ (let ((infodir (string-append #$output "/share/info"))) (install-file "doc/build/texinfo/keepalived.info" infodir) (install-file "doc/source/images/software_design.png" (string-append infodir "/keepalived-figures")))))))) (native-inputs (list autoconf automake pkg-config python-sphinx texinfo)) (inputs (list openssl libnfnetlink libnl)) (home-page "https://www.keepalived.org") (synopsis "Load balancing and high-availability frameworks") (description "Keepalived provides frameworks for both load balancing and high availability. The load balancing framework relies on the Linux Virtual Server (@dfn{IPVS}) kernel module. High availability is achieved by the Virtual Redundancy Routing Protocol (@dfn{VRRP}). Each Keepalived framework can be used independently or together to provide resilient infrastructures.") (license license:gpl2+))) (define-public libraft (package (name "libraft") (version "0.11.2") (home-page "https://github.com/canonical/raft") (source (origin (method git-fetch) (uri (git-reference (url home-page) (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "050dwy34jh8dihfwfm0r1by2i3sy9crapipp9idw32idm79y4izb")))) (arguments '(#:configure-flags '("--enable-uv") #:phases (modify-phases %standard-phases (add-after 'unpack 'disable-failing-tests (lambda _ (substitute* "Makefile.am" ((".*test_uv_append.c.*") "") ((".*test_uv_tcp_connect.c.*") "")) #t))))) (inputs (list libuv lz4)) (native-inputs `(("autoconf" ,autoconf) ("automake" ,automake) ("gettext" ,gettext-minimal) ("libtool" ,libtool) ("pkg-config" ,pkg-config))) (build-system gnu-build-system) (synopsis "C implementation of the Raft consensus protocol") (description "The library has modular design: its core part implements only the core Raft algorithm logic, in a fully platform independent way. On top of that, a pluggable interface defines the I/O implementation for networking (send/receive RPC messages) and disk persistence (store log entries and snapshots).") (license license:asl2.0))) (define-public libdqlite (package (name "libdqlite") (version "1.9.0") (home-page "https://github.com/canonical/dqlite") (source (origin (method git-fetch) (uri (git-reference (url home-page) (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "0zalsvr0vy7632nhm96a29lrfy18iqsmbxpyz2lvq80mrjlbrzsn")))) (arguments '(#:phases (modify-phases %standard-phases (add-after 'unpack 'disable-failing-tests (lambda _ (substitute* "Makefile.am" ;; Test client/query sometimes fails. ;; The actual tested asserts succeed, but there appears to be a ;; race condition when tearing down the test server. ((".*test_client.c.*") ""))))))) (native-inputs (list autoconf automake libtool pkg-config)) (inputs (list libraft libuv)) (propagated-inputs (list sqlite)) ; dqlite.h includes sqlite3.h (build-system gnu-build-system) (synopsis "Distributed SQLite") (description "dqlite is a C library that implements an embeddable and replicated SQL database engine with high-availability and automatic failover.") (license license:lgpl3)))