Subject: [bug#65313] [PATCH 1/1] * gnu/packages/erlang.scm (erlang-lfe): New variable.

From: Tim Johann <[email-masked]>
Date: Tue, 15 Aug 2023 17:27:32 +0200

---
 gnu/packages/erlang.scm | 77 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 77 insertions(+)

diff --git a/gnu/packages/erlang.scm b/gnu/packages/erlang.scm
index a7f161647b..df7212b0e5 100644
--- a/gnu/packages/erlang.scm
+++ b/gnu/packages/erlang.scm
@@ -738,3 +738,80 @@ (define-public rebar3-proper
     (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.2")
+    (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/lfe/lfe")
+             (commit "v2.1.2")))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32
+         "180hz1p2v3vb6yyzcfwircmljlnd86ln8z80lzy3mwlyrcxblvxy"))))
+    (build-system gnu-build-system)
+    (native-inputs
+     (list rebar3 rebar3-proper erlang-proper))
+    (propagated-inputs
+     (list erlang))
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (delete 'configure)
+
+         ;; The following is inspired by rebar-build-system.scm
+         (add-before 'check 'erlang-depends
+           (lambda* (#:key inputs #:allow-other-keys)
+             (use-modules (ice-9 ftw))
+             (define input-directories
+               (map (lambda (p) (cdr (assoc p inputs)))
+                    '("rebar3-proper" "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 writeable.
+                           (copy-recursively src dest #:follow-symlinks? #t)
+                           (for-each
+                            (lambda (file)
+                              (chmod file #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 "DEBUG" "1")
+                 (setenv "REBAR_CACHE_DIR" "/tmp")
+                 (invoke "make" "tests"))))))
+       #:make-flags
+       (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
+             "CC=gcc")))
+    (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)))
-- 
2.41.0