;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2019 Ricardo Wurmus <rekado@elephly.net>
;;;
;;; 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 java-maths)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix git-download)
  #:use-module (guix utils)
  #:use-module (guix build-system gnu)
  #:use-module (gnu packages)
  #:use-module (gnu packages gcc)
  #:use-module (gnu packages java)
  #:use-module (gnu packages maths)
  #:use-module (gnu packages ruby))

(define-public java-jblas
  (package
    (name "java-jblas")
    (version "1.2.4")
    (source (origin
              (method git-fetch)
              (uri (git-reference
                    (url "https://github.com/mikiobraun/jblas")
                    (commit (string-append "jblas-" version))))
              (file-name (git-file-name name version))
              (sha256
               (base32
                "0afh48hq8i8li5z11x415c8slwsfrlib0w1xjfbg186mximqvv3g"))))
    (build-system gnu-build-system)
    (arguments
     `(#:tests? #f                      ; there are none
       #:configure-flags
       (list (string-append "--libpath="
                            (assoc-ref %build-inputs "openblas")
                            "/lib")
             "--build-type=openblas")
       #:phases
       (modify-phases %standard-phases
         (add-after 'unpack 'make-writable
           (lambda _
             (map make-file-writable
                  (find-files "." ".*"))
             #t))
         (add-before 'build 'setenv-JAVA_HOME
           (lambda* (#:key inputs #:allow-other-keys)
             (setenv "JAVA_HOME" (assoc-ref inputs "jdk"))
             #t))
         (add-after 'build 'build-jar
           (lambda* (#:key inputs outputs #:allow-other-keys)
             (setenv "M2_HOME" (assoc-ref outputs "out"))
             (invoke "ant" "jar" (string-append "-Dversion=" ,version))))
         (replace 'install
           (lambda* (#:key outputs #:allow-other-keys)
             (let ((target (string-append (assoc-ref outputs "out")
                                          "/share/java")))
               (mkdir-p target)
               (install-file (string-append "jblas-" ,version ".jar") target))
             #t)))))
    (inputs
     (list openblas))
    (native-inputs
     `(("ant" ,ant)
       ("ruby" ,ruby)                   ; for configure script
       ("gfortran" ,gfortran)
       ("jdk" ,icedtea "jdk")))
    (home-page "http://jblas.org")
    (synopsis "Linear algebra for Java")
    (description
     "jblas is a fast linear algebra library for Java.  jblas is based on BLAS
and LAPACK, the de-facto industry standard for matrix computations, and uses
state-of-the-art implementations for all its computational routines, making
jBLAS very fast.")
    (license license:bsd-3)))
d></tr>
<tr><td><span title='2021-07-11 00:49:14 +0200'>2021-07-11</span></td><td><a href='/guix/commit/.dir-locals.el?id=04b2f3dd80aa4a138e93a6a4a209c1beac5fca88'>packages: Add 'modify-inputs'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-06-29 14:53:21 -0400'>2021-06-29</span></td><td><a href='/guix/commit/.dir-locals.el?id=82daab42811a2e3c7684ebdf12af75ff0fa67b99'>pack: Add support for the deb format.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2021-03-30 22:48:43 +0200'>2021-03-30</span></td><td><a href='/guix/commit/.dir-locals.el?id=7d873f194ca69d6096d28d7a224ab78e83e34fe1'>build-system: Rewrite using gexps.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-12-15 17:32:11 +0100'>2020-12-15</span></td><td><a href='/guix/commit/.dir-locals.el?id=1574bd82bb36ee64574912c3e8855f94a73adc44'>system: 'init' does not recompute the hash of each store item.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-11-17 18:00:28 -0500'>2020-11-17</span></td><td><a href='/guix/commit/.dir-locals.el?id=129b9b16d9b588316cc997cf8f4fefe30961a417'>Merge remote-tracking branch 'origin/version-1.2.0' into master</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2020-11-16 21:48:30 +0100'>2020-11-16</span></td><td><a href='/guix/commit/.dir-locals.el?id=3428c66c5a4d5f1a5fd2f1ad4cd3105993ae8e6d'>.dir-locals.el: Add upstream report link.</a><span class='msg-avail'>...</span></td><td>Miguel Ángel Arruga Vivas</td></tr>
<tr><td><span title='2020-11-16 13:06:27 -0500'>2020-11-16</span></td><td><a href='/guix/commit/.dir-locals.el?id=a895eace116c59aa570b54e3a165eef3fcef26c7'>.dir-locals.el: Use setq-local on guix-directory.</a><span class='msg-avail'>...</span></td><td>Christopher Lemmer Webber</td></tr>
<tr><td><span title='2020-11-16 13:04:38 -0500'>2020-11-16</span></td><td><a href='/guix/commit/.dir-locals.el?id=1d6e7732b163c9e945c9e5b32c726fe3b5f09c3a'>.dir-locals.el: Prevent errors if .dir-locals.el isn't found.</a><span class='msg-avail'>...</span></td><td>Christopher Lemmer Webber</td></tr>
<tr><td><span title='2020-11-12 09:23:27 -0500'>2020-11-12</span></td><td><a href='/guix/commit/.dir-locals.el?id=3de898b43c1388a9244bdedd2d9f11511c9571d2'>maint: update-guix-package: Optionally add sources to store.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2020-11-01 01:57:02 +0100'>2020-11-01</span></td><td><a href='/guix/commit/.dir-locals.el?id=96d0f0b13819a68480e204716c1af6605cfdcb4c'>.dir-locals.el: Require cl-lib at runtime.</a><span class='msg-avail'>...</span></td><td>Miguel Ángel Arruga Vivas</td></tr>
<tr><td><span title='2020-10-31 00:12:30 -0400'>2020-10-31</span></td><td><a href='/guix/commit/.dir-locals.el?id=0e1b0958bde5ccc34a4fed9a09cf949d5f9c9519'>.dir-locals.el: Automatically set the GEISER-GUILE-LOAD-PATH variable.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2020-10-19 14:02:53 -0400'>2020-10-19</span></td><td><a href='/guix/commit/.dir-locals.el?id=5800d2aae2490f4192823323b72d17f2645aeb9e'>maint: update-guix-package: Prevent accidentally breaking guix pull.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2020-09-14 10:51:26 +0200'>2020-09-14</span></td><td><a href='/guix/commit/.dir-locals.el?id=14c422c12c86126cfb5ca7e1641bbcd78d02f711'>deduplication: pass store directory to replace-with-link.</a><span class='msg-avail'>...</span></td><td>Caleb Ristvedt</td></tr>
<tr><td><span title='2020-09-14 10:51:26 +0200'>2020-09-14</span></td><td><a href='/guix/commit/.dir-locals.el?id=1d40e6fdd1898d94d9611b01ebd893aab72dec54'>.dir-locals.el: fix call-with-{retrying-}transaction indenting.</a><span class='msg-avail'>...</span></td><td>Caleb Ristvedt</td></tr>