gnu: Add ghdl-clang.

* guix-science/packages/electronics.scm (ghdl-clang): New variable.

1 files changed, 51 insertions, 0 deletions

diff --git a/guix-science/packages/electronics.scm b/guix-science/packages/electronics.scm
index 0f85912..3d79976 100644
--- a/guix-science/packages/electronics.scm
+++ b/guix-science/packages/electronics.scm
@@ -124,3 +124,54 @@
      "This package gathers GNAT binaries from FSF GCC releases of the Alire
 Project.")
     (license license:gpl3+)))
+
+(define-public ghdl-clang
+  (package
+    (name "ghdl-clang")
+    (version "4.1.0")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://github.com/ghdl/ghdl")
+             (commit (string-append "v" version))))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "1wq231slpm594qr5ad441igancxr6b0hczgql0cx2xpapmx8gx5l"))))
+    (build-system gnu-build-system)
+    (arguments
+     (list
+      ;; XXX: This would check DT_RUNPATH, but patchelf populate DT_RPATH,
+      ;; not DT_RUNPATH.
+      #:validate-runpath? #f
+      #:out-of-source? #t
+      #:phases #~(modify-phases %standard-phases
+                   (replace 'configure
+                     (lambda* (#:key inputs #:allow-other-keys)
+                       (let ((libc (assoc-ref inputs "libc")))
+                         (invoke "./configure"
+                                 "--with-llvm-config"
+                                 "--enable-libghdl"
+                                 "--enable-synth"
+                                 "--disable-gplcompat"
+                                 (string-append "--prefix="
+                                                #$output)))))
+                   (delete 'check)
+                   (replace 'build
+                     (lambda* (#:key inputs #:allow-other-keys)
+                       (invoke "make" "ghdl_llvm" "-j"
+                               (number->string (parallel-job-count)))
+                       (invoke "patchelf" "--set-interpreter"
+                               (search-input-file inputs
+                                                  #$(glibc-dynamic-linker))
+                               "ghdl_llvm")
+                       (invoke "make" "-j"
+                               (number->string (parallel-job-count))))))))
+    (propagated-inputs (list clang-toolchain))
+    (inputs (list gnat patchelf))
+    (home-page "https://github.com/ghdl/ghdl")
+    (synopsis "Compiler for VHDL code using clang backend")
+    (description
+     "GHDL analyses, elaborates and simulates VHDL sources.  It may also be
+used as an experimental synthesizer backend.")
+    (license license:gpl2+)))