From: Liliana Marie Prikler <liliana.prikler@gmail.com>
To: "Pierre-Henry Fröhring" <phfrohring@deeplinks.com>,
66801@debbugs.gnu.org
Subject: [bug#66801] [PATCH va3e5ae0f..37252e07 01/32] rebar-build-system and packages.
Date: Sun, 29 Oct 2023 19:29:53 +0100 [thread overview]
Message-ID: <7ceab0dcbe069f664377786b5bb531e2196fffc1.camel@gmail.com> (raw)
In-Reply-To: <a3e5ae0f3235df996b4be479f107680ae769a3c4.1698590244.git.phfrohring@deeplinks.com>
Am Sonntag, dem 29.10.2023 um 15:36 +0100 schrieb Pierre-Henry
Fröhring:
> [PATCH va3e5ae0f..37252e07 01/32]
The middle should indicate a revision number and an optional branch (as
well as optional WIP and RFC). Since this goes to master (I assume),
it should just be v2, v3, … vN
> The builder now accepts the `#:sources-erlang` parameter, which
> expects a list of "Source" items. Each "Source" corresponds to the
> source code of a library directory, which is where Erlang looks for
> compiled modules.
> Documentation:
> https://www.erlang.org/doc/man/code#code-path. Each Source is
> installed as a "Checkout", which are local dependencies linked to
> directories managed by rebar. For more information, see
> https://rebar3.org/docs/configuration/dependencies/#checkout-dependencies
> . Lacking checkouts, rebar3 will not compile if there is no network
> access.
>
> Change-Id: Idc3aa8bb204f55d0594c1669399845cd9b9e86ab
> ---
> guix/build-system/rebar.scm | 274 +++++++++++++++++++---------
> --
> guix/build/rebar-build-system.scm | 255 +++++++++++++++++----------
> 2 files changed, 339 insertions(+), 190 deletions(-)
>
> diff --git a/guix/build-system/rebar.scm b/guix/build-
> system/rebar.scm
> index de1294ec..862721ee 100644
> --- a/guix/build-system/rebar.scm
> +++ b/guix/build-system/rebar.scm
> @@ -1,6 +1,7 @@
> ;;; GNU Guix --- Functional package management for GNU
> ;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net>
> ;;; Copyright © 2020 Hartmut Goebel <h.goebel@crazy-compilers.com>
> +;;; Copyright © 2023 Pierre-Henry Fröhring
> <phfrohring@deeplinks.com>
> ;;;
> ;;; This file is part of GNU Guix.
> ;;;
> @@ -18,102 +19,117 @@
> ;;; along with GNU Guix. If not, see
> <http://www.gnu.org/licenses/>.
>
> (define-module (guix build-system rebar)
> - #:use-module (guix store)
> - #:use-module (guix utils)
> + #:use-module (guix build-system gnu)
> + #:use-module (guix build-system)
> #:use-module (guix gexp)
> - #:use-module (guix packages)
> #:use-module (guix monads)
> + #:use-module (guix packages)
> #:use-module (guix search-paths)
> - #:use-module (guix build-system)
> - #:use-module (guix build-system gnu)
> - #:export (hexpm-uri
> - hexpm-package-url
> - %rebar-build-system-modules
> - rebar-build
> - rebar-build-system))
> + #:use-module (guix store)
> + #:use-module (guix utils)
> + #:use-module (ice-9 match)
> + #:use-module (ice-9 regex)
> + #:use-module (srfi srfi-1)
> + #:export (hexpm-uri hexpm-package-url %rebar-build-system-modules
> + rebar-build rebar-build-system))
>
> -;;;
> -;;; Definitions for the hex.pm repository,
> -;;;
> +;; Source
> +;; A « Source » reprensents the source code to a library
> directory. It is
> +;; defined as (list <name> <origin>) where: <name> is a string
> representing
> +;; the name of a library directory and <origin> is an origin as
> defined
> +;; (guix packages).
> +
> +
> +;; Pattern that an Erlang Guix package name is expected to match.
> +(define pkg-name-re "^erlang-(.*)")
Emacs, Rust, etc. build systems just strip out the prefix. No need to
go all fancy regexpy :)
> +(define (pkg-name->match name)
> + "Return the match object from NAME if NAME starts with pkg-name-
> prefix."
> + (string-match pkg-name-re name))
> +
> +(define (pkg-name? name)
> + "Test if NAME is the name of an Erlang Guix package."
> + (or (pkg-name->match name) #f))
>
> -;; URL and paths from
> -;; https://github.com/hexpm/specifications/blob/master/endpoints.md
> -(define %hexpm-repo-url
> - (make-parameter "https://repo.hex.pm"))
> +(define (pkg-name->suffix name)
> + "Return the suffix of the name of an Erlang Guix package."
> + (regexp-substitute #f (pkg-name->match name) 1))
>
> -(define hexpm-package-url
> - (string-append (%hexpm-repo-url) "/tarballs/"))
> +(define* (pkg-name->library-directory-name name #:key (version ""))
> + "Return the name of the library directory associated with the
> Erlang Guix package name NAME."
> + (string-append (string-replace-substring (pkg-name->suffix name)
> "-" "_")
> + (if (string= version "") "" (string-append "-"
> version))))
> +
> +;; See:
> https://github.com/hexpm/specifications/blob/master/endpoints.md
> +(define hexpm (make-parameter "https://repo.hex.pm"))
> +
> +(define hexpm-tarballs (string-append (hexpm) "/tarballs/"))
>
> (define (hexpm-uri name version)
> "Return a URI string for the package hosted at hex.pm
> corresponding to NAME
> -and VERSION."
> - (string-append hexpm-package-url name "-" version ".tar"))
> +and VERSION.
>
> -;;
> -;; Standard build procedure for Erlang packages using Rebar.
> -;;
> +XXX: should a warning be emitted?
> +If NAME is not an Erlang Guix package name, then emit a warning. The
> download
> +will fail if it is not correct anyway."
>
> -(define %rebar-build-system-modules
> - ;; Build-side modules imported by default.
> - `((guix build rebar-build-system)
> - ,@%gnu-build-system-modules))
> + (define (warn-about name)
> + (format #t "AssertionWarning 4dcbff27
> + Assertion: re matches name.
> + re = ~a
> + name = ~a
> +" pkg-name-re name)
> +
> + name)
何で?
>
> -(define (default-rebar3)
> - "Return the default Rebar3 package."
> + (define (name->archive-name name)
> + (if (pkg-name? name)
> + (string-append (pkg-name->library-directory-name name
> #:version version) ".tar")
> + (string-append (warn-about name) "-" version ".tar")))
> +
> + (string-append hexpm-tarballs (name->archive-name name)))
> +
> +(define (rebar-default)
> ;; Lazily resolve the binding to avoid a circular dependency.
> (let ((erlang-mod (resolve-interface '(gnu packages erlang))))
> (module-ref erlang-mod 'rebar3)))
I suggest not to rename these procedures. default-X reads more
naturally than X-default.
> -(define (default-erlang)
> - "Return the default Erlang package."
> +(define (erlang-default)
> ;; Lazily resolve the binding to avoid a circular dependency.
> (let ((erlang-mod (resolve-interface '(gnu packages erlang))))
> (module-ref erlang-mod 'erlang)))
>
> -(define* (lower name
> - #:key source inputs native-inputs outputs system
> target
> - (rebar (default-rebar3))
> - (erlang (default-erlang))
> - #:allow-other-keys
> - #:rest arguments)
> - "Return a bag for NAME from the given arguments."
> - (define private-keywords
> - '(#:target #:rebar #:erlang #:inputs #:native-inputs))
> -
> - (and (not target) ;XXX: no cross-
> compilation
> - (bag
> - (name name)
> - (system system)
> - (host-inputs `(,@(if source
> - `(("source" ,source))
> - '())
> - ,@inputs))
> - (build-inputs `(("rebar" ,rebar)
> - ("erlang" ,erlang) ;; for escriptize
> - ,@native-inputs
> - ;; Keep the standard inputs of 'gnu-build-
> system'.
> - ,@(standard-packages)))
> - (outputs outputs)
> - (build rebar-build)
> - (arguments (strip-keyword-arguments private-keywords
> arguments)))))
> -
> -(define* (rebar-build name inputs
> - #:key
> - guile source
> - (rebar-flags ''("skip_deps=true" "-vv"))
> - (tests? #t)
> - (test-target "eunit")
> - ;; TODO: install-name ; default: based on
> guix package name
> - (install-profile "default")
> - (phases '(@ (guix build rebar-build-system)
> - %standard-phases))
> - (outputs '("out"))
> - (search-paths '())
> - (native-search-paths '())
> - (system (%current-system))
> - (imported-modules %rebar-build-system-
> modules)
> - (modules '((guix build rebar-build-system)
> - (guix build utils))))
> +(define imported-modules
> + `((guix build rebar-build-system)
> + ,@%gnu-build-system-modules))
> +
> +(define (input->source input)
> + "Return a Source associated to the Input INPUT."
> + (match input
> + ((name package)
> + (list (pkg-name->library-directory-name name)
> + (package-source package)))))
> +
> +(define* (rebar-build name
> + inputs
> + #:key
> + guile
> + source
> + (rebar-flags ''())
> + (tests? #t)
> + (test-target "eunit")
> + ;; TODO: install-name ; default: based on
> guix package name
> + (install-profile "default")
> + (phases '(@ (guix build rebar-build-system)
> + %standard-phases))
> + (outputs '("out"))
> + (search-paths '())
> + (native-search-paths '())
> + (system (%current-system))
> + (imported-modules imported-modules)
> + (modules '((guix build rebar-build-system)
> + (guix build utils)))
> + (sources-erlang '()))
> "Build SOURCE with INPUTS."
>
> (define builder
> @@ -122,35 +138,95 @@ (define* (rebar-build name inputs
> (use-modules #$@(sexp->gexp modules))
>
> #$(with-build-variables inputs outputs
> +
> #~(rebar-build #:source #+source
> - #:system #$system
> - #:name #$name
> - #:rebar-flags #$rebar-flags
> - #:tests? #$tests?
> - #:test-target #$test-target
> - ;; TODO: #:install-name #$install-name
> - #:install-profile #$install-profile
> - #:phases #$(if (pair? phases)
> - (sexp->gexp phases)
> - phases)
> - #:outputs %outputs
> - #:search-paths '#$(sexp->gexp
> - (map search-path-
> specification->sexp
> - search-paths))
> - #:inputs %build-inputs)))))
> -
> - (mlet %store-monad ((guile (package->derivation (or guile
> (default-guile))
> - system #:graft?
> #f)))
> + #:sources-erlang '#$sources-erlang
This reeks of the hack that we need for cargo-build-system, except with
a worse variable name. I strongly suggest looking into ways we can do
without it.
> + #:system #$system
> + #:name #$name
> + #:rebar-flags #$rebar-flags
> + #:tests? #$tests?
> + #:test-target #$test-target
> + ;; TODO: #:install-name #$install-name
> + #:install-profile #$install-profile
> + #:phases #$(if (pair?
> + phases)
> + (sexp->gexp
> + phases)
> + phases)
> + #:outputs %outputs
> + #:search-paths '#$(sexp->gexp
> + (map
> + search-path-
> specification->sexp
> + search-paths))
> + #:inputs
> + %build-inputs)))))
> +
> + (mlet %store-monad
> + ((guile (package->derivation (or guile
> + (default-guile)) system
> + #:graft? #f)))
> +
> ;; Note: Always pass #:graft? #f. Without it, ALLOWED-
> REFERENCES &
> ;; co. would be interpreted as referring to grafted packages.
> - (gexp->derivation name builder
> + (gexp->derivation name
> + builder
> #:system system
> #:target #f
> #:graft? #f
> #:guile-for-build guile)))
>
> +(define* (lower name
> + #:key
> + (erlang (erlang-default))
> + inputs
> + native-inputs
> + outputs
> + (rebar (rebar-default))
> + source
> + system
> + target
> + #:allow-other-keys #:rest arguments)
> + "Return a bag for NAME from the given arguments."
> +
> + (let* ((erlang-packages
> + (filter (lambda (input)
> + (match input
> + ((name _) (pkg-name? name))))
> + (append inputs native-inputs)))
> +
> + (erlang-sources (map input->source erlang-packages)))
> +
> + (define private-keywords
> + '(#:target #:rebar #:erlang #:inputs #:native-inputs
> #:sources-erlang))
> +
> + (and (not target) ;XXX: no cross-compilation
> + (bag (name name)
> + (system system)
> + (host-inputs inputs)
> + (build-inputs `(,@(standard-packages)
> + ("erlang" ,erlang)
> + ("rebar" ,rebar)
> + ,@inputs
> + ,@native-inputs))
> + (outputs outputs)
> + (build rebar-build)
> + (arguments (append (list #:sources-erlang erlang-
> sources)
> + (strip-keyword-arguments private-
> keywords
> +
> arguments)))))))
> +
> (define rebar-build-system
> - (build-system
> - (name 'rebar)
> - (description "The standard Rebar build system")
> - (lower lower)))
> + (build-system (name 'rebar)
> + (description "The standard Rebar build system")
> + (lower lower)))
> +
> +
> +;;;
> +;;; Exports
> +;;;
> +
> +(define hexpm-package-url hexpm-tarballs)
> +
> +(define %rebar-build-system-modules imported-modules)
> +
> +
> +;;; rebar.scm ends here
> diff --git a/guix/build/rebar-build-system.scm b/guix/build/rebar-
> build-system.scm
> index fb664228..b68348bd 100644
> --- a/guix/build/rebar-build-system.scm
> +++ b/guix/build/rebar-build-system.scm
> @@ -2,6 +2,7 @@
> ;;; Copyright © 2016, 2018 Ricardo Wurmus <rekado@elephly.net>
> ;;; Copyright © 2019 Björn Höfling
> <bjoern.hoefling@bjoernhoefling.de>
> ;;; Copyright © 2020, 2022 Hartmut Goebel
> <h.goebel@crazy-compilers.com>
> +;;; Copyright © 2023 Pierre-Henry Fröhring
> <phfrohring@deeplinks.com>
> ;;;
> ;;; This file is part of GNU Guix.
> ;;;
> @@ -23,125 +24,197 @@ (define-module (guix build rebar-build-system)
> #:use-module ((guix build utils) #:hide (delete))
> #:use-module (ice-9 match)
> #:use-module (ice-9 ftw)
> + #:use-module (ice-9 string-fun)
> + #:use-module (ice-9 receive)
> + #:use-module (ice-9 regex)
> #:use-module (srfi srfi-1)
> #:use-module (srfi srfi-26)
> - #:export (rebar-build
> - %standard-phases))
> + #:export (rebar-build %standard-phases))
>
> ;;
> ;; Builder-side code of the standard build procedure for Erlang
> packages using
> ;; rebar3.
> ;;
> -;; TODO: Think about whether bindir ("ebin"), libdir ("priv") and
> includedir
> -;; "(include") need to be configurable
> +;; Library directory
> +;; A « library directory » is a directory where Erlang searches
> for compiled
> +;; code. Its name should look like: `a_name-1.2.3' where the
> suffix `-1.2.3'
> +;; is optional. See:
> https://www.erlang.org/doc/man/code#code-path.
> +;;
> +;; Package name
> +;; A « package name » is the value of the name field of a package
> +;; definition. It looks like: `prefix-a-name-1.2.3'. See:
> +;; https://guix.gnu.org/manual/en/html_node/Package-Naming.html
> +;;
> +;; Profile
> +;; For Rebar3, a « profile » is a name associated to a set of
> configuration
> +;; settings overriding or complementing the regular configuration.
> See:
> +;; https://rebar3.org/docs/configuration/profiles
> +;;
> +;; Source
> +;; A « source » represents the source code associated to a Guix
> package as
> +;; defined by its `source' field. Here, the data sctructure used
> to
> +;; represent a source has the form `(list name path)' where `name'
> is a
> +;; library directory name and `path' is the store path where to
> find the
> +;; source code.
> +;;
> +;; Checkout
> +;; A « checkout » is a locally defined dependency related to a
> directory
> +;; managed by rebar. See:
> +;;
> https://rebar3.org/docs/configuration/dependencies/#checkout-dependencies
>
> -(define %erlang-libdir "/lib/erlang/lib")
> +(define sep "/")
Uhm, did you mean file-name-separator-string from Guile core?
> -(define* (erlang-depends #:key inputs #:allow-other-keys)
> - (define input-directories
> - (match inputs
> - (((_ . dir) ...)
> - dir)))
> - (mkdir-p "_checkouts")
> -
> - (for-each
> - (lambda (input-dir)
> - (let ((elibdir (string-append input-dir %erlang-libdir)))
> - (when (directory-exists? elibdir)
> - (for-each
> - (lambda (dirname)
> - (let ((dest (string-append elibdir "/" dirname))
> - (link (string-append "_checkouts/" dirname)))
> - (when (not (file-exists? link))
> - ;; RETHINK: Maybe better copy and make writable to
> avoid some
> - ;; error messages e.g. when using with rebar3-git-
> vsn.
> - (symlink dest link))))
> - (list-directories elibdir)))))
> - input-directories))
> +;; Where Erlang libraries are installed relative to a package path
> in the store.
> +(define lib-erlang-lib "lib/erlang/lib")
> +
> +(define (list-directories directory)
> + "Return file names of the sub-directory of DIRECTORY."
> + (scandir directory
> + (lambda (file)
> + (and (not (member file '("." "..")))
> + (file-is-directory? (string-append directory sep
> file))))))
We have find-files?
> +
> +(define* (pkg-name->libdir-name name)
> + "Return the library name deduced from the Erlang package name
> NAME."
> + (let* ((suffix (regexp-substitute #f (string-match "^erlang-(.*)"
> name) 1))
> + (elements (string-split suffix #\-)))
> + (string-append (string-join (drop-right elements 1) "_") "-"
> (last elements))))
> +
> +(define (libdir-name->prefix name)
> + "Return the prefix of a library directory name NAME."
> + (car (string-split name #\-)))
> +
> +(define (rebar-build-dir profile)
> + "Return the path where rebar builds libraries given the profile
> PROFILE."
> + (format #f "_build/~a/lib" profile))
> +
> +(define* (pkg-name->build-dir name #:key (profile "default"))
> + "Return the path of library directory where rebar3 builds code of
> an Erlang package named NAME given the profile PROFILE."
> + (string-append (rebar-build-dir profile) sep (libdir-name->prefix
> (pkg-name->libdir-name name))))
>
> (define* (unpack #:key source #:allow-other-keys)
> - "Unpack SOURCE in the working directory, and change directory
> within the
> -source. When SOURCE is a directory, copy it in a sub-directory of
> the current
> -working directory."
> - (let ((gnu-unpack (assoc-ref gnu:%standard-phases 'unpack)))
> - (gnu-unpack #:source source)
> - ;; Packages from hex.pm typically have a contents.tar.gz
> containing the
> - ;; actual source. If this tar file exists, extract it.
> - (when (file-exists? "contents.tar.gz")
> - (invoke "tar" "xvf" "contents.tar.gz"))))
> -
> -(define* (build #:key (rebar-flags '()) #:allow-other-keys)
> + (if (file-is-directory? source)
> + ;; If source is a checkout:
> + (begin
> + ;; Preserve timestamps (set to the Epoch) on the copied tree
> so that
> + ;; things work deterministically.
> + (copy-recursively source "." #:keep-mtime? #t)
> + ;; Make the source checkout files writable, for convenience.
> + (for-each (lambda (f)
> + (false-if-exception (make-file-writable f)))
> + (find-files ".")))
> +
> + ;; If source is an hex.pm archive:
> + (begin
> + (invoke "tar" "xvf" source)
> + (invoke "tar" "xvf" "contents.tar.gz")
> +
> + ;; Prevent an error message during the install phase.
> + ;; `rebar3 compile' produces symlinks like so in _build/:
> + ;; priv -> ../../../../priv
> + ;; include -> ../../../../include
> + ;;
> + ;; The install phase copies whatever has been built to the
> output directory.
> + ;; If the priv/ directory is absent, then an error `i/o
> error:
> + ;; _build/…/priv: No such file or directory' occurs. So,
> we make sure that a
> + ;; directory exists.
> + (for-each (lambda (dir) (mkdir-p dir)) (list "priv"
> "include")))))
Uhm, how are you improving the status quo here?
> +
> +(define (configure-HOME . ignored_args)
Just _ is fine for ignored arguments.
> + "In some cases, it is needed for the environment variable HOME to
> be defined
> +as a directory with write permission. Examples of errors:
> +
> +Could not write to \"/homeless-shelter/.cache/rebar3/hex\". Please
> ensure the path is writeable.
> +"
> + (let ((HOME "HOME")
> + (tmp "/tmp"))
> + (setenv HOME tmp)
> + (format #t "~a=~a\n" HOME tmp)))
The canonical way is to use (getcwd) as HOME. You can could also try
something like (canonicalize-path "../hexpm-home"). Anyhow, you might
want to try using a variable that is less global than HOME.
> +(define* (configure-dependencies #:key
> + (install-profile "default")
> + inputs
> + name
> + sources-erlang ;List of Source.
> + version
> + #:allow-other-keys)
> + "Rebar3 refuses to compile without network access unless its
> dependencies are
> +present as source checkouts. To prevent unnecessary compilations, we
> must «
> +pre-install » dependencies in Rebar's build directory."
I suggest not using french quotes – they are confusing between French
and German native speakers :)
You might want to look into possible PATH variables or put these
sources into a special folder so that you can use search-path-as-list.
Also, IIUC erlang-depends already does something rather similar. Is
there any reason it's broken for you?
> +
> + ;; If source in sources-erlang, then install it under _checkouts/.
> + (let ((_checkouts "_checkouts"))
> + (mkdir-p _checkouts)
> +
> + (define (install-source source)
> + "Install the Source SOURCE in _checkouts."
> + (match source
> + ((name path)
> + (let ((src (string-append _checkouts sep name)))
> + (mkdir-p src)
> + (with-directory-excursion src (unpack #:source path))))
> + (_ #f)))
> +
> + (for-each install-source sources-erlang))
> +
> + ;; If input in inputs is an Erlang package, then install it under
> _build/.
> + (let ((_build (format #f "_build/~a/checkouts" install-profile)))
> + (mkdir-p _build)
> +
> + (define (install-libdir elib name dest)
> + "Install the library directory named NAME from ELIB to DEST."
> + (let ((src (string-append elib sep name))
> + (dest (string-append dest sep (libdir-name->prefix
> name))))
> + (copy-recursively src dest)
> + (mkdir-p (string-append dest "/priv"))))
> +
> + (define (install-all-libdirs dir dest)
> + "Install in DEST all library directories in DIR."
> + (let ((elib (string-append dir sep lib-erlang-lib)))
> + (when (directory-exists? elib)
> + (for-each (lambda (name) (install-libdir elib name dest))
> + (list-directories elib)))))
> +
> + (match inputs
> + (((_ . dirs) ..1)
> + (for-each
> + (lambda (dir) (install-all-libdirs dir _build))
> + dirs))
> + (_ #f))))
> +
> +(define* (build #:key name (rebar-flags '()) #:allow-other-keys)
> (apply invoke `("rebar3" "compile" ,@rebar-flags)))
>
> -(define* (check #:key target (rebar-flags '()) (tests? (not target))
> +(define* (check #:key target
> + (rebar-flags '())
> + (tests? (not target))
> (test-target "eunit")
> #:allow-other-keys)
> (if tests?
> (apply invoke `("rebar3" ,test-target ,@rebar-flags))
> (format #t "test suite not run~%")))
>
> -(define (erlang-package? name)
> - "Check if NAME correspond to the name of an Erlang package."
> - (string-prefix? "erlang-" name))
> -
> -(define (package-name-version->erlang-name name+ver)
> - "Convert the Guix package NAME-VER to the corresponding Erlang
> name-version
> -format. Essentially drop the prefix used in Guix and replace dashes
> by
> -underscores."
> - (let* ((name- (package-name->name+version name+ver)))
> - (string-join
> - (string-split
> - (if (erlang-package? name-) ; checks for "erlang-" prefix
> - (string-drop name- (string-length "erlang-"))
> - name-)
> - #\-)
> - "_")))
> -
> -(define (list-directories directory)
> - "Return file names of the sub-directory of DIRECTORY."
> - (scandir directory
> - (lambda (file)
> - (and (not (member file '("." "..")))
> - (file-is-directory? (string-append directory "/"
> file))))))
> -
> -(define* (install #:key name outputs
> - (install-name (package-name-version->erlang-name
> name))
> - (install-profile "default") ; build profile
> outputs to install
> - #:allow-other-keys)
> - (let* ((out (assoc-ref outputs "out"))
> - (pkg-dir (string-append out %erlang-libdir "/" install-
> name)))
> - (let ((bin-dir (string-append "_build/" install-profile "/bin"))
> - (lib-dir (string-append "_build/" install-profile
> "/lib")))
> - ;; install _build/PROFILE/bin
> - (when (file-exists? bin-dir)
> - (copy-recursively bin-dir out #:follow-symlinks? #t))
> - ;; install _build/PROFILE/lib/*/{ebin,include,priv}
> - (for-each
> - (lambda (*)
> - (for-each
> - (lambda (dirname)
> - (let ((src-dir (string-append lib-dir "/" * "/"
> dirname))
> - (dst-dir (string-append pkg-dir "/" dirname)))
> - (when (file-exists? src-dir)
> - (copy-recursively src-dir dst-dir #:follow-symlinks?
> #t))
> - (false-if-exception
> - (delete-file (string-append dst-dir
> "/.gitignore")))))
> - '("ebin" "include" "priv")))
> - (list-directories lib-dir))
> - (false-if-exception
> - (delete-file (string-append pkg-dir "/priv/Run-eunit-
> loop.expect"))))))
> +(define* (install #:key name outputs (install-profile "default")
> #:allow-other-keys)
> + (let* ((src (pkg-name->build-dir name #:profile install-profile))
> + (dest (string-append (assoc-ref outputs "out")
> + sep lib-erlang-lib sep
> + (pkg-name->libdir-name name))))
> + (mkdir-p dest)
> + (copy-recursively src dest #:follow-symlinks? #t)))
>
> (define %standard-phases
> (modify-phases gnu:%standard-phases
> (replace 'unpack unpack)
> + (add-after 'unpack 'configure-HOME configure-HOME)
> (delete 'bootstrap)
> (delete 'configure)
> - (add-before 'build 'erlang-depends erlang-depends)
> + (add-before 'build 'configure-dependencies configure-
> dependencies)
> (replace 'build build)
> (replace 'check check)
> (replace 'install install)))
>
> -(define* (rebar-build #:key inputs (phases %standard-phases)
> - #:allow-other-keys #:rest args)
> +(define* (rebar-build #:key inputs (phases %standard-phases)
> #:allow-other-keys #:rest args)
> "Build the given Erlang package, applying all of PHASES in order."
> (apply gnu:gnu-build #:inputs inputs #:phases phases args))
> +
> +;;; rebar-build-system.scm ends here
>
> base-commit: 4dfbc536689b07e56aead3dd864b8af54613d091
> --
> 2.41.0
Cheers
next prev parent reply other threads:[~2023-10-29 18:30 UTC|newest]
Thread overview: 152+ messages / expand[flat|nested] mbox.gz Atom feed top
2023-10-28 20:19 [bug#66801] [PATCH] mix-build-system: draft 1 Pierre-Henry Fröhring
2023-10-28 21:43 ` Liliana Marie Prikler
2023-10-29 17:19 ` Pierre-Henry Fröhring
2023-10-29 14:36 ` [bug#66801] [PATCH va3e5ae0f..37252e07 01/32] rebar-build-system and packages Pierre-Henry Fröhring
2023-10-29 14:36 ` [bug#66801] [PATCH va3e5ae0f..37252e07 02/32] gnu: erlang updated Pierre-Henry Fröhring
2023-10-29 19:22 ` Liliana Marie Prikler
2023-10-29 14:36 ` [bug#66801] [PATCH va3e5ae0f..37252e07 03/32] gnu: erlang-certifi: moved to erlang-xyz.scm Pierre-Henry Fröhring
2023-10-29 19:25 ` Liliana Marie Prikler
2023-10-29 14:36 ` [bug#66801] [PATCH va3e5ae0f..37252e07 04/32] gnu: erlang-getopt: " Pierre-Henry Fröhring
2023-10-29 14:36 ` [bug#66801] [PATCH va3e5ae0f..37252e07 05/32] gnu: erlang-edown: " Pierre-Henry Fröhring
2023-10-29 14:36 ` [bug#66801] [PATCH va3e5ae0f..37252e07 06/32] gnu: erlang-rebar3-git-vsn: " Pierre-Henry Fröhring
2023-10-29 19:31 ` Liliana Marie Prikler
2023-10-29 19:42 ` Pierre-Henry Fröhring
2023-10-29 14:37 ` [bug#66801] [PATCH va3e5ae0f..37252e07 07/32] gnu: erlang-rebar3-raw-deps: " Pierre-Henry Fröhring
2023-10-29 14:37 ` [bug#66801] [PATCH va3e5ae0f..37252e07 08/32] gnu: erlang-rebar3-proper: " Pierre-Henry Fröhring
2023-10-29 14:37 ` [bug#66801] [PATCH va3e5ae0f..37252e07 09/32] gnu: erlang-bbmustache: " Pierre-Henry Fröhring
2023-10-29 14:37 ` [bug#66801] [PATCH va3e5ae0f..37252e07 10/32] gnu: erlang-cf: " Pierre-Henry Fröhring
2023-10-29 14:37 ` [bug#66801] [PATCH va3e5ae0f..37252e07 11/32] gnu: erlang-yamerl: " Pierre-Henry Fröhring
2023-10-29 14:37 ` [bug#66801] [PATCH va3e5ae0f..37252e07 12/32] gnu: erlang-covertool: " Pierre-Henry Fröhring
2023-10-29 14:37 ` [bug#66801] [PATCH va3e5ae0f..37252e07 13/32] gnu: erlang-cth-readable: " Pierre-Henry Fröhring
2023-10-29 14:37 ` [bug#66801] [PATCH va3e5ae0f..37252e07 14/32] gnu: erlang-erlware-commons: " Pierre-Henry Fröhring
2023-10-29 14:37 ` [bug#66801] [PATCH va3e5ae0f..37252e07 15/32] gnu: erlang-eunit-formatters: " Pierre-Henry Fröhring
2023-10-29 14:37 ` [bug#66801] [PATCH va3e5ae0f..37252e07 16/32] gnu: erlang-proper: " Pierre-Henry Fröhring
2023-10-29 14:37 ` [bug#66801] [PATCH va3e5ae0f..37252e07 17/32] gnu: erlang-hex-core: " Pierre-Henry Fröhring
2023-10-29 14:37 ` [bug#66801] [PATCH va3e5ae0f..37252e07 18/32] gnu: erlang-jsx: " Pierre-Henry Fröhring
2023-10-29 14:37 ` [bug#66801] [PATCH va3e5ae0f..37252e07 19/32] gnu: erlang-relx: " Pierre-Henry Fröhring
2023-10-29 14:37 ` [bug#66801] [PATCH va3e5ae0f..37252e07 20/32] gnu: erlang-providers: " Pierre-Henry Fröhring
2023-10-29 14:37 ` [bug#66801] [PATCH va3e5ae0f..37252e07 21/32] gnu: erlang-jsone: " Pierre-Henry Fröhring
2023-10-29 14:37 ` [bug#66801] [PATCH va3e5ae0f..37252e07 22/32] gnu: erlang-parse-trans: " Pierre-Henry Fröhring
2023-10-29 14:37 ` [bug#66801] [PATCH va3e5ae0f..37252e07 23/32] gnu: erlang-unicode-util-compat: " Pierre-Henry Fröhring
2023-10-29 14:37 ` [bug#66801] [PATCH va3e5ae0f..37252e07 24/32] gnu: erlang-idna: " Pierre-Henry Fröhring
2023-10-29 14:37 ` [bug#66801] [PATCH va3e5ae0f..37252e07 25/32] gnu: erlang-bear: " Pierre-Henry Fröhring
2023-10-29 14:37 ` [bug#66801] [PATCH va3e5ae0f..37252e07 26/32] gnu: erlang-erlang-color: " Pierre-Henry Fröhring
2023-10-29 14:37 ` [bug#66801] [PATCH va3e5ae0f..37252e07 27/32] gnu: erlang-tdiff: " Pierre-Henry Fröhring
2023-10-29 14:37 ` [bug#66801] [PATCH va3e5ae0f..37252e07 28/32] gnu: erlang-rebar3-ex-doc: " Pierre-Henry Fröhring
2023-10-29 14:37 ` [bug#66801] [PATCH va3e5ae0f..37252e07 29/32] gnu: erlang-samovar: " Pierre-Henry Fröhring
2023-10-29 14:37 ` [bug#66801] [PATCH va3e5ae0f..37252e07 30/32] gnu: erlang-geas: " Pierre-Henry Fröhring
2023-10-29 14:37 ` [bug#66801] [PATCH va3e5ae0f..37252e07 31/32] gnu: erlang-covertool: " Pierre-Henry Fröhring
2023-10-29 14:37 ` [bug#66801] [PATCH va3e5ae0f..37252e07 32/32] gnu: erlang-telemetry: " Pierre-Henry Fröhring
2023-10-29 18:29 ` Liliana Marie Prikler [this message]
2023-10-29 22:14 ` [bug#66801] [PATCH va3e5ae0f..37252e07 01/32] rebar-build-system and packages Pierre-Henry Fröhring
2023-10-30 5:29 ` Liliana Marie Prikler
2023-10-30 12:30 ` Pierre-Henry Fröhring
2023-10-30 20:40 ` Liliana Marie Prikler
2023-11-08 9:21 ` [bug#66801] A minimal set of changes Pierre-Henry Fröhring
2023-11-08 9:22 ` [bug#66801] [PATCH 0/5] build Erlang packages with dependencies Pierre-Henry Fröhring
2023-11-08 9:22 ` [bug#66801] [PATCH 1/5] guix: build-system: rebar: " Pierre-Henry Fröhring
2023-11-08 20:40 ` Liliana Marie Prikler
2023-11-13 18:58 ` Pierre-Henry Fröhring
2023-11-08 9:22 ` [bug#66801] [PATCH 2/5] gnu: Add erlang-goldrush Pierre-Henry Fröhring
2023-11-08 9:22 ` [bug#66801] [PATCH 3/5] gnu: Add erlang-lager Pierre-Henry Fröhring
2023-11-08 9:22 ` [bug#66801] [PATCH 4/5] gnu: Add erlang-unicode-util-compat Pierre-Henry Fröhring
2023-11-08 9:22 ` [bug#66801] [PATCH 5/5] gnu: Add erlang-idna Pierre-Henry Fröhring
2023-11-13 20:26 ` [bug#66801] ['PATCH v2' 01/14] build-system: Add mix-build-system Pierre-Henry Fröhring
2023-11-13 21:22 ` Liliana Marie Prikler
2023-11-14 10:37 ` Pierre-Henry Fröhring
2023-11-14 17:53 ` Liliana Marie Prikler
2023-11-15 9:57 ` Pierre-Henry Fröhring
2023-11-15 9:59 ` Pierre-Henry Fröhring
2023-11-15 12:40 ` [bug#66801] Fwd: " Pierre-Henry Fröhring
2023-11-15 18:36 ` [bug#66801] " Liliana Marie Prikler
2023-11-15 22:49 ` Pierre-Henry Fröhring
2023-11-15 22:51 ` [bug#66801] [PATCH v3 " Pierre-Henry Fröhring
2023-11-16 2:05 ` Liliana Marie Prikler
2023-11-16 13:01 ` Pierre-Henry Fröhring
2023-11-16 15:11 ` Liliana Marie Prikler
2023-11-16 18:12 ` Pierre-Henry Fröhring
2023-11-16 19:34 ` Liliana Marie Prikler
2023-11-17 7:36 ` Pierre-Henry Fröhring
2023-11-17 8:03 ` Pierre-Henry Fröhring
2023-11-17 19:24 ` Liliana Marie Prikler
2023-11-18 4:44 ` Pierre-Henry Fröhring
2023-11-18 7:12 ` Liliana Marie Prikler
2023-11-18 10:19 ` Pierre-Henry Fröhring
2023-11-18 11:11 ` Liliana Marie Prikler
2023-11-18 12:02 ` Pierre-Henry Fröhring
2023-12-07 22:34 ` [bug#66801] [PATCH] " Pierre-Henry Fröhring
2023-12-08 7:25 ` Liliana Marie Prikler
2023-12-08 8:01 ` Pierre-Henry Fröhring
2023-12-08 9:52 ` Liliana Marie Prikler
2023-12-08 10:17 ` Pierre-Henry Fröhring
2023-12-08 11:50 ` Liliana Marie Prikler
2023-12-08 14:20 ` Pierre-Henry Fröhring
2023-12-08 14:55 ` Liliana Marie Prikler
2023-12-08 11:10 ` [bug#66801] [PATCH 01/15] " Pierre-Henry Fröhring
2023-12-08 11:10 ` [bug#66801] [PATCH 02/15] gnu: elixir: Wrap binaries Pierre-Henry Fröhring
2023-12-08 11:10 ` [bug#66801] [PATCH 03/15] gnu: Add elixir-hex Pierre-Henry Fröhring
2023-12-08 14:27 ` [bug#66801] [PATCH v3 01/15] build-system: Add mix-build-system Pierre-Henry Fröhring
2023-12-08 14:27 ` [bug#66801] [PATCH v3 02/15] gnu: elixir: Wrap binaries Pierre-Henry Fröhring
2023-12-08 14:27 ` [bug#66801] [PATCH v3 03/15] gnu: Add elixir-hex Pierre-Henry Fröhring
2023-12-08 15:29 ` Liliana Marie Prikler
2023-12-08 15:03 ` [bug#66801] [PATCH v3 04/15] gnu: Add elixir-nimble-parsec Pierre-Henry Fröhring
2023-12-08 15:30 ` Liliana Marie Prikler
2023-12-08 15:03 ` [bug#66801] [PATCH v3 05/15] gnu: Add elixir-makeup Pierre-Henry Fröhring
2023-12-08 15:30 ` Liliana Marie Prikler
2023-12-08 15:03 ` [bug#66801] [PATCH v3 06/15] gnu: Add elixir-jason Pierre-Henry Fröhring
2023-12-08 15:31 ` Liliana Marie Prikler
2023-12-08 15:03 ` [bug#66801] [PATCH v3 07/15] gnu: Add elixir-file-system Pierre-Henry Fröhring
2023-12-08 15:33 ` Liliana Marie Prikler
2023-12-08 15:03 ` [bug#66801] [PATCH v3 08/15] gnu: Add elixir-bunt Pierre-Henry Fröhring
2023-12-08 15:33 ` Liliana Marie Prikler
2023-12-08 15:03 ` [bug#66801] [PATCH v3 09/15] gnu: Add elixir-inch-ex Pierre-Henry Fröhring
2023-12-08 15:35 ` Liliana Marie Prikler
2023-12-08 15:03 ` [bug#66801] [PATCH v3 10/15] gnu: Add elixir-castore Pierre-Henry Fröhring
2023-12-08 15:36 ` Liliana Marie Prikler
2023-12-08 15:03 ` [bug#66801] [PATCH v3 11/15] gnu: Add elixir-excoveralls Pierre-Henry Fröhring
2023-12-08 15:38 ` Liliana Marie Prikler
2023-12-08 15:03 ` [bug#66801] [PATCH v3 12/15] gnu: Add elixir-credo Pierre-Henry Fröhring
2023-12-08 15:39 ` Liliana Marie Prikler
2023-12-08 15:03 ` [bug#66801] [PATCH v3 13/15] gnu: Add elixir-erlex Pierre-Henry Fröhring
2023-12-08 15:39 ` Liliana Marie Prikler
2023-12-08 15:03 ` [bug#66801] [PATCH v3 14/15] gnu: Add elixir-dialyxir Pierre-Henry Fröhring
2023-12-08 15:03 ` [bug#66801] [PATCH v3 15/15] gnu: Add elixir-machete Pierre-Henry Fröhring
2023-12-08 15:40 ` Liliana Marie Prikler
2023-12-08 17:30 ` Pierre-Henry Fröhring
2023-12-08 18:01 ` Liliana Marie Prikler
2023-12-08 18:19 ` Pierre-Henry Fröhring
2023-12-08 18:35 ` [bug#66801] [PATCH v4 01/15] build-system: Add mix-build-system Pierre-Henry Fröhring
2023-12-08 18:35 ` [bug#66801] [PATCH v4 02/15] gnu: elixir: Wrap binaries Pierre-Henry Fröhring
2023-12-08 18:35 ` [bug#66801] [PATCH v4 03/15] gnu: Add elixir-hex Pierre-Henry Fröhring
2023-12-08 18:35 ` [bug#66801] [PATCH v4 04/15] gnu: Add elixir-nimble-parsec Pierre-Henry Fröhring
2023-12-08 18:35 ` [bug#66801] [PATCH v4 05/15] gnu: Add elixir-makeup Pierre-Henry Fröhring
2023-12-08 18:35 ` [bug#66801] [PATCH v4 06/15] gnu: Add elixir-jason Pierre-Henry Fröhring
2023-12-08 18:35 ` [bug#66801] [PATCH v4 07/15] gnu: Add elixir-file-system Pierre-Henry Fröhring
2023-12-08 18:35 ` [bug#66801] [PATCH v4 08/15] gnu: Add elixir-bunt Pierre-Henry Fröhring
2023-12-08 18:35 ` [bug#66801] [PATCH v4 09/15] gnu: Add elixir-inch-ex Pierre-Henry Fröhring
2023-12-08 18:35 ` [bug#66801] [PATCH v4 10/15] gnu: Add elixir-castore Pierre-Henry Fröhring
2023-12-08 18:35 ` [bug#66801] [PATCH v4 11/15] gnu: Add elixir-excoveralls Pierre-Henry Fröhring
2023-12-08 18:35 ` [bug#66801] [PATCH v4 12/15] gnu: Add elixir-credo Pierre-Henry Fröhring
2023-12-08 18:35 ` [bug#66801] [PATCH v4 13/15] gnu: Add elixir-erlex Pierre-Henry Fröhring
2023-12-08 18:35 ` [bug#66801] [PATCH v4 14/15] gnu: Add elixir-dialyxir Pierre-Henry Fröhring
2023-12-08 18:35 ` [bug#66801] [PATCH v4 15/15] gnu: Add elixir-machete Pierre-Henry Fröhring
2023-12-10 12:34 ` [bug#66801] (no subject) Pierre-Henry Fröhring
2023-12-10 13:03 ` [bug#66801] [PATCH v5 01/15] build-system: Add mix-build-system Pierre-Henry Fröhring
2023-12-10 13:03 ` [bug#66801] [PATCH v5 02/15] gnu: elixir: Wrap binaries Pierre-Henry Fröhring
2023-12-10 13:03 ` [bug#66801] [PATCH v5 03/15] gnu: Add elixir-hex Pierre-Henry Fröhring
2023-12-10 13:03 ` [bug#66801] [PATCH v5 04/15] gnu: Add elixir-nimble-parsec Pierre-Henry Fröhring
2023-12-10 13:03 ` [bug#66801] [PATCH v5 05/15] gnu: Add elixir-makeup Pierre-Henry Fröhring
2023-12-10 13:03 ` [bug#66801] [PATCH v5 06/15] gnu: Add elixir-jason Pierre-Henry Fröhring
2023-12-10 13:04 ` [bug#66801] [PATCH v5 07/15] gnu: Add elixir-file-system Pierre-Henry Fröhring
2023-12-10 13:04 ` [bug#66801] [PATCH v5 08/15] gnu: Add elixir-bunt Pierre-Henry Fröhring
2023-12-10 13:04 ` [bug#66801] [PATCH v5 09/15] gnu: Add elixir-inch-ex Pierre-Henry Fröhring
2023-12-10 13:04 ` [bug#66801] [PATCH v5 10/15] gnu: Add elixir-castore Pierre-Henry Fröhring
2023-12-10 13:04 ` [bug#66801] [PATCH v5 11/15] gnu: Add elixir-excoveralls Pierre-Henry Fröhring
2023-12-10 13:04 ` [bug#66801] [PATCH v5 12/15] gnu: Add elixir-credo Pierre-Henry Fröhring
2023-12-10 13:04 ` [bug#66801] [PATCH v5 13/15] gnu: Add elixir-erlex Pierre-Henry Fröhring
2023-12-10 13:04 ` [bug#66801] [PATCH v5 14/15] gnu: Add elixir-dialyxir Pierre-Henry Fröhring
2023-12-10 13:04 ` [bug#66801] [PATCH v5 15/15] gnu: Add elixir-machete Pierre-Henry Fröhring
2023-12-10 14:20 ` [bug#66801] [PATCH v5 01/15] build-system: Add mix-build-system Liliana Marie Prikler
2023-12-10 14:22 ` Pierre-Henry Fröhring
2023-12-18 3:01 ` bug#66801: " Liliana Marie Prikler
2023-12-10 13:05 ` [bug#66801] Erratum Pierre-Henry Fröhring
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://guix.gnu.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=7ceab0dcbe069f664377786b5bb531e2196fffc1.camel@gmail.com \
--to=liliana.prikler@gmail.com \
--cc=66801@debbugs.gnu.org \
--cc=phfrohring@deeplinks.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/guix.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).