mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-30 08:02:38 -05:00
972c06dc79
* gnu/packages/erlang.scm (erlang-lfe): Make LFE compiler deterministic. Change-Id: I0cf00eeda8502384b746795802f1b2291d0e8a3b Signed-off-by: Andrew Tropin <andrew@trop.in>
853 lines
34 KiB
Scheme
853 lines
34 KiB
Scheme
;;; GNU Guix --- Functional package management for GNU
|
|
;;; Copyright © 2016 Steve Sprang <scs@stevesprang.com>
|
|
;;; Copyright © 2016, 2017 Leo Famulari <leo@famulari.name>
|
|
;;; Copyright © 2016, 2017 Pjotr Prins <pjotr.guix@thebird.nl>
|
|
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
|
|
;;; Copyright © 2018 Nikita <nikita@n0.is>
|
|
;;; Copyright © 2020-2022 Hartmut Goebel <h.goebel@crazy-compilers.com>
|
|
;;; Copyright © 2021 Oskar Köök <oskar@maatriks.ee>
|
|
;;; Copyright © 2021 Cees de Groot <cg@evrl.com>
|
|
;;; Copyright © 2022 jgart <jgart@dismail.de>
|
|
;;; Copyright © 2023 wrobell <wrobell@riseup.net>
|
|
;;; Copyright © 2023 Tim Johann <t1m@phrogstar.de>
|
|
;;; Copyright © 2024 Igor Goryachev <igor@goryachev.org>
|
|
;;;
|
|
;;; 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 erlang)
|
|
#:use-module ((guix licenses) #:prefix license:)
|
|
#:use-module (guix gexp)
|
|
#:use-module (guix build-system gnu)
|
|
#:use-module (guix build-system emacs)
|
|
#:use-module (guix build-system rebar)
|
|
#:use-module (guix download)
|
|
#:use-module (guix git-download)
|
|
#:use-module (guix packages)
|
|
#:use-module (guix utils)
|
|
#:use-module (gnu packages)
|
|
#:use-module (gnu packages fontutils)
|
|
#:use-module (gnu packages gl)
|
|
#:use-module (gnu packages ncurses)
|
|
#:use-module (gnu packages perl)
|
|
#:use-module (gnu packages version-control)
|
|
#:use-module (gnu packages tls)
|
|
#:use-module (gnu packages wxwidgets))
|
|
|
|
(define-public erlang
|
|
(package
|
|
(name "erlang")
|
|
(version "26.2.5")
|
|
(source (origin
|
|
(method git-fetch)
|
|
;; The tarball from http://erlang.org/download contains many
|
|
;; pre-compiled files, so we use this snapshot of the source
|
|
;; repository.
|
|
(uri (git-reference
|
|
(url "https://github.com/erlang/otp")
|
|
(commit (string-append "OTP-" version))))
|
|
(file-name (git-file-name name version))
|
|
(sha256
|
|
(base32
|
|
"0hd4flm9x8254rcv8hj0hra5lh5n51vcpharxy2d1ph8059vfsmx"))
|
|
(patches (search-patches "erlang-man-path.patch"))))
|
|
(build-system gnu-build-system)
|
|
(native-inputs
|
|
`(("perl" ,perl)
|
|
|
|
;; Erlang's documentation is distributed in a separate tarball.
|
|
("erlang-manpages"
|
|
,(origin
|
|
(method url-fetch)
|
|
(uri (string-append "https://github.com/erlang/otp/releases/download"
|
|
"/OTP-" version "/otp_doc_man_" version ".tar.gz"))
|
|
(sha256
|
|
(base32
|
|
"08ngil8578asjzmqa657l4zdy0cr0h9spkg88wp9kxl95bfyli8p"))))))
|
|
(inputs
|
|
(list ncurses openssl wxwidgets))
|
|
(propagated-inputs
|
|
(list fontconfig glu mesa))
|
|
(arguments
|
|
`(#:test-target "release_tests"
|
|
#:configure-flags
|
|
(list "--disable-saved-compile-time"
|
|
"--enable-dynamic-ssl-lib"
|
|
"--enable-native-libs"
|
|
"--enable-shared-zlib"
|
|
"--enable-smp-support"
|
|
"--enable-threads"
|
|
"--enable-wx"
|
|
(string-append "--with-ssl=" (assoc-ref %build-inputs "openssl")))
|
|
#:modules ((srfi srfi-19) ; make-time, et cetera.
|
|
(guix build utils)
|
|
(guix build gnu-build-system))
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
(delete 'bootstrap)
|
|
;; The are several code fragments that embed timestamps into the
|
|
;; output. Here, we alter those fragments to use the value of
|
|
;; SOURCE_DATE_EPOCH instead.
|
|
(add-after 'unpack 'remove-timestamps
|
|
(lambda _
|
|
(let ((source-date-epoch
|
|
(time-utc->date
|
|
(make-time time-utc 0 (string->number
|
|
(getenv "SOURCE_DATE_EPOCH"))))))
|
|
(substitute* "lib/reltool/src/reltool_target.erl"
|
|
(("Date = date\\(\\),")
|
|
(string-append "Date = "
|
|
(date->string source-date-epoch
|
|
"'{~Y,~m,~d}',"))))
|
|
(substitute* "lib/reltool/src/reltool_target.erl"
|
|
(("Time = time\\(\\),")
|
|
(string-append "Time = "
|
|
(date->string source-date-epoch
|
|
"'{~H,~M,~S}',"))))
|
|
(substitute* '("lib/reltool/src/reltool_target.erl"
|
|
"lib/sasl/src/systools_make.erl")
|
|
(("date\\(\\), time\\(\\),")
|
|
(date->string source-date-epoch
|
|
"{~Y,~m,~d}, {~H,~M,~S},")))
|
|
(substitute* "lib/dialyzer/test/small_SUITE_data/src/gs_make.erl"
|
|
(("tuple_to_list\\(date\\(\\)\\),tuple_to_list\\(time\\(\\)\\)")
|
|
(date->string
|
|
source-date-epoch
|
|
"tuple_to_list({~Y,~m,~d}), tuple_to_list({~H,~M,~S})")))
|
|
(substitute* "lib/snmp/src/compile/snmpc_mib_to_hrl.erl"
|
|
(("\\{Y,Mo,D\\} = date\\(\\),")
|
|
(date->string source-date-epoch
|
|
"{Y,Mo,D} = {~Y,~m,~d},")))
|
|
(substitute* "lib/snmp/src/compile/snmpc_mib_to_hrl.erl"
|
|
(("\\{H,Mi,S\\} = time\\(\\),")
|
|
(date->string source-date-epoch
|
|
"{H,Mi,S} = {~H,~M,~S},"))))))
|
|
(add-after 'unpack 'patch-/bin/sh
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
(let ((sh (search-input-file inputs "/bin/sh")))
|
|
(substitute* "erts/etc/unix/run_erl.c"
|
|
(("sh = \"/bin/sh\";")
|
|
(string-append "sh = \"" sh "\";")))
|
|
(substitute* "erts/emulator/sys/unix/sys_drivers.c"
|
|
(("SHELL \"/bin/sh\"")
|
|
(string-append "SHELL \"" sh "\"")))
|
|
(substitute* "erts/emulator/sys/unix/erl_child_setup.c"
|
|
(("SHELL \"/bin/sh\"")
|
|
(string-append "SHELL \"" sh "\"")))
|
|
(substitute* "lib/kernel/src/os.erl"
|
|
(("/bin/sh") sh)))))
|
|
(add-after 'patch-source-shebangs 'patch-source-env
|
|
(lambda _
|
|
(let ((escripts
|
|
(append
|
|
(find-files "." "\\.escript")
|
|
(find-files "lib/stdlib/test/escript_SUITE_data/")
|
|
'("erts/lib_src/utils/make_atomics_api"
|
|
"erts/preloaded/src/add_abstract_code"
|
|
"lib/diameter/bin/diameterc"
|
|
"lib/reltool/examples/display_args"
|
|
"lib/reltool/examples/mnesia_core_dump_viewer"
|
|
"lib/snmp/src/compile/snmpc.src"
|
|
"make/verify_runtime_dependencies"
|
|
"make/emd2exml.in"))))
|
|
(substitute* escripts
|
|
(("/usr/bin/env") (which "env"))))))
|
|
(add-before 'configure 'set-erl-top
|
|
(lambda _
|
|
(setenv "ERL_TOP" (getcwd))))
|
|
(add-after 'install 'patch-erl
|
|
;; This only works after install.
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(let ((out (assoc-ref outputs "out")))
|
|
(substitute* (string-append out "/bin/erl")
|
|
(("basename") (which "basename"))
|
|
(("dirname") (which "dirname"))))))
|
|
(add-after 'install 'install-doc
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
(manpages (assoc-ref inputs "erlang-manpages"))
|
|
(share (string-append out "/share/")))
|
|
(mkdir-p share)
|
|
(with-directory-excursion share
|
|
(invoke "tar" "xvf" manpages)))))
|
|
(add-after 'install-doc 'install-chunks
|
|
(lambda _
|
|
(invoke "make" "install-docs" "DOC_TARGETS=chunks"))))))
|
|
(home-page "https://www.erlang.org/")
|
|
(synopsis "The Erlang programming language")
|
|
(description
|
|
"Erlang is a programming language used to build massively
|
|
scalable soft real-time systems with requirements on high
|
|
availability. Some of its uses are in telecoms, banking, e-commerce,
|
|
computer telephony and instant messaging. Erlang's runtime system has
|
|
built-in support for concurrency, distribution and fault tolerance.")
|
|
;; Erlang is distributed under the Apache License 2.0, but some components
|
|
;; have other licenses. See 'system/COPYRIGHT' in the source distribution.
|
|
(license (list license:asl2.0 license:bsd-2 license:bsd-3 license:expat
|
|
license:lgpl2.0+ license:tcl/tk license:zlib))))
|
|
|
|
(define-public emacs-erlang
|
|
(package
|
|
(name "emacs-erlang")
|
|
(version (package-version erlang))
|
|
(source (package-source erlang))
|
|
(build-system emacs-build-system)
|
|
(arguments
|
|
`(#:phases
|
|
(modify-phases %standard-phases
|
|
(add-before 'expand-load-path 'change-working-directory
|
|
(lambda _ (chdir "lib/tools/emacs") #t)))))
|
|
(home-page "https://www.erlang.org/")
|
|
(synopsis "Erlang major mode for Emacs")
|
|
(description
|
|
"This package provides an Emacs major mode for editing Erlang source
|
|
files.")
|
|
(license license:asl2.0)))
|
|
|
|
(define-public erlang-bbmustache
|
|
(package
|
|
(name "erlang-bbmustache")
|
|
(version "1.12.2")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (hexpm-uri "bbmustache" version))
|
|
(sha256
|
|
(base32 "0fvvaxdpziygxl30j59g98qkh2n47xlb7w5dfpsm2bfcsnj372v8"))))
|
|
(build-system rebar-build-system)
|
|
(inputs
|
|
(list erlang-getopt rebar3-git-vsn
|
|
erlang-edown)) ; for building the docs
|
|
(arguments
|
|
`(#:tests? #f ;; requires mustache specification file
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
(add-before 'build 'build-more
|
|
(lambda _
|
|
(invoke "rebar3" "as" "dev" "escriptize")))
|
|
(add-after 'install 'install-escript
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(let* ((out (assoc-ref outputs "out")))
|
|
(install-file "_build/dev/bin/bbmustache"
|
|
(string-append out "/bin"))))))))
|
|
(home-page "https://github.com/soranoba/bbmustache/")
|
|
(synopsis "Binary pattern match Based Mustache template engine for Erlang")
|
|
(description "This Erlang library provides a Binary pattern match Based
|
|
Mustache template engine")
|
|
(license license:expat)))
|
|
|
|
(define-public erlang-certifi
|
|
(package
|
|
(name "erlang-certifi")
|
|
(version "2.13.0")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (hexpm-uri "certifi" version))
|
|
(sha256
|
|
(base32 "1887qmxp7qmha4c8k4m4cw35iii15srrdmfmvypp0q7hl0rragcg"))))
|
|
(build-system rebar-build-system)
|
|
(arguments
|
|
`(#:tests? #f)) ;; have not been updated for latest cert bundle
|
|
(home-page "https://github.com/certifi/erlang-certifi/")
|
|
(synopsis "Erlang CA certificate bundle")
|
|
(description "This Erlang library contains a CA bundle that you can
|
|
reference in your Erlang application. This is useful for systems that do not
|
|
have CA bundles that Erlang can find itself, or where a uniform set of CAs is
|
|
valuable.
|
|
|
|
This an Erlang specific port of certifi. The CA bundle is derived from
|
|
Mozilla's canonical set.")
|
|
(license license:bsd-3)))
|
|
|
|
(define-public erlang-cf
|
|
(package
|
|
(name "erlang-cf")
|
|
(version "0.3.1")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (hexpm-uri "cf" version))
|
|
(sha256
|
|
(base32 "0wknz4xkqkhgvlx4vx5619p8m65v7g87lfgsvfy04jrsgm28spii"))))
|
|
(build-system rebar-build-system)
|
|
(home-page "https://github.com/project-fifo/cf")
|
|
(synopsis "Terminal colour helper for Erlang io and io_lib")
|
|
(description "This package provides a helper library for termial colour
|
|
printing extending the io:format syntax to add colours.")
|
|
(license license:expat)))
|
|
|
|
(define-public erlang-yamerl
|
|
(package
|
|
(name "erlang-yamerl")
|
|
(version "0.10.0")
|
|
(source
|
|
(origin
|
|
(method git-fetch)
|
|
(uri (git-reference
|
|
;; There are no tests included on Hex.
|
|
(url "https://github.com/yakaz/yamerl")
|
|
(commit (string-append "v" version))))
|
|
(file-name (git-file-name name version))
|
|
(sha256
|
|
(base32 "0if8abgmispcfk7zhd0a5dndzwzbsmqrbyrm5shk375r2dbbwak6"))))
|
|
(build-system rebar-build-system)
|
|
(synopsis "YAML and JSON parser in pure Erlang")
|
|
(description
|
|
"Erlang application to parse YAML 1.1 and YAML 1.2 documents, as well as
|
|
JSON documents.")
|
|
(home-page "https://hexdocs.pm/yamerl/")
|
|
(license license:bsd-2)))
|
|
|
|
(define-public erlang-covertool
|
|
(package
|
|
(name "erlang-covertool")
|
|
(version "2.0.6")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (hexpm-uri "covertool" version))
|
|
(sha256
|
|
(base32 "088y3m0mmqprq3vd4q0dxrd1plx846mx3m2pv15fmn4047cgrcsx"))))
|
|
(build-system rebar-build-system)
|
|
(home-page "https://github.com/covertool/covertool")
|
|
(synopsis "Convert code-coverage data generated by @code{cover} into
|
|
Cobertura XML reports")
|
|
(description "This package provides a build tool and plugin to convert
|
|
exported Erlang @code{cover} data sets into Cobertura XML reports, which can
|
|
then be feed to the Jenkins Cobertura plug-in.
|
|
|
|
On @emph{hex.pm}, this plugin was previously called @code{rebar_covertool}.")
|
|
(license license:bsd-2)))
|
|
|
|
(define-public erlang-cth-readable
|
|
(package
|
|
(name "erlang-cth-readable")
|
|
(version "1.6.0")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (hexpm-uri "cth_readable" version))
|
|
(sha256
|
|
(base32 "16851qzf2mjgw36s2bx3bb4x2vm8fpg8jk3dz8ph1mai5dim47lh"))))
|
|
(build-system rebar-build-system)
|
|
(propagated-inputs
|
|
(list erlang-cf))
|
|
(arguments
|
|
`(#:tests? #f)) ;; no test-suite in hex-pm package
|
|
(home-page "https://github.com/ferd/cth_readable")
|
|
(synopsis "Common Test hooks for more readable logs for Erlang")
|
|
(description "This package provides an OTP library to be used for CT log
|
|
outputs you want to be readable around all that noise they contain.")
|
|
(license license:bsd-3)))
|
|
|
|
(define-public erlang-edown
|
|
(package
|
|
(name "erlang-edown")
|
|
(version "0.9.1")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (hexpm-uri "edown" version))
|
|
(sha256
|
|
(base32 "1hl27qnylbjxzmz9w2pnm0wfmkcgyc6bcpmlm6mf35ymkj659ngr"))))
|
|
(build-system rebar-build-system)
|
|
(home-page "https://github.com/uwiger/edown")
|
|
(synopsis "Markdown extension for EDoc")
|
|
(description "This package provides an extension for EDoc for generating
|
|
Markdown.")
|
|
(license license:asl2.0)))
|
|
|
|
(define-public erlang-erlware-commons
|
|
(package
|
|
(name "erlang-erlware-commons")
|
|
(version "1.7.0")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (hexpm-uri "erlware_commons" version))
|
|
(sha256
|
|
(base32 "0fxkfzw3akq1zgiy3xk63irxzfifa5mk34ik75hvlcf0zzs0x1f0"))))
|
|
(build-system rebar-build-system)
|
|
(propagated-inputs
|
|
(list erlang-cf))
|
|
(native-inputs
|
|
(list git-minimal/pinned)) ;; Required for tests
|
|
(arguments
|
|
`(#:phases
|
|
(modify-phases %standard-phases
|
|
(add-before 'check 'check-setup
|
|
(lambda _
|
|
(setenv "TERM" "xterm")))))) ; enable color in logs
|
|
(home-page "https://erlware.github.io/erlware_commons/")
|
|
(synopsis "Additional standard library for Erlang")
|
|
(description "Erlware Commons is an Erlware project focused on all aspects
|
|
of reusable Erlang components.")
|
|
(license license:expat)))
|
|
|
|
(define-public erlang-eunit-formatters
|
|
(package
|
|
(name "erlang-eunit-formatters")
|
|
(version "0.5.0")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (hexpm-uri "eunit_formatters" version))
|
|
(sha256
|
|
(base32 "1jb3hzb216r29x2h4pcjwfmx1k81431rgh5v0mp4x5146hhvmj6n"))))
|
|
(build-system rebar-build-system)
|
|
(home-page "https://github.com/seancribbs/eunit_formatters")
|
|
(synopsis "Better output for eunit suites")
|
|
(description "This package provides a better output for Erlang eunits.")
|
|
(license license:asl2.0)))
|
|
|
|
(define-public erlang-getopt
|
|
(package
|
|
(name "erlang-getopt")
|
|
(version "1.0.3")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (hexpm-uri "getopt" version))
|
|
(sha256
|
|
(base32 "0krj967wnlnfniscdgzbcsckjb8nwfqr49zp9x4j23slmj8dw0by"))))
|
|
(build-system rebar-build-system)
|
|
(home-page "https://github.com/jcomellas/getopt")
|
|
(synopsis "Command-line options parser for Erlang")
|
|
(description "This package provides an Erlang module to parse command line
|
|
arguments using the GNU getopt syntax.")
|
|
(license license:bsd-3)))
|
|
|
|
(define-public erlang-hex-core
|
|
(package
|
|
(name "erlang-hex-core")
|
|
(version "0.10.0")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (hexpm-uri "hex_core" version))
|
|
(sha256
|
|
(base32 "0mwz3n5jaabyc77q7w0pqsr5hl4r44bzr90gq30gz9zk5pmrl8hw"))))
|
|
(build-system rebar-build-system)
|
|
(arguments
|
|
`(#:phases
|
|
(modify-phases %standard-phases
|
|
(replace 'check
|
|
(lambda* (#:key tests? #:allow-other-keys)
|
|
(when tests?
|
|
(invoke "rebar3" "as" "test" "proper")))))))
|
|
(inputs
|
|
(list erlang-proper rebar3-proper))
|
|
(home-page "https://github.com/hexpm/hex_core")
|
|
(synopsis "Reference implementation of Hex specifications")
|
|
(description "This package provides the reference implementation of Hex
|
|
specifications.")
|
|
(license license:asl2.0)))
|
|
|
|
(define-public erlang-jsone
|
|
(package
|
|
(name "erlang-jsone")
|
|
(version "1.8.1")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (hexpm-uri "jsone" version))
|
|
(sha256
|
|
(base32 "0f4px5l89a988rc8h79gb35zi0b2pjdy6y66hix1mia88491i2f7"))))
|
|
(build-system rebar-build-system)
|
|
(arguments
|
|
`(#:phases
|
|
(modify-phases %standard-phases
|
|
(add-after 'unpack 'disable-covertool
|
|
;; no need to generate a coverage report
|
|
(lambda _
|
|
(substitute* "rebar.config"
|
|
(("\\{project_plugins, \\[covertool\\]\\}\\." _) "")))))))
|
|
(home-page "https://github.com/sile/jsone/")
|
|
(synopsis "Erlang JSON Library")
|
|
(description "An Erlang library for encoding and decoding JSON data.")
|
|
(license license:expat)))
|
|
|
|
(define-public erlang-parse-trans
|
|
(package
|
|
(name "erlang-parse-trans")
|
|
(version "3.4.2")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (hexpm-uri "parse_trans" version))
|
|
(sha256
|
|
(base32 "1jnr4k93vgcwnphsvczkwgm0pvnfs51sns9fscr5ghxpwdyk89ac"))))
|
|
(build-system rebar-build-system)
|
|
(inputs
|
|
(list erlang-getopt))
|
|
(home-page "https://github.com/uwiger/parse_trans")
|
|
(synopsis "Parse transform utilities for Erlang")
|
|
(description "This package captures some useful patterns in parse
|
|
transformation and code generation for Erlang.
|
|
|
|
For example generating standardized accessor functions for records or
|
|
evaluating an expression at compile-time and substitute the result as a
|
|
compile-time constant.")
|
|
(license license:asl2.0)))
|
|
|
|
(define-public erlang-proper
|
|
(package
|
|
(name "erlang-proper")
|
|
(version "1.4.0")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (hexpm-uri "proper" version))
|
|
(sha256
|
|
(base32 "1fwcas4a9kz3w3z1jqdk9lw8822srfjk9lcpvbxkxlsv3115ha0q"))))
|
|
(build-system rebar-build-system)
|
|
(arguments
|
|
`(#:phases
|
|
(modify-phases %standard-phases
|
|
(add-after 'unpack 'disable-covertool
|
|
;; no need to generate a coverage report
|
|
(lambda _
|
|
(substitute* "rebar.config"
|
|
(("\\{plugins, \\[covertool\\]\\}\\." _) "")))))))
|
|
(home-page "https://proper-testing.github.io/")
|
|
(synopsis "QuickCheck-inspired property-based testing tool for Erlang")
|
|
(description "PropEr is a tool for the automated, semi-random,
|
|
property-based testing of Erlang programs. It is fully integrated with
|
|
Erlang's type language, and can also be used for the model-based random
|
|
testing of stateful systems.")
|
|
(license license:gpl3+)))
|
|
|
|
(define-public erlang-jsx
|
|
(package
|
|
(name "erlang-jsx")
|
|
(version "3.1.0")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (hexpm-uri "jsx" version))
|
|
(sha256
|
|
(base32
|
|
"1wr7jkxm6nlgvd52xhniav64xr9rml2ngb35rwjwqlqvq7ywhp0c"))))
|
|
(build-system rebar-build-system)
|
|
(synopsis "Streaming, evented JSON parsing toolkit")
|
|
(description
|
|
"An Erlang application for consuming, producing and manipulating json.")
|
|
(home-page "https://github.com/talentdeficit/jsx")
|
|
(license license:expat)))
|
|
|
|
(define-public erlang-providers
|
|
(package
|
|
(name "erlang-providers")
|
|
(version "1.9.0")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (hexpm-uri "providers" version))
|
|
(sha256
|
|
(base32 "05y0kz3xgx77hzn1l05byaisvmk8bgds7c22hrh0a5ba81sfi1yj"))))
|
|
(build-system rebar-build-system)
|
|
(propagated-inputs
|
|
(list erlang-erlware-commons erlang-getopt))
|
|
(home-page "https://github.com/tsloughter/providers")
|
|
(synopsis "Erlang providers library")
|
|
(description "This package provides an Erlang providers library.")
|
|
(license license:asl2.0)))
|
|
|
|
(define-public erlang-relx
|
|
(package
|
|
(name "erlang-relx")
|
|
(version "4.9.0")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (hexpm-uri "relx" version))
|
|
(sha256
|
|
(base32 "1iamihsd3gi82sc7169rx5730drvgm0n4k7clg75pap79b6pgjqj"))))
|
|
(build-system rebar-build-system)
|
|
(propagated-inputs
|
|
(list erlang-bbmustache))
|
|
(home-page "https://erlware.github.io/relx/")
|
|
(synopsis "Release assembler for Erlang/OTP Releases")
|
|
(description "Relx assembles releases for an Erlang/OTP release. Given a
|
|
release specification and a list of directories in which to search for OTP
|
|
applications it will generate a release output. That output depends heavily on
|
|
what plugins available and what options are defined, but usually it is simply
|
|
a well configured release directory.")
|
|
(license license:asl2.0)))
|
|
|
|
(define-public erlang-ssl-verify-fun
|
|
(package
|
|
(name "erlang-ssl-verify-fun")
|
|
(version "1.1.7")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (hexpm-uri "ssl_verify_fun" version))
|
|
(sha256
|
|
(base32 "1y37pj5q6gk1vrnwg1vraws9yihrv9g4133w2qq1sh1piw71jk7y"))))
|
|
(build-system rebar-build-system)
|
|
(home-page "https://github.com/deadtrickster/ssl_verify_fun.erl")
|
|
(synopsis "SSL verification functions for Erlang")
|
|
(description "This package provides SSL verification functions for
|
|
Erlang.")
|
|
(license license:expat)))
|
|
|
|
(define-public rebar3
|
|
(package
|
|
(name "rebar3")
|
|
(version "3.23.0")
|
|
(source
|
|
(origin
|
|
(method git-fetch)
|
|
(uri (git-reference
|
|
(url "https://github.com/erlang/rebar3")
|
|
(commit version)))
|
|
(file-name (git-file-name name version))
|
|
(sha256
|
|
(base32 "0jinjx3mk5j1kczxmblixbvhf24q0yfwih2ggs11x5ykmrqpbckl"))))
|
|
(build-system gnu-build-system)
|
|
;; TODO: remove vendored modules, install man-page, install lib(?)
|
|
(arguments
|
|
`(#:phases
|
|
(modify-phases %standard-phases
|
|
(delete 'bootstrap)
|
|
(add-after 'unpack 'unpack-dependency-sources
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
(for-each
|
|
(lambda (pkgname)
|
|
(let* ((src (string-append pkgname "-source"))
|
|
(input (assoc-ref inputs src))
|
|
(checkouts-dir (string-append "_checkouts/" pkgname))
|
|
(lib-dir (string-append "_build/default/lib/" pkgname)))
|
|
(mkdir-p checkouts-dir)
|
|
(invoke "tar" "-xf" input "-C" checkouts-dir)
|
|
(invoke "tar" "-xzf"
|
|
(pk (string-append checkouts-dir "/contents.tar.gz"))
|
|
"-C" checkouts-dir)
|
|
(mkdir-p lib-dir)
|
|
(copy-recursively checkouts-dir lib-dir)))
|
|
(list "bbmustache" "certifi" "cf" "cth_readable"
|
|
"eunit_formatters" "getopt" "hex_core" "erlware_commons"
|
|
"parse_trans" "relx" "ssl_verify_fun" "providers"))))
|
|
(delete 'configure)
|
|
;; By default rebar3 produces escripts with embedded ZIP archives
|
|
;; with files with current timestamps which is not suitable for
|
|
;; reproducible builds. We fix it by setting predefined timestamps.
|
|
(add-before 'build 'make-escriptize-reproducible
|
|
(lambda _
|
|
(let ((escriptize "apps/rebar/src/rebar_prv_escriptize.erl"))
|
|
(substitute* escriptize
|
|
(("\\[dir_entries\\(filename:dirname\\(Filename1\\)\\),")
|
|
(string-append "FilePath = filename:join(Dir, Filename),"
|
|
"{ok, FileInfo0} = file:read_file_info(FilePath),"
|
|
"DateTime = {{1970, 1, 1}, {0, 0, 1}},"
|
|
"FileInfo = FileInfo0#file_info{mtime = DateTime},"
|
|
"[dir_entries(filename:dirname(Filename1)),")))
|
|
(substitute* escriptize
|
|
(((string-append
|
|
"\\{Filename1, file_contents\\(filename:join\\(Dir, "
|
|
"Filename\\)\\)\\}\\]."))
|
|
"{Filename1, file_contents(FilePath), FileInfo}]."))
|
|
(substitute* escriptize
|
|
(((string-append "\\[\\{FName,FBin\\} \\|\\| \\{FName,FBin\\} <- "
|
|
"Files, FBin =/= <<>>\\]\\."))
|
|
(string-append "[{FName,FBin,FInfo} || {FName,FBin,FInfo} <- "
|
|
"Files, FBin =/= <<>>]."))))))
|
|
(replace 'build
|
|
(lambda _
|
|
(setenv "HOME" (getcwd))
|
|
(invoke "./bootstrap")))
|
|
(replace 'install
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(let* ((out (assoc-ref outputs "out")))
|
|
(install-file "rebar3" (string-append out "/bin")))))
|
|
(delete 'check))))
|
|
(native-inputs
|
|
(list erlang))
|
|
(inputs
|
|
`(("bbmustache-source" ,(package-source erlang-bbmustache))
|
|
("certifi-source" ,(package-source erlang-certifi))
|
|
("cf-source" ,(package-source erlang-cf))
|
|
("cth_readable-source" ,(package-source erlang-cth-readable))
|
|
("erlware_commons-source" ,(package-source erlang-erlware-commons))
|
|
("eunit_formatters-source" ,(package-source erlang-eunit-formatters))
|
|
("getopt-source" ,(package-source erlang-getopt))
|
|
("hex_core-source" ,(package-source erlang-hex-core))
|
|
("parse_trans-source" ,(package-source erlang-parse-trans))
|
|
("relx-source" ,(package-source erlang-relx))
|
|
("ssl_verify_fun-source" ,(package-source erlang-ssl-verify-fun))
|
|
("providers-source" ,(package-source erlang-providers))))
|
|
(home-page "https://rebar3.org/")
|
|
(synopsis "Sophisticated build-tool for Erlang projects that follows OTP
|
|
principles")
|
|
(description "@code{rebar3} is an Erlang build tool that makes it easy to
|
|
compile and test Erlang applications, port drivers and releases.
|
|
|
|
@code{rebar3} is a self-contained Erlang script, so it's easy to distribute or
|
|
even embed directly in a project. Where possible, rebar uses standard
|
|
Erlang/OTP conventions for project structures, thus minimizing the amount of
|
|
build configuration work. @code{rebar3} also provides dependency management,
|
|
enabling application writers to easily re-use common libraries from a variety
|
|
of locations (git, hg, etc).")
|
|
(license license:asl2.0)))
|
|
|
|
(define-public rebar3-raw-deps
|
|
(package
|
|
(name "rebar3-raw-deps")
|
|
(version "2.0.0")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (hexpm-uri "rebar3_raw_deps" version))
|
|
(sha256
|
|
(base32 "1pzmm3m8gb2s9jn8fp6shzgfmy4mvh2vdci0z6nsm74ma3ffh1i3"))))
|
|
(build-system rebar-build-system)
|
|
(home-page "https://github.com/soranoba/rebar3_raw_deps")
|
|
(synopsis "Rebar3 plugin for supporting \"raw\" dependencies")
|
|
(description "This plugin provides support for handling non-OTP
|
|
applications as a dependent libraries.")
|
|
(license license:expat)))
|
|
|
|
(define-public rebar3-git-vsn
|
|
(package
|
|
(name "rebar3-git-vsn")
|
|
(version "1.1.1")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (hexpm-uri "rebar3_git_vsn" version))
|
|
(sha256
|
|
(base32 "1dfz56034pa25axly9vqdzv3phkn8ll0qwrkws96pbgcprhky1hx"))))
|
|
(build-system rebar-build-system)
|
|
(inputs
|
|
(list git-minimal/pinned))
|
|
(arguments
|
|
`(;; Running the tests require binary artifact (tar-file containing
|
|
;; samples git repos) TODO: remove these from the source
|
|
#:tests? #f
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
(add-after 'unpack 'patch-path
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
(let ((git (assoc-ref inputs "git-minimal")))
|
|
(substitute* "src/rebar3_git_vsn.erl"
|
|
(("rebar_utils:sh\\(\"git " _)
|
|
(string-append "rebar_utils:sh(\"" git "/bin/git ")))))))))
|
|
(home-page "https://github.com/soranoba/rebar3_git_vsn")
|
|
(synopsis "Rebar3 plugin for generating the version from git")
|
|
(description "This plugin adds support for generating the version from
|
|
a git checkout.")
|
|
(license license:expat)))
|
|
|
|
(define-public rebar3-proper
|
|
(package
|
|
(name "rebar3-proper")
|
|
(version "0.12.1")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (hexpm-uri "rebar3_proper" version))
|
|
(sha256
|
|
(base32 "1f174fb6h2071wr7qbw9aqqvnglzsjlylmyi8215fhrmi38w94b6"))))
|
|
(build-system rebar-build-system)
|
|
(home-page "https://github.com/ferd/rebar3_proper")
|
|
(synopsis "Rebar3 PropEr plugin")
|
|
(description "This plugin allows running PropEr test suites from within
|
|
rebar3.")
|
|
(license license:bsd-3)))
|
|
|
|
(define-public erlang-lfe
|
|
(package
|
|
(name "erlang-lfe")
|
|
(version "2.1.4")
|
|
(source (origin
|
|
(method git-fetch)
|
|
(uri (git-reference
|
|
(url "https://github.com/lfe/lfe")
|
|
(commit (string-append "v" version))))
|
|
(file-name (git-file-name name version))
|
|
(sha256
|
|
(base32
|
|
"0yyh8jmdi7c4y6vjrk3zw4iy7iyqcs5h88hx96ml9dx2im2aydlq"))))
|
|
(build-system gnu-build-system)
|
|
(arguments
|
|
(list
|
|
#:modules '((ice-9 ftw)
|
|
(srfi srfi-26)
|
|
(guix build gnu-build-system)
|
|
(guix build utils))
|
|
#:make-flags #~(list (string-append "PREFIX=" #$output) "CC=gcc")
|
|
#:phases
|
|
#~(modify-phases %standard-phases
|
|
(delete 'configure)
|
|
;; By default LFE compiler itself is not deterministic. We fix it
|
|
;; here. For more details see: https://github.com/lfe/lfe/issues/492.
|
|
(add-after 'unpack 'make-deterministic
|
|
(lambda _
|
|
(substitute* "src/lfe_env.erl"
|
|
(("maps:fold\\(F, A, D\\)")
|
|
"lists:sort(maps:fold(F, A, D))"))))
|
|
;; The following is inspired by rebar-build-system.scm
|
|
(add-before 'check 'erlang-depends
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
(define input-directories
|
|
(list #$(this-package-native-input "rebar3-proper")
|
|
#$(this-package-native-input "erlang-proper")))
|
|
(mkdir-p "_checkouts")
|
|
(for-each
|
|
(lambda (input-dir)
|
|
(let ((elibdir (string-append input-dir "/lib/erlang/lib")))
|
|
(when (directory-exists? elibdir)
|
|
(for-each
|
|
(lambda (dirname)
|
|
(let ((src (string-append elibdir "/" dirname))
|
|
(dest (string-append "_checkouts/" dirname)))
|
|
(when (not (file-exists? dest))
|
|
;; Symlinking will not work, since rebar3 will try
|
|
;; to overwrite the _build directory several times
|
|
;; with the contents of _checkout, so we copy the
|
|
;; directory tree to _checkout and make it
|
|
;; writable.
|
|
(copy-recursively src dest #:follow-symlinks? #t)
|
|
(for-each (cut chmod <> #o777)
|
|
(find-files dest)))))
|
|
(scandir elibdir (lambda (file)
|
|
(and (not (member file '("." "..")))
|
|
(file-is-directory?
|
|
(string-append elibdir
|
|
"/"
|
|
file)))))))))
|
|
input-directories)))
|
|
(replace 'check
|
|
(lambda* (#:key tests? #:allow-other-keys)
|
|
(when tests?
|
|
(begin
|
|
(setenv "REBAR_CACHE_DIR" "/tmp")
|
|
(substitute* "Makefile"
|
|
;; More strict argument parsing since rebar v3.23.0 seems
|
|
;; to break backwards compatibility. See more info at:
|
|
;; https://github.com/erlang/rebar3/pull/2813.
|
|
(("-n 20,ct") "-n 20, ct"))
|
|
(invoke "make" "-j" (number->string (parallel-job-count))
|
|
"tests"))))))))
|
|
(native-inputs (list rebar3 rebar3-proper erlang-proper))
|
|
(propagated-inputs (list erlang))
|
|
(home-page "https://github.com/lfe/lfe")
|
|
(synopsis "Lisp Flavoured Erlang")
|
|
(description
|
|
"LFE, Lisp Flavoured Erlang, is a Lisp syntax front-end to the Erlang
|
|
compiler. Code produced with it is compatible with \"normal\" Erlang
|
|
code. An LFE evaluator and shell is also included.")
|
|
(license license:asl2.0)))
|