[bug#33059] [PATCH 09/10] gnu: Add python-fenics-dolfin.

[Paul Garlick <pgarlick@tourbillion-technology.com>]

* gnu/packages/simulation.scm (python-fenics-dolfin): New variable.
---
 gnu/packages/simulation.scm | 147 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 147 insertions(+)

diff --git a/gnu/packages/simulation.scm b/gnu/packages/simulation.scm
index 3594f07..c0617b3 100644
--- a/gnu/packages/simulation.scm
+++ b/gnu/packages/simulation.scm
@@ -754,3 +754,150 @@ user interface to the FEniCS core components and external libraries.")
                    license:expat
                    license:boost1.0
                    license:lgpl3+))))
+
+(define-public python-fenics-dolfin
+  (package (inherit fenics-dolfin)
+    (name "python-fenics-dolfin")
+    (build-system python-build-system)
+    (inputs
+     `(("pybind11" ,pybind11)
+       ("python-matplotlib" ,python-matplotlib)
+       ,@(alist-delete "python" (package-inputs fenics-dolfin))))
+    (native-inputs
+     `(("cmake" ,cmake)
+       ("ply" ,python-ply)
+       ("pytest" ,python-pytest)
+       ("python-decorator" ,python-decorator)
+       ("python-pkgconfig" ,python-pkgconfig)
+       ,@(package-native-inputs fenics-dolfin)))
+    (propagated-inputs
+     `(("dolfin" ,fenics-dolfin)
+       ("petsc4py" ,python-petsc4py)
+       ("slepc4py" ,python-slepc4py)))
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-after 'patch-source-shebangs 'set-paths
+           (lambda _
+             ;; Define paths to store locations.
+             (setenv "PYBIND11_DIR" (assoc-ref %build-inputs "pybind11"))
+             ;; Move to python sub-directory.
+             (chdir "python")
+             #t))
+         (add-after 'build 'mpi-setup
+           ,%openmpi-setup)
+         (add-before 'check 'pre-check
+           (lambda _
+             (use-modules (ice-9 regex)
+                          (ice-9 rdelim)
+                          (guix build utils)
+                          (rnrs io ports))
+             ;; Exclude tests that require meshes supplied by git-lfs.
+             (with-atomic-file-replacement "demo/test.py"
+               (let ((rx (make-regexp "stem !")))
+                 (lambda (in out)
+                   (let loop ()
+                     (let ((line (read-line in 'concat)))
+                       (if (eof-object? line)
+                           #t
+                           (begin
+                             (display line out)
+                             (when (regexp-exec rx line)
+                               (display
+                                 (string-append
+                                  "excludeList = [\n"
+                                  "'multimesh-quadrature', \n"
+                                  "'multimesh-marking', \n"
+                                  "'mixed-poisson-sphere', \n"
+                                  "'mesh-quality', \n"
+                                  "'lift-drag', \n"
+                                  "'elastodynamics', \n"
+                                  "'dg-advection-diffusion', \n"
+                                  "'contact-vi-tao', \n"
+                                  "'contact-vi-snes', \n"
+                                  "'collision-detection', \n"
+                                  "'buckling-tao', \n"
+                                  "'auto-adaptive-navier-stokes', \n"
+                                  "'advection-diffusion', \n"
+                                  "'subdomains', \n"
+                                  "'stokes-taylor-hood', \n"
+                                  "'stokes-mini', \n"
+                                  "'navier-stokes', \n"
+                                  "'eigenvalue']\n"
+                                  "demos = ["
+                                  "d for d in demos if d[0].stem not in "
+                                  "excludeList]\n") out))
+                             (loop))))))))
+             (setenv "HOME" (getcwd))
+             (setenv "PYTHONPATH"
+                     (string-append
+                      (getcwd) "/build/lib.linux-x86_64-"
+                      ,(version-major+minor (package-version python)) ":"
+                      (getenv "PYTHONPATH")))
+             ;; Restrict OpenBLAS to MPI-only in preference to MPI+OpenMP.
+             (setenv "OPENBLAS_NUM_THREADS" "1")
+             #t))
+         (replace 'check
+           (lambda _
+             (chdir "test")
+             ;; Note: The test test_snes_set_from_options() in the file
+             ;; unit/nls/test_PETScSNES_solver.py fails and is ignored.
+             (and (invoke "py.test" "unit"
+                           "--ignore" "unit/nls/test_PETScSNES_solver.py")
+                  (invoke "mpirun" "-np" "3" "python" "-B" "-m" "pytest" "unit"
+                           "--ignore" "unit/nls/test_PETScSNES_solver.py"))
+             (chdir "../demo")
+             ;; Check demos.
+             (invoke "python" "generate-demo-files.py")
+             (and (invoke "python" "-m" "pytest" "-v" "test.py")
+                  (invoke "python" "-m" "pytest" "-v" "test.py"
+                          "--mpiexec=mpiexec" "--num-proc=3"))
+             (chdir "..")
+             #t))
+         (add-after 'install 'install-demo-files
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((demos (string-append (assoc-ref outputs "out")
+                                          "/share/python-dolfin/demo")))
+               (mkdir-p demos)
+               (with-directory-excursion "demo"
+                 (for-each (lambda (file)
+                             (let* ((dir (dirname file))
+                                    (tgt-dir (string-append demos "/" dir)))
+                               (unless (equal? "." dir)
+                                 (mkdir-p tgt-dir)
+                                 (install-file file tgt-dir))))
+                           (find-files "." ".*\\.(py|gz|xdmf)$"))))
+             #t)))))
+    (home-page
+      "https://bitbucket.org/fenics-project/dolfin/")
+    (synopsis
+      "High-level problem solving environment for differential equations")
+    (description
+      "DOLFIN is a computational framework for finding numerical
+solutions to problems described by differential equations.  Numerical
+models in DOLFIN are constructed using general families of finite
+elements.  Data structures are provided for discretizing the governing
+system on a computational mesh.  A compact syntax, similar to
+mathematical notation, is made available for defining function spaces
+and expressing variational forms.  Interfaces to specialized matrix
+solvers are provided for solving the resultant linear systems.
+
+@code{python-fenics-dolfin} is part of the FEniCS project.  It is the
+python user interface to the FEniCS core components and external
+libraries.")
+    ;; The python files in DOLFIN are licensed under the GNU Lesser
+    ;; General Public License, version 3 or later, with the following
+    ;; exceptions:
+    ;;
+    ;; bsd-2: python/cmake/FindPETSc4py.cmake
+    ;;
+    ;; bsd-3: site-packages/dolfin_utils/cppparser/CppHeaderParser.py
+    ;;
+    ;; expat: site-packages/dolfin_utils/ordereddict.py
+    ;;
+    ;; gpl2+: utils/pylit/pylit.py
+    (license (list license:bsd-2
+                   license:bsd-3
+                   license:expat
+                   license:gpl2+
+                   license:lgpl3+))))
-- 
1.8.3.1