From mboxrd@z Thu Jan 1 00:00:00 1970 From: Pjotr Prins Subject: Re: Erlang Date: Thu, 23 Jun 2016 20:32:51 +0200 Message-ID: <20160623183251.GA5522@thebird.nl> References: <20160623054441.GA11139@jasmine> Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:50400) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bG9Tx-0005uK-Lk for guix-devel@gnu.org; Thu, 23 Jun 2016 14:36:09 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1bG9Tt-0000v9-Pt for guix-devel@gnu.org; Thu, 23 Jun 2016 14:36:05 -0400 Received: from mail.thebird.nl ([95.154.246.10]:43285) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bG9Tt-0000tW-EF for guix-devel@gnu.org; Thu, 23 Jun 2016 14:36:01 -0400 Content-Disposition: inline In-Reply-To: <20160623054441.GA11139@jasmine> List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: "Guix-devel" To: Leo Famulari Cc: guix-devel@gnu.org I used this package to build Elixir and 3000+ tests passed. I think it should go in :).=20 Thanks Leo for patching the remaining files that write time stamps. Erlang itself now is deterministic and compiles reproducible targets making those deterministic.=20 Very important package. Pj. On Thu, Jun 23, 2016 at 01:44:41AM -0400, Leo Famulari wrote: > Erlang 19.0 has recently been released: > http://www.erlang.org/news/105 >=20 > Version 19.0 includes this desirable change, copied from the README [0]= : > "The compiler will no longer put the compilation date and time into BEA= M > files. That means that two BEAM files compiled on the same computer > from the same source code and compilation options will be identical." >=20 > While version 19.0 was being prepared by the Erlang maintainers, Pjotr > and I made sure we could build Erlang itself without any pesky > timestamps making the package unreproducible. >=20 > I'm happy to present this latest attempt at an Erlang package. It passe= s > --rounds=3D2 for me. >=20 > It is mostly the same as the package used by Pjotr in his bioinformatic= s > Guix repository [1]. The differences are: > * This package installs the man pages and COPYRIGHT file. > * The list of licenses was increased based on the COPYRIGHT file. > * I added Pjotr to the list of authors. > * There are cosmetic / formatting changes. >=20 > Your comments are welcome :) >=20 > [0] > http://erlang.org/download/otp_src_19.0.readme >=20 > [1] > https://github.com/genenetwork/guix-bioinformatics/blob/elixir/gn/packa= ges/erlang.scm > From 752033bde8ef4137c15c0b26e9375ee90453b5e4 Mon Sep 17 00:00:00 2001 > From: Steve Sprang > Date: Sat, 6 Feb 2016 12:40:53 -0800 > Subject: [PATCH] gnu: Add erlang. >=20 > * gnu/packages/erlang.scm: New file. > * gnu/local.mk (GNU_SYSTEM_MODULES): Add it. >=20 > Co-authored by: Leo Famulari > Co-authored by: Pjotr Prins > --- > gnu/local.mk | 1 + > gnu/packages/erlang.scm | 179 ++++++++++++++++++++++++++++++++++++++++= ++++++++ > 2 files changed, 180 insertions(+) > create mode 100644 gnu/packages/erlang.scm >=20 > diff --git a/gnu/local.mk b/gnu/local.mk > index ab0cf49..0b92ae5 100644 > --- a/gnu/local.mk > +++ b/gnu/local.mk > @@ -109,6 +109,7 @@ GNU_SYSTEM_MODULES =3D \ > %D%/packages/engineering.scm \ > %D%/packages/enlightenment.scm \ > %D%/packages/entr.scm \ > + %D%/packages/erlang.scm \ > %D%/packages/fcitx.scm \ > %D%/packages/feh.scm \ > %D%/packages/figlet.scm \ > diff --git a/gnu/packages/erlang.scm b/gnu/packages/erlang.scm > new file mode 100644 > index 0000000..39da7e9 > --- /dev/null > +++ b/gnu/packages/erlang.scm > @@ -0,0 +1,179 @@ > +;;; GNU Guix --- Functional package management for GNU > +;;; Copyright =A9 2016 Steve Sprang > +;;; Copyright =A9 2016 Leo Famulari > +;;; Copyright =A9 2016 Pjotr Prins > +;;; > +;;; This file is part of GNU Guix. > +;;; > +;;; GNU Guix is free software; you can redistribute it and/or modify i= t > +;;; 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 . > + > +(define-module (gnu packages erlang) > + #:use-module ((guix licenses) #:prefix license:) > + #:use-module (guix build-system gnu) > + #:use-module (guix download) > + #:use-module (guix packages) > + #:use-module (gnu packages autotools) > + #:use-module (gnu packages fontutils) > + #:use-module (gnu packages gl) > + #:use-module (gnu packages ncurses) > + #:use-module (gnu packages perl) > + #:use-module (gnu packages tls) > + #:use-module (gnu packages wxwidgets)) > + > +(define-public erlang > + (package > + (name "erlang") > + ;; When updating, remember to update the hash of erlang-manpages! > + (version "19.0") > + (source (origin > + (method url-fetch) > + ;; The tarball from http://erlang.org/download contains = many > + ;; pre-compiled files, so we use this snapshot of the so= urce > + ;; repository. > + (uri (string-append "https://github.com/erlang/otp/archi= ve/OTP-" > + version ".tar.gz")) > + (file-name (string-append name "-" version ".tar.gz")) > + (sha256 > + (base32 > + "1dxyz6x1yfv33fd0xfry2ihylkyfa2d655q1vxvbz8dflyd64yqh"= )))) > + (build-system gnu-build-system) > + (native-inputs > + `(("perl" ,perl) > + ("autoconf" ,autoconf) > + ("automake" ,automake) > + > + ;; Erlang's documentation is distributed in a separate tarball. > + ("erlang-manpages" > + ,(origin > + (method url-fetch) > + (uri (string-append "http://erlang.org/download/otp_doc_man= _" > + version ".tar.gz")) > + (sha256 > + (base32 > + "07j0l7ary936hil38xr3hvfw6j74pshkyyi98kc9cassbbcdd8y7")))= ))) > + (inputs > + `(("ncurses" ,ncurses) > + ("openssl" ,openssl) > + ("wxwidgets" ,wxwidgets))) > + (propagated-inputs > + `(("fontconfig" ,fontconfig) > + ("glu" ,glu) > + ("mesa" ,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=3D" (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 > + ;; 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_EP= OCH")))))) > + (substitute* "lib/reltool/src/reltool_target.erl" > + (("Date =3D date\\(\\),") > + (string-append "Date =3D " > + (date->string source-date-epoch > + "'{~Y,~m,~d}',")))) > + (substitute* "lib/reltool/src/reltool_target.erl" > + (("Time =3D time\\(\\),") > + (string-append "Time =3D " > + (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" > + "lib/gs/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\\} =3D date\\(\\),") > + (date->string source-date-epoch > + "{Y,Mo,D} =3D {~Y,~m,~d},"))) > + (substitute* "lib/snmp/src/compile/snmpc_mib_to_hrl.erl= " > + (("\\{H,Mi,S\\} =3D time\\(\\),") > + (date->string source-date-epoch > + "{H,Mi,S} =3D {~H,~M,~S},")))))) > + (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-before 'configure 'autoconf > + (lambda _ (zero? (system* "./otp_build" "autoconf")))) > + (add-after 'install 'patch-erl > + ;; This only works after install. > + (lambda _ > + (substitute* (string-append (assoc-ref %outputs "out") "/= bin/erl") > + (("sed") (which "sed"))))) > + (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) > + (mkdir-p (string-append share "/misc/erlang")) > + (with-directory-excursion share > + (and > + (zero? (system* "tar" "xvf" manpages)) > + (rename-file "COPYRIGHT" > + (string-append share "/misc/erlang/COPYR= IGHT")) > + ;; Delete superfluous files. > + (for-each delete-file '("PR.template" > + "README")))))))))) > + (home-page "http://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 co= mponents > + ;; have other licenses. See 'system/COPYRIGHT' in the source distr= ibution. > + (license (list license:asl2.0 license:bsd-2 license:bsd-3 license:= expat > + license:lgpl2.0+ license:tcl/tk license:zlib)))) > --=20 > 2.9.0 >=20 --=20